CPC-AT0112A.p

• Rotina chamada na opção Modifica do programa de Manutenção Tipo de Guia.
• 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 at0112a.p, ao final da opção modifica, após modificar todos os campos.

Pontos de Utilização

• "OBRIG-LAY-TISS";

Include das definições das tabelas temporárias

• cpc-at0112a.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-at0112a-entrada

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

field in-evento-programa                as char format "x(15)"
field nm-ponto-chamada-cpc         as char format "x(15)"
field cd-tip-guia                               like tip-guia.cd-tipo-guia.

Definição campo a campo da tabela de entrada

• • nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa at0112a.p:

"OBRIG-LAY-TISS"

• • in-evento-programa – Evento do programa que chama a cpc-at0112a.p.
  • cd-tip-guia – Código do registro de guia da tabela TIP-GUIA.

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

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

field lg-erro                        as log

field ds-mensagem           as char format "x(75)"
field lg-retorna-inicio         as log.

Definição campo a campo da tabela de saída tmp-cpc-at0112a-saida

• • lg-erro – Variável que controla se erros aconteceram dentro da CPC deve retornar SIM se erros acontecerem e NÃO se o processo foi concluído por completo;
  • ds-mensagem – Deve conter mensagem de erro, caso ocorram ou qualquer outro tipo de mensagem da cpc.
  • Lg-retorna-inicio – Variável que controla se foi pressionado "ESC" deve retornar sim se pressionado.