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á.
9.0
Produto:
Nota
Descrição
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
...