Histórico da Página

...

field in-evento-programa                as char format "x(10)"
field nm-ponto-chamada                as char format "x(15)"
field vl-total-nota                          like     like notaserv.vl-total
field nr-rowid-usuario                      as rowid
field dt-emissao-aux                       as date
field tt-valor-tot                                as dec format ">>>,>>>,>>9.9999"
field qt-usuario                                as int
field cd-modalidade                        like propost.cd-modalidade
field nr-proposta                             like propost.nr-proposta
field cd-plano                                  like propost.cd-plano
field cd-tipo-plano                            like like propost.cd-tipo-plano
field mm-referencia                        as as int format "99"
field aa-referencia                          as int format "9999"
field dt-referencia                          as   as date
field nr-ter-adesao                         like  like propost.nr-ter-adesao
field cd-contratante                        like propost.cd-contratante
field cd-contratante-origem           like propost.cd-contratante
field nr-sequencia                          like notaserv.nr-sequencia.

...

field cd-evento                           like fatueven.cd-evento
field cd-imposto                         like dzimposto.cd-imposto
field vl-base                              as   as dec
field pc-aliquota                         like evenimp.pc-aliquota

...

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

field lg-undo-retry                         as logical
field ds-mensagem-erro              as char format "x(75)"
field vl-total-nota                     like      like notaserv.vl-total
field lg-desconsidera-registro     as  as log
field tt-valor-tot                            as dec format ">>>,>>>,>>9.9999"
field qt-usuario                            as int
field ds-retorno                            as char.

...