cheveguerra/Marquez
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Marquez.git synced 2026-04-17 21:06:15 +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

6
B4A/C_Cliente.bas
View File

@@ -1297,12 +1297,14 @@ Sub imprime_preventa
s.Close s.Close
'Totales por tipo de preventa '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=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 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) Printer1.WriteString("Total " & tipo.ToLowerCase & ": $" & NumberFormat(s.GetString("TOTAL"),0,2) & eLINEFEED)
s.Close 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 C.Position=0
Printer1.WriteString("Total art. " & tipo.ToLowerCase & ": " & NumberFormat(c.GetString("PC_NOART"),0,0) & eLINEFEED) Printer1.WriteString("Total art. " & tipo.ToLowerCase & ": " & NumberFormat(c.GetString("PC_NOART"),0,0) & eLINEFEED)
c.Close c.Close

2
B4A/MARQUEZ.b4a
View File

@@ -211,7 +211,7 @@ Version=12.8
#Region Project Attributes #Region Project Attributes
#ApplicationLabel: Marquez #ApplicationLabel: Marquez
#VersionCode: 1 #VersionCode: 1
#VersionName: 5.06.10 #VersionName: 5.08.05
'SupportedOrientations possible values: unspecified, landscape or portrait. 'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait #SupportedOrientations: portrait
#CanInstallToExternalStorage: False #CanInstallToExternalStorage: False

2
B4A/MARQUEZ.b4a.meta
View File

@@ -94,6 +94,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= ModuleClosedNodes9=
NavigationStack=Starter,Process_Globals,17,0,C_Productos,B4XPage_Appear,140,0,Subs,traeTablaProds,1565,0,Subs,traeMaxPromos,1184,6,C_NoVenta,GUARDA_Click,108,0,Diseñador Visual,principal.bal,-100,1,C_Principal,B4XPage_Appear,420,1,C_Cliente,Class_Globals,147,0,C_Cliente,GPS_LocationChanged,526,0,C_Principal,JobDone,2238,0,C_Principal,cargar_Click,1183,0 NavigationStack=Subs,traeTablaProds,1565,0,Subs,traeMaxPromos,1184,6,C_NoVenta,GUARDA_Click,108,0,Diseñador Visual,principal.bal,-100,1,C_Principal,B4XPage_Appear,420,1,C_Cliente,Class_Globals,147,0,C_Cliente,GPS_LocationChanged,526,0,C_Principal,JobDone,2238,0,C_Principal,cargar_Click,1183,0,C_Principal,getTableColumnList,377,0,C_Cliente,imprime_preventa,1304,4
SelectedBuild=0 SelectedBuild=0
VisibleModules=1,2,13,4,5,7,8,9,10,14 VisibleModules=1,2,13,4,5,7,8,9,10,14