CPC-PROCEDURESOLICITATION.P

• Rotina chamada no programa proceduresolicitation.
• 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 programa proceduresolicitation.p.

Ponto de Utilização

• "INTEGRA-GUIA"

Include das definições das tabelas temporárias

• cpc- proceduresolicitation.i

Tabelas de entrada e saída 

Tabela de entrada tmp-cpc-solicitation-entrada

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

field in-evento-programa                     as char format "x(15)"
field nm-ponto-chamada-cpc              as char format "x(15)"
field lg-mens-tela                                 as log
field aa-guia-atendimento                    like guiautor.aa-guia-atendimento
field nr-guia-atendimento                    like guiautor.nr-guia-atendimento.

Definição campo a campo da tabela de entrada

• in-evento-programa – Evento do programa que chama a cpc-proceduresolicitation.
• nm-ponto-chamada-cpc – Nome do ponto de chamada.
• lg-mens-tela – Define se eventuais mensagens deverão aparecer na tela
• aa-guia-atendimento – Ano da guia
• nr-guia-atendimento – Número da guia

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

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

field lg-integra                                 as log
field cd-erro-sistema                      as char format "x(04)"
field ds-mensagem                         as char forma "x(40)".

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

• lg-integra - Variável que retorna informando se a guia será ou não integrada;
• cd-erro-sistema – Retorna o código do erro caso tenha ocorrido;
• ds-mensagem – Retorna a mensagem de erro, caso tenha ocorrido.