cheveguerra/Guna_Preventa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Guna_Preventa.git synced 2026-04-20 22:29:21 +00:00
Code Issues Packages Projects Releases Wiki Activity

PROMOS ESPECIALES

Browse Source
This commit is contained in:
cvaldes1201
2024-07-14 22:24:51 -06:00
parent e773450fcd
commit 1479b9f56d
8 changed files with 344 additions and 79 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
B4A/C_TicketsDia.bas
View File

@@ -60,6 +60,35 @@ Sub B4XPage_Appear
If c.RowCount>0 Then
For i=0 To c.RowCount -1
c.Position=i
'AQUI CAMBIAR
Private s3 As Cursor=B4XPages.MainPage.skmt.ExecQuery2("select * FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) and PE_RECALCULO <> ? AND PE_RECALCULO <> ? AND PE_RECALCULO <> ? and PE_CLIENTE = ?",Array As String("","null",Null,c.GetString("PC_CLIENTE")))
LogColor(s3.RowCount,Colors.Yellow)
If s3.RowCount > 0 Then
Private s As Cursor=B4XPages.MainPage.skmt.ExecQuery2("select iFNULL(sum(pe_costo_tot),0) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) and PE_RECALCULO = ? AND PE_RECALCULO = ? AND PE_RECALCULO = ? and PE_CLIENTE = ?",Array As String("","null",Null,c.GetString("PC_CLIENTE")))
s.Position = 0
Private s5 As Cursor = B4XPages.MainPage.skmt.ExecQuery2("select iFNULL(sum(PE_RECALCULOTOT),0) as TOTAL_CLIE FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) and PE_RECALCULO <> ? AND PE_RECALCULO <> ? AND PE_RECALCULO <> ? and PE_CLIENTE = ?",Array As String("","null",Null,c.GetString("PC_CLIENTE")))
s5.Position = 0
Private suma As Float =NumberFormat2( s.GetString("TOTAL_CLIE") + s5.GetString("TOTAL_CLIE"),0,2,2,False)
s.Close
Else If s3.RowCount = 0 Then
Private s As Cursor=B4XPages.MainPage.skmt.ExecQuery2("select iFNULL(sum(pe_costo_tot),0) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE FROM PEDIDO WHERE PE_CLIENTE = ?",Array As String(c.GetString("PC_CLIENTE")))
s.Position=0
Private suma As Float = NumberFormat2( s.GetString("TOTAL_CLIE"),0,2,2,False)
s.Close
End If
Dim label1 As Label
label1 = ListView1.TwoLinesLayout.Label
label1.TextSize = 15
@@ -68,7 +97,7 @@ Sub B4XPage_Appear
label2 = ListView1.TwoLinesLayout.SecondLabel
label2.TextSize = 10
label2.TextColor = Colors.Blue
ListView1.AddTwoLines(c.GetString("PC_CLIENTE"),c.GetString("NOMBRE") &" Cantidad #"& c.GetString("PC_NOART")& " SubTotal $"& c.GetString("PC_MONTO"))
ListView1.AddTwoLines(c.GetString("PC_CLIENTE"),c.GetString("NOMBRE") &" Cantidad #"& c.GetString("PC_NOART")& " SubTotal $"& NumberFormat2(suma,0,2,2,False))
Next
End If
c.Close