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

Executar o programa API (utilizar o nome externo), da seguinte forma:

run prgfin/acr/acr741za.py(input  1,

                           input  table tt_integr_ocor_bcia,

                           input  table tt_integr_item_ocor_bcia,

                           output table tt_log_erros_ocor_bcia).

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_integr_ocor_bcia: conterá os dados da ocorrência bancária;

tt_integr_item_ocor_bcia:  conterá os dados dos títulos que receberão a ocorrência bancária

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

Tabelas Temporárias

(*) A partir da 5.07A o estabelecimento passa a ter cinco dígitos.

def temp-table tt_integr_item_ocor_bcia no-undo

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

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

    field ttv_rec_ocor_bcia                as recid format ">>>>>>9"

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

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

    index tt_id_item                       is primary unique

          tta_cod_estab                    ascending

          tta_num_id_tit_acr               ascending.

def temp-table tt_integr_ocor_bcia no-undo

    field ttv_cod_tip_ocor_bcia            as character format "x(8)"

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

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

    field ttv_rec_ocor_bcia                as recid format ">>>>>>9"

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

    index tt_id_ocor_bcia                  is primary unique

          ttv_cod_tip_ocor_bcia            ascending

          ttv_rec_ocor_bcia                ascending.

(*) A partir da 5.07A o estabelecimento passa a ter cinco dígitos.

(**) Liberado o número de documento com 16 posições e série com 5, a partir de maio/2011.

def temp-table tt_log_erros_ocor_bcia no-undo

    field ttv_cod_ocor_bcia                as character format "x(30)" label "Ocorrˆncia Bcia" column-label "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 Documento" column-label "Esp‚cie"

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

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

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

    field tta_num_mensagem                 as integer format ">>,>>>,>>9" initial 0 label "Mensagem" column-label "Mensagem"

    field ttv_des_msg                      as character format "x(40)"

    field ttv_des_ajuda                    as character format "x(50)" label "Ajuda" column-label "Ajuda".