cheveguerra/Guna_Preventa_BAT
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Guna_Preventa_BAT.git synced 2026-04-21 14:49:15 +00:00
Code Issues Packages Projects Releases Wiki Activity

6.03.01

Browse Source 
se agrega la parte de las encuestas y se corrige los indicadores
This commit is contained in:
cvaldes1201
2026-04-13 11:29:14 -06:00
parent f483dbb26c
commit 6cbcd3e592
500 changed files with 14426 additions and 12606 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
B4A/C_historicobatyodos.bas
View File

@@ -70,7 +70,7 @@ Sub B4XPage_Appear
L_CANT.Text = ""
L_TOTAL.Text = ""
c = B4XPages.MainPage.skmt.ExecQuery("select count(*) as EXISTE from hist_ventastodos WHERE HVD_CLIENTE IN (Select CUENTA from cuentaa)")
c = B4XPages.MainPage.skmt.ExecQuery("select count(*) as EXISTE from hist_ventastodos WHERE HVD_CLIENTE IN (Select CUENTA from cuentaa) ORDER BY HVD_CODPROMO, HVD_COSTO_TOT ASC")
c.Position = 0
Existe = c.GetString("EXISTE")
c.Close
@@ -114,7 +114,9 @@ Sub B4XPage_Appear
SUBSTR(HVD_FECHA, 7, 4) ASC,
SUBSTR(HVD_FECHA, 4, 2) ASC,
SUBSTR(HVD_FECHA, 1, 2) ASC,
HVD_NUM_TICKET ASC
HVD_NUM_TICKET ASC,
HVD_CODPROMO,
HVD_COSTO_TOT ASC
"$
c = B4XPages.MainPage.skmt.ExecQuery(queryVentas)
@@ -130,10 +132,13 @@ Sub B4XPage_Appear
Dim producto As String = c.GetString("HVD_PRONOMBRE")
Dim cant As String = c.GetString("HVD_CANT")
Dim costo As String = c.GetString("HVD_COSTO_TOT")
' Dim Costotodo As Double = 0
' Agregamos el separador de Ticket
If ticket <> currentTicket Then
ListView1.AddSingleLine($"🎫 TICKET: ${ticket} | 📅 ${fecha}"$)
' Costotodo = Costotodo + costo
' ListView1.AddSingleLine($"🎫 TICKET: ${ticket} | 📅 ${fecha} ${CRLF} 💵 Total: $${NumberFormat2(Costotodo,0,2,2,False)}"$)
ListView1.AddSingleLine($"🎫 TICKET: ${ticket} | 📅 ${fecha}"$)
currentTicket = ticket
End If