CPC-RTDTBASE.P

• Rotina utilizada para permitir a operadora alterar a data base de valorização dos movimentos

...

• .
• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.

Âncora__RefHeading__20495_2053127524__RefHeading__20495_2053127524 Âncora__RefHeading__6650_486694287__RefHeading__6650_486694287 Âncora__RefHeading__1861_213273755__RefHeading__1861_213273755 Âncora__RefHeading__11259_644533341__RefHeading__11259_644533341 Âncora__RefHeading__87157_1756225838__RefHeading__87157_1756225838 

Localização

• Após a identificação, pelo sistema, da data base de valorização do movimento, dentro da rotina rtdtbase.p. Ressalta-se que somente será chamada a CPC caso ela esteja ativa, no cadastro de CPC, e não tenha ocorrido nenhum erro.

...

Ponto de Utilização

"FINAL-PROCESSO"

...

Âncora__RefHeading__1865_213273755__RefHeading__1865_213273755 Âncora__RefHeading__11263_644533341__RefHeading__11263_644533341 Âncora__RefHeading__87161_1756225838__RefHeading__87161_1756225838Include das definições das tabelas temporárias

• cpc-rtdtbase.i

...

__RefHeading__87163_1756225838__RefHeading__87163_1756225838Tabelas de entrada e saída
Âncora__RefHeading__20503_2053127524__RefHeading__20503_2053127524 Âncora__RefHeading__6658_486694287__RefHeading__6658_486694287 Âncora__RefHeading__1869_213273755__RefHeading__1869_213273755anchor__RefHeading__11267_644533341__RefHeading__11267_644533341 Âncora__RefHeading__87165_1756225838__RefHeading__87165_1756225838

Tabela de entrada tmp-cpc-rtdtbase-entrada

def temp-table tmp-cpc-rtdtbase no-undo

field in-evento-programa                             as char format "x(10)"
field nm-ponto-chamada-cpc

...

                     as char format "x(15)"
field in-entidade

...

                                             as char format "x(02)"
field dt-realizacao                                           like moviproc.dt-base-valor
field dt-emissao                                               like moviproc.dt-base-valor
field r-recid-periodo                                       as recid
field r-recid-transacao                                   as recid
field in-movimento

...

                                         as char format "x(01)"
field cd-uni-cart-ben                                       like previesp.cd-unidade
field cd-uni-pres-exec

...

                                   like previesp.cd-unidade
field cd-pres-exec

...

                                           like previesp.cd-prestador
field dt-base-valor                                           like moviproc.dt-base-valor
field dt-informada

...

                                           like moviproc.dt-base-valor

...

...

Definição campo a campo da tabela de entrada

• • • in-evento-programa – Evento do programa que chama a cpc-rtdtbase.p. Os valores desse campo podem ser:
    • "Inclui".
    • nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa rtdtbase.p:
    • "FINAL- PROCESSO".
    • in-entidade – Identifica o modulo do sistema SERIOUS que esta efetuando acesso a rotina

...

• • • .
    • dt-realização – Data de realização do movimento

...

• • • .
    • dt-emissão – Data de emissão do movimento

...

• • • .
    • r-recid-periodo – Recid da tabela PERIMOVI (Períodos de Movimentação)

...

• • • .
    • r-recid-transacao – Recid da tabela TRANREVI (Transação)

...

• • • .
    • in-movimento – Indicação do tipo do movimento (I - Insumo e P – Procedimento)

...

• • • .
    • cd-uni-cart-ben – Unidade da carteira do beneficiário

...

• • • .
    • cd-uni-pres-exec – Unidade do prestador executante

...

• • • .
    • cd-pres-exec – Prestador executante

...

• • • .
    • Dt-base-valor – Data base de valorização, selecionda pelo sistema

...

• • • .
    • Dt-informada – Data base para calculo informada.

...

...

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

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

field dt-base-valor

...

                 like moviproc.dt-base-valor
field lg-undo-retry

...

                 as log

...

Definição campo a campo da tabela de saída

• • • dt-base-valor – Data base para valorização do movimento. Esta data somente será considerada, quando retornada da CPC, se for válida

...

• • • .
    • 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.