From 96a97d3b68c78ee1456e3c342b2dde69f2669f51 Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Wed, 6 Aug 2025 16:51:19 -0600 Subject: [PATCH] - VERSION 5.08.05 - Se corrigio en la impresion de ticket que cuando no habia venta a credito y lo trataba de imprimir tronaba por valor nulo. --- B4A/C_Cliente.bas | 12 +++++++----- B4A/MARQUEZ.b4a | 2 +- B4A/MARQUEZ.b4a.meta | 2 +- 3 files changed, 9 insertions(+), 7 deletions(-) diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index 17ecf10..dc0658d 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -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)") diff --git a/B4A/MARQUEZ.b4a b/B4A/MARQUEZ.b4a index 7287119..96f0c07 100644 --- a/B4A/MARQUEZ.b4a +++ b/B4A/MARQUEZ.b4a @@ -211,7 +211,7 @@ Version=12.8 #Region Project Attributes #ApplicationLabel: Marquez #VersionCode: 1 - #VersionName: 5.06.10 + #VersionName: 5.08.05 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False diff --git a/B4A/MARQUEZ.b4a.meta b/B4A/MARQUEZ.b4a.meta index 38f9cba..2ac656b 100644 --- a/B4A/MARQUEZ.b4a.meta +++ b/B4A/MARQUEZ.b4a.meta @@ -94,6 +94,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= 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 VisibleModules=1,2,13,4,5,7,8,9,10,14