CE PLUS - Nota 010918
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DSI
Data/Hora da Publicação: 26/01/2011 00:00:00
Data/Hora Última Alteração: 02/02/2011 09:38:21
Descrição da Nota: AJUSTES PARA TRATAMENTO DE DSI DE REIMPORTAÇÃO
Sintoma
Não é possível criar processo de reimpoortação no programa da DSI
Solução
Ajustado programa de DSI para tratamento de processos de reimpoortação.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10918 Data: 26/01/2011 Hora: 15:01:09
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10918
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00006
Agrupamento : 00056
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
08356 - 00001 - 7.0 - 00009 - ADMISSÃO TEMPORÁRIA ARTIGO 373
08650 - 00002 - 7.0 - 00010 - DSI NÃO ESTA APRESENTANDO OS VALORES DEVIDOS APRESENTA TUDO ZERAD
----------------------------------------------------------------------------------------------------
AJUSTES PARA TRATAMENTO DE DSI DE REIMPORTAÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
DESENVOLVIMENTO - DSI - PROCESSO - REIMPORTAÇÃO
/PWS/SAPMZYCI058
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI058F01
REPS /PWS/MZYCI058F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI058F01
...
FORM load_iii USING p_tipo.
CLEAR: t_iirec, a_iiredu, a_iiacor, a_iidevi, a_iicalc.
IF /pws/zycie093-meiotransp = 'PS' AND /pws/zycie085-tpdi EQ 'S'.
/pws/zycie003-advalii = '60'.
CLEAR: /pws/zycie003-advalipi.
ENDIF.
* >> Início da inclusão: FORM LOAD_III
IF itab_zycit001-regime NE '11'.
* << Fim da inclusão
t_iibas = t_ivadu.
* >> Início da inclusão: FORM LOAD_III
ENDIF.
* << Fim da inclusão
a_iicalc = ( ( /pws/zycie003-advalii / 100 ) * t_iibas ).
IF itab_zycit001-regime EQ '09' AND
NOT itab_zycit374-tp_perman IS INITIAL.
READ TABLE itab_zycit374 WITH KEY
nrseq = itab_it-nrseq
ebeln = itab_it-ebeln
...
...
FORM load_iipi USING p_tipo.
IF '56' CA itab_it-codregtri .
t_ipibas = ( t_ivadu + itab_it-ii_calculado ).
ELSE.
t_ipibas = ( t_ivadu + t_iirec ).
ENDIF.
* >> Início da inclusão: FORM LOAD_IIPI
IF itab_zycit001-regime EQ '11'.
CLEAR t_ipibas.
ENDIF.
* << Fim da inclusão
a_ipidevi = ( ( /pws/zycie003-advalipi / 100 ) * t_ipibas ).
IF ( itab_zycit001-regime EQ '05' OR
itab_zycit001-regime EQ '12' ) AND
NOT itab_zycit374-tp_perman IS INITIAL.
v_ipiadm = a_ipidevi = ( a_ipidevi * ( 1 / 100 ) ) *
itab_zycit374-tp_perman .
ENDIF.
itab_it-vlipi = a_ipidevi.
CLEAR t_ipirec.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI058F03
...
FORM load_iicms USING p_tipo.
DATA itab_zycit003_rateio LIKE /pws/zycit003 OCCURS 0 WITH HEADER LINE.
CLEAR: t_ivdesp, v_advii, v_advipi, v_advicms,
v_advpis, v_advcof, v_desp.
CLEAR : v_fatx, v_xa , v_xb , v_xc, v_faty, v_fatpc.
CLEAR: t_ivdesp.
* >> Início da inclusão: FORM LOAD_IICMS
IF itab_zycit001-regime EQ '11'.
t_iibas = t_ivadu.
ENDIF.
* << Fim da inclusão
SELECT SINGLE * FROM t001 WHERE bukrs = /pws/zycie085-bukrs.
SELECT SINGLE * FROM /pws/zycit000 INTO /pws/zycit000
WHERE land1 = t001-land1.
SELECT * FROM /pws/zycit438 INTO TABLE itab_zycit438
WHERE regio = v_region
AND lei = 'MP252'.
IF sy-subrc NE 0.
SELECT * FROM /pws/zycit438 INTO TABLE itab_zycit438
WHERE regio = ' '
AND lei = 'MP252'.
...
...
ELSE.
v_vlipirec = t_ipirec.
ENDIF.
CLEAR: v_vlpisrec , v_vlcofrec.
IF '56' CA /pws/zycie100a-codregtripiscofi.
v_vlpisrec = t_pis_calc.
v_vlcofrec = t_cof_calc.
ELSE.
v_vlpisrec = t_pis .
v_vlcofrec = t_cofins.
ENDIF.
* >> Início da inclusão: FORM LOAD_IICMS
IF itab_zycit001-regime EQ '11'.
t_iibas = t_ivadu - t_ivmle.
ENDIF.
* << Fim da inclusão
t_icmsbs_d2 = t_icmsbs = ( t_iibas + v_vlipirec + v_vliirec +
t_ivdesp + v_desp + v_vlpisrec + v_vlcofrec ) *
( /pws/zycie003-basred / 100 ).
* >> Início da inclusão: FORM LOAD_IICMS
IF itab_zycit001-regime EQ '11'.
CLEAR t_iibas.
ENDIF.
* << Fim da inclusão
IF /pws/zycit062-susp_nf EQ 'S' OR
...