agregar PS considerando las nuevas columnas

Inventarios/Consignaciones.aspx.vb

@@ -100,6 +100,11 @@ Partial Class Inventarios_Consignaciones
         dt.Columns.Add("EstatusExistencia")
         dt.Columns.Add("CveMovimientoDetalle")
 
+        dt.Columns.Add("SeccionAlmacen")
+        dt.Columns.Add("Serie", Type.GetType("System.String"))
+        dt.Columns.Add("Lote", Type.GetType("System.String"))
+        dt.Columns.Add("FechaCaducidad", Type.GetType("System.DateTime"))
+
         dt.Columns.Add("CveAlmacen")
         dt.Columns.Add("Almacen")
 
@@ -145,7 +150,7 @@ Partial Class Inventarios_Consignaciones
         DdlProveedorFiltro.SelectedText = "Seleccione el Proveedor"
 
         'Llenar el dropdownlist de Productos y servicios 
-        If UsuarioActual.Empresa.Funcionalidad(105) = "" Then
+        If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
             DdlProducto.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
             DdlProducto.DataBind()
             DdlProducto.Items.Insert(0, New ListItem("----", "-1"))
@@ -584,6 +589,11 @@ Partial Class Inventarios_Consignaciones
                 Dim CveClasificacion As Integer
                 Dim PSCodigo = ""
 
+                Dim CveSeccionAlmacen As Integer = DdlSeccionAlmacen.SelectedValue.ToEntero
+                Dim Serie As String = If(TxtSerie.Text = "", "-1", TxtSerie.Text)
+                Dim Lote As String = If(TxtLote.Text = "", "-1", TxtLote.Text)
+                Dim Caducidad As String = If(TxtCaducidad.Text = "", "-1", TxtCaducidad.Text)
+
                 Dim dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=PSSelected).FiltroPrimero("")
 
                 If dr IsNot Nothing Then
@@ -606,8 +616,13 @@ Partial Class Inventarios_Consignaciones
 
                     registro.Item("PU") = TxtPU.Text.ToDouble
                     registro.Item("PUExtranjero") = TxtPU.Text.ToDouble
+                    registro.Item("CveSeccionAlmacen") = CveSeccionAlmacen
+                    registro.Item("Serie") = Serie
+                    registro.Item("Lote") = Lote
+                    registro.Item("FechaCaducidad") = Caducidad
                     registro.Item("Total") = TxtCantidad.Text.ToDouble * TxtPU.Text.ToDouble
 
+
                     DtMovimientos.Rows.Add(registro)
 
                     GvDatos.DataSource = DtMovimientos
@@ -1530,7 +1545,40 @@ Partial Class Inventarios_Consignaciones
     End Sub
 #End Region
 
+#Region "Columnas Opcionales en PS"
 
+    Protected Sub DdlProducto_Click(sender As Object, e As EventArgs) Handles DdlProducto.SelectedIndexChanged
+        If DdlProducto.SelectedValue.ToEntero > 0 Then
+            Dim drp As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlProducto.SelectedValue.ToEntero).FiltroPrimero("")
+
+            If drp IsNot Nothing Then
+                Dim AplicaSerie As Boolean = CBool(drp("AplicaSerie"))
+                Dim AplicaSeccion As Boolean = CBool(drp("AplicaSeccion"))
+                Dim AplicaLote As Boolean = CBool(drp("AplicaLote"))
+                Dim AplicaCaducidad As Boolean = CBool(drp("AplicaCaducidad"))
+                'activa Serie
+                ThSerie.Visible = AplicaSerie
+                TrSerie.Visible = AplicaSerie
+
+                'activa seccion
+                ThSeccion.Visible = AplicaSeccion
+                TrSeccion.Visible = AplicaSeccion
+
+                'activa lote
+                ThLote.Visible = AplicaLote
+                TrLote.Visible = AplicaLote
+
+                'activa caducidad
+                ThCaducidad.Visible = AplicaCaducidad
+                TrCaducidad.Visible = AplicaCaducidad
+
+            Else
+                TxtSerie.Visible = False
+            End If
+            UpDatos.Update()
+        End If
+    End Sub
+#End Region