Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 12/08/2010 00:00:00
Data/Hora Última Alteração: 12/08/2010 14:14:00
Descrição da Nota: AO NAVEGAR ENTRE ITENS, MUDA A MOEDA DO PRIMEIRO ITEM.
Sintoma
Ao navegar entre itens, muda a moeda do primeiro item.
Solução
Gravar moeda correta ao navegar entre itens.
8.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10491 Data: 12/08/2010 Hora: 13:49:50
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10491
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00004
Agrupamento : 00034
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
Texto Rápido:
AO NAVEGAR ENTRE ITENS, MUDA A MOEDA DO PRIMEIRO ITEM.
----------------------------------------------------------------------------------------------------
Palavras Chave:
ITENS - ANA - MOEDAS DIFERENTES
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI059F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI059F01
...
FORM save_data_item.
* >> Início da inclusão: FORM SAVE_DATA_ITEM
DATA : v_waersdif LIKE /pws/zycie100a-waersbem.
IF /pws/zycie085-mdadicao EQ 'N'.
v_waersdif = itab_it-waersbem.
* << Fim da inclusão
MOVE-CORRESPONDING /pws/zycie003 TO itab_it.
MOVE-CORRESPONDING /pws/zycie100a TO itab_it.
* >> Início da inclusão: FORM SAVE_DATA_ITEM
itab_it-waersbem = v_waersdif.
ELSE.
MOVE-CORRESPONDING /pws/zycie003 TO itab_it.
MOVE-CORRESPONDING /pws/zycie100a TO itab_it.
ENDIF.
* << Fim da inclusão
IF NOT /pws/zycie003-qtd_itend IS INITIAL.
...