--mejora en lectura de xml,

Compras/Proveedores.aspx.vb

@@ -724,18 +724,32 @@ Partial Class Compras_Proveedores
         Dim ObjeFacturas As New ClsCompras
         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
-            Try
             Dim dr As DataRow = ObjeFacturas.DtResultados.Rows(0)
-
+            Dim Archivo As String = String.Format("{0}Compras\{1}\{2}", UsuarioActual.Empresa.Ruta, dr("RFCDe"), dr("XML"))
-
+            Try
-                Dim SXML As String = File.ReadAllText(UsuarioActual.Empresa.Ruta & "Compras\" & dr("RFCDe").ToString & "\" & dr("XML").ToString)
+                SXML = File.ReadAllText(Archivo).Replace("<br>", "").Replace("<", "").Replace("o;?", "").Replace(ChrW(&HFEFF), "")
                 'SXML = SXML.TrimStart(vbCr, vbLf, vbNullChar)
                 'SXML = SXML.TrimEnd(vbCr, vbLf, vbNullChar)
                 SXML = SXML.Trim(New Char() {""c})
                 SXML = SXML.Replace("o;?", "")
 
                 XMLDoc.LoadXml(SXML)
+            Catch ex As Exception
+                Try
+                    Dim oReader As New StreamReader(Archivo, Encoding.GetEncoding("ISO-8859-1"))
+                    XMLDoc.Load(oReader)
+                    oReader.Dispose()
+                Catch ex2 As Exception
+                    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
+
             Dim Prefijo As String = If(XMLDoc.DocumentElement.Prefix = "", "cfd", XMLDoc.DocumentElement.Prefix)
                 Dim cfdVer As String = "http://www.sat.gob.mx/cfd/3"
                 Dim namespaces As New XmlNamespaceManager(XMLDoc.NameTable)
@@ -756,6 +770,7 @@ Partial Class Compras_Proveedores
 
                 'If Prefijo.ToLower <> "cfdi" Then cfdVer = "http://www.sat.gob.mx/cfd/2"
                 namespaces.AddNamespace(Prefijo, cfdVer)
+                '     XMLDoc.LoadXml(File.ReadAllText(Archivo).Replace("&lt;br&gt;", "").Replace("&lt;", "").Replace("o;?", "").Replace(ChrW(&HFEFF), ""))
 
 
                 Dim node As XmlNode
@@ -801,11 +816,6 @@ Partial Class Compras_Proveedores
                 End If
             End If
 
-            Catch ex As Exception
-                Alert(String.Format("No se pudo cargar la información ({0})", ex.Message), TipoMensaje.MsgAdvertencia)
-                Return 0
-            End Try
-
         End If
         Return 1
     End Function
@@ -5847,11 +5857,8 @@ Partial Class Compras_Proveedores
     Protected Sub LnkDownLoadDoc_Click(sender As Object, e As EventArgs)
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
         Dim Adjunto As String = GvRow.DataKey("Adjunto")
-
-
         Dim stringDescargaDocumento As String = UsuarioActual.Empresa.Ruta & String.Format("Edoc\\Proveedor\{0}\{1}", CveProveedor, Adjunto)
 
-
         Dim File As New FileInfo(stringDescargaDocumento)
 
         If File.Exists Then