CE PLUS - Nota 008120
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 03/03/2009 00:00:00
Data/Hora Última Alteração: 22/02/2011 14:03:22
Descrição da Nota: PREENCHE MOEDA FORTE PARA O SEGURO PARA PROCESSOS COM MAIS DE UMA MOEDA
Sintoma
Para processos que contenham itens com moedas diferentes o programa não está sugerindo nenhuma moeda
para o seguro.
Solução
Ajustado programa para preencher levar a moeda forte para o seguro quando o precesso possuir itens
com moedas diferentes.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08120 Data: 03/03/2009 Hora: 11:37:45
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08120
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00008
Agrupamento : 00088
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01203 - 00001 - 6.0 - 00023 - AO EFETUAR A CRIAÇÃO DE UMA DI UTILIZANDO O ACESSO DO MENU
----------------------------------------------------------------------------------------------------
PREENCHE MOEDA FORTE PARA O SEGURO PARA PROCESSOS COM MAIS DE UMA MOEDA
----------------------------------------------------------------------------------------------------
Palavras Chave:
MOEDA - SEGURO - FORTE - PREENCHE
/PWS/SAPMZYCI023
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
READ TABLE itab_zycit006 WITH KEY tpfatura = '01'.
IF sy-subrc EQ 0.
/pws/zycie085-waersseg = itab_zycit006-waers.
ENDIF.
PERFORM retorna_decimais USING /pws/zycie085-waersseg
CHANGING /pws/zycie085-vlseg.
ENDIF.
ELSE.
CLEAR: /pws/zycie085-waersfob, /pws/zycie085-vlfob,
/pws/zycie085-ukursfob.
* >> Início da exclusão: FORM FILL_ITABIT
/pws/zycie085-waersfob = 'USD'.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_ITABIT
/pws/zycie085-waersfob = wa_zycbt007-waersa.
IF /pws/zycie085-waersseg IS INITIAL AND
sy-tcode = '/PWS/ZYCI023_C'.
/pws/zycie085-waersseg = wa_zycbt007-waersa.
ENDIF.
* << Fim da inclusão
ENDIF.
ENDIF.
PERFORM load_waers USING /pws/zycie085-waersfob
CHANGING s_fbcm
s_fbdesc.
READ TABLE itab_zycit001 INDEX 1.
s_inco1 = itab_zycit001-inco1.
/pws/zycie085-codreg = itab_zycit001-regime.
IF v_dit = 'S'.
/pws/zycie085-ntimp = itab_zycit001-regime.
...