From ffbdf7deaae314007cf98d64d10af551d5f13c52 Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Mon, 6 Nov 2023 15:12:24 -0600 Subject: [PATCH] 6/11/23 - Codigo para validar venta en servidor con panel de resultados --- B4A/B4XMainPage.bas | 40 +++++++++++++++++++++++++++++++++------- B4A/C_Envios.bas | 6 +++--- B4A/DBCheck.b4a | 2 +- B4A/DBCheck.b4a.meta | 6 +++--- B4A/Files/mainpage.bal | Bin 22223 -> 25444 bytes 5 files changed, 40 insertions(+), 14 deletions(-) diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index 6dea633..aa194fc 100644 --- a/B4A/B4XMainPage.bas +++ b/B4A/B4XMainPage.bas @@ -75,6 +75,11 @@ Sub Class_Globals Dim c, d As Cursor 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 End Sub Public Sub Initialize @@ -85,9 +90,12 @@ End Sub Sub B4XPage_Created (Root1 As B4XView) Root = Root1 Root.LoadLayout("MainPage") + l_version.Text = Application.VersionName p_principal.Width = Root.Width : p_principal.Height = Root.Height Subs.centraPanel(p_datos, Root.Width) - reqManager.Initialize(Me, "http://keymon.lat:1782") + Subs.centraPanel(p_validacion, Root.Width) + p_validacion.Top = l_diasVenta.Top + reqManager.Initialize(Me, "http://keymon.lat:1781") B4XPages.SetTitle(Me, "Revisión de BD") Subs.centraPanel(p_progressDialog, Root.Width) Subs.centraPanel(p_editaRuta, Root.Width) @@ -95,9 +103,10 @@ Sub B4XPage_Created (Root1 As B4XView) Subs.centraPanel(p_editaUsuario, Root.Width) Subs.centraPanel(p_clientes, Root.Width) ime.Initialize("ime") + lv_DBRServer.AddSingleLine("http://keymon.lat:1781") lv_DBRServer.AddSingleLine("http://keymon.lat:1782") lv_DBRServer.AddSingleLine("http://40.123.36.38:1782") - et_server.Text = "http://keymon.lat:1782" + et_server.Text = "http://keymon.lat:1781" 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 @@ -292,6 +301,7 @@ 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")) + l_vProds2.Text = $"${CUANTOSP}/${cuantos_pedido}"$ If cuantos_pedido <= CUANTOSP Then ToastMessageShow("INFO OK", True) Else @@ -305,8 +315,8 @@ Sub JobDone(Job As HttpJob) If resultado.Tag = "valida_pedidoc" Then 'query tag For Each records() As Object In resultado.Rows Dim CUANTOSC As Int = records(resultado.Columns.Get("CUANTOSC")) - If cuantos_pedidosc = CUANTOSC Then - + l_vPedidos2.Text = $"${CUANTOSC}/${cuantos_pedidosc}"$ + If cuantos_pedidosc <= CUANTOSC Then 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) @@ -317,8 +327,8 @@ Sub JobDone(Job As HttpJob) If resultado.Tag = "valida_noventa" Then 'query tag For Each records() As Object In resultado.Rows Dim CUANTOSN As Int = records(resultado.Columns.Get("CUANTOSN")) - If cuantos_noventa = CUANTOSN Then - + l_vNoVenta2.Text = $"${CUANTOSN}/${cuantos_noventa}"$ + If cuantos_noventa <= CUANTOSN Then 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) @@ -430,6 +440,7 @@ Sub p_principal_Click p_editaAlmacen.Visible = False p_editaRuta.Visible = False p_clientes.Visible = False + p_validacion.Visible = False ime.HideKeyboard End Sub @@ -987,6 +998,11 @@ End Sub Sub valida(identificador As String) Log("Validamos " & identificador) + If empresa.ToUpperCase = "GUNA" Then + reqManager.Initialize(Me, "http://keymon.lat:1782") + Else + reqManager.Initialize(Me, "http://keymon.lat:1781") + End If d = skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA") d.Position = 0 Dim cuantos_noventa As String = d.GetString("CUANTOS_NOVENTA") @@ -1019,10 +1035,13 @@ Sub valida(identificador As String) End Sub Private Sub p_empresa_Click - End Sub Private Sub b_valida_Click + l_vPedidos2.Text = "" + l_vProds2.Text = "" + l_vNoVenta2.Text = "" + p_validacion.Visible = True If empresa.ToUpperCase = "MARIANA" Then valida("MARDS") else if empresa.ToUpperCase = "GUNA" Then @@ -1030,4 +1049,11 @@ Private Sub b_valida_Click else if empresa.ToUpperCase = "INTMEX" Then valida("INTMEX") End If +End Sub + +Private Sub p_engrane_Click +End Sub + +Private Sub p_validacion_Click + p_validacion.Visible = False End Sub \ No newline at end of file diff --git a/B4A/C_Envios.bas b/B4A/C_Envios.bas index a0c4951..cc1a240 100644 --- a/B4A/C_Envios.bas +++ b/B4A/C_Envios.bas @@ -55,7 +55,7 @@ Sub envioMariana 'ignore d.Position=0 ' Dim cuantos_pedidosc As String = D.GetString("CUANTOS_PEDIDOSC") d.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 @@ -69,7 +69,7 @@ Sub envioMariana 'ignore 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 @@ -157,7 +157,7 @@ Sub envioMariana 'ignore ' cmd.Name ="insert_drop_MARDS_2" ' cmd.Parameters = Array As Object(usuario,ruta,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") - ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias "& ruta , True) + ToastMessageShow("Se actualizaran los datos, este proceso podria tardar hasta un minuto, gracias "& ruta , True) End If End Sub diff --git a/B4A/DBCheck.b4a b/B4A/DBCheck.b4a index ead7cc4..8d77f46 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.11.05 + #VersionName: 3.11.06 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False diff --git a/B4A/DBCheck.b4a.meta b/B4A/DBCheck.b4a.meta index 0a4e397..7a83894 100644 --- a/B4A/DBCheck.b4a.meta +++ b/B4A/DBCheck.b4a.meta @@ -13,12 +13,12 @@ ModuleBreakpoints4= ModuleBreakpoints5= ModuleBreakpoints6= ModuleClosedNodes0=2,6 -ModuleClosedNodes1=8,9,10,11,12,13,14,15,16,17,18,20,21,22,24,25,26,27,28 +ModuleClosedNodes1=25,26,27,28,29 ModuleClosedNodes2=5 ModuleClosedNodes3= ModuleClosedNodes4= ModuleClosedNodes5=1 ModuleClosedNodes6=12,13,14,16,17,18 -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 +NavigationStack=B4XMainPage,JobDone,307,6,B4XMainPage,B4XPage_Appear,224,0,B4XMainPage,b_enviar_Click,248,0,Visual Designer,MainPage.bal,-100,6,B4XMainPage,valida,995,6,B4XMainPage,envioGuna,991,0,B4XMainPage,envioMariana,614,0,B4XMainPage,envioIntmex,766,0,B4XMainPage,p_empresa_Click,1030,0,B4XMainPage,b_valida_Click,1033,0 SelectedBuild=0 -VisibleModules=1,6,2 +VisibleModules=1,6,2,3 diff --git a/B4A/Files/mainpage.bal b/B4A/Files/mainpage.bal index 1b724c1f4d15abdc69c8a280695b37840efa9de0..c7d29dfba9efb80b6d9662940741a27b1de74a35 100644 GIT binary patch delta 1135 zcmaiyL1+_E5QcXej3#ZmNn2VQEaXtIU=iHJTBE6Ln%E?2*dE$bH3SnOY)xV#0X-PK z3q6ci4_<|cWiK9@mLxW|6;XuViUCd+0QuC?=OPspM_?9eidPhe^F^sYB@`oeh)Dk^Xr_@Ls|D1b<%e z6N0}$ev)*N2=t*ZidA@YNIRbN9tcvG6MV4H_FJ_>0WM$-P*CJs& z2->hb{~R`Wr_$Lz{4_f%ZxGS$R$<*>6Yu$=csFztUoH&d*U%FFS?Gm|el7e4pxVMm z@n@h&^t%b#@tPM&5+pUNNfuvwj~nV3W;rv#I`|V+aj^;fNXmpc3@zbe3`A5@!;k__8(l6!-Qfs zn+rd;n_S?@HF-vGHshYjiPp-K1zb3REW?o3jC&{Z+6VCO1?p4>Vjg}V!MSJhMQ;Vh zeUp3bmoe_2tm{_DzaLe8^IEqZjFX+i#3o-5W1ZaKVa9&|Rl(#lPFp8`uwsQ`7A6J; E0IBglfB*mh