Visualização da Nota 2118

CE PLUS - Nota 002118

Módulo: DOC. IMPORTAÇÃO

Funcionalidade: Encerramento de Custo

Data/Hora da Publicação: 15/09/2006 00:00:00

Data/Hora Última Alteração: 20/06/2011 13:23:15

Descrição da Nota: PLANEJADO E MOVIMENTADO DO ENCERRAMENTO ESTÁ INCORRETO PARA JPY

Sintoma

Coluna planejado e movimentado do encerramento de custo está com o valor incorreto.

Processo em JPY.

Solução

Tratar para fazer conversão para JPY corretamente.

Versões Tratadas

6.0

Pré-Requisitos

Produto:

Nota

Descrição

Nota 1438

ERRO NA EXIBIÇÃO DO ENCERRAMENTO DE PROCESSO SEM EURO

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 02118 Data: 15/09/2006 Hora: 17:14:14

----------------------------------------------------------------------------------------------------

Nota Número : 02118

Categoria : Erro de Programa

Prioridade : Média

Versão PW.CE : 6.0

Pacote : 00024

Agrupamento : 00129

----------------------------------------------------------------------------------------------------

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

01438 - 00001 - 6.0 - 00023 - ERRO NA EXIBIÇÃO DO ENCERRAMENTO DE PROCESSO SEM EURO

----------------------------------------------------------------------------------------------------

PLANEJADO E MOVIMENTADO DO ENCERRAMENTO ESTÁ INCORRETO PARA JPY

----------------------------------------------------------------------------------------------------

Palavras Chave:

PROCESSO EM JPY - MOVIMENTADO - ENCERRAMENTO - VALOR INCORRETO

CUSTO

----------------------------------------------------------------------------------------------------

Objetos da nota:

DYNP /PWS/SAPMZYCI037 0100

REPS /PWS/MZYCI010F01

REPS /PWS/MZYCI037F01

REPS /PWS/MZYCI037O01

REPS /PWS/MZYCI037TOP

REPS /PWS/ZYCIR006

----------------------------------------------------------------------------------------------------

Modificações efetuadas em DYNP /PWS/SAPMZYCI037 0100

*Os seguintes campos foram modificados:

Nome

Ctg. Linha Coluna CmprDf CmVis Altura Format Dict Modif At.Des.Só At

Gr1 Gr2 Gr3 Gr4 SPA GPA ID parâm Cód.F TCmp TpoLoopExbLoop

Outros atributos

*De:

- V_NETPR

I/O 1 3 22 13 1 DEC Off S.Sd

Alinh.à dir., Elem.TC

*Para:

- V_NETPR

I/O 1 3 22 13 1 CURR Off S.Sd

Alinh.à dir., Elem.TC

Código da moeda=/PWS/ZYCIE001-WAERS

*De:

- V_VLREAL

I/O 1 5 22 13 1 CURR Off S.Sd

Alinh.à dir., Elem.TC

Código da moeda=/PWS/ZYCIE003-WAERS_REAL

*Para:

- V_VLREAL

I/O 1 5 22 13 1 CURR Off S.Sd

Alinh.à dir., Elem.TC

Código da moeda=/PWS/ZYCIE003-WAERS_REAL

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI010F01

...

ELSE.

v_kurst = /pws/zycit000-kurst.

ENDIF.

CALL FUNCTION '/PWS/ZYGL_MONTANTE_CONVERTE'

EXPORTING

* >> Início da exclusão: FORM CONVERTER_MOEDA

i_montante = p_devlme

i_demoeda = p_deme

i_paramoeda = p_parame

i_ctmoeda = v_kurst

* << Fim da exclusão

* >> Início da inclusão: FORM CONVERTER_MOEDA

i_montante = p_devlme

i_demoeda = p_deme

i_paramoeda = p_parame

i_ctmoeda = v_kurst

i_dtbase = sy-datlo

* << Fim da inclusão

* >> Início da exclusão: FORM CONVERTER_MOEDA

i_dtbase = sy-datlo

* << Fim da exclusão

IMPORTING

* >> Início da exclusão: FORM CONVERTER_MOEDA

e_montante = p_paravlme

e_txc = v_tax

e_defator = v_dfact

* << Fim da exclusão

* >> Início da inclusão: FORM CONVERTER_MOEDA

e_montante = p_paravlme

e_txc = v_tax

e_defator = v_dfact

* << Fim da inclusão

EXCEPTIONS

* >> Início da exclusão: FORM CONVERTER_MOEDA

i_demoeda_nao_encontrado = 1

i_paramoeda_nao_encontrado = 2

i_ctmoeda_nao_encontrado = 3

i_dtbase_nao_encontrada = 4

taxa_nao_encontrada = 5

fator_nao_encontrado = 6

i_montante_nao_encontrado = 7

tabela_categ_nao_configurada = 8

OTHERS = 9

* << Fim da exclusão

* >> Início da inclusão: FORM CONVERTER_MOEDA

i_demoeda_nao_encontrado = 1

i_paramoeda_nao_encontrado = 2

i_ctmoeda_nao_encontrado = 3

i_dtbase_nao_encontrada = 4

taxa_nao_encontrada = 5

fator_nao_encontrado = 6

i_montante_nao_encontrado = 7

tabela_categ_nao_configurada = 8

OTHERS = 9.

* << Fim da inclusão

IF sy-subrc NE 0.

MESSAGE i061 WITH text-013 p_deme 'para' p_parame.

v_medestino = v_meatual.

v_erro_conv = 'S'.

ENDIF.

...

itab_zycit036_aux2-waers_dif = itab_zycit036_aux-waers_dif.

ENDIF.

MODIFY itab_zycit036_aux2 INDEX v_index.

ELSE.

MOVE itab_zycit036_aux TO itab_zycit036_aux2.

* >> Início da exclusão: FORM COD_DUPLICADOS

APPEND itab_zycit036_aux2 .

* << Fim da exclusão

* >> Início da inclusão: FORM COD_DUPLICADOS

CLEAR: itab_zycit036_aux2-netpr.

APPEND itab_zycit036_aux2.

* << Fim da inclusão

ENDIF.

ENDLOOP.

IF /pws/zycit000-fretepres = 'X'.

LOOP AT itab_zycit036_aux2 WHERE

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI037F01

...

CHANGING v_vlplan.

ENDIF.

v_vlreal = it_zycit201-vlreal.

s_w_real = /pws/zycie001-waers.

IF it_zycit201-waers_real NE /pws/zycie001-waers.

* >> Início da inclusão: FORM LOAD_ALL

perform trata_decimais(/pws/sapmzyci010)

using /pws/zycie001-waers

changing it_zycit201-vlreal.

* << Fim da inclusão

PERFORM converter_moeda(/pws/sapmzyci010) USING it_zycit201-vlreal

it_zycit201-waers_real

/pws/zycbt007-waersb

CHANGING v_vlreal.

PERFORM converter_moeda(/pws/sapmzyci010) USING v_vlreal

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI037O01

...

it_zycit201_uniq-ebelp to /pws/zycie003-ebelp,

it_zycit201_uniq-waers to /pws/zycie003-waers,

it_zycit201_uniq-waers_real to /pws/zycie003-waers_real,

it_zycit201_uniq-waers_mov to /pws/zycie003-waers_mov,

it_zycit201_uniq-waers_dif to /pws/zycie003-waers_dif.

* >> Início da inclusão: MODULE FILL_STRUC_201UNIQ

IF /pws/zycie003-waers IS INITIAL AND

NOT v_netpr IS INITIAL.

/pws/zycie003-waers = /pws/zycie001-waers.

ENDIF.

* << Fim da inclusão

endmodule.

module fill_struc_201_i output.

move-corresponding it_zycit201_i to /pws/zycie201.

read table it_zycit029 with key codigo = /pws/zycie201-codigo.

/pws/zycie029-descricao = it_zycit029-descricao.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI037TOP

...

v_nrseq LIKE /pws/zycie001-nrseq,

v_subrc,

v_year LIKE bkpf-gjahr,

v_nradto LIKE /pws/zycit008-nradto,

v_netpr LIKE /pws/zycit201-netpr ,

* >> Início da exclusão:

v_vlreal LIKE /pws/zycit201-vlreal,

* << Fim da exclusão

* >> Início da inclusão:

v_vlreal TYPE /pws/zycit201-vlreal,

* << Fim da inclusão

v_vlmov LIKE /pws/zycit201-vlmov ,

v_vldif LIKE /pws/zycit201-vldif ,

v_conta LIKE /pws/zyglt316-konts,

v_belnrf05 LIKE itab_zycbt032-belnr,

v_erro(1) ,

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/ZYCIR006

...

ENDIF.

MODIFY itab_zycit036 INDEX v_index.

WHEN 'FRETEI'.

v_linf = v_linf + 1.

CLEAR v_valor.

* >> Início da exclusão: FORM CALCULAR_OUTROS_CUSTOS

IF itab_zycit036-origem NE 'PED'.

CLEAR itab_zycit036-netpr.

ENDIF.

* << Fim da exclusão

IF itab_zycit036-vlreal GT 0 AND

NOT itab_zycit036-waers_real IS INITIAL.

PERFORM busca_fatores CHANGING itab_zycit036-waers_real.

READ TABLE itab_zycit100 WITH KEY

nrseq = itab_zycit036-nrseq

...