Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

def temp-table tmp-cpc-at0112c-entrada no-undo

field in-evento-programa programa                            as char format "x(10)"
field nm-ponto-chamada-cpc as cpc                     as char format "x(15)"
field cd-tipo-guia guia                                        like tip-guia.cd-tipo-guia
field cd-unidade-carteira carteira                            like unimed.cd-unimed
field cd-cateira-usuario usuario                              like guiautor.cd-carteira-usuario
field cd-unidade-exec exec                                like preserv.cd-unidade
field cd-prestador-exec like exec                             like preserv.cd-prestador
field cd-esp-exec exec                                      like procguia.cd-esp-prest-executante
field cd-unidade-princ like                               like preserv.cd-unidade
field cd-prestador-princ princ                            like preserv.cd-prestador
field cd-unidade-solic like solic                               like preserv.cd-unidade
field cd-prestador-solic like solic                             like preserv.cd-prestador
field cd-proced-completo as                          as int format "99999999"
field cd-modalidade like                                  like modalid.cd-modalidade
field cd-plano like                                            like propost.cd-plano
field cd-tipo-plano plano                                     like propost.cd-tipo-plano
field ds-motivo motivo                                          as char format "x(750)"
field r-guiautor guiautor                                          as rowid
field vl-custo-op as                                        as dec
field vl-taxa-part as                                        as dec
field vl-tot-val                                            as dec
field lg-dados-internacao like internacao                          like tranrevi.lg-dados-internacao
field r-propost as                                           as rowid
field cd-unid-neg as                                       as int
field cd-transacao like                                     like tranrevi.cd-transacao
field nr-proposta like proposta                                       like propost.nr-proposta
field cd-usuario like                                        like guiautor.cd-usuario
field aa-guia-atendimento                        like guiautor.aa-guia-atendimento
field nr-guia-atendimento                         like guiautor.nr-guia-atendimento
field dt-interna-ini as                                     as date format 99/99/9999
field dt-interna-fim                                    as date format 99/99/9999
field r-usuario as                                           as rowid.

Definição campo a campo da tabela de entrada

...