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