- VERSION 4.10.21

- Se amplió el campo de cantidad en productos.
- Se corrigió el error cuando la cantidad era mayor a 999.
- Se corrigió que no guardara los productos cuando te regresabas o le dabas continuar o las varias opciones que no los guardaba.
- Se corrigió que si te aparecía la leyenda de producto VENDIDO y luego lo borrabas desde Nota, y te seguía apareciendo como vendido.
- Se modificó el código de subs.traeRuta para que traiga la ruta del cliente ACTUAL, esto es por las suplencias.

B4A/C_Cliente.bas

@@ -425,6 +425,7 @@ Sub Class_Globals
 	Dim IniVenNO As Boolean = False
 	Private geoCont As Int = 0
 	Private l_version As Label
+	Private p_transparenteInicioFin As Panel
 End Sub
 
 'You can add more parameters here.
@@ -497,6 +498,9 @@ Sub B4XPage_Appear
 	LA_GPS.Text = "SIN UBICACION GPS"
 	cercavalor = 0
 	l_version.Text = Application.VersionName
+	p_transparenteInicioFin.Width = Root.Width : p_transparenteInicioFin.Height = Root.Height
+	b_Inicio_Fin_venta.Left = 5
+	b_Inicio_Fin_venta.Width = Root.Width - 10
 	b_Inicio_Fin_venta.Text = "INICIAR VENTA"
 	b_Inicio_Fin_venta.BringToFront
 '	LogColor(">>>>>> EN VENTA: " & Starter.enVenta, Colors.red)
@@ -1074,18 +1078,21 @@ Sub GPS_LocationChanged (Location1 As Location)
 	
 End Sub
 
-
-
 Private Sub p_pideGeoPass_Click
-	
+
 End Sub
 
 Private Sub iniciofin
 	If  Starter.enVenta = False Then
+		p_transparenteInicioFin.BringToFront
+		p_transparenteInicioFin.Visible = True
 		b_Inicio_Fin_venta.Visible = True
 '		Log("Hacemos visible el boton de Inicio Venta2")
 	Else
-		b_Inicio_Fin_venta.Visible = False
+		If b_Inicio_Fin_venta.Text <> "TERMINAR VENTA" Then
+			p_transparenteInicioFin.Visible = False
+			b_Inicio_Fin_venta.Visible = False
+		End If
 	End If
 End Sub
 
@@ -1887,9 +1894,7 @@ Sub B_guardaencuesta_Click
 			tipo_venta = "PREVENTA"
 '	StartActivity(colonia2)
 			B4XPages.ShowPage("productos")
-	
 		End If
-	
 	Else
 		Msgbox("FALTAN DATOS DE CAPTURA FAVOR DE VALIDAR", "AVISO")
 	End If
@@ -1904,7 +1909,13 @@ Private Sub B4XPage_CloseRequest As ResumableSub
 '	Return True To close, False To cancel
 	cuest.encuestaIniciada = False
 	cuest.ocultPanelPregunta
-	If p_encuesta.Visible Then
+	If p_transparenteInicioFin.Visible And b_Inicio_Fin_venta.Text = "TERMINAR VENTA" Then
+		ToastMessageShow("Por favor presione el botón de TERMINAR VENTA", True)
+		Return False
+	Else if Subs.hayPedido Then
+		ToastMessageShow("Por favor presione el botón de GUARDAR", True)
+		Return False
+	else If p_encuesta.Visible Then
 		p_encuesta.Visible = False
 	Else iF p_camara.Visible Then
 		Return False
@@ -1932,6 +1943,7 @@ End Sub
 
 Sub Guardar_Click
 	Guardar.SendToBack
+	p_transparenteInicioFin.Visible = True
 	b_Inicio_Fin_venta.Visible = True
 	b_Inicio_Fin_venta.Text = "TERMINAR VENTA"
 	Log("Hacemos visible el boton de Terminar Venta3")
@@ -4736,9 +4748,10 @@ Private Sub b_Inicio_Fin_venta_Click
 	contadorIniciarVenta = 0
 	IniVenNO = False
 	If dentroDeGeocerca Then precision = 1
-	LogColor("-------> "&contadorIniciarVenta & " <-------", Colors.Red)
+'	LogColor("-------> "&contadorIniciarVenta & " <-------", Colors.Red)
 	motivoNoVenta = ""
 	motivoNoVisita = ""
+	p_transparenteInicioFin.Visible = False
 	If b_Inicio_Fin_venta.Text = "TERMINAR VENTA" Then
 		Subs.bitacora(Subs.fechanormal(DateTime.Now), Subs.traeUsuarioDeBD, Subs.traeAlmacen, Subs.traeRutaBitacora, "Termina Venta", Subs.traeCliente, "", Subs.fechanormal(DateTime.Now), B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, precision, motivoNoVenta, motivoNoVisita)
 		Starter.enVenta = False
@@ -4778,4 +4791,8 @@ Private Sub LA_GEO_Click
 		End If
 	End If
 	geoCont = geoCont + 1
+End Sub
+
+Private Sub p_transparenteInicioFin_Click
+	
 End Sub