CE PLUS - Nota 001949
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 17/08/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 13:08:55
Descrição da Nota: VALOR DO RATEIO DO SEGURO CIF POR ITEM DI IGUAL AO SISCOMEX
Sintoma
O valor do rateio do seguro CIF por item nas adições da DI não fica igual do orientador siscomex.
Solução
Atualizado na DI o rateio do seguro para fazer pelo valor CIF do item.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01949 Data: 17/08/2006 Hora: 11:23:12
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01949
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00024
Agrupamento : 00127
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00909 - 00001 - 6.0 - 00022 - VERIFICAÇÃO DE AUTORIZAÇÃO PARA EXECUTAR VIA SHIFT F9.
01801 - 00002 - 6.0 - 00024 - RATEIO DE SEGURO DA DI DIFERE DO RATEIO DO SISCOMEX
----------------------------------------------------------------------------------------------------
VALOR DO RATEIO DO SEGURO CIF POR ITEM DI IGUAL AO SISCOMEX
----------------------------------------------------------------------------------------------------
Palavras Chave:
RATEIO DO SEGURO - DI - CIF - SISCOMEX - TRANSMISSÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F01
REPS /PWS/MZYCI023F03
REPS /PWS/MZYCI023I01
REPS /PWS/MZYCI023X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
MOVE itab_it-dttaxbem TO /pws/zycie100a-dttaxbem.
ENDIF.
IF p_tipo NE 'B' OR t_ivmle IS INITIAL OR v_dit = 'N'.
t_ivmle_d2 = t_ivmle = t_vmle * /pws/zycie100a-dttaxbem.
ENDIF.
* >> Início da exclusão: FORM LOAD_ITAX
IF v_idx EQ v_ipt AND v_ipt NE 1.
* << Fim da exclusão
PERFORM valor_cfr USING p_tipo.
IF /pws/zycit000-rat_seg_fob IS INITIAL.
CASE s_inco1_ci.
WHEN 'C&F'.
v_cfr = t_ivmle + t_ivfre.
* >> Início da exclusão: FORM LOAD_ITAX
WHEN 'CIF'.
v_cfr = t_ivmle + t_ivfre.
* << Fim da exclusão
WHEN 'FOB'.
v_cfr = t_ivmle.
ENDCASE.
ELSE.
IF s_inco1_ci EQ 'CIF'.
* >> Início da exclusão: FORM LOAD_ITAX
v_cfr = t_ivmle + t_ivfre.
* << Fim da exclusão
ELSE.
v_cfr = t_ivmle.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM LOAD_ITAX
IF s_inco1_ci EQ 'CIF'.
* << Fim da inclusão
* >> Início da exclusão: FORM LOAD_ITAX
IF NOT v_tcfr IS INITIAL.
t_ivseg = itab_it-vlseg = ( v_cfr / ( v_tcfr ) ) * s_stvr.
v_tot_seg = ( v_cfr / ( v_tcfr ) ) * v_sgtofat.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_ITAX
v_cif_fat = ( itab_it-vlreal * itab_it-qtd_iten ) +
itab_it-vlfre_fat .
if not v_tcif_fat is initial.
t_ivseg = itab_it-vlseg = ( v_cif_fat / v_tcif_fat ) *
s_stvr.
v_tot_seg = ( v_cif_fat / v_tcif_fat ) * v_sgtofat.
* << Fim da inclusão
ENDIF.
ELSE.
* >> Início da exclusão: FORM LOAD_ITAX
PERFORM valor_cfr USING p_tipo.
IF /pws/zycit000-rat_seg_fob IS INITIAL.
CASE s_inco1_ci.
WHEN 'C&F'.
v_cfr = t_ivmle + t_ivfre.
WHEN 'CIF'.
v_cfr = t_ivmle + t_ivfre.
WHEN 'FOB'.
v_cfr = t_ivmle.
ENDCASE.
ELSE.
IF s_inco1_ci EQ 'CIF'.
v_cfr = t_ivmle + t_ivfre.
ELSE.
v_cfr = t_ivmle.
ENDIF.
ENDIF.
* << Fim da exclusão
IF NOT v_tcfr IS INITIAL.
t_ivseg = itab_it-vlseg = ( v_cfr / ( v_tcfr ) ) * s_stvr.
v_tot_seg = ( v_cfr / ( v_tcfr ) ) * v_sgtofat.
ENDIF.
* >> Início da inclusão: FORM LOAD_ITAX
ENDIF.
* << Fim da inclusão
* >> Início da exclusão: FORM LOAD_ITAX
IF p_tipo = 'I'.
s_stvr_aux = s_stvr_aux + t_ivseg.
s_stvr_aux1 = s_stvr_aux1 + v_tot_seg.
ENDIF.
ENDIF.
* << Fim da exclusão
CLEAR: t_ivdesp.
LOOP AT itab_zycit049 WHERE baseii EQ 'X' AND NOT vlreal IS initial.
IF v_idx EQ v_ipt AND v_ipt NE 1.
IF itab_zycit049-divabs = 'X'.
t_ivdes2 = ( 1 / v_ipt ) * itab_zycit049-vlreal.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
FORM calc_init USING p_tipo.
* >> Início da inclusão: FORM CALC_INIT
clear v_tcif_fat.
* << Fim da inclusão
DATA: v_qtd_iten LIKE /pws/zycie003-qtd_iten,
v_ntgew LIKE /pws/zycit003-ntgew.
IF itab_zycit049[] IS INITIAL.
SELECT * FROM /pws/zycit049 INTO TABLE itab_zycit049
WHERE nrseq = /pws/zycie085-nrseqdi.
...
...
ELSE.
IF NOT itab_it-vlreald IS INITIAL.
v_tval = v_tval + ( itab_it-qtd_itend * itab_it-vlreal ).
ELSE.
v_tval = v_tval + ( itab_it-qtd_iten * itab_it-vlreal ).
* >> Início da inclusão: FORM CALC_INIT
ENDIF.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM CALC_INIT
if s_inco1_ci eq 'CIF'.
v_tcif_fat = V_TCIF_FAT + ( ( ITAB_IT-VLREAL * ITAB_IT-QTD_ITEN )
+ ITAB_IT-VLFRE_FAT ).
* << Fim da inclusão
ENDIF.
ENDLOOP.
CASE s_inco1_ci.
WHEN 'CIF'.
v_tdif = v_tfrefat - v_bltofat +
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023I01
...
PERFORM: comm_send,
send.
WHEN 'VERIFY'.
PERFORM: verify_transm.
WHEN 'MODO'.
* >> Início da exclusão: MODULE USER_COMMAND_0050
DATA: v_autoriza TYPE feld.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0050
DATA: v_autoriza TYPE c.
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYGL_AUTORIZA_MODO_BATCH'
EXPORTING
codmod = 'D'
usuario = sy-uname
func = 'DI'
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023X01
...
V_ITAD_PLAN LIKE /PWS/ZYCIT003-NETPR,
V_TTAD_PLAN LIKE /PWS/ZYCIT003-NETPR ,
v_qtd_pis like /pws/zycie003-qtd_iten ,
v_qtd_cof like /pws/zycie003-qtd_iten .
DATA V_EXISTE_LI.
* >> Início da inclusão:
data: v_cif_fat type /pws/zycie085-vlfob,
v_tcif_fat type /pws/zycie085-vlfob.
* << Fim da inclusão
data: wa_it000 LIKE /pws/zycit000,
wa_zycit078 like /pws/zycit078.
data: end of common part.