Fórum coluna_mesmo_campo #27279

Estou com um sério problema, eu tenho que gerar um relatório onde eu tenho ex


Epi                                 CA                             OBS                                     EPI                       CA                    OBS




ou seja, os mesmo campo com 2 colunas. Eu estou usando o freereport, nao sei como fazer isto no free,
estou tentanto fazer no cliente dataset criando por exemplo     EPI1,EPI2,CA1,CA2,OBS1,OBS1 para jogar os valores. Se puder ensinar como fazer no freereport ok senão eu estou mandando o exemplo como eu fiz com clientdataset.


Epi1                             CA1                             OBS1                                     EPI2                    CA2        OBS2           

teoricamente iria funcionar, mas nao estou conseguindo fazer até chego perto, vou te mostar como esta retorna com as instrucao que eu fiz

Epi                                 CA                             OBS                                     EPI                       CA                    OBS
Jose                               23                                eeee                                  errado                 errado              errado
Lucas                             24                               rrrrrrrr                               Joao                       222                   5


onde esta escrito "errado"  no relatório esta tudo em branco, eu nao estou conseguindo por exemplo, jogar
joao , 222 5  para cima para que os campos vazios fiquem por ultimo. Vou mandar o comando inteiro.

sql :
    DMConsulta.cds_conaux.Close;
    DMConsulta.cds_conaux.CommandText  := ' select   codltcat,codfuncao,codsetor,codempresa,codepi,epi.nome,lfse.obs,lfse.ca from ltcat_funcao_setor_epi lfse        '+
                                          ' join epi on(lfse.codepi = epi.codigo) where  lfse.codltcat = '+iCodLtcat+'and lfse.bloq = ''N''  and lfse.flag = ''S'' '+
   ' group by codltcat,codsetor,codfuncao,codempresa,codepi,epi.nome,lfse.obs,lfse.ca  order by lfse.codsetor,lfse.codfuncao   ';
    DMConsulta.cds_conaux.Open;
// agora o procedimento

DMConsulta.cds_conaux.First;
    CodSetAnt     := DMConsulta.cds_conaux.fieldbyname('codsetor').AsString;
    CodFuncAnt    := DMConsulta.cds_conaux.fieldbyname('codfuncao').AsString;
    while not(DMConsulta.cds_conaux.Eof) do
    begin
        funcoesltcatepi.Append;

        funcoesltcatepi.FieldByName('codltcat').AsInteger     :=  DMConsulta.cds_conaux.fieldbyname('codltcat').AsInteger;
        funcoesltcatepi.FieldByName('codempresa').AsInteger   :=  DMConsulta.cds_conaux.fieldbyname('codempresa').AsInteger;
        funcoesltcatepi.FieldByName('codfuncao').AsInteger    :=  DMConsulta.cds_conaux.fieldbyname('codfuncao').AsInteger;
        funcoesltcatepi.FieldByName('codsetor').AsInteger     :=  DMConsulta.cds_conaux.fieldbyname('codsetor').AsInteger;
        funcoesltcatepi.FieldByName('codepi1').AsInteger       :=  DMConsulta.cds_conaux.fieldbyname('codepi').AsInteger;
        funcoesltcatepi.FieldByName('nomeepi1').AsString       :=  DMConsulta.cds_conaux.fieldbyname('nome').AsString;
        funcoesltcatepi.FieldByName('obs1').AsString           :=  DMConsulta.cds_conaux.fieldbyname('obs').AsString;
        funcoesltcatepi.FieldByName('ca1').AsString            :=  DMConsulta.cds_conaux.fieldbyname('ca').AsString;


        DMConsulta.cds_conaux.Next;
        IF NOT (DMConsulta.cds_conaux.EOF) Then
           BEGIN

              IF (CodSetAnt <> DMConsulta.cds_conaux.fieldbyname('codsetor').AsString) OR
                 (CodFuncAnt <> DMConsulta.cds_conaux.fieldbyname('codfuncao').AsString) Then
                 Begin
                   CodSetAnt     := DMConsulta.cds_conaux.fieldbyname('codsetor').AsString;
                   CodFuncAnt    := DMConsulta.cds_conaux.fieldbyname('codfuncao').AsString;
                   Continue;
                 End;

              funcoesltcatepi.FieldByName('codepi2').AsInteger       :=  DMConsulta.cds_conaux.fieldbyname('codepi').AsInteger;
              funcoesltcatepi.FieldByName('nomeepi2').AsString       :=  DMConsulta.cds_conaux.fieldbyname('nome').AsString;
              funcoesltcatepi.FieldByName('obs2').AsString           :=  DMConsulta.cds_conaux.fieldbyname('obs').AsString;
              funcoesltcatepi.FieldByName('ca2').AsString            :=  DMConsulta.cds_conaux.fieldbyname('ca').AsString;
           END;

        CodSetAnt     := DMConsulta.cds_conaux.fieldbyname('codsetor').AsString;
        CodFuncAnt    := DMConsulta.cds_conaux.fieldbyname('codfuncao').AsString;
        funcoesltcatepi.Post;
        DMConsulta.cds_conaux.Next;

    end;