From 397cb0fe22f744fb8616c126830802e1f56d53a6 Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Thu, 2 May 2024 23:28:38 -0600 Subject: [PATCH] =?UTF-8?q?-=20Se=20modific=C3=B3=20la=20parte=20de=20Intm?= =?UTF-8?q?ex,=20como=20env=C3=ADa=20y=20como=20valida=20los=20datos.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- B4A/B4XMainPage.bas | 347 ++++++++++++++++++----------------- B4A/C_Intmex.bas | 377 +++++++++++++++++++++++++++++++++++++++ B4A/DBCheck.b4a | 18 +- B4A/DBCheck.b4a.meta | 15 +- B4A/DBRequestManager.bas | 2 +- B4A/Files/mainpage.bal | Bin 25979 -> 26790 bytes B4A/Files/progress.gif | Bin 0 -> 72191 bytes B4A/Subs.bas | 10 ++ 8 files changed, 585 insertions(+), 184 deletions(-) create mode 100644 B4A/C_Intmex.bas create mode 100644 B4A/Files/progress.gif diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index 0d08aa4..61cab71 100644 --- a/B4A/B4XMainPage.bas +++ b/B4A/B4XMainPage.bas @@ -76,11 +76,15 @@ Sub Class_Globals Dim foto1() As Byte Private b_valida As Button Private l_version As Label - Private p_validacion As Panel - Private l_vProds2 As Label - Private l_vPedidos2 As Label - Private l_vNoVenta2 As Label - Private i_progress As B4XGifView + dim p_validacion As Panel + Dim l_vProds2 As Label + Dim l_vPedidos2 As Label + Dim l_vNoVenta2 As Label + Dim i_progress As B4XGifView + Dim in As Intent + Dim intentUsado As Boolean = False + Dim Intmex As C_Intmex + Private l_version0 As Label End Sub Public Sub Initialize @@ -93,7 +97,9 @@ Sub B4XPage_Created (Root1 As B4XView) Root.LoadLayout("MainPage") i_progress.SetGif(File.DirAssets, "progress.gif") l_version.Text = Application.VersionName + l_version0.Text = Application.VersionName p_principal.Width = Root.Width : p_principal.Height = Root.Height + l_version0.Top = Root.Height - 60dip Subs.centraPanel(p_datos, Root.Width) Subs.centraPanel(p_validacion, Root.Width) p_validacion.Top = l_diasVenta.Top @@ -117,14 +123,17 @@ Sub B4XPage_Created (Root1 As B4XView) sp_empresa.Add("Intmex") sp_empresa.Add("Mariana") i_engrane.Left = Root.Width - i_engrane.Width - 5dip + Intmex.Initialize End Sub 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage. Sub B4XPage_Appear Log("INICIO") - Dim in As Intent = B4XPages.GetNativeParent(Me).GetStartingIntent - If in <> Null Then + If Not(in.IsInitialized) Then in = B4XPages.GetNativeParent(Me).GetStartingIntent + If Not(intentUsado) And in <> Null Then + Log(in) + intentUsado = True ' Log(in.GetData) If in.GetData <> Null Then Dim XmlData As String @@ -136,8 +145,9 @@ Sub B4XPage_Appear Dim OutStr As OutputStream = File.OpenOutput(File.DirInternal,"kmt.db",False) Dim InStr As InputStream = File.OpenInput("ContentDir",XmlData) File.Copy2(InStr,OutStr) - Log("BD copiada a interna.") + LogColor("BD copiada a interna.", Colors.Blue) OutStr.Close + If in.As(String).Contains("whatsapp") Then B4XPages.SetTitle(Me, "BD cargada desde Whatsapp") Catch Log(LastException) End Try @@ -172,6 +182,11 @@ Sub B4XPage_Appear l_pedidos2.Text = c.GetString("pedidos") l_diasVenta.Text = "N/A" If c.GetString("diasVenta") <> Null Then l_diasVenta.Text = c.GetString("diasVenta") + If c.GetString("diasVenta").Length > 2 Then + l_diasVenta.TextColor = Colors.Red + Else + l_diasVenta.TextColor = Colors.Black + End If If c.GetString("total") <> Null Then l_totalVenta.Text = "$" & NumberFormat2(c.GetString("total"), 1, 2, 2, True) Else l_totalVenta.Text = "0" l_cantsEnCero.Text = "0" If c.GetString("cantsEnCero") <> Null Then l_cantsEnCero.Text = c.GetString("cantsEnCero") @@ -227,18 +242,25 @@ Sub B4XPage_Appear Log(LastException) End Try ' b_enviar.Enabled = False - If empresa.ToUpperCase = "MARIANA" Then + + Log(empresa) + p_empresa.Visible = False + + If empresa.ToUpperCase.Contains("MARIANA") Then b_enviar.Text = "Enviar Mariana" b_valida.Text = "Validar Mariana" + Log("Cargamos MARIANA") b_enviar.Enabled = True - else if empresa.ToUpperCase = "GUNA" Then + else if empresa.ToUpperCase.Contains("GUNA") Then b_enviar.Text = "Enviar Guna" b_valida.Text = "Validar Guna" b_enviar.Enabled = True - else if empresa.ToUpperCase = "INTMEX" Then + Log("Cargamos GUNA") + else if empresa.ToUpperCase.Contains("INTMEX") Then b_enviar.Text = "Enviar Intmex" b_valida.Text = "Validar Intmex" b_enviar.Enabled = True + Log("Cargamos INTMEX") Else p_empresa.Visible = True b_enviar.Enabled = False @@ -253,11 +275,11 @@ Sub b_enviar_Click B4XPages.MainPage.p_progressDialog.Visible = True B4XPages.MainPage.p_progressDialog.BringToFront reqManager.reqsList.Initialize 'inicializamos lista de requests. - If empresa.ToUpperCase = "MARIANA" Then + If empresa.ToUpperCase.Contains("MARIANA") Then envioMariana - else if empresa.ToUpperCase = "GUNA" Then + else if empresa.ToUpperCase.Contains("GUNA") Then envioGuna - else if empresa.ToUpperCase = "INTMEX" Then + else if empresa.ToUpperCase.Contains("INTMEX") Then envioIntmex End If ' Sleep(5000) @@ -380,6 +402,9 @@ Sub b_cargarBD_Click p_editaRuta.Visible = False File.Copy(Result.Dir, Result.FileName, File.DirInternal, "kmt.db") 'Copia la base de datos seleccionada al directorio interno. skmt.Initialize(File.DirInternal,"kmt.db", True) 'Reiniciliza la base de datos con la recien importada. + + B4XPage_Appear + ToastMessageShow("¡BD importada!", False) End If End Sub @@ -633,155 +658,142 @@ Sub envioMariana 'ignore End Sub Sub envioIntmex 'ignore - Private PASO As Int = 1 - reqManager.reqsList.Initialize 'inicializamos lista de requests. - If PASO = 1 Then - B4XPages.MainPage.skmt.ExecNonQuery2("delete from PEDIDO WHERE PE_PRONOMBRE = ? ", Array As Object("N/A") ) - B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE not In (select PE_CLIENTE from pedido)") - ' PEDIO_CLIENTE - c=B4XPages.MainPage.skmt.ExecQuery("SELECT PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT, PC_COSTO_SIN, PC_RUTA, PC_ALMACEN, PC_FACTURA FROM PEDIDO_CLIENTE ") - d=B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDOSC FROM PEDIDO_CLIENTE ") - If c.RowCount>0 Then - For i=0 To c.RowCount -1 - c.Position=i - Dim cmd As DBCommand - cmd.Initialize - cmd.Name = "insert_pedidos_INTMEX" - cmd.Parameters = Array As Object(c.GetString("PC_CLIENTE"), c.GetString("PC_FECHA"), c.GetString("PC_USER"), c.GetString("PC_NOART"), c.GetString("PC_MONTO"), c.GetString("PC_LON"), c.GetString("PC_LAT"), almacen, ruta, c.GetString("PC_COSTO_SIN"), c.GetString("PC_FACTURA")) - B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "ins_pedidos") - Next - End If - c.Close - d.Position=0 - cuantos_pedidosc = D.GetString("CUANTOS_PEDIDOSC") - d.Close + Intmex.envia - ' ENVIO DE LOS CODIGOS QR - 'c=skmt.ExecQuery2("SELECT CAT_CL_NUM_SERIEFISICO,CAT_CL_CODIGO ,CAT_CL_LONG,CAT_CL_LAT, CAT_CL_FOTO FROM kmt_info where CAT_CL_NUM_SERIEFISICO = ?", Array As String("OK")) - - c=B4XPages.MainPage.skmt.ExecQuery("SELECT CODIGOKMTS, CODIGOB, LAT, LON FROM HIST_CODIGO_BARRAS" ) - If c.RowCount>0 Then - For i=0 To c.RowCount -1 - c.Position=i - Dim cmd As DBCommand - cmd.Initialize - cmd.Name = "insert_QR_2_INTMEX" - cmd.Parameters = Array As Object(C.GetString("CODIGOKMTS"), C.GetString("CODIGOB"), C.GetString("LON"), C.GetString("LAT"), almacen, ruta) - B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "ins_QR") - Next - End If - c.Close - - - c=B4XPages.MainPage.skmt.ExecQuery("SELECT CAT_CL_NUM_SERIEFISICO,CAT_CL_CODIGO ,CAT_CL_LONG,CAT_CL_LAT, CAT_CL_FOTO FROM kmt_info where CAT_CL_NUM_SERIEFISICO IS NOT NULL") - If c.RowCount>0 Then - For i=0 To c.RowCount -1 - c.Position=i - foto1 = c.GetBlob("CAT_CL_FOTO") - Dim cmd As DBCommand - cmd.Initialize - cmd.Name = "insert_QR_INTMEX" - cmd.Parameters = Array As Object(C.GetString("CAT_CL_NUM_SERIEFISICO"), C.GetString("CAT_CL_CODIGO"), C.GetString("CAT_CL_LONG"), C.GetString("CAT_CL_LAT"), almacen, ruta, foto1 ) - B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "ins_QR") - Next - End If - c.Close - - c=B4XPages.MainPage.skmt.ExecQuery("SELECT HE_CLIE, HE_RES, HE_FECHA, HE_TIPO FROM HIST_ENCUESTA") - If c.RowCount>0 Then - For i=0 To c.RowCount -1 - c.Position=i - Dim cmd As DBCommand - cmd.Initialize - cmd.Name = "insert_encuesta_INTMEX" - cmd.Parameters = Array As Object(C.GetString("HE_CLIE"),C.GetString("HE_RES"),C.GetString("HE_FECHA"), c.GetString("HE_TIPO")) - B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "inst_noventa") - Next - End If - c.Close - - c=B4XPages.MainPage.skmt.ExecQuery("SELECT PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO, PE_COSTO_SIN, PE_RUTA, PE_DESC, PE_FOLIO FROM PEDIDO") - If c.RowCount>0 Then - For i=0 To c.RowCount -1 - c.Position=i - Dim cmd As DBCommand - cmd.Initialize - cmd.Name = "insert_pedido_INTMEX" - cmd.Parameters = Array As Object(C.GetString("PE_CEDIS"),almacen,C.GetString("PE_COSTO_TOT"),C.GetString("PE_COSTOU"),C.GetString("PE_CANT"),C.GetString("PE_PRONOMBRE"),C.GetString("PE_PROID"),C.GetString("PE_CLIENTE"),C.GetString("PE_FECHA"),C.GetString("PE_USUARIO"),C.GetString("PE_RUTA"), C.GetString("PE_COSTO_SIN"),C.GetString("PE_DESC"),c.GetString("PE_FOLIO")) - B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "ins_pedido") - Next - End If - c.Close - - d=B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDO FROM PEDIDO") - d.Position=0 - cuantos_pedido = D.GetString("CUANTOS_PEDIDO") - d.Close - - ' NOVENTA - c = B4XPages.MainPage.skmt.ExecQuery("SELECT NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON FROM NOVENTA") - If c.RowCount > 0 Then - For i = 0 To c.RowCount -1 - c.Position = i - Dim cmd As DBCommand - cmd.Initialize - cmd.Name = "insert_noventa_INTMEX" - cmd.Parameters = Array As Object(C.GetString("NV_CLIENTE"),C.GetString("NV_FECHA"),C.GetString("NV_USER"),C.GetString("NV_MOTIVO"),C.GetString("NV_COMM"),C.GetString("NV_LAT"),C.GetString("NV_LON"), almacen, ruta) - B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "inst_noventa") - Next - End If - c.Close - - d = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA") - d.Position = 0 - cuantos_noventa = d.GetString("CUANTOS_NOVENTA") - d.Close - - ' GEO CERCA - - c=B4XPages.MainPage.skmt.ExecQuery("Select HGCLIENTE, HGDATE, HGLAT, HGLON from HIST_GEOCERCA") - If c.RowCount>0 Then - For i=0 To c.RowCount -1 - c.Position=i - Dim cmd As DBCommand - cmd.Initialize - cmd.Name = "insert_geocerca_INTMEX" - cmd.Parameters = Array As Object(C.GetString("HGCLIENTE"),C.GetString("HGDATE"),C.GetString("HGLAT"),C.GetString("HGLON")) - B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "inst_noventa") - Next - End If - c.Close - - ' LO DEL LIKE - - c=B4XPages.MainPage.skmt.ExecQuery("Select HFCLIENTE, HFALIAS,HFRUTA,HFALMACEN from HIST_FACE") - If c.RowCount>0 Then - For i=0 To c.RowCount -1 - c.Position=i - Dim cmd As DBCommand - cmd.Initialize - cmd.Name = "insert_face_like_INTMEX" - cmd.Parameters = Array As Object(C.GetString("HFCLIENTE"),C.GetString("HFALIAS"),C.GetString("HFRUTA"),C.GetString("HFALMACEN")) - B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "inst_noventa") - Next - End If - c.Close' - ' DROP -' t1.Initialize("T1", 30000) ' 1000 = 1 second -' t1.Enabled = True -' Dim sDate,sTime As String -' DateTime.DateFormat = "MM/dd/yyyy" -' sDate=DateTime.Date(DateTime.Now) -' sTime=DateTime.Time(DateTime.Now) -' Dim cmd As DBCommand -' cmd.Initialize -' cmd.Name ="insert_drop_INTMEX_2" -' cmd.Parameters = Array As Object(usuario,l_ruta.Text,sDate & sTime, l_porvisitar.Text,l_drop.Text,l_efectiva.Text,l_cuantosc.Text,l_cuantosn.Text, L_MONTOD.Text,"ENVIO",almacen) -' B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "inst_noventa") -' img2.Visible =True -' PORCENTAJE = Round(100/ (cuantos_noventa + cuantos_pedido + cuantos_pedidosc + 1)) -' If Starter.marcaCel <> "Sony" Then ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias "& l_ruta.text , True) - End If +' Private PASO As Int = 1 +' reqManager.reqsList.Initialize 'inicializamos lista de requests. +' If PASO = 1 Then +' B4XPages.MainPage.skmt.ExecNonQuery2("delete from PEDIDO WHERE PE_PRONOMBRE = ? ", Array As Object("N/A") ) +' B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE not In (select PE_CLIENTE from pedido)") +' ' PEDIO_CLIENTE +' c=B4XPages.MainPage.skmt.ExecQuery("SELECT PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT, PC_COSTO_SIN, PC_RUTA, PC_ALMACEN, PC_FACTURA FROM PEDIDO_CLIENTE ") +' d=B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDOSC FROM PEDIDO_CLIENTE ") +' If c.RowCount>0 Then +' For i=0 To c.RowCount -1 +' c.Position=i +' Dim cmd As DBCommand +' cmd.Initialize +' cmd.Name = "insert_pedidos_INTMEX" +' cmd.Parameters = Array As Object(c.GetString("PC_CLIENTE"), c.GetString("PC_FECHA"), c.GetString("PC_USER"), c.GetString("PC_NOART"), c.GetString("PC_MONTO"), c.GetString("PC_LON"), c.GetString("PC_LAT"), almacen, ruta, c.GetString("PC_COSTO_SIN"), c.GetString("PC_FACTURA")) +' B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "ins_pedidos") +' Next +' End If +' c.Close +' d.Position=0 +' cuantos_pedidosc = D.GetString("CUANTOS_PEDIDOSC") +' d.Close +' +' ' ENVIO DE LOS CODIGOS QR +' 'c=skmt.ExecQuery2("SELECT CAT_CL_NUM_SERIEFISICO,CAT_CL_CODIGO ,CAT_CL_LONG,CAT_CL_LAT, CAT_CL_FOTO FROM kmt_info where CAT_CL_NUM_SERIEFISICO = ?", Array As String("OK")) +' +' c=B4XPages.MainPage.skmt.ExecQuery("SELECT CODIGOKMTS, CODIGOB, LAT, LON FROM HIST_CODIGO_BARRAS" ) +' If c.RowCount>0 Then +' For i=0 To c.RowCount -1 +' c.Position=i +' Dim cmd As DBCommand +' cmd.Initialize +' cmd.Name = "insert_QR_2_INTMEX" +' cmd.Parameters = Array As Object(C.GetString("CODIGOKMTS"), C.GetString("CODIGOB"), C.GetString("LON"), C.GetString("LAT"), almacen, ruta) +' B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "ins_QR") +' Next +' End If +' c.Close +' +' +' c=B4XPages.MainPage.skmt.ExecQuery("SELECT CAT_CL_NUM_SERIEFISICO,CAT_CL_CODIGO ,CAT_CL_LONG,CAT_CL_LAT, CAT_CL_FOTO FROM kmt_info where CAT_CL_NUM_SERIEFISICO IS NOT NULL") +' If c.RowCount>0 Then +' For i=0 To c.RowCount -1 +' c.Position=i +' foto1 = c.GetBlob("CAT_CL_FOTO") +' Dim cmd As DBCommand +' cmd.Initialize +' cmd.Name = "insert_QR_INTMEX" +' cmd.Parameters = Array As Object(C.GetString("CAT_CL_NUM_SERIEFISICO"), C.GetString("CAT_CL_CODIGO"), C.GetString("CAT_CL_LONG"), C.GetString("CAT_CL_LAT"), almacen, ruta, foto1 ) +' B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "ins_QR") +' Next +' End If +' c.Close +' +' c=B4XPages.MainPage.skmt.ExecQuery("SELECT HE_CLIE, HE_RES, HE_FECHA, HE_TIPO FROM HIST_ENCUESTA") +' If c.RowCount>0 Then +' For i=0 To c.RowCount -1 +' c.Position=i +' Dim cmd As DBCommand +' cmd.Initialize +' cmd.Name = "insert_encuesta_INTMEX" +' cmd.Parameters = Array As Object(C.GetString("HE_CLIE"),C.GetString("HE_RES"),C.GetString("HE_FECHA"), c.GetString("HE_TIPO")) +' B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "inst_noventa") +' Next +' End If +' c.Close +' +' c=B4XPages.MainPage.skmt.ExecQuery("SELECT PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO, PE_COSTO_SIN, PE_RUTA, PE_DESC, PE_FOLIO FROM PEDIDO") +' If c.RowCount>0 Then +' For i=0 To c.RowCount -1 +' c.Position=i +' Dim cmd As DBCommand +' cmd.Initialize +' cmd.Name = "insert_pedido_INTMEX" +' cmd.Parameters = Array As Object(C.GetString("PE_CEDIS"),almacen,C.GetString("PE_COSTO_TOT"),C.GetString("PE_COSTOU"),C.GetString("PE_CANT"),C.GetString("PE_PRONOMBRE"),C.GetString("PE_PROID"),C.GetString("PE_CLIENTE"),C.GetString("PE_FECHA"),C.GetString("PE_USUARIO"),C.GetString("PE_RUTA"), C.GetString("PE_COSTO_SIN"),C.GetString("PE_DESC"),c.GetString("PE_FOLIO")) +' B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "ins_pedido") +' Next +' End If +' c.Close +' +' d=B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDO FROM PEDIDO") +' d.Position=0 +' cuantos_pedido = D.GetString("CUANTOS_PEDIDO") +' d.Close +' +' ' NOVENTA +' c = B4XPages.MainPage.skmt.ExecQuery("SELECT NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON FROM NOVENTA") +' If c.RowCount > 0 Then +' For i = 0 To c.RowCount -1 +' c.Position = i +' Dim cmd As DBCommand +' cmd.Initialize +' cmd.Name = "insert_noventa_INTMEX" +' cmd.Parameters = Array As Object(C.GetString("NV_CLIENTE"),C.GetString("NV_FECHA"),C.GetString("NV_USER"),C.GetString("NV_MOTIVO"),C.GetString("NV_COMM"),C.GetString("NV_LAT"),C.GetString("NV_LON"), almacen, ruta) +' B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "inst_noventa") +' Next +' End If +' c.Close +' +' d = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA") +' d.Position = 0 +' cuantos_noventa = d.GetString("CUANTOS_NOVENTA") +' d.Close +' +' ' GEO CERCA +' +' c=B4XPages.MainPage.skmt.ExecQuery("Select HGCLIENTE, HGDATE, HGLAT, HGLON from HIST_GEOCERCA") +' If c.RowCount>0 Then +' For i=0 To c.RowCount -1 +' c.Position=i +' Dim cmd As DBCommand +' cmd.Initialize +' cmd.Name = "insert_geocerca_INTMEX" +' cmd.Parameters = Array As Object(C.GetString("HGCLIENTE"),C.GetString("HGDATE"),C.GetString("HGLAT"),C.GetString("HGLON")) +' B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "inst_noventa") +' Next +' End If +' c.Close +' +' ' LO DEL LIKE +' +' c=B4XPages.MainPage.skmt.ExecQuery("Select HFCLIENTE, HFALIAS,HFRUTA,HFALMACEN from HIST_FACE") +' If c.RowCount>0 Then +' For i=0 To c.RowCount -1 +' c.Position=i +' Dim cmd As DBCommand +' cmd.Initialize +' cmd.Name = "insert_face_like_INTMEX" +' cmd.Parameters = Array As Object(C.GetString("HFCLIENTE"),C.GetString("HFALIAS"),C.GetString("HFRUTA"),C.GetString("HFALMACEN")) +' B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "inst_noventa") +' Next +' End If +' c.Close' +' End If End Sub Sub envioGuna 'ignore @@ -1013,7 +1025,7 @@ End Sub 'Revisa que la NOVENTA, la cantidad de pedidos y los productos de PEDIDO sean los mismos en web y locales. Sub valida(identificador As String) Log("Validamos " & identificador) - If empresa.ToUpperCase = "GUNA" Then + If empresa.ToUpperCase.Contains("GUNA") Then reqManager.Initialize(Me, "http://keymon.lat:1782") Else reqManager.Initialize(Me, "http://keymon.lat:1781") @@ -1057,12 +1069,13 @@ Private Sub b_valida_Click l_vProds2.Text = "" l_vNoVenta2.Text = "" p_validacion.Visible = True - If empresa.ToUpperCase = "MARIANA" Then + If empresa.ToUpperCase.Contains("MARIANA") Then valida("MARDS") - else if empresa.ToUpperCase = "GUNA" Then + else if empresa.ToUpperCase.Contains("GUNA") Then valida("GV2") - else if empresa.ToUpperCase = "INTMEX" Then - valida("INTMEX") + else if empresa.ToUpperCase.Contains("INTMEX") Then +' valida("INTMEX") + Intmex.valida End If End Sub diff --git a/B4A/C_Intmex.bas b/B4A/C_Intmex.bas new file mode 100644 index 0000000..dacc95f --- /dev/null +++ b/B4A/C_Intmex.bas @@ -0,0 +1,377 @@ +B4A=true +Group=Default Group +ModulesStructureVersion=1 +Type=Class +Version=12.8 +@EndOfDesignText@ +Sub Class_Globals +' Dim skmt As SQL + Dim reqManager As DBRequestManager + Dim cmd As DBCommand + Dim c, d As Cursor + Dim usuario, almacen, PORCENTAJE, datos_iguales As String + Dim cuantos_pedido As String = 0 + Dim cuantos_noventa As String = 0 + Dim cuantos_pedidosc As String = 0 + Dim foto1() As Byte + Dim t1 As Timer +' Dim COUNT_CLIE As Int + Dim enviando As Boolean = False + dim validando as Boolean = False +End Sub + +'Initializes the object. You can add parameters to this method if needed. +Public Sub Initialize + reqManager.Initialize(Me, "http://keymon.lat:1781") +End Sub + +Sub envia + enviando = True + almacen = Subs.traeAlmacen + B4XPages.MainPage.skmt.ExecNonQuery2("delete from PEDIDO WHERE PE_PRONOMBRE = ? ", Array As Object("N/A") ) + B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE not In (select PE_CLIENTE from pedido)") + c=B4XPages.MainPage.skmt.ExecQuery("select usuario from usuarioa") + c.Position = 0 + usuario = c.GetString("USUARIO") + c.Close + + ' ENVIO DE LOS CODIGOS QR + c=B4XPages.MainPage.skmt.ExecQuery("SELECT CODIGOKMTS, CODIGOB, LAT, LON FROM HIST_CODIGO_BARRAS" ) + If c.RowCount>0 Then + For i=0 To c.RowCount -1 + c.Position=i + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_QR_2_INTMEX" + cmd.Parameters = Array As Object(C.GetString("CODIGOKMTS"),C.GetString("CODIGOB"),C.GetString("LON"),C.GetString("LAT"),almacen,Subs.traeruta ) + reqManager.ExecuteCommand(cmd , "ins_QR") + Next + End If + c.Close + +' c=B4XPages.MainPage.skmt.ExecQuery("SELECT CAT_CL_NUM_SERIEFISICO, CAT_CL_CODIGO, CAT_CL_LONG, CAT_CL_LAT, CAT_CL_FOTO FROM kmt_info where CAT_CL_NUM_SERIEFISICO IS NOT NULL") +' If c.RowCount>0 Then +' For i=0 To c.RowCount -1 +' c.Position=i +' 's=skmt.ExecQuery2("SELECT HIST_VI_IMAGEN FROM HIST_VISITAS WHERE HIST_VI_CREDITO =?", Array As String (c.GetString("HIST_VI_CREDITO"))) +' 's.Position =0 +' foto1 = c.GetBlob("CAT_CL_FOTO") +' Dim cmd As DBCommand +' cmd.Initialize +' cmd.Name = "insert_QR_INTMEX" +' cmd.Parameters = Array As Object(C.GetString("CAT_CL_NUM_SERIEFISICO"),C.GetString("CAT_CL_CODIGO"),C.GetString("CAT_CL_LONG"),C.GetString("CAT_CL_LAT"),almacen,Subs.traeruta, foto1 ) +' reqManager.ExecuteCommand(cmd , "ins_QR") +' Next +' End If +' c.Close + + 'ENCUESTA + c=B4XPages.MainPage.skmt.ExecQuery("SELECT HE_CLIE, HE_RES, HE_FECHA, HE_TIPO FROM HIST_ENCUESTA") + If c.RowCount>0 Then + For i=0 To c.RowCount -1 + c.Position=i + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_encuesta_INTMEX" + cmd.Parameters = Array As Object(C.GetString("HE_CLIE"),C.GetString("HE_RES"),C.GetString("HE_FECHA"), c.GetString("HE_TIPO")) + reqManager.ExecuteCommand(cmd , "inst_noventa") + Next + End If + c.Close + + ' PEDIDO_CLIENTE + Dim PCNoArts As String + Dim PCMonto As String + c = B4XPages.MainPage.skmt.ExecQuery("SELECT PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT, PC_COSTO_SIN, PC_RUTA, PC_ALMACEN, PC_FACTURA FROM PEDIDO_CLIENTE ") + d = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDOSC FROM PEDIDO_CLIENTE ") + If c.RowCount > 0 Then + For i = 0 To c.RowCount - 1 + c.Position = i + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_pedidos_INTMEX" + cmd.Parameters = Array As Object(c.GetString("PC_CLIENTE"), c.GetString("PC_FECHA"), c.GetString("PC_USER"), c.GetString("PC_NOART"), c.GetString("PC_MONTO"), c.GetString("PC_LON"), c.GetString("PC_LAT"), almacen, Subs.traeruta, c.GetString("PC_COSTO_SIN"), c.GetString("PC_FACTURA")) + PCNoArts = c.GetString("PC_NOART") + PCMonto = c.GetString("PC_MONTO") + reqManager.ExecuteCommand(cmd , "ins_pedidos") + Log(">>>>>> INSERT PEDIDO_CLIENTE") + Next + End If + c.Close + d.Position = 0 + cuantos_pedidosc = d.GetString("CUANTOS_PEDIDOSC") + d.Close + + ' PEDIDO + c = B4XPages.MainPage.skmt.ExecQuery("SELECT PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO, PE_COSTO_SIN, PE_RUTA, PE_DESC, PE_FOLIO FROM PEDIDO") + d = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDO FROM PEDIDO") + If c.RowCount > 0 Then + For i = 0 To c.RowCount - 1 + c.Position = i + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_pedido2_INTMEX" 'CON TOTALES INCLUIDOS + cmd.Parameters = Array As Object(C.GetString("PE_CEDIS"),almacen,C.GetString("PE_COSTO_TOT"),C.GetString("PE_COSTOU"),C.GetString("PE_CANT"),C.GetString("PE_PRONOMBRE"),C.GetString("PE_PROID"),C.GetString("PE_CLIENTE"),C.GetString("PE_FECHA"),C.GetString("PE_USUARIO"),C.GetString("PE_RUTA"), C.GetString("PE_COSTO_SIN"),C.GetString("PE_DESC"),c.GetString("PE_FOLIO"), PCNoArts, PCMonto) + reqManager.ExecuteCommand(cmd , $"ins_pedidosPendientes_prods_${c.GetString("PE_CLIENTE")}_${c.GetString("PE_PROID")}"$) +' Log($">>>> INS_PEDIDO= ${C.GetString("PE_CEDIS")},${ALMACEN},${C.GetString("PE_COSTO_TOT")},${C.GetString("PE_COSTOU")},${C.GetString("PE_CANT")}, ${C.GetString("PE_PRONOMBRE")}, ${C.GetString("PE_PROID")}, ${C.GetString("PE_CLIENTE")}, ${C.GetString("PE_FECHA")}, ${C.GetString("PE_USUARIO")}, ${C.GetString("PE_RUTA")}, ${C.GetString("PE_COSTO_SIN")}, ${C.GetString("PE_DESC")}, ${c.GetString("PE_FOLIO")}, ${PCNoArts}, ${PCMonto}"$) +' cmd.Name = "insert_pedido_INTMEX" ' SIN TOTALES INCLUIDOS +' cmd.Parameters = Array As Object(C.GetString("PE_CEDIS"),ALMACEN,C.GetString("PE_COSTO_TOT"),C.GetString("PE_COSTOU"),C.GetString("PE_CANT"),C.GetString("PE_PRONOMBRE"),C.GetString("PE_PROID"),C.GetString("PE_CLIENTE"),C.GetString("PE_FECHA"),C.GetString("PE_USUARIO"),C.GetString("PE_RUTA"), C.GetString("PE_COSTO_SIN"),C.GetString("PE_DESC"),c.GetString("PE_FOLIO")) +' reqManager.ExecuteCommand(cmd , "ins_pedido") + Next + End If + c.Close + d.Position=0 + cuantos_pedido = D.GetString("CUANTOS_PEDIDO") + d.Close + + ' NOVENTA + c=B4XPages.MainPage.skmt.ExecQuery("SELECT NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON FROM NOVENTA") + D=B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA") + If c.RowCount>0 Then + For i=0 To c.RowCount -1 + c.Position=i + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_noventa_INTMEX" + cmd.Parameters = Array As Object(C.GetString("NV_CLIENTE"),C.GetString("NV_FECHA"),C.GetString("NV_USER"),C.GetString("NV_MOTIVO"),C.GetString("NV_COMM"),C.GetString("NV_LAT"),C.GetString("NV_LON"), almacen, Subs.traeruta) + reqManager.ExecuteCommand(cmd , "inst_noventa") + Next + End If + c.Close + d.Position=0 + cuantos_noventa = D.GetString("CUANTOS_NOVENTA") + d.Close + + ' GEO CERCA + c=B4XPages.MainPage.skmt.ExecQuery("Select HGCLIENTE, HGDATE, HGLAT, HGLON from HIST_GEOCERCA") + If c.RowCount>0 Then + For i=0 To c.RowCount -1 + c.Position=i + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_geocerca_INTMEX" + cmd.Parameters = Array As Object(C.GetString("HGCLIENTE"),C.GetString("HGDATE"),C.GetString("HGLAT"),C.GetString("HGLON")) + reqManager.ExecuteCommand(cmd , "inst_noventa") + Next + End If + c.Close + + ' LO DEL LIKE + c=B4XPages.MainPage.skmt.ExecQuery("Select HFCLIENTE, HFALIAS, HFRUTA, HFALMACEN from HIST_FACE") + If c.RowCount>0 Then + For i=0 To c.RowCount -1 + c.Position=i + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_face_like_INTMEX" + cmd.Parameters = Array As Object(C.GetString("HFCLIENTE"),C.GetString("HFALIAS"),C.GetString("HFRUTA"),C.GetString("HFALMACEN")) + reqManager.ExecuteCommand(cmd , "inst_noventa") + Next + End If + c.Close + + ' DROP +' t1.Initialize("T1", 30000) ' 1000 = 1 second +' t1.Enabled = True +' Dim sDate,sTime As String +' DateTime.DateFormat = "MM/dd/yyyy" +' sDate=DateTime.Date(DateTime.Now) +' sTime=DateTime.Time(DateTime.Now) +' Dim cmd As DBCommand +' cmd.Initialize +' cmd.Name ="insert_drop_INTMEX_2" +' cmd.Parameters = Array As Object(usuario,Subs.traeruta,sDate & sTime, l_porvisitar.Text,l_drop.Text,l_efectiva.Text,l_cuantosc.Text,l_cuantosn.Text, L_MONTOD.Text,"ENVIO",almacen) +' reqManager.ExecuteCommand(cmd , "inst_noventa") + '' img2.Visible =True +' PORCENTAJE = Round(100/ (cuantos_noventa + cuantos_pedido + cuantos_pedidosc + 1)) +' If Starter.marcaCel <> "Sony" Then ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias "& Subs.traeruta , True) + + 'CUESTIONARIOS + c = B4XPages.MainPage.skmt.ExecQuery($"select * from cuestionario where ifnull(Q_ENVIO_OK, 0) = 0"$) + Private rutaActual As String = Subs.traeRuta + If c.RowCount > 0 Then + For x = 0 To c.RowCount - 1 + c.Position = x + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_CUESTIONARIO_INTMEX" + cmd.Parameters = Array As Object(c.GetString("Q_IDCLIENTE"), rutaActual, almacen, c.GetString("Q_FECHA"), c.GetString("Q_IDPREGUNTA"), c.GetString("Q_PREGUNTA"), c.GetString("Q_IDRESPUESTA"), C.GetString("Q_RESPUESTA")) + reqManager.ExecuteCommand(cmd , "ins_cuestionario") + Next + End If + c.Close +End Sub + +Sub JobDone(Job As HttpJob) + Log("JOBDONE INTMEX") + Log(reqManager.link) + If reqManager.reqsList.IsInitialized Then 'Si tenemos lista de requests, la procesamos. + If reqManager.reqsList.IndexOf(Job.tag) <> -1 Then + reqManager.reqsList.RemoveAt(reqManager.reqsList.IndexOf(Job.tag)) + LogColor($">>>>>> Quitamos ${Job.tag}"$, Colors.Blue) + End If + LogColor(">>>>>> " & reqManager.reqsList.Size & " - " & reqManager.reqsList, Colors.Blue) + End If + If Job.Success = False Then + Log("ERROR") + LogColor("Error: " & reqManager.HandleJob(Job).tag & " : " & Job.ErrorMessage, Colors.red) +' Job.Release + Else 'If Job Success then ... + Log(3) + LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.RGB(0,160,0)) 'Mod por CHV - 211027 + 'Verificamos que el usuario guardado en BD sea VALIDO. + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = reqManager.HandleJob(Job) + If RESULT.Tag = "update_gps" Then + For Each records() As Object In RESULT.Rows + Log("==========================REGISTROS="&RESULT.Rows) + For Each k As String In RESULT.Columns.Keys + Log(RESULT.Tag & ": " & k & ": " & records(RESULT.Columns.Get(k))) + Next + Next + End If + If RESULT.Tag = "ins_pedidos" Then + For Each records() As Object In RESULT.Rows + Log("==========================REGISTROS="&RESULT.Rows) + For Each k As String In RESULT.Columns.Keys + Log(RESULT.Tag & ": " & k & ": " & records(RESULT.Columns.Get(k))) + Next + Next + End If + End If + + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = reqManager.HandleJob(Job) + If RESULT.Tag = "valida_pedido" Then 'query tag + Subs.logJobDoneResultados(RESULT) + For Each records() As Object In RESULT.Rows + Dim CUANTOSP As Int = records(RESULT.Columns.Get("CUANTOSP")) + Log(CUANTOSP) + B4XPages.MainPage.l_vProds2.Text = $"${CUANTOSP}/${cuantos_pedido}"$ + If cuantos_pedido <= CUANTOSP Then + ' ToastMessageShow("rojo val ok 1 cuantosp." , True) + datos_iguales = "ok" +' S_CP.Text = "INFO OK" + ToastMessageShow("INFO OK", False) + Else +' S_CP.Text = "ENVIAR DATOS (K-2)" + ToastMessageShow($"No se cargo bien la info de pedido.${CRLF}Envíe nuevamente: "$ & CUANTOSP & "/" & cuantos_pedido, True) + ToastMessageShow("ENVIAR DATOS (K-2)", True) + Log("No se cargo bien la info de pedido. Envíe nuevamente: " & CUANTOSP & "/" & cuantos_pedido) + End If + Next + End If + End If + + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = reqManager.HandleJob(Job) + If RESULT.Tag = "valida_pedidoc" Then 'query tag + Subs.logJobDoneResultados(RESULT) + For Each records() As Object In RESULT.Rows + Dim CUANTOSC As Int = records(RESULT.Columns.Get("CUANTOSC")) + B4XPages.MainPage.l_vPedidos2.Text = $"${CUANTOSC}/${cuantos_pedidosc}"$ + If cuantos_pedidosc = CUANTOSC Then + ' ToastMessageShow("rojo val ok 1 cuantosp." , True) + datos_iguales = "ok" + Else + ToastMessageShow($"No se cargo bien la info de pedido_cliente.${CRLF}Envíe nuevamente: "$ & CUANTOSC & "/" & cuantos_pedidosc, True) + Log("No se cargo bien la info de pedido_cliente. Envíe nuevamente: " & CUANTOSC & "/" & cuantos_pedidosc) + End If + Next + End If + End If + + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = reqManager.HandleJob(Job) + If RESULT.Tag = "valida_noventa" Then 'query tag + Subs.logJobDoneResultados(RESULT) + For Each records() As Object In RESULT.Rows + Dim CUANTOSN As Int = records(RESULT.Columns.Get("CUANTOSN")) + B4XPages.MainPage.l_vNoVenta2.Text = $"${CUANTOSN}/${cuantos_noventa}"$ + If cuantos_noventa = CUANTOSN Then + ' ToastMessageShow("rojo val ok 1 cuantosp." , True) + datos_iguales = "ok" + Else + ToastMessageShow($"No se cargo bien la info de NoVenta.${CRLF}Envíe nuevamente: "$ & CUANTOSN & "/" & cuantos_noventa, True) + Log("No se cargo bien la info de NoVenta. Envíe nuevamente:" & CUANTOSN & "/" & cuantos_noventa) + End If + Next + End If + End If + + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = reqManager.HandleJob(Job) + If RESULT.Tag = "ins_pedido" Then 'query tag + For Each records() As Object In RESULT.Rows +' PB2.Progress = PB2.Progress + 5 +' S_CP.Text = "SUBIENDO" + Next +' PB2.Progress = 100 + Log("PROGRESO 100") +' S_CP.Text = "REVISANDO ..." + ToastMessageShow("REVISANDO", False) + Log("REVISANDO") + End If + End If + + Dim RESULT As DBResult = reqManager.HandleJob(Job) + If RESULT.Tag = "ins_cuestionario" Then 'query tag + Subs.logJobDoneResultados(RESULT) + End If + End If + If reqManager.reqsList.size = 0 Then ' Si ya no hay consultas pendientes ... + B4XPages.MainPage.p_progressDialog.Visible = False + If enviando Then ' Si terminamos de enviar pedido ... + Sleep(200) + B4XPages.MainPage.l_progressDialog.Text = "Validando " ' Mostramos el panel de progreso. + B4XPages.MainPage.p_progressDialog.Visible = True + valida ' Iniciamos la validación + enviando = False + End If + If validando Then + validando = False + Sleep(300) + 'Mostramos el panel de Validación. + B4XPages.MainPage.p_validacion.Visible = True + End If + End If + Job.Release +End Sub + +Sub valida + validando = True + almacen = Subs.traeAlmacen + d = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDO FROM PEDIDO") + d.Position = 0 + cuantos_pedido = d.GetString("CUANTOS_PEDIDO") + + d = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDOSC FROM PEDIDO_CLIENTE ") + d.Position = 0 + cuantos_pedidosc = d.GetString("CUANTOS_PEDIDOSC") + + d = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA") + d.Position = 0 + cuantos_noventa = d.GetString("CUANTOS_NOVENTA") + d.Close + + cmd.Initialize + cmd.Name = "select_cuantos_pedido_INTMEX" + cmd.Parameters = Array As Object(almacen, Subs.traeRuta) + Log($"${almacen}, ${Subs.traeRuta}"$) + reqManager.ExecuteQuery(cmd , 0, "valida_pedido") + + cmd.Initialize + cmd.Name = "select_cuantos_noventa_INTMEX" + cmd.Parameters = Array As Object(almacen, Subs.traeRuta) + reqManager.ExecuteQuery(cmd , 0, "valida_noventa") + + cmd.Initialize + cmd.Name = "select_cuantos_pedidoc_INTMEX" + cmd.Parameters = Array As Object(almacen, Subs.traeRuta) + reqManager.ExecuteQuery(cmd , 0, "valida_pedidoc") + Log("http://keymon.lat:1781") + + B4XPages.MainPage.l_vPedidos2.Text = "" + B4XPages.MainPage.l_vProds2.Text = "" + B4XPages.MainPage.l_vNoVenta2.Text = "" +End Sub \ No newline at end of file diff --git a/B4A/DBCheck.b4a b/B4A/DBCheck.b4a index c99634a..07ce3c7 100644 --- a/B4A/DBCheck.b4a +++ b/B4A/DBCheck.b4a @@ -26,19 +26,20 @@ Library9=sql ManifestCode='This code will be applied to the manifest file during compilation.~\n~'You do not need to modify it in most cases.~\n~'See this link for for more information: https://www.b4x.com/forum/showthread.php?p=78136~\n~AddManifestText(~\n~~\n~)~\n~SetApplicationAttribute(android:icon, "@drawable/icon")~\n~SetApplicationAttribute(android:label, "$LABEL$")~\n~CreateResourceFromFile(Macro, Themes.LightTheme)~\n~'End of default text.~\n~~\n~SetApplicationAttribute(android:usesCleartextTraffic, "true")~\n~AddPermission(android.permission.INTERNET)~\n~AddPermission(android.permission.READ_EXTERNAL_STORAGE)~\n~AddPermission(android.permission.WRITE_EXTERNAL_STORAGE)~\n~SetApplicationAttribute(android:allowBackup, "false")~\n~~\n~AddActivityText(main,~\n~~\n~~\n~~\n~~\n~) Module1=B4XMainPage Module2=C_Envios -Module3=DBRequestManager -Module4=FileHandler -Module5=Starter -Module6=Subs +Module3=C_Intmex +Module4=DBRequestManager +Module5=FileHandler +Module6=Starter +Module7=Subs NumberOfFiles=6 NumberOfLibraries=11 -NumberOfModules=6 -Version=12.5 +NumberOfModules=7 +Version=12.8 @EndOfDesignText@ #Region Project Attributes #ApplicationLabel: DBCheck #VersionCode: 1 - #VersionName: 3.11.30 + #VersionName: 4.05.02 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False @@ -53,9 +54,6 @@ Version=12.5 Sub Process_Globals Public ActionBarHomeClicked As Boolean - -'linea de prueba - End Sub Sub Globals diff --git a/B4A/DBCheck.b4a.meta b/B4A/DBCheck.b4a.meta index a5bf6ee..03419a9 100644 --- a/B4A/DBCheck.b4a.meta +++ b/B4A/DBCheck.b4a.meta @@ -5,6 +5,7 @@ ModuleBookmarks3= ModuleBookmarks4= ModuleBookmarks5= ModuleBookmarks6= +ModuleBookmarks7= ModuleBreakpoints0= ModuleBreakpoints1= ModuleBreakpoints2= @@ -12,13 +13,15 @@ ModuleBreakpoints3= ModuleBreakpoints4= ModuleBreakpoints5= ModuleBreakpoints6= +ModuleBreakpoints7= ModuleClosedNodes0=2,6 -ModuleClosedNodes1=3,5,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31 -ModuleClosedNodes2=5 +ModuleClosedNodes1=8,10,11,12,13,14,15,16,17,18,19,20,21,26,30 +ModuleClosedNodes2=4,5 ModuleClosedNodes3= ModuleClosedNodes4= -ModuleClosedNodes5=1 -ModuleClosedNodes6=12,13,14,16,17,18 -NavigationStack=B4XMainPage,l_usuario2_LongClick,390,0,B4XMainPage,b_guardaUsuario_Click,436,6,B4XMainPage,b_guardaAlmacen_Click,424,1,B4XMainPage,l_clienteNoNumerico_LongClick,410,0,Visual Designer,MainPage.bal,-100,6,B4XMainPage,b_guardaRuta_Click,419,3,B4XMainPage,envioMariana,503,0,B4XMainPage,JobDone,320,0,B4XMainPage,B4XPage_Created,90,0,B4XMainPage,envioGuna,1006,0 +ModuleClosedNodes5= +ModuleClosedNodes6=1 +ModuleClosedNodes7=12,13,14,16,17 +NavigationStack=B4XMainPage,b_valida_Click,1058,0,C_Intmex,envia,166,5,C_Intmex,Class_Globals,13,6,C_Intmex,JobDone,327,6,C_Intmex,valida,349,6,Main,Globals,22,0,B4XMainPage,B4XPage_Appear,160,0,B4XMainPage,Class_Globals,81,0,Visual Designer,MainPage.bal,-100,6,B4XMainPage,B4XPage_Created,88,4 SelectedBuild=0 -VisibleModules=1,6,2,3 +VisibleModules=1,7,4,3 diff --git a/B4A/DBRequestManager.bas b/B4A/DBRequestManager.bas index e0e2b63..2eb6867 100644 --- a/B4A/DBRequestManager.bas +++ b/B4A/DBRequestManager.bas @@ -9,7 +9,7 @@ Sub Class_Globals Private mTarget As Object Type DBResult (Tag As Object, Columns As Map, Rows As List) Type DBCommand (Name As String, Parameters() As Object) - Private link As String + dim link As String Private bc As ByteConverter Private T_NULL = 0, T_STRING = 1, T_SHORT = 2, T_INT = 3, T_LONG = 4, T_FLOAT = 5 _ ,T_DOUBLE = 6, T_BOOLEAN = 7, T_BLOB = 8 As Byte diff --git a/B4A/Files/mainpage.bal b/B4A/Files/mainpage.bal index 2f068033cad2bb379c6563d2787a150b282265bb..042276c68e1f79b08caece8863552500ec0edd44 100644 GIT binary patch delta 1990 zcmb7FZA_b06n;xq3@sE+jKL(AEnCRG#`rNmD+qVl#gyft)_uTXG z-1nYyxid$jwG; zNT04doD8E4vJ;}>Jm7qY6H)*vgcLzs8tm5KVht|Q;8G1P)8O(5zF*oESxAp-a0PHB zq>2}fy>!ceDCU(IvpCp6&x@f``TsG$tGB4fT8F(SAAZ6=XzkD7jxsw3>P_5|_ct3; zy!0jy@2L}d=MKJ8oXdY@n>VZ=AQ3|Ab=*>x$Iba(>gJ`mbY9GtfpW@IxwbZgUvO>#C;S?oiH7PIt~$hB)Jz#G2aJpLRd~h^$EaG z;!htm^F(|O?=8%rx4<=v$4g~8#!HXd_%WB+)D6F25DISNR>g*^Tlm6?9VN!CpxbX8Z32K&PO})x!er8z^1a> zG@=}01cz9pi{S%YjPf5*4lt@7z!W(EcT{d!3uFGF(rg&f@O-cWJl|7!^0sO-7^&=z z^T{eNjVTPr*xg*iFIPJc|L=Q#A9X%}7z025^vj0;B)B$%44XtwF*XhXF7QNyO`-7+uQZI(6mG1JcQu*u>BXy|Udn;Sahg`TY+4!S z{-y!C9-f8kNEInPt<1tVtIfiZr`9wJ)^DQ|W2H{7G8H$}sj%FLb_~sj?djVzqp+UA zY_#%eR}al9G0sGXWi~2iMq&M(U~LlrWRzDowXem;8(TfdLg|^D+31SwxwzBgqq%Up zxmD7AADzy_zqb1LkG2%?1aiSXGxBP_vZ*Uvm+RVm+}s{?ywrYAM;A}+^U=-lP29YT h#H!gn$ezPZsa~272hQIWDBj~A74~6L5@+wP`VSQF***XO delta 1978 zcmb7FT})GF7(Q>IG(AdLu`q#+pYUTQ%pzbnz)C5!LM5hH8a5ULg(W6>L3X!nj;m$J z95^3!IxC>KDsu{0*`G>a24^%`VzOlMVs1BEvWq1w*@fG(b?_K&-Z@k z{X5_LekXjF{~3m|AQYtmU0LMm=LQ!^zm9 z;SCz@((pzNcWZc)hBs@tN5j2IE=yZ^(ZXm&j%k#>icFbaH$|#5&ZS0vT63%nuWl+t zU@|H+hgiHT$YB=Zml{)Jwtgd?a+MMAojVuZ zt~@%3yS2Hw;AeDk6Xx**%=p^%3mxH4joLLur1G18*T52B}pW{gF;Ajd_z zYfdmtrpr;JaSS)_risYU&Fw^|(ctxGoYp^tF>e{2!F<~Y0$caeWTKQwT`3z|!gN+C z<*d$rGG59Dk1Zv<;!?s7M@f|OXIDGnuhwi#R6T?J-b@VmES$Dl#&2|9EdfJqqKPsS z=dpgfXYhYF%M@quAtNn%@0NC;r)4nP!I0{kVAEStv6qYki z4=UR|@)b5v8fgxL?bYUwdHD&$h+fy)qB&;S3=+47g`w;xqeU?9EQY_%hVmUA`@i+% zr);=E7>i!CGfa{+)VP8kEfF3xQF%4aFiO=zQVmPGa7RVj zHL-Ucr#z+T?8sM_-+G?Kv|C1R)oNAsw6}=n@neVIG0!IYU;`pdESMAv#tN(OEGlvc zat8Z?xk~s#e$^Jt1;hBE!-nOxPB?;=l!)f~i5-UprJXahp!OXz?JdyqLYNkn(OG2o z$#fRtqw~dMN9V?hN9V@FQS_se)s-Bbx4JBxtU5X)=5y0{x8!70*Gv<=j-qHU2vi#wDmUZA*Bq-Y^{Ai*_g@ZhdNg1bv`X>o@N z9xiLGz4uwqx#!$_?z#Ky-#+^x|1gt`F*3)P!t=cEH@{C-UPe$ze;Q{2=Q}BYm6esB zpI=&9`rW&CW@cudo}OW0VOd#ORaI3zJv}osGaDNl7Z(?RzrL7{@qwfOQULP>iHh`_ z*OKC@(tKPzcsQ5eUw-6lWeYacchJB5d-2@aR^PzF$N~Jp$i&QAlw}v)$O1Mq6lGC+ ztjwcqD`{kECg*Br^x9SBje)C$fsi4~^JicYXW`4fRu1}LXDdr_{k$K-bXw_kAyhEd_257 z+`N3;JOU4Sd4wMe2=nlQ|MFsaCSqr3Ec{AJ<}W{W`A(F@)WN}4n48*#?e8P zg#~=^#{>)w{x+zsqn+jNV;UN88(A7z8Cg5nbMtcX{x+vSCTnH;x5n1?T)$78%fQBp z+gacCvLVl38veFI%F6%GEv>BnHmbeDE2Dp#*?%~${TmlsBkos5_BM`o21b|7@BFq) zw!)HjM*0pmc5iGf|GL_$rZx^X_NF$rV9D2y!D?pKhBi+2zc*G^7M8cRchI*sFp`%N zWpTc+vgI-}GZcQz%OmsnvD6a*L2+?jUTJ;_9sz!7J|Q6qetrP~DQTX+c9ya+aQtma ze(!9{W%zGh1^&~nmxsX6K-kXA#MHt5FNZ_i(%~;#mS(>#tFWcMwaMk~JTx>i)_1gY zV0qS@b9ojT*;v|`xPTvmFAw-%j<=nW;RnYLA1sZ2UvgU`8(T{w?!UGa;r{JdTbf;t z{rlD*Kg0d!U;q86T%HbgW}l1c~ljEbq zUq63*KiJ>f-PzvS+*n^*U0GiG_H}V#er|SVdTMgw%lO#n$nfAme_wA;cUNaeds}Nu za}%bqp}r1XTU%3IRasG9R$5YAR9KLomz#si&dSV4PfJCnBqt>%#3SNjW1^!XBf`T% zLxSP3pg?GVzn`yf7l=4PfQ#zuw)AN2Kf-|J{= zX=6c`7U1P7Zc9 z)(7|R-Mz!Y48DDfiIIVxj`k+ajqB7@loZ#<$w*0vi3kZmKzuyh%Uc=eZ+E-jZjb#`J18ALfK z6lfMr<^|*w7K!DT7ME8%F0HPtMYC7e)M1*y z4UNt19XDFrI(sqQJ$*yv1B1iksL`=6)A5sKGYbiG^NY*yZ%Zp1-fQ`ryI$LQdp|xO zWd1yMIm|f0I-ZG~GpMsI-18=!rWJ`RW{&rZVN~G6qa1F9>9ap;?ks_|zrZrB)6vS8 zX2gbO)l#T;l^S(Eyl2q8mDMjOt=Q@=l*Qy`4o3w|R+$E%k}UKTwAgIEw*w`d3TI1R z9uUuMrWeh#I;9ZaQgRN^uZ7}pyw9)t7}61ta@Se{QL@Ys$1gBhmr=Gl@K~Z~j1v*K zK7ukp(bW4oM0_bWXpB>S8fbO5nqxDjk0C#DUdEf`b_2Tl9-Lo z^|i3giO&|?&Gl#}nuSIQ+4WlY$?x+cYJL6h1KrB@v^v$e8?f7_TFcmgIgdANUfL9Z zh6hMu{QiJeujhAB3*KyxP;WeMpFd!JbDhsr|JAh+f>wV`$F;?P=S(>I*Y4VxvJkU+ zo3;i$EnoWzd(gTz0%tkVOMfZ&4we2^dN8gfR1Adp7A8fmzeFZSmAMqCG%np5`9z9t zEK1^?&~UWq268z@yLoLnRzgp{C5|&%-Y8ndKM*g$s&+Cn)~p+GFA0C5rWs+1MH-X3 z|5{&7vTaXWjd#CwvWgHVJ&{NcY3RyG!tV!Uj8l@icR}!^JyU)RgQ< z?(0JAx*4??C3|kvk(LoMwTSTppUg8#^xwNiDlzcvg42GGGEdB5=r*9Qxu2A?&tXLN z`9lYSS1*(uF>)MF3)(e1>JEq=nJ`rnygju02{KOU^BQ3-pQ)U-$yWX~MF&x?>fXxI zJD72^0XPxe#tRw3fj;2!pY{D_<+Z3l3O-)K+Y3Kh#>R2XwJqGyBdwu~3gD_`Ld3oo zz6p2Q5gc%^V?Nm|?$AHk$~I|oAtd&^g}+tTF$dbl7!Q5Q6N5oK$$$3TSb7QL5kIP-38r0d8H#7)*QpZedC)b*@ zr|K_p%1q)-+sZ>x0#y|Jz!$M5j^zyxlyqmoUax17CSKyU0rfWB=!lbkXgx%zlZd(b z;+-@LJRGjelTKIDS+Q#-g|8se#IU#q6zZl7zQ4sRB|{-Yyb~U(v-j;bEKCM8v#(=? z-^_fdE+cIoP8jU41ZM8KFQ5_;5naASz5Gh{Dabc0>3Z{nYk`t4`*{fw+Jx*K8QpKa z`JxIL@98R-b${}O#YB|f^fT;csDoJ}IYGwV}cQz`^V8sa6d;*sElxOw9YOIRm1|-Qzu|v@F?lYINW*I8j7!xVXq6nSb02}`Uv{+-CYH|pm$MZH{UKvK92%2 z&<&@zI7rIzDkOrUqof{-t;^0AzlwQc@?2n2Ro2M0M`(03VVqf2g*rnbxq@1nWV~myMf_khkNXzNpiaSK-;^A7*X7Rr(eNsYU z@^eF3Qqq56bg)3eQc7D#P^~3y@i8~X;yqi58q-ELx7ivg1rXh=dVRdu?4c?{Oc`!_ zDaDP@K0Vz8`~ZduOzDjbX=8b3%0d4@nshQfNhLQ;os1X{BK?93`2N(%v1H{wOvb7z z``S$N06lu_mZ-bpGh6&GE}P(;pQG51+6y_7HQhe4_GW72YxiH=9w}fF$lpYJ8mc)@ zFYFvp9L%ojNY*V!%DFI^lKo&0yEAXa?dn7|ZwkHna3tE_k!VEwoc)l$qoT+rpiB#= z?3YNO>3`N*^nVm9|IUUc9ejQz+uAAbXyFOq^o`#s zS84}X+9XV~+5l?ubPA)ZdY8G}j(haT%i=neR`?Q*drei!;=lB+JV77#*@l!Qt}3kx zkKp1s_m?Ff_O3oVJsyCNmm>+bu_pJ376zdzYj2b{HK#QPQGpeOPJNqln+xL@ z@=wJNM>an&Oiu_Kf}Kou<(<`^i-edFK&sr*6|+6IGa4rU*|4k*SBY)y;mh z;XY5#COFlrTdijI0<_$}P^MJ3Cj^JX+_b0IC#pMN^o55e)QvIUuIVoN93F`l8D-P0 z>HRo+5Ie0s%$rive>$^|O*l;)Wu2%QJf8WU!XP>%bh~yC=J6x_fzG>kQA5TG2QcvfcyK{@H#%B#f2S=VxS_cPnip$%gR=w$H-UJ(` zQqkS*0bh@q#{2c90rsxGhhjggp1s(F>6lNX$4itE)Fe3#oX(wM4>8vo_5xmU_~~5Ibx`;@Men~%_j4)RTn95ex$%YICZ zf-EjTuB$(yboN>h^STkocXPsP2I&Ppf`CT6ZaI@N(|TV>c(a>&KY)6VrFruRLWT#u zADVLV()#er`8-Ck3po1-p?sb?vx-jmJSX%OSHCYQ=sTq6D+cwINBQ<)d}UB~U&Q$; zviiNAV19e#s|NK`W(8}h`{}It>8dm7SNj>r`D@TJn6Ubrq5O>|Xsw|BHiQ8mCvMo& z`b(PzC_!mlPyue80iUa>Jqe*+tWXPQN;kO7l(dNzjwcQeB_!=w^CwG%tD{KzO#Ltbz&Ig*7Z5yjL_8uF%#8#r(1t7s z5`0k)SvkU;5`>}#gQbpwzaE9`PJmVfLsuto*HIw}n2_yG+`Wm=^El8C+OVIUxQB7j z2xRE9HC$|U*uFXl_c&}B8UoDmiG+ml5aN*{!oLcFC?>)sHth?`~+tS%9{mwDdAmVEfD*>QnHV+Ys_%sA= zmPSHl7jBM5ln^F<#{^VF=OGGCh;hNK)JUvC;MU|Mpt}+d1wf5~pPSecSp#v~HIh2a zaJzC6d%6+{))EJf@rH#G@8~5hxx`N(l5QR2&9Hgv?#x2k)T=x;YN&9F_M%Rm;3~I zha&Yz2tQOKRly9OHa;9sn~KYhd+Q`sf+9^Fg(&KWMY4g|hlO@r_SHwc@juT+%J+!xdG-w&}9%gtPb7GCr9n zImc(;?!sT6$ZlH0hfIYz3ZvSEkp8*ZZnasnxo!8poLwqQuEx2_<|Pmlzekw%~3%=D*uac z;gV)bCsBc#Dm-aDczmj`_oQ&|B!6%!Vl61tJSG z_7=vDTBW)@l`e|LcQ(j+xW7Dkb<3L`hX^d7@Zi`tK{+8ne%o?=Z-JYFn=Q3(e+DHpGZ;fWax zFL1Ngk3p~sh7PO6L-#ytQLOVZuj|<4@9L?_&O`Sl@C}gE7jV=!^`KMoDnonfCSi5c zJ@pAacq7w1^=Q0CSUt?`$yi?9C+rDcg&Y6&W`h}V<1z#HcZ+%_i^h30?{QvZbWh`^ z)}spx+;zoSC1#cb)22{QqMesYf=>kJpyX_Nt=M!!g#9MG>2qGwc^=oI8y>+H z-abe39ZS4>Gk6a~xR|z@hB)va=406Mo5?s^7`E=Oa^Q1VHVbLr=kCRPQ^e=bXBX#e zr53@L?rnOk)GUzS`W${o7T!vyjsNnDjN}Zm)ZP2XXgv_U>4B{79v)?B1>% zcvnhq_dR-GI%n6dpvE$#o}&EjOn46oJFvpC=kS=DRv6gC**j^*gOvw%zalgD}=dJA8B{mDfRa9OE?iWu!M z1>7g?!4dk*Z#!_pNpLnZV7oT}*aqQ>4qB=Xf(k%{NrR@vgQQj<^7BDMiXkdd(5Cj# zC)*)fWdi#8A#7detv&)U(=dxp+g+XE+wQ}k!-m;|hfk-6J&W6T>W6VeMj)yqPnbs9 z5=Oj>>qJBewNLm*;Hv2o4~f_`N264e}3a{x>9k$pEkT_Z9!X;@?;N`-*@6*Z4Om01Eo2=HEL?lz)@_Z{^>BEB<}OzyDA2Z@?A*zT)3k z{QHW3U&Vi4#eZMLe_zFa|4+n!69hmB{;Byl^I!Ql?cbk&!>;)Ef0KWMuK4%gk$=DZ zGylGR$-jaBto$2u#lNrOzpvuI|Gx3x68|Cpro7_c|1$i$@elq@_j~;JAN>2`ihuv3 z_%|3Z&iW_*4fu!hZ@~Xn{!MYkzpwcB|4IIhbH%@}`1ck6zT)3k{QHW3U-9oN{{26} zzX=1Ng#Xn1``%yqH{;)*eBQZpZGV$Ka_vt z{BPyo;4A)p#lQbg@^9QL{(Z&2ulVix1IUAu(WLSb!}y1Q*&*7Yj0n5XZPUOq4bZR zM`wE{r{}m4rv$1krMN{KBW(Lra9M@#IURJI(LC z&Jvba&g^-`nN**s!MVa4FZgt_4pH_1o0Zh=PF#S0ePS>@JP0e%T^>GcqAdR|PN5<< zJ$sy9d7`_*VpRHVOOTOo#dKPs>4?X}yOmbcQbvx<3W`-bnqt=9LmppuvYu@;-8~pm z6y%&Q4FGWbVyAtv*zqQtnXA0|V7%Q4Y;k`yHf(tyZq@Xbj=rjic*^Sle@WN!^)9bh zJ@2=(DmKNkFFKQz-GZ%#tMxbM3TmC==c_K3b|e$4_W3&_4>cOHYrd}20C{@ z@M+fCya;Qv^_WPXtbuP*JOhE>&0*iFPx@UmR#*3C+*nLC0)Jvo^QVe&o(qI!LKlO4 z*S&NZc|2ItX&!|@JA!SNP~So{exTG~FX~zE>Pa1#8oqz7Lf8=z^mu(K(qpWBkpAf#S^0A(8<`(_Po#?)Ji4>ry9g*iQ0H*5dY!)rN$^_)Q6p9P}?uoV?V7m}y|+ z`3b`=-S>AdZJPRWVKU8cD0*#gT!4D5=}2C1?o=C#F-o`7+qiQ!7eZc z1kP87`lMZYgR9YUujzyHmQ>%9*Q9y9oY&m!2G}l?{QH$im494k5A`ai65-zF?|&~6 zEH(P-rn2MBcelM9$CVhEWWGqdlT}_<_7Q(VX`I3&J@s~gRC?OF@!_W#aSL&$*%z3; zwkhVVKBsx7i-%6s-q%!|d!09*77qsn)c?F;_~2FzwO^I}5mk(Czwf-d!)(oJiiyhc zioBRg?Kq=}{?D~MZX8$ajTbE;qrmD_uE6#3bZg&jS2^(69#wI~>3-+tT<6wnFj*Z_ zt1NdtTbG)y=$$%&-KWzTd@SdO3jrU_kG?!;cE2wC{5HYSR=_;b@!p-H&f^yu^PgF^ zSD&BX-#_#eVfkV2-7&ffI;Z1tjo(YbjqZrq8nbc3H*CRqASa^4x#wNY?~4Z{Y&xa% z_69S~-Q$5afmA|#T&58lI~2_{n%=%VcUwV-u;LrzseXc-b9ePRTSy35APRA6_Q}j+wSScbRv^e7)T~{>$yEL(DUGoF+b;6fHRFUs2@2F-` z$g>niLA>HRMU{xVUHlM|FO*J)y4LLJTk8B(aLS<*9x!OePjBf zTKH`OWz0hO$h&5Uo;=9xvy$MCpG&-Nk!#i$A_Y%ue)K>9jp(--&vN`u5!k#i334I- z4*lt{%rJo%2pm*;X|uQb9EW~TrxYh;&7QCx_pO*8*P9@+8z>tYW1x2&Jk6qbjbAqI zWpJ)ndUj8z)I9dCc=-Ers(X)DKJK+WMu>!DMmVf1>e9ZBjQ7flYFejr5PpUIIht)q z`1*sd0w|3pnwnOS{nffbhE!Zvj7n1WgGUr^b8hiJefzT~qC0FX+rt}=ZY@`hTmCI& zl2N`U=cbTssuyYg&pfNXK`s01YBgU=uiswS(3zxXsps=9`mne8Kx4?Oocu}f2iv@N zB2nsXx2R}t4Pp$KEs%KPX%hOyTSi8UUSuf8GI>r;x4XQ^!Jx{}iZzJd%LL6amH?`K zwr>{86R`H=n96%Uyn$&3fxGVdRdx43nqFF3T%FXvNxXv)SkoJgJUpWn%>wP6Nhwld;93&M9E1YVbHgi8Xc1#r& zA2~g3(U@rxAdWjv~6suJg|$^uQxqI?*o&0B`xcoC+4en5G;NK`mq?$5NLG1?E2_K#$w1M zW7Nt-Lm0|ihSR|%1m?~P4l3EyW%D@_I(y6$!z_|QW;)(r(7)?9qd51dNI=?ana^q# zuFb*bQtUuul_;XO+_5rQ6rHtRT{5kPF3lv$A@d~0CE|ThI5I}6#b^3JfsK2V=uy5Dn^mP7Y{53vEWzU=8Y=Q7a zb@R>sJ^!cLi>`p`)(0y4L0azfe6H2)0{#0TZj4{;s;fI?RSqJi(PFn>)O4%$+j*m# zmUu#Ide4KCVy4el1Z}G6jr+eRAI=C0U8^1R^8lqVoUh%>?i-BlcZi9_Syv4eZj&7O zk&D$z`eqPTJ6_el+pc}Ssi*5qTdne|^vfxi{tNV!4i;F3{=8|Sfu3oZ`&Bh9x}l3e z&lTEdisR`(<;+vBI2=jScAXFsODoYT}@oOA}HoPK+7 zvEJv29a4LLo^s9oboRpI==rnV@AK~S+cqv|tDXmr9iILHpDwDL^}rB3R$3s+*&qN5 zaSEU#sdmy>g;-b7Q?fd}ko7YB!f-S0lXSM1<{=}~k)t^nfCKP`X5YFacbT=+o0Zo7 zW~sOMO*?KmJ1G{Q#0NIQ)jlEGu5s(qCvd{vHoRcZZ% z1p#l={oXoXCl2$|to9=ovwnBvrzZ#yYVtGe^qZ&gH$C#>e(7&%>OU3ZZ;SH3JLK=M z=HEjT;B4v#ei`6i?bj9)0Fm=!7z*%>^UI)yLRtN9yoACh{DLB(fwYvtf`N{BfiZ-X zk#d0=27!s46o{k15L5odi9iCJAmkBWdfacx$+OjYa*l$$St;^6gMQ({im|M)GCA1P z2UsN(R)d07HN)!GV2y_|Iy1oLA^ED)h87 z)M7F8f-npxCqz~}Y^6GgU^18}Ck$vtL52ts#R=cK%%v_L&aWR%5*SFA6MnBLoQW;) zHc8I3Di-xRFbq3!nVtL?h_4!BtPzur zj5e={(dCKKH47aA$F#`Bm}ta0P7+xlVl5|uvd{=^-*)Vj__UR8I8!JwVbrBBhfg zH76)tBfeZ75FQp^T@#(S9$knCETu?D6H2I%PY4Z5s38JLrrXvgsz0dwMc^n zz|uMrx0{GEKEO;YbBiZ9)JXZWYqLe*h_V$O=HPT@xM$^t^g{iN#hJ6;vx>P zph&;d4FpnTNC;=>ilsm9MhZ^(3)iOWb%LIqq-*eGyb{jT*2@@0fLL?WO}8d{j4am_%wk=n%TzYK-2gvvju=(WFtRDA#W%i;i#AY#jKz!H-FL`G2LA- zOI$FY8|MVc3zaV{K@hBJBKmR*quKMfFY}M*CLXXOerOi?BMOgPQFFCLE;$66!qFG( zF>c^uyr;Q9bm2=#abOO?=t(RYEXo~F5+GkpZIMl2QIcCju;&^Xt{44zq2xA439|+2 zj$*0CB!NIsDFZCR15+AHRLZTGmBn6`&_zIJQ6^v!?ujhRaw!tk%6|S^PI7|B3E?_H zWe`ZYv3#~7N2&5=Io1=IN`ejzH81zlt1u0$(9p_KTPS}qU6Dv1rk@w)BUV{yR%zmv z&C5~d4ZyL2McQzL`hu&}RI5xAD$Vl}ylhLA*Rwpd2n}IC@69sbyh>kWl`cul>x8I} z)74(5)vsK${45CFNMd8r!Tx~ike(W75HQ7pP|~6%=oB8HSDOHRD+wORTVfbhzVndexO*<|4N?=(JI4 z59I8KZRrfoZx7w-NWRmhkk?`^*5>2Wg|KXmhF4{zcUWLLQaQWBl{yUdy0eu^bFh{b zHkj^&{7&v~U6GufHkhtg20c~q&Kjj2`j(!Q-d1a5kLaD=7Saw|y8L=SNI0wPfFzQr8#GzQwd|GeF%hfKnG<-hL1J(_zZa)(z%^}<#H#Pp!r({TA+F6f zYULqamH|uT!0t>FDPE7u!cY(Cz#+WcRc!bk+3+TOm`!=WS#Nkbzswyu%(2}K{5H%T z+~$HA9_cOptT!SMT+B>1`j~9Q71I5DyF@&ARNksYnykbFJbHV!@TE=>)>CXu^1NW* zy%2&N(-O_sNh;9Y9(5BNRjbc8>Kk!~j0ICOdXu)c00PW}$(=MP zX3{ncKxmulSC9EX*P;yc2tz8;qz=>*z8mi@yzUO_TKD*4zZ=^Tt4{A z%ICTG#JK`M_txy(&e_~XU*EwtF_q5zui*Zpb7DaKeDPi>mh8#Q5&c3PrU0Ldbij3? z6;n<;w?K|vpt!Y2^=$F_`$Za$McU*=`i4cuxy4)9Mewb!EVrJD|22a<&y~TrG8k6| z8S)pGp!@#E*upTBos0%j0*kuWNCP z<379(_l_~vd>asJk#DA!ppi(Ct#6;z<)7sA)uoNtc1MGr$srAgRmb~-nW-W4B&R*i z>v6mvvC%VE6k}k#xLIb*2QP_KxBekBx)i$`xik+APf$4#$>F)VdB)e(XdsUql!x+UT&3WC5q)DdTUWD`GeL?-ldrvQ=CQh#%O8cCRYoq zBBy_oohrSIr`*Lwb8go32RjxVRUc0hmQqfL6M@9lD?y+- z4g7ptnuq0iYz!0z%=@ir&52il%4%BFZ|LTo`pRL)Qyu9x7n_nQ z%Fhg3ZNy|GSerV(rz&kEwoV*}3$N6ykFUqw4{7@<`3PHcofKvbT$hOR5WYU0`yPnh zENmqA8}o7#cipa(40mbL-P&>4eZ6qY>1pDKsL1~7Gc4at*!TWAYUkBL=L2`{=b{_o zlA-66Q#RawT|KVPYi@xpOZ7PpXx;GrMN&^ED7h2Hv$;LUColejtbw zAJ+=yn|SXfxl%6+fETBYtABuk_RYeL{5VMo(|z~_+V^HXYa9MAQ}_h>D+6{=PF690 zKg3s#iFlQ=gAe2#0wGTD%nt;3kNPK=hJc)>jP-n5ZZv>cmfZY!IkyX>Ok| zQ;v5k;nJJ7RpisanJskNOU2?Cj9namC#qSnZSRE( z=nZl`3h&uI0nis$I<-5|K$1z}1#~=;yv=Zxn$w&b-b@W+IM3!6#h$zr0u(~;%yvCx zdmIq;Br1lp!i3S?c<^r6kGuRj*A=X~hXPg{khXgFlythNj)tz2OU<%A2%UN*p!6uV zwiVj_EOQ8z>p+Ez%oUr5$c4+K-dS@qXQ*R;tAH<-Z(!A;$QCaV098U+7+GjN*nd~u z{+4X6*W}&okeFDBcoAE@l&J4Dg)+UJI@=EFtveM|@Smpi6a!8gR{88Z> zvwKerIprzriLP62NQ5xSlizYXV3nN95Q4)ylJ9DCZRj1)+aD|mPf2!LI><*4(Nb_q zzPzXPEM2_rOe(@x14hBjPa$AueBWHEk9Slq!G(}YFtV7%elAsEOIyN!>DZ5Z@jL0w zgVkGKr3S@Cn-oA&L`c6s4+RcflB?f=M07_UlzXecVDP$%_~a0#@RsZnbEkxAQ7r4 zvE+P5zgu&qv_7`j_yO8w9&oK1L-6km#@Ql8=wA%R*;m?u>h>;PNQm3nH}JKZ-wj5> z*%IsR8srnqK@9qA`8R`MqVhfd(qQm^k?eN5G#IC6t9N55`vX*dq+J>ep;)|2gYhHl z>G?OHMD1v{%FkSE)ePB-flGtoVYj7zX)vy#`^GRoOA}_d+9}afUmAY#C!TNHItg1% zs2tX+)suc4K+n0|qQ5j4yVAE?<_KOKMF@cQpf5!FT2znPpU!=AdRccV9DZ_(U=MtC zNtOkQoO=wg-(4?=S7om`b3?E{Y(t6H)oc#Akl3FlHpH7I1E07s*k4+)qT5c_K23ka z9@@zg?*@1}Jp^1FDVY%O$8tM;cBJlr|rb7f%>G-;ioKnS6AJg!O7n=&fmP+-*Up=`pDmw zHo#6Wz(GCWlXHM`T!3qJfcr#%hqFJB0_x2Ql}*L*cZNbyIAj8s1_KHVqYk7E420T- zs0YH2s3PJ5BL!_^CIVySsN!jZ5=?E9)q{KpsnX(tptLqw6G2|pl)1Dp|7y`fbyz4? zow76z7Bum+(iBFS3d1-H*9*caaNtd*f-P}yQhj)DHB37a-tA1$HvxZx7d*}yd|6rb zu0in3Q4nr;@T4H`>_qT9VaTE&_cy_iWz&#VXU_Gwkj>7JZCdu-qYxbC&@H*ppQfSb zkkA8G)>HM+!?n&5hc19`ZP`)7gt*R=8eDvG($ZBZxYcmS0mRU6YVl<-* zg??A`ZSfdgwreIt5nQP;8fMq5)?@f_VxJOSv(E_^)sMx`A$MU5+ZzOUPXhEYv7e90 zE{m(`76aguad07GA38+DG0^`wVj?VVuR1QI29YpH6mg7*oCHRjA$lMPL>Dj-5ubw~ zLQck~b^+5hBAfN%H`ai;E(u8*M1?g8;qr(Qvyc|Cgc(9mwMJry5K$c>(PtglNR)^M zCw`GjY!^x*p&;sZN%CD!=*tN%1|+qxC5;Ltg+h`hh(Oaqp?M2QgRG!My5tbC8GGI@v=v^|*&2c#^qfxdSoW$C5V%Ylv&DKJdR`8qb`!UdiIM&c!DQrM3 z2QyUSfv@PZK6C@$(x;d~GUH8&w5Fg|3z-tGzz_7<2Jt{6^DL8~taL#l3k9gvM%HK` z(2gEuZw_=c&vpvRE<$0f z6Jvr<5yhEym>f?9AaW}AEl+MVF@ZDIHTRh?LGDz}tHIn_1z<6KUa4zFd2XtMZC*7o zu(meu^-Aq$)&ikN~mDxB_$xb*0#i(uK+s22;?hMxjgBX@C<#*lUPG1?b(N$ea&D89 zGWQ@(6iU6#OR+(vJzWIRU8Pp*1l$P;cR0%IG=aYv3^ai|8xhDh#&fW&gRV@Bq5O?1 z&SS-LPe5$YNt73+Ja|0^`{HStgkrfgtn9r!5n))AH?ktMt3rpQ;;n6|9s{AeJP|QZ zln|Z8Jhs5|n>l)f+LK z*A`{IVv(9bF&Ydteot#6T!EB;N^dhlqd+40yjY*jniP`S)OcVltTcckRz5c_tf%(f zLT#!W&|R^jOff!QH32GCt(S`~N&p6Kq8mv<=xUQ;5Ol$2tri%kB(Ee0QN6}pGHEwQGJxpeHPltjoR-!4wm4LE7%H_UeZ9sHV4UNGmb+(-gp448 zvm(j|EfQy#4?H-;maW$UTKN;J4ELH@dTqt)fFdFw>b({+f=ioGX++Wd7H<3gtWC!P zq|8|K&b>_?-ekDY!j@=zX)|89fj)>d5p=ZQ6lpcYw0^X-wO8s8gMp;;+adWKZuzao z3mrQQwqBf_d(?F`Brmu$ zBm=*+pB&A!U)u)JAP0*#1Q_c3A1M*gT6JEUjT@i)>;c2f%8xG?32@Fqlstp=@xz)H z1pMcq2Ufk0_=f{~hwb%no}3Sh;Egg`4c+f+m!}FdXGN$}S3eN=ASc4er1D zdhA{BpkvsW!0f0}9)TJefs|<9_lOY})p1+Bp0s=(^ZN1kIs|m8qkin;+&u)A!DCcO z0~;KmV7S$VyjnUz{%rDHo^3n;HTv%^~i)9Wa6XV7b(q&qYZ)>GJa>_BAwq$g&|mS^Jn$w;y2RA>@GicVJLc7YdoI(d5} zwP31IdCCAp4q_YpdHz%AY zn{(U{RCXm?CL`#ajR(%ALW}2C`qGN1Q-i?sb`a!9S?;0LjJIB9A7@r+Fl62lli)cq zHu8C)RBVBmoS1ZOA$f0sqMzteV#KR1(u5FQN{pD|MMf2(ONkM=Fwc@qeE0p=Y}>D_ z?}^zPzNUvQa3z0LW%`zf9DUSJJm>zcDD0c?4)ML&Z%@hF#cq*EJX<-@ZT!}lx39xJBFE9MO=mUAon zH28n1c}sO=Osm=f+?(`!3WE)qm_$9tqIWfDEFVA9gfG>Tmw_Hh7>+2i*ziOZ_ z(`7{%l|M6TJh;mm!HWGBcNSG@ln`B{O@%L3mZdDfV^!gTDa(F=u&^X%>b`GM^!QmM zJ5bXY^*Y-OZZ45tp8GaSFWLN_xeWW;JiW*d%cT|hgM~5!zB;G&oHS*&7X1oZ{slV8 z)K7}VjspcS}$B$ojuGghx z^)8avb7&^hVRc0IRo+gsD{S*iF|2b1?fNKoy4s##Qq)axn-k+hav@&l9P>>*BH{hB zIu~v3!2-Dym86=Vo3-w;^S7#>hV3o{!x|+T>RfKGjXc-Y&8$B?6#3dhmh!#oGy140 zJ4IvTXLg&X6A(Mm0y*t70oxIlX6kv6#$-x=dMQP?;4Az_4opKJic0dQvYSW^&=ex1 z_Py(G^fi$6nIF(!rM!9^#?#&zedEy+{dAb%SENCZ$narns2IqlC5-Rg&^Ic%_nC&| zN;`sWk@8Y(%TbE&Txf2n-%2%ltG%+887afZo272_YJFK*Ei0!r-m;QyDZx&j(wNfW zmti)-WP|Mi)#sDr>;z|e8fhqpvHBWbz)l#e^2;r@*7Pu$AlBq)^6u62c!hY=Y?c#s zQ&d{WiErj}y&&^k8;Pbh1zGPCcI4Z_jrGjRxmvS)<>D#Hq6TcdMKKz8(Y&OZFVHf_ zm#SwgDHqGmY)RguGQAb1)N39QKWsj2R3WDgldS$4LSjj^G8JZ3+kQ*Sx>N*7QbZQX z?ka_TROiM`j-%AgRX;IxYD0F+vS=lzk?hLjw?x%sLyCQ-^e|gS=}e-HCJ$ZMijTIi z?RbRG_>qFX3d7rVi$GYan-kv4M@B?l!Xuj^EW+PPOM+uh%&`kE!f*$0N)AfgQF_!Z z(*kiAzQ;}0+IN#||IsM_C~51!eeGb!@mGf!N22$hOg`h!;Gzux^oMIH_*P$hsj6N z)ITV42R8|DyVF;G3A0;MXSF#$_$*jdzhy4M{b%Dow z-wO#&evHgr-{(@=!d~A$+!em{lVoA77t%vZnCjuPeJ&(Wy|D|69en8DZ za`Ij<9dR|T2NO3j4e8?MN>~#Wu^8!Q&-_=`PJGIsF!KA4^l4vpdVl&nNW|sNOk|+m zOeZr4aW>GWvWt@x+6xQNMWzxL-jljRu^%WS!a{|{G*R>H`^!1ATwesYaYbYXP4Zwh zsRNMG58G2=?`Lpn<-wesG^udgB^LUTqnO7b08MuLbc%&eS)u;$kaxxDgnMyS&y2i6 zKfAZwzEGDP7%P6MGIEE40wE{BX&3Hwwn)|J_y}LYD+2oC+r6PUdD%~4k>QV)PQ~aH zq(i78eTEE)Rcm-(d<~0^68XlVPY2XUgXkw^P+!<0dIU-JV(Z+!!S^6#dWGwet(;k` z;X)nn;}60K*JF7&Xq8oW!s5IBulDXbD(ZjV7yrl<9b%A*s7OjE0s}~?v|!Q-23-nD z%g_unz|b&53>`z~&_j1fNeWoBgh3DY+?Ue9`EP# z`FhbTS%M1Z$SI|nd2yM($xZ#`JB-&4=85=Z?AFOXp#$xzZdijo4$6- zx2)Ik{l(~q>EBeWG#K(OR@~~!6qU3(_hRziOe;Tw+UsX`-yjr{&y2{Pqsj~YDE%<4 zeI$p4TlxNI@k5Clk8pm-<$GqC=QFUKd3pt3*2@jGFNj%QVWG0o@1d40jVwiMz5@IH zCXGqoY%XxPo%d$WG=*nmv@n8f^Th2AmkhR}$XoLHWr$GQk5g|MhZ0^qs~V?iKXhJDMu)NmL4l=#jd43c-@Er|Aq;s+m01oG5467#GJJE(|{+$mDA(_`dkyy)k!n z@Au}+&XP*qD$G9-MdwzyXO*Y-<=(cQ^`;+;Peaox*?CeuuKv%#5cidE(ODi~f}Veowm zmo9r*V!*BTjp>hMy4uSKCPb;*cgl~n9?r|kI*1~a{m(2N&Lxd-cVfc#pLx$Y7VZ!1 z6}>Y3Rrr)+#gIuhH~0ImLO+w$XIDHXi0|H(+nB7`IJi&ETzy08s9zMY0?oA8Z`W>f zEqV;>F&=z(j)y;4x_(9O;|cGbj4Mwzy`?-qzq$LmbBgP8RJJD*t?4fA`OO~^*{%zk z?;Hn-T-51T4)wKCUi)N!{N!d<-@bXc7kKT?Zx$DqHTZY->5GZewF6SNp6d>F@W$zp z3zSa0qo>tp)!jMR+aE!8yo>8{L*oMtz$M+o?;c0{b4-mp9XgaP{L#UpPUGH(0m|>% zqr-72)sSv)k&MAeND1;} zC(`ye@{F1{NZf}b-rM4>&pCeY{bC3Ut+$3ByVRY-z#iPLTr9dKl@&% zW)kQ3Q&#aqbTUef`w5SW1Er0HIlr5h;!3XmDr)|>GUh%N1swc=UVzz1*4&< z=vr#O`bG2}2-C!mX<-X)v&0m|`*x{ezL7BDTl<{ys#c(Patb$`W zA((EDE%0C`oW2X|C5B~I$I6>x;nlRjtB2emmLoU9jXC0+K!luPL>52o+3J9s#S#2V z*f$#y!U9;RK%|~D?d1u7MQr4a-EgPDNQ8R$O;D70HO)1Yzoc8#EjQ4s;wUwPaM7hG zO==n?^(cypLG-O%n0i9AB02g6iCTxuMPAb7POa1w3}pP#puusH;OSOAnN~PID_CwW zE~*Q6G9F&Egw*80XLo_AnG>635*2jum2P;F4AQk2f7AhK*u~3;B@W3X$(bfTOMrA$ zBj1t}DIXvMGI%Mmq)+NeGNwsDU1LJs$BCTuYawaYAX-{1c}qR{hH3HwDtSqr;=9t7 zth13kCj&8L(CScrT$)&MnlJ)<)iCt|87JW$`&c*q z#zd<0UaCZKx||^N<{s>tArxqDfDAKOCezfqBOfUyIEuyTZDi&(%W~Sc_F}0hP*<-yy89RJSm0D2CG^QXUZd{?&TFD!W;H5&dmAE zi2OSS`Rz5t&Pk#v7SpGJehw;lk0TBv2&2{oAKcMzkRdO~1@pTFpHSc~jXbmB5EoOF zIjCSWx9}%>VY&t^lax5Iliy-k^qaPj6_;;r8hTI@wxCf2;w(OCn7rl=`;>#Yw!mbz_-4eQ zTY3{&5uR0HgfG*pEemTen5hA4qd{%zl^9s1nQS@mA+d6I9CyJr%J@8%B80= zD67iDrbr1{6=+_mgsoIoB>BTgKEy(mxhlVQQs{m`I9;_5U$t^i70RaC`%L*wBq>Iy zDru!!9#oU6SsbTXlW9|Nn_TS?SREx>aECxDBGwRlD#})BT+C~$genV&wXa~cZ-hvy zpgIe_x|S7En@wGeUtNh!zPe(q?YFuCB2j}}=kc7RW?IuDRFkMuKRT7CiL5sVH_X%J zeb#Kyf8LOwS@(h1pxn~1Myy+3q0~?G)CTp`EZH=EMK|uEYqda)m(qdfi~3*a8lQ`e z3$nR7JoUQiWIEd%24ONB-1I}Unzgs_+ViHf!nN!e^3#^48>ZwFT1}sLn=j@!o)<3M zL^lsD*Xo)!_kL;?rLPhfZmCjkk<71_%5OUQ)TpZ1e0PqlK;L?Yr&U|Abvvy^cD3O? zq4kPwt7?9;4yMIhnS3AFs$$#rwz*Y+p8OEh*6^wADSgWWo^~1GHYKe#i{3U3<@T4h zEsy5fm8d$jwHhBI+i_{_Q$6iwt1UTOMFxbndx{;Ryq)@rodNXC!@ixU)sBY*5Js*g zuNxXt*SU+kT4mjZmFq~LaJ6A4p>dcl6s>4XZU zyZrW`MOxj@YFe#mVYR(IYRf&ww7nIc&=TREw)~zB+n)OTUS$qg6Mc`YVbgozzCKKE zi)|mjAZ%Ex@07K;Bmy=|-~W3;oKpk#)waLAOM+qmTM_Q9sJ=F91=|!Jh)B5J;0D{q z4A@mS;83u`)q(AaW_;Jc#46OyO`0nY20rXilc|rGgfXr4o}=+r(S6S*Ld{YC9y$2_ z+!~yRd&pC4=u!ck&uhpPJ0xfa7oHh%-WU>-httRp2kH*r(59A78sn z(xEIrB4<4EIMi`O&2EIPZX_JpaW`q?9M>pTZ1myb$S04{NMwVdJdNArXd+LhsR->I z#8?JTih0r)@W5d^GiHA{=E(iwwfqNXlMipbKDZ`*aIgR1IrHJ2m-&T%D=n}b6Z|p3 z9~1mB!T)z7_<#5Jf5dk{-v8vhk#nHm1F*32%WPP?N?sRyWrrQsj z_uzZyKkn=ZuFn%=9Fi#R`)hWovu+2!=4OpR4V3cR@4)XK5q#j3pxe$5uIqpBle@(~ zfBMv&CPKhNGm>8*=i~SDtml1mqJt6GoYT(Rw^N^a3V)mXgyw1w{)90d9sd-1S34)2 zRqprVMMg#QnCHly(@S#^YJ9uVC>4qMj7PeY{Fw$1C1h@g=$Yq!jlFU2RoY2Yguu7( z7yTodz7I3HJ_7`AFn-E{_rgM=bC}hYT=k-F&G$;VhjgO;#k@^d8NV~SI@IlQl&mxSrqDT-QVru(s$l02avEr7 z2aDb@eCFI>1`q2xw$1U;Y?im$_llP?oo5wi_&S6rZKHnfxkXQ3)awUY;-fERVr{un z#YilY~{B;ac?_X~#R?$3la&hr~v9eZ9tLwD4?dkKQSc>ND z`LL=EC#Epvc{Czyr%guqs`Bix0i*Ocij-x4_3PxPjP4A$D<b9@KNBgF4Dz8?xHIX+vuaVW(d!^PrIOW$Br8WzyBMyFzbACGbJymu> zj?tO;1orz&+KoDZX-JPERN$H4Qe^0QXqwi-s*V*)C-prThOA@=Vv|r(F5goVIg)Lw% ziTSbED+!PxEEfzrJvqoI(tCkjjSWml(xtmWpSJZ4+rrDJNKcJP9X20N;-D1|b{0!x zX~DKyNv{Rzxu!9v^SANdX9*N#qp-2ke1VEs-(xgc{d6{O(bp?5&VihNy$RqMvht*gHk&??YFcKe3)v?^2K`jj(rnLA&EZ zrSct47fqjeSrnx%WO)*rc-`kx0<*@w2A}AR-Y-ixtR&B_iqjT2XL6d-Xg=_bfC~Ds zkL6)|9*0H7VSu@$dj==j^H0*W^?ntPNYH9Jh{W=|`X=^@UEAtz6fV=VS@J?Pi`gA* z+8JR!?k4sg{=_ZF*O6~BsQ|%WjZCU@UXZYIV-D>brul{8V*v>M)!0=GRjyArh(p(- zFp98d+kCT2hKcjQiH6}cKjrL&Nllb}f&X_N{jWIed;2k;^pO|MN*+6*0ih3RE=vk9 z-ZRv_?0M?V@`gpc7{`Oq{^%^pQSFbDA875DuF}ZIEWv#^MtJEZC1mB5@5kWaS-h+? z*mTW@D6vO*cLwvcwV6;uge+d?Q6d;(qly|t6zPT#Eq*PXAK@4q*j?avIIV2Vji9b6 zjCuRBNhmn5SkK{Ha}f)4^^Nnhe4bNd@o2@>%Rx?h?e}|2!VA7!ykw+ZdlJqVcc^48 z$w|}y_J(~*1b7@NHhIgwx%|yT+vkgeGVd!NN2DR`IOOSYh|Yd^RhyllvyE!O1!|_z z6(z?2BJHO$XDf_9ff*=H#nab5HCI3QVrL97yEOOM1x+Rwp4Hhh+2ByAL#(Q~^%3cR zR*GF*sZW)hUQrHe)eD#>tV2$}o;`(AX*_vJ&0Ch533S%+Jop{qCcUkK*ClBr$jotX zdD9dmc&mB&xoW`DHZ%Qa2X2OOG03$~X5eI%)^n%SQQ?-1rQIe{vcALAC$QmSx#3V}Y}kI>i;QjXB#4 z&Oe=a6#Q!|HvG1pxX$S(kL5QLj@lkdZbv`oH|fB?gxzD1x^A=Muc`=i2V66LIKGJy ze<31e0FQe6rsOcl#)6{iyL#pe3Ujx~V+}p4Ry0RmepH*Nm*q{LD7;n!T4&GsYPf zN%S!Jgcz?GALxrL!q?B3ov)n~eHU3)D?e@Zw03%P2AE4SnS7N3lnrKn)$S)vOOMyi zxy@`ha^9S9J6|_P=e^Sc5WKsE=jS7eYiEziR#cG`M|_RVM5lKdQc8#0-*oor zp4jiC<8S|f*A{FK{2};wY@9~yiCum2appG&2X zQ0ZzR3H)5y{2{qHA(`Xs1;HUj)aa7&Gi7Wc0hVY?@L6CkskRecPdWw6B>@CabUoST z8e$uaNzTFaSYp1-Ve-aV-j9boRSO-JW&!4s401xJ^qGOVqz6FRAcyI*+MlvP1~8Yz zAF9tCN$jTEf@aeYJT~#@xWa4G7x_;N9Gm z{jL-#Y4{P!=Y$}^5(S1CroyekG5$sYXH8CNdMxN#y=S&*q!=%Bl$ikomB&Tog+iiFf>S*YciDu!B6%w?=xpPm}WlG%`!)% zS!$%~)@11zK&xorv2M`Uh-`7)Y-0{EFqHIoBf(QJ&R`>3(=E#vk#1s`ql|(ECFDG= z&cQ54IRgaGksFDKGTev-2tLvXn~R&wNVLwj-pjqtp7%f|kD&{iwHJlQ`~5f|4hrD-iiGL`Hiau{IC;3>WrvFyBZZe~_b~ z4N>q^5ql01W=1HuAdo(zkw1heIKy7Jr3MGe2H$Y8i@3s%HHCAuuvO}!57Mw78b#CA zMSLMeyLm;E`tTk#*pUW-%7`FMF6`g{{%yglErD-R89Y)UHu*1*nD1TTTh@ha_!6*9 z`l>Z-cc+9gxA?4V=_R9dYT6PDUF^(K#F?p5`u$R|{bJ^+SblVrJ2u*~xcFyonQTv) z1R7SwmPGNchDooKiq?YVSIVyS#JxiX+}$siA(q{rDzjBg@MZRQAXFG}R+!++pVB3T ziut`#EJv7@t8$iEPQeZhxb62V9jCw#YQ0^I%I~azJv42+R;rANRZnDXj%bTzK~->M zauBDDpC-wij^wmr9U)YGi4NkkZyiThkwB~t@3965o}CkdueC;TLNG#*Y`k^4W(|WZ zBo%F4L|02CR9j|aU13z2(o<8dY5igaOhnhl(A70ffm<}|t`KWG&~}{Irfv^f+JFJBqp__VaWKQRkEB7G3IB$roHs{i|Ts9WJX4_O{({f(! zx=en{Xitj}y_AA2SU{^;ieB`#Z7a8MD^#;d)3|7!4yx`ca! zKP`5_6Qa5b5f^TMZVP!i4Y9BlGg)n85r*33w_4@5YYTT68S`HehT7P+yG>tl=xx2I z1$FWi1_}lbrp>LjvP8-V!Jn6r}2|;?MUDJRv6}|46qs z9ZIW<{jEu~;~C!Mie{CDNY@Yh4i4XBpjPA_c_%h$7{qLJE9Q^*P0o5yD_4x z4Zklx>O>xTY)7r1H0obGYJ51{doYS&9(yJ~7GpeSe%NL?Lk%drReg*7AvK=sgDrQf zGXo8v@UKnC?jkgF(;uS9xyU}6H;C~xY*wH)?P=UNW@bF>a2(4$5h*_rZ88z-H4&dQ zfvcZLoS8^IoFH&dV$M+gJvq;O%=X7@f6VsBZ2#Yo?f;q>`it#>QwhM4gnvJY089q` z=Q8tu9Yugrc>X19ewNnbJ^K^Twn;)dt?n9lX8X*7B5Hr=c$V$6^w( zsJWruN&53J@>OhCUWJcM^!r(LIgY%T}S`o6I8F*(Idxsu9w ziZQq?K<7oye4vbT&Lcljd468~ORp`TJwD$LZws-mSp0<6F*)&!^?Ir0MMmjn%eFAh zpNpTvr65ZqSP6t##v`@ZoD73U%n7Ygx_1)3L_fT1_LW8de&*Lu<1=^K;_mpf16K}W zWrh>91yjG_Y^j#M;qMdFTNC9*)y)&0w4)#?0NZEb-Dq)qsUWtRmL%7ksTRzb8_SES zNLcz}GUmzNV$waWJ(cWaN>^qUr$>cejjiLGUt#E=+{EWc_B0D-myJz=aubHmOo6Lr+&R}+hR1a6 zstW|sw`#6qfwj-sz#dzcm40*!2s=q!OY>hQnl>(m;Qi{ThIJj9wrL|AnwuFlA$6j1 z^y1~g97-j0XP(-E8y8?D;&j{|w)UM0m^!LvJ|V3QX2ERT*F8TQgiD*Q^=g&%@NYB! zph2w5wKPjfVT5{=2SBgeZy(7D4ypGjI(JLAFguT^OszVNo>mEcL;t|R?q|~zZ-&Y- z*#qI`QFDvF^6|SzhHt0D{AcJt2n}ev%*f9YZcKTk%(yTpfX|WU92Rt4$w7Fj9eQ!j zkJ7W@9fZ;^nk42)SDqdS zR{1)oGSR{?1n!e+N)n)AC}a6kHr`I9;XWT*nW>c7|LO}KTF*Dlmj)jx zta@@#$J{EhnR{~wCcn%QhH9DP`f;X{pFR?6FP3p(H%CRr_mV}ZXY)mPf~tC0L?lYs zO#Ouzna6f3BI)OsE6@k(3Qr_pndP4a{%iz&-=rzvY7#Q*x}ww{8Cy~Qk~MQs)x;1I z<-|KD>SLg0rXfLFef^u#rx-2jt4>ijoWEUqB~Y^ROT}c=wpmiATG{SqnZyjRYhufM z_f!}w{_FLH8wmj0zwEwLvzpFT2{XlJwnf|{Y;~aT|PGK zA+@xIU&IT<1OKs+tf1adl(R-U@6U&s-k@b|?kYlhesG9t=Hf;)$HV38j~H|gpFNa8 zQRh95$=!HQ;~!Z3s8Fz(Xy0n}ZrYKjAoer{tGFUq`E=b8>-YTHKA&aa4()bb+V;GT29^0#*%*eaq-34uLTmGcrpf}=R3wzNX7ly z7#yflz5W15&eK^kF4lze4ELRv%jazHdg0==H&^)c=jP1!6SwNxh^lVY*~~vV!ns!h zKB`P>*1u`3ddr?#wA26U=^^S?Bky%pZ~4xXd$gp+1g9eD@948XuafGbS=Rl^_Bp-> z`Zag^d=CisIRDAswTfnIEl9=Y;!v1t@x7r{RFC16mO|;gz{nMUGh@M`eo}VR{pC=F zNs-tssmvcIm%^{$#JmeXpMXmy$V~Wrv7zlt*l>J3WXm4@w9+nDCGgVBkj9f6cNwXI zeic4%6!!garnU0LO{G@}E7RABgjzDR2*04UfcW1h=dY!KuwmsHSN9{(sosXqcp4S)Q%E_E2bk zV!Z!trS=2h%E8o>>R=_QgWI;-6S#74=PgSoaOI!{A+{7&Rrg9B;sRVbh_~;l1FjrA zfS&+1f?P9-h5)uVo=^bTe!V{0PquEB<|(Ol>M$zE$n)dPcv5=@cNE$~Zbp8b)LAhT z8IC`gl4GmxP6CL$)^k$eX?1T;Xk^@!@eCrqy5GAm62D(JE;Cy_IO|1;1lazA()pU9 zRFj|SvL>VIPisbmOnzh=C4G>NuNe~n5Zyz55 z(^LDBwX@q5UZUTZAm_hm^H9pxoeu1`4R^_W_kO(kzPN03wD-SE&Lhsx9c~02sk12_ z?Mgxu6)rrtr)sF~AC`!MVborKyrR#&R3LlP2AOQRnZR- z?|atCPui7HmgL9$+3yy$zY@RyS7m>Vai33){;HNDnk0YiMSq>fv@<3Ech?H*$H$B4sz2! z=b<0uwHV~Y#^uu)I2PEeekf1$M_?|TN=1w?h7yNS^MRE*(5+8mLkENM_gC?*i zCcwa65RgcQcY$f$BF-kj8LK0hy1*xV(cD6m0{s$*>DV(tq-%yOdx6=Q|eAQo=1HiTH4u2?$* zKYvi%D*@oXL5!7Y+!J+(TW%bZ9Cy(Y;;kNM2_)y$;{)7$y^--;t`KxryakY)mw^Cm z@2Qw@DjpJticQE(zyry7l#d4p$I6dOr-?T=#bwhZ8>4QTNNox4s`l0i?m3&F`tyA;UkMA9`-3WYs!OD08n7xKHy?-e#> zuR2B70DLq-XkaH$xko{)Q(j{e?-K}X>R`s2R7vJkFfH_(L2AAXl&yv!QJl)J0Y0~v z%43M<4T*mUoH(Eb1IhVo#c3xI(A?d$7gkUSL==Z%I+q|=8kc^*INbr1{%9jzaWX}D znILGGApnf_(7+wtpjwj|;u{$^faE+P^D#E=ad)%O#MdE%Zp=vode==`_MC?_AH|!C~h-e@=PcqD}p@p^Q4i2zRkaOWneL^^(&zCG==m z1PNzQ4LgZ0rl|!3L3#$8n0GvW{PC^CM(ln1FlEc_HarAT2Ca_ zozScu-p_w(Q~zPb9AJCH+Y^BWsAn-2CM zXKl&s(-HvWchNyv>BTPyH&+QlFXxMbdz(fzo6jeTUBNWxA)rFWSFdTcBw4q>ZADHe zLb&P4@?64z-vh%=QU}7f6Z6(Mq3ZcUn!T;N#AcOM0TE%SQZM5D=k$cy96+2fmppnqL~Wto2N!*8 zpBmBVZpeeJt+cY#Ol7TK%6<wG_Mc;J$F*Pl5WdNf_J& zDmd}(+tlEhHEPzR_uj?txn|(!4&Qq)5Ai0!FPRLvI1cffzy<4voCb%kion^phXcfh zugg>4@EZ2P4kKpXPfZPTa5pISQ7g!g+>&p5aHpPHJ8?wAq+QEv+9-F5>_V;6dKlb-yfB)~~?;r>T z+oevdmtN_sJu>D0|6yasi7F_VDgce~Munq7BconnV2fO|2lQx{ln$)6m%5-f_CMt+SWh-P8BJd|+^BEN5i&!xV0! zY#O+^H#`3o^ZCoSW#7g8m35yr;>J&}t;}D$Zrd4qls5-*hn)HXbC-Ror`Y7;i!a~; zV!1Sg!7M|qXfwf^&7CFab{z`$5(ArhX+~UlRt-eItMp~3$mQqVUwlhPV`HVA8uEF| zECz%nPn&hAmoMJszZunEe$v_UeYSMC#61m3zG0jm!TOEBY4y>fOR8oCr4_5)g{tJd z%%SLzi7LyWoFrLO4I=@EAMH?Om%^Endt0<0SJI1S`CU?|&uO^^nbicJ5PFhd^(w3* zDCLs9aze>h&iHFm6LlG73j>nMMWezAsHNeY=Q(HU{hcE}6hCi_*Oo=uT_Ops#P)IK zN6p^xr90nHOM3OFz(**khb!>MLPh%dguC@M=#_CV8`0+aT9-3(jmoM^HJ%ecW{36q z`k$aY$~KHT^+X#eYx_oDDM26KJrwXUW(GA}A<#nlgIawQF6GSm3S7^5=zae1%7urg zBrMJDGljuh0}bCS&Ic)QpD<$rq@0(Q-`BD=M7A7|@++;2!x-K@)AW1Nk8{!=-5!i@ z0XAk5K4Wh&ntfqVJDK?fr8RcDHR{GK_R(nN$1+1P^2>y;vBu4dU*nWb)m!3)W7J>9 z+zmv5@pd&6nQ>O#373;jj8``&SW*b)^q#+$7Lpv>(-v@^=k^v7l<4=A)599NGSVm| zYF3%Sj3}$XoA%wg3D`Xz0lI*&JQIYg!Ml5US3&A^==8-}Scp_Tj_ zNKWONU4TWN}Rv|%JQEGxk(dCd2?z%g)?B3M! zYv$6@+N9p=N0z|o9ahDfuXz|A9Jr$H8?qVxOnpuXmQdf`6jVO0eYXZU>`?KfmKA=!d{`OBv(ryR1ie^0U_wX3>UvrM<9JsdzTH0Qx#EGL4mTn(J@|7_(Hhv8`6ie7Fm{=73)^FAR2N_ob!uN znQoR)zSRr2?l9k>{T>l+vhn#m8hZyey=h_xX}++nf9JM!1a+wM7oH1Ud{TEKBV)?H zuztO-Dhu<+CY@@&!h}+}*Dp?;U`#F8k+(|#tM0e{=-9~e%R)v8J$h%d z99pnJmB7fmI09?>?0vVlKnbKDu#&Wg@^{ps3=53IoXHOTbxzY#5EFOG10dq6_-?Ji|@zY zuuzbi&{ciu-Xk+If*-q}dzUpsIk`ccNkP(FcR2kd==5lgUb*r8H`OC6uJbn~kb=CK zh*7S}a%oe39r|*PM@r5yd0;9VwybN9OK+4gTl`wqR#6F@8yPH6w!LL+BCXdFKQAc? zY|IFh=y5M+i&`zxGec{ebx(~ITZ!m$#+FgFmolFY?=yXhhXip}kV{Wz+%{KtWf=?{ zJd@5~s-op#Xp#~8j>fFu2(vl4x2saQiN0f3mCZEWJit*qdQRR`^QI%@gWC$v_g^EF zSH^R>D%IV7s!mpVjEj6a=Z6cprSey5yS>PL%zYE0Pqm{1Igcr5n2y{zlBe@1Z^o zXNA_Qiejy`kw-^QNcYu$Z3I4g^nm3-xxrcabyW4J?&*Ejr%Uujasp@i))1`b)sP@D zFTQTa{QEXHV%G1?yzN?um2`Zq{oM#Gb)s+VV!2j3$kqWr#qR*BCYlt+RP}zn>ap8n z%2*cPq4iAyzuRkhw+#28_uGxy-9E=K;Ft-$>;2!vfAzpjU`Z?n2dm!MhBoDR$0`AD~-Ic&SVAT!~a1Yoe zIs85la5owg)vc;)tdDY;0%GIIRSm?$NRNGwsjK5v&N)5C%MTjeMhgmG=UW_p zHCm|Y)TF#gDNt-E#D54?@rnKt@~cv;c(-1js=fd(PRg* zP~wcAw=_Myw`=aDkMj%W2MzDHc7QnK*49VOuWRylz3H{$cn6nK`SrB{|98`keD$S4 zPVWBOiodFE>a3tmtjE)F%4P8CB$t8xkNcEuGE>7wkj}v;&ZC`9orbNrfrD?dN4taJ z4L@BRkjqB1duQ(Dj>6878Rd7%Y|nD|(caQLWslOR z(7iQq^lRSih~kvewRaXdTE$4wLr$tnQN<%a>oLN{ksq@qX>*YCbI4Qr*I8VB<`jKS z$4i_Y_n9X6@a!OA!#?L+87{E-9x3|@TKZlI_8m?06_Z8|4f={$3X8M(T~qUu%n_7w z^^?i*lXc~nANNxLq+Fj*McV(pslQ^dzj}^;AKCv-&Ly3Ae@*^?2jdqW?f3&5Gur$- zM*4p?W}fPEn~?$lDK}u_wBQf4$_acq&Sv+wjhR>Dr=8dWZ(9aw1)up7aPJKABC-An zxbp|wxUvMe1_}oUKLMoNGI(q**m|5fVm$CXAm!4`ah<{JIVcKVp9vV5VWkd9&0z!r z?wOV$FM>mI`BC(pA=#D;ML8kMJZMK(h6-x*Iuc#RPhYDRM43YuSkeOlcd!yBoSMF4 zF_0k@qn|_9XBj}og2v)O;-Jv?JG8*2zNjN;jxB6X8va2)?As32q;zo3VCb!#&`&#I z>*KI*(%}o^R7*KwcyicUC)LJy_+dQkCmZ%xC)IX*a3mr8<{}k^gx%DKQSD;C28Tg& z{i2XqF={Y!jTNJ%1;DB_QEv&+ENWow ziD)CxpI!Y2)jrO^Jz!Lffk3nYIp&r+_$f`SBTp=iCHQ4-j6O2fBsbP(0_iXpOXUg% zq+Cxi?u`uC1r=vYh}(+;do4u+gZe%K@qSC*Hm32rLGdW7*vI7fP^-9b18*yygv}~& zOm4g|5|m+p%i5)iPe{O3CwvQnB@4WhW5%T=P-Pk5E4!$24WebpxbGIQBKCLkJos2Q zs!D^zssyU)TzqX8ep?FGi1Gqr?))gKc7vo2E2^&C#GbB1_+sL~E_g^L@uF$c7dIS` zZa=pRo)+*m+en&YPrhM5^_3!%lHr!TI1#bjmGo=_rwmFNR;T*OPPput0^I-Ytxk!Q zfl$~}c$o=|8dSi*46G)BdO7x1F@c_zigAx{kvVlo1`=+Ns$m6T!$klaAyk4?fRrmU zr#&@Iy$wh?BAH(!g}Ek;$pGR)1AFWSkwBzh&`sy!paP`)&PI%!V3hhsI-OgZG9rcB zFoOyOQBBA=Q=Or;9DaQd*qF(@j|kV;h<$erg;Nz%vx@O+FduT%||VVIYNi_F30CD-H;XrcMk z#5ieanFcY@n)nSxtj;6i^kHZT^$Owa$5n3@+?K zms;nI;|f}=Q}V5$)jI|KIr$$Dgy25 zaejGj5iq5{6#{i(OHinW?f}<}WL)JjbNr*sv%7Fz?Z?YRyF-2JTUI##ZA^;BgOYy0pLz=%E& zaBu3VO(9l>_tZ_G>!y0@@jc+-DY5!ma3i`N?Qvt2SofB)2d?nAwzkq>Mceq5Q}l;T zy^BrbY_0e%u`#BnamDERkqy<7X2bTBFw~YjBSdb~sHZa~rqV%ZFhVTCO%F7iPRj|N z#WZ;ln+}Or=RLsiRq&=z^F>?m7S2_^1tEx#ZL^Fq zpJ*@nvnJ$PzMztDE2|vjc5jm;kaW*)Rlr;;U<1+gkAL3&xjH-hKU|OC6vte4D-o0&f-YT&_1p1cmauKD=086<4kic)eSn4->17&=Y@g-8#9wMP4AZaYF8n~OE->k zp)cNfYxAC@`JXzgRlY^b<&_^@gTh&jPY>r z1@rrp@~{=-_ir8FvuVSDjTuT^=efQ=8#BBnZGe=Y_Z;#9HfBPH_NRuti`&HNhfc^1 zBY}+>?%_84uy1jloIJJh-nC(jZo0Avjey}uv~H4G{Roh5zk4{M%RLID+aH>YKKA;< z2se3oDzJG-D@%8g}0tW?y|4aKf%fI6aAe;@nzv48(_{k!>p>fa}h{rkU-e|!Js-v)pD`|vOSK05aA zf0cg|Kw~-o;NQr9see=d-|FAkWB)$(@BfqjO>^wu$Nqin-^czfCLt;zA@cf#xrmdS zy|bCCh`rNA-kUsfz+VuzUOGL0ZRO}}<#6oZ_Q(Ex?BB=!{r}0oAwj{A|I+?_`rrJU z{-5vPM#ujBpY(6=v48&){X60x{hJ!_Z>s;Q{;dc;&VL{0zmN0Z|J3~Vr~j#cLy!IY zzm0!~|K;B&{+9m+{Vo5kKy{q|{ukxHi$PWy_V53lf6M+4M%gY} literal 0 HcmV?d00001 diff --git a/B4A/Subs.bas b/B4A/Subs.bas index 9d52bbc..a71d62b 100644 --- a/B4A/Subs.bas +++ b/B4A/Subs.bas @@ -192,4 +192,14 @@ Sub traeAlmacen As String 'ignore a = C.GetString("ID_ALMACEN") c.Close Return a +End Sub + +'Muestra en el Log los campos y valores que regresan en el JobDone. +Sub logJobDoneResultados(resultado As DBResult) + For Each records() As Object In resultado.Rows + LogColor($"====== ${resultado.Tag} - REGISTROS = ${resultado.Rows.Size}"$, Colors.RGB(215,37,0)) + For Each k As String In resultado.Columns.Keys + LogColor(k & " = " & records(resultado.Columns.Get(k)), Colors.RGB(215,37,0)) + Next + Next End Sub \ No newline at end of file