mirror of
https://github.com/KeymonSoft/Salma_Picking.git
synced 2026-04-17 21:16:08 +00:00
107 lines
3.2 KiB
QBasic
107 lines
3.2 KiB
QBasic
B4A=true
|
|
Group=Default Group
|
|
ModulesStructureVersion=1
|
|
Type=Class
|
|
Version=11.8
|
|
@EndOfDesignText@
|
|
Sub Class_Globals
|
|
Private Root As B4XView 'ignore
|
|
Private xui As XUI 'ignore
|
|
Private lb_folioselec As Label
|
|
Dim c As Cursor
|
|
Dim cl_picking As CustomListView
|
|
Private l_nombre As Label
|
|
Private l_codigo As Label
|
|
Private l_inical As Label
|
|
Private et_picking As EditText
|
|
Private b_guardapicking As Button
|
|
Dim cmd As DBCommand
|
|
Dim reqManager As DBRequestManager
|
|
End Sub
|
|
|
|
'You can add more parameters here.
|
|
Public Sub Initialize As Object
|
|
Return Me
|
|
End Sub
|
|
|
|
'This event will be called once, before the page becomes visible.
|
|
Private Sub B4XPage_Created (Root1 As B4XView)
|
|
Root = Root1
|
|
Root.LoadLayout("picking")
|
|
'load the layout to Root
|
|
|
|
reqManager.Initialize(Me, Starter.DBReqServer)
|
|
cl_picking.Clear
|
|
|
|
End Sub
|
|
|
|
Sub B4XPage_Appear
|
|
|
|
lb_folioselec.Text = B4XPages.MainPage.seleccion.folioactual
|
|
c = Starter.skmt.ExecQuery("SELECT CAT_DF_ID, CAT_DF_NOMBRE, CAT_DF_CANTINICIAL FROM CAT_DETALLEFOLIO")
|
|
cl_picking.Clear
|
|
For i = 0 To c.RowCount - 1
|
|
c.Position = i
|
|
cl_picking.Add(CreateListItem(c.GetString("CAT_DF_ID"),c.GetString("CAT_DF_NOMBRE"),c.GetString("CAT_DF_CANTINICIAL")),i)
|
|
Next
|
|
c.Close
|
|
|
|
End Sub
|
|
|
|
Sub CreateListItem(id As String, nombre As String, cantidad As String) As Panel
|
|
|
|
Dim p As B4XView = xui.CreatePanel("")
|
|
p.SetLayoutAnimated(0, 0, 0, 1, 115)
|
|
p.LoadLayout("dpicking")
|
|
p.Height= 60dip
|
|
' p.Width = clv_orden.GetBase.Width
|
|
l_codigo.Text = id
|
|
l_nombre.Text = nombre
|
|
l_inical.Text = cantidad
|
|
et_picking.Text = cantidad
|
|
' Log(p.Width)
|
|
Return p
|
|
|
|
End Sub
|
|
|
|
Private Sub b_guardapicking_Click
|
|
|
|
Dim cuantospicking As Int = cl_picking.Size
|
|
' Log (cuantospicking)
|
|
|
|
c = Starter.skmt.ExecQuery("SELECT DISTINCT CAT_DF_RUTA FROM CAT_DETALLEFOLIO")
|
|
c.Position = 0
|
|
For i=0 To cuantospicking-1
|
|
|
|
Dim pnl0 As B4XView = cl_picking.GetPanel(i)
|
|
Dim pnl As B4XView = pnl0.GetView(0)
|
|
Dim codigoproducto As B4XView = pnl.GetView(0)
|
|
Dim cantidadescrita As B4XView = pnl.GetView(3)
|
|
Log (codigoproducto.Text & " y " & cantidadescrita.Text)
|
|
Starter.skmt.ExecNonQuery2("UPDATE CAT_DETALLEFOLIO SET CAT_DF_CANTIDADESCRITA=(?) WHERE CAT_DF_ID = (?) AND CAT_DF_RUTA = (?)",Array As Object(cantidadescrita.Text,codigoproducto.text,c.GetString("CAT_DF_RUTA")))
|
|
'
|
|
cmd.Initialize
|
|
cmd.Name = "update_picking2_SALMA"
|
|
cmd.Parameters = Array As Object(cantidadescrita.text,codigoproducto.Text,c.GetString("CAT_DF_RUTA"), B4XPages.MainPage.seleccion.almacen)
|
|
reqManager.ExecuteCommand(cmd, "update_picking2")
|
|
|
|
Next
|
|
|
|
cmd.Initialize
|
|
cmd.Name = "update_picking3_SALMA"
|
|
cmd.Parameters = Array As Object(B4XPages.MainPage.seleccion.folioactual,B4XPages.MainPage.seleccion.almacen,B4XPages.MainPage.seleccion.user)
|
|
reqManager.ExecuteCommand(cmd, "update_picking3")
|
|
|
|
cmd.Initialize
|
|
cmd.Name = "update_picking4_SALMA"
|
|
cmd.Parameters = Array As Object(B4XPages.MainPage.seleccion.folioactual,B4XPages.MainPage.seleccion.almacen,B4XPages.MainPage.seleccion.user)
|
|
reqManager.ExecuteCommand(cmd, "update_picking4")
|
|
|
|
B4XPages.ShowPage("seleccion")
|
|
' B4XPages.MainPage.seleccion.b_cargar_Click
|
|
' B4XPages.MainPage.seleccion.trabajos = 0
|
|
' B4XPages.MainPage.seleccion.trabajo1 = 1
|
|
' Log(B4XPages.MainPage.seleccion.trabajos)
|
|
' Log(B4XPages.MainPage.seleccion.trabajo1)
|
|
|
|
End Sub |