cpc-rtquanttecn.p

• Rotina utilizada ao processar as regras do quantitativo técnico.
• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
• Será permitido para esta CPC apenas um registro na tabela temporária de saída. Caso possuir mais de um registro um erro será reportado.

Localização

• Dentro do quantitativo. 

Ponto de Utilização

• "ESTORNA-QTD"
• "INICIO-ROTINA".

Include das definições das tabelas temporárias

• cpc-rtquanttecn.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-rtquantitativo-entrada

def temp-table tmp-cpc-rtquantitativo-entrada no-undo

field in-evento-programa              as char format "x(06)"
field nm-ponto-chamada-cpc       as char format "x(15)"
field dt-periodo-ini                        as date format "99/99/9999" 
field dt-periodo-fim                       as date format "99/99/9999"
field cd-modalidade                     like propost.cd-modalidade
field nr-ter-adesao                       like propost.nr-ter-adesao
field in-tp-movimento                   as char format "x(1)"
field nr-rowid-movimento             as rowid
field in-modulo                             as char
field lg-simula                              as log
field lg-mens-tela                         as log.

Definição campo a campo da tabela de entrada 

• • in-evento-programa - Nome do evento relacionado ao ponto de CPC dentro do programa que a utiliza.
  • nm-ponto-chamada-cpc – Nome do ponto de chamada da CPC dentro do programa que a utiliza. 
  • dt-periodo-ini
  • dt-periodo-fim
  • cd-modalidade - Código da modalidade.
  • nr-ter-adesao - Código do contrato (termo de adesão).
  • in-tp-movimento - Tipo movimento. P - Procedimento; I - Insumo.
  • nr-rowid-movimento
  • in-modulo
  • lg-simula
  • lg-mens-tela
    

Tabela de saída tmp-cpc-rtquantitativo-saida

def temp-table tmp-cpc-rtquantitativo-saida no-undo

                       field lg-undo-retry                         as log
                       field ds-mensagem-erro               as char format "x(75)"
                       field ds-mensagem                       as char format "x(20)"
                       field dt-periodo-ini                         as date format "99/99/9999"
                       field dt-periodo-fim                        as date format "99/99/9999"
                       field lg-continua                            as log
                       field lg-mens-tela                          as log.

Definição campo a campo da tabela de saída

• • lg-undo-retry - Informa ao programa se ocorreu algum na CPC.
  • ds-mensagem-erro - Mensagem de erro retornada do programa CPC.
  • ds-mensagem
  • dt-periodo-ini
  • dt-periodo-fim
  • lg-continua - Indica se o processo deve continuar.
  • lg-mens-tela