Documento de API

Objetivo

Efetuar a importação de ocorrência bancária para títulos do Contas a Receber que já tiveram entrada confirmada no banco. A API aceita as ocorrências bancárias de "Pedido de Baixa", "Baixa cobrança sem título", "Protestar imediatamente", "Cancelar protesto", "Não cobrar juros mora" e "Pedido de Devolução".

Funcionamento

Na forma padrão, realiza-se a chamada do programa em modo persistente, sem a passagem de parâmetros, e em seguida, através de um comando RUN normal, executa-se seu método padrão passando-se os parâmetros com as informações necessárias.

def var v_hdl_program as Handle format ">>>>>>9":U no-undo.Executar o programa API (utilizar o nome externo), da seguinte forma:

run prgfin/acr/

...

acr741zb.py persistent set v_hdl_program.
run pi_main_api_integr_ocor_bcia_2 in v_hdl_program (input

...

2,
                                                   input table tt_integr_ocor_bcia,

...

                                                   input table tt_integr_item_ocor_bcia,

...

                                                   output table tt_log_erros_ocor_bcia).

if valid-handle(v_hdl_program) then
    delete procedure v_hdl_program.

Parâmetro Entrada API Alteração Títulos/Contas a Receber:

num_vers_integr_api: será utilizado para determinar se o programa que está chamando está íntegro com as definições correntes da API;

...

tt_log_erros_estorn_cancel_apb: conterá os dados dos erros ocorridos durante a execusão execução do programa.

Tabelas Temporárias

...

def temp-table tt_integr_item_ocor_bcia no-undo

        field tta_cod_estab                    as estab                    as character format "x(53)" label "Estabelecimento" column-label "Estab"

        field tta_num_id_tit_acr               acr               as integer format "9999999999" initial 0 label "Token Cta Receber" column-label "Token Cta Receber"

        field ttv_reccod_id_ocor_bcia                as recid format ">>>>>>9"bcia             as character format "x(80)"

        field tta_cod_portador                 portador                 as character format "x(5)" label "Portador" column-label "Portador"

        field tta_cod_cart_bcia                as bcia                as character format "x(3)" label "Carteira" column-label "Carteira"

        index tt_id_item                       item                       is primary unique

                    tta_cod_estab                    ascendingestab                    ascending

                    tta_num_id_tit_acr               ascendingacr               ascending
    .

...

def temp-table tt_integr_ocor_bcia no-undo

    field  field ttv_cod_tip_ocor_bcia            as bcia            as character format "x(8)"

    field  field ttv_dat_movto                    as movto                    as date format "99/99/9999" label "Data Movimento" column-label "Data Movimento"

    field  field ttv_log_tit_sdo                  as sdo                  as logical format "Sim/NÆoNão" initial no label "T¡tulos Títulos com Saldo"

    field  field ttv_cod_recid_ocor_bcia                as recid format ">>>>>>9"bcia             as character format "x(80)"

 field     field ttv_log_bloq_tit_envdo_bcia      as bcia      as logical format "Sim/NÆoNão" initial yes

    index  index tt_id_ocor_bcia                  is bcia                  is primary unique

                    ttv_cod_tip_ocor_bcia            ascending          ttvbcia            ascending

          ttv_cod_id_ocor_bcia             ascending
    _rec_ocor_bcia                ascending .

...

    field ttv_cod_ocor_bcia                as character format "x(30)" label "Ocorrˆncia Ocorrência Bcia" column-label "Ocorrˆncia Ocorrência Bcia"

    field tta_cod_estab                    as character format "x(5)" label "Estabelecimento" column-label "Estab"

    field tta_cod_espec_docto              as character format "x(3)" label "Esp‚cie Espécie Documento" column-label "Esp‚cieEspécie"

    field tta_cod_ser_docto                as character format "x(3)" label "S‚rie Série Documento" column-label "S‚rieSérie"

    field tta_cod_tit_acr                  as character format "x(10)" label "T¡tuloTítulo" column-label "T¡tuloTítulo"

    field tta_cod_parcela                  as character format "x(02)" label "Parcela" column-label "Parc"

...