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

8
Compras/Proveedores.aspx.vb
View File

@@ -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 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("")
If dr IsNot Nothing Then
Dim Archivo As String = String.Format("{0}Compras\{1}\{2}", UsuarioActual.Empresa.Ruta, dr("RFCDe"), dr("XML")) Dim Archivo As String = String.Format("{0}Compras\{1}\{2}", UsuarioActual.Empresa.Ruta, dr("RFCDe"), dr("XML"))
Try Try
SXML = File.ReadAllText(Archivo).Replace("<br>", "").Replace("<", "").Replace("o;?", "").Replace(ChrW(&HFEFF), "") 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()) GuardaLog("Error al intentar leer el XML del SAT. Error:" & ex2.ToString())
End Try End Try
End Try End Try
If XMLDoc.InnerXml = "" Then If XMLDoc.InnerXml = "" Then
Alert("No se pudo procesar el archivo xml.", TipoMensaje.MsgError) Alert("No se pudo procesar el archivo xml.", TipoMensaje.MsgError)
Return 0 Return 0
End If 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 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"