- Serie,Lote, Caducidad Seccion Almacen

Ventas/ProductosServicios.aspx.vb

@@ -146,7 +146,7 @@ Partial Class ProductosyServicios
 
                 CargarAlias()
                 CargaExistencias()
-                CargaGvSeccionAlmacen()
+
             Else
                 'Configuración de Modalidad Insert
                 RegistraScript("$('#C_Tab_TabPaquetes_tab').css('display' , 'none')")
@@ -286,7 +286,7 @@ Partial Class ProductosyServicios
         CveSATPS = -1
 
         CargaCombosSeccionAlmacen()
-        DivSeccionAlmacen.Visible = UsuarioActual.Empresa.Funcionalidad(563).ToString = "1"
+
         CreaDtSeccionAlmacen()
 
         If UsuarioActual.Empresa.UsaContabilidad Then
@@ -863,6 +863,16 @@ Partial Class ProductosyServicios
 
                 ViewState("CveSubFamilia") = ObjProductosServicios.DtResultados.Rows(0)("CveSubFamilia")
 
+                ChkSerie.Checked = ObjProductosServicios.AplicaSerie
+                ChkLote.Checked = ObjProductosServicios.AplicaLote
+                ChkCaducidad.Checked = ObjProductosServicios.AplicaCaducidad
+                ChkSeccion.Checked = ObjProductosServicios.AplicaSeccion
+
+                If ObjProductosServicios.AplicaSeccion Then
+                    CargaGvSeccionAlmacen()
+                    DivSeccionAlmacen.Visible = True
+                End If
+
                 CargaCaracteristicas()
 
                 LnkUnificar.Visible = True
@@ -1208,7 +1218,8 @@ Partial Class ProductosyServicios
                                               CveUsuarioModifico:=UsuarioActual.CveUsuario, CveClasificacionDetalle:=DdlTipoPSDes.SelectedValue.ToEntero, CveTamaño:=DdlTamanio.SelectedValue.ToEntero,
                                               CveModelo:=DdlModelo.SelectedValue.ToEntero(), CveMedida:=DdlMedida.SelectedValue.ToEntero(), CveRinTamaño:=DdlRin.SelectedValue.ToEntero(),
                                               ClaveImpuestoEmpaque:=DdlImpEmpaque.SelectedValue.ToString, ClaveImpuestoUM:=DdlImpUM.SelectedValue.ToString, ClaveCategoriaToxicidad:=DdlCategoriaToxicidad.SelectedValue.ToString,
-                                              ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString, EsOutSourcing:=ChkEsOutSourcing.Checked) Then
+                                              ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString, EsOutSourcing:=ChkEsOutSourcing.Checked,
+                                              AplicaSerie:=ChkSerie.Checked, AplicaLote:=ChkLote.Checked, AplicaCaducidad:=ChkCaducidad.Checked, AplicaSeccion:=ChkSeccion.Checked) Then
 
                 If Not ObjProductosServicios.LimpiaImpuestosLocales(CvePS) Then
                     TieneError = True
@@ -2530,9 +2541,10 @@ Partial Class ProductosyServicios
     End Sub
     Private Sub CargaGvSeccionAlmacen()
         Dim ObjInv As New ClsInventarios
-        If ObjInv.GetProductosServiciosAlmacenSeccion(CvePS, -1, -1) Then
+        If ObjInv.GetProductosServiciosAlmacenSeccion(CvePS, -1, -1, UsuarioActual.CveEmpresa) Then
             GvSeccionAlmacen.DataSource = ObjInv.DtResultados
             DtSeccionAlmacen = ObjInv.DtResultados
+
         End If
         ObjInv.Dispose()
         GvSeccionAlmacen.DataBind()
@@ -2545,7 +2557,7 @@ Partial Class ProductosyServicios
         DdlAlmacen.Items.Add(New ListItem("Seleccione", "-1"))
         DdlAlmacen.DataBind()
 
-        DdlSeccionAlmacen.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1)
+        DdlSeccionAlmacen.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero)
         DdlSeccionAlmacen.Items.Add(New ListItem("Seleccione", "-1"))
         DdlSeccionAlmacen.DataBind()