-cambios en validacion de uso de Secciones Almacen, Serie,Lote, Caducidad

Inventarios/Apartados.aspx.vb

@@ -136,8 +136,7 @@ Partial Class Inventarios_Apartados
         CantidadTotal = 0
         IndexSeccionAlmacen = 0
         CvePS = 0
-        CreaDtSeccionAlmacen()
-        CargaDdlAlmacen()
+
         TipoSeccionAlmacen = 0
 
         GvDatos.Columns(5).Visible = UsuarioActual.Empresa.Funcionalidad(563) = "1"
@@ -166,9 +165,20 @@ Partial Class Inventarios_Apartados
 
         CargaPS()
 
-        DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
-        DdlCliente.DataBind()
-        DdlCliente.Items.Insert(0, New ListItem(" Seleccione ", "-1"))
+        Dim EsWS = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
+        If EsWS Then
+            DdlClientes.setEsWebService(True)
+        Else
+            DdlClientes.setEsWebService(False)
+            DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
+            DdlClientes.DataBind()
+            DdlClientes.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
+        End If
+
+
+        'DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
+        'DdlCliente.DataBind()
+        'DdlCliente.Items.Insert(0, New ListItem(" Seleccione ", "-1"))
 
         DdlClienteDesapartado.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
         DdlClienteDesapartado.DataBind()
@@ -255,7 +265,7 @@ Partial Class Inventarios_Apartados
         TxtnSerieLote.Visible = False
 
         If DdlProducto2.SelectedValue.ToEntero > 0 Then
-            If GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlProducto2.SelectedValue.ToEntero).FiltraParametros("Inv_CveMetodoInventario = 5 ", "PSCodigo").Rows.Count > 0 Then
+            If GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlProducto2.SelectedValue.ToEntero).FiltraParametros("Inv_CveMetodoInventario = 5 OR AplicaSerie = 1 ", "PSCodigo").Rows.Count > 0 Then
                 ThSerieLote.Visible = True
                 TdSerieLote.Visible = True
                 TxtnSerieLote.Visible = True
@@ -269,9 +279,7 @@ Partial Class Inventarios_Apartados
         UpDatos.Update()
 
     End Sub
-    Private Function isWhitFamily() As Boolean
-        Return (UsuarioActual.CveEmpresa = 66)
-    End Function
+
     Protected Sub DdlClasificacion_GV(sender As Object, e As System.EventArgs)
         Dim pDdlClasificacion As DropDownList = CType(sender, DropDownList)
         Dim pDdlProducto As DropDownList = CType(pDdlClasificacion.NamingContainer.FindControl("DdlProducto"), DropDownList)
@@ -345,7 +353,7 @@ Partial Class Inventarios_Apartados
     End Sub
     Private Sub SeleccionaVendedor()
         DdlVendedor.SelectedValue = "-1"
-        DdlVendedor.SelectedValueExist(GlobalDTCliente(UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("CveVendedor", $"CveCliente = {DdlCliente.SelectedValue}"))
+        DdlVendedor.SelectedValueExist(GlobalDTCliente(UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("CveVendedor", $"CveCliente = {DdlClientes.SelectedValue}"))
     End Sub
 #End Region
 
@@ -650,7 +658,7 @@ Partial Class Inventarios_Apartados
 
         'AGREGAMOS LA SALIDA DEL ALMACEN ORIGEN
         CveMovimientoSalida = ObjInventario.AddMovimiento(DdlAlmacenOrigen.SelectedValue.ToEntero, 8, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1,
-                                                          Observaciones:=TxtObservaciones.Text.Trim, Recibio:="", CveAlmacenDestino:=DdlAlmacenDestino.SelectedValue.ToEntero, CveCliente:=DdlCliente.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero)
+                                                          Observaciones:=TxtObservaciones.Text.Trim, Recibio:="", CveAlmacenDestino:=DdlAlmacenDestino.SelectedValue.ToEntero, CveCliente:=DdlClientes.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero)
         FolioSalida = ObjInventario.Folio
         Dim Cont As Integer = 0
         If CveMovimientoSalida <= 0 Then
@@ -662,16 +670,7 @@ Partial Class Inventarios_Apartados
                     ErrorMovInv = True
                     TextoError = "Ocurrió un error al guardar los movimientos de salida"
                     Exit For
-                Else
-                    If ObjInventario.CveMovimientoDetalle > 0 AndAlso DtSeccionAlmacen.Rows.Count > 0 Then
-                        For Each Dr2 As DataRow In DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {Cont} AND TipoSeccionAlmacen = 1").Rows
-                            If Not ObjInventario.AddMovimientosDetalleSeccionesAlmacen(ObjInventario.CveMovimientoDetalle, Dr2("CveSeccionAlmacenOrigen").ToString.ToEntero, -Dr2("CantidadSeccionAlmacen").ToString.ToDecimal) Then
-                                ErrorMovInv = True
-                                TextoError = "Ocurrió un error al procesar las secciones de almacen. Por favor vuelva a intentar."
-                                Exit For
-                            End If
-                        Next
-                    End If
+
                 End If
                 Cont += 1
             Next
@@ -683,7 +682,7 @@ Partial Class Inventarios_Apartados
             AlmacenEntrada = DdlAlmacenDestino.SelectedValue.ToEntero
             CveMovimientoEntrada = ObjInventario.AddMovimiento(AlmacenEntrada, 9, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, -1, -1,
                                                                Observaciones:=TxtObservaciones.Text.Trim, Recibio:="-1",
-                                                               CveAlmacenDestino:=-1, CveMovimientoRelacionado:=CveMovimientoSalida, CveCliente:=DdlCliente.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero)
+                                                               CveAlmacenDestino:=-1, CveMovimientoRelacionado:=CveMovimientoSalida, CveCliente:=DdlClientes.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero)
             FolioEntrada = ObjInventario.Folio
             If CveMovimientoEntrada <= 0 Then
                 TextoError = "No se pudo generar el movimiento de entrada correctamente"
@@ -691,20 +690,11 @@ Partial Class Inventarios_Apartados
             Else
                 If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
                     For Each Dr As DataRow In ObjInventario.DtResultados.Rows
-                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, -1, Dr("SerieLote").ToString) Then
+                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, -1, Dr("SerieLote").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero) Then
                             ErrorMovInv = True
                             TextoError = "Ocurrió un error al guardar los movimientos de entrada"
                             Exit For
-                        Else
-                            If ObjInventario.CveMovimientoDetalle > 0 AndAlso DtSeccionAlmacen.Rows.Count > 0 Then
-                                For Each Dr2 As DataRow In DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {Cont} AND TipoSeccionAlmacen = 1").Rows
-                                    If Not ObjInventario.AddMovimientosDetalleSeccionesAlmacen(ObjInventario.CveMovimientoDetalle, Dr2("CveSeccionAlmacenDestino").ToString.ToEntero, Dr2("CantidadSeccionAlmacen").ToString.ToDecimal) Then
-                                        ErrorMovInv = True
-                                        TextoError = "Ocurrió un error al procesar las secciones de almacen. Por favor vuelva a intentar."
-                                        Exit For
-                                    End If
-                                Next
-                            End If
+
                         End If
                         Cont += 1
                     Next
@@ -754,7 +744,7 @@ Partial Class Inventarios_Apartados
         DdlSubProyecto.SelectedValue = "-1"
         CargaAlmacenes()
 
-        DdlCliente.SelectedValue = "-1"
+        DdlClientes.SelectedValue = "-1"
         SeleccionaVendedor()
 
         CargadoDeMov = False
@@ -910,16 +900,6 @@ Partial Class Inventarios_Apartados
                         ErrorMovInv = True
                         TextoError = "Ocurrió un error al guardar los movimientos de salida"
                         Exit For
-                    Else
-                        If ObjInventario.CveMovimientoDetalle > 0 AndAlso DtSeccionAlmacen.Rows.Count > 0 Then
-                            For Each Dr2 As DataRow In DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {Cont} AND TipoSeccionAlmacen = 2").Rows
-                                If Not ObjInventario.AddMovimientosDetalleSeccionesAlmacen(ObjInventario.CveMovimientoDetalle, Dr2("CveSeccionAlmacenOrigen").ToString.ToEntero, -Dr2("CantidadSeccionAlmacen").ToString.ToDecimal) Then
-                                    ErrorMovInv = True
-                                    TextoError = "Ocurrió un error al procesar las secciones de almacen. Por favor vuelva a intentar."
-                                    Exit For
-                                End If
-                            Next
-                        End If
                     End If
                 End If
                 Cont += 1
@@ -938,20 +918,10 @@ Partial Class Inventarios_Apartados
             Else
                 If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
                     For Each Dr As DataRow In ObjInventario.DtResultados.Rows
-                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, -1, Dr("SerieLote").ToString) Then
+                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, -1, Dr("SerieLote").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero) Then
                             ErrorMovInv = True
                             TextoError = "Ocurrió un error al guardar los movimientos de entrada"
                             Exit For
-                        Else
-                            If ObjInventario.CveMovimientoDetalle > 0 AndAlso DtSeccionAlmacen.Rows.Count > 0 Then
-                                For Each Dr2 As DataRow In DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {Cont} AND TipoSeccionAlmacen = 2").Rows
-                                    If Not ObjInventario.AddMovimientosDetalleSeccionesAlmacen(ObjInventario.CveMovimientoDetalle, Dr2("CveSeccionAlmacenDestino").ToString.ToEntero, Dr2("CantidadSeccionAlmacen").ToString.ToDecimal) Then
-                                        ErrorMovInv = True
-                                        TextoError = "Ocurrió un error al procesar las secciones de almacen. Por favor vuelva a intentar."
-                                        Exit For
-                                    End If
-                                Next
-                            End If
                         End If
                         Cont += 1
                     Next
@@ -989,203 +959,6 @@ Partial Class Inventarios_Apartados
 
 #End Region
 
-#Region "SECCION ALMACEN"
-    Private Sub CreaDtSeccionAlmacen()
-        DtSeccionAlmacen = New DataTable
-        DtSeccionAlmacen.Columns.Add("CantidadSeccionAlmacen", GetType(Decimal))
-        DtSeccionAlmacen.Columns.Add("IndexSeccionAlmacen", GetType(Integer))
-        DtSeccionAlmacen.Columns.Add("CveSeccionAlmacenOrigen", GetType(Integer))
-        DtSeccionAlmacen.Columns.Add("CveSeccionAlmacenDestino", GetType(Integer))
-        DtSeccionAlmacen.Columns.Add("CvePS", GetType(Integer))
-        DtSeccionAlmacen.Columns.Add("SeccionAlmacenOrigen", GetType(String))
-        DtSeccionAlmacen.Columns.Add("SeccionAlmacenDestino", GetType(String))
-        DtSeccionAlmacen.Columns.Add("Consec", GetType(Integer))
-        DtSeccionAlmacen.Columns.Add("TipoSeccionAlmacen", GetType(Integer))
-    End Sub
-    Private Sub CargaDdlAlmacen()
-        DdlSeccionAlmacenOrigen.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa)
-        DdlSeccionAlmacenOrigen.Items.Insert(0, New ListItem("Seleccione", "-1"))
-        DdlSeccionAlmacenOrigen.DataBind()
-
-        DdlSeccionAlmacenDestino.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa)
-        DdlSeccionAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1"))
-        DdlSeccionAlmacenDestino.DataBind()
-    End Sub
-    Protected Sub LnkSeccionAlmacen_Click(sender As Object, e As EventArgs)
-        Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
-
-        If Not DdlAlmacenOrigen.SelectedValue.ToEntero > 0 Then
-            Alert("Tiene que tener seleccionado un almacen para registrar seccion almacen origen.", TipoMensaje.MsgAdvertencia)
-            Exit Sub
-        End If
-
-        'If Not DdlAlmacenDestino.SelectedValue.ToEntero > 0 AndAlso Not ChkTransitorio.Checked Then
-        '    Alert("Tiene que tener seleccionado un almacen para registrar seccion almacen destino.", TipoMensaje.MsgAdvertencia)
-        '    Exit Sub
-        'End If
-
-        GvSeccion.Columns(2).Visible = True
-        DivSeccionAlmacenDestino.Visible = True
-
-        DivSeccionAlmacenOrigen.Visible = True
-        GvSeccion.Columns(1).Visible = True
-
-        CantidadTotal = gvRow.DataKey("Cantidad").ToDecimal
-        IndexSeccionAlmacen = gvRow.RowIndex
-        CvePS = gvRow.DataKey("CvePS").ToEntero
-        TipoSeccionAlmacen = 1
-        CargaSeccionAlmacen()
-        RegistraScript("$('#DModalSeccionAlmacen').modal()")
-    End Sub
-
-    Protected Sub LnkSeccionAlmacenDestino_Click(sender As Object, e As EventArgs)
-        Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
-
-        Dim CveAlmacenApartado = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"CveTipoAlmacen IN (9) AND Estatus = 'Activo' And CveSubProyecto = {DdlSubProyectoDesapartado.SelectedValue.ToEntero}").ToEntero
-        If Not CveAlmacenApartado > 0 Then
-            Alert("Tiene que tener seleccionado un almacen para registrar seccion almacen destino.", TipoMensaje.MsgAdvertencia)
-            Exit Sub
-        End If
-
-        DivSeccionAlmacenOrigen.Visible = True
-        DivSeccionAlmacenDestino.Visible = True
-        GvSeccion.Columns(1).Visible = True
-        GvSeccion.Columns(2).Visible = True
-
-        CantidadTotal = gvRow.FCTextBox("TxtCantidad").Text.ToDecimal
-        IndexSeccionAlmacen = gvRow.RowIndex
-        CvePS = gvRow.DataKey("CvePS").ToEntero
-        TipoSeccionAlmacen = 2
-        CargaSeccionAlmacen()
-        RegistraScript("$('#DModalSeccionAlmacen').modal()")
-
-    End Sub
-
-    Private Sub CargaSeccionAlmacen()
-        Dim CantidadTotalSeccion As Decimal = DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {IndexSeccionAlmacen} AND TipoSeccionAlmacen = {TipoSeccionAlmacen}").SUMD("CantidadSeccionAlmacen")
-        GvSeccion.DataSource = DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {IndexSeccionAlmacen}  AND TipoSeccionAlmacen = {TipoSeccionAlmacen}")
-        GvSeccion.DataBind()
-
-        TxtCantidadSeccion.Text = ""
-        DdlSeccionAlmacenOrigen.SelectedIndex = 0
-        DdlSeccionAlmacenDestino.SelectedIndex = 0
-        Dim CantidadRestante As Decimal = CantidadTotal - CantidadTotalSeccion
-        If CantidadRestante = 0 Then
-            RVTxtCantidad.MaximumValue = "1"
-            TxtCantidadSeccion.Enabled = False
-        Else
-            RVTxtCantidad.MaximumValue = CantidadRestante.ToString
-            TxtCantidadSeccion.Enabled = True
-        End If
-
-        If TipoSeccionAlmacen = 1 Then
-            If CantidadTotalSeccion > 0 Then
-                GvDatos.Rows(IndexSeccionAlmacen).FCLinkButton("lnkRemove").Visible = False
-                GvDatos.Rows(IndexSeccionAlmacen).FCLinkButton("lnkRemove").ToolTip = "Cuenta con sección almacen"
-            Else
-                GvDatos.Rows(IndexSeccionAlmacen).FCLinkButton("lnkRemove").Visible = True
-                GvDatos.Rows(IndexSeccionAlmacen).FCLinkButton("lnkRemove").ToolTip = ""
-            End If
-            If DtSeccionAlmacen.SUMD("CantidadSeccionAlmacen") > 0 Then
-                DdlAlmacenOrigen.Enabled = False
-                DdlAlmacenOrigen.ToolTip = "Cuenta con sección almacen"
-            Else
-                DdlAlmacenOrigen.Enabled = True
-                DdlAlmacenOrigen.ToolTip = ""
-            End If
-            UpDatos.Update()
-        ElseIf TipoSeccionAlmacen = 2 Then
-            If CantidadTotalSeccion > 0 Then
-                GvDatosDesapartado.Rows(IndexSeccionAlmacen).FCTextBox("TxtCantidad").Enabled = False
-                GvDatosDesapartado.Rows(IndexSeccionAlmacen).FCTextBox("TxtCantidad").ToolTip = "Cuenta con sección almacen"
-            Else
-                GvDatosDesapartado.Rows(IndexSeccionAlmacen).FCTextBox("TxtCantidad").Enabled = True
-                GvDatosDesapartado.Rows(IndexSeccionAlmacen).FCTextBox("TxtCantidad").ToolTip = ""
-            End If
-
-            UpDatosDesapartado.Update()
-        End If
-
-        UpModalSeccionAlmacen.Update()
-    End Sub
-
-    Protected Sub LnkAddSeccionAlmacen_Click(sender As Object, e As EventArgs)
-        Dim CveAlmacenApartado As Integer = 0
-        If TipoSeccionAlmacen = 2 Then
-            CveAlmacenApartado = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"CveTipoAlmacen IN (9) AND Estatus = 'Activo' And CveSubProyecto = {DdlSubProyectoDesapartado.SelectedValue.ToEntero}").ToEntero
-        End If
-        Dim ObjInv As New ClsInventarios
-        Dim CantidadDisponible As Decimal = 0
-        If ObjInv.GetMovimientosDetalleSeccionesAlmacen(DdlSeccionAlmacenOrigen.SelectedValue.ToEntero, If(TipoSeccionAlmacen = 1, DdlAlmacenOrigen.SelectedValue.ToEntero, CveAlmacenApartado),
-                                                        CvePS, UsuarioActual.CveEmpresa) Then
-            If ObjInv.DtResultados.Rows.Count > 0 Then
-                CantidadDisponible = ObjInv.DtResultados.Rows(0)("CantidadRestante").ToString.ToDecimal
-            End If
-        End If
-        ObjInv.Dispose()
-
-        CantidadDisponible -= DtSeccionAlmacen.FiltraParametros($"CvePS = {CvePS} AND CveSeccionAlmacenOrigen = {DdlSeccionAlmacenOrigen.SelectedValue} AND TipoSeccionAlmacen = {TipoSeccionAlmacen}").SUMD("CantidadSeccionAlmacen")
-
-        If TxtCantidadSeccion.Text.ToDecimal > CantidadDisponible Then
-            Alert($"No tiene cantidad de producto suficiente en esta seccion de almacen, su cantidad restante es: <b>{CantidadDisponible}</b>", TipoMensaje.MsgAdvertencia)
-            Exit Sub
-        End If
-
-        Dim Row As DataRow = Nothing
-        DtSeccionAlmacen.AcceptChanges()
-        Row = DtSeccionAlmacen.NewRow
-        Row("CantidadSeccionAlmacen") = TxtCantidadSeccion.Text.ToDecimal
-        Row("IndexSeccionAlmacen") = IndexSeccionAlmacen
-        Row("CveSeccionAlmacenOrigen") = DdlSeccionAlmacenOrigen.SelectedValue.ToEntero
-        Row("SeccionAlmacenOrigen") = DdlSeccionAlmacenOrigen.SelectedItem.Text
-        Row("CveSeccionAlmacenDestino") = DdlSeccionAlmacenDestino.SelectedValue.ToEntero
-        Row("SeccionAlmacenDestino") = DdlSeccionAlmacenDestino.SelectedItem.Text
-        Row("CvePS") = CvePS
-        Row("Consec") = DtSeccionAlmacen.Rows.Count + 1
-        Row("TipoSeccionAlmacen") = TipoSeccionAlmacen
-        DtSeccionAlmacen.Rows.Add(Row)
-        DtSeccionAlmacen.AcceptChanges()
-        CargaSeccionAlmacen()
-    End Sub
-
-    Protected Sub LnkEliminarSeccion_Click(sender As Object, e As EventArgs)
-        Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
-        Dim Index As Integer = 0
-        For Each Dr As DataRow In DtSeccionAlmacen.Rows
-            If Dr("Consec").ToString.ToEntero = gvRow.DataKey("Consec").ToEntero() Then
-                Exit For
-            End If
-            Index += 1
-        Next
-        DtSeccionAlmacen.Rows.RemoveAt(Index)
-        DtSeccionAlmacen.AcceptChanges()
-        CargaSeccionAlmacen()
-    End Sub
-
-    'Protected Sub LnkVerSecciones_Click(sender As Object, e As EventArgs)
-    '    If Not CveVentaSurtir > 0 Then
-    '        Alert("Tiene que seleccionar la venta a surtir", TipoMensaje.MsgAdvertencia)
-    '        Exit Sub
-    '    End If
-
-    '    If Not DdlAlmacen.SelectedValue.ToEntero > 0 Then
-    '        Alert("Tiene que seleccionar el almacen", TipoMensaje.MsgAdvertencia)
-    '        Exit Sub
-    '    End If
-
-    '    Dim ObjInv As New ClsInventarios
-    '    If ObjInv.GetExistenciaSeccionAlmacen(CveVentaSurtir, DdlAlmacen.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
-    '        GvVerSeccionesAlmacen.DataSource = ObjInv.DtResultados
-    '    End If
-    '    ObjInv.Dispose()
-    '    GvVerSeccionesAlmacen.DataBind()
-    '    UpVerSeccionesAlmacen.Update()
-    '    RegistraScript("$('#ModalVerSeccionesAlmacen').modal()")
-    'End Sub
-
-#End Region
-
-