CPC-AT0111A.p

• Rotina chamada na opção Inclui 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 at0111a.p, ao final da opção inclui, após incluir todos os campos.

Pontos de Utilização

• "OBRIG-LAY-TISS";

Include das definições das tabelas temporárias

• cpc-at0111a.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-at0111a-entrada

def temp-table tmp-cpc-at0111a-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
field lg-obrig-lay-tiss                         as log.

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 at0111a.p:

"OBRIG-LAY-TISS"

• • in-evento-programa – Evento do programa que chama a cpc-at0111a.p.
  • cd-tip-guia – Código do registro de guia da tabela TIP-GUIA.
  • Lg-obrig-lay-tiss – Variável responsável pelo controle de obrigação do layout tiss na autorização.

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

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

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

Definição campo a campo da tabela de saída tmp-cpc-at0111a-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-obrig-lay-tiss – Variável responsavel pelo controle de obrigação do layout tiss na autorização.
  • Lg-retorna-inicio – Variável que controla se foi pressionado "ESC" deve retornar sim se pressionado.