Fórum Exportar dados do ClientDataSet para XML #338782

procedure TFSF_ImprimirRecibo.GetPessoasFJ;
var
  PFisicas,
  PJuridicas : IXMLDOMDocument2;

  Dados_PFisicas,
  Dados_PJuridicas : IXMLDOMNodeList;
begin
  //Get Dados de Pessoas Físicas;
  PFisicas := CoDOMDocument40.Create;

  //Verifica se o arquivo existe na raiz do Exe
  if not FileExists(LocalExe + ´PESSOASFISICAS.xml´) then
  begin
    ShowErrMsg(´<PESSOASFISICAS.xml> não encontrado.´, emAdvtOk);
    Abort;
  end;
  //Carregar os dados do XML
  PFisicas.load(LocalExe + ´PESSOASFISICAS.xml´);
  //SelectNodes faz o filtro no XML de acordo com os campos definidos no CDS (OBS. Casesensitive)
  Dados_PFisicas := PFisicas.selectNodes(´/PESSOASFISICAS/PessoaFisica/Pessoa´);
  //Atribuir ao Cds os dados filtrados
  XmlToCds(Dados_PFisicas,cds_PessoasFisicas,false);

  /////Dados de Pessoas Jurídicas

  //Get Dados de Pessoas Jurídicas;
  PJuridicas := CoDOMDocument40.Create;

  //Verifica se o arquivo existe na raiz do Exe
  if not FileExists(LocalExe + ´PESSOASJURIDICAS.xml´) then
  begin
    ShowErrMsg(´<PESSOASJURIDICAS.xml> não encontrado.´, emAdvtOk);
    Abort;
  end;
  //Carregar os dados do XML
  PJuridicas.load(LocalExe + ´PESSOASJURIDICAS.xml´);
  //SelectNodes faz o filtro no XML de acordo com os campos definidos no CDS (OBS. Casesensitive)
  Dados_PJuridicas := PJuridicas.selectNodes(´/PESSOASJURIDICAS/PessoaJuridica/Pessoa´);
  //Atribuir ao Cds os dados filtrados
  XmlToCds(Dados_PJuridicas,cds_PessoasJuridicas,false);

  ////////////////////////////////////////
  // Pegar os dados dos dois CDS (PJ e PF) e atribuir ao CDS_PESSOAS
  ////////////////////////////////////////

  //Percorer o Pessoas Fisicas
  cds_Pessoas.Close;
  cds_Pessoas.CreateDataSet;

  while not cds_PessoasFisicas.EOF do
  begin
    cds_Pessoas.Append;
    cds_PessoasCODG_PESSOA.asString         := cds_PessoasFisicasCODG_PESSOA.asString;
    cds_PessoasNUME_CPFCNPJ.asString        := cds_PessoasFisicasNUME_CPF.asString;
    cds_PessoasNOME.asString                := cds_PessoasFisicasNOME.asString;
    cds_PessoasINDI_TIPOPESSOA.asString     := ´F´;
    cds_PessoasFiltro.asString              := cds_PessoasFisicasCODG_PESSOA.asString + ´F´; //Concatenado para ser filtrado
    cds_PessoasINDI_FICHA_COMPLETA.AsString := cds_PessoasFisicasINDI_FICHA_COMPLETA.asString;
    cds_Pessoas.Post;
    cds_PessoasFisicas.Next;
  end;

  //Percorrer Pessoas Juridicas
  while not cds_PessoasJuridicas.EOF do
  begin
    cds_Pessoas.Append;
    cds_PessoasCODG_PESSOA.asString         := cds_PessoasJuridicasCODG_PESSOA.asString;
    cds_PessoasNUME_CPFCNPJ.asString        := cds_PessoasJuridicasNUME_CNPJ.asString;
    cds_PessoasNOME.asString                := cds_PessoasJuridicasNOME.asString;
    cds_PessoasINDI_TIPOPESSOA.asString     := ´J´;
    cds_PessoasFiltro.asString              := cds_PessoasJuridicasCODG_PESSOA.asString + ´J´;
    cds_PessoasINDI_FICHA_COMPLETA.AsString := cds_PessoasJuridicasINDI_FICHA_COMPLETA.asString;
    cds_Pessoas.Post;
    cds_PessoasJuridicas.Next;
  end;
end;

function TFSF_DMPessoaJuridica.GerarXML_PessoasJuridicas(table:TClientDataSet):Integer;
var
  i   : Integer;
  xml : String;
  ls_Registro : String;
  item : IXMLDOMAttribute;
begin
  try
    xml  := ´PESSOASJURIDICAS´;
    doc  := CreateOleObject(´Microsoft.XMLDOM´) as IXMLDomDocument;

    root := doc.createElement(xml);
    doc.appendchild(root);

    //////////////////gravar os dados da pessoa jurídica//////////////////
    child := doc.createElement(´PessoaJuridica´);
    root.appendchild( child );

    table.First;
    while not table.eof do
    begin
      ls_Registro := ´´;
      ls_Registro := ´Pessoa´;
      child1 := doc.createElement( ls_Registro  );
      for i := 0 to ( table.FieldCount - 1 ) do
      begin
        item := doc.createAttribute( table.Fields[i].FieldName );
        item.value := VarToStr( table.Fields[i].Value );
        child1.setAttributeNode( item );
      end;
      child.appendchild( child1 );
      table.Next;
    end; //while
    Result:=1;
  except
    on e:Exception do
      Result:=-1;
  end;