Merge branch 'master' of http://192.168.10.111:8383/SIG

Compras/Compras.aspx.vb

@@ -1673,6 +1673,7 @@ Partial Class Compras_Compras
             If IO.File.Exists(Archivo) Then
 
                 Dim Validada As Boolean = True
+                Dim EnListadoEFOS As Boolean = False
                 If Not UsuarioActual.Empresa.Funcionalidad(529) = "1" Then
                     'verificacion doble, si no la han cancelado, ya tiene una validaci[on para que llegue aqui  
 
@@ -1695,6 +1696,13 @@ Partial Class Compras_Compras
                         Valida.EsValida = 1
                     End If
 
+
+                    EnListadoEFOS = Valida.EnListaEFOS
+
+                    If EnListadoEFOS Then
+                        Alert("El emisor de la factura se encuentra dentro del listado de EFOS.", TipoMensaje.MsgAdvertencia)
+                    End If
+
                     If Valida.EsValida > 0 Then
                         If Valida.EsValida = 2 Then
                             Validada = False
@@ -1722,7 +1730,7 @@ Partial Class Compras_Compras
                 UpPSS.Update()
 
 
-                If Validada Then
+                If Validada And Not EnListadoEFOS Then