[delphi-br] Arquivo XML
Como adicionar campos num arquivo xml já criado e com dados??? [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Arquivo XML
Ainda não estou conseguindo, veja como estou fazendo:
//Carrego XML Anterior
cds1.LoadFromFile('Origem.xml');
cds1.Close;
//Adiciono o Campo Desejado
cds1.FieldDefs.Add('NovoCampo',ftString,10,False);
cds1.FieldDefs.Update;
cds1.CreateDataSet;
//Salvo o XML
cds1.SaveToFile('Destino.xml',dfXML);
//Depois Carrego o Novo XML
cds1.LoadFromFile('Destino.xml');
O que estou fazendo de errado? O XML de destino continua igual o de origem.
Fábio Thomaz
RG System Informática Ltda - Desenvolvimento
Msn: fa...@rgsystem.com.br
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Arquivo XML
Fabio faça um teste com base em um form novo, se vc primeiro faz o
loadfromfile (origem.xml) logo você carregará os campos já contidos no seu
xml anterior, se você deseja adicionar um campo eu recomendo que você só
carregue depois do createdataset ou seja seu código ficaria assim :
cds1.Close;
//Adiciono o Campo Desejado
cds1.FieldDefs.Add('NovoCampo',ftString,10,False);
cds1.FieldDefs.Update;
cds1.CreateDataSet;
//Salvo o XML
cds1.SaveToFile('Destino.xml',dfXML);
//Depois Carrego o Novo XML
cds1.LoadFromFile('Destino.xml');
Assim seu campo será adicionando em seu NOVO xml contendo o campo.. e já
será salvo em seguida. Só depois então, você fará o carregamento dele ...
Abraços,
Daniel
2009/2/12 Fabio Thomaz fabio_...@yahoo.com.br
Ainda não estou conseguindo, veja como estou fazendo:
//Carrego XML Anterior
cds1.LoadFromFile('Origem.xml');
cds1.Close;
//Adiciono o Campo Desejado
cds1.FieldDefs.Add('NovoCampo',ftString,10,False);
cds1.FieldDefs.Update;
cds1.CreateDataSet;
//Salvo o XML
cds1.SaveToFile('Destino.xml',dfXML);
//Depois Carrego o Novo XML
cds1.LoadFromFile('Destino.xml');
O que estou fazendo de errado? O XML de destino continua igual o de origem.
Fábio Thomaz
RG System Informática Ltda - Desenvolvimento
Msn: fa...@rgsystem.com.br fabio%40rgsystem.com.br
[As partes desta mensagem que não continham texto foram removidas]
--
Abraços,
Daniel.
Sempre que a vida lhe apresentar um desafio, tenha certeza que junto dele
está a solução,
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Arquivo XML
Não sei se te ajuda mais segue um exemplo de como trabalhar com XML
Uses
MSXML_TLB,
XMLDoc,ActiveX,
ComObj ;
function CriarXMLRemessa:String;
var vXMLDoc : TXMLDocument;
ContRps, ContItens, ContDeducoes: Integer;
begin
vXMLDoc := TXMLDocument.Create(Nil);
With vXMLDoc do begin
Active := True;
Version := '1.0';
Encoding := 'UTF-8';
AddChild('ns1_ReqEnvioLoteRPS','');
DocumentElement.Attributes['xmlns:ns1'] := '
http://localhost:8080/WsNFe2/lote';
DocumentElement.Attributes['xmlns:tipos']:= '
http://localhost:8080/WsNFe2/tp';
DocumentElement.Attributes['xmlns:xsi'] := '
http://www.w3.org/2001/XMLSchema-instance';
DocumentElement.Attributes['xsi:schemaLocation'] := '
http://localhost:8080/WsNFe2/lote
http://localhost:8080/WsNFe2/xsd/ReqEnvioLoteRPS.xsd';
{DocumentElement.Attributes['xmlns:ns1'] := 'lote';
DocumentElement.Attributes['xmlns:tipos']:= 'tp';
DocumentElement.Attributes['xmlns:xsi'] := '
http://www.w3.org/2001/XMLSchema-instance';
DocumentElement.Attributes['xsi:schemaLocation'] := 'lote
http://localhost:8080/WsNFe2/xsd/ReqEnvioLoteRPS.xsd'; }
DocumentElement.AddChild('Cabecalho');
With DocumentElement.ChildNodes['Cabecalho'] do begin
ChildNodes['CodCidade'].NodeValue:= Cabecalho.CodCidade;
ChildNodes['CPFCNPJRemetente'].NodeValue :=
Cabecalho.CPFCNPJRemetente;
ChildNodes['RazaoSocialRemetente'].NodeValue :=
Cabecalho.RazaoSocialRemetente;
ChildNodes['transacao'].NodeValue:= Cabecalho.transacao ;
ChildNodes['dtInicio'].NodeValue :=
FormatdateTime('-mm-dd',StrToDate( Cabecalho.dtInicio ));
ChildNodes['dtFim'].NodeValue:=
FormatdateTime('-mm-dd',StrToDate( Cabecalho.dtFim ));
ChildNodes['QtdRPS'].NodeValue := Cabecalho.QtdRps ;
ChildNodes['ValorTotalServicos'].NodeValue :=
Cabecalho.ValorTotalServicos;
ChildNodes['ValorTotalDeducoes'].NodeValue :=
Cabecalho.ValorTotalDeducoes;
ChildNodes['Versao'].NodeValue := '1';
end;
DocumentElement.AddChild('Lote');
For ContRps := 0 to Cabecalho.QtdRps - 1 do begin
DocumentElement.ChildNodes['Lote'].AddChild('RPS');
with DocumentElement.ChildNodes['Lote'].ChildNodes.Last do begin
ChildNodes['Assinatura'].NodeValue :=
ArrayRPS[ContRps].Assinatura ;
ChildNodes['InscricaoMunicipalPrestador'].NodeValue :=
ArrayRPS[ContRps].InscricaoMunicipalPrestador ;
ChildNodes['RazaoSocialPrestador'].NodeValue:=
ArrayRPS[ContRps].RazaoSocialPrestador ;
ChildNodes['TipoRPS'].NodeValue :=
ArrayRPS[ContRps].TipoRPS ;
ChildNodes['SerieRPS'].NodeValue :=
ArrayRPS[ContRps].SerieRPS ;
ChildNodes['NumeroRPS'].NodeValue:=
ArrayRPS[ContRps].NumeroRPS;
ChildNodes['DataEmissaoRPS'].NodeValue :=
FormatdateTime('-mm-dd',StrToDate( ArrayRPS[ContRps].DataEmissaoRPS)) ;
ChildNodes['SituacaoRPS'].NodeValue :=
ArrayRPS[ContRps].SituacaoRPS ;
ChildNodes['SerieRPSSubstituido'].NodeValue :=
ArrayRPS[ContRps].SerieRPSSubstituido ;
ChildNodes['NumeroRPSSubstituido'].NodeValue :=
ArrayRPS[ContRps].NumeroRPSSubstituido;
ChildNodes['NumeroNFSeSubstituida'].NodeValue:=
ArrayRPS[ContRps].NumeroNFSeSubstituida;
ChildNodes['DataEmissaoNFSeSubstituida'].NodeValue :=
FormatdateTime('-mm-dd',StrToDate(
ArrayRPS[ContRps].DataEmissaoNFSeSubstituida));
ChildNodes['SeriePrestacao'].NodeValue :=
ArrayRPS[ContRps].SeriePrestacao ;
ChildNodes['InscricaoMunicipalTomador'].NodeValue :=
ArrayRPS[ContRps].InscricaoMunicipalTomador ;
ChildNodes['CPFCNPJTomador'].NodeValue:=
ArrayRPS[ContRps].CPFCNPJTomador ;
ChildNodes['RazaoSocialTomador'].NodeValue:=
ArrayRPS[ContRps].RazaoSocialTomador ;
ChildNodes['TipoLogradouroTomador'].NodeValue :=
ArrayRPS[ContRps].TipoLogradouroTomador ;
ChildNodes['LogradouroTomador'].NodeValue :=
ArrayRPS[ContRps].LogradouroTomador ;
ChildNodes['NumeroEnderecoTomador'].NodeValue :=
ArrayRPS[ContRps].NumeroEnderecoTomador ;
ChildNodes['TipoBairroTomador'].NodeValue :=
ArrayRPS[ContRps].TipoBairroTomador ;
ChildNodes['BairroTomador'].NodeValue :=
ArrayRPS[ContRps].BairroTomador ;
ChildNodes['CidadeTomador'].NodeValue :=
TFuncoesDll.StrZero( ArrayRPS[ContRps].CidadeTomador, 7 );
ChildNodes['CidadeTomadorDescricao'].NodeValue:=
ArrayRPS[ContRps].CidadeTomadorDescricao ;
ChildNodes['CEPTomador'].NodeValue:=
ArrayRPS[ContRps].CEPTomador ;
ChildNodes['EmailTomador'].NodeValue :=
ArrayRPS[ContRps].EmailTomador ;
ChildNodes['CodigoAtividade'].NodeValue :=
ArrayRPS[ContRps].CodigoAtividade ;
ChildNodes['AliquotaAtividade'].NodeValue
[delphi-br] Arquivo XML
Olá amigos,
Tenho um arquivo XML com vários registros, gostaria de saber se alguém
sabe como fazer para que eu possa adicionar mais um Field dentro deste
arquivo.
Já tentei cds.FieldDefs.Add('NomeCampo',ftString,10,False) e depois
cds.SaveToFile('',dfXML) más o campo não é incluso no arquivo xml, alguma
idéia?
Ex.:
cds1.FieldDefs.Add('Campo',ftString,10,False);
cds1.FieldDefs.Update;
cds1.SaveToFile('NovaTabela.xml',dfXML);
Desde já agradeço.
--
Fábio Thomaz
RG System Informática Ltda - Desenvolvimento
Msn: fa...@rgsystem.com.br
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Arquivo XML
é necessário você fazer um createdataset primeiro
CDS.CreateDataSet;
CDS.SaveToFile();
2009/2/11 Fabio Thomaz fabio_...@yahoo.com.br
Olá amigos,
Tenho um arquivo XML com vários registros, gostaria de saber se alguém
sabe como fazer para que eu possa adicionar mais um Field dentro deste
arquivo.
Já tentei cds.FieldDefs.Add('NomeCampo',ftString,10,False) e depois
cds.SaveToFile('',dfXML) más o campo não é incluso no arquivo xml, alguma
idéia?
Ex.:
cds1.FieldDefs.Add('Campo',ftString,10,False);
cds1.FieldDefs.Update;
cds1.SaveToFile('NovaTabela.xml',dfXML);
Desde já agradeço.
--
Fábio Thomaz
RG System Informática Ltda - Desenvolvimento
Msn: fa...@rgsystem.com.br fabio%40rgsystem.com.br
[As partes desta mensagem que não continham texto foram removidas]
--
Abraços,
Daniel.
Sempre que a vida lhe apresentar um desafio, tenha certeza que junto dele
está a solução,
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Arquivo XML x Arquivo XLM
XLM é macro do excel. Em 25/07/07, Robson Tazinaffo [EMAIL PROTECTED] escreveu: Qual a diferença entre arquivo XML e XLM ??? São os mesmos ou XLM não existe... Obs.: Pergunta de leigo... -- Anderson Caco Marques Ferraz 2.º Período de Engenharia da Computação - UEFS A player who makes the team great is more valuable than a great player. Losing yourself in the group, for the good of the group, that's teamwork. (John Wooden) [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Arquivo XML x Arquivo XLM
Qual a diferença entre arquivo XML e XLM ??? São os mesmos ou XLM não existe... Obs.: Pergunta de leigo...
[delphi-br] Arquivo XML
Galera, Tenho um arquivo XML e não consigo abri-lo no ClientDataSet, é uma tabela de preço, que eu precisa imporar para meu sistema, mais não tenho a minima ideia de como fazer para incorporar no mu sistema, pois é um xml que não foi gerado no delphi. Nem sei de onde ele vem .rs.rs.rs Estou colocando o XML em anexo para alguem tentar me dar uma luz, ou eu desencanar de vez .. rs.rs.rs Abraços.. Filippe Maymone [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
