-- valdiacion de carga de cvefactura

Compras/Proveedores.aspx.vb

@@ -725,7 +725,8 @@ Partial Class Compras_Proveedores
         If ObjeFacturas.GetFacturas(CveFactura, "-1", NowADS().AddYears(-2), NowADS(), "-1", "-1", -1, -1, -1, -1, "-1", UsuarioActual.CveEmpresa) Then
             Dim XMLDoc As New XmlDocument
             Dim SXML As String
-            Dim dr As DataRow = ObjeFacturas.DtResultados.Rows(0)
+            Dim dr As DataRow = ObjeFacturas.DtResultados.FiltroPrimero("")
+            If dr IsNot Nothing Then
                 Dim Archivo As String = String.Format("{0}Compras\{1}\{2}", UsuarioActual.Empresa.Ruta, dr("RFCDe"), dr("XML"))
                 Try
                     SXML = File.ReadAllText(Archivo).Replace("<br>", "").Replace("<", "").Replace("o;?", "").Replace(ChrW(&HFEFF), "")
@@ -744,11 +745,14 @@ Partial Class Compras_Proveedores
                         GuardaLog("Error al intentar leer el XML del SAT. Error:" & ex2.ToString())
                     End Try
                 End Try
-
                 If XMLDoc.InnerXml = "" Then
                     Alert("No se pudo procesar el archivo xml.", TipoMensaje.MsgError)
                     Return 0
                 End If
+            Else
+                Alert("No se encontró el documento para cargarlo.", TipoMensaje.MsgError)
+                Return 0
+            End If
 
             Dim Prefijo As String = If(XMLDoc.DocumentElement.Prefix = "", "cfd", XMLDoc.DocumentElement.Prefix)
             Dim cfdVer As String = "http://www.sat.gob.mx/cfd/3"