AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- valdiacion de carga de cvefactura

Browse Source
This commit is contained in:
rrene
2024-09-24 11:42:33 -07:00
parent 2eae369a7a
commit 7f5cf746a5
1 changed files with 26 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

48
Compras/Proveedores.aspx.vb
View File

@@ -725,34 +725,38 @@ Partial Class Compras_Proveedores
If ObjeFacturas.GetFacturas(CveFactura, "-1", NowADS().AddYears(-2), NowADS(), "-1", "-1", -1, -1, -1, -1, "-1", UsuarioActual.CveEmpresa) Then 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 XMLDoc As New XmlDocument
Dim SXML As String Dim SXML As String
Dim dr As DataRow = ObjeFacturas.DtResultados.Rows(0) Dim dr As DataRow = ObjeFacturas.DtResultados.FiltroPrimero("")
Dim Archivo As String = String.Format("{0}Compras\{1}\{2}", UsuarioActual.Empresa.Ruta, dr("RFCDe"), dr("XML")) If dr IsNot Nothing Then
Try Dim Archivo As String = String.Format("{0}Compras\{1}\{2}", UsuarioActual.Empresa.Ruta, dr("RFCDe"), dr("XML"))
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 Try
Dim oReader As New StreamReader(Archivo, Encoding.GetEncoding("ISO-8859-1")) SXML = File.ReadAllText(Archivo).Replace("<br>", "").Replace("<", "").Replace("o;?", "").Replace(ChrW(&HFEFF), "")
XMLDoc.Load(oReader) 'SXML = SXML.TrimStart(vbCr, vbLf, vbNullChar)
oReader.Dispose() 'SXML = SXML.TrimEnd(vbCr, vbLf, vbNullChar)
Catch ex2 As Exception SXML = SXML.Trim(New Char() {""c})
GuardaLog("Error al intentar leer el XML del SAT. Error:" & ex2.ToString()) SXML = SXML.Replace("o;?", "")
End Try
End Try
If XMLDoc.InnerXml = "" Then XMLDoc.LoadXml(SXML)
Alert("No se pudo procesar el archivo xml.", TipoMensaje.MsgError) 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
Else
Alert("No se encontró el documento para cargarlo.", TipoMensaje.MsgError)
Return 0 Return 0
End If End If
Dim Prefijo As String = If(XMLDoc.DocumentElement.Prefix = "", "cfd", XMLDoc.DocumentElement.Prefix) Dim Prefijo As String = If(XMLDoc.DocumentElement.Prefix = "", "cfd", XMLDoc.DocumentElement.Prefix)
Dim cfdVer As String = "http://www.sat.gob.mx/cfd/3" Dim cfdVer As String = "http://www.sat.gob.mx/cfd/3"
Dim namespaces As New XmlNamespaceManager(XMLDoc.NameTable) Dim namespaces As New XmlNamespaceManager(XMLDoc.NameTable)
Dim nodo As XmlNode = XMLDoc.DocumentElement Dim nodo As XmlNode = XMLDoc.DocumentElement
Dim Version As String = ValorXml(nodo, "Version") Dim Version As String = ValorXml(nodo, "Version")