Histórico da Página

...

Rotina utilizada para:

• Busca do produto/consistências quando das opções de inclusão e alteração no cadastro de Pagto Extra/Desconto de Prestadores;
• Indicar quais são os tipos de movimentos possíveis (Procedimentos, Insumos e Quaisquer) quando da inclusão de um evento que não seja correspondente a um pagamento indevido.
• Ao incluir um Movimento Extra, nas opções de Código e de Navegação a cpc é chamada passando o ponteiro (rowid) da tabela de Eventos Extras (movipres).
• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
• Será utilizado para esta CPC apenas um registro na tabela temporária de saída.

...

field in-evento-programa                 as  as char format "x(10)"
field nm-ponto-chamada-cpc           as  as char format "x(15)"
field vl-movimento                            as decimal format ">>>,>>>,>>9.99"
field cd-unidade                                 like preserv.cd-unidade
field cd-prestador                               like preserv.cd-prestador
field cd-evento                                    like like movipres.cd-evento
field r-movipres                                 as rowid.

Definição campo a campo da tabela de entrada

...

field lg-undo-retry                     as      as log
field ds-mensagem                       as char
field cd-modalidade                  like       like modalid.cd-modalidade
field cd-plano                          like         like pla-sau.cd-plano
field cd-tipo-plano                          like ti-pl-sa.cd-tipo-plano
field lg-permite-procedimento      as log
field lg-permite-insumo               as  as log
field lg-permite-qualquer           as    as log.

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

...