Sintoma

Permitir alterar o nome da funcionalidade na tela de Criar/Exibir/Modificar e na mensagem de criação

da liquidação em andamento.

Solução

Criar ponto de exit LIQ011 e tratamentos no standard para permitir alterar nome da funcionalidade no

cabeçalho.

Informações Complementares

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

Nota Número 03864 Data: 06/06/2007 Hora: 16:27:45

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

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

Nota Número              : 03864

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00027

Agrupamento              : 00169

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

LIQUIDAÇÃO EM ANDAMENTO - EXIT LIQ011 - NOME FUNCIONALIDADE

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

Palavras Chave:

LIQUIDAÇÃO EM ANDAMENTO EXIT LIQ011 NOME FUNCIONALIDADE

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

Objetos da nota:

CUAD /PWS/SAPMZYCB031

REPS /PWS/MZYCB031F01

REPS /PWS/MZYCB031X01

REPT /PWS/SAPMZYCB031

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

Modificações efetuadas em CUAD /PWS/SAPMZYCB031

Alterar TÍTS GUI

CODE TÍTULO: 0100

de:

TÍTULO:      & Liquidação em Andamento

para:

TÍTULO:      & &

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

Modificações efetuadas em REPS /PWS/MZYCB031F01

...

  CALL FUNCTION 'RS_SET_SELSCREEN_STATUS'

       EXPORTING

            p_status  = '0001'

       TABLES

            p_exclude = itab_exclude.

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

  IF sy-tcode EQ c_transacao_a.

    v_descricao = text-010.

  ELSE.

    v_descricao = text-011.

  ENDIF.

  v_descricao2 = text-074.

  PERFORM executa_exit USING 'LIQ011'.

  SET TITLEBAR '0100' WITH v_descricao v_descricao2.

* << Fim da inclusão

ENDFORM.                    " set_status_sel

...

...

    ELSEIF wa_cols-screen-group1 EQ 'ALT'.

      wa_cols-screen-input = v_status.

    ENDIF.

    MODIFY tc_liq-cols FROM wa_cols.

  ENDLOOP.

ENDFORM.

FORM set_status.

  DATA: BEGIN OF itab_pf OCCURS 10,

          fcode LIKE rsmpe-func,

        END OF itab_pf.

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

  DATA: v_descricao(15).

* << Fim da exclusão

  CLEAR ok_code.

  IF v_line_ini = 0.

    v_line_ini = 1.

  ENDIF.

  IF v_status EQ '0'.

    itab_pf-fcode = 'MARK'.

    APPEND itab_pf.

    itab_pf-fcode = 'DMARK'.

    APPEND itab_pf.

    itab_pf-fcode = 'EXCL'.

...

...

  SET PF-STATUS '0100' EXCLUDING itab_pf.

  IF v_status EQ '0'.

    v_descricao = text-011.

  ELSE.

    IF sy-tcode EQ c_transacao_c.

      v_descricao = text-009.

    ELSE.

      v_descricao = text-010.

    ENDIF.

  ENDIF.

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

  v_descricao2 = text-074.

  v_text_034   = text-034.

  PERFORM executa_exit USING 'LIQ011'.

  SET TITLEBAR '0100' WITH v_descricao v_descricao2.

* << Fim da inclusão

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

  SET TITLEBAR '0100' WITH v_descricao.

* << Fim da exclusão

ENDFORM.

FORM modify_line.

  CHECK NOT /pws/zycbe209-nrinvoic IS INITIAL.

  IF /pws/zycbe209-belnr2 EQ /pws/zycbe209-belnr.

    CLEAR /pws/zycbe209-belnr2.

  ENDIF.

  IF /pws/zycbe209-dtincl IS INITIAL.

    /pws/zycbe209-dtincl = sy-datum.

  ENDIF.

  IF /pws/zycbe209-dtcredext IS INITIAL.

...

...

                              itab_zycbt209-bukrs

                              itab_zycbt209-nrinvoic

                              'X'.

  IF sy-subrc NE 0.

    EXIT.

  ENDIF.

  CALL FUNCTION 'MESSAGE_STORE'

       EXPORTING

            arbgb = '/PWS/ZYCBM'

            msgty = 'S'

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

            msgv1 = text-034

* << Fim da exclusão

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

            msgv1 = v_text_034

* << Fim da inclusão

            msgv2 = itab_zycbt209-nrinvoic

            msgv3 = text-035

            txtnr = '061'

            zeile = v_zeile.

  v_zeile = v_zeile + 1.

  v_desmemb = space.

  v_erro    = space.

  LOOP AT itab_zycbt030 WHERE nrinvoic = itab_zycbt209-nrinvoic AND

                              nrparcf  = itab_zycbt209-nrparcf  AND

                              gsberf   = itab_zycbt209-gsberf.

...

...

  DATA: v_agrupada   TYPE c.

  PERFORM verifica_data USING itab_zycbt209-dtcredext

                              itab_zycbt209-bukrs

                              itab_zycbt209-nrinvoic

                              space.

  IF sy-subrc EQ 0.

    CALL FUNCTION 'MESSAGE_STORE'

         EXPORTING

              arbgb = '/PWS/ZYCBM'

              msgty = 'S'

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

              msgv1 = text-034

* << Fim da exclusão

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

              msgv1 = v_text_034

* << Fim da inclusão

              msgv2 = itab_zycbt209-nrinvoic

              msgv3 = text-050

              txtnr = '061'

              zeile = v_zeile.

    v_zeile = v_zeile + 1.

  ELSE.

    CALL FUNCTION 'MESSAGE_STORE'

         EXPORTING

              arbgb = '/PWS/ZYCBM'

              msgty = 'S'

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

              msgv1 = text-034

* << Fim da exclusão

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

              msgv1 = v_text_034

* << Fim da inclusão

              msgv2 = itab_zycbt209-nrinvoic

              msgv3 = text-051

              txtnr = '061'

              zeile = v_zeile.

    v_zeile = v_zeile + 1.

  ENDIF.

  v_agrupada = 'X'.

  LOOP AT itab_zycbt030 WHERE nrinvoic = itab_zycbt209-nrinvoic AND

                              gsberf   = itab_zycbt209-gsberf   AND

                              nrparcf  = itab_zycbt209-nrparcf.

...

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

Modificações efetuadas em REPS /PWS/MZYCB031X01

...

DATA: BEGIN OF COMMON PART c.

DATA: BEGIN OF itab_zycbt209 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycbt209.

DATA: vlsltrans LIKE /pws/zycbt030-vlsltrans,

     oper(1) TYPE c,

     mark(1) TYPE c,

     v_name1 TYPE kna1-name1,

     vlavinc TYPE /pws/zycbt017-vlavinc,

     v_name_bco   LIKE lfa1-name1.

DATA: END OF itab_zycbt209.

* >> Início da exclusão:

DATA: ok_code      LIKE sy-ucomm,

      v_syrepid    LIKE sy-repid,

      v_tcode      TYPE sy-tcode,

      v_codaux     LIKE /pws/zyglt316-codaux1,

      v_modo_bi(1) TYPE c.

* << Fim da exclusão

* >> Início da inclusão:

DATA: ok_code          LIKE sy-ucomm,

      v_syrepid        LIKE sy-repid,

      v_tcode          TYPE sy-tcode,

      v_codaux         LIKE /pws/zyglt316-codaux1,

      v_modo_bi(1)     TYPE c,

      v_descricao(50)  type c,

      v_descricao2(50) type c,

      v_text_034(50)   type c.

* << Fim da inclusão

DATA: BEGIN OF itab_contas OCCURS 0.

        INCLUDE STRUCTURE /pws/zyglt316.

DATA: END OF itab_contas.

DATA: BEGIN OF itab_doctos OCCURS 0.

        INCLUDE STRUCTURE /pws/zycbt036.

DATA: END OF itab_doctos.

DATA: BEGIN OF itab_zyglt321 OCCURS 0.

        INCLUDE STRUCTURE /pws/zyglt321.

DATA: END OF itab_zyglt321.

DATA: itab_zycbt032 LIKE /pws/zycbt032 OCCURS 10 WITH HEADER LINE,

...

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

Modificações efetuadas em REPT /PWS/SAPMZYCB031

Incluído símbolo de texto:

Idioma: PT

Símbolo: 074

Texto: (23 caracteres)

"Liquidação em Andamento"

Comprimento máximo: 23