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_NuevoCliente.bas

@@ -50,6 +50,7 @@ Sub Class_Globals
 	Private B_FOTO As Button
 	Dim elOtroCliente As String = ""
 	Dim camposModificados As List
+	dim mandarTodo as Boolean = False
 End Sub
 
 'You can add more parameters here.
@@ -370,6 +371,7 @@ Sub mandaPendientesNuevosClientes
 	Private sDateP As String = DateTime.Date(DateTime.Now)
 '	c = B4XPages.MainPage.skmt.ExecQuery("SELECT * from kmt_info where CAT_CL_CODIGO like 'NC%' and CAT_CL_ENVIO_PENDIENTE = '1'")
 	c = B4XPages.MainPage.skmt.ExecQuery("Select kmt_info.*, nom_foto from kmt_info left join HIST_FOTO_CLIENTE on cat_cl_codigo = codigo where CAT_CL_CODIGO like 'NC%' and CAT_CL_ENVIO_PENDIENTE = '1'")
+	If mandarTodo Then c = B4XPages.MainPage.skmt.ExecQuery("Select kmt_info.*, nom_foto from kmt_info left join HIST_FOTO_CLIENTE on cat_cl_codigo = codigo where CAT_CL_CODIGO like 'NC%'")
 	Log($"Cliente Nuevo PENDIENTE: ${c.RowCount}"$)
 	Dim fotox() As Byte
 	Dim cmd As DBCommand