CE PLUS - Nota 001150
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Custo Efetivo
Data/Hora da Publicação: 05/04/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:11:39
Descrição da Nota: AS DESPESAS DE FRETE E SEGURO INTERNACIONAIS SENDO PARAMETRIZADAS DA MES
Sintoma
Estou com o seguinte problema: mesmo as despesas de frete e seguro internacionais sendo
parametrizadas da mesma forma elas estão tendo comportamentos distintos. No cenário em questão as
despesas são levadas a custo por fatura, e estão tendo tratativas diferentes.
Solução
Atualização no programa do custo efetivo para reajuste na rotina de despesas.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01150 Data: 05/04/2006 Hora: 09:19:07
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01150
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00023
Agrupamento : 00108
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01046 - 00001 - 6.0 - 00022 - DATA DE ENCERRAMENTO DO EMBARQUE NAO ESTA ATUALIZANDO
01052 - 00002 - 6.0 - 00022 - REGULARIZAÇÃO DAS DESPESAS.
----------------------------------------------------------------------------------------------------
AS DESPESAS DE FRETE E SEGURO INTERNACIONAIS SENDO PARAMETRIZADAS DA MES
----------------------------------------------------------------------------------------------------
Palavras Chave:
DESPESAS - FRETE - SEGURO - INTERNACIONAIS
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI010F01
REPS /PWS/MZYCI010F03
REPS /PWS/MZYCI010TOP
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI010F01
...
WHERE nrseqdi = /pws/zycit100-nrseqdi.
PERFORM exit_movimentado TABLES itab_zycit036_aux2
CHANGING v_rub.
SELECT SINGLE * FROM /pws/zycbt007 INTO wa_zycbt007
WHERE bukrs EQ /pws/zycit001-bukrs.
* >> Início da inclusão: FORM COD_DUPLICADOS
if not itab_zycit003[] is initial.
Select * from /pws/zycit006
into table it_zycit006_aux2
FOR ALL ENTRIES IN itab_zycit036_aux2
WHERE nrseq = itab_zycit036_aux2-nrseqori
AND eliminado EQ space.
endif.
IF NOT it_zycit006_aux2[] IS INITIAL.
SELECT *
FROM bkpf
INTO TABLE it_bkpf
FOR ALL ENTRIES IN it_zycit006_aux2
WHERE bukrs EQ it_zycit006_aux2-bukrs
AND belnr EQ it_zycit006_aux2-belnr_p
AND gjahr EQ it_zycit006_aux2-dt_belnrp(04).
ENDIF.
* << Fim da inclusão
LOOP AT itab_zycit036_aux2.
PERFORM move_plan_mov_aux.
ENDLOOP.
SORT itab_zycit036_aux2 BY nrseq ebeln ebelp codigo origem.
ENDFORM.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI010F03
...
MODIFY itab_zycit036_aux2.
ELSE.
IF itab_zycit036_aux2-origem NE 'EST'.
CLEAR: v_vlreal.
v_vlreal = itab_zycit036_aux2-vlreal.
* >> Início da inclusão: FORM MOVE_PLAN_MOV_AUX
IF itab_zycit036_aux2-origem NE 'FAT'.
* << Fim da inclusão
PERFORM retorna_decimais USING itab_zycit036_aux2-waers
CHANGING v_vlreal.
PERFORM converter_moeda USING
v_vlreal
itab_zycit036_aux2-waers
wa_zycbt007-waersb
CHANGING v_vlreal.
* >> Início da inclusão: FORM MOVE_PLAN_MOV_AUX
ELSE.
READ TABLE it_zycit006_aux2 WITH KEY
nrseq = itab_zycit036_aux2-nrseqori.
IF sy-subrc EQ 0 AND it_zycit006_aux2-frpagto EQ 'P'.
v_vlreal = v_vlreal * /pws/zycit085-ukursfre .
ELSE.
READ TABLE it_bkpf WITH KEY
bukrs = it_zycit006_aux2-bukrs
belnr = it_zycit006_aux2-belnr_p
gjahr = it_zycit006_aux2-dt_belnrp(04).
v_vlreal = v_vlreal * it_bkpf-kursf.
ENDIF.
ENDIF.
* << Fim da inclusão
itab_zycit036_aux2-vldif = v_vlreal - itab_zycit036_aux2-vlmov.
itab_zycit036_aux2-waers_dif = wa_zycbt007-waersb.
MODIFY itab_zycit036_aux2.
ENDIF.
ENDIF.
ELSE.
IF itab_zycit036_aux2-origem NE 'EST'.
CLEAR: v_vlreal.
v_vlreal = itab_zycit036_aux2-vlreal.
* >> Início da inclusão: FORM MOVE_PLAN_MOV_AUX
IF itab_zycit036_aux2-origem NE 'FAT'.
* << Fim da inclusão
PERFORM retorna_decimais USING itab_zycit036_aux2-waers
CHANGING v_vlreal.
PERFORM converter_moeda USING
v_vlreal
itab_zycit036_aux2-waers
wa_zycbt007-waersb
CHANGING v_vlreal.
* >> Início da inclusão: FORM MOVE_PLAN_MOV_AUX
ELSE.
READ TABLE it_zycit006_aux2 WITH KEY
nrseq = itab_zycit036_aux2-nrseqori.
IF sy-subrc EQ 0 AND it_zycit006_aux2-frpagto EQ 'P'.
v_vlreal = v_vlreal * /pws/zycit085-ukursfre .
ELSE.
READ TABLE it_bkpf WITH KEY
bukrs = it_zycit006_aux2-bukrs
belnr = it_zycit006_aux2-belnr_p
gjahr = it_zycit006_aux2-dt_belnrp(04).
v_vlreal = v_vlreal * it_bkpf-kursf.
ENDIF.
ENDIF.
* << Fim da inclusão
itab_zycit036_aux2-vldif = v_vlreal - itab_zycit036_aux2-vlmov.
itab_zycit036_aux2-waers_dif = wa_zycbt007-waersb.
MODIFY itab_zycit036_aux2.
ENDIF.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI010TOP
...
include structure /pws/zyglt100.
data: end of itab_zyglt100.
data: begin of itab_cta occurs 0.
include structure /pws/zygle316.
data: end of itab_cta.
* >> Início da inclusão:
data: it_bkpf like bkpf occurs 0 with header line,
it_zycit006_aux2 like /pws/zycit006 occurs 0 with header line.
* << Fim da inclusão
data:
wa_zycbt007 like /pws/zycbt007,
wa_zycbt011 like /pws/zycbt011,
wa_zycit036 like /pws/zycit036,
wa_tcurx like tcurx.
...