entrega interna ahora esta en modal en vez de pop up

Inventarios/EntregaAlmacen.aspx.vb

@@ -324,7 +324,7 @@ Partial Class Inventarios_EntregaAlmacen
         CargaPendientes()
 
 
-
+        LimpiaCampos()
     End Sub
 
 #End Region
@@ -2414,6 +2414,9 @@ Partial Class Inventarios_EntregaAlmacen
         End Try
 
         If Not ErrorMovInv Then
+            If RbEntregaInterna.Checked Then
+                AgregarNuevaGuia()
+            End If
             ObjInventario.Commit()
             RegistraScript("playsonidito('beep-07.wav')")
             Dim Msg As New StringBuilder
@@ -2669,6 +2672,9 @@ Partial Class Inventarios_EntregaAlmacen
 
 
         If Not ErrorMovInv Then
+            If RbEntregaInterna.Checked Then
+                AgregarNuevaGuia()
+            End If
             ObjInventario.Commit()
             RegistraScript("playsonidito('beep-07.wav')")
 
@@ -3112,11 +3118,53 @@ Partial Class Inventarios_EntregaAlmacen
         If RbEntregaExterna.Checked Then
             RegistraScript("AbrirVentana('/General/PopUpPaqueteriasGuias.aspx',800,547,'N')")
         ElseIf RbEntregaInterna.Checked Then
-            RegistraScript($"AbrirVentana('/General/PopUpPaqueteriasGuiasInternas.aspx?CveVenta={CveVentaSurtir}&CveSubProyecto={CveSubProyecto}',800,547,'N')")
+            RegistraScript("$('#ModalPaqueteriaInterna').modal('show')")
+            'RegistraScript($"AbrirVentana('/General/PopUpPaqueteriasGuiasInternas.aspx?CveVenta={CveVentaSurtir}&CveSubProyecto={CveSubProyecto}',800,547,'N')")
             'CveVentaSurtir
+        ElseIf RbSinEntrega.Checked Then
+            LimpiaCampos()
         End If
     End Sub
 
+    Protected Sub AgregarNuevaGuia()
+        Dim ObjGeneral As ClsGenerales = New ClsGenerales()
+        Dim TieneError As Boolean = False
+        ObjGeneral.IniciaTransacSQL()
+        Dim CveEstatus As Integer = DdlEstatus.SelectedValue.ToEntero()
+        Dim Fecha As String = TxtFechaPaqInterna.Text
+        Dim FechaEstimada As String = If(TxtFechaEstimada.Text = "", "-1", TxtFechaEstimada.Text)
+        Dim NoCajas As Integer = TxtNoCajas.Text.ToEntero()
+        Dim Observaciones As String = TxtObservacionesPaqInterna.Text
+        Dim CvePaqueteriaGuia As Integer = ObjGeneral.AddPaqueteriasGuias(-1, -1, CveEstatus, CveSubProyecto, Fecha, "-1", "-1", NoCajas, 0.00, "-1", FechaEstimada, Observaciones, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, EsEntregaInterna:=True)
+
+        If CvePaqueteriaGuia > 0 Then
+
+            If CveVentaSurtir > 0 OrElse CveSubProyecto > 0 Then
+                TieneError = Not ObjGeneral.AddPaqueteriasGuiasDetalles(CvePaqueteriaGuia, CveVentaSurtir, -1, CveSubProyecto, -1)
+            End If
+        Else
+            TieneError = True
+        End If
+
+        If TieneError Then
+            ObjGeneral.RollBack()
+        Else
+            ObjGeneral.Commit()
+            LimpiaCampos()
+            Alert("Se agrego la paquetería guía correctamente")
+        End If
+
+        ObjGeneral.Dispose()
+    End Sub
+
+    Protected Sub LimpiaCampos()
+        DdlEstatus.SelectedValue = "1"
+        TxtFechaPaqInterna.Text = ""
+        TxtFechaEstimada.Text = ""
+        TxtNoCajas.Text = ""
+        TxtObservacionesPaqInterna.Text = ""
+        UpPaqInterna.Update()
+    End Sub
 #End Region