--Verifica folios

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("<br/> Folio: {0} Archivo: {1}", Folio, fileName)
+                            End If
 
                         Catch ex As Exception
                             ex.ToString().GuardaLog()
+                            sbArchivosFaltantes.AppendFormat("<br/> 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)