CE PLUS - Nota 011032
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 22/03/2011 00:00:00
Data/Hora Última Alteração: 22/03/2011 14:42:19
Descrição da Nota: VALOR DO SEGURO MUDA PARA PROCESSOS COM ITENS COM MOEDAS DIFERENTES
Sintoma
O valor do seguro está alterando após pressionar o botão atualizar uma segunda vez.
Solução
Ajustado programa para efetuar o calculo do seguro com o valor de todos os itens.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 11032 Data: 22/03/2011 Hora: 11:05:25
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 11032
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00007
Agrupamento : 00063
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
05044 - 00001 - 7.0 - 00003 - AJUSTE NO TRATAMENTO DE ITENS COM MOEDAS DIFERENTES NA ANA.
----------------------------------------------------------------------------------------------------
VALOR DO SEGURO MUDA PARA PROCESSOS COM ITENS COM MOEDAS DIFERENTES
----------------------------------------------------------------------------------------------------
Palavras Chave:
ANA - VALOR - SEGURO - PERCENTUAL - ITENS - MOEDAS - DIFERENTES
/PWS/SAPMZYCI059 -
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI059F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI059F01
...
ENDIF.
ELSE.
v_rateio_t = v_tval.
/pws/zycie085-vlfobr = s_fbvr = v_tmle.
PERFORM: taxa_converte USING /pws/zycbt007-waersa
/pws/zycie085-dttax
CHANGING v_usd,
load_fbvl2.
CLEAR: v_tval2.
ENDIF.
* >> Início da inclusão: FORM CALC_ITAB
IF /pws/zycie085-mdadicao = 'N'.
/pws/zycie085-vlfob = v_tval2 = v_tval.
ENDIF.
PERFORM load_fbvl.
PERFORM load_sevl.
CLEAR: s_fbvr.
* << Fim da inclusão
CLEAR: v_desp_acr, v_desp_brl.
LOOP AT itab_zycit049 WHERE tipo = 'A' AND
vldp > 0.
IF itab_zycit049-waers = /pws/zycbt007-waersb.
s_fbvr = s_fbvr + itab_zycit049-vldp.
v_desp_brl = v_desp_brl + itab_zycit049-vldp.
ELSE.
IF itab_zycit049-waers NE /pws/zycie085-waersfob.
PERFORM: calc_ret_moeda:
USING
...