cheveguerra/Guna_Preventa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Guna_Preventa.git synced 2026-04-20 14:19:25 +00:00
Code Issues Packages Projects Releases Wiki Activity

- VERSION 4.12.02

Browse Source 
- Se modificó como se trae la ruta para suplencia, porque en elgunas ocasiones resgresaba la ruta como CERO.
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-12-06 12:49:12 -06:00
parent ff1d910052
commit 3a9e0d373a
8 changed files with 56 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
B4A/C_Principal.bas
View File

@@ -948,6 +948,8 @@ Sub cargar_Click
DateTime.DateFormat = "MM/dd/yyyy"
sDate=DateTime.Date(DateTime.Now)
sTime=DateTime.Time(DateTime.Now)
Subs.guardaVariable("RUTA", e_ruta.text)
Dim P As PhoneId
imei = ""
@@ -2211,6 +2213,7 @@ Sub t2_tick
B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("pasword"))
B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("LATITUD"))
B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("LONGITUD"))
B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("RUTA"))
' B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("FORZAR_ACTUALIZACION"))
' B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("VERSION_NUEVA"))
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE GPS SET HABILITADO = (?)",Array As Object(0))
@@ -2560,7 +2563,6 @@ Sub resdia_Click
Label2.Text = "Ruta " & rutOr
l_ru_pri.Text = NumberFormat2(ru_o.GetString("TOTAL_CLIE"), 0, 2, 2, False)
End If
ru_o.Close
'Prueba1
@@ -2574,9 +2576,8 @@ Sub resdia_Click
ru_s.Position = 0
l_ru_sup.Text = NumberFormat2(ru_s.GetString("TOTAL_CLIE"), 0, 2, 2, False)
End If
ru_s.Close
Dim cuantos_obj As String
c=B4XPages.MainPage.skmt.ExecQuery("Select count(*) AS TOTAL from HIST_MARCAS_CUOTAS ")
c.Position = 0
@@ -2588,10 +2589,8 @@ Sub resdia_Click
c.Position = 0
If c.GetString("TOTAL") > 0 Then
L_NES.Text = Round(c.GetString("TOTAL") / 25)
Else
L_NES.Text = c.GetString("TOTAL")
End If
c.Close
End If
@@ -2605,7 +2604,6 @@ Sub resdia_Click
L_EFEC_PURA.Text = Round2(L_VISITCC.Text / L_VPLAN.Text,2)
L_LIN_TICK.Text = LPT
If l_monto_ks.Text <> "0" Then
c=B4XPages.MainPage.skmt.ExecQuery2("Select COUNT(DISTINCT(PE_CLIENTE)) AS CUANTOS FROM PEDIDO WHERE PE_CEDIS = ? ", Array As String(ALMACEN))
c.Position = 0
L_CTE_PROMO.Text = c.GetString("CUANTOS")
@@ -2622,7 +2620,7 @@ Sub resdia_Click
'L_PRIO.Text = NumberFormat(d.GetString("MONTO_DIA"),0,2)
L_PRIO.Text = d.GetString("MONTO_DIA")
d.Close
d=B4XPages.MainPage.skmt.ExecQuery2($"Select sum(PE_COSTO_TOT) AS MONTO_DIA FROM PEDIDO WHERE PE_PROID IN (select CAT_GP_ID from ${Subs.traeTablaProds(tipo_venta)} where CAT_GP_TIPOPROD = ?) "$, Array As String("ESTRATEGICO"))
d.Position = 0
L_SECUND.Text =d.GetString("MONTO_DIA")