cheveguerra/ADM2
1
0
Fork 0
mirror of https://github.com/KeymonSoft/ADM2.git synced 2026-04-17 19:36:33 +00:00
Code Issues Packages Projects Releases Wiki Activity

VERSION 5.12.06

Browse Source 
- Correccion porque cuando inicaba Principal, si no habia datos en kmt_info mandaba error!
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-12-29 18:23:29 -06:00
parent 7f18e3e8ea
commit 90373fa40d
4 changed files with 48 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
B4A/C_Principal.bas
View File

@@ -237,6 +237,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
Root.LoadLayout("principal")
rd.Initialize
rd.vacuum
p_principal.Top = 0 : p_principal.Left = 0 : p_principal.Width = Root.Width : p_principal.Height = Root.Height
EJECUTANDO=1
Dim ruta As String
img2.Visible =False
@@ -255,19 +256,19 @@ Private Sub B4XPage_Created (Root1 As B4XView)
d.Position=0
e=B4XPages.MainPage.skmt.ExecQuery("select count(*) as POR_VISITAR from kmt_info")
e.Position=0
f=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info")
f.Position=0
' f=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info")
' f.Position=0
' Log("-- A")
l_ruta.Text = f.GetString("CAT_CL_RUTA")
f.Close
If l_ruta.Text = 0 Then
l_ruta.Text = 0
Else
f=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info")
f.Position=0
l_ruta.Text = f.GetString("CAT_CL_RUTA")
f.Close
End If
' l_ruta.Text = f.GetString("CAT_CL_RUTA")
' f.Close
' If l_ruta.Text = 0 Then
' l_ruta.Text = 0
' Else
' f=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info")
' f.Position=0
'' l_ruta.Text = f.GetString("CAT_CL_RUTA")
' f.Close
' End If
If Cuantos = 0 Then
L_MONTOD.Text =0
l_cuantosc.Text = 0
@@ -423,20 +424,17 @@ Sub B4XPage_Appear
d.Position = 0
e=B4XPages.MainPage.skmt.ExecQuery("select count(*) as POR_VISITAR from kmt_info WHERE CAT_CL_CODIGO <> 0 OR CAT_CL_CODIGO <> 1 ")
e.Position = 0
f=B4XPages.MainPage.skmt.ExecQuery("select count(*) as CAT_CL_RUTA from kmt_info WHERE CAT_CL_CODIGO <> 0 OR CAT_CL_CODIGO <> 1 ")
f.Position = 0
l_ruta.Text = f.GetString("CAT_CL_RUTA")
' Log("-- A:" & l_ruta.Text)
f.Close
If l_ruta.Text = 0 Then
f=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info WHERE CAT_CL_CODIGO <> 0 OR CAT_CL_CODIGO <> 1 ")
If f.RowCount = 0 Then
l_ruta.Text = 0
Else
f=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info")
f.Position=0
f.Position = 0
l_ruta.Text = f.GetString("CAT_CL_RUTA")
' Log("-- A:" & l_ruta.Text)
f.Close
End If
f.Close
If Cuantos = 0 Then
L_MONTOD.Text = 0
l_cuantosc.Text = 0
@@ -2028,7 +2026,7 @@ Sub JobDone(Job As HttpJob)
'Para suplencia
If Panel11.Visible = True And E_RUTA2.Visible = True Then
Log("-- AA")
bitacora.mandaBitacora(Subs.fechanormal(DateTime.Now),usuario,Subs.traeAlmacen, Subs.traeRuta,"Carga día suplencia","",Subs.fechanormal(DateTime.Now),Subs.fechanormal(DateTime.Now),B4XPages.MainPage.lat_gps,B4XPages.MainPage.lon_gps,"2","","", "")
bitacora.mandaBitacora(Subs.fechanormal(DateTime.Now),usuario,Subs.traeAlmacen, e_ruta.text,"Carga día suplencia","",Subs.fechanormal(DateTime.Now),Subs.fechanormal(DateTime.Now),B4XPages.MainPage.lat_gps,B4XPages.MainPage.lon_gps,"2","","", "")
Else if e_ruta.Text <> "" Then
Log("-- BB")
bitacora.mandaBitacora(Subs.fechanormal(DateTime.Now),usuario,Subs.traeAlmacen, Subs.traeRuta,"Carga día", "",Subs.fechanormal(DateTime.Now),Subs.fechanormal(DateTime.Now),B4XPages.MainPage.lat_gps,B4XPages.MainPage.lon_gps,"2","","", "")