Rotina utilizada para permitir a entrada de documento com a série duplicada, quando parametrizado na transação "Tipo d Seqüência = 04 –Seq. Serie/Documento".
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 rc0512n.p. quando da consistência do número do documento com o parâmetro, da transação, "Tipo d Seqüência = 04 –Seq. Serie/Documento" ;
Dentro do programa rc0512n.p, antes da chamada da API de consistência do documento;
Dentro do programa rc0512n.p, após da chamada da API de consistência do documento;
Ponto de Utilização
"SEQ-SERIE-DOCTO" => Rotina utilizada para permitir a entrada de documento com a série duplicada, quando parametrizado na transação "Tipo d Seqüência = 04 –Seq. Serie/Documento".
"ANTES-API" => Rotina utilizada para permitir a alteração de dados da tabela temporária de documentos antes de sua consistência via API.
"APOS-API" => Rotina utilizada para permitir a alteração de dados da tabela temporária de documentos apos sua consistência via API.
Include das definições das tabelas temporárias
CPC-RC0512n.I
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-rc0512n-entrada
def temp-table tmp-cpc-rc0512n-entrada no-undo
field in-evento-programa as char format "x(06)"
field nm-ponto-chamada-cpc as char format "x(15)"
field cd-unidade like preserv.cd-unidade
field cd-unidade-prestadora like preserv.cd-unidade
field cd-transacao like docrecon.cd-transacao
field cd-unidade-principal like docrecon.cd-unidade-principal
field cd-prestador-principal like docrecon.cd-prestador-principal
field nr-serie-doc-original like docrecon.nr-serie-doc-original
field nr-doc-original like docrecon.nr-doc-original
field in-tipo-tabela as int
field nr-seq-interno like docretmp.nr-seq-interno
field cd-tipo-insumo like insumo.cd-tipo-insumo
field cd-insumo like mov-itmp.cd-insumo
field nr-processo like moviptmp.nr-processo
field nr-seq-digitacao like moviptmp.nr-seq-digitacao
field nr-doc-sistema like docrecon.nr-doc-sistema.
Definição campo a campo da tabela de entrada
in-evento-programa – Evento do programa que chama a cpc-rc0512n.p.
"IMPORTACAO"
nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa rc0512n.p:
"SEQ-SERIE-DOCTO".
Cd-unidade – Código da Unidade;
Cd-unidade-prestadora – Código da Unidade Prestadora;
Cd-transacao – Código da Transação;
Cd-unidade-principal – Código da Unidade do prestador principal;
Cd-prestador-principal – Código do prestador Principal;
Nr-serie-doc-original – Número da Série do documento;
Nr-doc-original – Número do documento;
In-tipo-Tabela – 1 – Docrecon/Docretmp , 2 – Moviproc/Moviptmp, 3 - Mov-insu/Mov-itmp.
Nr-seq-interno – Código da sequencia interna da tabela docretmp.
Cd-tipo-insumo – Código do Tipo de Insumo.
Nr-processo – número do processo do movimento.
Nr-seq-digitacao – número da sequência de digitação do movimento.
Nr-doc-sistema – sequência do documento.
Tabela de saída tmp-cpc-rc0512n-saida
def temp-table tmp-cpc-rc0512n-saida no-undo
field lg-undo-retry as log
field ds-mensagem as char format "x(75)".
Definição campo a campo da tabela de saída
lg-undo-retry – 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 – Mensagem de aviso ou de erro.