Á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-bosau-invoice-ge-entrada no-undo
    field nm-ponto-chamada-cpc         as char format "x(15)"
    field in-evento-programa           as char
    field dt-ano-mes-ini               as char
    field dt-ano-mes-fim               as char
    field ix-aux nota                       as  as int
    field in-aux   demap                     as int
    field in-indicador                 as int
    field lg-aux   demap                     as log
    field h-convenio                   as handle
    field cd-contratante               like notaserv.cd-contratante
    field cd-contratante-origem        like notaserv.cd-contratante-origem
    field nr-ter-adesao                like notaserv.nr-ter-adesao
    field cd-modalidade                like notaserv.cd-modalidade
    field cd-modalidade-ini            like notaserv.cd-modalidade
    field cd-modalidade-fim            like notaserv.cd-modalidade
    field ep-codigo-ini                like notaserv.ep-codigo
    field ep-codigo-fim                like notaserv.ep-codigo
    field cd-estabel-ini               like notaserv.cod-estabel
    field cd-estabel-fim               like notaserv.cod-estabel
    field cd-tipo-venc-ini             like notaserv.cd-tipo-vencimento
    field cd-tipo-venc-fim             like notaserv.cd-tipo-vencimento
    field nr-ter-ade-ini               like notaserv.nr-ter-adesao
    field nr-ter-ade-fim               like notaserv.nr-ter-adesao
    field dt-emissao-ini               like notaserv.dt-emissao
    field dt-emissao-fim               like notaserv.dt-emissao
    field dt-vencimento-ini            like notaserv.dt-vencimento
    field dt-vencimento-fim            like notaserv.dt-vencimento
    field cd-especie-ini               like notaserv.cd-especie
    field cd-especie-fim               like notaserv.cd-especie
    field cd-plano-ini                 like propost.cd-plano
    field cd-plano-fim                 like propost.cd-plano
    field cd-tipo-plano-ini            like propost.cd-tipo-plano
    field cd-tipo-plano-fim            like propost.cd-tipo-plano
    field cd-tab-preco-ini             like propost.cd-tab-preco
    field cd-tab-preco-fim             like propost.cd-tab-preco
    field aa-reajuste-ini              like propost.aa-ult-reajuste
    field mm-reajuste-ini              like propost.mm-ult-reajuste
    field aa-reajuste-fim              like propost.aa-ult-reajuste
    field mm-reajuste-fim              like propost.mm-ult-reajuste
    field nr-fatura                    like fatura.nr-fatura
    field aa-referencia                like fatura.aa-referencia
    field mm-referencia                like fatura.mm-referencia
    field cd-especie                   like fatura.cd-especie
    field vl-total -par                     like fatura.vl-total
    field hnr-temp-erro sequencia                  as handle.

    Definição campo a campo da tabela de entrada

...

like notaserv.nr-sequencia
    field h-temp-erro          

...

     

...

 as handle
    field nm-arq            

...

       

...

  as char
    field nm-arq-erro                  as char.

   

        Tabela de entrada tmp-cpc-bosau-invoice-ge-saida

    def temp-table tmp-cpc-bosau-invoice-ge-saida no-undo
    field lg-undo-retry                as log
    field ds-mensagem                  as char
    field lg-next                      as log
    field lg-considera-primeiro        as log initial yes
    field lg-considera-ultimo          as log initial yes
    field lg-primeiro                  as log    
    field lg-ultimo                    as log
    field lg-executa                   as log initial yes
    field lg-return                    as log initial no.

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

...

.

...

...