Cambios en paqueria

Inventarios/EntregaAlmacen.aspx.vb

@@ -2647,12 +2647,12 @@ Partial Class Inventarios_EntregaAlmacen
             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
+            If RbEntregaInterna.Checked AndAlso Not ErrorMovInv Then
+                Dim CveEstatus As Integer = 0 ' DdlEstatus.SelectedValue.ToEntero()
+                Dim Fecha As String = "-1" 'TxtFechaPaqInterna.Text
+                Dim FechaEstimada As String = "-1" 'If(TxtFechaEstimada.Text = "", "-1", TxtFechaEstimada.Text)
+                Dim NoCajas As Integer = 0 'TxtNoCajas.Text.ToEntero()
+                Dim Observaciones As String = "" 'TxtObservacionesPaqInterna.Text
                 Dim CvePaqueteria As Integer = GlobalDTPaqueterias(UsuarioActual.CveEmpresa, 0).FiltroPrimeroValor("CvePaqueteria", "").ToEntero
 
                 If CveSubProyecto > 0 Then
@@ -2661,7 +2661,7 @@ Partial Class Inventarios_EntregaAlmacen
                     If CvePaqueteriaGuia > 0 Then
 
                         If CveVentaSurtir > 0 OrElse CveSubProyecto > 0 Then
-                            If ObjGeneral.AddPaqueteriasGuiasDetalles(CvePaqueteriaGuia, CveVentaSurtir, -1, CveMovimiento, -1) Then
+                            If ObjGeneral.AddPaqueteriasGuiasDetalles(CvePaqueteriaGuia, CveVentaSurtir, -1, CveMovimientoSalida, -1) Then
                                 ''manda correo
                                 MandaCorreoEntrega(CveVentaSurtir)
                             Else
@@ -3117,12 +3117,12 @@ Partial Class Inventarios_EntregaAlmacen
         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
+        If RbEntregaInterna.Checked AndAlso Not ErrorMovInv Then
+            Dim CveEstatus As Integer = 0 ' DdlEstatus.SelectedValue.ToEntero()
+            Dim Fecha As String = "-1" 'TxtFechaPaqInterna.Text
+            Dim FechaEstimada As String = "-1" 'If(TxtFechaEstimada.Text = "", "-1", TxtFechaEstimada.Text)
+            Dim NoCajas As Integer = 0 'TxtNoCajas.Text.ToEntero()
+            Dim Observaciones As String = "" 'TxtObservacionesPaqInterna.Text
             Dim CvePaqueteria As Integer = GlobalDTPaqueterias(UsuarioActual.CveEmpresa, 0).FiltroPrimeroValor("CvePaqueteria", "").ToEntero
 
             Dim CvePaqueteriaGuia As Integer = ObjGeneral.AddPaqueteriasGuias(CvePaqueteria, 9, CveEstatus, CveSubProyecto, Fecha, "-1", "-1", NoCajas, 0.00, "-1", FechaEstimada, Observaciones, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, EsEntregaInterna:=True)
@@ -3174,6 +3174,11 @@ Partial Class Inventarios_EntregaAlmacen
 
 
     Private Sub MandaCorreoEntrega(tCveVenta As Integer)
+        Dim Hilo As New System.Threading.Thread(Sub() EnviarCorreoEntrega(tCveVenta, UsuarioActual))
+        Hilo.Start()
+    End Sub
+
+    Private Sub EnviarCorreoEntrega(tCveVenta As Integer, UsuarioActual As Usuario)
         Dim Correo As New ClsSisMail()
         Dim SerieFolio As String = ""
         Dim Asunto As String = String.Format("{0} Envio de pedido: {1}", UsuarioActual.Empresa.NombreCorto, SerieFolio)
@@ -3182,23 +3187,21 @@ Partial Class Inventarios_EntregaAlmacen
         Dim MensajeEnviado = False
         Dim tCvecliente As Integer
 
-
-        Dim ObjVentas As New ClsVentas()
-
-        If (ObjVentas.GetVenta(tCveVenta, UsuarioActual.CveEmpresa)) Then
-            Dim dr As DataRow = ObjVentas.DtResultados.FiltroPrimero("")
-            Destinatario = String.Format("{0};{1}", dr("CorreoNotificacion"), dr("CorreoVendedorVenta"))
-
-            tCvecliente = dr("CveCliente").ToString.ToEntero
-
-            Dim drC As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=tCvecliente).FiltroPrimero("")
-            Destinatario += String.Format("{0};{1}", drC("CorreoEntregaCompras"), drC("CorreoEntregaAlmacen"))
-
-            Cuerpo.AppendLine(String.Format("Estimado {0} le informamos que los productos de la factura {1}  han sido enviados a entrega. <br><br>", dr("ClienteNombre"), dr("SerieFolio")))
-            Cuerpo.AppendLine("<br><br>Dudas y aclaraciones con su coordinador empresarial.")
-
-        End If
-        ObjVentas.Dispose()
+        Using ObjVentas As New ClsVentas()
+            If ObjVentas.GetVenta(tCveVenta, UsuarioActual.CveEmpresa) Then
+                Dim dr As DataRow = ObjVentas.DtResultados.FiltroPrimero("")
+                Destinatario = String.Format("{0};{1}", dr("CorreoNotificacion"), dr("CorreoVendedorVenta"))
+
+                tCvecliente = dr("CveCliente").ToString.ToEntero
+
+                Dim drC As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=tCvecliente).FiltroPrimero("")
+                Destinatario += String.Format("{0};{1}", drC("CorreoEntregaCompras"), drC("CorreoEntregaAlmacen"))
+
+                Cuerpo.AppendLine(String.Format("Estimado {0} le informamos que los productos de la factura {1}  han sido enviados a entrega. <br><br>", dr("ClienteNombre"), dr("SerieFolio")))
+                Cuerpo.AppendLine("<br><br>Dudas y aclaraciones con su coordinador empresarial.")
+
+            End If
+        End Using
 
 
         ' Dim ArchivoAdjunto As New ClsSisMail.ArchivoMail()
@@ -3215,10 +3218,9 @@ Partial Class Inventarios_EntregaAlmacen
         '        }
 
 
-        MensajeEnviado = Correo.SendMail(UsuarioActual.Empresa, Destinatario, Asunto, Cuerpo.ToString())
-
-
+        MensajeEnviado = Correo.SendMail(UsuarioActual.Empresa, Destinatario, Asunto, Cuerpo.ToString())
     End Sub
+
     Private Sub Limpia()
 
         'DATOS DE LA VENTA
@@ -3640,7 +3642,7 @@ Partial Class Inventarios_EntregaAlmacen
         If RbEntregaExterna.Checked Then
             RegistraScript("AbrirVentana('/General/PopUpPaqueteriasGuias.aspx',800,547,'N')")
         ElseIf RbEntregaInterna.Checked Then
-            RegistraScript("$('#ModalPaqueteriaInterna').modal('show')")
+            'RegistraScript("$('#ModalPaqueteriaInterna').modal('show')")
             'RegistraScript($"AbrirVentana('/General/PopUpPaqueteriasGuiasInternas.aspx?CveVenta={CveVentaSurtir}&CveSubProyecto={CveSubProyecto}',800,547,'N')")
             'CveVentaSurtir
         ElseIf RbSinEntrega.Checked Then
@@ -3660,7 +3662,7 @@ Partial Class Inventarios_EntregaAlmacen
         If RbEntregaExterna.Checked Then
             RegistraScript("AbrirVentana('/General/PopUpPaqueteriasGuias.aspx',800,547,'N')")
         ElseIf RbEntregaInterna.Checked Then
-            RegistraScript("$('#ModalPaqueteriaInterna').modal('show')")
+            'RegistraScript("$('#ModalPaqueteriaInterna').modal('show')")
         End If
     End Sub
 #End Region