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

No toma el abordo para el tiempo real y correccion de mapa por el abordo

Browse Source
This commit is contained in:
cvaldes1201
2024-05-21 14:01:02 -06:00
parent e0c2de56a7
commit 469804f45a
3 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
B4A/C_Principal.bas
View File

@@ -268,7 +268,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
l_ctast.Text = d.GetString("TOTAL_VISITAR")
l_porvisitar.Text = e.GetString("POR_VISITAR")
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 WHERE PC_CLIENTE <> 0")
b=B4XPages.MainPage.skmt.ExecQuery("select count(*) as CUANTOS from noventa")
'where pc_fecha = ?", Array As String(fecha)
c.Position=0
@@ -408,9 +408,9 @@ Sub B4XPage_Appear
' If Starter.marcaCel <> "Sony" Then ToastMessageShow(Cuantos , True)
d=B4XPages.MainPage.skmt.ExecQuery("select count(*) as TOTAL_VISITAR from kmt_info where gestion = 0")
d.Position=0
e=B4XPages.MainPage.skmt.ExecQuery("select count(*) as POR_VISITAR from kmt_info")
e=B4XPages.MainPage.skmt.ExecQuery("select count(*) as POR_VISITAR from kmt_info WHERE CAT_CL_CODIGO <>0")
e.Position=0
f=B4XPages.MainPage.skmt.ExecQuery("select count(*) as CAT_CL_RUTA from kmt_info")
f=B4XPages.MainPage.skmt.ExecQuery("select count(*) as CAT_CL_RUTA from kmt_info WHERE CAT_CL_CODIGO <>0")
f.Position=0
l_ruta.Text = f.GetString("CAT_CL_RUTA")
f.Close
@@ -440,7 +440,7 @@ Sub B4XPage_Appear
l_cuantosn.Text = b.GetString("CUANTOS")
b.close
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 WHERE PE_CLIENTE <> 0 ")
b=B4XPages.MainPage.skmt.ExecQuery("select count(*) as CUANTOS from noventa")
c.Position=0
b.Position=0

2
B4A/INTMEX.b4a
View File

@@ -163,7 +163,7 @@ Version=12.5
#Region Project Attributes
#ApplicationLabel: Intmex
#VersionCode: 1
#VersionName: 4.05.15
#VersionName: 4.05.18
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False

2
B4A/INTMEX.b4a.meta
View File

@@ -85,6 +85,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=
ModuleClosedNodes8=
ModuleClosedNodes9=
NavigationStack=C_Principal,resdia_Click,2267,5,C_Cliente,MODS,1,0,C_Productos,Class_Globals,1,0,Subs,actualizaProducto,777,0,C_Productos,et_pCant_FocusChanged,626,0,C_Productos,b_continuar_Click,792,0,C_Productos,clv_prods_ll_VisibleRangeChanged,999,0,C_Productos,b_prodMas_Click,572,0,C_Productos,cuentaProds,710,0,C_Productos,et_pCant_TextChanged,675,6,MAPA_RUTAS,MapFragment1_Ready,230,0
NavigationStack=C_Productos,et_pCant_FocusChanged,626,0,C_Productos,b_continuar_Click,792,0,C_Productos,clv_prods_ll_VisibleRangeChanged,999,0,C_Productos,b_prodMas_Click,572,0,C_Productos,cuentaProds,710,0,C_Productos,et_pCant_TextChanged,675,6,MAPA_RUTAS,MapFragment1_Ready,230,0,Starter,ENVIA_ULTIMA_GPS,86,0,C_Principal,B4XPage_Created,264,3,C_Principal,B4XPage_Appear,436,2
SelectedBuild=0
VisibleModules=2,26,13,16,14,4,27,15,9,6,23