CE PLUS - Nota 013570

Módulo: DOC. IMPORTAÇÃO

Funcionalidade: Nota Fiscal

Data/Hora da Publicação: 10/01/2014 10:20:59

Data/Hora Última Alteração: 10/01/2014 10:20:59

Descrição da Nota: AJUSTE PARA TRATAMENTO DE PROCESSOS DO PARANA LEI N. 14.985/06

Sintoma

Pw.Ce não atende Lei 14.985,06 para processos do Parana.

 

 

Solução

Ajuste na nota fiscal para informar o valor do ICMS suspenso.conforme Lei n. 14.985/06, processos do

Paraná.

 

Versões Tratadas

9.0


Pré-Requisitos

Produto:

Nota

Descrição

LEGISLAÇÃO PARA DESENVOLVIMENTO DE ICMS ST NA DI E NF.

ESTÁ LEVANDO VALOR DE ICMS NAS MENSAGENS DA NF MESMO ISENTO

Informações Complementares

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

Nota Número 13570 Data: 09/01/2014 Hora: 15:02:34

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

 

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

Nota Número              : 13570

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 9.0

Pacote                   : 00007

Agrupamento              : 00168

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

Referência às notas relacionadas:

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

 

07393  - 00001 - 7.0    - 00007  - ESTÁ LEVANDO VALOR DE ICMS NAS MENSAGENS DA NF MESMO ISENTO

11157  - 00002 - 8.0    - 00007  - LEGISLAÇÃO PARA DESENVOLVIMENTO DE ICMS ST NA DI E NF.

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

AJUSTE PARA TRATAMENTO DE PROCESSOS DO PARANA LEI N. 14.985/06

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

Palavras Chave:

AJUSTE - PROCESSO - PARANA - LEI - 14.985/06 - NOTA - FISCAL

/PWS/SAPMZYCI016

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

Objetos da nota:

REPS /PWS/MZYCI016X01

REPS /PWS/MZYCI016F01

 

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

Modificações efetuadas em REPS /PWS/MZYCI016X01

 

...

* >> Início da inclusão:

TABLES t615.

* << Fim da inclusão

DATA: BEGIN OF COMMON PART a.

...

 

 

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

Modificações efetuadas em REPS /PWS/MZYCI016F01

 

...

  CLEAR v_vldp_x.

  IF NOT v_vlst IS INITIAL.

    MOVE : v_vlst TO itab_zycit049_aux_r-vldp,

           itab_zycit049_aux_r-vldp TO v_vldp_x.

    WRITE itab_zycit049_aux_r-vldp TO v_vldp_x

           CURRENCY /pws/zycbt007-waersb.

    CONCATENATE 'ICMS ST' v_tamanho v_vldp_x

    INTO it_zycee006-msg SEPARATED BY space.

    APPEND it_zycee006.

  ENDIF.

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

  READ TABLE itab_zycit001 INDEX 1.

  IF t615-zolla NE itab_zycit001-padest.

    SELECT SINGLE *  FROM t615

           WHERE land1 EQ t001-land1

             AND zolla EQ itab_zycit001-padest.

  ENDIF.

* << Fim da inclusão

  LOOP AT itab_zycit042_mark.

    IF v_fundap NE 'X'.

      READ TABLE itab_zycit100 WITH KEY

                                     nrseq = itab_zycit042_mark-nrseq

                                     ebeln = itab_zycit042_mark-ebeln

                                     ebelp = itab_zycit042_mark-ebelp  .

      IF sy-subrc EQ 0   AND

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

        (

* << Fim da inclusão

        (  /pws/zycit085-tpdi EQ 'N' AND

          NOT '356' CA itab_zycit100-codregtriicms ) OR

        (  /pws/zycit085-tpdi EQ 'S' AND

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

          NOT '56' CA itab_zycit100-codregtri ).

* << Fim da exclusão

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

          NOT '56' CA itab_zycit100-codregtri )

        OR ( '5' EQ itab_zycit100-codregtriicms AND

             t615-/pws/estado EQ 'PR' ) ).

* << Fim da inclusão

        IF itab_zycit100-icms_dif NE 'X'.

          v_icms_dif   = v_icms_dif  + itab_zycit100-vlicms.

        ELSE.

          v_dif = 'X'.

        ENDIF.

      ENDIF.

    ELSE.

      READ TABLE itab_zycit480 WITH KEY

                                     nrseq = itab_zycit042_mark-nrseq

                                     ebeln = itab_zycit042_mark-ebeln

...