CE PLUS - Nota 005916

Módulo: CÂMBIO IMPORTAÇÃO

Funcionalidade: Relatórios

Data/Hora da Publicação: 13/02/2008 00:00:00

Data/Hora Última Alteração: 18/02/2011 09:54:18

Descrição da Nota: COMPLEMENTO DO BOLETO - AJUSTE PARA MOSTRAR O CAMPO CORRET NA TELA

Sintoma

Após ter gravado o código da corretora na table controll do complemento do boleto ref. ao pagto de

fatura de importação, ao executar o comando "imprimir boleto", o código e  nome da corretora não

estão sendo exibidos no boleto.

 

 

Solução

Ajustado para que o programa busque a corretora do local correto.

 

Versões Tratadas

7.0


Pré-Requisitos

Produto:

Nota

Descrição

PROCESSAR BOLETO AGRUPADO PAGTO. FATURA - DUMP IMPRESSÃO

COMPLEMENTO DO BOLETO - COMISSÃO DE AGENTE - DADOS CONTRATO

CODE INSPECTOR , VERIFICAÇÃO AMPLIADA , RELATORIOS GL

COMPLEMENTO DO BOLETO

PROCESSAR BOLETO (AGRUPAR) DESPESAS EXPORTAÇÃO

IMPRESSÃO DO BOLETO

COMPLEMENTO DO BOLETO - AGRUPAMENTO - DADOS CONTRATO

COMPLEMENTO DO BOLETO - ESTORNO PERÍODO FECHADO - FB08

COMPLEMENTO DO BOLETO PROCESSAR BOLETO DESPESAS

COMPLEMENTO DO BOLETO

COMPLEMENTO DO BOLETO - ESTORNO - DESPESA EXP. COM ESTRATÉGIA

COMPLEMENTO DO BOLETO - PROCESSAR BOLETO - CAMPO NRINVOIC

DESPESA EXPORTAÇÃO/COMPLEMENTO DO BOLETO-INVOICE E DADOS DESPESA

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 05916 Data: 13/02/2008 Hora: 14:58:30

----------------------------------------------------------------------------------------------------

 

----------------------------------------------------------------------------------------------------

Nota Número              : 05916

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00004

Agrupamento              : 00034

----------------------------------------------------------------------------------------------------

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

 

01205  - 00001 - 6.0    - 00023  - PROCESSAR BOLETO (AGRUPAR) DESPESAS EXPORTAÇÃO

01236  - 00002 - 6.0    - 00023  - COMPLEMENTO DO BOLETO - AGRUPAMENTO - DADOS CONTRATO

01532  - 00003 - 6.0    - 00024  - COMPLEMENTO DO BOLETO PROCESSAR BOLETO DESPESAS

01550  - 00004 - 6.0    - 00024  - COMPLEMENTO DO BOLETO - PROCESSAR BOLETO - CAMPO NRINVOIC

01564  - 00005 - 6.0    - 00024  - COMPLEMENTO DO BOLETO

02136  - 00006 - 6.0    - 00025  - PROCESSAR BOLETO AGRUPADO PAGTO. FATURA - DUMP IMPRESSÃO

04054  - 00007 - 7.0    - 00002  - DESPESA EXPORTAÇÃO/COMPLEMENTO DO BOLETO-INVOICE E DADOS DESPESA

04288  - 00008 - 7.0    - 00002  - COMPLEMENTO DO BOLETO - COMISSÃO DE AGENTE - DADOS CONTRATO

04625  - 00009 - 7.0    - 00003  - COMPLEMENTO DO BOLETO - ESTORNO - DESPESA EXP. COM ESTRATÉGIA

04634  - 00010 - 7.0    - 00003  - COMPLEMENTO DO BOLETO - ESTORNO PERÍODO FECHADO - FB08

04712  - 00011 - 7.0    - 00003  - COMPLEMENTO DO BOLETO

04883  - 00012 - 7.0    - 00003  - IMPRESSÃO DO BOLETO

05724  - 00013 - 7.0    - 00004  - CODE INSPECTOR , VERIFICAÇÃO AMPLIADA , RELATORIOS GL

----------------------------------------------------------------------------------------------------

COMPLEMENTO DO BOLETO - AJUSTE PARA MOSTRAR O CAMPO CORRET NA TELA

----------------------------------------------------------------------------------------------------

Palavras Chave:

COMPLEMENTO DO BOLETO - AJUSTE PARA MOSTRAR O CAMPO CORRET NA TELA

 

----------------------------------------------------------------------------------------------------

Objetos da nota:

DYNP /PWS/SAPMZYCB110                        0100

REPS /PWS/MZYCB110I01

REPS /PWS/MZYCM110F01

REPS /PWS/MZYGL110F01

REPS /PWS/ZYCBR102

REPS /PWS/ZYCBR107

 

----------------------------------------------------------------------------------------------------

Modificações efetuadas em DYNP /PWS/SAPMZYCB110                        0100

 

* Tela Foi 0100 anexada no chamado.

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCB110I01

 

...

  ENDCASE.

ENDMODULE.

MODULE consiste_preenche_taxa2 INPUT.

  IF /pws/zycbe031-mdcorresp NE 'CP'.

    IF ( sy-ucomm = 'SAVE' OR w_ok = 'SAVE' OR ok_code = 'SAVE' ) AND

       /pws/zycbe031-kursf IS INITIAL.

      MESSAGE e061 WITH text-238.

    ENDIF.

  ENDIF.

ENDMODULE.

* >> Início da inclusão:

module consiste_corretora input.

  READ TABLE itab_zycbt119 WITH KEY NRSEQ = itab_zycbt031_tc-nrcorresp.

  IF sy-subrc EQ 0.

    CHECK NOT itab_zycbt119-corret IS INITIAL AND

              itab_zycbt031_tc-mdcorresp = 'IP'.

    /pws/zycbe048-corret = itab_zycbt119-corret.

  ENDIF.

endmodule.

* << Fim da inclusão

 

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCM110F01

 

...

  LOOP AT itab_zycbt064.

    CLEAR itab_zycbt031_tc.

    READ TABLE itab_zycbt119 WITH KEY nrseq = itab_zycbt064-nrchave.

    IF sy-subrc = 0.

      itab_zycbt031_tc-bukrs         = itab_zycbt119-bukrs.

      itab_zycbt031_tc-gsber         = itab_zycbt119-gsber.

      itab_zycbt031_tc-werks         = itab_zycbt119-werks.

      itab_zycbt031_tc-j_1bbranch    = itab_zycbt119-j_1bbranch.

      itab_zycbt031_tc-nrpagto       = itab_zycbt119-nrpagto.

      itab_zycbt031_tc-nrfat         = itab_zycbt119-nrfat.

* >> Início da inclusão: FORM CARREGA_DADOS_IP

      itab_zycbt031_tc-corret        = itab_zycbt119-corret.

* << Fim da inclusão

      SELECT SINGLE MAX( dtpror ) FROM /pws/zycmt014

                           INTO /pws/zycmt014-dtpror

                           WHERE nrseq = itab_zycbt119-nrseq.

      IF sy-subrc = 0 AND

         /pws/zycmt014-dtpror NE ' ' AND

         /pws/zycmt014-dtpror NE '00000000'.

        itab_zycbt031_tc-dtvencto = /pws/zycmt014-dtpror.

      ELSE.

        itab_zycbt031_tc-dtvencto = itab_zycbt119-dtvencto.

      ENDIF.

...

 

 

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYGL110F01

 

...

                                tpjuros   = itab_zycbt064-tpjuros

                                tpdesp    = itab_zycbt064-tpdesp.

  IF sy-subrc = 0.

    itab_zycbt031_tc-nrcontr       = itab_zycbt048-nrcontr.

    itab_zycbt031_tc-dtcontr       = itab_zycbt048-dtcontr.

    itab_zycbt031_tc-dtdebito      = itab_zycbt048-dtdebito.

    itab_zycbt031_tc-dtliquida     = itab_zycbt048-dtliquida.

    itab_zycbt031_tc-dtswift       = itab_zycbt048-dtswift.

    itab_zycbt031_tc-praca         = itab_zycbt048-praca.

    itab_zycbt031_tc-instituicao   = itab_zycbt048-instituicao.

* >> Início da exclusão: FORM CARREGA_DADOS_GLOBAIS

    itab_zycbt031_tc-corret        = itab_zycbt048-corret.

* << Fim da exclusão

* >> Início da inclusão: FORM CARREGA_DADOS_GLOBAIS

    IF /pws/zycbe031-mdcorresp NE 'IP' OR

       itab_zycbt031_tc-corret IS INITIAL.

      itab_zycbt031_tc-corret      = itab_zycbt048-corret.

    ENDIF.

* << Fim da inclusão

    itab_zycbt031_tc-codnatoper    = itab_zycbt048-codnatoper.

    itab_zycbt031_tc-codfrmentrega = itab_zycbt048-codfrmentrega.

    itab_zycbt031_tc-codmodtransa  = itab_zycbt048-codmodtransa.

    itab_zycbt031_tc-codnorma      = itab_zycbt048-codnorma.

    itab_zycbt031_tc-modalidade    = itab_zycbt048-modalidade.

  ENDIF.

ENDFORM.

FORM executa_f51_cp USING p_tpimp.

  DATA v_awkey   LIKE bkpf-awkey.

  CHECK /pws/zycbe145-cod_fech = 'TR'.

...

 

...

                     AND nrparc     = itab_zycbt031_tc-nrparc

                     AND dtliquid   = itab_zycbt031_tc-dtliquid

                     AND dtvencto   = itab_zycbt031_tc-dtvencto

                     AND lifnr      = itab_zycbt031_tc-lifnr

                     AND tpjuros    = itab_zycbt031_tc-tpjuros

                     AND tpdesp     = itab_zycbt031_tc-tpdesp

                     AND nrinvoic   = itab_zycbt031_tc-nrinvoic

                     AND nrparcf    = itab_zycbt031_tc-nrparcf

                     AND gsberf     = itab_zycbt031_tc-gsberf

                     AND prctr      = itab_zycbt031_tc-prctr.

* >> Início da inclusão: FORM GRAVAR_DADOS_CONTRATO

    IF sy-subrc NE 0.

      clear /pws/zycbt048.

      /pws/zycbt048-dtliquida     = itab_zycbt031_tc-dtliquida.

      /pws/zycbt048-nrcontr       = itab_zycbt031_tc-nrcontr.

      /pws/zycbt048-dtcontr       = itab_zycbt031_tc-dtcontr.

      /pws/zycbt048-dtdebito      = itab_zycbt031_tc-dtdebito.

      /pws/zycbt048-dtswift       = itab_zycbt031_tc-dtswift.

      /pws/zycbt048-praca         = itab_zycbt031_tc-praca.

      /pws/zycbt048-instituicao   = itab_zycbt031_tc-instituicao.

      /pws/zycbt048-corret        = itab_zycbt031_tc-corret.

      /pws/zycbt048-codnatoper    = itab_zycbt031_tc-codnatoper.

      /pws/zycbt048-codfrmentrega = itab_zycbt031_tc-codfrmentrega.

      /pws/zycbt048-codmodtransa  = itab_zycbt031_tc-codmodtransa.

      /pws/zycbt048-codnorma      = itab_zycbt031_tc-codnorma.

      /pws/zycbt048-modalidade    = itab_zycbt031_tc-modalidade.

      /pws/zycbt048-nrseq         = itab_zycbt031_tc-nrseq.

      /pws/zycbt048-mdcorresp     = itab_zycbt031_tc-mdcorresp.

      /pws/zycbt048-nrcorresp     = itab_zycbt031_tc-nrcorresp.

      /pws/zycbt048-tpparc        = itab_zycbt031_tc-tpparc.

      /pws/zycbt048-nrparc        = itab_zycbt031_tc-nrparc.

      /pws/zycbt048-dtliquid      = itab_zycbt031_tc-dtliquid.

      /pws/zycbt048-dtvencto      = itab_zycbt031_tc-dtvencto.

      /pws/zycbt048-lifnr         = itab_zycbt031_tc-lifnr.

      /pws/zycbt048-tpjuros       = itab_zycbt031_tc-tpjuros.

      /pws/zycbt048-tpdesp        = itab_zycbt031_tc-tpdesp.

      /pws/zycbt048-nrinvoic      = itab_zycbt031_tc-nrinvoic.

      /pws/zycbt048-nrparcf       = itab_zycbt031_tc-nrparcf.

      /pws/zycbt048-gsberf        = itab_zycbt031_tc-gsberf.

      /pws/zycbt048-prctr         = itab_zycbt031_tc-prctr.

      INSERT INTO /pws/zycbt048

        VALUES /pws/zycbt048.

      COMMIT WORK.

    ENDIF.

* << Fim da inclusão

  ENDLOOP.

  v_altera_dtliquid = ''.

  itab_zycbt031_tc1[] = itab_zycbt031_tc[].

  MESSAGE s205.

ENDFORM.

FORM limpa_status_liberacao.

  IF /pws/zycbe031-mdcorresp EQ 'CP'.

    SELECT SINGLE * FROM /pws/zycbt124

           INTO  wa_zycbt124

           WHERE nrseq EQ /pws/zycbe031-nrcorresp.

...

 

 

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/ZYCBR102

 

...

    IF sy-ucomm EQ 'PROC'.

      /pws/zycbt048-nrseq      = /pws/zycbt031-nrseq.

      /pws/zycbt048-dtboleto   = /pws/zycbt031-dtboleto.

      /pws/zycbt048-bukrs      = /pws/zycbt031-bukrs.

      /pws/zycbt048-mdcorresp  = /pws/zycbt031-mdcorresp.

      /pws/zycbt048-nrcorresp  = /pws/zycbt031-nrcorresp.

      /pws/zycbt048-tpparc     = /pws/zycbt031-tpparc.

      /pws/zycbt048-nrparc     = /pws/zycbt031-nrparc.

      /pws/zycbt048-modalidade = itab_selreg_aux-mdcambio.

      /pws/zycbt048-corret     = itab_selreg_aux-corretora.

* >> Início da inclusão: FORM IMPRIME_BOLETO

      IF NOT itab_selreg_aux-nrinvoic IS INITIAL.

        /pws/zycbt048-nrinvoic   = itab_selreg_aux-nrinvoic.

      ELSE.

* << Fim da inclusão

      /pws/zycbt048-nrinvoic   = itab_selreg_aux-docto.

* >> Início da inclusão: FORM IMPRIME_BOLETO

      ENDIF.

* << Fim da inclusão

      /pws/zycbt048-nrparcf    = itab_selreg_aux-nrparcf.

      /pws/zycbt048-dtliquid   = itab_selreg_aux-dtliquid.

      /pws/zycbt048-dtvencto   = itab_selreg_aux-dtvencto.

      IF NOT itab_selreg_aux-lifnr IS INITIAL.

        /pws/zycbt048-lifnr    = itab_selreg_aux-lifnr.

      ELSE.

...

 

...

          ENDIF.

        ENDIF.

      ENDIF.

    ENDLOOP.

    CLEAR   itab_zycbt064.

    REFRESH itab_zycbt064.

  ELSEIF sy-ucomm = 'PROC'.

    MOVE: v_count                    TO /pws/zycbt064-nrboleto,

          sy-datum                   TO /pws/zycbt064-dtboleto,

          itab_selreg_aux-nrchave    TO /pws/zycbt064-nrchave,

* >> Início da exclusão: FORM GRAVA_ZYCBT064

          itab_selreg_aux-nrinvoic   TO /pws/zycbt064-nrinvoic,

* << Fim da exclusão

          itab_selreg_aux-nrparcf    TO /pws/zycbt064-nrparcf,

          itab_selreg_aux-tipo       TO /pws/zycbt064-tipo,

          itab_selreg_aux-dtvencto   TO /pws/zycbt064-dtvencto,

          itab_selreg_aux-dtliquid   TO /pws/zycbt064-dtliquid.

* >> Início da inclusão: FORM GRAVA_ZYCBT064

      IF NOT itab_selreg_aux-nrinvoic IS INITIAL.

        /pws/zycbt064-nrinvoic   = itab_selreg_aux-nrinvoic.

      ELSE.

        /pws/zycbt064-nrinvoic   = itab_selreg_aux-docto.

      ENDIF.

* << Fim da inclusão

    IF NOT itab_selreg_aux-lifnr IS INITIAL.

      MOVE itab_selreg_aux-lifnr     TO /pws/zycbt064-lifnr.

    ELSE.

      MOVE itab_selreg_aux-benefic   TO /pws/zycbt064-lifnr.

    ENDIF.

    MOVE:

          itab_selreg_aux-waers      TO /pws/zycbt064-moeda,

          itab_selreg_aux-vlme       TO /pws/zycbt064-vlme,

          itab_selreg_aux-fcamb      TO /pws/zycbt064-fcamb,

          ' '                        TO /pws/zycbt064-statuspg,

...

 

 

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/ZYCBR107

 

...

DATA: END OF itab_zycit001.

DATA:BEGIN OF itab_zycbt118 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycbt118.

DATA: END OF itab_zycbt118.

DATA: BEGIN OF itab_nrpgfat OCCURS 0,"#EC NEEDED

        nrpgfat LIKE /pws/zycit006-nrseq_pgfat.

DATA: END OF itab_nrpgfat.

DATA:BEGIN OF itab_zycbt119 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycbt119.

DATA: END OF itab_zycbt119.

* >> Início da inclusão:

DATA:BEGIN OF itab_zycbt048 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycbt048.

DATA: END OF itab_zycbt048.

DATA:BEGIN OF itab_corretora OCCURS 0.

DATA: corret    type /pws/zycbt119-corret,

      descricao type lfa1-name1.

DATA: END OF itab_corretora.

* << Fim da inclusão

DATA:BEGIN OF itab_zycit006 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit006.

DATA: END OF itab_zycit006.

data itab_zycit132  type /pws/zycit132 occurs 0.

data itab_zycit094 type /pws/zycit094 occurs 0.

DATA:BEGIN OF itab_zycit078 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit078.

DATA: END OF itab_zycit078.

DATA:BEGIN OF itab_zycit093 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit093.

...

 

...

  PERFORM voltar.

FORM voltar.

  CASE sy-ucomm.

    WHEN 'VOLTAR' OR 'CANC'.

      LEAVE.

      PERFORM lista_dados IN PROGRAM /pws/zycbr102.

  ENDCASE.

ENDFORM.

FORM seleciona_dados.

  SELECT SINGLE * FROM /pws/zycbt119 WHERE nrseq = v_nrpgfat.

* >> Início da inclusão: FORM SELECIONA_DADOS

  IF NOT v_nrpgfat IS INITIAL.

    APPEND v_nrpgfat TO itab_nrpgfat.

  ENDIF.

* << Fim da inclusão

  SELECT * FROM /pws/zycbt118 INTO TABLE itab_zycbt118

                 WHERE codmodul = 'PG'

                      AND nrref = v_nrpgfat."#EC CI_NOFIELD

  IF itab_nrpgfat[] IS INITIAL.

    PERFORM seleciona_importacao USING v_nrpgfat.

  ELSE.

    SELECT * FROM /pws/zycbt119

      INTO TABLE itab_zycbt119

      FOR ALL ENTRIES IN itab_nrpgfat

      WHERE nrseq = itab_nrpgfat-nrpgfat.

...

 

...

              AND nrchave   = v_nrpgfat.

  endselect.

  IF sy-subrc = 0.

    SELECT  * FROM /pws/zycbt031

                up to 1 rows

             WHERE  nrseq = /pws/zycbt064-nrboleto.

    endselect.

  ENDIF.

  SELECT SINGLE butxt FROM t001 INTO t001-butxt

    WHERE bukrs = /pws/zycbt031-bukrs.

* >> Início da inclusão: FORM SELECIONA_DADOS

  IF NOT itab_zycbt119[] IS INITIAL.

* << Fim da inclusão

  SELECT *

    FROM /pws/zycbt048

* >> Início da exclusão: FORM SELECIONA_DADOS

      up to 1 rows

* << Fim da exclusão

* >> Início da inclusão: FORM SELECIONA_DADOS

      INTO TABLE itab_zycbt048

      FOR ALL ENTRIES IN itab_zycbt119

* << Fim da inclusão

   WHERE  mdcorresp = 'IP'

* >> Início da exclusão: FORM SELECIONA_DADOS

      AND nrcorresp = v_nrpgfat

* << Fim da exclusão

* >> Início da inclusão: FORM SELECIONA_DADOS

        AND nrcorresp = itab_zycbt119-nrseq

* << Fim da inclusão

      AND dtboleto  = /pws/zycbt031-dtboleto.

* >> Início da exclusão: FORM SELECIONA_DADOS

  endselect.

* << Fim da exclusão

* >> Início da inclusão: FORM SELECIONA_DADOS

  ENDIF.

* << Fim da inclusão

  CLEAR v_corret.

* >> Início da exclusão: FORM SELECIONA_DADOS

  IF NOT /pws/zycbt031-corret IS INITIAL.

    SELECT SINGLE name1 FROM lfa1

                        INTO v_corret

                        WHERE lifnr EQ /pws/zycbt031-corret.

* << Fim da exclusão

* >> Início da inclusão: FORM SELECIONA_DADOS

  IF NOT itab_zycbt119[] IS INITIAL.

    SELECT lifnr name1 FROM lfa1

      INTO TABLE itab_corretora

      FOR ALL ENTRIES IN itab_zycbt119

      WHERE lifnr EQ itab_zycbt119-corret.

  ENDIF.

  IF NOT itab_zycbt048[] IS INITIAL.

    SELECT lifnr name1 FROM lfa1

      APPENDING TABLE itab_corretora

      FOR ALL ENTRIES IN itab_zycbt048

      WHERE lifnr EQ itab_zycbt048-corret.

* << Fim da inclusão

  ENDIF.

* >> Início da inclusão: FORM SELECIONA_DADOS

  SORT itab_corretora.

  DELETE ADJACENT DUPLICATES FROM itab_corretora.

* << Fim da inclusão

  CLEAR v_bcooper.

  IF NOT /pws/zycbt031-bcooper IS INITIAL.

    SELECT SINGLE name1 FROM lfa1

                        INTO v_bcooper

                        WHERE lifnr EQ /pws/zycbt031-bcooper.

...

 

...

         / text-027, v_j1bnbm,

         / text-028, v_descr,

         / text-029, v_databoleto.

  SKIP 1.

  WRITE : / text-052, v_textadic INPUT ON.

  SKIP 1.

  RESERVE 5 LINES.

  FORMAT COLOR COL_HEADING INVERSE.

  WRITE:/ text-030.

  FORMAT COLOR COL_BACKGROUND INVERSE OFF.

* >> Início da exclusão: FORM EXIBE_DADOS

  WRITE:/ text-044, /pws/zycbt031-bcooper, v_bcooper,

        / text-031, /pws/zycbt048-nrcontr,

        / text-033, /pws/zycbt031-corret, v_corret.

* << Fim da exclusão

* >> Início da inclusão: FORM EXIBE_DADOS

  WRITE:/ text-044, /pws/zycbt031-bcooper, v_bcooper.

  LOOP AT itab_zycbt048.

    CLEAR: itab_zycbt119,

           itab_corretora.

    IF NOT itab_zycbt048-nrcontr IS INITIAL.

      WRITE: / text-031, itab_zycbt048-nrcontr.

    ENDIF.

    READ TABLE itab_zycbt119 WITH KEY nrseq = itab_zycbt048-nrcorresp.

    IF itab_zycbt119-corret IS INITIAL.

      READ TABLE itab_corretora WITH KEY corret = itab_zycbt048-corret.

    ELSE.

      READ TABLE itab_corretora WITH KEY corret = itab_zycbt119-corret.

    ENDIF.

    IF NOT itab_corretora-corret IS INITIAL.

      WRITE: / text-033, itab_corretora-corret,

                       itab_corretora-descricao.

    ENDIF.

  ENDLOOP.

* << Fim da inclusão

  SKIP 1.

  RESERVE 2 LINES.

  WRITE:/001 text-036,

         014 text-037,

         026 text-038,

         040 text-039,

         056 text-040,

         069 text-041.

  WRITE:/001 /pws/zycbt048-dtcontr,

         014 /pws/zycbt031-kursf RIGHT-JUSTIFIED,

...