dFacturas subir facturas fix no reemplazar pdf si ya existe

Compras/Compras.aspx.vb

@@ -18116,6 +18116,9 @@ Partial Class Compras_Compras
             DdlIVA.Enabled = True
         End If
 
+        If UsuarioActual.CveRol = 1 Then
+            TxtRetISRModal.Enabled = True
+        End If
 
         UpPSS.Update()
         RegistraScript("$('#divAddProducto').modal('show');")

Compras/eFacturas.aspx.vb

@@ -1756,9 +1756,7 @@ Partial Class Compras_eFacturas
                     Dim PDfDestino As String = $"{UsuarioActual.Empresa.Ruta}\Compras\{FF.EmisorRFC}\{FF.CveFactura}.PDF"
 
 
-                    If RutaPDF = "" Then
-
-
+                    If RutaPDF = "" Then ' llega sin pdf
 
                         'no valida nada solo lo crea y lo pone en la carpeta, no importa si ya existe
                         If SobreEscribirPDFSiExiste Then
@@ -9124,6 +9122,12 @@ Namespace ADS.eFacturas
                 Dim TmpArchivoQR As String = $"{Ruta}\Temp\Facturas\{Path.GetFileNameWithoutExtension(Fact.ArchivoXML)}-ttt.jpg"
                 Dim ArchivoXML As String = String.Format("{0}\Compras\{2}\{1}", DirectorioEmpresa, Fact.ArchivoXML, Fact.EmisorRFC)
                 Dim ArchivoPDF As String = String.Format("{0}\Compras\{2}\{1}.pdf", DirectorioEmpresa, Fact.CveFactura, Fact.EmisorRFC)
+
+                'Validación si existe PDF no lo genera
+                If System.IO.File.Exists(ArchivoPDF) Then
+                    Return True
+                End If
+
                 Dim dtotal As Decimal = If(Fact.Total <= 0.0D, 0.0001D, Fact.Total)
                 Dim cfdi As New RVCFDI33.GeneraCFDI()