From 9b5c409c9fd9c41df20bdba3f2f6bbd61ed4995c Mon Sep 17 00:00:00 2001 From: Javier Date: Fri, 28 Nov 2025 11:29:33 -0600 Subject: [PATCH] SE MEDIO AGREGA LO DE CLIENTES NUEVOS --- B4A/B4XMainPage.bas | 1 + B4A/C_NuevoCliente.bas | 2 +- B4A/C_Principal.bas | 34 ++++++++++++++++++++++++---------- B4A/INTMEX.b4a.meta | 4 ++-- 4 files changed, 28 insertions(+), 13 deletions(-) diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index b832e1f..a25b5b6 100644 --- a/B4A/B4XMainPage.bas +++ b/B4A/B4XMainPage.bas @@ -158,6 +158,7 @@ Private Sub B4XPage_Created (Root1 As B4XView) Subs.guardaAppInfo(skmt) skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_GIRO(GIRO TEXT)") + skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CN(ACTIVO TEXT)") skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CLIENTES_NUEVOS(CN_ID TEXT, CN_FECHA TEXT, CN_USER TEXT, CN_LAT TEXT, CN_LON TEXT, CN_NOMBRE TEXT, CN_DIRECCION TEXT, CN_FOTO TEXT, CN_ALMACEN TEXT, CN_RUTA TEXT,CN_GIRO TEXT)") skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_CUOTAS (HC_META6 TEXT, HC_META5 TEXT, HC_META4 TEXT, HC_META3 TEXT, HC_META2 TEXT, HC_META1 TEXT, HC_RUTA TEXT, HC_CUOTA1 TEXT, HC_CUOTA2 TEXT, HC_CUOTA3 TEXT, HC_CUOTA4 TEXT, HC_CUOTA5 TEXT, HC_CUOTA6 TEXT)") diff --git a/B4A/C_NuevoCliente.bas b/B4A/C_NuevoCliente.bas index 51e7c3d..a83d114 100644 --- a/B4A/C_NuevoCliente.bas +++ b/B4A/C_NuevoCliente.bas @@ -389,7 +389,7 @@ Sub GUARDA_Click c = Starter.skmt.ExecQuery("select CAT_CL_RUTA FROM kmt_info") c.Position = 0 no_ruta = c.GetString("CAT_CL_RUTA") - no_cliente = "N" & sTime & no_ruta + no_cliente = "N" & sTime & no_ruta Log("++ ++ no_cliente = "&no_cliente) c.Close diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index c96e82a..9c9aa07 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -979,6 +979,10 @@ Sub cargar_Click cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) reqManager.ExecuteQuery(cmd , 0, "kmt_datos") + cmd.Initialize + cmd.Name = "select_cn_INTMEX" + cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) + reqManager.ExecuteQuery(cmd , 0, "cn") '' cambiar cmd.Initialize @@ -1485,17 +1489,27 @@ Sub JobDone(Job As HttpJob) End If End If - If Job.JobName = "DBRequest" Then - Dim RESULT As DBResult = reqManager.HandleJob(Job) - If RESULT.Tag = "cat_verificacion" Then 'query tag - For Each records() As Object In RESULT.Rows - Dim CAT_VE_IDPROD As String = records(RESULT.Columns.Get("CAT_VE_IDPROD")) - Dim CAT_VE_NOMBRE As String = records(RESULT.Columns.Get("CAT_VE_NOMBRE")) - Dim CAT_VE_ORDEN As String = records(RESULT.Columns.Get("CAT_VE_ORDEN")) - B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VERIFICACION(CAT_VE_IDPROD, CAT_VE_NOMBRE,CAT_VE_ORDEN) VALUES (?,?,?)", Array As Object (CAT_VE_IDPROD, CAT_VE_NOMBRE,CAT_VE_ORDEN)) - Next + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = reqManager.HandleJob(Job) + If RESULT.Tag = "cat_verificacion" Then 'query tag + For Each records() As Object In RESULT.Rows + Dim CAT_VE_IDPROD As String = records(RESULT.Columns.Get("CAT_VE_IDPROD")) + Dim CAT_VE_NOMBRE As String = records(RESULT.Columns.Get("CAT_VE_NOMBRE")) + Dim CAT_VE_ORDEN As String = records(RESULT.Columns.Get("CAT_VE_ORDEN")) + B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VERIFICACION(CAT_VE_IDPROD, CAT_VE_NOMBRE,CAT_VE_ORDEN) VALUES (?,?,?)", Array As Object (CAT_VE_IDPROD, CAT_VE_NOMBRE,CAT_VE_ORDEN)) + Next + End If + End If + + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = reqManager.HandleJob(Job) + If RESULT.Tag = "cn" Then 'query tag + For Each records() As Object In RESULT.Rows + Dim CAT_RU_CN As String = records(RESULT.Columns.Get("CAT_RU_CN")) + B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CN(ACTIVO) VALUES (?)", Array As Object (CAT_RU_CN)) + Next + End If End If - End If If Job.JobName = "DBRequest" Then Dim RESULT As DBResult = reqManager.HandleJob(Job) diff --git a/B4A/INTMEX.b4a.meta b/B4A/INTMEX.b4a.meta index 3615058..1213c7d 100644 --- a/B4A/INTMEX.b4a.meta +++ b/B4A/INTMEX.b4a.meta @@ -91,6 +91,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=B4XMainPage,B4XPage_Created,161,2,Subs,decompress,73,0,Subs,traeRuta2,73,0,C_Principal,JobDone,1211,0,C_Principal,checaPedido,2806,2,C_Cliente,l_telefono_LongClick,1691,0,Diseñador Visual,cliente.bal,-100,4,C_Cliente,Label16_LongClick,1738,0,C_Cliente,b_aceptelefono_Click,1721,6,C_Cliente,mandaPendientes,1268,2,C_NuevoCliente,GUARDA_Click,385,0 +NavigationStack=C_Principal,checaPedido,2806,2,C_Cliente,l_telefono_LongClick,1691,0,Diseñador Visual,cliente.bal,-100,4,C_Cliente,Label16_LongClick,1738,0,C_Cliente,b_aceptelefono_Click,1721,6,C_Cliente,mandaPendientes,1268,2,C_NuevoCliente,GUARDA_Click,385,0,B4XMainPage,B4XPage_Created,104,2,C_Principal,Class_Globals,0,0,C_Principal,cargar_Click,1039,1,C_Principal,JobDone,1483,3 SelectedBuild=0 -VisibleModules=28,2,13,20,14,29,17,15,9,4,11 +VisibleModules=28,2,13,20,14,29,17,15,9,4