CE PLUS - Nota 011921
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 08/02/2012 00:00:00
Data/Hora Última Alteração: 09/02/2012 13:36:35
Descrição da Nota: NÃO ABATE DA BASE DE II DESPESAS PARAMETRIZADAS COMO DEDUÇÃO
Sintoma
Não abate da base de II despesas parametrizadas como dedução
Solução
Atualizado programa para verificar se a despesa é parametrizada na /pws/zycit020 como dedução para
subtrair valor da despesa da base de II.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 11921 Data: 08/02/2012 Hora: 16:18:24
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 11921
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00010
Agrupamento : 00104
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
05477 - 00001 - 7.0 - 00003 - AJUSTADO RATEIO DO SEGURO PARA PROCESSOS CIF A GRANEL
07026 - 00002 - 7.0 - 00006 - ARREDONDAMENTO DA NOTA FISCAL VALORES DE IMPOSTOS X BASE DE CÁLCU
11471 - 00003 - 8.0 - 00009 - DESENVOLVIMENTO PARA TRATAMENTO NOVO INCOTERM C+I
----------------------------------------------------------------------------------------------------
NÃO ABATE DA BASE DE II DESPESAS PARAMETRIZADAS COMO DEDUÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
/PWS/ZYCIT019 - DESPESAS - BASE II - DEDUÇÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
FORM load_itax USING p_tipo.
* >> Início da inclusão: FORM LOAD_ITAX
DATA: v_neg .
* << Fim da inclusão
...
...
LOOP AT itab_zycit049 WHERE baseii EQ 'X' AND NOT vlreal IS initial.
IF itab_zycit049-tpdesp = /pws/zycit000-cod_antidump .
CONTINUE.
ENDIF.
IF /pws/zycit000-flag_txsisc IS INITIAL OR
wa_it000-cod_sisc NE itab_zycit049-tpdesp.
* >> Início da inclusão: FORM LOAD_ITAX
IF itab_zycit049-tipo EQ 'D' .
itab_zycit049-vlreal = itab_zycit049-vlreal * ( -1 ) .
v_neg = 'X' .
ENDIF.
* << Fim da inclusão
IF itab_zycit049-divabs = 'X'.
IF NOT v_ipt IS INITIAL.
t_ivdes2 = ( 1 / v_ipt ) * itab_zycit049-vlreal.
ENDIF.
ELSEIF itab_zycit049-peso = 'X'.
IF NOT v_tntgew IS INITIAL.
t_ivdes2 = ( wa_it-ntgew / v_tntgew ) *
itab_zycit049-vlreal.
ENDIF.
...
...
IF p_tipo = 'I'.
itab_zycit049-vldp_aux = itab_zycit049-vldp_aux + t_ivdes2.
MODIFY itab_zycit049 TRANSPORTING vldp_aux.
ENDIF.
* >> Início da exclusão: FORM LOAD_ITAX
IF t_ivdes2 > 0.
* << Fim da exclusão
t_ivdesp = t_ivdesp + t_ivdes2.
* >> Início da exclusão: FORM LOAD_ITAX
ENDIF.
* << Fim da exclusão
ENDIF.
ENDLOOP.
...
CASE s_inco1_ci.
WHEN 'FOB'.
t_ivadu = t_ivmle + t_ivseg + t_ivdesp + t_ivfre.
* >> Início da inclusão: FORM LOAD_ITAX
IF t_ivadu lt 0 AND v_neg EQ 'X'.
CLEAR t_ivadu.
MESSAGE i015 WITH text-294 text-295 .
EXIT.
ENDIF.
* << Fim da inclusão
v_casasd = t_ivseg.
v_casasd2 = t_ivfre.
v_casasd3 = t_ivdesp.
v_ivadud = t_ivmle + v_casasd3 + v_casasd + v_casasd2.
WHEN 'C&F'.
t_ivmle_d2 = t_ivmle = t_ivmle + t_ivfre + v_desp_fren.
IF NOT v_desp_fren IS INITIAL.
IF NOT /pws/zycie085-ukursfob IS INITIAL.
t_vmle_d2 = t_vmle = t_vmle + v_tot_fre +
( v_desp_fren / /pws/zycie085-ukursfob ).
...
...
ENDIF.
ENDIF.
IF /pws/zycie085-waersfob NE itab_it-waersbem.
PERFORM: calc_conv_moeda:
USING /pws/zycie085-waersfob
itab_it-waersbem
CHANGING t_vmle2.
ENDIF.
t_ivmle2 = t_vmle2 * itab_it-dttaxbem.
t_ivadu = t_ivmle2 + t_ivseg + t_ivdesp.
* >> Início da inclusão: FORM LOAD_ITAX
IF t_ivadu lt 0 AND v_neg EQ 'X'.
CLEAR t_ivadu.
MESSAGE i015 WITH text-294 text-295 .
EXIT.
ENDIF.
* << Fim da inclusão
v_casasd = t_ivseg.
v_casasd3 = t_ivdesp.
v_ivadud = t_ivmle2 + v_casasd3 + v_casasd .
WHEN 'CIF'.
CLEAR v_difgran .
IF NOT itab_it-qtd_itend IS INITIAL.
READ TABLE itab_zycit003 WITH KEY nrseq = itab_it-nrseq
ebeln = itab_it-ebeln
ebelp = itab_it-ebelp.
IF sy-subrc EQ 0.
...
...
ENDIF.
t_vmle2 = t_vmle.
IF /pws/zycie085-waersfob NE itab_it-waersbem.
PERFORM: calc_conv_moeda:
USING /pws/zycie085-waersfob
itab_it-waersbem
CHANGING t_vmle2.
ENDIF.
t_ivmle2 = t_vmle2 * itab_it-dttaxbem.
t_ivadu = t_ivmle2 + t_ivdesp - v_desp_fren.
* >> Início da inclusão: FORM LOAD_ITAX
IF t_ivadu lt 0 AND v_neg EQ 'X'.
CLEAR t_ivadu.
MESSAGE i015 WITH text-294 text-295 .
EXIT.
ENDIF.
* << Fim da inclusão
v_casasd3 = t_ivdesp.
v_ivadud = t_ivmle2 + v_casasd3 .
WHEN 'C+I'.
t_ivmle_d2 = t_ivmle.
t_vmle_d2 = t_vmle2 = t_vmle .
IF /pws/zycie085-waersfob NE itab_it-waersbem.
PERFORM: calc_conv_moeda:
USING /pws/zycie085-waersfob
itab_it-waersbem
CHANGING t_vmle2.
ENDIF.
t_ivmle2 = t_vmle2 * itab_it-dttaxbem.
t_ivadu = t_ivmle2 + t_ivfre + t_ivdesp.
* >> Início da inclusão: FORM LOAD_ITAX
IF t_ivadu lt 0 AND v_neg EQ 'X'.
CLEAR t_ivadu.
MESSAGE i015 WITH text-294 text-295 .
EXIT.
ENDIF.
* << Fim da inclusão
...