[RESOLVIDO] Saldo Contabil.,

movto-estoq.ct-codigo, se a origem do lancamento for CEP, na verdade vc tem que ler a item_lacto_ctbl para ver o movimento no periodo, lá tem a origem do lancamento, pode ser APB, ACR, CEP ou FGL mesmo, se for AOB ou ACR, vc tem as tabelas de apropriação de cada modulo, se for CEP, usa o campo da movto-estoq, isso que vc quer ?

isso mesmo, é o que eu tenho aqui, esse exemplo é para o contas a pagar .....

Código:

    for each item_lancto_ctbl use-index tmlnctcb_estab no-lock
        where item_lancto_ctbl.cod_empresa         = estabelecimento.cod_empresa
          and item_lancto_ctbl.cod_estab           = estabelecimento.cod_estab
          and item_lancto_ctbl.cod_plano_cta_ctbl  = cta_ctbl.cod_plano_cta_ctbl
          and item_lancto_ctbl.cod_cta_ctbl        = cta_ctbl.cod_cta_ctbl
          and item_lancto_ctbl.ind_sit_lancto_ctbl = 'ctbz'
          and item_lancto_ctbl.dat_lancto_ctbl     = dataTemp
        ,
        first lancto_ctbl of item_lancto_ctbl no-lock:

        if lancto_ctbl.cod_modul_dtsul = 'APB' then do:
           for first aprop_lancto_ctbl of item_lancto_ctbl no-lock:
               for first val_aprop_ctbl_ap of aprop_lancto_ctbl no-lock:
                   for first aprop_ctbl_ap of val_aprop_ctbl_ap no-lock:
                       for first movto_tit_ap of aprop_ctbl_ap no-lock:
                           if movto_tit_ap.num_id_tit_ap <> 0 then do:
                               for first tit_ap of movto_tit_ap no-lock:
                               end.
                           end.
                           else do:
                               for each antecip_pef_pend of movto_tit_ap no-lock:
                                   for first tit_ap no-lock
                                       where tit_ap.cod_estab       = antecip_pef_pend.cod_estab
                                         and tit_ap.cdn_fornecedor  = antecip_pef_pend.cdn_fornecedor
                                         and tit_ap.cod_espec_docto = antecip_pef_pend.cod_espec_docto
                                         and tit_ap.cod_ser_docto   = antecip_pef_pend.cod_ser_docto
                                         and tit_ap.cod_tit_ap      = antecip_pef_pend.cod_tit_ap
                                         and tit_ap.cod_parcela     = antecip_pef_pend.cod_parcela:
                                   end.
                               end.
                           end.
                       end.
                   end.
               end.
           end.
        end.
    end.