Clientes reacomodo, limpieza modulos, rep compras af

Bancos/IE.aspx.vb

@@ -6097,7 +6097,17 @@ Partial Class Bancos_IE
                 Dim Cuerpo As String = "Se hace entrega del comprobante de pago"
                 Dim Asunto As String = "Entrega de comprobante de pago"
 
-                If IO.File.Exists(RutaPDF) AndAlso IO.File.Exists(RutaXML) Then
+                Dim ErrorAdjuntas As String = ""
+
+                If Not IO.File.Exists(RutaPDF) Then
+                    ErrorAdjuntas = "No se pudo adjuntar el archivo PDF<br>"
+                End If
+
+                If Not IO.File.Exists(RutaXML) Then
+                    ErrorAdjuntas = $"{ErrorAdjuntas} No se pudo adjuntar el XML."
+                End If
+
+                If ErrorAdjuntas.Length > 0 Then
 
                     Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
 
@@ -6116,7 +6126,7 @@ Partial Class Bancos_IE
                     End If
 
                 Else
-                    Msg = "No se pudo adjuntar el correo electrónico."
+                    Msg = ErrorAdjuntas
                 End If
 
             End If