CE PLUS - Nota 002513
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Custo Efetivo
Data/Hora da Publicação: 24/11/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 13:43:07
Descrição da Nota: CUSTO EFETIVO ERRO NA DIF. FRETEI QND VEM DA PRESTAÇÃO
Sintoma
Quando temos valor de frete internacional na DI / DSI diferente do valor que é pago na Prestação
de contas, o sistema está calculando valor indevido na coluna diferença do custo efetivo quando
ainda não tem recebimento para o embarque.
Solução
Atualizado o programa de custo para não converter quando a origem for da prestação.
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02513 Data: 24/11/2006 Hora: 15:50:54
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02513
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00025
Agrupamento : 00141
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01052 - 00001 - 6.0 - 00022 - REGULARIZAÇÃO DAS DESPESAS.
01150 - 00002 - 6.0 - 00023 - AS DESPESAS DE FRETE E SEGURO INTERNACIONAIS SENDO PARAMETRIZADAS
01422 - 00003 - 6.0 - 00023 - VALOR QUE FOI LEVADO PARA O ENCER. DE CUSTOS ESTA MAIOR DO QUE DE
01438 - 00004 - 6.0 - 00023 - ERRO NA EXIBIÇÃO DO ENCERRAMENTO DE PROCESSO SEM EURO
02113 - 00005 - 6.0 - 00024 - CUSTO EFETIVO COM VALOR ERRADO E DIFERENÇA NO FRETE NACIONAL
----------------------------------------------------------------------------------------------------
CUSTO EFETIVO ERRO NA DIF. FRETEI QND VEM DA PRESTAÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI010F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI010F03
...
AND ebeln = it_036_tmp-ebeln
AND ebelp = it_036_tmp-ebelp
AND codigo = it_036_tmp-codigo
AND origem = it_036_tmp-origem
AND nrseqori = it_036_tmp-nrseqori.
* >> Início da inclusão: FORM DELETE_CUSTOS
DELETE /pws/zycit036 FROM it_036_tmp.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDLOOP.
IF /pws/zycit000-fretepres = 'X'.
LOOP AT itab_zycit036_aux WHERE
...
...
MODIFY itab_zycit036_aux2.
ELSE.
IF itab_zycit036_aux2-origem NE 'EST'.
CLEAR: v_vlreal.
v_vlreal = itab_zycit036_aux2-vlreal.
* >> Início da exclusão: FORM MOVE_PLAN_MOV_AUX
IF itab_zycit036_aux2-origem NE 'FAT'.
* << Fim da exclusão
* >> Início da inclusão: FORM MOVE_PLAN_MOV_AUX
case itab_zycit036_aux2-origem.
when 'DI' or 'NF'.
* << Fim da inclusão
PERFORM retorna_decimais USING itab_zycit036_aux2-waers_real
CHANGING v_vlreal.
v_valor = v_vlreal.
if itab_zycit036_aux2-codigo eq 'FRETEI'.
v_vlreal = v_vlreal * /pws/zycit085-ukursfre.
...
...
v_vlreal
itab_zycit036_aux2-waers_real
wa_zycbt007-waersb
CHANGING v_vlreal.
endif.
* >> Início da exclusão: FORM MOVE_PLAN_MOV_AUX
ELSE.
* << Fim da exclusão
* >> Início da inclusão: FORM MOVE_PLAN_MOV_AUX
when 'FAT'.
* << Fim da inclusão
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.
* >> Início da exclusão: FORM MOVE_PLAN_MOV_AUX
ENDIF.
* << Fim da exclusão
ENDIF.
* >> Início da inclusão: FORM MOVE_PLAN_MOV_AUX
when 'PC'.
endcase.
* << 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 exclusão: FORM MOVE_PLAN_MOV_AUX
IF itab_zycit036_aux2-origem NE 'FAT'.
* << Fim da exclusão
* >> Início da inclusão: FORM MOVE_PLAN_MOV_AUX
case itab_zycit036_aux2-origem.
when 'DI' or 'NF'.
* << Fim da inclusão
PERFORM retorna_decimais USING itab_zycit036_aux2-waers_real
CHANGING v_vlreal.
if itab_zycit036_aux2-codigo eq 'FRETEI'.
v_vlreal = v_vlreal * /pws/zycit085-ukursfre.
elseif itab_zycit036_aux2-codigo eq 'SEGURO'.
...
...
v_vlreal
itab_zycit036_aux2-waers_real
wa_zycbt007-waersb
CHANGING v_vlreal.
endif.
* >> Início da exclusão: FORM MOVE_PLAN_MOV_AUX
ELSE.
* << Fim da exclusão
* >> Início da inclusão: FORM MOVE_PLAN_MOV_AUX
when 'FAT'.
* << Fim da inclusão
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.
* >> Início da exclusão: FORM MOVE_PLAN_MOV_AUX
ENDIF.
* << Fim da exclusão
ENDIF.
* >> Início da inclusão: FORM MOVE_PLAN_MOV_AUX
when 'PC'.
endcase.
* << 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.
...