CE PLUS - Nota 011992
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 02/03/2012 17:04:09
Data/Hora Última Alteração: 02/03/2012 17:04:09
Descrição da Nota: ALTERAÇÕES EM CÁLCULOS DE ADMISSÃO TEMPORÁRIA
Sintoma
Na DI, quando os impostos estiverem "suspensos", na pasta carga 3, os campos de valores calculados e
valores devidos para o II e o campo valor devido para o IPI deverão aparecer sem a fórmula do tempo
de permanência.
Independente se o campo de permanência estiver preenchido no embarque, na pasta carga 3, o cálculo
deverá ser normal quando os impostos forem "suspensos".
Solução
Tratar regime de suspensão e recolhimento integral
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 11992 Data: 01/03/2012 Hora: 13:39:18
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 11992
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00010
Agrupamento : 00107
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
06284 - 00001 - 7.0 - 00005 - DESENVOLVIMENTO PARA MEMÓRIA DE CÁLCULO NA PASTA COMPLEMENTARES
07672 - 00002 - 7.0 - 00007 - DESENVOLVIMENTO PARA MELHORIA NA NAVEGABILIDADE NA DI E NA DSI
07673 - 00003 - 7.0 - 00007 - NECESSÁRIA EXIT PARA TEXTO COMPLEMENTARES DA DI
08356 - 00004 - 7.0 - 00009 - ADMISSÃO TEMPORÁRIA ARTIGO 373
09176 - 00005 - 8.0 - 00001 - NA LI NÃO ESTA VALIDANDO O IMPORTADOR AO VINCULAR O PEDIDO
10212 - 00006 - 8.0 - 00003 - O VALOR DOS IMPOSTOS ESTÁ ERRADO PARA PROCESSOS DE ADMISSÃO TEMPO
----------------------------------------------------------------------------------------------------
ALTERAÇÕES EM CÁLCULOS DE ADMISSÃO TEMPORÁRIA
----------------------------------------------------------------------------------------------------
Palavras Chave:
ADMISSÃO TEMPORÁRIA - DI - CÁLCULOS
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F01
REPS /PWS/MZYCI023F05
REPS /PWS/MZYCI023TOP
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
READ TABLE itab_zycit374 WITH KEY
nrseq = itab_it-nrseq
ebeln = itab_it-ebeln
ebelp = itab_it-ebelp.
IF sy-subrc EQ 0 AND
( itab_zycit001-regime EQ '05' OR
itab_zycit001-regime EQ '12' ) AND
NOT itab_zycit374-tp_perman IS INITIAL.
* >> Início da exclusão: FORM LOAD_III
s_wiireco = s_wiireco + ( t_iirec *
( itab_zycit374-tp_perman / 100 ) ).
s_wiicalc = s_wiicalc + ( a_iicalc
* ( itab_zycit374-tp_perman / 100 ) ).
s_wiiredu = s_wiiredu + ( a_iiredu *
( itab_zycit374-tp_perman / 100 ) ).
s_wiidevi = s_wiidevi + ( a_iidevi *
( itab_zycit374-tp_perman / 100 ) ).
ELSE.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_III
IF itab_it-codregtri EQ '1' .
d_admtemp: a_iidevi,
a_iicalc,
t_iirec .
ENDIF.
ENDIF.
* << Fim da inclusão
s_wiireco = s_wiireco + t_iirec.
s_wiicalc = s_wiicalc + a_iicalc.
s_wiiredu = s_wiiredu + a_iiredu.
s_wiidevi = s_wiidevi + a_iidevi.
* >> Início da exclusão: FORM LOAD_III
ENDIF.
* << Fim da exclusão
itab_it-baseii = t_iibas.
itab_it-ii_calculado = a_iicalc.
itab_it-ii_reduzido = a_iiredu.
...
...
IF ' 15' NA /pws/zycie100a-codregtriipi .
ELSE.
CLEAR t_ipirec.
ENDIF.
ELSE.
READ TABLE itab_zycit374 WITH KEY
nrseq = itab_it-nrseq
ebeln = itab_it-ebeln
ebelp = itab_it-ebelp.
IF sy-subrc EQ 0 AND
* >> Início da exclusão: FORM LOAD_IIPI
( itab_zycit001-regime EQ '05' OR
itab_zycit001-regime EQ '12' ) AND
* << Fim da exclusão
NOT itab_zycit374-tp_perman IS INITIAL.
* >> Início da exclusão: FORM LOAD_IIPI
IF ' 15' NA /pws/zycie100a-codregtriipi .
s_wipireco = s_wipireco + ( t_ipirec *
( itab_zycit374-tp_perman / 100 ) ).
ELSE.
CLEAR t_ipirec.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_IIPI
IF itab_it-codregtriipi EQ '3' .
d_admtemp: a_ipidevi,
t_ipirec .
ENDIF.
* << Fim da inclusão
ENDIF.
* >> Início da exclusão: FORM LOAD_IIPI
s_wipidevi = s_wipidevi + ( a_ipidevi *
( itab_zycit374-tp_perman / 100 ) ).
ELSE.
* << Fim da exclusão
IF ' 15' NA /pws/zycie100a-codregtriipi .
s_wipireco = s_wipireco + t_ipirec.
ELSE.
CLEAR t_ipirec.
ENDIF.
s_wipidevi = s_wipidevi + a_ipidevi.
* >> Início da exclusão: FORM LOAD_IIPI
ENDIF.
* << Fim da exclusão
ENDIF.
ENDIF.
ELSE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F05
...
FORM calcula_admtemp.
* >> Início da exclusão: FORM CALCULA_ADMTEMP
DEFINE d_admtemp.
&1 = &1 * ( itab_zycit374-tp_perman / 100 ).
END-OF-DEFINITION.
* << Fim da exclusão
READ TABLE itab_zycit374 WITH KEY
nrseq = itab_it-nrseq
ebeln = itab_it-ebeln
ebelp = itab_it-ebelp.
IF sy-subrc EQ 0 AND
NOT itab_zycit374-tp_perman IS INITIAL.
d_admtemp: itab_it-vlipi ,
* >> Início da exclusão: FORM CALCULA_ADMTEMP
itab_it-ipi_devido ,
* << Fim da exclusão
itab_it-ipi_recolher ,
itab_it-vlii ,
* >> Início da exclusão: FORM CALCULA_ADMTEMP
itab_it-ii_calculado ,
* << Fim da exclusão
itab_it-ii_reduzido ,
* >> Início da exclusão: FORM CALCULA_ADMTEMP
itab_it-ii_devido ,
* << Fim da exclusão
itab_it-ii_recolher ,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023TOP
...
* >> Início da inclusão:
DEFINE d_admtemp.
&1 = &1 * ( itab_zycit374-tp_perman / 100 ).
END-OF-DEFINITION.
* << Fim da inclusão
SELECTION-SCREEN BEGIN OF SCREEN 0054.
SELECT-OPTIONS:
so_ebn FOR /pws/zycie003-ebeln
NO INTERVALS NO-EXTENSION,
so_ebp FOR /pws/zycie003-ebelp
NO INTERVALS NO-EXTENSION,
so_matn FOR /pws/zycie003-matnr
NO INTERVALS NO-EXTENSION,
so_denom FOR /pws/zycie003-descr
NO INTERVALS NO-EXTENSION,
...