AF Documentos, AF fecha iamgen, Correciones eFacturas solicitudes pdf sobre escritura
This commit is contained in:
@@ -1758,14 +1758,16 @@ Partial Class Compras_eFacturas
|
||||
|
||||
If RutaPDF = "" Then
|
||||
|
||||
Dim Hilo As New System.Threading.Thread(Sub() ProcesarPDF(UsuarioActual, a, FF))
|
||||
|
||||
|
||||
'no valida nada solo lo crea y lo pone en la carpeta, no importa si ya existe
|
||||
If SobreEscribirPDFSiExiste Then
|
||||
Dim Hilo As New System.Threading.Thread(Sub() ProcesarPDF(UsuarioActual, a, FF))
|
||||
Hilo.Start()
|
||||
Else
|
||||
'si no existe el pdf, lo procesa
|
||||
If Not File.Exists(RutaPDF) Then
|
||||
If Not File.Exists(PDfDestino) Then
|
||||
Dim Hilo As New System.Threading.Thread(Sub() ProcesarPDF(UsuarioActual, a, FF))
|
||||
Hilo.Start()
|
||||
End If
|
||||
End If
|
||||
@@ -3050,7 +3052,7 @@ Partial Class Compras_eFacturas
|
||||
End If
|
||||
|
||||
If SeVerifico Then
|
||||
SubirFacturas(ListComprimidos, ListXML, ListPDF, Validada:=1, SobreEscribirPDFSiExiste:=False)
|
||||
SubirFacturas(ListComprimidos, ListXML, ListPDF, Validada:=1,SobreEscribirPDFSiExiste:=False)
|
||||
End If
|
||||
|
||||
'If UsuarioActual.CveRol = 1 Then
|
||||
|
||||
Reference in New Issue
Block a user