Sintoma

Havia exits no programa de Prestação de Contas que estavam sendo chamadas via CALL-CUSTOMER, ou

seja, foram criadas como projeto e ampliação (transações CMOD e SMOD).

Solução

Modificar a chamada destas exitsd para os novos padrões do Produto, com chamada via parametrização

em tabela e programas específicos.

Informações Complementares

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

Nota Número 00148 Data: 17/10/2005 Hora: 11:22:46

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

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

Nota Número              : 00148

Categoria                : Melhoria

Prioridade               : Alta

Versão PW.CE             : 6.0

Pacote                   : 00021

Agrupamento              : 00083

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

Referência às notas relacionadas:

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

00058  - 00001 - 6.0    - 00021  - AUTHORITY-CHECK POR EMPRESA NA PRESTAÇÃO DE CONTAS

00086  - 00002 - 6.0    - 00021  - ARREDONDAMENTO NA PRESTAÇÃO DE CONTAS DA EXPORTAÇÃO

00134  - 00003 - 6.0    - 00021  - EXCLUSÃO DE EXIT DO PROJETO /PWS/F18 CHAMADA VIA CALL CUSTOMER

00138  - 00004 - 6.0    - 00021  - INCLUSÃO DE NÚMERO DE PRESTAÇÃO NA MENSAGEM DE GRAVAÇÃO

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

SUBSTITUIÇÃO DE EXITS VIA CALL-CUSTOMER POR EXITS PADRÕES PROCWORK

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

Palavras Chave:

PROCWORK;PADRÃO;EXITS;CALL-CUSTOMER;SUBSTITUIÇÃO

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

Objetos da nota:

REPS /PWS/MZYCE013F01

REPS /PWS/SAPMZYCE013

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

Modificações efetuadas em REPS /PWS/MZYCE013F01

FORM select_data USING p_tipo.

  DATA: v_embant LIKE itab_zycet033-nrseq,

        v_privez VALUE 'S',

        v_vlmi   LIKE /pws/zycet033-vlmi,

        v_p2adtos(3).

  CASE p_tipo.

    WHEN '1'.

...

        PERFORM select_despesas.

        PERFORM select_minmax.

        PERFORM select_zycet043_all.

        CALL SCREEN '0100'.

      ENDIF.

  ENDCASE.

* >>Início da Inclusão<<

  PERFORM busca_exit USING 'PDC011'.

* >>Fim da Inclusão<<

ENDFORM.                    " select_data

...

FORM set_screen.

  CASE sy-dynnr.

    WHEN '0001'.

      LOOP AT SCREEN.

        IF screen-name = '/PWS/ZYCEE018-STATUS'.

...

            screen-input = 0.

            MODIFY SCREEN.

          ENDIF.

        ENDLOOP.

      ENDIF.

  ENDCASE.

* >>Início da Inclusão<<

  PERFORM busca_exit USING 'PDC010'.

* >>Fim da Inclusão<<

ENDFORM.                    " set_screen

...

FORM preenche_itab_zycbe033 USING    value(p_type).

  CASE p_type.

    WHEN '1'.

      itab_zycbe033-tcode   =  'F-43'.

      itab_zycbe033-tabela  =  text-010.

      itab_zycbe033-bktxt   =  wa_zycbt007-bktxt.

      itab_zycbe033-cpochv  =  /pws/zycee033-nrseq.

...

* >>Início da Deleção<<

      IF NOT v_exit5 IS INITIAL.

        DATA: BEGIN OF itab_rateio_ppc OCCURS 0,

                kschl       LIKE /pws/zycet021-kschl,

                ccusto(20),

                valor       LIKE /pws/zycet002-vlme,

              END OF itab_rateio_ppc.

        IMPORT itab_rateio_ppc FROM MEMORY ID 'EXT5'.

        IF NOT itab_rateio_ppc[] IS INITIAL.

          LOOP AT itab_rateio_ppc WHERE kschl = itab_total-kschl.

            itab_zycbe033-wrbtr   =  itab_rateio_ppc-valor.

            itab_zycbe033-d_kostl =  itab_rateio_ppc-ccusto.

            APPEND itab_zycbe033.

          ENDLOOP.

        ELSE.

          APPEND itab_zycbe033.

        ENDIF.

      ELSE.

* >>Fim da Deleção<<

      APPEND itab_zycbe033.

* >>Início da Deleção<<

      ENDIF.

* >>Fim da Deleção<<

...

FORM preenche_f51 USING    value(p_type).

  DATA: v_docfat LIKE /pws/zycee033-docfat,

        v_conta2 LIKE itab_total-conta2.

  v_docfat = /pws/zycee033-docfat.

...

        ENDIF.

        PERFORM preenche_itab_zycbe036 USING '3'.

      ENDLOOP.

      DELETE ADJACENT DUPLICATES FROM itab_zycbt036.

  ENDCASE.

* >>Início da Inclusão<<

  PERFORM busca_exit USING 'PDC012'.

* >>Fim da Inclusão<<

ENDFORM.                    " preenche_f51

...

FORM compensa_fatura_prov.

  IF itab_zycet002[] IS INITIAL.

    SELECT *

           INTO  TABLE itab_zycet002

           FROM  /pws/zycet002

           WHERE nrseq EQ /pws/zycee033-nrseq.

...

* >>Início da Deleção<<

   CALL CUSTOMER-FUNCTION '005'

                                                              EXPORTING

                                    v_embarque    = /pws/zycee033-nrseq

                                                              IMPORTING

                                                v_subrc       = v_exit5

                                                                 TABLES

                                          itab_zycet002 = itab_zycet002

                                          itab_zycet043 = itab_zycet043

* >>Fim da Deleção<<

    PERFORM: preenche_f51      USING '2',

             call_function_f51 USING '2'.

  ENDIF.

ENDFORM.                    " compensa_fatura_prov

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

Modificações efetuadas em REPS /PWS/SAPMZYCE013

* >>Não houveram modificações significativas neste include<<