CE PLUS - Nota 009507
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Prestação de Contas
Data/Hora da Publicação: 03/12/2009 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:47:15
Descrição da Nota: VALOR DA PRESTAÇÃO CONTAS ESTA SENDO EXIBIDO ERRADO.
Sintoma
Para processos do chile o valor exibido pelo programa de estrategia de liberação está dividido por
100.
Solução
Ajustado programa para tratar moeda na exibição do valor da prestação de contas.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09507 Data: 03/12/2009 Hora: 14:02:11
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09507
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00002
Agrupamento : 00001
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02502 - 00001 - 6.0 - 00025 - AO CRIAR 2 ADIANTAMENTOS PARA UMA PRESTAÇÃO, É CRIADA PRESTAÇÃO A
----------------------------------------------------------------------------------------------------
VALOR DA PRESTAÇÃO CONTAS ESTA SENDO EXIBIDO ERRADO.
----------------------------------------------------------------------------------------------------
Palavras Chave:
VALOR - PRESTAÇÃO - CONTAS - ESTRATÉGIA - LIBERAR - MOEDA - CHILE
/PWS/ZYCIR103
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCIR103
REPS /PWS/ZYCIR103X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR103
...
itab_libera-frgsx3 TO it_zycit026-frgsx3 ,
itab_libera-frgsx4 TO it_zycit026-frgsx4 ,
itab_libera-frgsx5 TO it_zycit026-frgsx5 .
MODIFY it_zycit026 INDEX sy-tabix.
MOVE: itab_libera-nrseq TO itab_dados-nrseq ,
itab_libera-nrseqce TO itab_dados-nrseqce ,
itab_libera-embarca TO itab_dados-embarca ,
itab_libera-despach TO itab_dados-despach ,
itab_libera-nfserv TO itab_dados-nfserv ,
itab_libera-valor TO itab_dados-valor ,
* >> Início da inclusão: FORM EXECUTA_LIBERACAO
itab_libera-waers TO itab_dados-waers ,
* << Fim da inclusão
itab_libera-frgsx1 TO itab_dados-frgsx1 ,
itab_libera-frgsx2 TO itab_dados-frgsx2 ,
itab_libera-frgsx3 TO itab_dados-frgsx3 ,
itab_libera-frgsx4 TO itab_dados-frgsx4 ,
itab_libera-frgsx5 TO itab_dados-frgsx5 ,
itab_libera-erro TO itab_dados-erro ,
itab_libera-view TO itab_dados-view ,
it_zyglt343-aprova TO itab_dados-aprova .
SELECT SINGLE name1 INTO itab_dados-name1
FROM lfa1 WHERE lifnr = it_zycit026-despach.
...
...
CLEAR afield.
afield-col_pos = i.
afield-fieldname = 'VALOR'.
afield-ref_fieldname = 'TOTDEP'.
afield-ref_tabname = '/PWS/ZYCIT026'.
afield-outputlen = 11.
afield-seltext_s = text-029.
afield-seltext_m = text-029.
afield-seltext_l = text-029.
afield-reptext_ddic = text-029.
* >> Início da inclusão: FORM F_FIELDCAT_FILL
afield-cfieldname = 'WAERS'.
* << Fim da inclusão
afield-just = 'R'.
APPEND afield TO i_fieldcat.
* >> Início da inclusão: FORM F_FIELDCAT_FILL
CLEAR afield.
afield-fieldname = 'WAERS'.
afield-ref_fieldname = 'WAERSMU'.
afield-ref_tabname = '/PWS/ZYCIT026'.
afield-no_out = 'X'.
APPEND afield TO i_fieldcat.
* << Fim da inclusão
i = i + 5.
CLEAR afield.
afield-col_pos = i.
afield-fieldname = 'FRGSX1'.
afield-ref_fieldname = 'FRGSX1'.
afield-ref_tabname = '/PWS/ZYCIT026'.
afield-outputlen = 16.
afield-seltext_s = text-010.
afield-seltext_m = text-010.
afield-seltext_l = text-010.
...
...
icon_not_found = 1
outputfield_too_short = 2
OTHERS = 3.
ENDIF.
MOVE: it_zycit026-nrpres TO itab_dados-nrseq ,
it_zycit026-nrseq TO itab_dados-nrseqce ,
it_zycit026-embarca TO itab_dados-embarca ,
it_zycit026-despach TO itab_dados-despach ,
it_zycit026-nfserv TO itab_dados-nfserv ,
it_zycit026-totdepme TO itab_dados-valor ,
* >> Início da inclusão: FORM CARREGA_DADOS
it_zycit026-waersmu TO itab_dados-waers ,
* << Fim da inclusão
it_zycit026-frgsx1 TO itab_dados-frgsx1 ,
it_zycit026-frgsx2 TO itab_dados-frgsx2 ,
it_zycit026-frgsx3 TO itab_dados-frgsx3 ,
it_zycit026-frgsx4 TO itab_dados-frgsx4 ,
it_zycit026-frgsx5 TO itab_dados-frgsx5 ,
it_zyglt343-aprova TO itab_dados-aprova .
SELECT SINGLE name1 INTO itab_dados-name1
FROM lfa1 WHERE lifnr = it_zycit026-despach.
CALL FUNCTION '/PWS/ZYCI_ENQUEUE_ZYCIR103'
EXPORTING
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR103X01
...
DATA: BEGIN OF itab_dados OCCURS 0,
nrseq LIKE /pws/zycie026-nrpres,
nrseqce LIKE /pws/zycie026-nrseq,
embarca LIKE /pws/zycie026-embarca,
despach LIKE /pws/zycie026-despach,
name1 LIKE lfa1-name1,
nfserv LIKE /pws/zycie026-nfserv,
valor LIKE /pws/zycie026-totdep,
* >> Início da inclusão:
waers type /pws/zycie026-waers,
* << Fim da inclusão
frgsx1 LIKE /pws/zycie026-frgsx1,
frgsx2 LIKE /pws/zycie026-frgsx2,
frgsx3 LIKE /pws/zycie026-frgsx3,
frgsx4 LIKE /pws/zycie026-frgsx4,
frgsx5 LIKE /pws/zycie026-frgsx5,
view TYPE icons-text ,
gravado TYPE c ,
erro(80) TYPE c ,
aprova LIKE /pws/zyglt343-aprova,
selk .
...