Árvore de páginas

Versões comparadas

Chave

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

...

Bloco de código
titleTabela Temporária de Entrada e Saída
def temp-table tmpParams no-undo
	field X-Matricula as integer
    field competencia as character.

...

Bloco de código
titleTabela Temporária de Entrada e Saída
def temp-table tmp-titupres no-undo
	field cd-unidade-prestador        like titupres.cd-unidade-prestador
    field cd-prestador                like titupres.cd-prestador
    field cd-tipo-medicina            like titupres.cd-tipo-medicina
    field cod-esp                     like titupres.cod-esp
    field nr-docto                    like titupres.cod-docto-ap
    field parcela                     like titupres.parcela
    field vl-saldo                    like titupres.vl-saldo
    field dt-anoref                   like titupres.dt-anoref
    field nr-perref                   like titupres.nr-perref
    field dt-vencimento               like titupres.dt-vencimento
    field in-tipo-titulo              like titupres.in-tipo-titulo.

...

Bloco de código
titleTabela Temporária de Entrada e Saída
def temp-table tmp-comprovnate no-undo
	field nm-unimed                   like Unimed.nm-unimed
    field mm-aa-venc                  as char format "99/9999"
    field mm-aa-prod                  as char format "99/9999"
    field ds-endereco                 as char
    field nr-cgc                      like unimed.nr-cgc
    field nm-prestador                like preserv.nm-prestador
    field nr-inscricao-inss           like preserv.nr-inscricao-inss
    field nr-cgc-cpf                  like preserv.nr-cgc-cpf
    field vl-remuneracao              as dec
    field vl-base-inss-movto          like titupres.vl-base-inss-movto
    field vl-base-inss-ben-movto      like titupres.vl-base-inss-ben-movto
    field vl-base-inss-jur-movto      like titupres.vl-base-inss-jur-movto
    field vl-base-inss-pro-movto      like titupres.vl-base-inss-jur-movto
    field vl-inss-movto               as dec
    field vl-irf-fisica-movto         like titupres.vl-irf-fisica-movto
    field vl-iss-movto                like titupres.vl-inss-movto
    field vl-cofins-movto             like titupres.vl-cofins-movto
    field vl-pispasep-movto           like titupres.vl-pis-pasep-movto
    field vl-csll-movto               like titupres.vl-inss-movto
    field vl-imp-unico                like titupres.vl-unico-movto
    field vl-saldo                    like titupres.vl-saldo
    field ds-data                     as char format "x(40)"
    field ds-cidade                   as char format "x(40)"
    field nm-responsavel              like preserv.nm-prestador
    field tp-pessoa                   as char format "x(1)".

...