21/9/23 - Modificacion al mandapendientes y tmp_drop

- Se modifico el mandaPendientes y mandaPendientesNuevosClientes para que cuando se llamen desde Principal se manden TODOS, y cuando se llamen al guardar un cliente solo se manden los pendientes.
- Se egrego que cuando se mande información al final del día, se mande tambien información al TMP_DROP

B4A/C_Cliente.bas

@@ -151,6 +151,7 @@ Sub Class_Globals
 	Dim turnoColor As Int = 1
 	Dim cd As ColorDrawable
 	Dim camposModificados As List
+	dim mandarTodo as Boolean = False
 End Sub
 
 'You can add more parameters here.
@@ -346,6 +347,7 @@ End Sub
 Sub mandaPendientes
 	'Enviamos Pendientes
 	c = B4XPages.MainPage.skmt.ExecQuery("SELECT * from kmt_info where CAT_CL_ENVIO_PENDIENTE = '1'")
+	If mandarTodo Then c = B4XPages.MainPage.skmt.ExecQuery("SELECT * from kmt_info")
 	Log($"Cliente PENDIENTE: ${c.RowCount}"$)
 	If c.RowCount > 0 Then
 		For i = 0 To c.RowCount - 1
@@ -354,8 +356,6 @@ Sub mandaPendientes
 			Dim fechaCaptura As String = c.GetString("CAT_CL_FECHA_CAPTURA")
 			Log(fechaCaptura)
 			Dim cmd As DBCommand
-			cmd.Initialize
-			cmd.Name = "guardaClienteGeocerca_MARDS"
 			Dim motivo As String = "VERIFICACION DE DATOS"
 			Dim comentario As String = c.GetString("ESTATUS_ORIGINAL")
 			If c.GetString("CAT_CL_CODIGO").As(String).SubString2(0,1) = "N" Then motivo = "VERIFICACION CLIENTE NUEVO PREVENTA"
@@ -363,6 +363,8 @@ Sub mandaPendientes
 			If c.GetString("CAT_CL_CODIGO").As(String).SubString2(0,1) = "N" Then comentario = ""
 			If c.GetString("CAT_CL_CODIGO").As(String).SubString2(0,2) = "NC" Then comentario = c.GetString("CAT_CL_CALLE1")
 
+			cmd.Initialize
+			cmd.Name = "guardaClienteGeocerca_MARDS"
 			cmd.Parameters = Array As Object(c.GetString("CAT_CL_CODIGO"), fechaCaptura, Subs.traeUsuarioDeBD, c.GetString("CAT_CL_LAT"), c.GetString("CAT_CL_LONG"), l_ruta.text, Subs.traeAlmacen, c.GetString("LAT_CENSADOR"), c.GetString("LON_CENSADOR"), motivo, comentario)
 			reqManager.ExecuteCommand(cmd, "guaradClienteGeocerca")