AYUDA VALIDAR VIGENCIA CFDI 3.3
Publicado por angel MR (7 intervenciones) el 31/01/2018 20:03:59
Hola amigos, les pido me apoyen en una cuestion donde estoy atorado. Tengo un codigo en VB NET 2010 que recorre la estructura de las facturas electronicas CFDI (XML) y extrae sus datos en variables,por ejemplo los campos RFC emisor - receptor, folio fiscal (UUID), etc.
Donde necesito la ayuda es en lo siguiente: Con los datos del XML ya en variables poder conectarse al SAT y verificar si el ESTATUS del folio fiscal (UUID) esta Vigente.
Parte de mi cogido es:
De antemano Saludos.
Donde necesito la ayuda es en lo siguiente: Con los datos del XML ya en variables poder conectarse al SAT y verificar si el ESTATUS del folio fiscal (UUID) esta Vigente.
Parte de mi cogido es:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim VarDocumentoXML As XmlDocument = New XmlDocument()
Dim VarManager As XmlNamespaceManager = New XmlNamespaceManager(VarDocumentoXML.NameTable)
VarDocumentoXML.Load(Objetos2(contadorlibros2))
VarManager.AddNamespace("cfdi", "http://www.sat.gob.mx/cfd/3")
VarManager.AddNamespace("tfd", "http://www.sat.gob.mx/TimbreFiscalDigital")
VarManager.AddNamespace("implocal", "http://www.sat.gob.mx/implocal")
Version_xml = VarDocumentoXML.SelectSingleNode("/cfdi:Comprobante/@Version", VarManager).InnerText
implocalretenidos = VarDocumentoXML.SelectSingleNode("/cfdi:Comprobante/cfdi:Complemento/implocal:ImpuestosLocales/@TotaldeRetenciones", VarManager).InnerText
implocaltraladados = VarDocumentoXML.SelectSingleNode("/cfdi:Comprobante/cfdi:Complemento/implocal:ImpuestosLocales/@TotaldeTraslados", VarManager).InnerText
retenidos = VarDocumentoXML.SelectSingleNode("/cfdi:Comprobante/cfdi:Impuestos/@totalImpuestosRetenidos", VarManager).InnerText
trasladados = VarDocumentoXML.SelectSingleNode("/cfdi:Comprobante/cfdi:Impuestos/@totalImpuestosTrasladados", VarManager).InnerText
Subtotal = VarDocumentoXML.SelectSingleNode("/cfdi:Comprobante/@SubTotal", VarManager).InnerText
Emisor_Nombre = VarDocumentoXML.SelectSingleNode("/cfdi:Comprobante/cfdi:Emisor/@Nombre", VarManager).InnerText
Receptor_Nombre = VarDocumentoXML.SelectSingleNode("/cfdi:Comprobante/cfdi:Emisor/@Nombre", VarManager).InnerText
UUID = VarDocumentoXML.SelectSingleNode("/cfdi:Comprobante/cfdi:Complemento/tfd:TimbreFiscalDigital/@UUID", VarManager).InnerText
De antemano Saludos.
Valora esta pregunta
0