- VERSION 5.03.02

- Se quito "Cerrado Permanente"

B4A/C_Cliente.bas

@@ -402,7 +402,7 @@ Private Sub b_guardaCambios_Click
 	camposModificados = Subs.RemoveDuplicates(camposModificados)
 	Log(camposModificados)
 	If CLIENTE_ACTIVO = "Inactivo" Or CLIENTE_ACTIVO = "Cerrado Permanente" Then l_secuencia.Text = "0"
-	If CLIENTE_ACTIVO = "Cerrado Permanente" Then CLIENTE_ACTIVO = "Cerrado permanente confirmado"
+'	If CLIENTE_ACTIVO = "Cerrado Permanente" Then CLIENTE_ACTIVO = "Cerrado permanente confirmado"
 	B4XPages.MainPage.skmt.ExecNonQuery($"UPDATE kmt_info set CAT_CL_CODIGO = '${la_cuenta.text}', CAT_CL_CEDIS = '${Subs.traeAlmacen}', CAT_CL_LAT = '${l_lat.text}', CAT_CL_LONG = '${l_lon.text}', CAT_CL_SECUENCIA = '${l_secuencia.text}', CAT_CL_RUTA = '${l_ruta.text}', CAT_CL_DIASEMANA = '${cb_diaSemana.SelectedItem}', CAT_CL_GIRO = '${cb_giro.SelectedItem}', CAT_CL_NOMBRE = '${Subs.escapeSQLString(E_NOMBRE_C.text)}', CAT_CL_ATIENDE1 = '${et_atiende.text}', CAT_CL_CALLE = '${Subs.escapeSQLString(et_calle.text)}', CAT_CL_NOINT = '${et_NoInt.text}', CAT_CL_NOEXT = '${et_NoExt.text}', CAT_CL_CALLE1 = '${Subs.escapeSQLString(et_direccion.text)}', CAT_CL_CRUCE1 = '${E_ENTRE1.text}', CAT_CL_CALLE2 = '${E_ENTRE_2.text}', CAT_CL_CP = '${et_cp.text}', CAT_CL_COLONIA = '${et_colonia.text}', CAT_CL_MUNI = '${et_municipio.text}', CAT_CL_EDO = '${et_estado.text}', CAT_CL_ESTATUS = '${CLIENTE_ACTIVO}', gestion = 11, CAT_CL_FECHA_CAPTURA = '${sDate & " " & sTime}', CAT_CL_ENVIO_PENDIENTE = 1, LAT_CENSADOR = '${B4XPages.MainPage.lat_gps}', LON_CENSADOR = '${B4XPages.MainPage.lon_gps}', ESTATUS_ORIGINAL = '${cb_activo.tag}', CAT_CL_TELEFONO = '${et_telefono.Text}', CAT_CL_EMAIL = '${et_email.Text}', CAT_CL_EMAIL = '${et_email.Text}', CAMPOS_MODIFICADOS = '${Subs.list2string(camposModificados)}' where CAT_CL_CODIGO In (select cuenta from cuentaa)"$)
 	Log($"CAT_CL_CODIGO = '${la_cuenta.text}', CAT_CL_CEDIS = '${Subs.traeAlmacen}', CAT_CL_LAT = '${l_lat.text}', CAT_CL_LONG = '${l_lon.text}', CAT_CL_SECUENCIA = '${l_secuencia.text}', CAT_CL_RUTA = '${l_ruta.text}', CAT_CL_DIASEMANA = '${cb_diaSemana.SelectedItem}', CAT_CL_GIRO = '${cb_giro.SelectedItem}', CAT_CL_NOMBRE = '${E_NOMBRE_C.text}', CAT_CL_ATIENDE1 = '${et_atiende.text}', CAT_CL_CALLE = '${et_calle.text}', CAT_CL_NOINT = '${et_NoInt.text}', CAT_CL_NOEXT = '${et_NoExt.text}', CAT_CL_CALLE1 = '${et_direccion.text}', CAT_CL_CRUCE1 = '${E_ENTRE1.text}', CAT_CL_CALLE2 = '${E_ENTRE_2.text}', CAT_CL_CP = '${et_cp.text}', CAT_CL_COLONIA = '${et_colonia.text}', CAT_CL_MUNI = '${et_municipio.text}', CAT_CL_EDO = '${et_estado.text}', CAT_CL_ESTATUS = '${CLIENTE_ACTIVO}', gestion = 11"$)
 '	B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO NOVENTA (NV_CLIENTE, NV_FECHA, NV_USER, NV_MOTIVO, NV_COMM, NV_LAT, NV_LON) VALUES(?,?,?,?,?,?,?) ", Array As Object (clie_id, sDate & sTime, usuario, "CENSOS", CLIENTE_ACTIVO, l_lat.text, l_lon.text))
@@ -675,8 +675,8 @@ Private Sub cb_activo_SelectedIndexChanged (Index As Int)
 		CLIENTE_ACTIVO = "Activo"
 	else if Index = 1 Then
 		CLIENTE_ACTIVO = "Inactivo"
-	Else
-		CLIENTE_ACTIVO = "Cerrado Permanente"
+'	Else
+'		CLIENTE_ACTIVO = "Cerrado Permanente"
 	End If
 	Log(CLIENTE_ACTIVO)
 	camposModificados.Add("CAT_CL_ESTATUS")

B4A/C_Principal.bas

@@ -992,6 +992,15 @@ Sub e_ruta_EnterPressed
 		RES =  Msgbox2("Seguro que desea hacer el cierre todos los datos se borraran?","Cierre", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png"))  'ignore
 		If RES = DialogResponse.POSITIVE Then
 			e_ruta.Text = ""
+			DateTime.DateFormat = "MM/dd/yyyy"
+			sDate=DateTime.Date(DateTime.Now)
+			sTime=DateTime.Time(DateTime.Now)
+			cmd.Initialize
+			cmd.Name ="insert_drop_MARDS_3"
+			Log(Subs.traeRuta)
+			cmd.Parameters = Array As Object(usuario,Subs.traeRuta,sDate&sTime,"CENSOS",sTime,"","","","","FIN DIA",ALMACEN,Application.VersionName)
+			B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "ins_drop")
+			mapTiempos.Put($"ins_drop"$, DateTime.now)
 			B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente")
 			B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido")
 			B4XPages.MainPage.skmt.ExecNonQuery("delete from noventa")
@@ -1008,6 +1017,7 @@ Sub e_ruta_EnterPressed
 			B4XPages.MainPage.skmt.ExecNonQuery("INSERT INTO HIST_STAY_OUT(HSO_INI, HSO_FIN) VALUES (0,0)")
 			B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_CODIGO_BARRAS")
 			B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_FOTO_CLIENTE")
+			
 			'Borramos las fotos del directorio promotoriakmts y reducciones.
 			If File.Exists(File.DirInternal, "/promotoriakmts") Then
 				Private MyList As List = File.ListFiles(File.DirInternal & "/promotoriakmts")

B4A/Mariana Censos.b4a

@@ -755,7 +755,7 @@ Version=12.8
 #Region  Project Attributes 
 	#ApplicationLabel: Mariana Censos
 	#VersionCode: 1
-	#VersionName: 5.02.17
+	#VersionName: 5.03.02
 	'SupportedOrientations possible values: unspecified, landscape or portrait.
 	#SupportedOrientations: portrait
 	#CanInstallToExternalStorage: False

B4A/Mariana Censos.b4a.meta

@@ -49,6 +49,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=1
 ModuleClosedNodes9=1
-NavigationStack=Diseñador Visual,cliente.bal,-100,1,Diseñador Visual,clienteDatos.bal,-100,1,C_Cliente,NUEVO_Click,409,0,C_Cliente,b_guardaCambios_Click,405,0,C_Cliente,p_cliente_Click,413,0,C_NuevoCliente,Class_Globals,0,0,C_NuevoCliente,B4XPage_Created,82,0,C_NuevoCliente,b_guardar_Click,278,0,C_NuevoCliente,mandaPendientesNuevosClientes,512,1,C_Cliente,mandaPendientes,443,1
+NavigationStack=C_NuevoCliente,mandaPendientesNuevosClientes,502,1,C_Principal,e_ruta_EnterPressed,993,6,Subs,traeRuta,663,0,C_Cliente,cb_activo_SelectedIndexChanged,671,0,C_Cliente,b_guardaCambios_Click,397,0,C_Cliente,B4XPage_CloseRequest,390,0,C_Principal,cargar_Click,507,0,C_Principal,JobDone,634,0,MAPA_RUTAS,MapFragment1_Ready,202,0,C_Cliente,B4XPage_Appear,287,0
 SelectedBuild=0
 VisibleModules=2,14,9,4,8,15,7,16,13,5