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.01.10

Browse Source 
Se hizo una pequeña modificacion en el ticket en el apartado de cajas para optener el precio por unidad para que al multiplicarlo por la catidad de el importe correcto.
This commit is contained in:
Isaac
2025-01-13 13:49:42 -06:00
parent f8d9740950
commit d8844799a3
8 changed files with 270 additions and 53 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
B4A/C_Cliente.bas
View File

@@ -1250,7 +1250,7 @@ Sub imprime_preventa
' BLANCO = " "
k1 = NumberFormat((s.GETSTRING("PE_COSTOU")/s.GETSTRING("PE_CANT")),0,2)
k1 = NumberFormat((s.GETSTRING("PE_COSTO_TOT")/s.GETSTRING("PE_CANT")),0,2)
k2 = NumberFormat(s.GETSTRING("PE_COSTO_TOT"),0,2)
TAMANO = s.GetLong("L_CANT") + k1.Length + k2.Length
@@ -1279,7 +1279,7 @@ Sub imprime_preventa
Printer1.WriteString(" " & CRLF)
s=skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU,PE_CANT * PE_COSTOU AS PE_COSTO_TOT, length(PE_CANT * PE_COSTOU) as L_COSTO_TOT,PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_FOLIO = ? AND LENGTH(PE_CEDIS) > 3 AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_CEDIS, PE_COSTOU", Array As String("PREVENTA"))
If s.RowCount>0 Then
Printer1.WriteString("-------PROMOS PREVENTA--------" & CRLF)
Printer1.WriteString("-------PROMOS PREVENTA--------" & CRLF)
Printer1.WriteString("Cant. Precio Importe" & CRLF)
Printer1.WriteString("------------------------------" & CRLF)
For i=0 To S.RowCount -1
@@ -1629,7 +1629,7 @@ Sub imprime_venta
k1 = NumberFormat((s.GETSTRING("PE_COSTOU")/s.GETSTRING("PE_CANT")),0,2)
k1 = NumberFormat((s.GETSTRING("PE_COSTO_TOT")/s.GETSTRING("PE_CANT")),0,2)
k2 = NumberFormat(s.GETSTRING("PE_COSTO_TOT"),0,2)
TAMANO = s.GetLong("L_CANT") + k1.Length + k2.Length