Fórum Criar xml usando TXMLDocument #388291
11/10/2010
0
Boa noite a todos.
Alguem poderia me dar uma luz de como criar o xml abaixo
através do TXMLDocument.
Desde ja agradeço a força
Osvaldo
<?xml version="1.0" encoding="ISO-8859-1" ?>
- <lote idArquivo="090734635" xmlns="http://www.serpro.gov.br/exportacaoweb/schema/LoteRegistroExportacao.html" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.serpro.gov.br/exportacaoweb/schema/LoteRegistroExportacao.html LoteRegistroExportacao.xsd">
<qtdREs>1</qtdREs>
- <registro-exportacao>
<adicao-re-lote>N</adicao-re-lote>
<nr-processo-exportador />
<cpf-exportador />
<cnpj-exportador>00000000000191</cnpj-exportador>
- <enquadramento>
<codigo>80000</codigo>
</enquadramento>
<data-limite />
<percentual-margem-nao-sacada>0.0</percentual-margem-nao-sacada>
<numero-processo />
<rc-vinculado />
<rv-vinculado />
<re-vinculado />
<di-vinculado />
<nome-importador>Importador</nome-importador>
<endereco-importador>Endereco Teste</endereco-importador>
<pais-destino>097</pais-destino>
<pais-importador>097</pais-importador>
- <instrumento-comercial>
<tipo-instrumento>-1</tipo-instrumento>
<codigo>-1</codigo>
</instrumento-comercial>
<orgao-rf-despacho>0817700</orgao-rf-despacho>
<orgao-rf-embarque>0817700</orgao-rf-embarque>
<condicao-venda>CFR</condicao-venda>
<modalidade-transacao>1</modalidade-transacao>
<moeda>220</moeda>
- <re-base>
<valor-total-condicao-venda>1000.0</valor-total-condicao-venda>
<valor-sem-cobertura>0.0</valor-sem-cobertura>
<valor-com-cobertura>1000.0</valor-com-cobertura>
<valor-consignacao>0.0</valor-consignacao>
</re-base>
<condicao-fabricante>S</condicao-fabricante>
<mercadoria-destaque>1803100000</mercadoria-destaque>
<naladi-2002>18031000</naladi-2002>
<descricao-unidade-medida-comercial>FAVAS</descricao-unidade-medida-comercial>
<prazo-pagamento>10</prazo-pagamento>
- <item-mercadoria>
<descricao>item 1</descricao>
<valor-condicao-venda>100.0</valor-condicao-venda>
<valor-local-embarque>10.0</valor-local-embarque>
<quantidade-comercializada>10.0</quantidade-comercializada>
<quantidade-estatistica>10.0</quantidade-estatistica>
<numero-peso-liquido>10.0</numero-peso-liquido>
</item-mercadoria>
- <item-mercadoria>
<descricao>item 2</descricao>
<valor-condicao-venda>200.0</valor-condicao-venda>
<valor-local-embarque>30.0</valor-local-embarque>
<quantidade-comercializada>20.0</quantidade-comercializada>
<quantidade-estatistica>20.0</quantidade-estatistica>
<numero-peso-liquido>20.0</numero-peso-liquido>
</item-mercadoria>
<percentual-comissao-agente>0.0</percentual-comissao-agente>
<tipo-comissao />
<categoria-cota />
<observacao />
<indicador-ccptc />
<indicador-insumo-ccptc />
<indicador-ccrom />
- <fabricante>
<cpf-cnpj>00000000000191</cpf-cnpj>
<sigla-uf-fabric>DF</sigla-uf-fabric>
<qtd-estatistica-fabric>30.0</qtd-estatistica-fabric>
<peso-liquido-fabric>30.0</peso-liquido-fabric>
<valor-moeda-local-embarque>40.0</valor-moeda-local-embarque>
<obs-fabric />
</fabricante>
</registro-exportacao>
</lote>
Osvaldo Anjo
Curtir tópico
+ 0
Responder
Posts
19/03/2013
Samuel Basso
Olá.
Segue código exemplo, talvez ajude:
var
XMLEnvio: TXMLDocument;
XMLEnvio := TXMLDocument.Create(nil);
XMLEnvio.Active := True;
XMLEnvio.AddChild(Produtos).AddChild(Chave).NodeValue := TERR69AB6587d$we;
XMLEnvio.DocumentElement.AddChild(Produto);
XMLEnvio.DocumentElement.ChildNodes[Produto].AddChild(referencia).NodeValue := 100;
XMLEnvio.DocumentElement.ChildNodes[Produto].AddChild(qtd_estoque).NodeValue := 100;
XMLEnvio.DocumentElement.AddChild(Produto);
XMLEnvio.DocumentElement.ChildNodes[Produto].AddChild(referencia).NodeValue := 800;
XMLEnvio.DocumentElement.ChildNodes[Produto].AddChild(qtd_estoque).NodeValue := 35;
XMLEnvio.SaveToFile(ExtractFileDir(Application.ExeName) + \temp.xml);
Segue código exemplo, talvez ajude:
var
XMLEnvio: TXMLDocument;
XMLEnvio := TXMLDocument.Create(nil);
XMLEnvio.Active := True;
XMLEnvio.AddChild(Produtos).AddChild(Chave).NodeValue := TERR69AB6587d$we;
XMLEnvio.DocumentElement.AddChild(Produto);
XMLEnvio.DocumentElement.ChildNodes[Produto].AddChild(referencia).NodeValue := 100;
XMLEnvio.DocumentElement.ChildNodes[Produto].AddChild(qtd_estoque).NodeValue := 100;
XMLEnvio.DocumentElement.AddChild(Produto);
XMLEnvio.DocumentElement.ChildNodes[Produto].AddChild(referencia).NodeValue := 800;
XMLEnvio.DocumentElement.ChildNodes[Produto].AddChild(qtd_estoque).NodeValue := 35;
XMLEnvio.SaveToFile(ExtractFileDir(Application.ExeName) + \temp.xml);
Responder
Gostei + 0
19/03/2013
Douglas
Amigo,
o link abaixo, explica muito bem
como trabalhar com XML Document.
o link abaixo, explica muito bem
como trabalhar com XML Document.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)