Gerar XML sem a tag <metadata>
Pessoal como eu faço para gerar uma xml sem a tag metadata,estou usando uma clienteDataset
If Not FileExists(Arquivo) Then
Begin
Versao := '<?xml version="1.0" standalone="yes"?>';
DATAPACKET := '<DATAPACKET Version="2.0">';
ROWFORNECEDOR := '<ROWFORNECEDOR>';
ClientDataSet1.Insert;
ClientDataSet1.FieldByName('Linha').AsString := Trim(Versao) ;
ClientDataSet1.Insert;
ClientDataSet1.FieldByName('Linha').AsString := Trim(DATAPACKET);
ClientDataSet1.Insert;
ClientDataSet1.FieldByName('Linha').AsString := Trim(ROWFORNECEDOR);
ClientDataSet1.Post;
ClientDataSet1.First;
ClientDataSet1.SaveToFile(ExtractFilePath(Application.ExeName) + 'CotacaoFornec.xml');
End;
If Not FileExists(Arquivo) Then
Begin
Versao := '<?xml version="1.0" standalone="yes"?>';
DATAPACKET := '<DATAPACKET Version="2.0">';
ROWFORNECEDOR := '<ROWFORNECEDOR>';
ClientDataSet1.Insert;
ClientDataSet1.FieldByName('Linha').AsString := Trim(Versao) ;
ClientDataSet1.Insert;
ClientDataSet1.FieldByName('Linha').AsString := Trim(DATAPACKET);
ClientDataSet1.Insert;
ClientDataSet1.FieldByName('Linha').AsString := Trim(ROWFORNECEDOR);
ClientDataSet1.Post;
ClientDataSet1.First;
ClientDataSet1.SaveToFile(ExtractFilePath(Application.ExeName) + 'CotacaoFornec.xml');
End;
Douglas Fernandes
Curtidas 0
Respostas
Douglas Fernandes
07/04/2010
up
.
.
.
.
Sobe
.
.
.
.
Sobe
GOSTEI 0
Douglas Fernandes
07/04/2010
Resolvido
GOSTEI 0