Correción en generacion de PDF en otro hilo

Empresas/1/Formatos/Factura.rdlc

@@ -4164,6 +4164,18 @@
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="CFDIVersion">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="RegimenFiscalCodigo">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <EmbeddedImages>
     <EmbeddedImage Name="Logo">

Ventas/Ventas.aspx.vb

@@ -9357,12 +9357,13 @@ Partial Class Ventas
                             idCuentaContabilizacion = 10
                         End If
 
+                        Try
                             If AutoConta Then
                                 If idCuentaContabilizacion > 0 Then
                                     If ObjConta.ContabilizarPrePoliza(ObjFactura.CvePrePoliza, ObjFactura.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContPaq) Then
                                         If ObjContPaq IsNot Nothing Then ObjContPaq.Commit()
                                     Else
-                                    Alert("Ocurrio un Error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError)
+                                        Alert("Ocurrió un Error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError)
                                         If ObjContPaq IsNot Nothing Then ObjContPaq.RollBack()
                                     End If
                                 Else
@@ -9374,7 +9375,12 @@ Partial Class Ventas
                                     If ObjContPaq IsNot Nothing Then ObjContPaq.Commit()
                                 End If
                             End If
+                        Catch ex As Exception
+                            OnError("Ocurrió un error al contabilizar la factura", ex)
+                        End Try
 
+
+                        Try
                             'RMF, cuando es pedido, se manda autorización.
                             If ObjFactura.TipoDocto.Contiene("PA") Then
 
@@ -9387,7 +9393,11 @@ Partial Class Ventas
                                 End If
 
                             End If
+                        Catch ex As Exception
+                            OnError("Ocurrió un error al mandar las notificaciones de autorización", ex)
+                        End Try
 
+                        Try
                             ViewState("CveVenta") = ObjFactura.CveVenta
 
                             If Request("CveEmbarqueManifiesto") IsNot Nothing AndAlso IsNumeric(Request("CveEmbarqueManifiesto")) AndAlso Request("CveEmbarqueManifiesto").ToEntero() > 0 Then
@@ -9396,7 +9406,9 @@ Partial Class Ventas
 
                                 End If
                             End If
-                        GVAnticipos.DataBind()
+                        Catch ex As Exception
+                            OnError("Ocurrió un error al actualizar el embarque", ex)
+                        End Try
 
                         Try
                             Dim DirectoriArchivoXML As String = String.Format("{0}{1}", UsuarioActual.Empresa.Ruta, ObjFactura.TipoDocto) ' System.IO.Path.Combine()
@@ -9404,7 +9416,7 @@ Partial Class Ventas
                                 Directory.CreateDirectory(DirectoriArchivoXML)
                             End If
                         Catch ex As Exception
-
+                            OnError("Ocurrió un error al generar el directorio de xml", ex)
                         End Try
 
 
@@ -9442,6 +9454,8 @@ Partial Class Ventas
                                     Dim TmpDT7Eleven As New DataTable
                                     Dim TmpDTComplementosTimbrado As New DataTable
 
+                                    Dim ObjTimbrado As New Timbrado
+                                    Try
                                         If AplicaFEMSA Then
                                             PrepararTimbrado(FM, TmpDT7Eleven, TmpDTComplementosTimbrado)
                                         End If
@@ -9456,17 +9470,19 @@ Partial Class Ventas
                                             End If
                                         End If
 
-                                    Dim ObjTimbrado As New Timbrado
                                         If DebeTimbrar Then
                                             SeTimbro = ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura)
                                         End If
+                                    Catch ex As Exception
+                                        OnError("Ocurrió un error al generar el timbrado", ex)
+                                    End Try
 
                                     Dim FolioFiscalFactura As String = ObjTimbrado.UUID
                                     Dim MsgErrorTimbrado = ObjTimbrado.MensajeErrorCFDI
                                     ObjTimbrado = Nothing
 
                                     'NOTA DE CREDITO - REFACTURADA - CASO ESPECIAL, TIMBRADO E IMPRESION
-                                    If DebeTimbrar AndAlso SeTimbro AndAlso ListaNotasCreditoGeneradas.Count > 0 Then
+                                    If DebeTimbrar AndAlso SeTimbro AndAlso ListaNotasCreditoGeneradas IsNot Nothing AndAlso ListaNotasCreditoGeneradas.Count > 0 Then
                                         Try
                                             For Each NCGenerada In ListaNotasCreditoGeneradas
                                                 If NCGenerada.Timbre IsNot Nothing Then
@@ -9497,18 +9513,24 @@ Partial Class Ventas
                                     End If
 
                                     'CANCELAR FACTURA ANTERIOR
+                                    Try
                                         If SeTimbro AndAlso (Me.CveDevolucion > 0 AndAlso Me.NuevaFactura = 1) Then
                                             If Me.ObjFacturaNC IsNot Nothing AndAlso Me.ObjFacturaNC.CveEstatusFactura <> 5 Then
                                                 Me.ObjFacturaNC.CveEstatusRefacturacion = 2 'MARCAR COMO REFACTURADA
                                                 MsgCancelacionRefacturacion = Me.ObjFacturaNC.CancelarPorRefacturacion(Me.ObjFacturaNC.CveMotivoCancelacion, Me.ObjFacturaNC.MotivoCancelacion, FolioFiscalFactura)
                                             End If
                                         End If
+                                    Catch ex As Exception
+                                        OnError("Ocurrió un error al cancelar la factura anterior.", ex)
+                                    End Try
+
                                 End If
                             End If
 
                         End If
 
                         'VERIFICAR 100% AVANCE A IMPORTE Y CANTIDAD
+                        Try
                             If ObjFactura.TipoDocto.Contiene("Ing", "Ant") AndAlso CveContrato > 0 Then
                                 If ObjContr.GetContratos(CveContrato, UsuarioActual.CveEmpresa) Then
 
@@ -9536,6 +9558,10 @@ Partial Class Ventas
                                     End If
                                 End If
                             End If
+                        Catch ex As Exception
+                            OnError("Ocurrió un error al notificar el avance.", ex)
+                        End Try
+
 
                         'MENSAJE PRINCIPAL
                         MensajeAlert.AppendFormat(String.Format("<br/>La {0}: <b>{1}</b>  se generó correctamente.<br/><br/>", ObjFactura.TipoDocumento, ObjFactura.SerieFolio))
@@ -9551,7 +9577,8 @@ Partial Class Ventas
                             Try
                                 'MANDA CORREO
                                 Dim strURLHOST = String.Format("{0}://{1}:{2}", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port)
-                                Dim Hilo As New System.Threading.Thread(Sub() GeneraPDFFactura(ChkEnviarFactura.Checked, CveVenta, UsuarioActual, strURLHOST))
+                                Dim Factura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=False)
+                                Dim Hilo As New System.Threading.Thread(Sub() GeneraPDFFactura(ChkEnviarFactura.Checked, Factura, UsuarioActual, strURLHOST))
                                 Hilo.Start()
                             Catch ex As Exception
                                 OnError("Ocurrió un error al enviar el PDF", ex)
@@ -9568,7 +9595,7 @@ Partial Class Ventas
                             Dim ArchivoEgs As New System.IO.FileInfo(String.Format("{0}Formatos/NotaCredito.rdlc", UsuarioActual.Empresa.Ruta))
 
                             If ArchivoIng.Exists Or ArchivoRem.Exists Or ArchivoIngPyMe.Exists Or ArchivoEgs.Exists Then
-                                MensajeAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar PDF</a></li></ul><br/>", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1", CveVenta)))
+                                MensajeAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar PDF</a></li></ul><br/>", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1", CveVenta)))
                             Else
                                 MensajeAlert.Append("Ocurrió un error al generar el PDF. Por favor vuelva a entrar a la factura para imprimir el PDF. ")
                             End If
@@ -9596,7 +9623,7 @@ Partial Class Ventas
 
 
                         'AUTO DESCARGAR PDF
-                        If UsuarioActual.CveEmpresa.Contiene(72, 1) Then
+                        If UsuarioActual.CveEmpresa.Contiene(72) Then
                             If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Ant") Then
                                 RegistraScript($"window.location.href = '/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1", CveVenta))}'", "Imprimir")
                             End If
@@ -9700,11 +9727,16 @@ Partial Class Ventas
 
                         MensajeAlert.Clear()
 
+                        Try
                             'LIMPIA CONDICIONES DE PAGO - CONTADO
                             RBLPago.SelectedValue = "1"
                             LimpiaEscondeContado()
                             BtnEmitirImprimir.Visible = False
                             ObjFactura = Nothing
+                        Catch ex As Exception
+                            OnError("Ocurrió un error al limpiar los datos", ex)
+                        End Try
+
 
                     Else
                         ObjVentas.RollBack()
@@ -15041,19 +15073,14 @@ Partial Class Ventas
 #End Region
 
 #Region "¡ P D F   R E P O R T   V I E W E R !"
-    Private Sub GeneraPDFFactura(EnviaCorreo As Boolean, CveVenta As Integer, UsuarioActual As Usuario, strURLHOST As String)
+    Private Sub GeneraPDFFactura(EnviaCorreo As Boolean, Factura As Modelos.Factura, UsuarioActual As Usuario, strURLHOST As String)
         'GUARDA PDF
         Dim LocalSerieFolio As String = String.Empty
         Dim LocalTipoDocto As String = String.Empty
 
-        Dim Factura As Modelos.Factura
         'TIMBRADO NUEVO
         Try
-            Dim ObjetoPDF As Byte() = DescargarFactura(CveVenta, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, Regenerar:=True, strURLHOST:=strURLHOST)
+            DescargarFactura(Factura.CveVenta, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, Regenerar:=True, strURLHOST:=strURLHOST)
-
-            If ObjetoPDF Is Nothing OrElse ObjetoPDF.Length = 0 Then
-                PdfFactura(ObjFactura, AplicaPagare:=If(ObjFactura.TipoDocto.Contiene("Ing", "Rem", "Ant"), "1", "0"))
-            End If
         Catch ex As Exception
             OnError("Ocurrió un error al generar el PDF", ex)
         End Try
@@ -15061,7 +15088,6 @@ Partial Class Ventas
         Dim ErrorCorreo As Boolean = False
 
         If EnviaCorreo Then
-            Factura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=False)
             If Factura IsNot Nothing Then
                 'MANDA CORREO
                 If EnviaCorreo Then
@@ -16406,7 +16432,8 @@ Partial Class Ventas
                     Try
                         'MANDA CORREO
                         Dim strURLHOST = String.Format("{0}://{1}:{2}", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port)
-                        Dim Hilo As New System.Threading.Thread(Sub() GeneraPDFFactura(ChkEnviarFactura.Checked, CveVenta, UsuarioActual, strURLHOST))
+                        Dim Factura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=False)
+                        Dim Hilo As New System.Threading.Thread(Sub() GeneraPDFFactura(ChkEnviarFactura.Checked, Factura, UsuarioActual, strURLHOST))
                         Hilo.Start()
                     Catch ex As Exception
                         OnError("Ocurrió un error al enviar el PDF", ex)
@@ -25484,7 +25511,7 @@ Partial Class Ventas
         '1 = TODO FINO
         '2 = ERROR
         '3 = SIN CELULAR - PROBLEMA CON EL CELULAR
-
+        Try
             Dim Mensaje = UsuarioActual.Empresa.Funcionalidad(152)
             If Mensaje = "" Then Return 0
 
@@ -25515,6 +25542,11 @@ Partial Class Ventas
             Else
                 Return 2
             End If
+        Catch ex As Exception
+            OnError("Ocurrió un error al generar el SMS", ex)
+            Return 0
+        End Try
+
     End Function
 #End Region