Sintoma

Implementação de Exit na DI no início do PERFORM LOAD_ITAX DI016

Solução

Implementação de Exit na DI no início do PERFORM LOAD_ITAX DI016

Informações Complementares

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

Nota Número 10358 Data: 05/07/2010 Hora: 10:06:05

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

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

Nota Número              : 10358

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 8.0

Pacote                   : 00004

Agrupamento              : 00029

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

IMPLEMENTAÇÃO DE EXIT NA DI NO INÍCIO DO PERFORM LOAD_ITAX

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

Palavras Chave:

DESEMBARAÇO - DI - EXIT - DI016 - INÍCIO - PERFORM LOAD_ITAX

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

Objetos da nota:

REPS /PWS/MZYCI023F01

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

Modificações efetuadas em REPS /PWS/MZYCI023F01

...

  ENDIF.

  itab_it-vlfob = t_vmle.

  /pws/zycie100a-vlfob = t_vmle.

ENDFORM.

FORM load_itax USING p_tipo.

  DATA v_desp_fren LIKE /pws/zycit049-vldp.

  DATA t_dif_seg LIKE /pws/zycit100-vlseg.                  "#EC NEEDED

  DATA: v_casasd  TYPE /pws/zycit036-vlreal,

        v_casasd2 TYPE /pws/zycit036-vlreal,

        v_casasd3 TYPE /pws/zycit036-vlreal.

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

  e_subrc = 0.

  PERFORM verifica_exit USING 'D'

                              '/PWS/SAPMZYCI023'

                              'DI016'.

  CLEAR itab_zyglt100 .

  READ TABLE itab_zyglt100 WITH KEY zexit = 'DI016'  BINARY SEARCH.

  IF sy-subrc EQ 0.

    IF NOT itab_zyglt100-zexit_ativa IS INITIAL.

      PERFORM (itab_zyglt100-formulario) IN PROGRAM

          (itab_zyglt100-programa) IF FOUND.

    ENDIF.

  ENDIF.

  IF e_subrc NE 0.

    EXIT.

  ENDIF.

* << Fim da inclusão

  CLEAR: t_ivdesp.

  LOOP AT itab_zycit049 WHERE baseii EQ 'X' AND NOT vlreal IS initial.

    IF itab_zycit049-tpdesp = /pws/zycit000-cod_antidump .

      CONTINUE.

    ENDIF.

    IF /pws/zycit000-flag_txsisc IS INITIAL  OR

       wa_it000-cod_sisc NE itab_zycit049-tpdesp.

      IF itab_zycit049-divabs  = 'X'.

        IF NOT v_ipt IS INITIAL.

          t_ivdes2 = ( 1 / v_ipt ) * itab_zycit049-vlreal.

...