Visual Basic.NET - AYUDA VALIDAR VIGENCIA CFDI 3.3

   
Vista:

AYUDA VALIDAR VIGENCIA CFDI 3.3

Publicado por angel MR (6 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:
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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

AYUDA VALIDAR VIGENCIA CFDI 3.3

Publicado por Cesar (40 intervenciones) el 02/02/2018 00:30:45
Hola.

Puedes consultar la pagina https://verificacfdi.facturaelectronica.sat.gob.mx, empleando alguna tecnica de webscraping.

Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Revisar política de publicidad