Fórum Gerar XML sem a tag <metadata> #134405
07/04/2010
0
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
Curtir tópico
+ 0
Responder
Posts
08/04/2010
Douglas Fernandes
up
.
.
.
.
Sobe
.
.
.
.
Sobe
Responder
Gostei + 0
08/04/2010
Douglas Fernandes
Resolvido
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)