AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

eFacturas correciones decargas sustitucion de pdf

Browse Source
This commit is contained in:
rakcsle
2025-05-21 01:01:07 -07:00
parent e5e1460faa
commit b7b9249bea
3 changed files with 148 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
Compras/eFacturas.aspx.vb
View File

@@ -1612,7 +1612,7 @@ Partial Class Compras_eFacturas
End Sub
Private Sub SubirFacturas(ByRef ListComprimidos As List(Of String), ByRef ListXML As List(Of String), ByRef ListPDF As List(Of String), Optional Validada As Integer = 0)
Private Sub SubirFacturas(ByRef ListComprimidos As List(Of String), ByRef ListXML As List(Of String), ByRef ListPDF As List(Of String), Optional Validada As Integer = 0, Optional SobreEscribirPDFSiExiste As Boolean = True)
Dim DTLOG As New DataTable
DTLOG.Columns.Add("Serie", GetType(String))
DTLOG.Columns.Add("Folio", GetType(String))
@@ -1753,11 +1753,25 @@ Partial Class Compras_eFacturas
If FF IsNot Nothing AndAlso FF.CveFactura > 0 Then
Dim PDfDestino As String = $"{UsuarioActual.Empresa.Ruta}\Compras\{FF.EmisorRFC}\{FF.CveFactura}.PDF"
If RutaPDF = "" Then
Dim Hilo As New System.Threading.Thread(Sub() ProcesarPDF(UsuarioActual, a, FF))
Hilo.Start()
'no valida nada solo lo crea y lo pone en la carpeta, no importa si ya existe
If SobreEscribirPDFSiExiste Then
Hilo.Start()
Else
'si no existe el pdf, lo procesa
If Not File.Exists(RutaPDF) Then
Hilo.Start()
End If
End If
Else
Dim PDfDestino As String = $"{UsuarioActual.Empresa.Ruta}\Compras\{FF.EmisorRFC}\{FF.CveFactura}.PDF"
If File.Exists(RutaPDF) Then
If File.Exists(PDfDestino) Then
File.Delete(PDfDestino)
@@ -3036,7 +3050,7 @@ Partial Class Compras_eFacturas
End If
If SeVerifico Then
SubirFacturas(ListComprimidos, ListXML, ListPDF, Validada:=1)
SubirFacturas(ListComprimidos, ListXML, ListPDF, Validada:=1, SobreEscribirPDFSiExiste:=False)
End If
'If UsuarioActual.CveRol = 1 Then