-- mejoras recolecciones

Inventarios/EntradasSalidas.aspx.vb

@@ -295,9 +295,6 @@ Partial Class Inventarios_EntradasSalidas
 
         If Not IsPostBack Then
 
-
-
-
             If UsuarioActual.CveUsuario = 100 AndAlso IfNull(Request("Regenera"), "").ToString = "1" Then
                 RegeneraRM(Request("CveMovimiento").ToString.ToEntero, 119)
                 Exit Sub
@@ -337,7 +334,6 @@ Partial Class Inventarios_EntradasSalidas
                     divGuia.Visible = True
             End Select
 
-
             If Request("CveMovimiento") IsNot Nothing AndAlso Request("CveMovimiento").ToString.ToEntero > 0 Then
                 If UsuarioActual.CveRol = 1 AndAlso UsuarioActual.CveEmpresa = 140 Then
                     LnkGenerarVirtual.Visible = True
@@ -371,6 +367,11 @@ Partial Class Inventarios_EntradasSalidas
                 ActivaConsumoInterno()
             End If
 
+            If Request("CveEntregaAlmacen") IsNot Nothing AndAlso Request("CveEntregaAlmacen").ToString.ToEntero > 0 Then
+                CargaDatosEntregaAlmacen(Request("CveEntregaAlmacen").ToString.ToEntero)
+            End If
+
+
             'BLOQUEA PERMISOS
             BtnGuardar.Enabled = PermiteGuardar()
             BtnEliminar.Enabled = PermiteEliminar()
@@ -549,16 +550,13 @@ Partial Class Inventarios_EntradasSalidas
 
 
         'Llenar el dropdownlist de almacén
-        If Not IfNull(Request("CI"), -1).ToString.ToEntero > 0 Then
+        If Not IfNull(Request("CI"), -1).ToString.ToEntero > 0 AndAlso Not IfNull(Request("CveEntregaAlmacen"), -1).ToString.ToEntero > 0 Then
             DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (9,11)") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa)
             'ElseIf UsuarioActual.CveUsuario.Contiene(1) Then
             '    DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (9,11) or CveAlmacen = 651e") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa)
 
-
         End If
 
-
-
         DdlAlmacenInventarioFisico.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (9,11)") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa)
         DdlAlmacenCambioVigencias.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (9,11)")
 
@@ -574,7 +572,7 @@ Partial Class Inventarios_EntradasSalidas
         DdlAlmacenInventarioFisico.DataBind()
         DdlAlmacenCambioVigencias.DataBind()
 
-        If IsNothing(Request("CveMovimiento")) Then
+        If IsNothing(Request("CveMovimiento")) And IsNothing(Request("CveEntregaAlmacen")) Then
             DdlAlmacen.SelectedValueExist(UsuarioActual.CveAlmacen)
             DdlAlmacen_SelectedIndexChanged(DdlAlmacen, EventArgs.Empty)
         End If
@@ -660,8 +658,6 @@ Partial Class Inventarios_EntradasSalidas
             GvM.Columns(8).Visible = False
         End If
 
-
-
         If Mov.GetMovimientos(tCveMovimiento, pCveConcepto, pFolio, UsuarioActual.CveEmpresa) AndAlso Mov.DtResultados.Rows.Count = 1 Then
 
             CveMovimiento = Mov.CveMovimiento
@@ -672,7 +668,6 @@ Partial Class Inventarios_EntradasSalidas
             Folio = Mov.Folio
             Dim drM As DataRow = DtMov.Rows(0)
 
-
             If DtMov.Rows(0)("CveConcepto").ToString.ToEntero = 2 Then
                 HplTraspaso.Visible = True
                 HplTraspaso.NavigateUrl = $"/Inventarios/TraspasoAlmacen.aspx?CveEntrada={DtMov.Rows(0)("CveMovimiento").ToString}"
@@ -1048,6 +1043,32 @@ Partial Class Inventarios_EntradasSalidas
 
     End Sub
 
+
+    Private Sub CargaDatosEntregaAlmacen(CveEntregaAlmacen As Integer)
+        'RECARGA ALMACENES SOLO DE recepcion de usados
+        DdlAlmacen.Items.Clear()
+        DdlAlmacen.DataBind()
+        Dim dttA As DataTable = Nothing
+        dttA = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen IN (1,22,27)")
+
+        DdlAlmacen.DataSource = dttA
+        DdlAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        DdlAlmacen.DataBind()
+        DdlAlmacen.SelectedIndex = 1 'toma el primer renglón
+
+        Dim ObjGenerales As New ClsGenerales()
+
+        If (ObjGenerales.GetEntregaAlmacenRutaDetalle(CveEntregaAlmacen)) Then
+
+            For Each dr As DataRow In ObjGenerales.DtResultados.Rows
+                AddNew(dr("CvePS").ToString.ToEntero, dr("CodigoPS").ToString, dr("CveUnidadMedida").ToString.ToEntero, dr("Abreviatura").ToString, dr("Cantidad").ToString.ToDecimal,
+                0, "", "", "", "", "E", "", MinFecha, 0, "")
+            Next
+        End If
+        ObjGenerales.Dispose()
+    End Sub
+
+
     Private Sub BloqueaEdicionEncabezado()
 
 
@@ -1923,7 +1944,7 @@ Partial Class Inventarios_EntradasSalidas
 
                             If Not ErrorAC And Not ErrorMovInv Then
                                 Dim Msg As New StringBuilder
-                                Msg.AppendFormat("<br/>El Movimiento se registro con el Folio: <b>{0}</b>", ObjInventario.Folio)
+                                Msg.AppendFormat("<br/>El Movimiento se registro con el Folio: <b><a href='/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}'>{0}</a></b>", ObjInventario.Folio, ObjInventario.CveMovimiento)
                                 Msg.AppendFormat("<br/><br/> <a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Movimiento</a> ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimiento)))
 
                                 If RetornoVirtual IsNot Nothing Then