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

- VERSION 4.10.15

Browse Source 
- Se genera un GUID para pruebas en lugar del IMEI
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-10-17 23:49:34 -06:00
parent 80173f1f35
commit fd6b1523da
9 changed files with 125 additions and 58 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
B4A/C_Principal.bas
View File

@@ -523,6 +523,8 @@ Sub B4XPage_Appear
NUEVO.Enabled = True
B_PROXIMA.Enabled = True
End If
LogColor("REVISAMOS GUID", Colors.red)
Subs.generaGUID_EnExterno
End Sub
Sub trabajar_Click
@@ -805,7 +807,7 @@ Sub cargar_Click
cmd.Initialize
cmd.Name = "select_hist_datos_KELL"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,e_ruta.text, ALMACEN)
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "hist_datos")
cmd.Initialize
@@ -882,7 +884,7 @@ Sub cargar_Click
cmd.Initialize
cmd.Name = "select_fecha"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
' cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "fecha")
cmd.Initialize
@@ -913,7 +915,7 @@ Sub cargar_Click
cmd.Initialize
cmd.Name = "select_dia_visita_KELL"
cmd.Parameters = Array As Object( ALMACEN)
' cmd.Parameters = Array As Object(Null)
reqManager.ExecuteQuery(cmd , 0, "dia_visita")
cmd.Initialize
@@ -2482,14 +2484,14 @@ Sub Resumen_Click
L_ABORDO.Text = "0"
P_RESUMEN.Visible = True
P_RESUMEN.BringToFront
trabajar.Visible = False
B_PROXIMA.Visible =False
NUEVO.Visible =False
BUSCA.Visible=False
connecta.Visible=False
Subir.Visible=False
cargar.Visible=False
Resumen.Visible= False
' trabajar.Visible = False
' B_PROXIMA.Visible =False
' NUEVO.Visible =False
' BUSCA.Visible=False
' connecta.Visible=False
' Subir.Visible=False
' cargar.Visible=False
' Resumen.Visible= False
DateTime.DateFormat = "MM/dd/yyyy"
fecha=DateTime.Date(DateTime.Now)
Starter.skmt.ExecNonQuery2("update PEDIDO set PE_TIPO = ? where PE_CLIENTE =?", Array As Object("ABORDO", "0"))