23/9/23 - Commit inicial.

B4A/C_picking.bas

@@ -0,0 +1,107 @@
+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