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)