CARGA DE TRABAJO 1 Y 2

Inventarios/EntregaAlmacen.aspx.vb

@@ -245,6 +245,15 @@ Partial Class Inventarios_EntregaAlmacen
         End Set
     End Property
 
+    Private Property FormaPaqueteria As Integer
+        Get
+            Return CType(ViewState("FormaPaqueteria"), Integer)
+        End Get
+        Set(value As Integer)
+            ViewState("FormaPaqueteria") = value
+        End Set
+    End Property
+
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
@@ -322,7 +331,6 @@ Partial Class Inventarios_EntregaAlmacen
         CreaDtDetalleLote()
         CargaPendientes()
 
-
         LimpiaCampos()
     End Sub
 
@@ -614,6 +622,21 @@ Partial Class Inventarios_EntregaAlmacen
                         DtDatos.Columns.Add("CantidadSeleccionada", GetType(Double))
                     End If
 
+                    If UsuarioActual.Empresa.Funcionalidad(280) = "1" Then
+                        FormaPaqueteria = DtDatos.Rows(0)("FormaPaqueteria").ToString.ToEntero
+                        Dim FormaPaq As Integer = FormaPaqueteria
+                        Select Case FormaPaq
+                            Case 1
+                                RbSinEntrega.Checked = True
+                            Case 2
+                                RbEntregaInterna.Checked = True
+                                LnkPaqueteriaDetalle.Visible = True
+                                DdlEstatus.SelectedValue = "5"
+                            Case 3
+                                RbEntregaExterna.Checked = True
+                                LnkPaqueteriaDetalle.Visible = True
+                        End Select
+                    End If
 
                     'TxtFecha.Text = If(EsDevolucionVenta = 1, Now.ToShortDateString, DtDatos.Rows(0)("Fecha").ToString)
                 End If
@@ -2143,8 +2166,8 @@ Partial Class Inventarios_EntregaAlmacen
                                     ValorMultiplicador = -1
                                 ElseIf TipoMovimiento = 2 AndAlso TipoDocto.Contiene({"Dev"}) And (EsDevolucionVenta = 1) Then
                                     ValorMultiplicador = 1
-                                End If
-
+                                End If
+
                                 Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inventario/RecepcionEntrega", 4, TotalCosto, TotalCosto, 1, Fecha, ClienteNombre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
                                 'Se agrega movimiento separado por la cuenta de ventas (ER)
 
@@ -3288,12 +3311,13 @@ Partial Class Inventarios_EntregaAlmacen
     Protected Sub EntregaRadioGroup_Click(sender As Object, e As EventArgs)
         If RbEntregaExterna.Checked Then
             RegistraScript("AbrirVentana('/General/PopUpPaqueteriasGuias.aspx',800,547,'N')")
+            LnkPaqueteriaDetalle.Visible = False
         ElseIf RbEntregaInterna.Checked Then
-            RegistraScript("$('#ModalPaqueteriaInterna').modal('show')")
-            'RegistraScript($"AbrirVentana('/General/PopUpPaqueteriasGuiasInternas.aspx?CveVenta={CveVentaSurtir}&CveSubProyecto={CveSubProyecto}',800,547,'N')")
-            'CveVentaSurtir
+            LnkPaqueteriaDetalle.Visible = True
+            'RegistraScript("$('#ModalPaqueteriaInterna').modal('show')")
         ElseIf RbSinEntrega.Checked Then
             LimpiaCampos()
+            LnkPaqueteriaDetalle.Visible = False
         End If
     End Sub
 
@@ -3304,8 +3328,17 @@ Partial Class Inventarios_EntregaAlmacen
         TxtNoCajas.Text = ""
         TxtObservacionesPaqInterna.Text = ""
         UpPaqInterna.Update()
-    End Sub
+    End Sub
+
+    Protected Sub PaqueteriaDetalle_Click(sender As Object, e As EventArgs)
+        If RbEntregaExterna.Checked Then
+            RegistraScript("AbrirVentana('/General/PopUpPaqueteriasGuias.aspx',800,547,'N')")
+        ElseIf RbEntregaInterna.Checked Then
+            RegistraScript("$('#ModalPaqueteriaInterna').modal('show')")
+        End If
+    End Sub
+
 #End Region
-
-
+
+
 End Class