Relatórios financeiros por tipo de fluxo.

vc pode ler as contas contabeis direto no modulo CMG, porem os custos de RH é global, porque na integração com o HCM ele traz um valor unico, mas é por estabelecimento.

se for usar o CMG não tem como listar os titulos.

Então, se vc pegar a tabela item_lancto_ctbl e sabendo qual é o numero da conta contabil que se refere cada item da sua planilha, vc tem o que precisa ....

Código:

        for each ttUnidade no-lock:
            for each estabelecimento no-lock:
                find first cst_caixa_estoque no-lock
                     where cst_caixa_estoque.cod-canal-venda = tt-param.codCanalVenda
                           no-error.
                if avail cst_caixa_estoque then do:
                    find first cst_caixa_estoq no-lock
                         where cst_caixa_estoq.cod-canal-venda = tt-param.codCanalVenda
                           and cst_caixa_estoq.cod-estabel     = estabelecimento.cod_estab
                               no-error.
                    if not avail cst_caixa_estoq then next.
                end.
                for each item_lancto_ctbl use-index tmlnctcb_estab no-lock
                    where item_lancto_ctbl.cod_estab           = estabelecimento.cod_estab
                      and item_lancto_ctbl.cod_plano_cta_ctbl  = ttContas.cod_plano_cta_ctbl
                      and item_lancto_ctbl.cod_cta_ctbl        = ttContas.cod_cta_ctbl
                      and item_lancto_ctbl.ind_sit_lancto_ctbl = 'ctbz'
                      and item_lancto_ctbl.dat_lancto_ctbl    >= tt-param.periodoInicial
                      and item_lancto_ctbl.dat_lancto_ctbl    <= tt-param.periodoFinal
                    ,
                    first lancto_ctbl of item_lancto_ctbl no-lock:
                    acomp:acompanhar(substitute('Lendo CTB &1 &2 &3 &4', ttContas.cod_plano_cta_ctbl, ttContas.cod_cta_ctbl, item_lancto_ctbl.cod_unid_negoc, item_lancto_ctbl.dat_lancto_ctbl)).

                    if item_lancto_ctbl.cod_unid_negoc <> ttUnidade.cod-unid-negoc then next.
                    if not tt-param.listarCEPCTB then do:
                        if lancto_ctbl.cod_modul_dtsul      = 'CEP'                    then next.
                    end.

no meu caso, os lancamentos de origem CEP (estoque) eu ignoro, porque eu busco direto da movto-estoq ....

Código:

    for each movto-estoq use-index data-conta no-lock
        where movto-estoq.dt-trans       >= tt-param.periodoInicial
          and movto-estoq.dt-trans       <= tt-param.periodoFinal:

        assign gravarRegistro = no.

        for each ttContas no-lock
            where ttContas.cod_cta_ctbl >= tt-param.codCtaCtblInicial
              and ttContas.cod_cta_ctbl <= tt-param.codCtaCtblFinal:

            if substring(movto-estoq.conta-contabil,1,8) = ttContas.cod_cta_ctbl then assign gravarRegistro = yes.
            if movto-estoq.ct-codigo                     = ttContas.cod_cta_ctbl then assign gravarRegistro = yes.
        end.

        if not gravarRegistro then next.