Sintoma

Está calculando o valor integral do ICMS e deveria estar calculando proporcional a quantidade a ser

nacionalizada.

Não está sendo exibida na tela do realizado de importação os detalhes do item selecionado para

exibição do realizado.

Solução

Ajustar o calculo de ICMS para que seja realizada a proporção conforme é realizado para os demais

impostos.

Informações Complementares

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

Nota Número 03936 Data: 15/06/2007 Hora: 09:08:27

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

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

Nota Número              : 03936

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00001

Agrupamento              : 00170

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

Referência às notas relacionadas:

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

03422  - 00001 - 7.0    - 00001  - AJUSTE CALCULO DO ICMS RESPEITANDO PARAMETRO DA /PWS/ZYCIT062

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

AJUSTADO CALCULO DO ICMS PROPORCIONAL A QUANTIDADE A SER NACIONALIZADA

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

Palavras Chave:

CALCULO - ICMS - PROPORÇÃO - NACIONALIZAÇÃO - EXIBIÇÃO - COMPONENTE

/PWS/SAPMZYCI040 - REALIZADO - IMPORTAÇÃO - COMPONENTE - DESCRIÇÃO

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

Objetos da nota:

REPS /PWS/MZYCI040F02

REPS /PWS/MZYCI040F03

REPS /PWS/MZYCI040I01

REPS /PWS/SAPMZYCI040

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

Modificações efetuadas em REPS /PWS/MZYCI040F02

...

    ENDIF.

  ENDLOOP.

  LOOP AT SCREEN.

    IF ( /pws/zycie244-modalidade EQ 'I' )       AND

        ( screen-name EQ '/PWS/ZYCIE245C-NETPR' ).

      screen-invisible = 1.

      MODIFY SCREEN.

    ENDIF.

  ENDLOOP.

  LOOP AT SCREEN.

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

    IF /pws/zycie244-tipo EQ 'G' OR /pws/zycie244-tipo EQ 'F'.

* << Fim da exclusão

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

        IF /pws/zycie244-tipo EQ 'G' OR /pws/zycie244-tipo EQ 'F'

          OR ( /pws/zycit321-c_comum    EQ 'X' AND

               /pws/zycie244-modalidade NE 'I' )

          OR ( /pws/zycit321-it_ge      EQ 'X' AND

               /pws/zycie244-modalidade EQ 'I' ).

* << Fim da inclusão

      IF screen-name EQ 'I_NRITEM'.

        screen-invisible = 1.

        screen-intensified = 0.

        MODIFY SCREEN.

      ENDIF.

      IF screen-name EQ '/PWS/ZYCIE245C-CODCOMP'.

        screen-invisible = 1.

        screen-intensified = 0.

        MODIFY SCREEN.

      ENDIF.

...

...

    ENDIF.

    IF /pws/zycie244-tipo EQ 'G'.

      IF   screen-name EQ '/PWS/ZYCIE245C-QTD_ITEN'

        OR screen-name EQ '/PWS/ZYCIE245C-QTD_NCM'

        OR screen-name EQ '/PWS/ZYCIE245C-UM_NCM'

        OR screen-name EQ '/PWS/ZYCIE245C-MEINS'

        OR screen-name EQ '/PWS/ZYCIE244-T_REALQTD'

        OR screen-name EQ '/PWS/ZYCIE244-S_REALQTD'.

        screen-invisible = 1.

        MODIFY SCREEN.

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

      ENDIF.

* << Fim da exclusão

    ENDIF.

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

    IF screen-group2 EQ 'NCM'.

      screen-invisible = 1.

      MODIFY SCREEN.

* << Fim da exclusão

    ENDIF.

  ENDLOOP.

  LOOP AT tc_realizi-cols INTO wa_cols2.

    CASE wa_cols2-screen-name.

...

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

Modificações efetuadas em REPS /PWS/MZYCI040F03

...

          WHERE a~docnum EQ itab_zycit279_ap-docnum.

      IF sy-subrc EQ 0 .

        SELECT SINGLE * FROM /pws/zycit062

             WHERE regio = v_regio.

      ENDIF.

      IF /pws/zycit062-susp_nf EQ 'S'.

        itab_zycit279_ap-baseicms =

          ( itab_zycit279_ap-baseicms * v_propor ) +

                      /pws/zycie470-ii + /pws/zycie470-ipi +

                      /pws/zycie470-pis + /pws/zycie470-cofins.

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

      ELSE.

        itab_zycit279_ap-baseicms =

           itab_zycit279_ap-baseicms * v_propor .

* << Fim da inclusão

      ENDIF.

      IF NOT /pws/zycit062-flag_icms IS INITIAL AND

             /pws/zycit062-susp_nf EQ 'S'.

        itab_zycit246-i_vlicms   =

              ( ( itab_zycit279_ap-baseicms /

               (  1 - ( itab_zycit246-i_txicms / 100 ) ) )

                              * itab_zycit246-i_txicms ) / 100.

      ELSE.

        itab_zycit246-i_vlicms   =

              (  itab_zycit279_ap-baseicms

...

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

Modificações efetuadas em REPS /PWS/MZYCI040I01

...

        itab_zycit279_ap-baseicms =

          ( itab_zycit279_ap-baseicms * v_propor ) +

                      itab_zycit246-i_vlii + itab_zycit246-i_vlipi +

                      itab_zycit246-vlpis + itab_zycit246-vlcof.

        itab_zycit246-i_vlicms   =

              ( ( itab_zycit279_ap-baseicms /

               (  1 - ( itab_zycit246-i_txicms / 100 ) ) )

                              * itab_zycit246-i_txicms ) / 100.

      ELSE.

        itab_zycit246-i_vlicms   =

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

              (  itab_zycit279_ap-baseicms

* << Fim da exclusão

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

              ( ( itab_zycit279_ap-baseicms * v_propor )

* << Fim da inclusão

                              * itab_zycit246-i_txicms ) / 100.

      ENDIF.

      itab_zycit246-i_multaicms  =

                                  ( itab_zycit246-i_vlicms *

                                     itab_zycit246-multaicms ) / 100.

      itab_zycit246-i_tottrib    =

                           itab_zycit246-i_vlii + itab_zycit246-i_vlipi.

      itab_zycit246-i_multaii    = ( itab_zycit246-i_vlii *

                                     itab_zycit246-multaii ) / 100.

      itab_zycit246-i_multaipi   = ( itab_zycit246-i_vlipi *

...

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

Modificações efetuadas em REPS /PWS/SAPMZYCI040

...

            WHERE a~docnum EQ itab_zycit279_ap-docnum.

        IF sy-subrc EQ 0 .

          SELECT SINGLE * FROM /pws/zycit062

               WHERE regio = v_regio.

        ENDIF.

        IF /pws/zycit062-susp_nf EQ 'S'.

          itab_zycit279_ap-baseicms =

            ( itab_zycit279_ap-baseicms * v_propor ) +

                        /pws/zycie470-ii + /pws/zycie470-ipi +

                        /pws/zycie470-pis + /pws/zycie470-cofins.

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

        ELSE.

          itab_zycit279_ap-baseicms =

             itab_zycit279_ap-baseicms * v_propor .

* << Fim da inclusão

        ENDIF.

        IF NOT /pws/zycit062-flag_icms IS INITIAL.

          itab_zycit246-i_vlicms   =

                ( ( itab_zycit279_ap-baseicms /

                 (  1 - ( itab_zycit246-i_txicms / 100 ) ) )

                                * itab_zycit246-i_txicms ) / 100.

        ELSE.

          itab_zycit246-i_vlicms   =

                (  itab_zycit279_ap-baseicms

                                * itab_zycit246-i_txicms ) / 100.

...

...

          WHERE a~docnum EQ itab_zycit246-docnum.

      IF sy-subrc EQ 0 .

        SELECT SINGLE * FROM /pws/zycit062

             WHERE regio = v_regio.

      ENDIF.

      IF /pws/zycit062-susp_nf EQ 'S'.

        itab_zycit279_ap-baseicms =

          ( itab_zycit279_ap-baseicms * v_propor ) +

                      itab_zycit246-i_vlii + itab_zycit246-i_vlipi +

                      itab_zycit246-vlpis + itab_zycit246-vlcof.

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

      ELSE.

        itab_zycit279_ap-baseicms =

           itab_zycit279_ap-baseicms * v_propor .

* << Fim da inclusão

      ENDIF.

      IF NOT /pws/zycit062-flag_icms IS INITIAL and

             /pws/zycit062-susp_nf eq 'S'.

        itab_zycit246-i_vlicms   =

              ( ( itab_zycit279_ap-baseicms /

               (  1 - ( itab_zycit246-i_txicms / 100 ) ) )

                              * itab_zycit246-i_txicms ) / 100.

      ELSE.

        itab_zycit246-i_vlicms   =

              (  itab_zycit279_ap-baseicms

...