diff --git a/Inventarios/EntregaAlmacen.aspx b/Inventarios/EntregaAlmacen.aspx
index 70313db73..b3623247f 100644
--- a/Inventarios/EntregaAlmacen.aspx
+++ b/Inventarios/EntregaAlmacen.aspx
@@ -65,11 +65,15 @@
- Cliente:
+
+
<%----%>
- Serie-Folio:
+
+
@@ -238,10 +242,10 @@
|
- |
@@ -281,6 +285,8 @@
+
+
Sucursal:
@@ -712,6 +718,7 @@
Cantidad
+
@@ -754,6 +761,8 @@
Cant.:
+
+
@@ -810,6 +819,97 @@
+
+
+
+
+
+
+
+
+
+
+ | Estatus: |
+
+
+ <%-- --%>
+
+
+
+
+
+ <%--
+ --%>
+ |
+
+
+
+
+ | Fecha: |
+
+
+ |
+
+
+
+
+
+ | Fecha Estimada: |
+
+
+ |
+
+
+
+ | # Cajas: |
+
+
+
+ |
+
+
+
+
+ | Observaciones: |
+
+
+ |
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index 87b0ad449..f9ff946d8 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/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