Histórico da Página

...

field nm-ponto-chamada                    as char format "x(2015)"
field tpin-movimentoevento-parprograma                         as char format "x(110)"
field rowiddt-movto                                as rowid
field cd-cod-glo-parvalidade                                  like movrcglo.cd-cod-glo
field ds-observacao                            like moviproc.ds-observacaopartic-limit.dt-validade.

Definição campo a campo da tabela de entrada

• nm-ponto-chamada – Ponto de chamada da CPC;tp
• in-movimento-par – Tipo de movimento – P para procedimento e I para insumo;
• rowid-movto – RowID da tabela moviproc caso tp-movimento-par seja procedimento ou RowID da tabela mov-insu caso tp-movimento-par seja insumo.
• cd-cod-glo-par – Código da glosa para o movimento sendo analisado;
• evento-programa - Nome do evento da CPC "LIB-DATA-RETRO"
• dt-validade - Data da validade do registrods-observacao – A observação informada no sistema.

Tabela de saida tmp-cpc-fp0210o-saida

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

field lg-undo-erro retry                                           as log
field ds-mensagem-erro                     as char format "x(50)"
field lg-undo-retry mensagem                                  as logchar  
field dslg-permite-observacaodata                             like moviproc.ds-observacao .as log.

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

• lg-erro – Indica undo-retry - Indica se ocorreu algum erro na CPC;
• ds-mensagem -erro – Aponta a mensagem de erro que ocorreu na CPC.
• lg-undopermite-data - retry – Indica se ocorreu algum erro na CPC;ds-observacao – A observação retornada da CPC. Será colocada como observação da contestação do movimento;Indica se permite consultar data de validade menor do que o dia atual.