-

Inventarios/EntregaAlmacen.aspx.vb

@@ -325,7 +325,7 @@ Partial Class Inventarios_EntregaAlmacen
         CargaPendientes()
 
 
-
+        LimpiaCampos()
     End Sub
 
 #End Region
@@ -1595,6 +1595,7 @@ Partial Class Inventarios_EntregaAlmacen
         Dim ObjVentas As New ClsVentas(ObjInventario.IniciaTransacSQL())
         Dim ObjEventos As New ClsOIEventos(ObjInventario.IniciaTransacSQL())
         Dim ObjAcumuladores As New ClsAcumuladores(ObjInventario.IniciaTransacSQL())
+        Dim ObjGeneral As New ClsGenerales(ObjInventario.IniciaTransacSQL())
         Dim CveMovimiento As Integer
         Dim Folio As Integer
         Dim ErrorMovInv As Boolean
@@ -2415,8 +2416,33 @@ Partial Class Inventarios_EntregaAlmacen
             OnError("Ocurrió un error al guardar", ex)
         End Try
 
+        'Paqueterias guias
+        If RbEntregaInterna.Checked AndAlso Not ErrorMovInv Then
+            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
+                    ErrorMovInv = Not ObjGeneral.AddPaqueteriasGuiasDetalles(CvePaqueteriaGuia, CveVentaSurtir, -1, CveMovimiento, -1)
+                End If
+                If ErrorMovInv Then
+                    Alert("Error en el paqueteria guia detalle", TipoMensaje.MsgError)
+                End If
+            Else
+                ErrorMovInv = True
+                Alert("Error en el paqueteria guia", TipoMensaje.MsgError)
+            End If
+        End If
+
         If Not ErrorMovInv Then
+
             ObjInventario.Commit()
+            ObjGeneral.Dispose()
             RegistraScript("playsonidito('beep-07.wav')")
             Dim Msg As New StringBuilder
 
@@ -2446,10 +2472,15 @@ Partial Class Inventarios_EntregaAlmacen
                 Msg.AppendFormat("<br/><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Movimiento</a> ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoVirtual)))
             End If
 
+            If RbEntregaInterna.Checked Then
+                Msg.AppendFormat("<br/><br/>Se agregó una guía de paquetería interna")
+            End If
+
             Alert(Msg.ToString, TipoMensaje.MsgInformacion)
 
             Limpia()
             CargaPendientes()
+            LimpiaCampos()
         Else
             ObjInventario.RollBack()
             Alert(TextoError.ToString, TipoMensaje.MsgError)
@@ -2493,6 +2524,7 @@ Partial Class Inventarios_EntregaAlmacen
         End If
 
         Dim ObjInventario As New ClsInventarios : ObjInventario.IniciaTransacSQL()
+        Dim ObjGeneral As New ClsGenerales(ObjInventario.IniciaTransacSQL())
         Dim CveMovimientoSalida As Integer
         Dim ConceptoMovimiento = 0
         Dim FolioSalida As Integer
@@ -2669,9 +2701,32 @@ Partial Class Inventarios_EntregaAlmacen
             End If
         End If
 
+        'Paqueterias Guias
+        If RbEntregaInterna.Checked AndAlso Not ErrorMovInv Then
+            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
+                    ErrorMovInv = Not ObjGeneral.AddPaqueteriasGuiasDetalles(CvePaqueteriaGuia, CveVentaSurtir, -1, CveMovimiento, -1)
+                End If
+                If ErrorMovInv Then
+                    Alert("Error en el paqueteria guia detalle", TipoMensaje.MsgError)
+                End If
+            Else
+                ErrorMovInv = True
+                Alert("Error en el paqueteria guia", TipoMensaje.MsgError)
+            End If
+        End If
 
         If Not ErrorMovInv Then
             ObjInventario.Commit()
+            ObjGeneral.Dispose()
             RegistraScript("playsonidito('beep-07.wav')")
 
             Dim Msg As New StringBuilder
@@ -2681,9 +2736,14 @@ Partial Class Inventarios_EntregaAlmacen
             Msg.AppendFormat("<br/><br/> Movimiento Entrada (Traspaso): <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a></b>", CveMovimientoEntrada, FolioEntrada)
             Msg.AppendFormat("<br/> <a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Movimiento</a> ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoEntrada)))
 
+            If RbEntregaInterna.Checked Then
+                Msg.AppendFormat("<br/><br/>Se agregó una guía de paquetería interna")
+            End If
+
             Alert(Msg.ToString, TipoMensaje.MsgInformacion)
 
             Limpia()
+            LimpiaCampos()
             CargaPendientes()
         Else
             Alert(TextoError, TipoMensaje.MsgError)
@@ -3114,11 +3174,22 @@ 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 LimpiaCampos()
+        DdlEstatus.SelectedValue = "1"
+        TxtFechaPaqInterna.Text = ""
+        TxtFechaEstimada.Text = ""
+        TxtNoCajas.Text = ""
+        TxtObservacionesPaqInterna.Text = ""
+        UpPaqInterna.Update()
+    End Sub
 #End Region