cpc-atapi020.p0

Rotina utilizada para recriar sequence na virada do ano.
Gravar a informação do prestador de alto custo.
Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
Localização
Dentro do Atapi020.p antes da criação de uma guia.
Após gravar os dados na tabela guiautor.
Ponto de Utilização
" DROP-SEQ-ORA"
"GRAVA-GUIA"
Include das definições das tabelas temporárias
CPC-ATAPI020.I
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-atapi020-entrada
def temp-table tmp-cpc-atapi020-entrada no-undo
field nm-ponto-chamada as char format "x(15)"
field cd-unidade-prin like preserv.cd-unidade
field cd-prestador-prin like preserv.cd-prestador
field r-guiautoras rowid.
Definição campo a campo da tabela de entrada
nm-ponto-chamada - Indica o nome do ponto de chamada;
cd-unidade-prin – Indica o código da unidade principal;
cd-prestador-prin – Indica o código do prestador principal;
r-guiautor – Rowid da guiautor.
Tabela de saida tmp-cpc-atapi020-saida
def temp-table tmp-cpc-atapi020-saida no-undo
field lg-erro as log
field ds-mensagem as char format "x(75)".
Definição campo a campo da tabela de movimento
lg-erro - 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 – Mensagem da ocorrência do erro no processamento da CPC.