From fbb76fed9bc463e74fd48419eab9479eada7f033 Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Mon, 2 Mar 2026 12:18:10 -0600 Subject: [PATCH] =?UTF-8?q?VERSION=206.03.03=20-=20Se=20amplio=20el=20tama?= =?UTF-8?q?=C3=B1o=20del=20listview=20en=20el=20historico=20y=20se=20agreg?= =?UTF-8?q?o=20el=20numbre=20del=20vendedor.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- B4A/B4XMainPage.bas | 3 +-- B4A/C_Cliente.bas | 33 +++++++++++++++++++-------------- B4A/C_Historico.bas | 6 ++++-- B4A/C_Nota.bas | 1 + B4A/C_Principal.bas | 5 ++++- B4A/Files/nota.bal | Bin 7334 -> 7333 bytes B4A/INTMEX.b4a | 2 +- B4A/INTMEX.b4a.meta | 4 ++-- 8 files changed, 32 insertions(+), 22 deletions(-) diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index 250819d..a35896b 100644 --- a/B4A/B4XMainPage.bas +++ b/B4A/B4XMainPage.bas @@ -25,8 +25,6 @@ Version=9.85 'Ctrl + clic para Git: ide://run?file=%WINDIR%\System32\WindowsPowerShell\v1.0\powershell.exe&Args=-ExecutionPolicy&Args=Bypass&Args=-File&Args=..\_git_tag.ps1&Args=%22%PROJECT%%22&Args=%22%PROJECT_NAME%%22 '########################################################################################################### #End Region - -'Ctrl + click ide://run?file=%WINDIR%\System32\cmd.exe&Args=/c&Args=github&Args=..\..\ Sub Class_Globals Private Root As B4XView @@ -203,6 +201,7 @@ Private Sub B4XPage_Created (Root1 As B4XView) Subs.agregaColumna("CAT_GUNAPROD", "CAT_GP_PRECIO10", "TEXT DEFAULT '0'") Subs.agregaColumna("PEDIDO_CLIENTE", "PC_GUARDADO", "TEXT DEFAULT '0'") Subs.agregaColumna("CAT_GUNAPROD2", "CAT_GP_VARREQ3", "TEXT DEFAULT '0'") + Subs.agregaColumna("HIST_VENTAS", "HVD_USUARIO", "TEXT") Subs.agregaColumna("CAT_GUNAPROD2", "MARCA", "TEXT") Subs.agregaColumna("CAT_GUNAPROD", "MARCA", "TEXT") diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index bb1fe9e..30ea0ea 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -1436,7 +1436,7 @@ Sub JobDone(Job As HttpJob) B4XPages.MainPage.skmt.ExecNonQuery($"UPDATE ABONOS set a_enviado = 1 where a_cliente = '${cliente}'"$) End If End If - + 'CLIENTES NUEVOS If Job.JobName = "DBRequest" Then Dim resultado As DBResult = reqManager.HandleJob(Job) @@ -1757,18 +1757,23 @@ End Sub Private Sub la_nombre_Click Log("Clicked") - Log("Enviando coords") - DateTime.DateFormat = "MM/dd/yyyy" - sDate=DateTime.Date(DateTime.Now) - sTime=DateTime.Time(DateTime.Now) - B4XPages.MainPage.skmt.ExecNonQuery($"update kmt_info set cat_cl_lat = '${B4XPages.MainPage.lat_gps}', cat_cl_long = '${B4XPages.MainPage.lon_gps}' where cat_cl_codigo = '${la_cuenta.text}'"$) + If Not(Subs.geocercaActiva) Then + Log("Enviando coords") + DateTime.DateFormat = "MM/dd/yyyy" + sDate=DateTime.Date(DateTime.Now) + sTime=DateTime.Time(DateTime.Now) + B4XPages.MainPage.skmt.ExecNonQuery($"update kmt_info set cat_cl_lat = '${B4XPages.MainPage.lat_gps}', cat_cl_long = '${B4XPages.MainPage.lon_gps}' where cat_cl_codigo = '${la_cuenta.text}'"$) - Dim cmd As DBCommand - cmd.Initialize - cmd.Name = "insert_coordsNuevas_INTMEX" - cmd.Parameters = Array As Object(B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, Subs.traeAlmacen, Subs.traeRuta, la_cuenta.text) -' cmd.Parameters = Array As Object("1", "1", "5", "6", "CLN13478") - Log($"${Subs.traeAlmacen}, ${Subs.traeRuta},${la_cuenta.text},${B4XPages.MainPage.lat_gps},${B4XPages.MainPage.lon_gps}"$) - reqManager.ExecuteCommand(cmd , "insCoordsNuevas") - B4XPage_Appear + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_coordsNuevas_INTMEX" + cmd.Parameters = Array As Object(B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, Subs.traeAlmacen, Subs.traeRuta, la_cuenta.text) +' cmd.Parameters = Array As Object("1", "1", "5", "6", "CLN13478") + Log($"${Subs.traeAlmacen}, ${Subs.traeRuta},${la_cuenta.text},${B4XPages.MainPage.lat_gps},${B4XPages.MainPage.lon_gps}"$) + reqManager.ExecuteCommand(cmd , "insCoordsNuevas") + ToastMessageShow("Coordenadas actualizadas", False) + B4XPage_Appear + Else + ToastMessageShow("Geocerca activada", False) + End If End Sub \ No newline at end of file diff --git a/B4A/C_Historico.bas b/B4A/C_Historico.bas index ccad2cd..52fb073 100644 --- a/B4A/C_Historico.bas +++ b/B4A/C_Historico.bas @@ -55,6 +55,7 @@ End Sub 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage. Sub B4XPage_Appear + ListView1.Height = Root.Height * 0.8 If Not(Starter.gps.GPSEnabled) Then ToastMessageShow("Es necesario tener el GPS encendido", True) StartActivity(Starter.gps.LocationSettingsIntent) @@ -65,8 +66,9 @@ Sub B4XPage_Appear C.Position=0 Existe = C.GetString("EXISTE") C.Close - c=B4XPages.MainPage.skmt.ExecQuery("select HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT from HIST_VENTAS WHERE HVD_CLIENTE IN (Select CUENTA from cuentaa) order by HVD_PRONOMBRE asc") + c=B4XPages.MainPage.skmt.ExecQuery("select HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT,HVD_USUARIO from HIST_VENTAS WHERE HVD_CLIENTE IN (Select CUENTA from cuentaa) order by HVD_PRONOMBRE asc") ListView1.Clear + ListView1.TwoLinesLayout.ItemHeight = 70dip If c.RowCount>0 Then For i=0 To c.RowCount -1 c.Position=i @@ -78,7 +80,7 @@ Sub B4XPage_Appear label2 = ListView1.TwoLinesLayout.SecondLabel label2.TextSize = 10 label2.TextColor = Colors.Blue - ListView1.AddTwoLines(c.GetString("HVD_PRONOMBRE"),"Cantidad #"& c.GetString("HVD_CANT")& " SubTotal $"& c.GetString("HVD_COSTO_TOT")) + ListView1.AddTwoLines(c.GetString("HVD_PRONOMBRE"),"Cantidad #"& c.GetString("HVD_CANT")& " SubTotal $"& c.GetString("HVD_COSTO_TOT") & CRLF & "Usuario: " & c.GetString("HVD_USUARIO")) Next End If If Existe <> 0 Then diff --git a/B4A/C_Nota.bas b/B4A/C_Nota.bas index c6d9f00..6c015bc 100644 --- a/B4A/C_Nota.bas +++ b/B4A/C_Nota.bas @@ -57,6 +57,7 @@ Private Sub B4XPage_Created (Root1 As B4XView) ' L_CANT.Text = c.GetString("PC_NOART") ' L_TOTAL.Text = c.GetString("PC_MONTO") ' End If + p_nota.Height = Root.Height : p_nota.Width = Root.Width End Sub 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage. diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index e22a4e2..a3d3e35 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -998,6 +998,7 @@ Sub cargar_Click cmd.Initialize cmd.Name = "select_hist_datos_INTMEX_2" cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) + Log($"===> ${e_ruta.text}, ${ALMACEN}"$) reqManager.ExecuteQuery(cmd , 0, "hist_datos") cmd.Initialize @@ -1814,7 +1815,9 @@ Sub JobDone(Job As HttpJob) Dim HVD_PRONOMBRE As String = records(RESULT.Columns.Get("HVD_PRONOMBRE")) Dim HVD_CANT As String = records(RESULT.Columns.Get("HVD_CANT")) Dim HVD_COSTO_TOT As String = records(RESULT.Columns.Get("HVD_COSTO_TOT")) - B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_VENTAS(HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT) VALUES (?,?,?,?)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT)) + Dim HVD_USUARIO As String = records(RESULT.Columns.Get("USUARIO")) + Log(HVD_USUARIO) + B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_VENTAS(HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT,HVD_USUARIO) VALUES (?,?,?,?,?)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT,HVD_USUARIO)) Next Listo3 =1 If PB1.Progress = 0 Then diff --git a/B4A/Files/nota.bal b/B4A/Files/nota.bal index dc491f77822b7ec59c0b56b0fab8d26dfc12e122..9a0b58c22036ff4246e651c15f73c27529436948 100644 GIT binary patch delta 88 zcmZ2xxzuvQbxxK?|NsBre4FzO<75F2iOH{dc_v3o^G$xl?Z(N?00onEdBrz7@c1w> o$uUgs<5OZ}+`N%*Iy+My!(=ZpAaC+T4)Muc(#4y+q`08A|#Jpcdz delta 93 zcmZ2#xy*9IbxsxrAlQ7H^9