estoy con la generacion del xml
y no logro hacer el xml
use el xml databinding para generar el archivo pas
para importar el cfdv3.xsd
usando eureka log y con delphi 2010 el error es
2.5 Type : EDOMParseError
2.6 Message : Referencia a un prefijo de espacio de nombres no declarado:_'cfdi'.
.
Line:_1
<?xml version="1.0" encoding="UTF-8" ?><.
2.7 ID : A382
2.8 Count : 1
2.9 Status : New
2.10 Note :
mi codigo fuente es
Código Delphi
[-]
procedure TFUnitForm.Button5Click(Sender: TObject);
begin
XMLDoc.XML.Text := ' < ?xml version="1.0" encoding="UTF-8" ?>< cfdi:Comprobante>< /cfdi:Comprobante> ';
CFD := GetComprobante(XMLDoc);
CFD.DeclareNamespace('cfdi','http://www.sat.gob.mx/cfd/3');
with CFD do
begin
Version := Edit53.Text; Folio := Edit56.Text;
Fecha := Edit55.Text;
Sello := Trim(Memo3.Text);
Total := Edit57.Text;
SubTotal := Edit58.Text;
Moneda := Edit59.Text;
Certificado := Trim(Memo4.Text);
FormaDePago:= Edit60.Text ;
with Emisor do
begin
Rfc := Edit1.Text;
Nombre :=Edit2.Text;
with DomicilioFiscal do
begin
pais := Edit3.Text;
Calle := Edit4.Text;
Estado := Edit5.Text;
Colonia := Edit6.Text;
Municipio := Edit7.Text;
NoExterior := Edit8.Text;
CodigoPostal := Edit9.Text;
end;
with ExpedidoEn do
begin
Pais:= Edit10.Text;
Calle := Edit11.Text;
Estado:= Edit12.Text;
Colonia := Edit13.Text;
NoExterior := Edit15.Text;
CodigoPostal := Edit16.Text;
end;
end;
end;
XMLDoc.SaveToFile( 'cfdvv3.xml');
end;
el codigo para agregar namespace lo encontre aqui
http://www.validacfd.com/phpbb3/viewtopic.php?f=9&t=172