Histórico da Página

...

Realizar a vinculação de Antecipações a Títulos do Contas a Pagar. A vinculação é "Vários para Vários", isto é, poderão ser vinculadas várias Antecipações a um Título ou vice-versa.

...

Parâmetros de entrada

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

p_dat_transacao: Data de Transação que será utilizada para realizar a operação;

tt_titvinc_apan_vlx_compdo: conterá as informações necessárias para encontrar a provisão ou previsão dentro do APB e irá retornar o valor que está comprometido para aquela provisão ou previsão informadatit: Temp-Table com as informações das Antecipações e Títulos que devem ser vinculados.

Parâmetros de saída

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

tt_tit_ap_vl_compdo: conterá as informações necessárias para encontrar a provisão ou previsão dentro do APB e irá retornar o valor que está comprometido para aquela provisão ou previsão informada.

Funcionamento

Na forma padrão, realiza-se a chamada através de um comando RUN normal, passando-se a temp-table carregada com as informações necessárias.

erro_msg: Temp-Table com os erros ocorridos durante a operação.

Funcionamento

A sintaxe para executar a API em modo persistente A sintaxe para a chamada da API/BO é:

run prgfin/apb/

...

apb532za.py persisten set v_hdl_api.

run pi_main_code_api_vinc_an_x_tit_ap in v_hdl_api (input 1,
                                                                                       input p_dat_transacao,
                                                                                       input table tt_vinc_an_x_tit,
                                                                                       output table tt_erro_msg).
delete procedure v_hdl_api.

Tabelas Temporárias

(*) 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_titvinc_apan_vlx_compdo tit no-undo

          field ttattv_cod_estab                    as estab_ant as character format "x(5)" label "Estabelecimento" column-label "Estab AN"
    field tta_cdn_fornecedor               as Integer format ">>>,>>>,>>9" initial 0 label "Fornecedor      field ttv_num_id_ant as integer format "999999999" initial 0 label "Token Tít AN" column-label "FornecedorToken Tít AN"
    field tta      field ttv_cod_estab_espectit_docto              as ap as character format "x(35)" label "Espécie Documentocolumn-label "Estab Tít"
      field ttv_num_id_tit_ap as integer format "999999999" initial 0 label "Token Tít AP" column-label "EspécieToken Tít AP"
    field tta_cod_ser_docto                as character format "x(3)" label "Série Documento      field ttv_val_vincul as decimal format "->>,>>>,>>>,>>9.99" decimals 2 label "Valor Vinculado" column-label "SérieValor Vinculado"
    field tta_cod_tit_ap                   as character format "x(10)" label "Título      field ttv_val_cotac_indic_econ as decimal format "->>,>>>,>>>,>>9.9999999999" decimals 10 label "Cotação" column-label "TítuloCotação"
    field tta_cod_parcela                        field ttv_des_text_histor as character format "x(022000)" label "ParcelaHistórico" column-label "Parc"

    field tta_val_comprtdo_tit_ap          as decimal format "->>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Comprometido d" column-label "Valor Comprometido d"

    field tta_val_sdo_tit_ap               as decimal format "->>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Saldo" column-label "Valor Saldo"

    field ttv_log_existe_tit               as logical format "Sim/NÆo" initial no

Histórico"
      index tt_id is primary unique
                ttv_cod_estab_ant ascending
                ttv_num_id_ant ascending
                ttv_cod_estab_tit_ap ascending
                ttv_num_id_tit_ap ascending.

def temp-table tt_erro_msg no-undo
      field ttv_num_msg_erro as integer format ">>>>>>9" label "Mensagem" column-label "Mensagem"
      field ttv_des_msg_erro as character format "x(60)" label "Mensagem Erro" column-label "Inconsistência"
      field ttv_des_help_erro as character format "x(200)"
      index tt_num_erro
                ttv_num_msg_erro ascending    .