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

21/10/23 - Importación de BD en engrane.

Browse Source 
- Se agregó en el engrane, la opción de importar una base de datos, el botón solo aparece cuando en el campo de usuario esta el texto "KMTS1".
This commit is contained in:
Jose Alberto Guerra Ugalde
2023-10-21 15:23:06 -06:00
parent 7fba23f398
commit d4cfc2bf68
12 changed files with 232 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
B4A/C_Principal.bas
View File

@@ -188,6 +188,7 @@ Sub Class_Globals
Public BluetoothState, ConnectionState As Boolean
Private ion As Object
Private p_centrado As Panel
Private l_version As Label
End Sub
'You can add more parameters here.
@@ -203,6 +204,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
'load the layout to Root
Root.LoadLayout("principal")
EJECUTANDO=1
l_version.Text = Application.VersionName
' Dim ruta As String
img2.Visible =False
' ruta = File.DirInternal
@@ -2200,7 +2202,7 @@ Sub B_OK_PAS_Click
P1.SendToBack
'Proyecto gps
Subs.bitacora(usuario,ALMACEN,l_ruta.Text,"Carga día", "",Subs.fechanormal(DateTime.Now),Subs.fechanormal(DateTime.Now),Starter.lat_gps,Starter.lon_gps,"2","","")
Subs.bitacora(Subs.fechanormal(DateTime.Now),usuario,ALMACEN,l_ruta.Text,"Carga día", "",Subs.fechanormal(DateTime.Now),Subs.fechanormal(DateTime.Now),Starter.lat_gps,Starter.lon_gps,"2","","")
Else if CARGA = "CARGAR" And (S_CP.Text <> "LISTO" Or S_CC.Text <> "LISTO" Or S_CH.Text <> "LISTO") Then
res = Msgbox2("Seguro que desea abortar el proceso","Cierre", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
If res = DialogResponse.POSITIVE Then
@@ -3166,3 +3168,18 @@ Sub GetBA As Object
Dim jo As JavaObject = Me
Return jo.RunMethod("getBA", Null)
End Sub
Private Sub connecta_LongClick
cmd.Initialize
Private c As Cursor = Starter.skmt.ExecQuery("select * from bitacoraGPS")
' If c.RowCount > 0 Then
' cmd.Name = "borraBitacora"
' cmd.Parameters = Array As Object(c.GetString("almacenb"), c.GetString("rutab"), c.GetString("usuariob"), c.GetString("almacenb"))
'
' End If
' cmd.Name = "mandaBitacora"
'' TMP_ALMACEN, TMP_RUTA, TMP_USUARIO, TMP_FECHA_SINC, TMP_ID_CLIENTE, TMP_EVENTO, TMP_INICIO, TMP_FINAL, TMP_LATITUD, TMP_LONGITUD, TMP_MOTIVO_NO_VENTA, TMP_MOTIVO_NO_VISITA, TMP_NOMBRE_CLIENTE,TMP_PRESICION
' cmd.Parameters = Array As Object( ALMACEN, cliente, evento, fecha, e_ruta.text, )
' reqManager.ExecuteQuery(cmd , 0, "HIST_ENCUESTA2")
End Sub