CE PLUS - Nota 012440
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 16/08/2012 00:00:00
Data/Hora Última Alteração: 17/08/2012 16:03:59
Descrição da Nota: AO ENTRAR NAS DESPESAS DA DI, CARREGA A MOEDA COMO BRL
Sintoma
Ao entrar nas despesas da DI, muda a moeda estrangeira para BRL
Solução
Manter a moeda salva.
Versões Tratadas
9.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 12440 Data: 16/08/2012 Hora: 11:16:27
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 12440
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 9.0
Pacote : 00001
Agrupamento : 00124
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
12228 - 00001 - 8.0 - 00011 - AO ACESSAR A DI APÓS A CRIAÇÃO APENAS AS DESPESAS COM VALOR SÃO E
----------------------------------------------------------------------------------------------------
AO ENTRAR NAS DESPESAS DA DI, CARREGA A MOEDA COMO BRL
----------------------------------------------------------------------------------------------------
Palavras Chave:
DESPESAS DI - MOEDA - BRL
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
SORT itab_zycit019 BY tpdesp.
DELETE ADJACENT DUPLICATES FROM itab_zycit019
COMPARING tpdesp.
LOOP AT itab_zycit019.
CLEAR: itab_zycit049.
READ TABLE itab_zycit049 WITH KEY
tpdesp = itab_zycit019-tpdesp.
* >> Início da inclusão: FORM FILL_DESP
IF sy-subrc NE 0 .
* << Fim da inclusão
v_sub = sy-subrc.
v_idx = sy-tabix.
READ TABLE itab_zycit020 WITH KEY
codigo = itab_zycit019-codigo.
IF sy-subrc EQ 0.
itab_zycit049-baseicms = itab_zycit020-baseicms.
itab_zycit049-baseii = itab_zycit020-baseii.
READ TABLE itab_zycit039 WITH KEY
codigo = itab_zycit020-codigo.
IF sy-subrc EQ 0.
...
...
itab_zycit049-nrseq = /pws/zycie085-nrseqdi.
itab_zycit049-tipo = itab_zycit019-tipo.
itab_zycit049-tpdesp = itab_zycit019-tpdesp.
itab_zycit049-coddesp = itab_zycit019-coddesp.
itab_zycit049-descr = itab_zycit019-descr.
itab_zycit049-waers = wa_zycbt007-waersb.
IF v_sub EQ 0.
MODIFY itab_zycit049 INDEX v_idx.
ELSE.
APPEND itab_zycit049.
* >> Início da inclusão: FORM FILL_DESP
ENDIF.
* << Fim da inclusão
ENDIF.
ENDLOOP.
IF /pws/zycit000 IS INITIAL.
SELECT SINGLE * FROM t001 WHERE bukrs EQ /pws/zycie001-bukrs.
SELECT SINGLE * FROM /pws/zycit000 WHERE land1 EQ t001-land1.
ENDIF.
REFRESH: itab_zycit049di.
LOOP AT itab_zycit049.
...