mirror of
https://github.com/KeymonSoft/Guna_Reparto_Diseno_Viejo.git
synced 2026-04-21 14:49:28 +00:00
Picking
This commit is contained in:
cvaldes1201
@@ -89,6 +89,8 @@ Sub Class_Globals
|
||||
Private l_rechazo As Label
|
||||
Private Label9 As Label
|
||||
Dim cp As Cursor
|
||||
|
||||
Private b_picking As Button
|
||||
End Sub
|
||||
|
||||
'You can add more parameters here.
|
||||
@@ -161,6 +163,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
|
||||
End Sub
|
||||
|
||||
Sub B4XPage_Appear
|
||||
b_picking.visible = False
|
||||
Subs.centraPanel(p_principal, Root.Width)
|
||||
' c=Starter.skmt.ExecQuery("select noversion from version")
|
||||
' c.Position=0
|
||||
@@ -188,6 +191,7 @@ Sub B4XPage_Appear
|
||||
If f.RowCount > 0 Then
|
||||
f.Position = 0
|
||||
l_ruta.Text = f.GetString("RUTAA")
|
||||
|
||||
End If
|
||||
f.Close
|
||||
If l_ruta.Text = 0 Then
|
||||
@@ -392,7 +396,26 @@ Sub B4XPage_Appear
|
||||
Label9.Visible = False
|
||||
L_MONTOE.Visible = False
|
||||
End If
|
||||
checachek
|
||||
End Sub
|
||||
|
||||
Sub checachek
|
||||
c = Starter.skmt.ExecQuery("SELECT * FROM PICKING_REPARTO")
|
||||
If c.RowCount > 0 Then
|
||||
b = Starter.skmt.ExecQuery("SELECT MOSTRAR FROM CHECAR")
|
||||
If b.RowCount > 0 Then
|
||||
b.Position = 0
|
||||
If b.GetString("MOSTRAR") = 0 Then
|
||||
b_picking.Visible = True
|
||||
Else If b.GetString("MOSTRAR") = 1 Then
|
||||
b_picking.Visible =False
|
||||
End If
|
||||
b.Close
|
||||
End If
|
||||
Else
|
||||
b_picking.Visible =False
|
||||
End If
|
||||
c.Close
|
||||
End Sub
|
||||
|
||||
Sub IsConnectedToInternet As Boolean 'ignore
|
||||
@@ -419,7 +442,12 @@ Sub to_number_vb (valor As Object) As String
|
||||
End Sub
|
||||
|
||||
Sub trabajar_Click
|
||||
B4XPages.ShowPage("Clientes")
|
||||
If b_picking.Visible = True Then
|
||||
MsgboxAsync("Favor de hacer el picking.","Atención")
|
||||
Else
|
||||
|
||||
B4XPages.ShowPage("Clientes")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub Subir_Click
|
||||
@@ -620,6 +648,7 @@ Sub cargar_Click
|
||||
Starter.skmt.ExecNonQuery("delete from HIST_VENTAS")
|
||||
Starter.skmt.ExecNonQuery("delete from HIST_VENTAS2")
|
||||
Starter.skmt.ExecNonQuery("delete from NOVENTA")
|
||||
Starter.skmt.ExecNonQuery("delete from PICKING_REPARTO")
|
||||
Else
|
||||
Log("********************* Hay ruta, NO BORRAMOS TODO")
|
||||
End If
|
||||
@@ -645,6 +674,11 @@ Sub cargar_Click
|
||||
reqs.Add("gunaprod")
|
||||
End If
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_conversiones_GUNA"
|
||||
cmd.Parameters = Array As Object(ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "conversion")
|
||||
reqs.Add("conversion")
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_cliente_guna_re_REPG2"
|
||||
@@ -653,6 +687,15 @@ Sub cargar_Click
|
||||
Log($"Pedimos kmt_datos"$)
|
||||
reqs.Add("kmt_datos")
|
||||
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_picking_reparto"
|
||||
cmd.Parameters = Array As Object(ALMACEN,e_ruta.text,ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "p_reparto")
|
||||
Log($"Pedimos p_reparto"$)
|
||||
' reqs.Add("p_reparto")
|
||||
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_ventad_guna_re_REPG2"
|
||||
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN, ALMACEN)
|
||||
@@ -717,6 +760,35 @@ Sub cargar_Click
|
||||
reqs.Add("hist_datos")
|
||||
'reparto rechazo REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TOT
|
||||
End If
|
||||
|
||||
If ALMACEN = "66" Then
|
||||
ALMACEN = "67"
|
||||
cargo = 2
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_punteo_guna_re_REPG2"
|
||||
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN, ALMACEN,ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "punteo")
|
||||
reqs.Add("punteo")
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_almacen_guna_re_REPG2"
|
||||
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text, ALMACEN, ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "gunaprod")
|
||||
reqs.Add("gunaprod")
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_cliente_guna_re_REPG2"
|
||||
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN, ALMACEN,ALMACEN,e_ruta.text, ALMACEN, ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "kmt_datos")
|
||||
reqs.Add("kmt_datos")
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_ventad_guna_re_REPG2"
|
||||
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN, ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "hist_datos")
|
||||
reqs.Add("hist_datos")
|
||||
'reparto rechazo REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TOT
|
||||
End If
|
||||
|
||||
' c=Starter.skmt.ExecQuery("SELECT REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TOT, REP_FECHA FROM REPARTO")
|
||||
' If c.RowCount > 0 Then
|
||||
@@ -952,6 +1024,37 @@ Sub JobDone(Job As HttpJob)
|
||||
Starter.skmt.EndTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim result As DBResult = reqManager.HandleJob(Job)
|
||||
If result.Tag = "conversion" Then 'query tag
|
||||
If reqs.IndexOf("conversion") > -1 Then
|
||||
reqs.RemoveAt(reqs.IndexOf("conversion"))
|
||||
' Log(reqs.Size)
|
||||
End If
|
||||
If reqs.IndexOf("conversion") > 0 Then
|
||||
reqs.RemoveAt(reqs.IndexOf("conversion"))
|
||||
Log(reqs.Size)
|
||||
End If
|
||||
Starter.skmt.BeginTransaction
|
||||
Starter.skmt.ExecNonQuery("delete from CAT_CONVERSION")
|
||||
For Each records() As Object In result.Rows
|
||||
|
||||
Dim IDCONVER As String = records(result.Columns.Get("CAT_GP_ID"))
|
||||
Dim NOMBRECONVER As String = records(result.Columns.Get("CAT_GP_NOMBRE"))
|
||||
Dim CAJASPIEZAS As String = records(result.Columns.Get("CAT_GP_CONVERSION1"))
|
||||
Dim BLISTERPIEZAS As String = records(result.Columns.Get("CAT_GP_CONVERSION2"))
|
||||
Dim PRECIOPIEZAS As String = records(result.Columns.Get("CAT_GP_PRECIO"))
|
||||
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_CONVERSION (ID, NOMBRE, CAJASPIEZAS, BLISTERPIEZAS, PRECIO) VALUES (?,?,?,?,?)", Array As Object (IDCONVER,NOMBRECONVER, CAJASPIEZAS,BLISTERPIEZAS,PRECIOPIEZAS))
|
||||
Next
|
||||
Starter.skmt.TransactionSuccessful
|
||||
Starter.skmt.EndTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim result As DBResult = reqManager.HandleJob(Job)
|
||||
@@ -1027,6 +1130,54 @@ Sub JobDone(Job As HttpJob)
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
|
||||
' If Job.JobName = "DBRequest" Then
|
||||
' Dim result As DBResult = reqManager.HandleJob(Job)
|
||||
' If result.Tag = "p_reparto" Then 'query tag
|
||||
' If reqs.IndexOf("p_reparto") > -1 Then
|
||||
' reqs.RemoveAt(reqs.IndexOf("p_reparto"))
|
||||
'' Log(reqs.Size)
|
||||
' End If
|
||||
' If reqs.IndexOf("p_reparto") > 0 Then
|
||||
' reqs.RemoveAt(reqs.IndexOf("p_reparto"))
|
||||
' Log(reqs.Size)
|
||||
' End If
|
||||
' Starter.skmt.BeginTransaction
|
||||
' For Each records() As Object In result.Rows
|
||||
'
|
||||
' Dim HIST_PN_CODIGO_PRODUCTO As String = records(result.Columns.Get("HIST_PN_CODIGO_PRODUCTO"))
|
||||
' Dim HIST_PN_NOMBRE_PRODUCTO As String = records(result.Columns.Get("HIST_PN_NOMBRE_PRODUCTO"))
|
||||
' Dim HIST_PN_CANT_PIEZAS_OR As String = records(result.Columns.Get("HIST_PN_CANT_PIEZAS_OR"))
|
||||
' Dim HIST_PN_CANT_CAJAS_OR As String = records(result.Columns.Get("HIST_PN_CANT_CAJAS_OR"))
|
||||
' Dim HIST_PN_CANT_BLISTER_OR As String = records(result.Columns.Get("HIST_PN_CANT_BLISTER_OR"))
|
||||
' Dim HIST_PN_CANT_CAJAS As String = records(result.Columns.Get("HIST_PN_CANT_CAJAS"))
|
||||
' Dim HIST_PN_CANT_PIEZAS As String = records(result.Columns.Get("HIST_PN_CANT_PIEZAS"))
|
||||
' Dim HIST_PN_CANT_BLISTER As String = records(result.Columns.Get("HIST_PN_CANT_BLISTER"))
|
||||
' Starter.skmt.ExecNonQuery2("INSERT INTO PICKING_REPARTO(HIST_PN_CODIGO_PRODUCTO, HIST_PN_NOMBRE_PRODUCTO, HIST_PN_CANT_PIEZAS_OR, HIST_PN_CANT_CAJAS_OR, HIST_PN_CANT_BLISTER_OR, HIST_PN_CANT_CAJAS, HIST_PN_CANT_PIEZAS, HIST_PN_CANT_BLISTER, ESTATUS) VALUES (?,?,?,?,?,?,?,?,0)", Array As Object (HIST_PN_CODIGO_PRODUCTO, HIST_PN_NOMBRE_PRODUCTO, HIST_PN_CANT_PIEZAS_OR, HIST_PN_CANT_CAJAS_OR, HIST_PN_CANT_BLISTER_OR, HIST_PN_CANT_CAJAS, HIST_PN_CANT_PIEZAS, HIST_PN_CANT_BLISTER))
|
||||
'
|
||||
' Next
|
||||
' Starter.skmt.TransactionSuccessful
|
||||
' Starter.skmt.EndTransaction
|
||||
' End If
|
||||
' End If
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim result As DBResult = reqManager.HandleJob(Job)
|
||||
If result.Tag = "p_reparto" Then 'query tag
|
||||
For Each records() As Object In result.Rows
|
||||
Dim HIST_PN_CODIGO_PRODUCTO As String = records(result.Columns.Get("HIST_PN_CODIGO_PRODUCTO"))
|
||||
Dim HIST_PN_NOMBRE_PRODUCTO As String = records(result.Columns.Get("HIST_PN_NOMBRE_PRODUCTO"))
|
||||
Dim HIST_PN_CANT_PIEZAS_OR As String = records(result.Columns.Get("HIST_PN_CANT_PIEZAS_OR"))
|
||||
Dim HIST_PN_CANT_CAJAS_OR As String = records(result.Columns.Get("HIST_PN_CANT_CAJAS_OR"))
|
||||
Dim HIST_PN_CANT_BLISTER_OR As String = records(result.Columns.Get("HIST_PN_CANT_BLISTER_OR"))
|
||||
Dim HIST_PN_CANT_CAJAS As String = records(result.Columns.Get("HIST_PN_CANT_CAJAS"))
|
||||
Dim HIST_PN_CANT_PIEZAS As String = records(result.Columns.Get("HIST_PN_CANT_PIEZAS"))
|
||||
Dim HIST_PN_CANT_BLISTER As String = records(result.Columns.Get("HIST_PN_CANT_BLISTER"))
|
||||
Dim FECHA_PICKING As String = records(result.Columns.Get("HIST_PN_FECHA"))
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO PICKING_REPARTO(HIST_PN_CODIGO_PRODUCTO, HIST_PN_NOMBRE_PRODUCTO, HIST_PN_CANT_PIEZAS_OR, HIST_PN_CANT_CAJAS_OR, HIST_PN_CANT_BLISTER_OR, HIST_PN_CANT_CAJAS, HIST_PN_CANT_PIEZAS, HIST_PN_CANT_BLISTER, ESTATUS, FECHA) VALUES (?,?,?,?,?,?,?,?,0,?)", Array As Object (HIST_PN_CODIGO_PRODUCTO, HIST_PN_NOMBRE_PRODUCTO, HIST_PN_CANT_PIEZAS_OR, HIST_PN_CANT_CAJAS_OR, HIST_PN_CANT_BLISTER_OR, HIST_PN_CANT_CAJAS, HIST_PN_CANT_PIEZAS, HIST_PN_CANT_BLISTER,FECHA_PICKING))
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim result As DBResult = reqManager.HandleJob(Job)
|
||||
@@ -1181,6 +1332,11 @@ Sub JobDone(Job As HttpJob)
|
||||
ProgressDialogHide
|
||||
' Log(reqs.size)
|
||||
' Log("Terminamos lo descarga de ruta!")
|
||||
|
||||
c = Starter.skmt.ExecQuery("SELECT * FROM CHECAR")
|
||||
If c.RowCount = 0 Then
|
||||
Starter.skmt.ExecNonQuery2("insert into CHECAR (MOSTRAR) VALUES(?)", Array As String("0"))
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
@@ -1222,7 +1378,12 @@ End Sub
|
||||
|
||||
Sub BUSCA_Click
|
||||
' StartActivity(BUSCAR)
|
||||
B4XPages.ShowPage("Buscar")
|
||||
If b_picking.Visible = True Then
|
||||
MsgboxAsync("Favor de hacer el picking.","Atención")
|
||||
Else
|
||||
' StartActivity(BUSCAR)
|
||||
B4XPages.ShowPage("Buscar")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub b_mapa_Click
|
||||
@@ -1236,6 +1397,8 @@ Sub e_ruta_EnterPressed
|
||||
If RES = DialogResponse.POSITIVE Then
|
||||
e_ruta.Text = ""
|
||||
Starter.skmt.ExecNonQuery("delete from pedido_cliente")
|
||||
Starter.skmt.ExecNonQuery("delete from PICKING_REPARTO")
|
||||
Starter.skmt.ExecNonQuery("delete from CHECAR")
|
||||
Starter.skmt.ExecNonQuery("delete from pedido")
|
||||
Starter.skmt.ExecNonQuery("delete from noventa")
|
||||
Starter.skmt.ExecNonQuery("delete from clie_act")
|
||||
@@ -1278,6 +1441,9 @@ Sub t1_tick
|
||||
End Sub
|
||||
|
||||
Sub B_CLIEPROD_Click
|
||||
If b_picking.Visible = True Then
|
||||
MsgboxAsync("Favor de hacer el picking.","Atención")
|
||||
Else
|
||||
BUSCA.Visible = False
|
||||
connecta.Visible = False
|
||||
trabajar.Visible = False
|
||||
@@ -1339,7 +1505,7 @@ Sub B_CLIEPROD_Click
|
||||
' End If
|
||||
' ListView1.AddTwoLines(c.GetString("HVD_PRONOMBRE") & " " & c.GetString("HVD_CLIENTE") , c.GetString("HVD_CANT") & " " & ESTATUS )
|
||||
' Next
|
||||
' End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub B_REGRESA_Click
|
||||
@@ -1354,10 +1520,25 @@ End Sub
|
||||
|
||||
''''''''''''''''''''''''''''MAPA RUTAS
|
||||
Sub Btn_Ubicar_Ru_Click
|
||||
StartActivity(MAPA_RUTAS)
|
||||
If b_picking.Visible = True Then
|
||||
MsgboxAsync("Favor de hacer el picking.","Atención")
|
||||
Else
|
||||
|
||||
StartActivity(MAPA_RUTAS)
|
||||
End If
|
||||
End Sub
|
||||
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
|
||||
|
||||
Private Sub b_tabulador_Click
|
||||
B4XPages.ShowPage("tabulador")
|
||||
If b_picking.Visible = True Then
|
||||
MsgboxAsync("Favor de hacer el picking.","Atención")
|
||||
Else
|
||||
B4XPages.ShowPage("tabulador")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub b_picking_Click
|
||||
B4XPages.ShowPage("picking")
|
||||
End Sub
|
||||
Reference in New Issue
Block a user