Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

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.

...

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

run prgfin/apb/apb532za.py persisten set v_hdl_api.

...

      field ttv_cod_estab_ant as character format "x(5)" column-label "Estab AN"
      field ttv_num_id_ant as integer format "999999999" initial 0 label "Token Tít AN" column-label "Token Tít AN"
      field ttv_cod_estab_tit_ap as character format "x(5)" column-label "Estab Tít"
      field ttv_num_id_tit_ap as integer format "999999999" initial 0 label "Token Tít AP" column-label "Token Tít AP"
      field ttv_val_vincul as decimal format "->>,>>>,>>>,>>9.99" decimals 2 label "Valor Vinculado" column-label "Valor Vinculado"
      field ttv_val_cotac_indic_econ as decimal format "->>,>>>,>>>,>>9.9999999999" decimals 10 label "Cotação" column-label "Cotação"
      field ttv_des_text_histor as character format "x(2000)" label "Histórico" column-label "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.



Tabela Temporária

Descrição

Entrada/Saída

tt_erro_msg

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

Saída

Atributo

Tipo

Formato

Descrição

Obrig.

Evol.

ttv_num_msg_erro

integer>>>>>>9Número do ErroSim


ttv_des_msg_erro

characterx(60)Mensagem de ErroSim


ttv_des_help_erro

characterx(200)Texto de Ajuda do ErroSim



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.

...