From 835bdf834629ffe35ce2d274940cab1e30c71caf Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Wed, 14 Feb 2024 15:13:49 -0600 Subject: [PATCH] Correccionde envio sin foto!! --- B4A/C_NuevoCliente.bas | 7 ++++--- B4A/Mariana Censos.b4a | 2 +- B4A/Mariana Censos.b4a.meta | 4 ++-- 3 files changed, 7 insertions(+), 6 deletions(-) diff --git a/B4A/C_NuevoCliente.bas b/B4A/C_NuevoCliente.bas index dace110..4fbd824 100644 --- a/B4A/C_NuevoCliente.bas +++ b/B4A/C_NuevoCliente.bas @@ -267,7 +267,7 @@ Sub b_guardar_Click Private DateNC As String = DateTime.Date(DateTime.Now) If cargarCliente Then camposModificados = Subs.RemoveDuplicates(camposModificados) - B4XPages.MainPage.skmt.ExecNonQuery($"UPDATE kmt_info set CAT_CL_CODIGO = '${no_cliente}', CAT_CL_CEDIS = '${Subs.traeAlmacen}', + B4XPages.MainPage.skmt.ExecNonQuery($"UPDATE kmt_info set CAT_CL_CODIGO = '${no_cliente}', CAT_CL_CEDIS = '${Subs.traeAlmacen}', CAT_CL_TELEFONO = '${et_telefono.text}', CAT_CL_EMAIL = '${et_email.text}', CAT_CL_ATIENDE1 = '${et_atiende.Text}', CAT_CL_LAT = '${B4XPages.MainPage.lat_gps}', CAT_CL_LONG = '${B4XPages.MainPage.lon_gps}', CAT_CL_GIRO = '${cb_giro.SelectedItem}', CAT_CL_NOMBRE = '${Subs.escapeSQLString(et_nombre.Text)}', CAT_CL_CALLE1 = '${Subs.escapeSQLString(et_direccion.text)}', CAT_CL_ENVIO_PENDIENTE = 1, LAT_CENSADOR = '${B4XPages.MainPage.lat_gps}', LON_CENSADOR = '${B4XPages.MainPage.lon_gps}', CAMPOS_MODIFICADOS = '${Subs.list2string(camposModificados)}' where CAT_CL_CODIGO In (select cuenta from cuentaa)"$) Else @@ -493,14 +493,15 @@ Sub mandaPendientesNuevosClientes ' Log(File.Exists(Dirp&Dir&Dir2,c.GetString("NOM_FOTO"))) ' Log($"${Dirp&Dir&Dir2},${c.GetString("NOM_FOTO")}"$) fotox = Null - If File.Exists(Dirp&Dir&Dir2,c.GetString("NOM_FOTO")) Then fotox = Bit.InputStreamToBytes(File.OpenInput(Dirp&Dir&Dir2,c.GetString("NOM_FOTO"))) +' Log($"${Dirp}${Dir}${Dir2},${c.GetString("NOM_FOTO")}"$) + If c.GetString("NOM_FOTO")<> Null And c.GetString("NOM_FOTO")<> "null" And File.Exists(Dirp&Dir&Dir2,c.GetString("NOM_FOTO")) Then fotox = Bit.InputStreamToBytes(File.OpenInput(Dirp&Dir&Dir2,c.GetString("NOM_FOTO"))) Dim cmd As DBCommand cmd.Initialize cmd.Name = "guardaClienteNuevo2_MARDS" ' Log(">>>>>>> TMP_CLIENTES_CENSOS") ' TMP_ALMACENID, TMP_RUTA, TMP_USUARIO, TMP_ID_CLIENTE, TMP_NOMBRE, TMP_DOMICILIO, TMP_FECHA_CAPTURA_MOVIL, TMP_FECHA_SINCRONIZACION, TMP_LATITUD, TMP_LONGITUD cmd.Parameters = Array As Object(Subs.traeAlmacen, c.GetString("CAT_CL_RUTA"), Subs.traeUsuarioDeBD, c.GetString("CAT_CL_CODIGO"), c.GetString("CAT_CL_NOMBRE"), c.GetString("CAT_CL_CALLE1"), c.GetString("CAT_CL_FECHA_CAPTURA"), sDateP, c.GetString("CAT_CL_LAT"), c.GetString("CAT_CL_LONG"), fotox, elGiro, Starter.dia_semana, c.GetString("CAT_CL_TELEFONO"), c.GetString("CAT_CL_EMAIL"), cuestionarioTexto, c.GetString("CAT_CL_ATIENDE1")) -' Log($"${c.GetString("CAT_CL_CODIGO")}, ${Subs.traeAlmacen}, ${c.GetString("CAT_CL_LAT")}, ${c.GetString("CAT_CL_LONG")}, ${c.GetString("CAT_CL_SECUENCIA")}, ${c.GetString("CAT_CL_RUTA")}, ${c.GetString("CAT_CL_DIASEMANA")}, ${c.GetString("CAT_CL_GIRO")}, ${c.GetString("CAT_CL_NOMBRE")}, ${c.GetString("CAT_CL_ATIENDE1")}, ${c.GetString("CAT_CL_CALLE")}, ${c.GetString("CAT_CL_NOINT")}, ${c.GetString("CAT_CL_NOEXT")}, ${c.GetString("CAT_CL_CALLE1")}, ${c.GetString("CAT_CL_CRUCE1")}, ${c.GetString("CAT_CL_CALLE2")}, ${c.GetString("CAT_CL_CP")}, ${c.GetString("CAT_CL_COLONIA")}, ${c.GetString("CAT_CL_MUNI")}, ${c.GetString("CAT_CL_EDO")}, ${c.GetString("CAT_CL_ESTATUS")}, ${c.GetString("CAT_CL_FECHA_CAPTURA")}, ${sDate}, ${Subs.traeUsuarioDeBD}"$) + Log($"${c.GetString("CAT_CL_CODIGO")}, ${Subs.traeAlmacen}, ${c.GetString("CAT_CL_LAT")}, ${c.GetString("CAT_CL_LONG")}, ${c.GetString("CAT_CL_SECUENCIA")}, ${c.GetString("CAT_CL_RUTA")}, ${c.GetString("CAT_CL_DIASEMANA")}, ${c.GetString("CAT_CL_GIRO")}, ${c.GetString("CAT_CL_NOMBRE")}, ${c.GetString("CAT_CL_ATIENDE1")}, ${c.GetString("CAT_CL_CALLE")}, ${c.GetString("CAT_CL_NOINT")}, ${c.GetString("CAT_CL_NOEXT")}, ${c.GetString("CAT_CL_CALLE1")}, ${c.GetString("CAT_CL_CRUCE1")}, ${c.GetString("CAT_CL_CALLE2")}, ${c.GetString("CAT_CL_CP")}, ${c.GetString("CAT_CL_COLONIA")}, ${c.GetString("CAT_CL_MUNI")}, ${c.GetString("CAT_CL_EDO")}, ${c.GetString("CAT_CL_ESTATUS")}, ${c.GetString("CAT_CL_FECHA_CAPTURA")}, ${sDate}, ${Subs.traeUsuarioDeBD}"$) LogColor(c.GetString("CAT_CL_CODIGO"),Colors.DarkGray) reqManager.ExecuteCommand(cmd , $"guardaClienteNuevo_${c.GetString("CAT_CL_CODIGO")}"$) diff --git a/B4A/Mariana Censos.b4a b/B4A/Mariana Censos.b4a index 6799a99..345bf23 100644 --- a/B4A/Mariana Censos.b4a +++ b/B4A/Mariana Censos.b4a @@ -753,7 +753,7 @@ Version=12.8 #Region Project Attributes #ApplicationLabel: Mariana Censos #VersionCode: 1 - #VersionName: 4.02.12 + #VersionName: 4.02.13 '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 00c8715..7e8001f 100644 --- a/B4A/Mariana Censos.b4a.meta +++ b/B4A/Mariana Censos.b4a.meta @@ -47,8 +47,8 @@ ModuleClosedNodes4=7,10,11,14,15,16,17,18,20,21,27,28,29,30,31,32,33,34,35,36,37 ModuleClosedNodes5= ModuleClosedNodes6= ModuleClosedNodes7= -ModuleClosedNodes8=9,13,14,17 +ModuleClosedNodes8=9,13,14,17,18 ModuleClosedNodes9=1 -NavigationStack=C_Principal,Class_Globals,0,0,C_Principal,cargar_Click,508,0,C_NuevoCliente,Class_Globals,22,0,C_NuevoCliente,B4XPage_Appear,113,0,Subs,agregaColumna,1254,0,Subs,traeGirosLista,1280,6,Subs,escapeSQLString,1263,0,C_Principal,JobDone,637,6,C_Cliente,B4XPage_Appear,226,0,C_Principal,B4XPage_Appear,379,0 +NavigationStack=Visual Designer,cliente.bal,-100,1,C_Cliente,b_guardaCambios_Click,380,0,Visual Designer,clienteDatos.bal,-100,2,Visual Designer,nuevocliente.bal,-100,1,C_Cliente,mandaPendientes,438,0,Main,Globals,22,0,Main,Process_Globals,21,0,Visual Designer,nuevoClienteDatos.bal,-100,6,C_NuevoCliente,b_guardar_Click,274,6,C_NuevoCliente,mandaPendientesNuevosClientes,489,6 SelectedBuild=0 VisibleModules=2,14,6,9,4,8,5,15,7,16