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

Version: 5.01.05

Browse Source 
Se evitan duplicados en el resumen día para saber los clientes reales.
This commit is contained in:
Isaac
2025-01-10 18:49:25 -06:00
parent 65c2cb05e1
commit 22f710091c
3 changed files with 31 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
B4A/C_Principal.bas
View File

@@ -321,7 +321,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
l_porvisitar.Text = e.GetString("POR_VISITAR") l_porvisitar.Text = e.GetString("POR_VISITAR")
Else Else
c=B4XPages.MainPage.skmt.ExecQuery("select sum(pc_monto) as MONTO_DIA, count(pc_cliente) AS CLIENTES_DIA from pedido_cliente ") c=B4XPages.MainPage.skmt.ExecQuery("select sum(pc_monto) as MONTO_DIA, count(pc_cliente) AS CLIENTES_DIA from pedido_cliente ")
b=B4XPages.MainPage.skmt.ExecQuery("select count(*) as CUANTOS from noventa") b=B4XPages.MainPage.skmt.ExecQuery("select count(distinct NV_CLIENTE) as CUANTOS from noventa")
'where pc_fecha = ?", Array As String(fecha) 'where pc_fecha = ?", Array As String(fecha)
c.Position=0 c.Position=0
b.Position=0 b.Position=0
@@ -439,13 +439,13 @@ Sub B4XPage_Appear
l_porvisitar.Text = e.GetString("POR_VISITAR") l_porvisitar.Text = e.GetString("POR_VISITAR")
d.Close d.Close
e.Close e.Close
b=B4XPages.MainPage.skmt.ExecQuery("select count(*) as CUANTOS from noventa") b=B4XPages.MainPage.skmt.ExecQuery("select count( distinct NV_CLIENTE) as CUANTOS from noventa")
b.Position=0 b.Position=0
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 ") c=B4XPages.MainPage.skmt.ExecQuery("select SUM(PE_COSTO_TOT) as MONTO_DIA, COUNT(DISTINCT(PE_CLIENTE)) AS CLIENTES_DIA from PEDIDO ")
b=B4XPages.MainPage.skmt.ExecQuery("select count(*) as CUANTOS from noventa") b=B4XPages.MainPage.skmt.ExecQuery("select count( distinct NV_CLIENTE) as CUANTOS from noventa")
c.Position=0 c.Position=0
b.Position=0 b.Position=0
L_MONTOD.Text = c.GetString("MONTO_DIA") L_MONTOD.Text = c.GetString("MONTO_DIA")

53
B4A/Guna Vistas V3.1.b4a
View File

@@ -189,32 +189,31 @@ FileGroup93=Default Group
FileGroup94=Default Group FileGroup94=Default Group
Group=Default Group Group=Default Group
Library1=appupdating Library1=appupdating
Library10=firebaseadmob Library10=firebaseanalytics
Library11=firebaseanalytics Library11=firebasenotifications
Library12=firebasenotifications Library12=fusedlocationprovider
Library13=fusedlocationprovider Library13=googlemaps
Library14=googlemaps Library14=googlemapsextras
Library15=googlemapsextras Library15=gps
Library16=gps Library16=ime
Library17=ime Library17=javaobject
Library18=javaobject Library18=jhsicezxing1
Library19=jhsicezxing1 Library19=json
Library2=b4xpages Library2=b4xpages
Library20=json Library20=okhttputils2
Library21=okhttputils2 Library21=phone
Library22=phone Library22=preoptimizedclv
Library23=preoptimizedclv Library23=randomaccessfile
Library24=randomaccessfile Library24=rspopupmenu
Library25=rspopupmenu Library25=runtimepermissions
Library26=runtimepermissions Library26=serial
Library27=serial Library27=sql
Library28=sql Library28=togglelibrary
Library29=togglelibrary Library29=xcustomlistview
Library3=baqrcode Library3=baqrcode
Library30=xcustomlistview Library30=xui
Library31=xui Library31=xui views
Library32=xui views Library32=compressstrings
Library33=compressstrings
Library4=batteryprogressview Library4=batteryprogressview
Library5=bitmapcreator Library5=bitmapcreator
Library6=byteconverter Library6=byteconverter
@@ -249,14 +248,14 @@ Module7=C_Cuestionario
Module8=C_Historico Module8=C_Historico
Module9=C_Mapas Module9=C_Mapas
NumberOfFiles=94 NumberOfFiles=94
NumberOfLibraries=33 NumberOfLibraries=32
NumberOfModules=26 NumberOfModules=26
Version=12.8 Version=13
@EndOfDesignText@ @EndOfDesignText@
#Region Project Attributes #Region Project Attributes
#ApplicationLabel: Guna Preventa #ApplicationLabel: Guna Preventa
#VersionCode: 1 #VersionCode: 1
#VersionName: 4.12.02 #VersionName: 5.01.05
'SupportedOrientations possible values: unspecified, landscape or portrait. 'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait #SupportedOrientations: portrait
#CanInstallToExternalStorage: False #CanInstallToExternalStorage: False

4
B4A/Guna Vistas V3.1.b4a.meta
View File

@@ -73,12 +73,12 @@ ModuleClosedNodes24=4,6,7,8,9,10
ModuleClosedNodes25= ModuleClosedNodes25=
ModuleClosedNodes26= ModuleClosedNodes26=
ModuleClosedNodes3= ModuleClosedNodes3=
ModuleClosedNodes4=4,5,6,7,8,9,10,11,12,13 ModuleClosedNodes4=5,6,7,8,9,10,11,12,13
ModuleClosedNodes5=1,3 ModuleClosedNodes5=1,3
ModuleClosedNodes6= ModuleClosedNodes6=
ModuleClosedNodes7=5,6,8,9,10,11 ModuleClosedNodes7=5,6,8,9,10,11
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= ModuleClosedNodes9=
NavigationStack=Visual Designer,resdia.bal,-100,5,C_Principal,resdia_Click,2603,0,C_Cliente,b_geopass_Click,1166,0,C_Cliente,GPS_LocationChanged,951,0,C_Cliente,B4XPage_Appear,930,3,C_NuevoCliente,Class_Globals,0,0,C_NuevoCliente,GUARDA_Click,88,2,C_NuevoCliente,B4XPage_Appear,62,6,Subs,traeRuta,663,6,Subs,traeProdNombre,658,0,B4XMainPage,b_aceptar_Click,884,0 NavigationStack=C_Cliente,GPS_LocationChanged,951,0,C_Cliente,B4XPage_Appear,930,3,C_NuevoCliente,Class_Globals,0,0,C_NuevoCliente,GUARDA_Click,88,2,C_NuevoCliente,B4XPage_Appear,62,6,Subs,traeRuta,663,6,Subs,traeProdNombre,658,0,B4XMainPage,b_aceptar_Click,884,0,C_Principal,B4XPage_Created,317,0,C_Principal,B4XPage_Appear,441,0,C_Bitacora,mandaBitacora,39,0
SelectedBuild=0 SelectedBuild=0
VisibleModules=24,2,14,25,4,5,7,6,15,12 VisibleModules=24,2,14,25,4,5,7,6,15,12