From 5bcd9b45f4c5d1092be53ab4c804f65779f2d7c7 Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Sun, 5 Nov 2023 01:42:22 -0600 Subject: [PATCH] =?UTF-8?q?5/11/32=20-=20Seleccionar=20empresa,=20validar?= =?UTF-8?q?=20pedido=20e=20icono.=20-=20C=C3=B3digo=20para=20seleccionar?= =?UTF-8?q?=20de=20que=20empresa=20es=20la=20BD,=20o=20si=20la=20BD=20trae?= =?UTF-8?q?=20la=20info,=20seleccionarla=20autom=C3=A1ticamente.=20-=20C?= =?UTF-8?q?=C3=B3digo=20para=20validar=20si=20cayo=20bien=20la=20venta=20e?= =?UTF-8?q?n=20el=20servidor.=20-=20Icono=20de=20keymon?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- B4A/B4XMainPage.bas | 178 ++++++++++++++++++++++++-------------- B4A/C_Envios.bas | 6 -- B4A/DBCheck.b4a | 2 +- B4A/DBCheck.b4a.meta | 8 +- B4A/Files/logo_keymon.png | Bin 0 -> 13113 bytes B4A/Files/mainpage.bal | Bin 21639 -> 22223 bytes 6 files changed, 117 insertions(+), 77 deletions(-) create mode 100644 B4A/Files/logo_keymon.png diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index 4eb2a58..6dea633 100644 --- a/B4A/B4XMainPage.bas +++ b/B4A/B4XMainPage.bas @@ -30,6 +30,7 @@ Sub Class_Globals Dim ime As IME Dim skmt As SQL Dim reqManager As DBRequestManager + Dim cmd As DBCommand Dim l_pedidos2 As Label Dim l_diasVenta As Label Dim l_totalVenta As Label @@ -39,7 +40,6 @@ Sub Class_Globals ' Dim datos_iguales As String Dim cuantos_pedidosc As String Dim cuantos_noventa As String -' Dim reqsPendientes As List Dim l_ruta2 As Label Dim ruta As String = "" Dim l_usuario2 As Label @@ -74,6 +74,7 @@ Sub Class_Globals Private b_guardaUsuario As Button Dim c, d As Cursor Dim foto1() As Byte + Private b_valida As Button End Sub Public Sub Initialize @@ -84,8 +85,7 @@ End Sub Sub B4XPage_Created (Root1 As B4XView) Root = Root1 Root.LoadLayout("MainPage") - p_principal.Width = Root.Width - p_principal.Height = Root.Height + p_principal.Width = Root.Width : p_principal.Height = Root.Height Subs.centraPanel(p_datos, Root.Width) reqManager.Initialize(Me, "http://keymon.lat:1782") B4XPages.SetTitle(Me, "Revisión de BD") @@ -98,13 +98,13 @@ Sub B4XPage_Created (Root1 As B4XView) lv_DBRServer.AddSingleLine("http://keymon.lat:1782") lv_DBRServer.AddSingleLine("http://40.123.36.38:1782") et_server.Text = "http://keymon.lat:1782" - B_SERVER.Left = (Root.Width / 2) - (B_SERVER.Width / 2) - et_server.Left = (Root.Width / 2) - (et_server.Width / 2) - lv_DBRServer.Left = (Root.Width / 2) - (lv_DBRServer.Width / 2) + B_SERVER.Left = (Root.Width / 2) - (B_SERVER.Width / 2) 'Centramos B_SERVER + et_server.Left = (Root.Width / 2) - (et_server.Width / 2) 'Centramos et_server + lv_DBRServer.Left = (Root.Width / 2) - (lv_DBRServer.Width / 2) 'Centramos lv_DBRServer sp_empresa.Add("------------") - sp_empresa.Add("Mariana") sp_empresa.Add("Guna") -' envios.Initialize + sp_empresa.Add("Intmex") + sp_empresa.Add("Mariana") End Sub 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage. @@ -217,9 +217,15 @@ Sub B4XPage_Appear ' b_enviar.Enabled = False If empresa.ToUpperCase = "MARIANA" Then b_enviar.Text = "Enviar Mariana" + b_valida.Text = "Validar Mariana" b_enviar.Enabled = True else if empresa.ToUpperCase = "GUNA" Then b_enviar.Text = "Enviar Guna" + b_valida.Text = "Validar Guna" + b_enviar.Enabled = True + else if empresa.ToUpperCase = "INTMEX" Then + b_enviar.Text = "Enviar Intmex" + b_valida.Text = "Validar Intmex" b_enviar.Enabled = True Else p_empresa.Visible = True @@ -234,17 +240,16 @@ Sub b_enviar_Click B4XPages.MainPage.p_progressDialog.Top = l_pedidos2.Top B4XPages.MainPage.p_progressDialog.Visible = True B4XPages.MainPage.p_progressDialog.BringToFront - - - envioMariana + reqManager.reqsList.Initialize 'inicializamos lista de requests. + If empresa.ToUpperCase = "MARIANA" Then + envioMariana + else if empresa.ToUpperCase = "GUNA" Then + envioGuna + else if empresa.ToUpperCase = "INTMEX" Then + envioIntmex + End If End If ToastMessageShow("Se enviaran los datos, este proceso podria tardar hasta un minuto, gracias "& ruta , True) - -' If empresa.ToUpperCase = "MARIANA" Then -' envios.envioMariana -' else if empresa.ToUpperCase = "GUNA" Then -' envios.envioGuna -' End If End Sub Sub JobDone(Job As HttpJob) @@ -287,12 +292,12 @@ Sub JobDone(Job As HttpJob) If resultado.Tag = "valida_pedido" Then 'query tag For Each records() As Object In resultado.Rows Dim CUANTOSP As Int = records(resultado.Columns.Get("CUANTOSP")) - If cuantos_pedido < = CUANTOSP Then + If cuantos_pedido <= CUANTOSP Then ToastMessageShow("INFO OK", True) Else - ToastMessageShow("No se cargo bien la info P. Sync Nuevamente" & CUANTOSP & " " & cuantos_pedido, True) + 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 P. Sync Nuevamente" & CUANTOSP & " " & cuantos_pedido) + Log("No se cargo bien la info de pedido. Envíe nuevamente: " & CUANTOSP & "/" & cuantos_pedido) End If Next End If @@ -301,9 +306,10 @@ Sub JobDone(Job As HttpJob) For Each records() As Object In resultado.Rows Dim CUANTOSC As Int = records(resultado.Columns.Get("CUANTOSC")) If cuantos_pedidosc = CUANTOSC Then + Else - ToastMessageShow("No se cargo bien la info C. Sync Nuevamente" & CUANTOSC & " " & cuantos_pedidosc, True) - Log("No se cargo bien la info C. Sync Nuevamente " & CUANTOSC & " " & cuantos_pedidosc) + 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 @@ -312,9 +318,10 @@ Sub JobDone(Job As HttpJob) For Each records() As Object In resultado.Rows Dim CUANTOSN As Int = records(resultado.Columns.Get("CUANTOSN")) If cuantos_noventa = CUANTOSN Then + Else - ToastMessageShow("No se cargo bien la info N. Sync Nuevamente" & CUANTOSN & " " & cuantos_noventa, True) - Log("No se cargo bien la info N. Sync Nuevamente " & CUANTOSN & " " & cuantos_noventa) + 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 @@ -335,7 +342,6 @@ Sub JobDone(Job As HttpJob) End If Log(reqManager.reqsList) If reqManager.reqsList.size = 0 Then p_progressDialog.Visible = False -' If reqsPendientes.Size = 0 Then p_progressDialog.Visible = False Job.Release End Sub @@ -445,7 +451,7 @@ End Sub Sub i_engrane_Click Subs.panelVisible(p_engrane, 0, 0) - p_engrane.Width = Root.Width + p_engrane.Width = Root.Width : p_engrane.Height = Root.Height End Sub Sub B_SERVER_Click @@ -453,10 +459,6 @@ Sub B_SERVER_Click reqManager.Initialize(Me, et_server.text) End Sub -Sub et_server_TextChanged (Old As String, New As String) - -End Sub - Sub lv_DBRServer_ItemClick (Position As Int, Value As Object) et_server.Text = Value reqManager.Initialize(Me, Value) @@ -471,13 +473,17 @@ Private Sub sp_empresa_ItemClick (Position As Int, Value As Object) empresa = Value If empresa <> "------------" And empresa <> "" Then b_enviar.Enabled = True + b_valida.Enabled = True b_enviar.Text = $"Enviar ${empresa} "$ + b_valida.Text = $"Validar ${empresa} "$ + Else + b_enviar.Enabled = False + b_valida.Enabled = False End If Log(Value) End Sub Sub envioMariana 'ignore -' B4XPages.MainPage.reqsPendientes.Initialize reqManager.reqsList.Initialize 'inicializamos lista de requests. 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)") @@ -492,7 +498,6 @@ Sub envioMariana 'ignore cmd.Name = "insert_pedidos_MARDS" 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_${i}"$) -' B4XPages.MainPage.reqsPendientes.Add("ins_pedidos_1") Next End If c.Close @@ -510,7 +515,6 @@ Sub envioMariana 'ignore cmd.Name = "insert_QR_2_MARDS" 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_${i}"$) -' B4XPages.MainPage.reqsPendientes.Add("ins_QR") Next End If c.Close @@ -524,7 +528,6 @@ Sub envioMariana 'ignore cmd.Name = "insert_encuesta_MARDS" 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 , $"ins_encuesta_${i}"$) -' B4XPages.MainPage.reqsPendientes.Add("hist_encuesta") Next End If c.Close @@ -539,7 +542,6 @@ Sub envioMariana 'ignore cmd.Name = "insert_pedido_MARDS" 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_${i}"$) -' B4XPages.MainPage.reqsPendientes.Add("ins_pedido_1") Next End If c.Close @@ -549,29 +551,28 @@ Sub envioMariana 'ignore ' NOVENTA c = B4XPages.MainPage.skmt.ExecQuery("SELECT NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON, NV_NOMBRE, NV_DIRECCION FROM NOVENTA") - If c.RowCount>0 Then - For i=0 To c.RowCount - 1 - c.Position=i + 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_MARDS" 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,C.GetString("NV_NOMBRE"),C.GetString("NV_DIRECCION")) B4XPages.MainPage.reqManager.ExecuteCommand(cmd , $"ins_noventa_${i}"$) -' B4XPages.MainPage.reqsPendientes.Add("inst_noventa") Next End If c.Close -' D = skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA") -' d.Position=0 -' Dim cuantos_noventa As String = D.GetString("CUANTOS_NOVENTA") -' d.Close + d = skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA") + d.Position = 0 + Dim cuantos_noventa As String = 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 + 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_MARDS" @@ -582,10 +583,10 @@ Sub envioMariana 'ignore 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 + 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_MARDS" @@ -634,7 +635,6 @@ Sub envioIntmex 'ignore ' 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 @@ -677,7 +677,6 @@ Sub envioIntmex 'ignore 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") - 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 @@ -689,16 +688,17 @@ Sub envioIntmex 'ignore 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") - 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 + 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" @@ -707,8 +707,10 @@ Sub envioIntmex 'ignore Next End If c.Close - d.Position=0 - cuantos_noventa = D.GetString("CUANTOS_NOVENTA") + + 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 @@ -765,7 +767,6 @@ Sub envioGuna 'ignore 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 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 @@ -777,6 +778,8 @@ Sub envioGuna 'ignore Next End If c.Close + + d = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDOSC FROM PEDIDO_CLIENTE ") d.Position=0 Private cuantos_pedidosc As String = D.GetString("CUANTOS_PEDIDOSC") d.Close @@ -812,7 +815,7 @@ Sub envioGuna 'ignore End If c.Close - c = B4XPages.MainPage.skmt.ExecQuery("SELECT HE_CLIE, HE_RES, HE_FECHA, HE_TIPO FROM HIST_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 @@ -840,10 +843,9 @@ Sub envioGuna 'ignore d.Position=0 Private cuantos_pedido As String = 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") + 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 @@ -855,8 +857,10 @@ Sub envioGuna 'ignore Next End If c.Close + + d = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA") d.Position = 0 - Private cuantos_noventa As String = D.GetString("CUANTOS_NOVENTA") + cuantos_noventa = D.GetString("CUANTOS_NOVENTA") d.Close ' DATOS DE KMTS PARA EL TIPO DE ABARROTE. @@ -981,7 +985,49 @@ Sub envioGuna 'ignore x.Close End Sub +Sub valida(identificador As String) + Log("Validamos " & identificador) + d = skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA") + d.Position = 0 + Dim cuantos_noventa As String = d.GetString("CUANTOS_NOVENTA") + d.Close + + cmd.Initialize + cmd.Name = $"select_cuantos_noventa_${identificador}"$ + cmd.Parameters = Array As Object(almacen, ruta) + reqManager.ExecuteQuery(cmd , 0, "valida_noventa") + + d = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDO FROM PEDIDO") + d.Position = 0 + cuantos_pedido = D.GetString("CUANTOS_PEDIDO") + d.Close + + cmd.Initialize + cmd.Name = $"select_cuantos_pedido_${identificador}"$ + cmd.Parameters = Array As Object(almacen, ruta) + reqManager.ExecuteQuery(cmd , 0, "valida_pedido") + + d = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDOSC FROM PEDIDO_CLIENTE ") + d.Position = 0 + Private cuantos_pedidosc As String = D.GetString("CUANTOS_PEDIDOSC") + d.Close + + cmd.Initialize + cmd.Name = $"select_cuantos_pedidoc_${identificador}"$ + cmd.Parameters = Array As Object(almacen, ruta) + reqManager.ExecuteQuery(cmd , 0, "valida_pedidoc") +End Sub + Private Sub p_empresa_Click End Sub +Private Sub b_valida_Click + If empresa.ToUpperCase = "MARIANA" Then + valida("MARDS") + else if empresa.ToUpperCase = "GUNA" Then + valida("GV2") + else if empresa.ToUpperCase = "INTMEX" Then + valida("INTMEX") + End If +End Sub \ No newline at end of file diff --git a/B4A/C_Envios.bas b/B4A/C_Envios.bas index e7525f5..a0c4951 100644 --- a/B4A/C_Envios.bas +++ b/B4A/C_Envios.bas @@ -33,7 +33,6 @@ End Sub Sub envioMariana 'ignore Dim resultado = Msgbox2("Se va a enviar la venta de la BD", "AVISO", "Continuar", "Cancelar", "", Null) 'ignore If resultado = DialogResponse.POSITIVE Then -' B4XPages.MainPage.reqsPendientes.Initialize B4XPages.MainPage.l_progressDialog.Text = " Enviando información ..." B4XPages.MainPage.p_progressDialog.Visible = True B4XPages.MainPage.p_progressDialog.BringToFront @@ -50,7 +49,6 @@ Sub envioMariana 'ignore cmd.Name = "insert_pedidos_MARDS" 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_1") -' B4XPages.MainPage.reqsPendientes.Add("ins_pedidos_1") Next End If c.Close @@ -68,7 +66,6 @@ Sub envioMariana 'ignore cmd.Name = "insert_QR_2_MARDS" 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") -' B4XPages.MainPage.reqsPendientes.Add("ins_QR") Next End If c.Close @@ -82,7 +79,6 @@ Sub envioMariana 'ignore cmd.Name = "insert_encuesta_MARDS" 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 , "hist_encuesta") -' B4XPages.MainPage.reqsPendientes.Add("hist_encuesta") Next End If c.Close @@ -97,7 +93,6 @@ Sub envioMariana 'ignore cmd.Name = "insert_pedido_MARDS" 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_1") -' B4XPages.MainPage.reqsPendientes.Add("ins_pedido_1") Next End If c.Close @@ -115,7 +110,6 @@ Sub envioMariana 'ignore cmd.Name = "insert_noventa_MARDS" 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,C.GetString("NV_NOMBRE"),C.GetString("NV_DIRECCION")) B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "inst_noventa") -' B4XPages.MainPage.reqsPendientes.Add("inst_noventa") Next End If c.Close diff --git a/B4A/DBCheck.b4a b/B4A/DBCheck.b4a index 6857893..ead7cc4 100644 --- a/B4A/DBCheck.b4a +++ b/B4A/DBCheck.b4a @@ -31,7 +31,7 @@ Version=12.5 #Region Project Attributes #ApplicationLabel: DBCheck #VersionCode: 1 - #VersionName: 3.09.05 + #VersionName: 3.11.05 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False diff --git a/B4A/DBCheck.b4a.meta b/B4A/DBCheck.b4a.meta index f5da3f2..0a4e397 100644 --- a/B4A/DBCheck.b4a.meta +++ b/B4A/DBCheck.b4a.meta @@ -13,12 +13,12 @@ ModuleBreakpoints4= ModuleBreakpoints5= ModuleBreakpoints6= ModuleClosedNodes0=2,6 -ModuleClosedNodes1=5,26,27 -ModuleClosedNodes2=4,5 +ModuleClosedNodes1=8,9,10,11,12,13,14,15,16,17,18,20,21,22,24,25,26,27,28 +ModuleClosedNodes2=5 ModuleClosedNodes3= ModuleClosedNodes4= ModuleClosedNodes5=1 ModuleClosedNodes6=12,13,14,16,17,18 -NavigationStack=Subs,Process_Globals,9,0,B4XMainPage,b_enviar_Click,226,4,B4XMainPage,Class_Globals,35,6,C_Envios,envioMariana,26,0,B4XMainPage,lv_DBRServer_ItemClick,493,0,B4XMainPage,envioMariana,621,6,B4XMainPage,B4XPage_Appear,105,0,DBRequestManager,Class_Globals,12,0,DBRequestManager,ExecuteQuery,37,0,B4XMainPage,JobDone,246,6 +NavigationStack=B4XMainPage,Class_Globals,70,0,B4XMainPage,i_engrane_Click,441,3,B4XMainPage,envioGuna,969,0,B4XMainPage,b_enviar_Click,231,0,B4XMainPage,b_valida_Click,1012,6,B4XMainPage,p_empresa_Click,1005,0,B4XMainPage,valida,974,6,B4XMainPage,sp_empresa_ItemClick,464,6,B4XMainPage,B4XPage_Appear,217,4,B4XMainPage,JobDone,296,6 SelectedBuild=0 -VisibleModules=1,6,2,3 +VisibleModules=1,6,2 diff --git a/B4A/Files/logo_keymon.png b/B4A/Files/logo_keymon.png new file mode 100644 index 0000000000000000000000000000000000000000..e7984161a07ba563e9562865ebde98d660fdc34f GIT binary patch literal 13113 zcmV-9Gset`P)Px#1ZP1_K>z@;j|==^1poj532;bRa{vGi!vFvd!vV){sAK>DGR{dvK~#8N?Og|8 z6xG(w%*-U0x15Xl{r;H$;obxu{Qv*q9>o91 zyNB^V^6p{W!!ghA^LcM)`SS98d3oNzPhWn4H!qJWG{ty4eypcfeoxE_AS5^)AmVj?CI1wZj#!@WeFpQ60CGF%tZ+!xZ&&$P>w-4+83`6xeC z{4<84;JxhI!q9(M3=S;f7)~%hV{ihO%gNLfvS9;BqXzI(Tq6l12>P$8KJEeXJU4FI z|K9I7cn}Dq%$69p#}9@T_y-&X-&Ag37#Jlc7Q??7v6#@P$p)#i4((+3cP4AqM3h%y zR8jK4$Xw?xIR4pZ|LY%5`c=y5@Vi`ow-9WV4#cGxlSnYBgiKDBckU?b(n->&Vbyf4 zRgOIO)oYebzu9;1^=4)H9ZtW~3DGO~TIB)=!=zGRQIwbs6#0rQ5RorjK6Rx9OnqF`1K=QA3un}0X| z{Hyo+P0D5i_ZWPkOu+GgnA8(`(37#4M2d8Wm_Tk8gpAJz77SX{mk*+}z*ksUzMcV` z;R=PQR!vpE$5f9!Lg-`fZcx0NcAt7?n5;O32Kl&fsW|1QGd%V7a0?08uSFgD)Ttvb(Jw3+d4!k)65J;mE z8jb470h*D+2(9*RQFwRA1FvY=xT)~l?|qqBU~Q4e5L~5_b!abX*<8{vl}xUO%VaSm zl8Bf{9LVI#sPDlRDGFHhd)$x|QVys4%2mifoF`5>4jiN`7U261z%WE%wM5OR;p&0? z;c@W!NcC@lrk4lb(l}euT?795+mbuTI z^_k42J4sxvRzBKG(WAShVM9zV!$I{yyWEK|FzCR5OFm_{BaKRb1wjDWxLiiWq9GMz zvZVuB#O;O{37_UVpJv~&%d%xFWipkz&rcEkMkya9Ul-q6kYL)5R z??5%6#sVS-f{gpi*!u2}vMJRU;2jIq?e$}0p=1#ll$;br4ym|S4@W9{?eH7%0 z0l!DzS|I*G7(@|~z!Y+kUXKRJlB!D@q{2UOa=jA2#pCfi9A0CgZTk+(hE48EmrHRK zknH0+o#v?#+R-B`$BR}5d7udL-hS70>NFZ3DG4HxylWQ-9@17VAiN>_;Mo~vcQ_6m zavnbk!O5L|1!){G5j2bmN(4CbMG`xUS%jY`YLZ}-;^bsW!}`)zEoB|rfu0P$lY!q) zIUEq1;j1khe}NnnOf&cr58y>5&6^r#Plwb#+9nuX@*s+sR()Ui)hb_JUMU6#DX?zB z7&0|A5Y@P01N6Q9pZySo?8lD#O=iCf2!ns#h^UGLKqn|wlEfq=G`+M><@a|4 z1Lbre;0!2qr(G&s@s(}w-z9l|m6z;a8wdFv3a#5Gf%s zsT3Mr(zLPi(ca1)4?)lkz8U~{Y;YltBgYCqU*SA?x+F&m9Z}l0P28&s#MP_uy$B8W zwd4Jr;dO2!H0mn!laVgJGVl@S`y7+5f$>Re{9S9&wIc@c*jBz z>S2R)V>8th2){nawDq-6@f%3_vmmHA;iBcw!zS<|KM+7KEIyO+7IUMu`!C1?T2BA`Wr&sHTMU#e1qtI$3( zhOAe&m_m><7K{DRk^IF=JXfxUxoc2JTCHZxQ`%>q#w8Nxu@gD7=Yzv!_w4E`Ka=0z zxlBG2AS8JZmhxVG)4Fv#xPstQY=FTH8mOBvPE;+C?I*oCxrJYSYu)^ZuOQ#=sEV|) z0ThCt2Sd@084V`I^gl2=i1Eh%erZ{^A*?h5DWvG#Q`P5@+}GanT))9~D$)+^s(m3iUmR+8@F)2tkZpjw%Fhx@|(W<0si@Nav%+ex)>1- zC>F*U)FX##MhpXE3O?)i`^*;mzWsTxz2(czG< z+YyF29M?Ymly>|Wk--py2VJG-=B>Q9-fMMP;@E!tff{@b9n<=hcD;N~Og%%i% zpRX`|^S!intN1q;p_drzbU00G*AoW4qFdLB45U?vJP2Aja~E2-{J}`xVi1I3?o8Ey zzG%9u2#&)?a~Hi1Sy4&J-@Oa)d!pJk;}$JIiFOf5kjvZt`bXNbxwu*)^CW<>TC-lB z0TL$utyk|FdHKsfHm&#?O~`Qo%*~sneqsPzU+|fj81woK1s{Cu&C0G4*;`nErjLt5 z^9dyn36%yMC*tGuFTbdIynk_waJf)CVm;>otua?fHvNilB+&UR|Jk>=Dk;V1y_qd5~#lO`786&sFl6gIJg|caeS9 zZq%KtDkO~>CVsq3RJ|HKHw4%0*ncqV#VO@mP=hNJx|d$ij2eNHAu~;s#hN{Pz8x`F z9A&`P6F*!cYtxGDS0hB3{{Y~*m60=lQ5fcMoXecufn3D)KdUlx0QJzpqNM7~tR5JR z{QgeTRxQfWpa5yRHjs?tVy-c{&Ygok!O;i4yu926uexvCD2J7o`Qifda-k@5g0s$L=t4riy`Vn2Lq+1aU}Qw+`pYNFeXl6+9t(@P&c2MRU!NC%F^9e!n~Y zO78sED6=*AOvEVj#T90c?EJsX_+&RtcXIRK<({P5w; z$n^WmrmYkYJ&5LjlB%R zA|XC;*?a7P_WZ?5t-t(suP_Jj<>Z0y64$IDii@M%Zrk=9xo^DVgRCZED0=lUyfT-= z97yq;ne(i_|3O)8vJUOg!V73Fr9#@gDaaO3p7h&jKiIJOy2bYtSCO4)~w5a=l$>#3so4HL;@-w*J#j0xyj@+7DjFair&3I zsi90fl)3B~^Bnv3gQEidsh=}LJ!l}E68L>S$n&zNO!tSHJG=_IA$IZ$m?WaiFH*PZ zIC#kNLzwwS&B$T0PWLg)+4mnnUZRwRMpYG%6@Y$*zVEqu&6i(L2Il(oHq7TSXEbI{ zpF=YTzfv|^!P4c91Bd82JTO5;mrm-zPjJKwJ^?j#0o-g-fM4pu3f)}nJXid z{rVW@&g5hTz5-+RwAm=1<0bf>8#nUbT+EE%6S1-S*)uTSN<;Vg3)anll(N{4!JWzT znal-WtmHdP?U<)zty?l3r|_Ha9EXmSv>NW;2W9`hhS}4(%;gtkPn!kqG5pXBMM3m2 ztzH`>2E%0S+Gs}%#P2a8NI73Ot5qawlsSGP zC+)+P${HJfM57<9uVbS$^75B1FZ}ciPR^n1+b90**O>Gm=atvYYu3f^hB~7JG9?+5 zg0e?fwW9C%wRBE+;3z+)=)uy92NTbC6bo_y&JihH*#&hvvYgGUx${9^F;_`-0(`Gx594j+(0l-~U|Nbj!(Kx5;!o`f?qtQk{ z7DUw&YiwFC(#HmW4@HS%o0i|USby8hi3h5Febi43V5WT`v2&e0UkMIV(!6Q>+pnu0 z?gbqm5|V-sJ_45jt_EDC-)@hA-dd(>fH!-+V6~7{eVY(N2%w>bkm7h5PSR15aN;JuU+LO>~;d?!yTL3A$olL0*S}g43RCvpS z@SZVbr1SX6kVe5U&_8I3GH?&}{RgrpPNpnno`otCz^kBz;=>0M@$nR7oXbA6?b_oj zGzqJZFsTGrsTJM3LP#TYIuIb{AJ&?_UIlHZ89g#~;snrsAea^{>9b6=BvXh0pVxN00G`RHW_NkPRC!_h9;VHD?+{ zaENLoRr~Bi-Gs5C>eX$#_hycJ4qPR&HldZR-|2#M$ok9X%(2hfcJ6`HTQ`18;-|}F zr@a*W{IfjfvMOkE4B$r0-~Y(ubJFHb!N<@LE|! zMN6I`XL9U65Y@y^RI^6H(#109l|CwG(HnWMyzV-GA?#Xup#ZTHgir1(ujVd#6NHbf zeOv9Q5u9Qx-rHFy&K*5oapq{)_Wtd@ag%OI$Q;y9K2GNk41ikm#$V88QXayPN7)_F z%{jz~l9CkN9%Kdr5WC@4whIMOt(pl--jOzM290(5xk=WIzkoU@Q$kiwP?Rq(-}>_} zw!MGB%|ho#+SpLO;vR3 ziiv|szURhGz7Q1(+NVc?Oz_+6IWy+C&z!4d=5)`G*Nq#^Va{{&7B~QJL4mAo8_lpG z9ET9Qzegm|nZO86{4?lzFA!#8SN2R(7#8LZS`xQ50d;h^TYQyXqVXEv10sF2!%n-4(MRPoK zvJhbZXFsPyhmc2Et)BEN9G8epxM)@aWHe~MXy{DsxG~a}&3y&N{P&lm%4C%W42zxo zyms_RwCFU1x$D_8W}~1R$e=;)=D)YpmzxI{sTn;o8qU*kbq54ZlYjon_+1u*y0i<+l~bFu;;DZm`qTxihs z`K-TgaU44ishFz&W89b|1e`~YF#{2x02rOYzV3>Z&Bz~P*=-S!SOBA}4-ELXG0rD;AZ5V6cs89goVcMUp zTL)LF*w+R?b2zM2J%l{x>9ZWmLsjXE7Sy77=c~f6>{ImaDT=PfNau;<2gN7uA){d;;8sF&y5=~ym%u8&s$W; z0i228W+!XchD@zbIbG(Tf8mea2@f2Po&K_V*dQ)*7cXVcnBzWwp>*bGSbq8${HL^8 zV`=kd9LuOE{QiJ#1=}Go$sVd%JRVO*W*G9kSvl}(@RuTp>(yay5*)7J8J@gbS4=|M zckc4Rw+r1fxB#1*IaM=+$6VUQ?3r^TWDelXybbv>G^_l<2L$(=uJacdJt?kRmp_5- z%g$j~V3CI={)3Mhh!TpYCp@=q(GLU!q)l*r_5+9bqpkvjAoMe*sRutnXw+=xTo=-^ zg3Lv1_h{ks;TXy%5!~{C1+>jG$PHSKUF7x{cv)*`i@%#+$sAX!&|a}3c(b#GH4aGZ z$olo+{+*||Dpz0tbF-$a2M;9Fq0F663)oy*8JG(Il6TNnlE$Fs1kTpcv}I8;hLmt< zNdf?S0W{0y^De>EEIey zi)`Eo?%b7j37t$4C5S|ZIWsg*JdPu88GH`lI(s&I<~&r}tz0SzWTE>~Iy`_|;D@D( z0K_C(qEOV8Mezns=kT)FEq;N&>X~3I>h_{}B7r>{U8m4><}A~d1cq2-m^%}d76~n7 z3Au3gtOcMjE0R_s`R1dfO}V?vD+(&a!-))WXwfhWU}KDfEdFB7a!&x-dsl>js|`LD z3S?>uT$$_Kg{TBP#M~_P<6Pz-zGlywS3%|guJh+XvyiM}jY0v)W9Z>5Tm!I==U|cN z=GIOR?BELirQad^vMtoC80IrZp{5luH*dCjKtIr2!Dj++o;;N^dpScvlfb=6{%=qjXb8b(ZoHKJSd#GM01oq5f(eU|!Ik;d`vm;y(tW{+!@_51~urVO` zmz)qH2a$<5L!zqbk7jQ zL2egp5dM%P5nH_Rg+*TICV2oFb73qG4VBRk1p`_#L-~atq^J~-O&eo4&RLfr0B{`F z>lsyo2Ao4XhbYc~6;WH0QP_xp-@z$4tZDv);m$+lw{5sXH_4#MlG&U0~*?O zu6WgnAi%X6c5!2V5fuVxDx#K6UOdON*lrVe#Y6Y?Rvg}2w|vGzoFvH<;Rl(b3bH{e zE+M^H*@72Z3ls?nHU&g(AFmD)+d&pLS->%daD(=Xvi5p$3jS0aey`V+b`dU4f?SZ0 zpB!yS0#yK9=PwApP!ajRqNYGwv3PUT>~a(=%j3m7Xjb+NEtyi@a(Hd`aTEh%AGCj3$nSCeO0vcgS;P zt(wD!-z%O|(xREPNh8YRv2Fb`!euX!BhU`Pe(b(@nZ3l8hA1(CVWGIa#I>jy^N5GcDHtxpfl zL%?0Ln<%7NCCwUhqMF}kceBnxC0ProOM<-X14-YmjC*AcI_2oO35m;>BrIRTm$D4} zPN(IkjnKt3LkHm+P4L+&3Aj8}pwx!trw#1WCxwC(jHiej_od7HnNAW7Xp}&nlpodn z{=hg$kbil{`$}JLBk$DFuxK7wn?yP% zvuJ^ktX*5Q467vIxbDSg$r?!hLA69*^Fr-JE#0+!0tt?hzJO2CR`$+m*WM055RHYAX-%s z0Iraul0+pmF67#h5)Q5fds06+faz9T`2F@>dn_A&0Trj8K7}bdUUdL18#`q(_!7(d zjc9Lp6xMe`!{YLyN;eiODzX$x9%K>4hYJV5ZD_>ySFY*!{pchvhP*DFKupq)Iq*A6+wsiVPtAw-c2@r4CD7ee z{raHYizS(9r9(aVN#&!xq37kly9CV+3hgifkb}uOv}bPFwu@IX2gA^@F`@N6xa5&_ zYok4Vp(bMAvzHmf6X|sDHDP_D^Tdf#PJ6WP*d4mjf_NV3_kJ zZ+4FBRM7!b7>3To3D>NY$zu9pO;{NQPQbio?H%`XfH*GvbcK1{23)7pPo1nP;fpE_ zG;^ZF1k;-JrWIdBuLPR<$$?D7aUMJAE8tcKlS4QQ4S0Ys282dkIfg}1mQ9-(&nfHN zF?;~?`^~FXo4#Gm=`|oGbLK2ShY3XBaNxSp0kdn@BmSmLQVo9MZt;i8fd`pe2l1F) z`&L*$ZZ2!vnz>EuubY{H5e8@@BTol}DN_sy8T>ux7%opnrkXDN2Wh-m3<1n};2zX!+I92BO$AFoLS+skUXkFpJ6xyE;!2gYZEIPJ=6=XE&s~W6 z20j+x2DML*(oK8@G56y-;m>V5_t4&w(PyQQK=D<|q zUYW~m);0gI#=iS6PEQ5zt>9H71B7v#0OW!>9u{2U+MmF%=-)(f2E`-2O3K^N6mV`H za0c28ZH(X4SMK<#eLLsi7SmZduj84^xwajqv1&>(r9p-j4Uh++J@3tT_-EJ|=FT9K>xCT{De+JYQ0=z{ zk3{o9-4NE$cNj(b{ueS2w!ore-+tqYuUu!(A+Z+yJ0cR|Yy9vnbJUY<*PiUD zv(Uf_3zDXdtAD)$l|~DP(vG7sefwSBn~OQR9~5BqZ&n1?sQdlK&%Z2KvOG$uD+l2B ziMTk(Qj`z(gmy=!Z!&ocjGpu>?#q|mm(txAFT1Z@iz#9IHP9ofQ(IC$1r_eCpA6ku z6dQ|cH6ZP*Ten$%-v+%N70M8LO;JgRoiPQ>olfs4kLUL2XB>x*a(t%YmARVXC01xH zjXYmo{>{e+dv6CTu+o4pi+k%eb^pg`%e&mK>idYK zVMAzc2=#u46TAiF(e7(Ez@G;W6>_1(MkJ1rkRqKHq9({!Oe%$cxJ-(X64wQEMx<@; zU%s4NwCO%v`THnAoLnzy)tAhIJkTk*i{9WIgCnYzn6&nL&S|u4ltvyhtS`SQcy|fM zu*lSuq&456vKRqaw{Fj#GBbJ$%fkc1aFq)D2~a|&fH5VbL%LE@aJdZ81{dt7g8d2Z z9K%6pgKR@5CtOYs*ytrNR?oE?z5-)K&eAII-qnD-Zy8AP+dRZ2C24)_jiffkjtewUVq8JpRp_c{_95v#7d7C3j&SfH1Vx z7n%X z1ZW5_OwscpNzvg?3?OyQU%Uj>AP4}s)K8xR-JkyTE&}MG%ocDM;17NI`RE@!FcyM} zs|w74pU_WxS)5dzZci}%{P&mnAm<5XPTIbW0u?q3KL*0!PUOKm6pGl1fehvt3?C6)imXF> zus_aqgBLP>_66E59OyM*cCpWmmvz3cg11*?A!*h$@skf~Zdw=j>H_vAxyT{w(i!qp z=2Ra@Yzn{pnm;eE=-rb&$xsR+YG_2v%aiyA6hV5P|IYhNaaKaFH!PTg>dKV;#;Q1= z1t8@DS0-uPNHw6JcKq0qa<7sAnWbUYbfyg<;-GTzncR7K2tctfJO?RF@b^*?sg;m* zYsXHR%irs>g9@%jSl8 zvr1a$a*x6bS-joGSc&`k4Ngv03V?EG5LxS1OsKQ`vf2FIkNl$}mHqlCdUT82rXwZ~ z-l~wtPJRIrDX#N07UsXV%yIH0eLwKsa0Q^LqC0(4xqw7I@9p>8SFVCS1dA#B^z#UF zL}-oJX)h_dcVk+^dF({N2OqI(p3)H4sDaKm4XrC#I_{L`aX?X)Eq~-po6QwS7)Ca3 zSnZ=_X!3&g=@yImr%n0qE&*LbzvW&BCYOm56VWh@)#|;S#chFbK+MgUq8>PaDI@Q> zbt~(o>F9(5&c;3*kALq!sz)C#Qz$L*wC3=@Fz6t_hw~J7CJ53g&y{N^I|*caaFb+m zT~KAHqHhHEc@MzjMd@Q+9vb+Mz-J=nW=>T9m>o*TEk*RO~0SFaw(U$l6; zl1HxZ9&nY?Fnfk-K;L5KtkxW0Zu<^&s(UCTO&iB8oL|yhdFdz*c>uU9Nuvh#zy9GK z=I`}-Zr<`-1OD#A0^0yF2}#ziBWc=q7uRXKK?LF^>}~7?CE5KRAvSa@`2n}-?Z=8&0lJbg5vBM z%10jNuf~iVkGTt8bM8C9KbRjeH)n>be_tZ>9QLxJjCo!-fH7Hq{x$FI zcljwDuq&=tM?du?#Y5egfDG?(`ZIRJ65pE_AP<|#6@K3b6#V8TyPg)6@?e*Br|%2oc-0=Rem z+?lEY0x$;oauZTgh8+9@sRGt=fte33Cdz|T}n5vS!ez2_j_v~ z22vmhSL&gIBn|50MXD0u&B`wL;~#+qTh+8YXSgT$GT&tWgJmsx*G`xqa83k`{4` zQ<4pHX2{yMK~;!^Ar3)c@&Leu`{L#N_m@EmAC?9P>}35E?K4j+dZJQ7!DrzQT`shX z^Xxh6?^|uV_o52DRRfTa$-6$FeDq;ylg7~b*h_UF!a)va{PJse+9hy2VN)P^m(HIc_}lb+jI;g>yP7&ut%=#k>u zwbiMw7> zXhfYn8a|WRb^g5Z)6X6I!t7*cfa*!=V?}lAD0}u$JlsPRs|(X@DT;D9AhkzJ*6j|j zu>iGZK|x?~ZGkTzei~8D7oRscd_&+dIDyM#M64E%jTPy1@D(83Mb#4EF(#A2KU^+D zV~pV@W#H4S+jrRh_|tRk8k&idA1`a!9Q>HHLpx^UFCQR?(2<&6kKf}(V^Lo86BVw2&!@iu{tm;? z;Eq^?iNx^XXx|Y0B*{`lgf}nWdH9Iq&=Kc}Q@-qM=o$QhE;ht9Yk)RU_UsNCr`)py zWkuzYM}sn3Jeir0&zgT&dxt}4p}`dj6nNBX$cTYLS%K`K*&r05 zfE1?}*Q+N$X1wr)dUXDGdaQURWSRp)eL_5Y?;!LW79aLGuxM z_=z3|U80CUM&qOWln?D~FEpZvh(aSgD4>i+@ZONmKo~W7>?|K zwgmV*xJf@169|eBdeIJ8^uPlOHj)*5Y>=rb%H9t{CLpSwh-izlo-7@AnY3EHHrODm&_szn|RRH?&a0pWo3`pHwyLx&xQk4734 zg#d&!S=-j2Z>23;py4r%8f4_%^^jpv70D|GvWKJ|f=5!+6 zNNY%lmnJiC2@Vzi;!0UVGz3R1*?h#|044K|KZ;A75_sJF){xKyS9>S Tvo7|200000NkvXXu0mjfMoV3% literal 0 HcmV?d00001 diff --git a/B4A/Files/mainpage.bal b/B4A/Files/mainpage.bal index 5cf484d6e1b27719616b4a88e862cb54ab95e1ea..1b724c1f4d15abdc69c8a280695b37840efa9de0 100644 GIT binary patch delta 2003 zcmb7^YfO_@7{}j-Ugq0D8RbqzT0y5S*@wwKEsNRW$0hqPG$z|jmhOMvayk95L`eP*zjMxW z&Uwx`|F_33(XBDcFer-hno&_q_#Zfx@qYRmKb@ z^-u#uka(H)$f3?qr2XKb&M+qoVfs2AHkRqL#KY}xkGvGJwY7KH+P)c!M@=1R#cAl? z;+CHt2T=BFCg_Z-87~{tylMPXa1-}iLagSTr29M{+{_VAD84@TuR^Nkz*8mh8rMBq z#FmO~9d&X2j>gme0v>c-rfv?npFuq0tfU_P&K+DE!5;Y#O`>XH7HUHfj!7=UbCo7; zsW$Pil_5HU=|w!2R|Oi_He34!(nQ(nn+U?i!l8=#7J}COHsGk}c?aPbM6V)YI2O#|8L!G)JW)E1S{%GP zw=DBGl7ySm#l@<wq&<0}C(N{zWU^6h|$_tr1akXHT>%Kw9>8_UHxIlak@eo^iR z4^?h-)#XN0${mu*&Dy(%Xc!Cn`9Y&4b2v3oD*Y(WH@!e3TKOX=zlpCt-P999zILOd zfb&q&C>NHx#YKJysUIPH3>g!@{QTP|020$K3UI)nmjLQzgij%3qWk)TE23u%;VNW6 z3cR(v(vl_l`3eu4b8~1MClCg<2tiX?*>+3xw5I$JSZ7>phWzCm^O!87%}S}5BR?YrDQ|mR4;m;@z<0~2b9{EL+)fGp(!P^pWr3&*Za3tCEcQz5UNe3!&`OB|LsB5_pWdn8^}M ziEAW|n|#~i>Jz+24fSk*s}`z*EUuThLE=VagG2Sbw1E~--B$JyEl4{v#lf88|2KQwr`0?|%y)_Fyvi!XOH@ZVr( za*~Ehq70Qp85B`yKR;LdFz;?luY3!?n#(%?kk)Y!F)Ha0Uu%m*hsE?2Fe8vw`1y~* zsPMcE;}md!uO)-NgTP|8gJ>~#rJtn3#zJ#9(UGO3V*F#$>poK2nLSxQ_ocjalt)v4 z(ipa;8g{lLjYXYgN2*3_2=7d};1%02l5+4XwJra-gk#HH0$hga(U%i4*ESj-0G)O=GI@Y z@?sr2O^MSAoWii;X-%ND7Q+M#nxBzwbNq>JXcShxKm u1{5b-Fz@N7|9ej_A;$9V>7~+n(6a8SS?*i5ndQ#o+gwPxcrVxQnED6QrEnMk