CPC-RB0110E.P

• Rotina para avaliação da proposta e unidade que está sendo incluída/consultada/alterada.
• 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 rb0110e.p após a leitura da propunim.

Ponto de Utilização

• "CONS-CLIENTE"

Include das definições das tabelas temporárias

• cpc-rb0110e.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-rb0110e-entrada

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

field in-evento-programa                      as char format "x(06)"
field nm-ponto-chamada-cpc               as char format "x(15)"
field cd-modalidade                              like modalid.cd-modalidade
field nr-proposta                                    like propost.nr-proposta.

Definição campo a campo da tabela de entrada

• in-evento-programa – Evento do programa que será passado para a cpc-rb0110e.p.
• nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza.
• cd-modalidade – Código da modalidade da proposta que está sendo calculada.
• nr-proposta – Número da proposta que está sendo calculada.

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

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

field lg-undo-retry                              as logical
field lg-next                                        as logical
field ds-mensagem-relatorio             as char format "x(75)".

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

• lg-undo-retry – Variável que controla se erros aconteceram dentro da CPC deve retornar SIM se erros aconteceram e NÃO se o processo foi concluído por completo.
• Lg-next – Variável que indica se a modalidade e proposta em questão deverão ser ignoradas no momento do cálculo.
• ds-mensagem-relatório – Deve conter mensagens de erro ou qualquer outro tipo de mensagem.