Sintoma

Tratamento das mensagens de estorno da prestação de contas.

Solução

Criado tratamento para mensagens de estorno.

Informações Complementares

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

Nota Número 06128 Data: 07/03/2008 Hora: 10:14:48

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

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

Nota Número              : 06128

Categoria                : Melhoria

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00004

Agrupamento              : 00037

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

Referência às notas relacionadas:

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

01809  - 00001 - 6.0    - 00024  - ESTORNO NA PRESTAÇÃO DE CONTAS DA

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

TRATAMENTO DAS MENSAGENS DE ESTORNO DA PRESTAÇÃO DE CONTAS

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

Palavras Chave:

MENSAGENS DE ESTORNO - PRESTAÇÃO DE CONTAS - ESTORNADO R/3

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

Objetos da nota:

REPS /PWS/MZYCI007F01

REPS /PWS/MZYCI007F02

REPS /PWS/MZYCI007I01

REPT /PWS/SAPMZYCI007

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

Modificações efetuadas em REPS /PWS/MZYCI007F01

...

             AND despach = /pws/zycie001-despach.

  IF /pws/zycie026-status EQ 'I'.

    IF NOT itab_zycit125[] IS INITIAL.

      SELECT  nrseq embarca bukrs werks waers j_1bbranch

              FROM /pws/zycit001

              INTO TABLE it_zycit001

              FOR ALL ENTRIES IN itab_zycit125

              WHERE

                 nrseq = itab_zycit125-nrseq

                 AND  embarca IN it_embarca.

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

      .

* << Fim da exclusão

    ENDIF.

    SELECT * FROM /pws/zycit026

             INTO TABLE it_tab2

             WHERE status = 'A'

             AND  despach EQ /pws/zycie001-despach .    "#EC CI_NOFIELD

    IF NOT it_zycit001[] IS INITIAL.

      SELECT *

        FROM /pws/zycbt007

        INTO TABLE itab_zycbt007

        FOR ALL ENTRIES IN it_zycit001

...

...

                                   'DOCFAT'

                                    text-025.

    it_zycbe033-belnr  = /pws/zycie026-docfat.

    it_zycbe033-gjahs  = sy-datlo+0(4).

    it_zycbe033-cpochv  = /pws/zycie026-nrseq.

    APPEND it_zycbe033.

    PERFORM call_fbv0.

  ENDIF.

  PERFORM limpa_tabela_transacao.

ENDFORM.

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

FORM transacao_f51.

  .

ENDFORM.

* << Fim da exclusão

FORM transacao_f51a.

  DATA: v_nrseq  LIKE /pws/zycit001-nrseq,

        v_agumsi LIKE /pws/zycbt011-agums,

        v_agumsc LIKE /pws/zycbt011-agums,

        v_agumso LIKE /pws/zycbt011-agums.

  DATA:

        v_bktxt    LIKE bkpf-bktxt.

  READ TABLE it_zycit003 WITH KEY nrseq = /pws/zycie026-nrseq.

  IF sy-subrc = 0.

    it_zycbe033-d_gsber = it_zycit003-gsber.

...

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

Modificações efetuadas em REPS /PWS/MZYCI007F02

...

                      AND nrpres EQ /pws/zycie026-nrpres.

      COMMIT WORK.

    ELSE.

      LOOP AT it_zycbt032.

        MESSAGE i015 WITH it_zycbt032-msg+0(50)

                          it_zycbt032-msg+50(50).

      ENDLOOP.

      IF v_msg EQ 'X'.

        MESSAGE i015 WITH text-105  /pws/zycie026-docfat text-106.

      ELSE.

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

        PERFORM popup_message USING text-039 text-038.

* << Fim da exclusão

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

        PERFORM verifica_estorno_r3 USING v_answer.

* << Fim da inclusão

      ENDIF.

      IF v_answer = 'J'.

        CLEAR: /pws/zycie026-docfat, /pws/zycie026-dtaprov,

 /pws/zycie026-status.

        /pws/zycie026-status = 'I'.

        MODIFY /pws/zycit026 FROM /pws/zycie026.

        COMMIT WORK.

      ENDIF.

    ENDIF.

  ELSE.

    LOOP AT it_zycbt034.

      MESSAGE i016 WITH it_zycbt034-descricao.

    ENDLOOP.

    IF v_msg EQ 'X'.

      MESSAGE i015 WITH text-105  /pws/zycie026-docfat text-106.

    ELSE.

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

      PERFORM popup_message USING text-039 text-038.

* << Fim da exclusão

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

      PERFORM verifica_estorno_r3 USING v_answer.

* << Fim da inclusão

    ENDIF.

    IF v_answer = 'J'.

      CLEAR: /pws/zycie026-docfat, /pws/zycie026-dtaprov,

 /pws/zycie026-status.

      /pws/zycie026-status = 'I'.

      MODIFY /pws/zycit026 FROM /pws/zycie026.

      COMMIT WORK.

    ENDIF.

  ENDIF.

ENDFORM.

...

...

            v_nfserv  = /pws/zycie026-nfserv

            v_nrpres  = /pws/zycie026-nrpres

       IMPORTING

            v_xblnr   = v_xblnr

            v_zuonr   = v_zuonr

            v_sgtxt   = v_sgtxt

            v_bktxt   = v_bktxt.

  it_zycbe033-d_zuonr = it_zycbe033-c_zuonr = v_zuonr.

  it_zycbe033-d_sgtxt = it_zycbe033-c_sgtxt = v_sgtxt.

  it_zycbe033-bktxt   = v_bktxt.

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

  it_zycbe033-xblnr   = /pws/zycie026-refpres..

* << Fim da exclusão

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

  it_zycbe033-xblnr   = /pws/zycie026-refpres.

* << Fim da inclusão

  APPEND it_zycbe033.

  IF sy-subrc = 0.

    READ TABLE it_zycbt032 WITH KEY   tcode  = 'FBV0'

                                      tabela = text-012

                                      cpochv = /pws/zycie026-nrseq

                                      tpmsg  = 'S'.

    IF sy-subrc EQ 0.

      MESSAGE i060 WITH v_belnr.

      CLEAR: /pws/zycie026-docfat, /pws/zycie026-dtaprov.

      MODIFY /pws/zycit026 FROM /pws/zycie026.

      COMMIT WORK .

    ELSE.

      LOOP AT it_zycbt032.

        MESSAGE i015 WITH it_zycbt032-msg.

      ENDLOOP.

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

      PERFORM verifica_estorno_r3 USING v_answer.

* << Fim da inclusão

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

      PERFORM popup_message USING text-039 text-038.

* << Fim da exclusão

      IF v_answer = 'J'.

        CLEAR: /pws/zycie026-docfat, /pws/zycie026-dtaprov,

 /pws/zycie026-status.

        MODIFY /pws/zycit026 FROM /pws/zycie026.

        COMMIT WORK.

      ENDIF.

    ENDIF.

  ELSE.

    LOOP AT it_zycbt034.

      MESSAGE i016 WITH it_zycbt034-descricao.

    ENDLOOP.

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

    PERFORM verifica_estorno_r3 USING v_answer.

* << Fim da inclusão

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

    PERFORM popup_message USING text-039 text-038.

* << Fim da exclusão

    IF v_answer = 'J'.

      CLEAR: /pws/zycie026-docfat, /pws/zycie026-dtaprov.

      MODIFY /pws/zycit026 FROM /pws/zycie026.

      COMMIT WORK.

    ENDIF.

  ENDIF.

ENDFORM.

FORM clear_date_batch.

  CLEAR :  it_zycbt032, it_zycbe033, it_zycbt034.

  REFRESH: it_zycbt032, it_zycbe033, it_zycbt034.

...

...

                v_codeven = '010P'

                v_ktosl   = it_zycbe035-ktosl

                v_nfserv  = /pws/zycie026-nfserv

                v_nrpres  = /pws/zycie026-nrpres

           IMPORTING

                v_zuonr   = v_zuonr

                v_xblnr   = it_zycbe033-xblnr

                v_sgtxt   = v_nradto1.

      it_zycbe035-d_zuonr = it_zycbe035-c_zuonr = v_zuonr.

      it_zycbe035-d_xblnr = it_zycbe035-c_xblnr = /pws/zycie026-refpres.

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

      .

* << Fim da exclusão

      it_zycbe035-d_sgtxt = it_zycbe035-c_sgtxt = v_nradto1.

      PERFORM verifica_exit USING 'D'

                           '/PWS/SAPMZYCI007'

                           'PRT002'.

      CLEAR itab_zyglt100 .

      READ TABLE itab_zyglt100 WITH KEY zexit = 'PRT002'.

      IF itab_zyglt100-zexit_ativa IS INITIAL.

      ELSE.

        PERFORM (itab_zyglt100-formulario) IN PROGRAM

            (itab_zyglt100-programa) IF FOUND.

...

...

                            frgsx5  = space

                      WHERE nrseq  EQ /pws/zycie026-nrseq

                        AND nrpres EQ /pws/zycie026-nrpres.

      ENDIF.

      COMMIT WORK.

    ELSE.

      LOOP AT it_zycbt032.

        MESSAGE i015 WITH it_zycbt032-msg+0(50)

                  it_zycbt032-msg+50(50).

      ENDLOOP.

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

      PERFORM popup_message USING text-039 text-038.

* << Fim da exclusão

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

      PERFORM verifica_estorno_r3 USING v_answer.

* << Fim da inclusão

      IF v_answer = 'J'.

        IF /pws/zycie026-docfat IS INITIAL.

          /pws/zycie026-status = 'I'.

          CLEAR /pws/zycie026-dtaprov.

        ENDIF.

        CLEAR: /pws/zycie026-docomp.

        MODIFY /pws/zycit026 FROM /pws/zycie026.

        COMMIT WORK.

      ENDIF.

    ENDIF.

...

...

    MESSAGE i015 WITH text-091 /pws/zycie026-nrpres text-092.

    EXIT.

  ELSEIF sy-subrc = 2.

    MESSAGE i015 WITH text-093.

    LEAVE PROGRAM.

  ENDIF.

  PERFORM check USING /pws/zycie001-despach ''.

  tc2-top_line = 1.

  LEAVE TO SCREEN '0050'.

endform.

* >> Início da inclusão:

FORM verifica_estorno_r3 USING    v_answer.

  SELECT SINGLE * FROM bkpf

            WHERE bukrs EQ /pws/zycie026-bukrs

            AND   belnr EQ /pws/zycie026-docfat

            AND   gjahr EQ /pws/zycie026-dtlanc+0(4).

  IF sy-subrc EQ 0 AND NOT bkpf-stblg IS INITIAL.

    PERFORM popup_message USING text-039 text-038.

  ELSE.

    MESSAGE i015 WITH text-116.

  ENDIF.

ENDFORM.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCI007I01

...

    WHEN 'ENTE'.

      SET SCREEN 0.

      LEAVE SCREEN.

  ENDCASE.

ENDMODULE.

MODULE conversao_moeda INPUT.

  DATA: v_moeda LIKE  tcurr-ukurs.

  SELECT SINGLE *

    FROM /pws/zycbt011

    WHERE codmod EQ 'D' AND

* >> Início da exclusão: MODULE CONVERSAO_MOEDA

          codeven EQ '010P'.

* << Fim da exclusão

* >> Início da inclusão: MODULE CONVERSAO_MOEDA

          codeven EQ '010P'

          and bukrs eq /PWS/ZYCIE026-BUKRS.

* << Fim da inclusão

  IF t001-land1 NE 'BR'.

    IF /pws/zycie026-taxamu  IS INITIAL AND

       NOT /pws/zycie026-waersmu IS INITIAL.

      CALL FUNCTION '/PWS/ZYCB_MONTANTE_CONVERTE'

        EXPORTING

          i_montante                         = 1

          i_demoeda                          = /pws/zycie026-waersmu

          i_paramoeda                        = /pws/zycbt007-waersb

          i_ctmoeda                          = /pws/zycbt011-ctmoed

          i_dtbase                           = sy-datlo

...

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

Modificações efetuadas em REPT /PWS/SAPMZYCI007

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

Incluído símbolo de texto:

Idioma: EN

Símbolo: 113

Texto: (6 caracteres)

"Fundap"

Comprimento máximo: 6

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

Incluído símbolo de texto:

Idioma: EN

Símbolo: 116

Texto: (29 caracteres)

"Document can not be reversed."

Comprimento máximo: 33

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 116

Texto: (33 caracteres)

"Documento não pode ser estornado."

Comprimento máximo: 33