20/11/23 - Cambios en respaldo diario

B4A/C_Cliente.bas

@@ -97,7 +97,7 @@ Sub Class_Globals
 	Dim CUANTOS As String
 	Private B_IMP As Button
 	Dim Toggla As Toggle
-	Private B_VENTA As Button
+	Dim B_VENTA As Button
 	Dim PASA_IMP As String
 	Dim sucursal As String
 	Dim FACTURA As String
@@ -369,6 +369,8 @@ End Sub
 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
 
 Sub B4XPage_Appear
+	B_VENTA.Visible = False
+	b_noVenta.Visible = False
 '	Log(Starter.rp.Check("android.permission.BLUETOOTH_CONNECT"))
 	b_inicioFinVenta.Text = "INICIAR VENTA"
 	b_inicioFinVenta.BringToFront
@@ -471,7 +473,7 @@ Sub B4XPage_Appear
 				End If
 			End If
 			If S1.GetString("CUANTOS") = 0 Then
-				b_noVenta.Visible = True
+'				b_noVenta.Visible = True
 			Else 'Si ya hay venta, ocultamos el boton de "NO VENTA"
 				b_noVenta.Visible = False
 			End If
@@ -481,7 +483,7 @@ Sub B4XPage_Appear
 				clienteDeudor = True
 '				gest.Visible = False
 			Else
-				B_VENTA.Visible = True
+'				B_VENTA.Visible = True
 				clienteDeudor = False
 '				gest.Visible = True
 			End If
@@ -534,7 +536,7 @@ Sub B4XPage_Appear
 				C3.Close
 				C1.Close
 			End If
-			B_VENTA.Visible = True
+'			B_VENTA.Visible = True
 			
 			If CREDITO = "1" Then
 				Msgbox("El cliente tiene credito excedido","Aviso") 'ignore
@@ -773,6 +775,7 @@ Private Sub B4XPage_CloseRequest As ResumableSub
 End Sub
 
 Sub Tar_Click
+	B_VENTA.Visible = False
 	Subs.iniciaActividad("nota")
 End Sub
 
@@ -3785,6 +3788,11 @@ Sub JobDone(Job As HttpJob)
 						m_lon = Starter.lon_gps
 						GPS_LocationChanged(Starter.ubicacionActual)
 						Starter.skmt.ExecNonQuery($"update kmt_info set CAT_CL_LAT = '${Starter.lat_gps}', CAT_CL_LONG = '${Starter.lon_gps}' where CAT_CL_CODIGO = '${Subs.traeCliente}'"$)
+						Dim cmd As DBCommand
+						cmd.Initialize
+						cmd.Name = "delete_geoPass"
+						cmd.Parameters = Array As Object( Subs.traeAlmacen, Subs.traeRuta)
+						reqManager.ExecuteQuery(cmd , 0, "traeGeoPass")
 					End If
 				Next
 			End If