agregar PS considerando las nuevas columnas

Inventarios/EntradasSalidas.aspx.vb

@@ -468,6 +468,12 @@ Partial Class Inventarios_EntradasSalidas
         DdlSeccionAlmacen.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1)
         DdlSeccionAlmacen.DataBind()
 
+        DdlSeccionAlmacenEntrada.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1)
+        DdlSeccionAlmacenEntrada.DataBind()
+
+        DdlSeccionAlmacenSalida.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1)
+        DdlSeccionAlmacenSalida.DataBind()
+
         'Llenar el dropdownlist de monedas
         DdlMoneda.DataSource = GlobalDTMonedas
         DdlMoneda.DataBind()
@@ -3472,6 +3478,11 @@ Partial Class Inventarios_EntradasSalidas
             Dim CodigoPS As String = ""
             Dim PS As String = ""
 
+            Dim CveSeccionAlmacen As Integer = DdlSeccionAlmacenEntrada.SelectedValue.ToEntero
+            Dim Serie As String = If(TxtSerieEntrada.Text = "", "-1", TxtSerieEntrada.Text)
+            Dim Lote As String = If(TxtLoteEntrada.Text = "", "-1", TxtLoteEntrada.Text)
+            Dim Caducidad As String = If(TxtCaducidadEntrada.Text = "", "-1", TxtCaducidadEntrada.Text)
+
             Dim dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS).FiltroPrimero("", "PS")
             If dr IsNot Nothing Then
                 CveClasificacion = dr("CveClasificacion").ToString.ToEntero
@@ -3490,6 +3501,10 @@ Partial Class Inventarios_EntradasSalidas
             registro.Item("Total") = Cantidad * CostoPromedio
             registro.Item("CveClasificacion") = CveClasificacion
             registro.Item("Estatus") = ""
+            registro.Item("CveSeccionAlmacen") = CveSeccionAlmacen
+            registro.Item("Serie") = Serie
+            registro.Item("Lote") = Lote
+            registro.Item("FechaCaducidad") = Caducidad
 
             DtMovimientosEntradaInvFisico.Rows.Add(registro)
             CargaGvEntradas(DtMovimientosEntradaInvFisico)
@@ -3500,6 +3515,7 @@ Partial Class Inventarios_EntradasSalidas
     Private Sub CargaGvEntradas(DtTemp As DataTable)
         GvEntradas.DataSource = DtTemp
         GvEntradas.DataBind()
+        UpEntradasGv.Update()
     End Sub
 
     Protected Sub DdlPSInvFisico_ValueChanged(sender As Object, e As EventArgs) Handles DdlPS.selectedindexchange
@@ -3568,6 +3584,11 @@ Partial Class Inventarios_EntradasSalidas
             Dim CodigoPS As String = ""
             Dim PS As String = ""
 
+            Dim CveSeccionAlmacen As Integer = DdlSeccionAlmacenSalida.SelectedValue.ToEntero
+            Dim Serie As String = If(TxtSerieSalida.Text = "", "-1", TxtSerieSalida.Text)
+            Dim Lote As String = If(TxtLoteSalida.Text = "", "-1", TxtLoteSalida.Text)
+            Dim Caducidad As String = If(TxtCaducidadSalida.Text = "", "-1", TxtCaducidadSalida.Text)
+
             Dim dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS).FiltroPrimero("", "PS")
             If dr IsNot Nothing Then
                 CveClasificacion = dr("CveClasificacion").ToString.ToEntero
@@ -3586,6 +3607,10 @@ Partial Class Inventarios_EntradasSalidas
             registro.Item("Total") = 0
             registro.Item("CveClasificacion") = CveClasificacion
             registro.Item("Estatus") = ""
+            registro.Item("CveSeccionAlmacen") = CveSeccionAlmacen
+            registro.Item("Serie") = Serie
+            registro.Item("Lote") = Lote
+            registro.Item("FechaCaducidad") = Caducidad
 
             DtMovimientosSalidaInvFisico.Rows.Add(registro)
             CargaGvSalidas(DtMovimientosSalidaInvFisico)
@@ -3596,6 +3621,7 @@ Partial Class Inventarios_EntradasSalidas
     Private Sub CargaGvSalidas(DtTemp As DataTable)
         GvSalidas.DataSource = DtTemp
         GvSalidas.DataBind()
+        UpSalidaGv.Update()
     End Sub
 
     Protected Sub DeleteRowInvFisicoSalida(ByVal sender As Object, ByVal e As EventArgs)
@@ -3680,7 +3706,9 @@ Partial Class Inventarios_EntradasSalidas
         'VALIDA EXISTENCIAS SALIDA E INSERTA DETALLES
         For Each Dr As DataRow In DtMovimientosSalidaInvFisico.Rows
             If ObjInventario.GetExistenciasPS(Dr("CvePS").ToString.ToEntero, Dr("CveUM").ToString.ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenInventarioFisico.SelectedValue.ToEntero) >= Dr("Cantidad").ToString.ToDouble Then
-                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, -1) Then
+                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero,
+                                                          Dr("PU").ToString.ToDecimal, -1, CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString.ToEntero, Serie:=Dr("Serie").ToString,
+                                                          Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate) Then
                     Mensaje = "Ocurrió un error al guardar los movimientos de salida"
                     ErrorMovInv = True
                     Exit For
@@ -3696,7 +3724,9 @@ Partial Class Inventarios_EntradasSalidas
         If Not ErrorMovInv Then
             For Each Dr As DataRow In DtMovimientosEntradaInvFisico.Rows
                 ImporteConcepto = Dr("PU").ToString.ToDecimal
-                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, ImporteConcepto, -1) Then
+                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero,
+                                                          ImporteConcepto, -1, CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString.ToEntero, Serie:=Dr("Serie").ToString,
+                                                          Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate) Then
                     Mensaje = "Ocurrió un error al guardar los movimientos de entrada"
                     ErrorMovInv = True
                     Exit For
@@ -3836,6 +3866,75 @@ Partial Class Inventarios_EntradasSalidas
 #End Region
 
 
+#Region "Inventario Fisico"
+    Private Sub DdlPS_Change(sender As Object, e As EventArgs) Handles DdlPS.selectedindexchange
+        If DdlPS.SelectedValue.ToEntero > 0 Then
+            Dim drp As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPS.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
+                ThSerieEntrada.Visible = AplicaSerie
+                TrSerieEntrada.Visible = AplicaSerie
+                TxtnSerie.Visible = AplicaSerie
+
+                'activa seccion
+                ThSeccionEntrada.Visible = AplicaSeccion
+                TrSeccionEntrada.Visible = AplicaSeccion
+
+                'activa lote
+                ThLoteEntrada.Visible = AplicaLote
+                TrLoteEntrada.Visible = AplicaLote
+
+                'activa caducidad
+                ThCaducidadEntrada.Visible = AplicaCaducidad
+                TrCaducidadEntrada.Visible = AplicaCaducidad
+
+            Else
+                TxtnSerie.Visible = False
+            End If
+            UpEntradaFisico.Update()
+        End If
+    End Sub
+
+    Private Sub DdlPSSalida_Change(sender As Object, e As EventArgs) Handles DdlPSSalida.selectedindexchange
+        If DdlPSSalida.SelectedValue.ToEntero > 0 Then
+            Dim drp As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPSSalida.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
+                ThSerieSalida.Visible = AplicaSerie
+                TrSerieSalida.Visible = AplicaSerie
+                TxtnSerie.Visible = AplicaSerie
+
+                'activa seccion
+                ThSeccionSalida.Visible = AplicaSeccion
+                TrSeccionSalida.Visible = AplicaSeccion
+
+                'activa lote
+                ThLoteSalida.Visible = AplicaLote
+                TrLoteSalida.Visible = AplicaLote
+
+                'activa caducidad
+                ThCaducidadSalida.Visible = AplicaCaducidad
+                TrCaducidadSalida.Visible = AplicaCaducidad
+
+            Else
+                TxtnSerie.Visible = False
+            End If
+            UpSalidaFisico.Update()
+        End If
+    End Sub
+#End Region
+
+
     Private Sub GuardarBitacora(CveVenta As Integer, RutaAdjunto As String, Obser As String)
         Dim ObjEventos As New ClsOIEventos()