Árvore de páginas

Versões comparadas

Chave

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

...

"TAXA-ADM-ESPEC"

"APOS-ORD-SERV"

        "VER-UNI-TAXA" - disponível a partir da versão 12.1.2403.

Include das definições das tabelas temporárias

...

def temp-table tt-cpc-rtcobval-entrada no-undo

    field in-evento-programa                                      as char format "x(06)"
field nm-ponto-chamada-cpc                     
    field nm-ponto-chamada-cpc         as  as char format "x(15)"
field lg-mensagem-na-tela                    
    field lg-mensagem-na-tela           as logical
    field nr-rowid-out-uni  uni              as rowid
                field nr-rowid-usuario              as rowid
    field cd-tab-preco-proc                            proc             as character format "xxx/99"
    field lg-procedimento  procedimento                                          as logicalas logical
    field cd-unidade-executante  executante                                as as int.

Definição campo a campo da tabela de entrada

    • in-evento-programa- Identifica qual evento deve ser executado no momento que está sendo chamada.
    • nm-ponto-chamada-cpc – Ponto de chamada da cpc.
    • lg-mensagem-tela – Indicador de que as mensagens geradas na CPC poderão ou não ser mostradas em tela.
    • nr-rowid-out-uni – Rowid para a tabela de beneficiários de outras unidades (tabela out-uni).
    • nr-rowid-usuario – Rowid para a tabela de beneficiários da base (tabela usuario).
    • cd-tab-preco-proc – Código da tabela de preço do Procedimento.
    • lg-procedimento – Indicador de que a chamada foi feita para um Procedimento ("P").
    • cd-unidade-executante – Código da unidade do prestador executante.

...

def temp-table tt-cpc-rtcobval-saida no-undo

    field lg-undo-retry  retry                 as logical                                as logical   
    field ds-mensagem-relatorio                     as char format "x(75)"
    field pc-taxa-aca-par  par                                as as dec format ">>9.99999"
    field pc-taxa-acp-par  par                                as as dec format ">>9.99999"
    field lg-continua                      continua                   as logical
    field lg-altera-tab-preco-proc-cob          cob  as logical
    field cd-tab-preco-proc-cob  cob                    like like moviproc.cd-tab-preco-proc-cob.

...

      • lg-undo-retry – Variável que controla os erros que podem ocorrer na CPC.
      • ds-mensagem-relatorio – Variável que recebe a descrição dos erros que ocorreram na CPC.
      • pc-taxa-aca-par – Percentual de taxa a ser cobrada sobre os atos cred. auxiliares.
      • pc-taxa-acp-par – Percentual de taxa a ser cobrada sobre os atos cred. principais.
      • lg-continua – Indica se irá continuar ou não a execução do processo.
      • lg-altera-tab-preco-proc-cob – Indica se irá alterar a tabela de preço de cobrança.
      • cd-tab-preco-proc-cob – Retorna a tabela de preço de cobrança alterada.

...