Sintoma

A base e o valor de ICMS está sendo gravado incorretamente na tabela /pws/zycit443.

O programa fica trocando os valores entre os itens da DA.

Solução

Ajustado programa para que os valores sejam de pis e cofins sejam calculados para que seja utilizado

no calculo do ICMS.

Informações Complementares

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

Nota Número 04119 Data: 06/07/2007 Hora: 08:59:28

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

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

Nota Número              : 04119

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00002

Agrupamento              : 00002

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

Referência às notas relacionadas:

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

01323  - 00001 - 6.0    - 00023  - DECLARAÇÃO DE ADMISSÃO PARA ENTREPOSTO ADUANEIRO

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

CALCULO DA BASE E VALOR DE ICMS NA DA

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

Palavras Chave:

DA - ICMS - CALCULO - BASE - VALOR

/PWS/SAPMZYCI070

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

Objetos da nota:

REPS /PWS/MZYCI070F01

REPS /PWS/MZYCI070F04

REPS /PWS/MZYCI070I01

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

Modificações efetuadas em REPS /PWS/MZYCI070F01

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

Modificações efetuadas em REPS /PWS/MZYCI070F04

form mp_antiga.

      itab_it-basecofins  =  itab_it-basepis  =

      ( t_ivadu * ( (  1 + v_advicms * ( v_advii + v_advipi *

      ( 1 + v_advii ) )  ) / ( 1 - v_advpis - v_advcof - v_advicms ) ) )

       + ( ( v_desp + t_ivdesp ) * ( v_advicms /

       ( 1 - v_advpis - v_advcof - v_advicms ) ) ).

endform.

form mp_nova.

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

  /pws/zycie443a-basepis = /pws/zycie443a-basecofins  =

* << Fim da inclusão

          itab_it-basecofins  = itab_it-basepis  =

                ( t_ivadu * ( (  1 + v_advicms *  ( v_advii + v_advipi *

                ( 1 + v_advii ) ) ) / ( ( 1 - v_advpis - v_advcof ) *

                ( 1 - v_advicms ) ) ) ).

endform.

form vigencia_mp.

      IF NOT /pws/zycie442-dtreg IS INITIAL .

        if not itab_zycit438-vigencia_ate is initial.

          IF itab_zycit438-vigencia     <= /pws/zycie442-dtreg and

             itab_zycit438-vigencia_ate >= /pws/zycie442-dtreg.

...

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

Modificações efetuadas em REPS /PWS/MZYCI070I01

...

MODULE modi_datait INPUT.

  itab_it-mark = wa_it-mark.

  MOVE: v_saldo_da TO itab_it-v_saldo_da,

        v_qtd_da   TO itab_it-qtd_da,

        v_vlreal   TO itab_it-vlreal.

  IF itab_it-mandt IS INITIAL.

    itab_it-mandt = sy-mandt.

  ENDIF.

  IF v_dit = 'S'.

  ELSE.

* >> Início da exclusão: MODULE MODI_DATAIT

    MODIFY itab_it INDEX tc_item-current_line

    TRANSPORTING mark v_saldo_da qtd_da vlreal ntgew.

* << Fim da exclusão

* >> Início da inclusão: MODULE MODI_DATAIT

    MODIFY itab_it TRANSPORTING mark v_saldo_da qtd_da vlreal ntgew

                      WHERE ebeln EQ /pws/zycie443a-ebeln

                        AND ebelp EQ /pws/zycie443a-ebelp.

* << Fim da inclusão

  ENDIF.

ENDMODULE.

MODULE

user_command INPUT.

  CASE sy-dynnr.

    WHEN '0233' OR '0333'.

      IF sy-dynnr = '0333'.

        CALL METHOD cl_gui_cfw=>dispatch.

      ENDIF.

      CASE sy-ucomm.

...