[RESOLVIDO] Conta Contabil

Fala aí Galera...

onde encontro a informação de conta contábil para títulos no módulo apb ??

bye...

O que vc precisa?
vc quer ver qual conta o titulo foi implantando?

Abraços

Obrigado Amigo, problema resolvido. Já já posto aqui o resultado.

bye

Fechado, que bom que foi resolvido...

Posta a solução....

Abraços

Essa leitura no caso de títulos com origem no EMS5. Cabe lembrar que a minha versão é o ems5 5.05 para as versões posteriores já possui uma tabela relacionada a tabela de movto_tit_ap, chamada rat_movto_tit_ap que contém todas as contas contabeis...

PS: Obtive esse resultado com a ajuda do EduardoLeite...

Código:

FOR EACH TIT_AP NO-LOCK WHERE TIT_AP.COD_TIT_AP = "0002136" AND
                              TIT_AP.CDN_FORNECEDOR = 20942 AND
                              TIT_AP.COD_ESTAB      = "102" and
                              tit_ap.cod_espec_docto = "ZU" AND
                              cod_ser_docto         = "":
    MESSAGE TIT_AP.ind_origin_tit_ap
        VIEW-AS ALERT-BOX INFO BUTTONS OK.

    FOR EACH movto_tit_ap NO-LOCK WHERE movto_tit_ap.cod_estab     = tit_ap.cod_estab and
                                        movto_tit_ap.num_id_tit_ap = tit_ap.num_id_tit_ap:
        MESSAGE movto_tit_ap.cod_estab + "," + STRING(movto_tit_ap.num_id_movto_tit_ap)
            VIEW-AS ALERT-BOX INFO BUTTONS OK.
        FOR EACH tab_livre_emsfin no-lock
          where tab_livre_emsfin.cod_modul_dtsul   = "CMG" /*l_apb*/ 
            /*and tab_livre_emsfin.cod_tab_dic_dtsul = "rat_movto_tit_ap"
            and tab_livre_emsfin.cod_compon_1_idx  = movto_tit_ap.cod_estab + "," + STRING(movto_tit_ap.num_id_movto_tit_ap)*/ :

        MESSAGE substr(TAB_livre_emsfin.cod_livre_1,14,6)
                substr(TAB_livre_emsfin.cod_livre_1,30,5)
            VIEW-AS ALERT-BOX INFO BUTTONS OK.
        END.
    END.
END.

/* */

No caso de títulos com origem no ems2...

Código:

FOR EACH TIT_AP NO-LOCK WHERE TIT_AP.COD_ESTAB      = tt-imprime-apb.cod_estab           and
                                      tit_ap.num_id_tit_ap  = tt-imprime-apb.num_id_movto_tit_ap AND
                                      tit_ap.ind_origin_tit_ap = "REC":

            FIND recebimento NO-LOCK WHERE recebimento.numero-nota  = tit_ap.cod_tit_ap     AND
                                           recebimento.cod-emitente = tit_ap.cdn_fornecedor AND
                                           recebimento.serie-docto  = tit_ap.cod_ser_docto  NO-ERROR.
            IF AVAIL recebimento THEN
            DO:
                conta-tit = conta-tit + 1.
                    RUN  pi-acompanhar in h-acomp (input string(recebimento.numero-nota) + " " + 
                                                         STRING(TIT_AP.COD_ESTAB) + "," + 
                                                         STRING(conta-tit) + " REC" + STRING(tt-imprime-apb.dat_movto_fluxo_cx)).

                /*ASSIGN
                    v-conta-contabil = substr(TAB_livre_emsfin.cod_livre_1,14,6).
                    v-ccusto         = substr(TAB_livre_emsfin.cod_livre_1,30,5).*/

                    CREATE tt-cta-apb.
                    ASSIGN tt-cta-apb.cod_estab      = TIT_AP.COD_ESTAB
                           tt-cta-apb.cdn_fornecedor = recebimento.cod-emitente
                           tt-cta-apb.v_cod_tit_ap   = recebimento.numero-nota
                           tt-cta-apb.cta-ctbl       = substr(recebimento.conta-contabil,1,6)
                           tt-cta-apb.ccusto         = substr(recebimento.conta-contabil,10,6).
            END.
        END.

espero que ajude alguém... bye