[RESOLVIDO] Api para Antecipação APB

Código:

    define variable handleProgram as handle no-undo.
   
    {ems5/prgfin/apb/apb905zd.i}

    define new shared temp-table tt_log_erros_atualiz no-undo
        field tta_cod_estab                    as character format "x(5)"               label "Estabelecimento"     column-label "Estab"
        field tta_cod_refer                    as character format "x(10)"              label "Referencia"          column-label "Referencia"
        field tta_num_seq_refer                as integer   format ">>>9"     initial 0 label "Sequencia"           column-label "Seq"
        field ttv_num_mensagem                 as integer   format ">>>>,>>9"           label "Numero"              column-label "Numero Mensagem"
        field ttv_des_msg_erro                 as character format "x(60)"              label "Mensagem Erro"       column-label "Inconsistencia"
        field ttv_des_msg_ajuda                as character format "x(40)"              label "Mensagem Ajuda"      column-label "Mensagem Ajuda"
        field ttv_ind_tip_relacto              as character format "X(15)"              label "Tipo Relacionamento" column-label "Tipo Relac"
        field ttv_num_relacto                  as integer   format ">>>>,>>9"           label "Relacionamento"      column-label "Relacionamento".


        empty temp-table tt_log_erros_atualiz.
        run prgfin/apb/apb905zd.py persistent set handleProgram.
        run pi_main_block_antecip_pef_pend_5 in handleProgram (input 5,
                                                               input 'GE-001',
                                                               input-output table tt_integr_apb_antecip_pef_p1,
                                                               input        table tt_integr_apb_aprop_ctbl_pend,
                                                               input        table tt_integr_apb_impto_impl_pend,
                                                               input        table tt_integr_apb_abat_prev_provis,
                                                               output       table tt_log_erros_atualiz,
                                                               input        table tt_1099,
                                                               input        table tt_ord_compra_tit_ap_pend_1,
                                                               input-output table tt_params_generic_api,
                                                               input        table tt_docum_est_esoc_api,
                                                               input        table tt_item_doc_est_esoc_api).

        if can-find(first tt_log_erros_atualiz) then do:
            for each tt_log_erros_atualiz no-lock:
            end.
        end.
       
        delete object handleProgram.