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

- VERSION 5.12.10

Browse Source 
- Se agrego codigo para las promos por rango.
- FALTA PONERLO EN TICKETS y PDFS
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-12-16 16:57:33 -06:00
parent ceb093b6c2
commit 5f6f3ac545
10 changed files with 119 additions and 80 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
B4A/C_Principal.bas
View File

@@ -2811,7 +2811,8 @@ Sub resdia_Click
' l_ru_pri.Text = NumberFormat2(s.GetString("TOTAL_CLIE") + s5.GetString("TOTAL_CLIE"),0,2,2,False)
L_REAL.Text =NumberFormat2(s.GetString("TOTAL_CLIE") + s5.GetString("TOTAL_CLIE"),0,2,2,False)
' L_REAL.Text =NumberFormat2(s.GetString("TOTAL_CLIE") + s5.GetString("TOTAL_CLIE"),0,2,2,False)
L_REAL.Text = Subs.calculaTotalConPromoXRango
s.Close
Else If s3.RowCount = 0 Then
@@ -2820,11 +2821,12 @@ Sub resdia_Click
' l_ru_pri.Text =NumberFormat2(s.GetString("TOTAL_CLIE"),0,2,2,False)
L_REAL.Text =NumberFormat2(s.GetString("TOTAL_CLIE"),0,2,2,False)
' L_REAL.Text = NumberFormat2(s.GetString("TOTAL_CLIE"),0,2,2,False)
L_REAL.Text = Subs.calculaTotalConPromoXRango
s.Close
End If
'Prueba0
Private ru_o As Cursor = B4XPages.MainPage.skmt.ExecQuery2("SELECT IFNULL(PE_RUTA, 0) AS PE_RUTA, IFNULL(SUM(PE_COSTO_TOT), 0) AS TOTAL_CLIE FROM PEDIDO LEFT JOIN RUTA_SUPLENCIA ON PE_RUTA = RS_RUTA WHERE RS_RUTA IS NULL", Null)
ru_o.Position=0
@@ -2834,7 +2836,8 @@ Sub resdia_Click
Else if ru_o.RowCount >=1 Then
Private rutOr As String = ru_o.GetString("PE_RUTA")
Label2.Text = "Ruta " & rutOr
l_ru_pri.Text = NumberFormat2(ru_o.GetDouble("TOTAL_CLIE"), 0, 2, 2, False)
' l_ru_pri.Text = NumberFormat2(ru_o.GetDouble("TOTAL_CLIE"), 0, 2, 2, False)
l_ru_pri.Text = Subs.calculaTotalConPromoXRango
End If
ru_o.Close