CE PLUS - Nota 005898
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 11/02/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 13:51:31
Descrição da Nota: VERIFICAÇÃO DO VALOR DO FRETE NA DI
Sintoma
Ao tentar criar a DI de um processo CFR o programa exibe mensagem informando que o valor do frete é
maior que o valor da mercadoria, porem os valores estão em moedas diferente e o valor do frete é
inferior ao valor da mercadoria.
Solução
Realizar a verificação após a taxa de cambio ser informada.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05898 Data: 11/02/2008 Hora: 16:25:23
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05898
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00004
Agrupamento : 00034
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01227 - 00001 - 6.0 - 00023 - VISUALIZAÇÃO DO RATEIO DE DESPESAS DA DI ESTÁ INCORRETO
----------------------------------------------------------------------------------------------------
VERIFICAÇÃO DO VALOR DO FRETE NA DI
----------------------------------------------------------------------------------------------------
Palavras Chave:
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
/pws/zycie093-collect -
/pws/zycie093-ternacion.
PERFORM calc_conv_frete_ini
USING /pws/zycie093-waersfre
itab_zycit006-waers
CHANGING v_bltofat.
v_tdif = '0'.
ENDIF.
ENDCASE.
PERFORM load_fbvl.
* >> Início da exclusão: FORM CALC_ITAB
IF v_tval2 LT '0'.
* << Fim da exclusão
* >> Início da inclusão: FORM CALC_ITAB
IF v_tval2 LT '0' AND
/pws/zycie085-ukursfre IS INITIAL.
CLEAR: v_tval2.
ENDIF.
IF v_tval2 LT '0' AND
NOT /pws/zycie085-ukursfre IS INITIAL.
* << Fim da inclusão
IF v_msgfre NE 'N'.
MESSAGE i015 WITH text-119 text-125.
LEAVE PROGRAM.
ELSE.
MESSAGE i015 WITH text-119 text-125.
LEAVE PROGRAM.
ENDIF.
ENDIF.
ELSE.
IF /pws/zycie085-vlfob IS INITIAL.
...