CE PLUS - Nota 005663
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 16/01/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 13:51:14
Descrição da Nota: AO CRIAR DI COM REGIME DE ADMISSÃO TEMPORÁRIA, PROPOR SUSPENSO
Sintoma
AO CRIAR DI COM REGIME DE ADMISSÃO TEMPORÁRIA, PROPÕE RECOLHIMENTO INTEGRAL
Solução
Atualização do programa de DI para que o sistema proponha o regime de suspenção nos tributos da DI
quando for um embarque de Admissão Temporária.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05663 Data: 16/01/2008 Hora: 15:58:20
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05663
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00004
Agrupamento : 00030
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
05046 - 00001 - 7.0 - 00003 - NO REGIME 05 ADMISSÃO TEMPORÁRIA O REGIME TRIBUTÁRIO NA DI SERA S
----------------------------------------------------------------------------------------------------
AO CRIAR DI COM REGIME DE ADMISSÃO TEMPORÁRIA, PROPOR SUSPENSO
----------------------------------------------------------------------------------------------------
Palavras Chave:
DI - REGIME TRIBUTÁRIO - ADMISSÃO TEMPORÁRIA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
IF sy-tcode = '/PWS/ZYCI023_C'.
IF itab_it-codregtriicms IS INITIAL.
IF itab_it-modalidade NE 'I'.
itab_it-codregtriicms = itab_it-codregtri.
ELSE.
itab_it-codregtriicms = '1'.
ENDIF.
ENDIF.
ENDIF .
PERFORM text_item_fill.
* >> Início da inclusão: FORM FILL_ITABIT
IF itab_zycit001-regime EQ '05' .
IF itab_zycit001-regime = '05' AND
itab_zycit001-tpdecl = 'DI'.
itab_it-codregtri = '5'.
itab_it-codregtripiscofi = '5'.
itab_it-codregtriipi = '5'.
itab_it-codregtriicms = '5'.
ENDIF.
endif.
* << Fim da inclusão
IF v_sub EQ 0.
MODIFY itab_it INDEX v_idx.
ELSE.
APPEND itab_it.
ENDIF.
v_tntgew = v_tntgew + itab_it-ntgew.
v_tsegfat = v_tsegfat + itab_it-vlseg_fat.
IF itab_it-qtd_itencacl IS INITIAL.
v_tval = v_tval + ( itab_it-qtd_iten * itab_it-vlreal ).
v_tmle = v_tmle + ( ( itab_it-qtd_iten * itab_it-vlreal )
...