cheveguerra/Marquez
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Marquez.git synced 2026-04-19 13:49:18 +00:00
Code Issues Packages Projects Releases Wiki Activity

- VERSION 5.08.05

Browse Source 
- Se corrigio en la impresion de ticket que cuando no habia venta a credito y lo trataba de imprimir tronaba por valor nulo.
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-08-06 16:51:19 -06:00
parent 2f68301690
commit 96a97d3b68
3 changed files with 9 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
B4A/C_Cliente.bas
View File

@@ -1295,18 +1295,20 @@ Sub imprime_preventa
Printer1.WriteString(" " & eLINEFEED)
End If
s.Close
'Totales por tipo de preventa
s=skmt.ExecQuery2("select SUM(PE_COSTO_TOT) AS TOTAL FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) AND PE_FOLIO = ?", Array As String(tipo))
s.Position =0
s=skmt.ExecQuery2("select ifnull(SUM(PE_COSTO_TOT),0) AS TOTAL FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) AND PE_FOLIO = ?", Array As String(tipo))
s.Position = 0
Log(s.RowCount)
Log("Total " & tipo.ToLowerCase & ": $" & s.GetString("TOTAL"))
Printer1.WriteString("Total " & tipo.ToLowerCase & ": $" & NumberFormat(s.GetString("TOTAL"),0,2) & eLINEFEED)
s.Close
c= skmt.ExecQuery2("select sum(PE_CANT) as PC_NOART from PEDIDO where PE_CLIENTE in (Select CUENTA from cuentaa) AND PE_PROID NOT IN (SELECT CAT_PA_ID FROM PROMOS_COMP ) AND PE_FOLIO = ?", Array As String(tipo))
c= skmt.ExecQuery2("select ifnull(sum(PE_CANT),0) as PC_NOART from PEDIDO where PE_CLIENTE in (Select CUENTA from cuentaa) AND PE_PROID NOT IN (SELECT CAT_PA_ID FROM PROMOS_COMP ) AND PE_FOLIO = ?", Array As String(tipo))
C.Position=0
Printer1.WriteString("Total art. " & tipo.ToLowerCase & ": " & NumberFormat(c.GetString("PC_NOART"),0,0) & eLINEFEED)
c.Close
'Información adicional para crédito
If tipo = "PREVENTA_CREDITO" Then
Dim siesacredi As Cursor = skmt.ExecQuery("SELECT * FROM PAGARES WHERE PA_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")