From c600d9e04482eb56e0dc4bf1385598f368b56c5f Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Thu, 15 Feb 2024 09:18:55 -0600 Subject: [PATCH] Correcion de et_atiendce = cat_cl_atiende --- B4A/C_Clientes.bas | 8 ++++---- B4A/C_NuevoCliente.bas | 6 +++--- B4A/Mariana Censos.b4a | 2 +- B4A/Mariana Censos.b4a.meta | 2 +- 4 files changed, 9 insertions(+), 9 deletions(-) diff --git a/B4A/C_Clientes.bas b/B4A/C_Clientes.bas index 3b4c278..f2f865e 100644 --- a/B4A/C_Clientes.bas +++ b/B4A/C_Clientes.bas @@ -203,7 +203,7 @@ Sub BUSCA_TextChanged (Old As String, New As String) If Old <> "" And New <> "" Then ' Log("BUSCA_TEXTCHANGED") q_buscar = "%" & busca.Text & "%" - c2=B4XPages.MainPage.skmt.ExecQuery2("select CAT_CL_NOMBRE, CAT_CL_CALLE, CAT_CL_CODIGO from kmt_info where (CAT_CL_NOMBRE like ? OR CAT_CL_CODIGO LIKE ? OR CAT_CL_CALLE LIKE ?)and gestion = 0 order by CAT_CL_NOMBRE ", Array As String(q_buscar,q_buscar,q_buscar)) + c2=B4XPages.MainPage.skmt.ExecQuery2("select CAT_CL_NOMBRE, CAT_CL_CALLE, CAT_CL_CODIGO from kmt_info where (CAT_CL_NOMBRE like ? OR CAT_CL_CODIGO LIKE ? OR CAT_CL_CALLE LIKE ?)and gestion = 0 order by CAT_CL_NOMBRE ", Array As String(q_buscar,q_buscar,q_buscar)) ' ListView1.Clear clv_clientes.Clear lfila.text = "Nombre y Calle" @@ -239,10 +239,10 @@ End Sub Sub sc_result(atype As String,Values As String) CODIGO = Values - c2=B4XPages.MainPage.skmt.ExecQuery2("select COUNT(*) AS ENCONTRADO from kmt_info where CAT_CL_NUM_SERIEFISICO = ? order by CAT_CL_NOMBRE ", Array As String(CODIGO)) + c2=B4XPages.MainPage.skmt.ExecQuery2("select COUNT(*) AS ENCONTRADO from kmt_info where CAT_CL_NUM_SERIEFISICO = ? order by CAT_CL_NOMBRE ", Array As String(CODIGO)) c2.Position =0 If c2.GetString("ENCONTRADO") > 0 Then - s=B4XPages.MainPage.skmt.ExecQuery2("select CAT_CL_CODIGO from kmt_info where CAT_CL_NUM_SERIEFISICO = ? order by CAT_CL_NOMBRE ", Array As String(CODIGO)) + s=B4XPages.MainPage.skmt.ExecQuery2("select CAT_CL_CODIGO from kmt_info where CAT_CL_NUM_SERIEFISICO = ? order by CAT_CL_NOMBRE ", Array As String(CODIGO)) s.Position =0 B4XPages.MainPage.skmt.ExecNonQuery("delete from CUENTAA") B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object(s.GetString("CAT_CL_CODIGO"))) @@ -258,7 +258,7 @@ Sub sc_noScan Log("nothing returned from the scan !!!!!") End Sub -Sub calc_ean_checksum(number As String) As String 'this has now become redundant as I am only interested in QR Codes +Sub calc_ean_checksum(number As String) As String 'this has now become redundant as I am only interested in QR Codes Dim i As Int Dim cO As Char Dim soma As Int diff --git a/B4A/C_NuevoCliente.bas b/B4A/C_NuevoCliente.bas index 4fbd824..2f9b70b 100644 --- a/B4A/C_NuevoCliente.bas +++ b/B4A/C_NuevoCliente.bas @@ -136,7 +136,7 @@ Sub B4XPage_Appear elOtroCliente = cc.GetString("CAT_CL_CODIGO") et_nombre.Text = cc.GetString("CAT_CL_NOMBRE") et_direccion.Text = cc.GetString("CAT_CL_CALLE1") - et_atiende.Text = cc.GetString("CAT_CL_NOMBRE") + et_atiende.Text = cc.GetString("CAT_CL_ATIENDE1") et_telefono.Text = cc.GetString("CAT_CL_TELEFONO") et_email.Text = cc.GetString("CAT_CL_EMAIL") Log($"${losGiros.IndexOf(cc.GetString("CAT_CL_GIRO"))}, ${losGiros}, ${cc.GetString("CAT_CL_GIRO")}"$) @@ -494,13 +494,13 @@ Sub mandaPendientesNuevosClientes ' Log($"${Dirp&Dir&Dir2},${c.GetString("NOM_FOTO")}"$) fotox = Null ' 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"))) + 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")) + 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, c.GetString("CAT_CL_GIRO"), 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}"$) 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 345bf23..52b3194 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.13 + #VersionName: 4.02.14.1 '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 7e8001f..336053b 100644 --- a/B4A/Mariana Censos.b4a.meta +++ b/B4A/Mariana Censos.b4a.meta @@ -49,6 +49,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8=9,13,14,17,18 ModuleClosedNodes9=1 -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 +NavigationStack=C_NuevoCliente,Class_Globals,30,0,C_NuevoCliente,B4XPage_Appear,132,0,Visual Designer,nuevoClienteDatos.bal,-100,6,C_Clientes,Mods,0,0,C_Clientes,BUSCA_TextChanged,202,0,C_Clientes,sc_result,239,0,C_Clientes,calc_ean_checksum,254,0,C_Cliente,B4XPage_Appear,305,0,Main,Process_Globals,18,0,C_NuevoCliente,cb_giro_SelectedIndexChanged,512,0,C_Cliente,b_guardaCambios_Click,388,0 SelectedBuild=0 VisibleModules=2,14,6,9,4,8,5,15,7,16