[RESOLVIDO] Conta Contabil e Centro de custo de um movimento do AP no EMS 5

No EMS 5 qual tabela tem a informação da conta contabil e do centro de custo de um movimento do AP ( movto_tit_ap ), pois no EMS 2.06 a mov-ap tinha esta informação e no EMS 5 na movto_tit_ap não tem.
Obs: encontrei a informação nas tabelas aprop_ctbl_ap ( mas será que nesta tabela a informação só vem depois de contabilizar ?) e também encontrei a informação na rat_movto_tit_ap ( mas será que nesta tabela só tem a informação se for feito um rateio? ).
Qual tabela é mais indicada para pegar a informação do movimento do AP.

Bom dia,

Fiz um programa recente que necessitava justamente identificar a Conta Contábil e Centro de Custo e fiz assim:

Se a Origem do Título (tit_ap.ind_origin_tit_ap) for Recebimento, pego na movimentação de estoque campos: movto-estoq.ct-codigo e movto-estoq.sc-codigo.
Para chegar do título à movimentação de estoque, procure o registro do título na docum-est e com esse chega na movimentação de estoque.
Exemplo:
FIND FIRST docum-est NO-LOCK
WHERE docum-est.serie-docto = tit_ap.cod_ser_docto
AND docum-est.nro-docto = STRING(tit_ap.cod_tit_ap,'9999999')
AND docum-est.cod-emitent = tit_ap.cdn_fornecedor NO-ERROR.

IF NOT AVAIL docum-est THEN LEAVE.

ELSE IF movto_cta_corren.ind_fluxo_movto_cta_corren = 'ENT' THEN
i-tipo-trans = 1.
ELSE
i-tipo-trans = 2.

FOR EACH docum-est NO-LOCK
WHERE docum-est.serie-docto = c-cod_ser_docto
AND docum-est.nro-docto = STRING(c-cod_tit_ap,'9999999')
AND docum-est.cod-emitent = c-cdn_fornecedor,
EACH movto-estoq NO-LOCK
WHERE movto-estoq.serie-docto = docum-est.serie-docto
AND movto-estoq.nro-docto = docum-est.nro-docto
AND movto-estoq.cod-emitente = docum-est.cod-emitent
AND movto-estoq.nat-operacao = docum-est.nat-operaca
AND movto-estoq.cod-estabel = c-cod_estab
AND movto-estoq.tipo-trans = i-tipo-trans,
FIRST conta-contab NO-LOCK
WHERE conta-contab.ep-codigo = '1'
AND conta-contab.ct-codigo = movto-estoq.ct-codigo:

ASSIGN c-cod_cta_ctbl = movto-estoq.ct-codigo
c-cod_ccusto = movto-estoq.sc-codigo.
END.



Se a Origem do Título for APB, pego na Apropriação Contábil, campos: aprop_ctbl_ap.cod_cta_ctbl e aprop_ctbl_ap.cod_ccusto.
Exemplo:

FOR EACH aprop_ctbl_ap OF movto_tit_ap NO-LOCK
WHERE aprop_ctbl_ap.ind_natur_lancto_ctbl = 'DB' /* ou CR */:

ASSIGN c-cod_ccusto = STRING(aprop_ctbl_ap.cod_ccusto)
c-cod_cta_ctbl = STRING(aprop_ctbl_ap.cod_cta_ctbl).
END.

Espero ter ajudado,

Abraços.

Muito Obrigado . . .