Rotina utilizada para geração de notas de serviço on-line.
Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
Localização
Ponto "CRITICA-BENEF": Após a exibição dos dados da nota de serviço em tela.
Ponto de Utilização
"CRITICA-BENEF"
Include das definições das tabelas temporárias
cpc- fp0511i.i
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-fp0511i-entrada
def temp-table tmp-cpc-fp0511i-entrada no-undo
field nm-ponto-chamada-cpc as char format "x(15)"
field in-evento-programa as char format "x(10)"
field cd-modalidade like notaserv.cd-modalidade
field nr-ter-adesao like notaserv.nr-ter-adesao
field cd-contratante like notaserv.cd-contratante
field cd-contratante-origem like notaserv.cd-contratante-origem
field aa-referencia like notaserv.aa-referencia
field mm-referencia like notaserv.mm-referencia
field nr-sequencia like notaserv.nr-sequencia.
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 fp0511i.p.
in-evento-programa – Evento do programa que chama a cpc.
cd-modalidade – código da modalidade do contratante.
nr-ter-adesao – número do termo de adesão do contratante.
cd-contratante – código do contratante/cliente integrado com administrativo.
cd-contratante-origem – código do contratante origem.
aa-referencia – ano de referência da nota de serviço
mm-referencia – mês de referencia da nota de serviço
nr-sequencia – número de sequência da nota de serviço.
Tabela de saída tmp-cpc-fp0511i-saida
def temp-table tmp-cpc-fp0511i-saida no-undo
field lg-undo-retry as log
field ds-mensagem-erro as char format "x(100)".
Definição campo a campo da tabela de saída
lg-undo-retry – Variável que controla se erros aconteceram dentro da CPC. Se o retorno desta variável for igual a SIM, indicará que erros aconteceram e se o retorno for igual à NÃO, indicará que o processo foi concluído por completo.
ds-mensagem-erro – Variável que retornar mensagem de erro, se ocorrido dentro da CPC.