CE PLUS - Nota 003728
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Custo Efetivo
Data/Hora da Publicação: 22/05/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 14:24:09
Descrição da Nota: AO ENTRAR NO CUSTO DÁ DUMP OU ERRO DE CONVERSÃO EM MOEDA JPY
Sintoma
Ao entrar no custo dá dump ou erro de conversão em moeda JPY.
Solução
Ajustar a criação da nf.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03728 Data: 22/05/2007 Hora: 10:54:20
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03728
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00001
Agrupamento : 00167
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03654 - 00001 - 7.0 - 00001 - AO GERAR A NOTA FISCAL OS VALORES DO CUSTO FICAM INCORRETOS.
----------------------------------------------------------------------------------------------------
AO ENTRAR NO CUSTO DÁ DUMP OU ERRO DE CONVERSÃO EM MOEDA JPY
----------------------------------------------------------------------------------------------------
Palavras Chave:
CUSTO EFETIVO - DUMP - ERRO DE CONVERSÃO - MOEDA JPY
CASAS DECIMAIS
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
ENDLOOP.
LOOP AT itab_zycit263 WHERE eliminado NE 'X'.
READ TABLE itab_zycit003 WITH KEY
nrseq = itab_zycit263-nrseq
ebeln = itab_zycit263-ebeln
ebelp = itab_zycit263-ebelp.
IF sy-subrc EQ 0.
LOOP AT itab_zycit006
WHERE nrseq_pgfat = itab_zycit263-nrseq_pgfat
AND eliminado NE 'X'.
* >> Início da inclusão: FORM ATUALIZA_CUSTOS
READ TABLE itab_zycit036_aux WITH KEY
nrseq = /pws/zycie001-nrseq
codigo = /pws/zycit031-inco1_ci
origem = 'FAT'
nrseqori = itab_zycit006-nrseq.
IF sy-subrc NE 0.
* << Fim da inclusão
IF NOT itab_zycit006-belnr_p IS INITIAL.
itab_zycit036-mandt = sy-mandt .
itab_zycit036-nrseq = itab_zycit003-nrseq.
itab_zycit036-ebeln = itab_zycit003-ebeln.
itab_zycit036-ebelp = itab_zycit003-ebelp.
itab_zycit036-werks = itab_zycit003-werks.
itab_zycit036-nrseqori = itab_zycit006-nrseq.
itab_zycit036-embarca = /pws/zycie001-embarca.
itab_zycit036-codigo = /pws/zycit031-inco1_ci.
itab_zycit036-netpr =
...
...
ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp
nrseqori = itab_zycit006-nrseq
origem = 'FAT'
codigo = /pws/zycit031-inco1_ci.
IF sy-subrc EQ 0.
MODIFY itab_zycit036 INDEX sy-tabix.
ELSE.
APPEND itab_zycit036.
ENDIF.
* >> Início da inclusão: FORM ATUALIZA_CUSTOS
ENDIF.
* << Fim da inclusão
ENDIF.
ENDLOOP.
ENDIF.
ENDLOOP.
ENDFORM.