Página 1 de 1
Leer un XML CFD con VB6 o C#
Publicado: Mar Jul 02, 2013 12:38 pm
por smartstore
Hola buenas tardes,
alguien tiene un ejemplo del codigo en visual basic 6 para leer un XML (Factura timbrada) que genero el CFDLib.dll
Muchas gracias.
Re: Leer un XML CFD con VB6 o C#
Publicado: Mar Jul 02, 2013 1:07 pm
por Edcoram
Re: Leer un XML CFD con VB6 o C#
Publicado: Mar Jul 02, 2013 2:02 pm
por smartstore
Gracias. Aporto este codigo por si les sirve en C#
Hice este codigo en C# y si sirve
myfile es la ruta donde esta el xml a leer.
Código: Seleccionar todo
void uuid_get(string myfile)
{
string uuid = "";
string folio = "";
string rfc = "";
string rfc_cliente = "";
XmlReader reader = XmlReader.Create(myfile) ;
{
while (reader.Read())
{
if (reader.IsStartElement()) // checa si hay algo que leer.
{
// obtiene el nombre de cada elemento
switch (reader.Name)
{
case "cfdi:Comprobante":
folio = reader["folio"];
break;
case "cfdi:Emisor":
rfc = reader["rfc"];
break;
case "cfdi:Receptor":
rfc_cliente = reader["rfc"];
break;
case "tfd:TimbreFiscalDigital":
// Detect this element.
uuid = reader["UUID"];
break;
}
}
}
db_grabar(folio,uuid,rfc,rfc_cliente,reader.Depth.ToString()); //Esta rutina depende de cada quien es para implementarla para grabar a la base de datos
}
}
Re: Leer un XML CFD con VB6 o C#
Publicado: Mié Dic 21, 2016 3:04 pm
por cie67
El codigo en C# esta genial, muchas gracias. lo converti a Vb. net 2015 por si a alguien le sirve.
funciona al 100.
muchas gracias!!!
Código: Seleccionar todo
Private Sub uuid_get(myfile As String)
Dim uuid As String = ""
Dim folio As String = ""
Dim rfc As String = ""
Dim rfc_cliente As String = ""
Dim reader As XmlReader = XmlReader.Create(myfile)
If True Then
While reader.Read()
If reader.IsStartElement() Then
' checa si hay algo que leer.
' obtiene el nombre de cada elemento
Select Case reader.Name
Case "cfdi:Comprobante"
folio = reader("folio")
Exit Select
Case "cfdi:Emisor"
rfc = reader("rfc")
Exit Select
Case "cfdi:Receptor"
rfc_cliente = reader("rfc")
Exit Select
Case "tfd:TimbreFiscalDigital"
' Detect this element.
uuid = reader("UUID")
Exit Select
End Select
End If
End While
' db_grabar(folio, uuid, rfc, rfc_cliente, reader.Depth.ToString())
'Esta rutina depende de cada quien es para implementarla para grabar a la base de datos
End If
End Sub