From 75ac8e75af076fe07192f512cd44e05e75e86b68 Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Tue, 4 Mar 2025 16:17:36 -0600 Subject: [PATCH] - VERSION 5.03.02 - Se quito "Cerrado Permanente" --- B4A/C_Cliente.bas | 6 +++--- B4A/C_Principal.bas | 10 ++++++++++ B4A/Mariana Censos.b4a | 2 +- B4A/Mariana Censos.b4a.meta | 2 +- 4 files changed, 15 insertions(+), 5 deletions(-) diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index 64baf79..c27058a 100644 --- a/B4A/C_Cliente.bas +++ b/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") diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index 4608e64..4effec7 100644 --- a/B4A/C_Principal.bas +++ b/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") diff --git a/B4A/Mariana Censos.b4a b/B4A/Mariana Censos.b4a index 4dd3dfd..fe72a2b 100644 --- a/B4A/Mariana Censos.b4a +++ b/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 diff --git a/B4A/Mariana Censos.b4a.meta b/B4A/Mariana Censos.b4a.meta index 4aa3be5..14e2d52 100644 --- a/B4A/Mariana Censos.b4a.meta +++ b/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