From 6b157eb4da0ae4cac3b65b2a12f6248405ba11b6 Mon Sep 17 00:00:00 2001 From: cvaldes1201 Date: Thu, 7 Sep 2023 14:46:37 -0600 Subject: [PATCH] .. --- B4A/C_Principal.bas | 54 +++++++++++++++++++++++++++++++++++++++++++++ B4A/Mariana.b4a | 2 +- B4A/Starter.bas | 2 +- B4A/Subs.bas | 1 + 4 files changed, 57 insertions(+), 2 deletions(-) diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index 44372fa..8d4ac66 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -302,6 +302,7 @@ Private Sub B4XPage_Created (Root1 As B4XView) End Sub Sub B4XPage_Appear + nvo_cliente.Enabled = False HORAINGRESO ="000000" Btn_Ubicar.Left = (Root.Width/2) - (Btn_Ubicar.Width/2) ' B4XPages.MainPage.reqManager.Initialize(Me, B4XPages.MainPage.SERVER) @@ -452,6 +453,17 @@ Sub B4XPage_Appear c.Close '/////// CallSub(Starter, "ENVIA_ULTIMA_GPS") + + c=B4XPages.MainPage.skmt.ExecQuery("select AUTORIZADO from BANDERA") + c.Position = 0 + If c.RowCount > 0 Then + If c.GetString("AUTORIZADO") = "0" Then + nvo_cliente.Enabled = False + Else if c.GetString("AUTORIZADO") = "1" Then + nvo_cliente.Enabled = True + End If + End If + c.Close End Sub Sub Subir_Click @@ -745,6 +757,7 @@ Sub cargar_Click B4XPages.MainPage.skmt.ExecNonQuery("delete from kmt_info") B4XPages.MainPage.skmt.ExecNonQuery("delete from cod_result") + B4XPages.MainPage.skmt.ExecNonQuery("delete from BANDERA") B4XPages.MainPage.skmt.ExecNonQuery("delete from hist_gest") B4XPages.MainPage.skmt.ExecNonQuery("delete from cat_gunaprod") B4XPages.MainPage.skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ") @@ -794,6 +807,16 @@ Sub cargar_Click cmd.Parameters = Array As Object(ALMACEN) B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "gunaprod") + cmd.Initialize + cmd.Name = "select_cat_bandera_MARDS" + cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) + B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "bandera") + + cmd.Initialize + cmd.Name = "select_cat_GIRO_MARDS" + cmd.Parameters = Array As Object(ALMACEN) + B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "giro") + ' cmd.Initialize ' cmd.Name = "select_resum_apk_INTMEX" ''' va el nombre de archivo de config ' cmd.Parameters = Array As Object(ALMACEN) @@ -973,6 +996,37 @@ Sub JobDone(Job As HttpJob) Log("***************** "&n) End If End If + + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job) + If RESULT.Tag = "bandera" Then 'query tag + For Each records() As Object In RESULT.Rows + Dim aurotizado As String = records(RESULT.Columns.Get("CAT_RU_B_ALTA_CLIENTES")) + + B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO BANDERA(AUTORIZADO) VALUES (?)", Array As Object (aurotizado)) + Next + If PB2.Progress = 0 Then + PB2.Progress = 30 + S_CP.Text = "CARGANDO" + ELSE If PB2.Progress = 30 Then + PB2.Progress = 60 + ELSE IF PB2.Progress = 60 Then + PB2.Progress = 100 + S_CP.Text = "LISTO" + End If + Listo3 =1 + If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then + B4XPage_Appear + img2.Visible=False + EJECUTANDO=0 + Else If Listo4 = 1 And Listo3 = 1 And inve = 1 Then + B4XPage_Appear + img2.Visible=False + EJECUTANDO=0 + End If + + End If + End If If Job.JobName = "DBRequest" Then Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job) diff --git a/B4A/Mariana.b4a b/B4A/Mariana.b4a index fb9866d..2ea30f4 100644 --- a/B4A/Mariana.b4a +++ b/B4A/Mariana.b4a @@ -749,7 +749,7 @@ Module9=C_NoVenta NumberOfFiles=347 NumberOfLibraries=29 NumberOfModules=22 -Version=12.2 +Version=12.5 @EndOfDesignText@ #Region Project Attributes #ApplicationLabel: Mariana diff --git a/B4A/Starter.bas b/B4A/Starter.bas index bc115b4..32490d1 100644 --- a/B4A/Starter.bas +++ b/B4A/Starter.bas @@ -18,7 +18,7 @@ Sub Process_Globals Public FLP As FusedLocationProvider ' Private flpStarted As Boolean Dim reqManager As DBRequestManager - Dim server As String = "http://11.0.0.99:1782" + Dim server As String = "http://11.0.0.253:1782" ' Dim server As String = "http://187.189.244.154:1783" ' Dim server As String = "http://10.0.0.205:1782" ' Dim server As String = "http://11.0.0.231:1782" diff --git a/B4A/Subs.bas b/B4A/Subs.bas index 4db2299..ebc7547 100644 --- a/B4A/Subs.bas +++ b/B4A/Subs.bas @@ -202,6 +202,7 @@ Sub revisaBD 'ignore kmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_AVANCE(HA_MARCA TEXT, HA_AVANCE TEXT, HA_OBJETIVO TEXT, HA_PORCENTAJE TEXT)") 'Historico avance mes actual kmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_FOTO_CLIENTE(CODIGO TEXT, ALMACEN TEXT, RUTA TEXT, NOM_FOTO TEXT)") kmt.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)") + kmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS BANDERA(AUTORIZADO TEXT)") Try 'Si no existe la columna PC_ENVIO_OK la agregamos. kmt.ExecQuery("select count(PC_ENVIO_OK) from PEDIDO_CLIENTE") Catch