Envio Cotizacion CRM

This commit is contained in:
Oscar Irigoyen
2022-12-20 19:06:53 -07:00
parent eeebc772bf
commit 38b6c6f4a3
2 changed files with 3785 additions and 59 deletions

File diff suppressed because it is too large Load Diff

View File

@@ -10149,9 +10149,7 @@ Partial Class Ventas
If pdfCRM IsNot Nothing Then
Dim SerieFolioCRM As String = ObjFactura.SerieFolio
Dim TipoDoctoCRM As String = ObjFactura.TipoDocto
Dim Hilo As New System.Threading.Thread(Sub() GeneraPDFCotizacion(True, CorreoContactoCRM:=CorreoContactoCRM, pdfCRM:=pdfCRM, SerieFolioCRM:=SerieFolioCRM, TipoDoctoCRM:=TipoDoctoCRM))
Hilo.Start()
GeneraPDFCotizacion(True, CorreoContactoCRM:=CorreoContactoCRM, pdfCRM:=pdfCRM, SerieFolioCRM:=SerieFolioCRM, TipoDoctoCRM:=TipoDoctoCRM)
End If