CE PLUS - Nota 011475
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 21/09/2011 00:00:00
Data/Hora Última Alteração: 22/09/2011 16:55:43
Descrição da Nota: SEGURO ESTÁ DIVERGENTE DO VALOR DA CAPA DA DI NOS ITENS/ADIÇÃO
Sintoma
O cálculo do seguro está divergente do valor da capa da DI nos itens/adição. Processo Custo e frete
Solução
Ajustado programa para cálculo do rateio do seguro em processos com frete nacional.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 11475 Data: 21/09/2011 Hora: 10:27:16
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 11475
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00009
Agrupamento : 00086
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01801 - 00001 - 6.0 - 00024 - RATEIO DE SEGURO DA DI DIFERE DO RATEIO DO SISCOMEX
07299 - 00002 - 7.0 - 00006 - AJUSTES NOS CÁLCULOS DE IMPOSTOS QUANDO A DI É GRANEL
07873 - 00003 - 7.0 - 00008 - AJUSTE DE PREFORMANCE. DUMP DETALHE DO ITEM, DI COM MAIS DE 999 I
----------------------------------------------------------------------------------------------------
SEGURO ESTÁ DIVERGENTE DO VALOR DA CAPA DA DI NOS ITENS/ADIÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
CALCULO - SEGURO - CAPA DA DI - DETALHE DO ITEM - ADICAO
FRETE EM TERRITORIO NACIONAL
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F03
REPS /PWS/MZYCI023F04
REPS /PWS/MZYCI023O01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
ENDIF.
DESCRIBE TABLE itab_it LINES v_ipt.
LOOP AT itab_it.
READ TABLE itab_zycit003 WITH KEY ebeln = itab_it-ebeln
ebelp = itab_it-ebelp.
IF /pws/zycie085-waersfob NE itab_it-waers.
PERFORM: calc_conv_moeda USING itab_it-waers
/pws/zycie085-waersfob
CHANGING itab_it-vlfre_fat.
v_tfrefat = v_tfrefat + itab_it-vlfre_fat.
* >> Início da inclusão: FORM CALC_INIT
PERFORM: calc_conv_moeda USING itab_it-waers
/pws/zycie085-waersfob
CHANGING itab_it-vlseg_fat.
v_tsegfat = v_tsegfat + itab_it-vlseg_fat.
* << Fim da inclusão
ELSE.
v_tfrefat = v_tfrefat + itab_it-vlfre_fat.
* >> Início da inclusão: FORM CALC_INIT
v_tsegfat = v_tsegfat + itab_it-vlseg_fat.
* << Fim da inclusão
ENDIF.
v_calc_seg = v_calc_seg + ( itab_it-vlreal_dest *
itab_zycit003-qtd_itenc3 ).
ENDLOOP.
...
...
ELSE.
IF s_inco1_ci EQ 'CIF'.
v_tcfr = /pws/zycie085-vlfob + v_sgtofat + v_bltofat.
v_cfr = t_vmle .
ELSE.
v_tcfr = s_fbvr_s_d .
v_cfr = t_ivmle .
ENDIF.
* >> Início da exclusão: FORM VALOR_CFR
v_cfr = v_cfr + v_diftern.
* << Fim da exclusão
ENDIF.
ENDFORM.
...
...
READ TABLE itab_matuse_aux INTO wa_matuse_aux WITH KEY
hkont = itab_cta-konth
j_1bmatuse = itab_matuse-j_1bmatuse.
IF sy-subrc NE 0.
MOVE: itab_matuse-j_1bmatuse TO itab_matuse_aux-j_1bmatuse,
itab_cta-konth TO itab_matuse_aux-hkont .
APPEND itab_matuse_aux.
CLEAR itab_matuse_aux.
ENDIF.
ENDLOOP.
* >> Início da exclusão: FORM RECLASSIFICACAO_IA
SORT itab_zycit006 BY belnr_p.
* << Fim da exclusão
DATA: itab_matuse_aux3 LIKE itab_matuse_aux OCCURS 0 WITH HEADER LINE.
MOVE itab_matuse_aux[] TO itab_matuse_aux3[].
SORT itab_matuse_aux3 BY hkont.
DELETE ADJACENT DUPLICATES FROM itab_matuse_aux3 COMPARING hkont.
LOOP AT itab_zycit006.
IF NOT itab_matuse_aux3[] IS INITIAL.
LOOP AT itab_matuse_aux3.
UNPACK itab_zycit006-belnr_p TO itab_zycit006-belnr_p.
CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
EXPORTING
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F04
...
FORM data_clean_seg.
IF sy-tcode = '/PWS/ZYCI023_C'.
* >> Início da inclusão: FORM DATA_CLEAN_SEG
IF /pws/zycie085-waersseg IS INITIAL.
CLEAR: /pws/zycie085-ukursseg, s_stvr, /pws/zycie085-vlseg.
ENDIF.
IF v_perseg_vez = ' '.
* << Fim da inclusão
IF /pws/zycie085-per_seg IS INITIAL AND
* >> Início da exclusão: FORM DATA_CLEAN_SEG
/pws/zycie085-vlseg IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM DATA_CLEAN_SEG
/pws/zycie085-vlseg IS INITIAL.
* << Fim da inclusão
IF t001-bukrs NE /pws/zycie085-bukrs OR
/pws/zycit000-land1 NE t001-land1.
SELECT SINGLE * FROM t001 WHERE bukrs EQ /pws/zycie085-bukrs.
SELECT SINGLE per_seg FROM /pws/zycit000
INTO /pws/zycie085-per_seg
WHERE land1 EQ t001-land1.
ELSE.
/pws/zycie085-per_seg = /pws/zycit000-per_seg.
* >> Início da inclusão: FORM DATA_CLEAN_SEG
ENDIF.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM DATA_CLEAN_SEG
v_perseg_vez = 'X'.
* << Fim da inclusão
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023O01
...
MODULE data_clean_seg OUTPUT.
* >> Início da exclusão: MODULE DATA_CLEAN_SEG
IF sy-tcode = '/PWS/ZYCI023_C'.
IF /pws/zycie085-waersseg IS INITIAL.
CLEAR: /pws/zycie085-ukursseg, s_stvr, /pws/zycie085-vlseg.
ENDIF.
IF v_perseg_vez = ' '.
IF /pws/zycie085-per_seg IS INITIAL AND /pws/zycie085-vlseg IS
INITIAL.
IF t001-bukrs NE /pws/zycie085-bukrs OR
/pws/zycit000-land1 NE t001-land1.
SELECT SINGLE * FROM t001 WHERE bukrs EQ /pws/zycie085-bukrs.
SELECT SINGLE per_seg FROM /pws/zycit000
INTO /pws/zycie085-per_seg
WHERE land1 EQ t001-land1.
ELSE.
/pws/zycie085-per_seg = /pws/zycit000-per_seg.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
v_perseg_vez = 'X'.
* << Fim da exclusão
* >> Início da inclusão: MODULE DATA_CLEAN_SEG
perform data_clean_seg.
* << Fim da inclusão
ENDMODULE.
...