Sintoma

Necessidade de alterar a mensagem de confirmação para associação de pagamento

antecipado.

Solução

Criada EXIT FAT007 para tratar esta mensagem.

Informações Complementares

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

Nota Número 00501 Data: 21/12/2005 Hora: 17:26:38

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

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

Nota Número              : 00501

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00022

Agrupamento              : 00093

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

EXIT PARA ALTERAÇÃO DA MENSAGEM DE ASSOCIAÇÃO DA FATURA

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

Palavras Chave:

FATURA - EXIT - ASSOCIAÇÃO - FAT007 - PAGAMENTO ANTECIPADO

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

Objetos da nota:

RELE F6DK928474 20051219 164930 PWSCI

REPS /PWS/MZYCI003F01

REPS /PWS/MZYCI003TOP

REPS /PWS/MZYCI003X01

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

Modificações efetuadas em RELE F6DK928474 20051219 164930 PWSCI

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

Modificações efetuadas em REPS /PWS/MZYCI003F01

...

      ENDIF.

    ENDIF.

    IF v_pg_ant = 'X'

 AND ( /pws/zycie006-tpfatura = '01' OR /pws/zycie006-tpfatura = '11' )

       AND ( v_contabilizou EQ 'X' OR /pws/zycie006-frpagto = 'P' ).

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

      PERFORM verifica_exit USING 'D'

                       '/PWS/SAPMZYCI003'

                       'FAT007'.

      CLEAR itab_zyglt100 .

      READ TABLE itab_zyglt100 WITH KEY zexit = 'FAT007'.

      IF NOT itab_zyglt100-zexit_ativa IS INITIAL.

        EXPORT /pws/zycie006 TO MEMORY ID 'FAT007'.

        PERFORM (itab_zyglt100-formulario) IN PROGRAM

         (itab_zyglt100-programa).

      ELSE.

* << Fim da inclusão

      CALL FUNCTION 'POPUP_TO_CONFIRM_WITH_MESSAGE'

           EXPORTING

                defaultoption = 'Y'

                diagnosetext1 = text-086

                textline1     = text-087

...

...

                titel         = text-089

           IMPORTING

                answer        = v_resposta

           EXCEPTIONS

                OTHERS        = 1.

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

      ENDIF.

* << Fim da inclusão

      IF v_resposta = 'J'.

        PERFORM associar_fatura.

      ENDIF.

    ENDIF.

  ENDIF.

...

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

Modificações efetuadas em REPS /PWS/MZYCI003TOP

...

  tc_cambio  TYPE TABLEVIEW USING SCREEN '0350',

  tc_pg_ant   TYPE TABLEVIEW USING SCREEN '0500'.

DATA:

  v_status_s VALUE 1          ,

  wa_cols    TYPE cxtab_column,

* >> Início da exclusão:

  v_resposta                  ,

* << Fim da exclusão

  v_trans(4) TYPE c,

  v_kursf    LIKE /pws/zycbe033-kursf,

  erro_bi,

  v_codeven LIKE /pws/zycbt011-codeven,

  v_answer,

...

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

Modificações efetuadas em REPS /PWS/MZYCI003X01

...

  e_subrc  ,

  okcode     LIKE sy-ucomm,

  v_zuonr    like bseg-zuonr,

  v_xblnr   like itab_zycbe033-xblnr,

  v_sgtxt   like  bseg-sgtxt        ,

* >> Início da exclusão:

  v_bktxt       LIKE  /pws/zycbt007-bktxt.

* << Fim da exclusão

* >> Início da inclusão:

  v_bktxt       LIKE  /pws/zycbt007-bktxt,

  v_resposta                  .

* << Fim da inclusão

data: end of common part.