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

Picking

Browse Source
This commit is contained in:
cvaldes1201
2024-05-23 13:11:01 -06:00
parent 72f6b32900
commit 30f86d054f
11 changed files with 818 additions and 61 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
B4A/B4XMainPage.bas
View File

@@ -43,6 +43,7 @@ Sub Class_Globals
' Public historico As C_Historico
Public detalleVenta As C_DetalleVenta
Public detalle_promo As C_Detalle_Promo
Public picking As C_picking
Dim reqManager As DBRequestManager
' Dim ruta As String
Dim usuario As String
@@ -83,6 +84,7 @@ Sub Class_Globals
Private lv_server As ListView
Public Provider As FileProvider
Public rutaBDBackup As String = ""
Dim rutarep As String
End Sub
Public Sub Initialize
@@ -102,6 +104,8 @@ Private Sub B4XPage_Created (Root1 As B4XView)
clientes.Initialize
B4XPages.AddPage("Clientes", clientes)
cliente.Initialize
B4XPages.AddPage("picking", picking)
picking.Initialize
B4XPages.AddPage("Cliente", cliente)
' foto.Initialize
' B4XPages.AddPage("Foto", foto)
@@ -136,6 +140,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS RECHAZOS (R_FECHA TEXT, R_CLIENTE TEXT, R_CLI_ORIG TEXT, R_PRODID TEXT, R_CANT TEXT, R_RECHAZO INT)")
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS VENTAS (V_FECHA TEXT, V_CLIENTE TEXT, V_CLI_ORIG TEXT, V_PRODID TEXT, V_CANT TEXT, V_RECHAZO INT)")
Subs.agregaColumna("REPARTO", "REP_PRODREGISTRO", "TEXT")
Subs.agregaColumna("PICKING_REPARTO", "FECHA", "TEXT")
Subs.agregaColumna("kmt_info", "SECUENCIA", "INT")
Subs.agregaColumna("REPARTO", "REP_PRODID", "TEXT")
Subs.agregaColumna("REPARTO", "REP_CLI_ORIG", "TEXT")
@@ -147,7 +152,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS wayPoints (codigo TEXT, indice INT)")
' Dim server As String = "http://11.0.0.151:1782"
Dim server As String = "http://187.189.244.154:1782"
' Dim server As String = "http://11.0.0.222:1782"
' Dim server As String = "http://11.0.0.12:1782"
' server = "http://10.0.0.205:1782"
' server = "http://11.0.0.44:1782"
reqManager.Initialize(Me, B4XPages.MainPage.server)
@@ -163,6 +168,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
' IMEN.Text = "" 'P.GetDeviceId
' IMEI = "" 'P.GetDeviceId
' End If
Subs.agregaColumna("PICKING_REPARTO","ESTATUS","INT")
End Sub
Sub B4XPage_Appear