¿Delphi XML como escribir leer NameSpaces?
 

Hola

ando trabajando en lo que es el CFDI
para la facturacion electronica en México.

este es el XML que da el sat
mi problema es que al usar delphi y el databinding
no se reconoce los que es cfdi:

</cfdi:Impuestos>
no logro crear el archivo XML que conenga ese namespace
solo sin ese nameespace

hize chapuza haciendo este archivo que es el que uso lo adjunte


y otro problema que tengo es como leer la informacion del timbrefiscal

con este codigo leo la informacion del xml que tambien adjunto

Código Delphi [-]
var
        elemisor : IXMLComprobante_Emisor;
begin
//
//  Cargamos el comprobante y comezanmos a cargar los datos que contieen
  elcomprobante := GetComprobante(XMLDocument1);
 Edit1.Text :=  elcomprobante.Version ;
 Edit2.Text := elcomprobante.Folio;
 Edit3.Text := elcomprobante.Serie;
 Edit4.Text := elcomprobante.Fecha;
 Memo1.Text := elcomprobante.Sello;
 Edit5.Text := elcomprobante.Total;
  // aqui no se como leer el complemento para pasarlo a unos edits y memos

yo creo que el problema es que no se han declarado los namespaces
pero no se como se declaran ni como leer un namespace distinto dentro
de otro
en este caso el complemento timbrefiscal
tiene el namespace <tfd:TimbreFiscalDigital

siguo sin entender como hacerle.

Todavia no encuentro como leer el xml
quiero leer la informacion del timbre pero nada de nada..

tampoco tengo idea de como se escribe el XML para que tenga

Código Delphi [-]
 
    TimbreFiscalDigital xmlns:tfd="http://www.sat.gob.mx/TimbreFiscalDigital" xsi:schemaLocation="http://www.sat.gob.mx/TimbreFiscalDigital TimbreFiscalDigital.xsd" selloCFD="ll858RRUo3RHkdawp5Jy/TENtijth0TXEizBRwiCZhkanijbNH8Hh6C2XRk1wUsR
T0q+3HrO2bNgMS7cPr4p2ee+2N/6zVPzhjt0hfK8r3rF+VLArhGKQaBynlzMpL/A
up1Oc4fDjZA1MbtbZblLxFNG8/TeCJjQogo7+uYBMB4=
" FechaTimbrado="2011-03-06T20:40:10" UUID="ad662d33-6934-459c-a128-bdf0393e0f44" noCertificadoSAT="30001000000100000801" version="1.0" selloSAT="j2gGwF26lCgiMEj7IlVTDaQrAsOtVU7yO6idRZrSXYnarFQ5cbUE79WER4O8g+TZ
pYnyeOoH7DskvzeSMlCG6  7Tp/+Rx74CSTvzLtfDjEK6mmzKHylcWMn9SizIGWRDB
RrxOv5P2BPLIwTY1/HUQ7I46/eBzAuTLHsiDhsNJCMk=
" />
  

<B>Ayuda por favor.

segun yo con este codigo puedo accesar a los valores
del timbrefiscaldigital

Código Delphi [-]
 
var

AttrNode : XMLNode;
begin
    AttrNode:=    XMLDocument1.DocumentElement.ChildNodes.FindNode('TimbreFiscalDigital', XMLDocument1.DocumentElement.FindNamespaceURI('tfd'));
          Edit1.Text := Trim( AttrNode.ChildNodes.Nodes[0].Text);//aui error
end;

pero obtengo solo errores de acceso de memoria

alguna idea. algo ando perdido.

una duda enorme.

¿como se leen atributos en un xml?

ya perdi 3 dias buscando en internet algo.
pero no encuentro nada claro.

este es el archivo que quiero leer sus atributos. pero a cada rato me sale
error de proteccion de memoria.

ni idea de como se hace esto de los namespaces
y de leerlos. esta bien raro todo esto.

alguien que tenga alguna idea. ya tiro la toalla.

Recuerda que para manejar la estructura del XML debes usar la TXMLDocument, que se encuentra en la pestaña de Internet.

Otra forma es que construyas el XMLDataBindig a partir del archivio cfdv2.xsd o cfdv3.xsd según la necesidad.

Otra forma es manejarlo con las rutinas que nos proporcionaron, o que se muestran el http://www.clubdelphi.com/foros/showthread.php?t=66807, de este mismo foro, creo que debes epesar por ese punto.

Espero que esto te ayude.

hola ifarias
gracias por tu interes.

asi le he hecho.
con xmldocument
con xml databinding.

y da error de acceso de memoria o por que no se declaro el namespaces

no idea..

Espero que este ejemplo te ayude

Código Delphi [-]
var
  Nodo : IXMLNode;
...
  Nodo := XML1.DocumentElement;
  Nodo.Attributes['xmlns:xsi']  := 'http://www.w3.org/2001/XMLSchema-instance';
  Nodo.Attributes['xsi:schemaLocation'] := 'http://www.sat.gob.mx/cfd/2 http://www.sat.gob.mx/sitio_internet/cfd/2/cfdv2.xsd';

Saludos

No se si ya encontraste la respuesta pero quiza a alguien mas le sirva
AttrNode : XMLNode;
begin
AttrNode:= XMLDocument1.DocumentElement.ChildNodes.FindNode('TimbreFiscalDigital', XMLDocument1.DocumentElement.FindNamespaceURI('tfd'));
------------> Edit1.Text := Trim( AttrNode.ChildNodes.Nodes[0].Text); <-------------------------------esta linea cambiala por
Edit1.Text := Trim( AttrNode.ChildNodes.Nodes['nombre del dato que quieres obtener ej UUID'].Text);
end;

Recuerda poner los tags al código fuente, ejemplo:



Gracias :)

Hola tengo el mismo problema, ojala me puedan ayudar como lo solucionaron, ya que por medio de la unidad que me genero el xml data binding no me deja, saludos.

Tengo el mismo problema
 

Q tal buenos dias, solamente para saber si alguien ya pudo resolver este problema,
ya que es el mismo problema que tengo para accesar a los valores del timbre fiscal

gracias

email:diasaric@gmail.com

Intente usar este codigo:

Pero me manda un EAccess violation

Alguien pudo solucionar este problema?

Gracias y saludos