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 0000000..e798416 Binary files /dev/null and b/B4A/Files/logo_keymon.png differ diff --git a/B4A/Files/mainpage.bal b/B4A/Files/mainpage.bal index 5cf484d..1b724c1 100644 Binary files a/B4A/Files/mainpage.bal and b/B4A/Files/mainpage.bal differ