Sintoma

Necessária a criação de uma EXIT, para que esta seja ativada através da /PWS/ZYGLT100. Na versão

atualmente em produção na Rhodia, o programa de custo efetivo (/PWS/SAPMZYCI010) foi modificado,

inibindo-se uma EXIT que o programa possui no formato antigo (Custumer Function

EXIT_/PWS/SAPMZYCI010_001), para forçar o fluxo de processamento a passar pelo form

``mult_lancamentos``, em qualquer circunstância (vide chamado 248283). Posteriormente, o acesso a

tabela T030, foi substituido para que fosse acessada a tabela ZYCERT030_39 (uma espécie de ``ZT030

``, que já existe hoje na Rhodia), justamente no form ``mult_lancamentos``.

Solução

Inserido ponto de Exit no Programa.

Informações Complementares

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

Nota Número 01109 Data: 29/03/2006 Hora: 13:57:15

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

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

Nota Número              : 01109

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00023

Agrupamento              : 00107

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

EXIT - CUSTO EFETIVO

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

Palavras Chave:

EXIT - /PWS/ZYGLT100 - T030 - ZYCERT030_39

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

Objetos da nota:

REPS /PWS/MZYCI010F02

REPS /PWS/MZYCI010TOP

REPS /PWS/MZYCI010X01

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

Modificações efetuadas em REPS /PWS/MZYCI010F02

...

  ENDLOOP.

  LOOP AT itab_zycit003_custo.

    MOVE-CORRESPONDING itab_zycit003_custo TO itab_zycit003_custo_aux.

    APPEND itab_zycit003_custo_aux.

  ENDLOOP.

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

  CALL CUSTOMER-FUNCTION '001'

    EXPORTING

        /pws/zycie001            = /pws/zycie001

        /pws/zycbt007            = /pws/zycbt007

        v_rub               = v_rub

    IMPORTING

        v_subrc             = v_subrc

        v_conta             = v_conta

    TABLES

        itab_zycit003_custo = itab_zycit003_custo_aux

        itab_zycbt035       = itab_zycbt035

        itab_param_classe   = itab_param_classe

        itab_zycit003       = itab_zycit003_aux.

* << Fim da exclusão

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

  PERFORM verifica_exit USING 'D'

                       '/PWS/SAPMZYCI010'

                       'CUS002'.

  CLEAR itab_zyglt100 .

  READ TABLE itab_zyglt100 WITH KEY zexit = 'CUS002'.

* << Fim da inclusão

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

  IF v_subrc NE 'X'.

    IF v_rub = 'X'.

      PERFORM mult_lancamentos_rub.

* << Fim da exclusão

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

  IF not itab_zyglt100-zexit_ativa IS INITIAL.

    PERFORM (itab_zyglt100-formulario) IN PROGRAM

        (itab_zyglt100-programa).

* << Fim da inclusão

    ELSE.

      PERFORM mult_lancamentos.

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

    ENDIF.

* << Fim da exclusão

  ENDIF.

ENDFORM.

FORM get_parameters_f-02.

  DATA: v_index  TYPE i              ,

        v_index2 TYPE i              ,

...

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

Modificações efetuadas em REPS /PWS/MZYCI010TOP

...

* >> Início da exclusão:

  /pws/zycbt007,

* << Fim da exclusão

....

* >> Início da exclusão:

  t030         ,

* << Fim da exclusão

...

...

* >> Início da exclusão:

  /pws/zycit000,

* << Fim da exclusão

...

...

* >> Início da exclusão:

data: begin of itab_zycit003 occurs 0.

        include structure /pws/zycit003.

data: netprt type /pws/zycil816 .

data:  mark.

data: end of itab_zycit003.

* << Fim da exclusão

...

* >> Início da exclusão:

data: begin of itab_zycit003_custo occurs 0.

        include structure /pws/zycit003.

data: netprt type /pws/zycil816 .

data:  mark.

data: end of itab_zycit003_custo.

* << Fim da exclusão

...

...

* >> Início da exclusão:

data: begin of itab_classe_aval occurs 0.

data: matnr like mbew-matnr,

      bwkey like mbew-bwkey,

      bwtar like mbew-bwtar,

      bklas like mbew-bklas.

data: end of itab_classe_aval.

data: begin of itab_param_classe occurs 0.

        include structure /pws/zycit135.

data: end of itab_param_classe.

* << Fim da exclusão

...

...

* >> Início da exclusão:

data: begin of itab_ekkn occurs 0.

data: ebeln      like ekkn-ebeln,

      ebelp      like ekkn-ebelp,

      VPROZ      like ekkn-VPROZ,

      prctr      like ekkn-prctr,

      kostl      like ekkn-kostl,

      kokrs      like ekkn-kokrs,

      fictr      like ekkn-fistl,

      fipos      like ekkn-fipos,

      aufnr      like ekkn-aufnr,

      ps_psp_pnr like ekkn-ps_psp_pnr,

      sakto      like ekkn-sakto,

      anln1      like ekkn-anln1,

      anln2      like ekkn-anln2,

      nplnr      like ekkn-nplnr,

      aufpl      like ekkn-aufpl,

      aplzl      like ekkn-aplzl.

data: end of itab_ekkn.

* << Fim da exclusão

...

...

* >> Início da exclusão:

data: begin of itab_matuse occurs 0  .

data: ebeln      like ekpo-ebeln     ,

      ebelp      like ekpo-ebelp     ,

      matnr      like ekpo-matnr     ,

      bwtar      like ekpo-bwtar     ,

      j_1bmatuse like ekpo-j_1bmatuse,

      knttp      like ekpo-knttp     ,

      werks      like ekpo-werks.

data: end of itab_matuse             .

* << Fim da exclusão

...

...

* >> Início da exclusão:

data: begin of itab_itens_contas occurs 0.

data: nrseq   like /pws/zycit001-nrseq,

      ebeln   like /pws/zycit003-ebeln,

      ebelp   like /pws/zycit003-ebelp,

      matnr   like ekpo-matnr,

      bklas   like mbew-bklas,

      werks   like /pws/zycit003-werks,

      konts   like t030-konts,

      konth   like t030-konth.

data: end  of itab_itens_contas.

* << Fim da exclusão

...

...

* >> Início da exclusão:

data: begin of itab_anlz occurs 0        .

data: anln1  like anlz-anln1     ,

      anln2  like anlz-anln2     ,

      gsber  like anlz-gsber     .

data: end of itab_anlz                   .

* << Fim da exclusão

...

...

* >> Início da exclusão:

  v_mr22,

  v_vldif1     like /pws/zycit003-vldif,

* << Fim da exclusão

...

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

Modificações efetuadas em REPS /PWS/MZYCI010X01

...

* >> Início da inclusão:

tables:

         t030,

         /pws/zycit000,

         /pws/zycbt007.

* << Fim da inclusão

data: begin of common part b.

...

...

* >> Início da inclusão:

data: begin of itab_itens_contas occurs 0.

data: nrseq   type /pws/zycit001-nrseq,

      ebeln   type /pws/zycit003-ebeln,

      ebelp   type /pws/zycit003-ebelp,

      matnr   type ekpo-matnr,

      bklas   type mbew-bklas,

      werks   type /pws/zycit003-werks,

      konts   type t030-konts,

      konth   type t030-konth.

data: end  of itab_itens_contas.

data: begin of itab_zycit003_custo occurs 0.

        include structure /pws/zycit003.

data: netprt type /pws/zycil816 .

data:  mark.

data: end of itab_zycit003_custo.

data: begin of itab_ekkn occurs 0.

data: ebeln      type ekkn-ebeln,

      ebelp      type ekkn-ebelp,

      VPROZ      type ekkn-VPROZ,

      prctr      type ekkn-prctr,

      kostl      type ekkn-kostl,

      kokrs      type ekkn-kokrs,

      fictr      type ekkn-fistl,

      fipos      type ekkn-fipos,

      aufnr      type ekkn-aufnr,

      ps_psp_pnr type ekkn-ps_psp_pnr,

      sakto      type ekkn-sakto,

      anln1      type ekkn-anln1,

      anln2      type ekkn-anln2,

      nplnr      type ekkn-nplnr,

      aufpl      type ekkn-aufpl,

      aplzl      type ekkn-aplzl.

data: end of itab_ekkn.

data: begin of itab_matuse occurs 0  .

data: ebeln      type ekpo-ebeln     ,

      ebelp      type ekpo-ebelp     ,

      matnr      type ekpo-matnr     ,

      bwtar      type ekpo-bwtar     ,

      j_1bmatuse type ekpo-j_1bmatuse,

      knttp      type ekpo-knttp     ,

      werks      type ekpo-werks.

data: end of itab_matuse             .

data: begin of itab_classe_aval occurs 0.

data: matnr type mbew-matnr,

      bwkey type mbew-bwkey,

      bwtar type mbew-bwtar,

      bklas type mbew-bklas.

data: end of itab_classe_aval.

data: begin of itab_param_classe occurs 0.

        include structure /pws/zycit135.

data: end of itab_param_classe.

data: begin of itab_zycit003 occurs 0.

        include structure /pws/zycit003.

data: netprt type /pws/zycil816 .

data:  mark.

data: end of itab_zycit003.

data: begin of itab_anlz occurs 0        .

data: anln1  type anlz-anln1     ,

      anln2  type anlz-anln2     ,

      gsber  type anlz-gsber     .

data: end of itab_anlz                   .

data:    v_vldif1     type /pws/zycit003-vldif,

         v_mr22.

* << Fim da inclusão

DATA: END OF COMMON PART b.