diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb
index 40a6e46cc..5dc6e44b0 100644
--- a/Compras/eFacturas.aspx.vb
+++ b/Compras/eFacturas.aspx.vb
@@ -2996,6 +2996,8 @@ Partial Class Compras_eFacturas
Protected Sub LnkverificarSolicitudes_Click(ByVal sender As Object, ByVal e As EventArgs)
Try
Dim sbResultado As StringBuilder = New StringBuilder()
+ Dim sbArchivosFaltantes As New StringBuilder()
+
Dim TipoMensaje As ModExtensiones.TipoMensaje = ModExtensiones.TipoMensaje.MsgInformacion
Dim ListComprimidos As New List(Of String)
@@ -3075,10 +3077,16 @@ Partial Class Compras_eFacturas
'COPIAR ARCHIVO A LA CARPETA DE PROCESAMIENTO DE FACTURAS, SE ELIMINARAN ESOS ARCHIVOS TEMPORALES
Dim destFile = String.Format("{0}Temp\Facturas\{1}", UsuarioActual.Empresa.Ruta, fileName)
File.Copy(filemove, destFile, overwrite:=True)
- ListComprimidos.Add(destFile)
+
+ If File.Exists(destFile) Then
+ ListComprimidos.Add(destFile)
+ Else
+ sbArchivosFaltantes.AppendFormat("
Folio: {0} Archivo: {1}", Folio, fileName)
+ End If
Catch ex As Exception
ex.ToString().GuardaLog()
+ sbArchivosFaltantes.AppendFormat("
Folio: {0} Archivo: {1}. Error al procesar", Folio, fileName)
End Try
End If
@@ -3121,6 +3129,11 @@ Partial Class Compras_eFacturas
Next
Alert(sbResultado.ToString(), TipoMensaje)
+
+ If sbArchivosFaltantes.Length > 0 Then
+ Alert($"No se pudieron procesar los siguientes folios. {sbArchivosFaltantes.ToString()}", TipoMensaje.MsgError)
+ End If
+
cargasolicitudes()
Catch ex As Exception
Alert(ex.StackTrace)