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 4.08.18.EP_d la ruta se agrego al fin día para la bitacora GPS

Browse Source
This commit is contained in:
IsR0d
2024-08-22 11:30:45 -06:00
parent cb2290b729
commit 9a3fe60aa7
5 changed files with 27 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
B4A/B4XMainPage.bas
View File

@@ -151,7 +151,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
If File.Exists(ruta, "kmt.db") = False Then
File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
End If
skmt.Initialize(ruta,"kmt.db", True)
skmt.Initialize(File.DirInternal,"kmt.db", True)
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS IMPRESORA (HABILITADA)")
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS GPS (HABILITADO)")
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS PROMO_ESP (HVD_CLIENTE)")

8
B4A/C_Principal.bas
View File

@@ -44,6 +44,7 @@ Sub Class_Globals
Dim Cuantos As String
Dim l_cuantosn As Label
Dim e_ruta As EditText
Dim Rut_Rep As String
Dim l_porvisitar As Label
Dim b_mapa As Button
Dim l_ruta As Label
@@ -223,6 +224,7 @@ Sub Class_Globals
Private panel_5 As Panel
Private p_marcasRes As Panel
Private p_sombra As Panel
End Sub
'You can add more parameters here.
@@ -789,6 +791,8 @@ Sub Subir_Click
End Sub
Sub cargar_Click
Rut_Rep = e_ruta.Text
Log(Rut_Rep)
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE GPS SET HABILITADO = (?)",Array As Object(0))
B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("CARGA_DIA"))
B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("pasword"))
@@ -1928,6 +1932,7 @@ Sub b_mapa_Click
End Sub
Sub e_ruta_EnterPressed
If e_ruta.Text = "FIN DIA" Then
RES = Msgbox2("Seguro que desa hacer el cierre todos los datos se borraran?","Cierre", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
If RES = DialogResponse.POSITIVE Then
@@ -1959,10 +1964,11 @@ Sub e_ruta_EnterPressed
B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("LONGITUD"))
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM BITACORAGPS")
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE GPS SET HABILITADO = (?)",Array As Object(0))
Subs.bitacora(Subs.fechanormal(DateTime.Now),usuario,Subs.traeAlmacen, Subs.traeRuta,"Fin Día", "",Subs.fechanormal(DateTime.Now),Subs.fechanormal(DateTime.Now),B4XPages.MainPage.lat_gps,B4XPages.MainPage.lon_gps,"2","","")
B4XPage_Appear
Subs.bitacora(Subs.fechanormal(DateTime.Now),usuario,Subs.traeAlmacen, Rut_Rep,"Fin Día", "",Subs.fechanormal(DateTime.Now),Subs.fechanormal(DateTime.Now),B4XPages.MainPage.lat_gps,B4XPages.MainPage.lon_gps,"2","","")
End If
End If
If e_ruta.Text = "IWL" Then
' trabajar.Visible = False
NUEVO.Visible =False

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

File diff suppressed because one or more lines are too long

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

@@ -76,6 +76,6 @@ ModuleClosedNodes6=8,9,10
ModuleClosedNodes7=
ModuleClosedNodes8=
ModuleClosedNodes9=
NavigationStack=C_Principal,cargar_Click,784,0,C_Principal,B4XPage_CloseRequest,1838,0,C_Principal,connecta_Click,1846,0,C_Principal,BUSCA_Click,1914,0,B4XMainPage,b_aceptar_Click,844,0,C_Productos,b_QR_Click,417,0,C_Productos,b_prodMenos_Click,471,0,C_Cliente,B4XPage_Appear,563,0,C_Cliente,b_Inicio_Fin_venta_Click,4755,0,C_Principal,Class_Globals,15,0,C_Productos,lv_catalogos_ItemClick,176,0
NavigationStack=Tracker,flp_LocationChanged,186,0,C_Principal,B4XPage_Appear,456,0,C_Principal,Class_Globals,16,0,B4XMainPage,i_engrane_Click,737,0,C_Promos,b_continuar_Click,374,0,C_Productos,B4XPage_Appear,114,0,Diseñador Visual,pedido.bal,-100,2,Diseñador Visual,productos.bal,-100,6,C_Productos,lv_catalogos_ItemClick,193,0,C_Principal,B_OK_PAS_Click,2055,0,C_Principal,cargar_Click,853,0
SelectedBuild=0
VisibleModules=23,2,24,13,14,4,6,9,12,5

2
B4A/Subs.bas
View File

@@ -661,7 +661,7 @@ End Sub
Sub traeRuta As String 'ignore
Private c As Cursor
Private r As String
c=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info2 where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
c=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info2 limit 1")
r = "0"
If c.RowCount > 0 Then
c.Position=0