Sintoma

Alterar o relatório do boleto "PEDIDO PARA FECHAMENTO DE CÂMBIO", ajustando os campos de dados de

beneficiário e incluindo os campos "Data Débito", "Data Liquidação" e "Natureza de Operação".

Replicar ajustes para os mesmos relatórios de remessa financeira.

Solução

Criar tratamento para esses ajustes

Informações Complementares

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

Nota Número 06322 Data: 04/04/2008 Hora: 15:38:58

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

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

Nota Número              : 06322

Categoria                : Melhoria

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00005

Agrupamento              : 00041

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

Referência às notas relacionadas:

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

05916  - 00001 - 7.0    - 00004  - COMPLEMENTO DO BOLETO - AJUSTE PARA MOSTRAR O CAMPO CORRET NA TEL

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

PEDIDO PARA FECHAMENTO DE CÂMBIO

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

Palavras Chave:

PEDIDO PARA FECHAMENTO DE CÂMBIO, COMPLEMENTO DO BOLETO

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

Objetos da nota:

REPS /PWS/ZYCBR105

REPS /PWS/ZYCBR107

REPT /PWS/ZYCBR105

REPT /PWS/ZYCBR107

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

Modificações efetuadas em REPS /PWS/ZYCBR105

...

  /pws/zycbt111,

  /pws/zycbt118,"#EC NEEDED

  /pws/zycbt128,"#EC NEEDED

  /pws/zycbt112,

  /pws/zycbt113,"#EC *

  /pws/zycbt117,

  /pws/zycbt119,

  /pws/zycbt048,

  /pws/zycmt003,"#EC *

  j_1bbranch,

* >> Início da exclusão:

  sadr.

* << Fim da exclusão

* >> Início da inclusão:

  sadr,

  lfbk,

  bnka.

* << Fim da inclusão

DATA: BEGIN OF itab_thead OCCURS 50.

        INCLUDE STRUCTURE thead.

DATA: END OF itab_thead.

DATA: itab_tline LIKE tline OCCURS 50 WITH HEADER LINE.

DATA: BEGIN OF itab_nrpgfat OCCURS 0,

        nrpgfat LIKE /pws/zycit006-nrseq_pgfat.

DATA: END OF itab_nrpgfat.

DATA: itab_zycbt111 TYPE STANDARD TABLE OF t_zycbt111

        WITH HEADER LINE,

      itab_zycbt119 TYPE STANDARD TABLE OF /pws/zycbt119

...

...

  v_vlpis         LIKE /pws/zycat025-vlimpme,

  v_vlcofins      LIKE /pws/zycat025-vlimpme,

  v_cabecalho(30) TYPE c,

  v_data(10)      TYPE c,

  v_nrfat(60)     TYPE c,

  v_lifnr2(80)    TYPE c,

  v_textadic(60)  TYPE c,

  v_cnpj          LIKE j_1bwfield-cgc_number,

  v_cgc(20),

  v_branch        LIKE j_1bwfield-cgc_branch,

* >> Início da exclusão:

  v_sort2         LIKE j_1bwfield-cgc_compan.

* << Fim da exclusão

* >> Início da inclusão:

  v_sort2         LIKE j_1bwfield-cgc_compan,

  v_endereco_completo(55) TYPE c.

* << Fim da inclusão

INCLUDE /pws/zycbi102.

IMPORT:

  itab_tline[]  FROM MEMORY ID 'E020',

  wa_line       FROM MEMORY ID 'E021',

  /pws/zycbt031 FROM MEMORY ID 'E022',

  v_nrchave     FROM MEMORY ID '003',

  v_docto       FROM MEMORY ID '004',

  v_tipo2       FROM MEMORY ID '005',

  v_total       FROM MEMORY ID '006',

  v_vlir        FROM MEMORY ID '007',

...

...

            output = v_nrcorrep

       EXCEPTIONS

            OTHERS = 0.

 SELECT  rof

    FROM /pws/zycbt115

      up to 1 rows

    INTO v_rof

    WHERE nrcorrep EQ v_nrcorrep AND

          tpdoc    EQ 'N'.

 endselect.

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

    SELECT *

      FROM /pws/zycbt048

        up to 1 rows

      INTO /pws/zycbt048

     WHERE nrseq     EQ /pws/zycbt031-nrseq

       AND nrcorresp EQ /pws/zycbt031-nrcorresp

       AND mdcorresp EQ /pws/zycbt031-mdcorresp.

    endselect.

  SELECT * FROM lfbk

             up to 1 rows

          WHERE lifnr = v_lifnr.

  endselect.

  SELECT *

    FROM bnka

      up to 1 rows

   WHERE banks = lfbk-banks

     AND bankl = lfbk-bankl.

  endselect.

 CONCATENATE bnka-stras '-' bnka-ort01 '-' bnka-provz

        INTO v_endereco_completo(55) SEPARATED BY space.

* << Fim da inclusão

ENDFORM.

FORM boleto_venda_exp.

  DATA: v_agente(70) TYPE c.

  CLEAR: v_cabecalho,

         v_data.

  WRITE AT 1(87) t001-butxt CENTERED.

  CONCATENATE sy-datum+6(2) sy-datum+4(2) sy-datum(4)

  INTO v_data SEPARATED BY '.'.

  CONCATENATE wa_line-mod '-' v_data

  INTO v_cabecalho SEPARATED BY space.

...

...

    WRITE: 02 text-016, /pws/zycbt031-corret, v_corret.

  ELSE.

    WRITE: 02 text-016, wa_line-corretora, v_corret.

  ENDIF.

  SKIP.

  WRITE: 02 text-022, wa_line-txtinf.

  LOOP AT itab_tline.

    WRITE: /002 itab_tline-tdline.

  ENDLOOP.

  SKIP.

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

 IF wa_line-oper EQ 'P' AND wa_line-fmd EQ 'CP'.

  SKIP 1.

  FORMAT COLOR COL_HEADING INVERSE.

  WRITE:/ text-093.

  FORMAT COLOR COL_BACKGROUND INVERSE OFF.

  WRITE:/ text-033, bnka-banka INPUT ON,

       / text-094, v_endereco_completo INPUT ON,

          text-078, bnka-banks INPUT ON,

        / text-099, lfbk-bankn INPUT ON,

        / text-095, bnka-swift INPUT ON.

  SKIP 1.

 ENDIF.

* << Fim da inclusão

  IF NOT /pws/zycbt031-bcooper IS INITIAL.

    SELECT SINGLE name1 INTO (lfa1-name1) FROM lfa1

      WHERE lifnr EQ /pws/zycbt031-bcooper.

    WRITE: 02 text-055, 25 /pws/zycbt031-bcooper, lfa1-name1.

  ELSE.

    WRITE: 02 text-023.

  ENDIF.

  SKIP.

  IF NOT /pws/zycbt031-kursf IS INITIAL.

    WRITE: 02 text-056, 25 /pws/zycbt031-kursf.

...

...

    WRITE:  02 text-066.

  ENDIF.

  SKIP.

  CLEAR lfa1-name1.

  IF NOT wa_zycbt134-bcocred IS INITIAL.

    SELECT SINGLE name1 INTO (lfa1-name1) FROM lfa1

      WHERE lifnr EQ wa_zycbt134-bcocred.

    WRITE: 02 text-067, 25 wa_zycbt134-bcocred, lfa1-name1.

  ELSE.

    WRITE: 02 text-068.

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

  ENDIF.

  SKIP 1.

  RESERVE 2 LINES.

 IF wa_line-oper EQ 'P' AND wa_line-fmd EQ 'CP'.

    WRITE /001 text-096.

 ELSEIF wa_line-oper EQ 'R' AND wa_line-fmd EQ 'CP'.

    WRITE /001 text-100.

* << Fim da inclusão

  ENDIF.

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

   WRITE:

         016 text-097,

         036 text-098.

  WRITE: /001 /pws/zycbt048-dtdebito,

          016 /pws/zycbt048-dtliquida RIGHT-JUSTIFIED,

          036 /pws/zycbt048-codnatoper RIGHT-JUSTIFIED.

* << Fim da inclusão

  NEW-PAGE.

...

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

Modificações efetuadas em REPS /PWS/ZYCBR107

...

  v_lifnr          LIKE lfa1-lifnr,

  v_despbanc       LIKE /pws/zycbt118-vlme,

  v_despaux        LIKE /pws/zycbt118-vlme,

  v_despesa(30)    TYPE c,

  v_desbanc(15)    TYPE c,

  v_databoleto(10) TYPE c,

  v_embarca(55)    TYPE c,

  v_tamanho(3)     TYPE n,

  v_nrpgfat        LIKE /pws/zycbt119-nrseq,

  v_endereco(55),

* >> Início da inclusão:

  v_endereco_completo(55),

* << Fim da inclusão

  v_end2(50),

  v_cnpj(20),

  v_pagno(3)       TYPE n,

  v_contpg(3)      TYPE n,

  v_textadic(60)   TYPE c,

  v_corret         LIKE lfa1-name1,

  v_bcooper        LIKE lfa1-name1,

  v_bconegoc       LIKE lfa1-name1,

  v_lipg(6)        TYPE n,

  v_count          TYPE i.

...

...

          AND tpdoc = 'P'.

    ENDIF.

  ENDIF.

  SELECT * FROM lfbk

             up to 1 rows

          WHERE lifnr = v_lifnr.

  endselect.

  SELECT *

    FROM bnka

      up to 1 rows

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

   WHERE bankl = lfbk-bankl.

* << Fim da exclusão

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

   WHERE banks = lfbk-banks

     AND bankl = lfbk-bankl.

* << Fim da inclusão

  endselect.

  SELECT * FROM /pws/zycit130

             up to 1 rows

          WHERE nrseq = itab_zycit001-nrseq.

  endselect.

  SELECT *

    FROM /pws/zycit094

      up to 1 rows

   WHERE nrseq = itab_zycit001-nrseq.

  endselect.

...

...

  SELECT SINGLE landx FROM t005t INTO t005t-landx

                        WHERE land1 = adrc-country

                          AND spras = sy-langu.

  SELECT * FROM lfbk

             up to 1 rows

          WHERE lifnr = v_lifnr.

  endselect.

  SELECT *

    FROM bnka

      up to 1 rows

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

    WHERE bankl EQ lfbk-bankl.

* << Fim da exclusão

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

   WHERE banks = lfbk-banks

     AND bankl = lfbk-bankl.

* << Fim da inclusão

  endselect.

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

 CONCATENATE bnka-stras '-' bnka-ort01 '-' bnka-provz

        INTO v_endereco_completo(55) SEPARATED BY space.

* << Fim da inclusão

  CONCATENATE /pws/zycbt031-dtboleto+6(2)  '/'

              /pws/zycbt031-dtboleto+4(2) '/'

              /pws/zycbt031-dtboleto(4) INTO v_databoleto.

  LOOP AT itab_zycbt118.

    v_despaux = itab_zycbt118-vlme.

...

...

          027 ' - ',  t052u-text1,

         / text-007, v_lifnr, '-', lfa1-name1,

         / text-008, v_endereco,    /23 v_end2,

         / text-009, adrc-country,

         024  ' - ',  t005t-landx.

  SKIP 1.

  FORMAT COLOR COL_HEADING INVERSE.

  WRITE:/ text-010.

  FORMAT COLOR COL_BACKGROUND INVERSE OFF.

  WRITE:/ text-013, bnka-banka INPUT ON,

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

        / text-014, bnka-stras INPUT ON,

          text-045, lfbk-banks INPUT ON,

* << Fim da exclusão

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

       / text-014, v_endereco_completo INPUT ON,

          text-045, bnka-banks INPUT ON,

* << Fim da inclusão

        / text-015, lfbk-bankn INPUT ON,

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

        / text-016, lfbk-bkref INPUT ON,

* << Fim da exclusão

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

        / text-016, bnka-swift INPUT ON,

* << Fim da inclusão

        / text-017.

  IF NOT itab_zycbt115[] IS INITIAL.

    v_barra = '/'.

...

...

         014 /pws/zycbt031-kursf RIGHT-JUSTIFIED,

         022 /pws/zycbt031-vlmi  RIGHT-JUSTIFIED,"#EC *

         041 v_despesa,

         056 /pws/zycbt031-dtcredpr.

  IF NOT /pws/zycbt031-belnr_p IS INITIAL.

    WRITE: 068 /pws/zycbt031-vlme

                           CURRENCY /pws/zycbt119-waers RIGHT-JUSTIFIED.

  ELSE.

    WRITE: 068 0 CURRENCY /pws/zycbt119-waers RIGHT-JUSTIFIED.

  ENDIF.

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

  SKIP 1.

  RESERVE 2 LINES.

  WRITE:/001 text-053,

         016 text-054,

         036 text-055.

  WRITE:/001 itab_zycbt048-dtdebito,

         016 itab_zycbt048-dtliquida RIGHT-JUSTIFIED,

         036 itab_zycbt048-codnatoper RIGHT-JUSTIFIED.

* << Fim da inclusão

ENDFORM.

FORM imprime_numero_embarque.

  v_tamanho = strlen( v_embarca ).

  LOOP AT itab_zycit001.

    IF v_tamanho > 45.

      WRITE: v_embarca.

      SKIP.

      CLEAR: v_embarca.

    ENDIF.

    IF v_tamanho IS INITIAL.

...

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

Modificações efetuadas em REPT /PWS/ZYCBR105

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

Modificado símbolo de texto:

Idioma: PT

Símbolo: 033

Texto: (14 caracteres)

"Banco        :"

Comprimento máximo: 14

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 093

Texto: (15 caracteres)

"Dados Bancários"

Comprimento máximo: 15

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 094

Texto: (14 caracteres)

"Endereço     :"

Comprimento máximo: 14

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 095

Texto: (14 caracteres)

"Swift        :"

Comprimento máximo: 14

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 096

Texto: (13 caracteres)

"Data Débito :"

Comprimento máximo: 13

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 097

Texto: (17 caracteres)

"Data Liquidação :"

Comprimento máximo: 132

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 098

Texto: (19 caracteres)

"Natureza Operação :"

Comprimento máximo: 19

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 099

Texto: (14 caracteres)

"Nº. Conta    :"

Comprimento máximo: 14

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 100

Texto: (13 caracteres)

"Data Crédito:"

Comprimento máximo: 13

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

Modificações efetuadas em REPT /PWS/ZYCBR107

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 053

Texto: (13 caracteres)

"Data Débito :"

Comprimento máximo: 13

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 054

Texto: (17 caracteres)

"Data Liquidação :"

Comprimento máximo: 17

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 055

Texto: (19 caracteres)

"Natureza Operação :"

Comprimento máximo: 19