cheveguerra/Intmex_Multiventa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Intmex_Multiventa.git synced 2026-04-17 21:06:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

...

Browse Source
This commit is contained in:
cvaldes1201
2024-10-25 12:27:37 -06:00
parent df4045ed21
commit 590e36bee4
4 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
B4A/C_Principal.bas
View File

@@ -440,7 +440,7 @@ Sub B4XPage_Appear
l_cuantosn.Text = b.GetString("CUANTOS") l_cuantosn.Text = b.GetString("CUANTOS")
b.close b.close
Else Else
c=B4XPages.MainPage.skmt.ExecQuery("select SUM(PE_COSTO_TOT) as MONTO_DIA, COUNT(DISTINCT(PE_CLIENTE)) AS CLIENTES_DIA from PEDIDO WHERE PE_CLIENTE <> 0 ") c=B4XPages.MainPage.skmt.ExecQuery("select IFNULL(SUM(PE_COSTO_TOT),0) as MONTO_DIA, COUNT(DISTINCT(PE_CLIENTE)) AS CLIENTES_DIA from PEDIDO WHERE PE_CLIENTE <> 0 ")
b=B4XPages.MainPage.skmt.ExecQuery("select count(*) as CUANTOS from noventa") b=B4XPages.MainPage.skmt.ExecQuery("select count(*) as CUANTOS from noventa")
c.Position=0 c.Position=0
b.Position=0 b.Position=0

2
B4A/C_TicketsDia.bas
View File

@@ -63,7 +63,7 @@ Sub B4XPage_Appear
If c.RowCount>0 Then If c.RowCount>0 Then
For i=0 To c.RowCount -1 For i=0 To c.RowCount -1
c.Position=i c.Position=i
Dim x As Cursor = B4XPages.MainPage.skmt.ExecQuery($"select sum(PE_CANT) as PC_NOART from PEDIDO where PE_CLIENTE = '${c.GetString("PC_CLIENTE")}' AND PE_PROID NOT IN (SELECT CAT_PA_ID FROM PROMOS_COMP)"$) Dim x As Cursor = B4XPages.MainPage.skmt.ExecQuery($"select IFNULL(sum(PE_CANT),0) as PC_NOART from PEDIDO where PE_CLIENTE = '${c.GetString("PC_CLIENTE")}' AND PE_PROID NOT IN (SELECT CAT_PA_ID FROM PROMOS_COMP)"$)
If x.RowCount > 0 Then If x.RowCount > 0 Then
x.Position = 0 x.Position = 0
' Log(x.GetString("PC_NOART")) ' Log(x.GetString("PC_NOART"))

2
B4A/INTMEX.b4a
View File

@@ -164,7 +164,7 @@ Version=12.8
#Region Project Attributes #Region Project Attributes
#ApplicationLabel: Intmex #ApplicationLabel: Intmex
#VersionCode: 1 #VersionCode: 1
#VersionName: 4.07.03V-P #VersionName: 4.10.03V-P
'SupportedOrientations possible values: unspecified, landscape or portrait. 'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait #SupportedOrientations: portrait
#CanInstallToExternalStorage: False #CanInstallToExternalStorage: False

6
B4A/INTMEX.b4a.meta
View File

@@ -68,7 +68,7 @@ ModuleClosedNodes14=11
ModuleClosedNodes15=1,10,11 ModuleClosedNodes15=1,10,11
ModuleClosedNodes16= ModuleClosedNodes16=
ModuleClosedNodes17= ModuleClosedNodes17=
ModuleClosedNodes18=4 ModuleClosedNodes18=
ModuleClosedNodes19= ModuleClosedNodes19=
ModuleClosedNodes2= ModuleClosedNodes2=
ModuleClosedNodes20= ModuleClosedNodes20=
@@ -88,6 +88,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= ModuleClosedNodes9=
NavigationStack=C_Cliente,Class_Globals,29,0,C_Nota,B4XPage_Appear,78,0,C_Cliente,B4XPage_Appear,422,6,C_Productos,LlenaProdsLL,1084,0,C_Cliente,Guardar_Click,590,0,C_Principal,JobDone,1749,0,Subs,agregaColumna,1448,0,C_RespaldoDiario,Initialize,47,0,C_Principal,Subir_Click,665,1,C_Cliente,mandaPendientes,1176,2 NavigationStack=C_Cliente,B4XPage_Appear,422,6,C_Productos,LlenaProdsLL,1084,0,C_Cliente,Guardar_Click,590,0,C_Principal,JobDone,1749,0,Subs,agregaColumna,1448,0,C_RespaldoDiario,Initialize,47,0,C_Principal,Subir_Click,665,1,C_Cliente,mandaPendientes,1176,2,Diseñador Visual,principal.bal,-100,1,C_Principal,B4XPage_Appear,436,0,C_TicketsDia,B4XPage_Appear,59,0
SelectedBuild=0 SelectedBuild=0
VisibleModules=2,27,13,14,4,28,15,16 VisibleModules=2,27,13,14,4,28,15,16,18