Leer xml version 4.0 para impresion de pdf de carta porte

Compras/PopUpVerFactura.aspx.vb

@@ -1715,6 +1715,16 @@ Partial Class PopUpVerFactura
                     Dim namespaces As New XmlNamespaceManager(XMLDoc.NameTable)
 
                     If Prefijo.ToLower <> "cfdi" Then cfdVer = "http://www.sat.gob.mx/cfd/2"
+
+                    Dim schemaLocationAttribute = XMLDoc.SelectSingleNode("//@*[local-name()='schemaLocation']")
+                    If schemaLocationAttribute IsNot Nothing Then
+                        If Not String.IsNullOrEmpty(schemaLocationAttribute.Value) Then
+                            If schemaLocationAttribute.Value.Contains("http://www.sat.gob.mx/cfd/4") Then
+                                cfdVer = "http://www.sat.gob.mx/cfd/4"
+                            End If
+                        End If
+                    End If
+
                     namespaces.AddNamespace(Prefijo, cfdVer)
                     namespaces.AddNamespace("tfd", "http://www.sat.gob.mx/TimbreFiscalDigital")
                     namespaces.AddNamespace("implocal", "http://www.sat.gob.mx/implocal")