Sintoma

Ao acessar o item da DI ou navegar até o item não acessável apresenta DUMP de valor negativo.

Solução

Não permitir acessar o item que esta com o valor negativo apresentando msg. Para correção do valor

do Frete

Informações Complementares

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

Nota Número 09556 Data: 10/12/2009 Hora: 14:02:13

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

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

Nota Número              : 09556

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 8.0

Pacote                   : 00002

Agrupamento              : 00001

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

Referência às notas relacionadas:

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

00001  - 07493 - 6.0    - 00021  - DI - SUSPENSÃO DE ICMS

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

DUMP AO NAVEGAR NOS ITENS DA DI FRETE MAIOR QUE O RATEIO PESO

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

Palavras Chave:

DUMP - DI - FRETE - RATEIO - ITEM - ENTRAR - NAVEGAR

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

Objetos da nota:

REPS /PWS/MZYCI023F01

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

Modificações efetuadas em REPS /PWS/MZYCI023F01

...

    PERFORM load_regt  USING /pws/zycie100a-codregtriicms

                             /pws/zycie085-ntimp

                             '4' CHANGING t_regde3.

  ENDIF.

  IF v_msg EQ 'X'.

    MESSAGE i015 WITH text-152.

    CLEAR v_msg.

    EXIT.

  ENDIF.

  IF gc_subscreen-prog EQ '0100'.

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

    IF s_inco1 EQ 'CFR' OR

       s_inco1 EQ 'CIF' OR

       s_inco1 EQ 'C&F'.

* << Fim da exclusão

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

    IF s_inco1_ci EQ 'CFR' OR

       s_inco1_ci EQ 'CIF' OR

       s_inco1_ci EQ 'C&F'.

* << Fim da inclusão

      LOOP AT itab_it.

        IF itab_it-vlfre > itab_it-vlfobr.

          v_msg = 'S'.

        ENDIF.

      ENDLOOP.

      READ TABLE itab_it WITH KEY mark = 'X'.

      v_ip = sy-tabix.

      IF v_msg = 'S'.

        MESSAGE i015 WITH text-219.

      ENDIF.

...