CE PLUS - Nota 005472
Módulo: DRAWBACK
Funcionalidade: CE Reports Formulários
Data/Hora da Publicação: 17/12/2007 00:00:00
Data/Hora Última Alteração: 17/02/2011 15:16:47
Descrição da Nota: EXIBIÇÃO DAS CASAS DECIMAIS DE ACORDO COM AS UNIDADES / MOEDAS
Sintoma
O programa não está exibindo corretamente as casas decimais de alguns processos.
Solução
Atualizada a montagem do relatório considerando as unidades de medida e moedas.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05472 Data: 17/12/2007 Hora: 08:08:58
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05472
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00027
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
05097 - 00001 - 7.0 - 00003 - ATUALIZAÇÃO DA EXIBIÇÃO NAS CASAS DECIMAIS DO RUD IMPORTAÇÃO E EX
----------------------------------------------------------------------------------------------------
EXIBIÇÃO DAS CASAS DECIMAIS DE ACORDO COM AS UNIDADES / MOEDAS
----------------------------------------------------------------------------------------------------
Palavras Chave:
RUD IMPORTAÇÃO EXPORTAÇÃO CASAS DECIMAIS MOEDA UNIDADE DE MEDIDA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCRR002
REPS /PWS/ZYCRR006
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCRR002
...
END-OF-SELECTION.
FORM select_data
USING
p_nrseqd TYPE /pws/zycit244-nrseqd
CHANGING
p_cabecalho TYPE s_cabecalho
p_t_itens TYPE t_itens.
DATA: wa_itens LIKE LINE OF p_t_itens,
v_tabix TYPE sy-tabix,
v_line TYPE sy-index,
* >> Início da inclusão: FORM SELECT_DATA
v_marc TYPE c,
* << Fim da inclusão
it_itens TYPE t_itens WITH HEADER LINE.
SELECT SINGLE *
INTO p_cabecalho-zycit244
FROM /pws/zycit244
WHERE nrseqd = p_nrseqd.
CHECK sy-subrc = 0.
SELECT SINGLE bukrs butxt
INTO (p_cabecalho-empresa, p_cabecalho-desc_emp)
FROM t001
WHERE bukrs = p_cabecalho-zycit244-bukrs.
...
...
'X' TO wa_itens-subtot ,
v_peso TO wa_itens-ntgewtot ,
v_total TO wa_itens-vl_ciftot ,
v_vlemb TO wa_itens-vl_fobtot ,
wa_itens-meins TO v_meinss ,
v_meins TO wa_itens-meins ,
v_meinss TO v_meins ,
v_quant TO wa_itens-qtd_tot ,
v_descrncm TO wa_itens-descr_ncmt.
INSERT wa_itens INTO p_t_itens INDEX v_tabix.
* >> Início da inclusão: FORM SELECT_DATA
v_marc = 'X'.
* << Fim da inclusão
ENDIF.
CLEAR: v_ncm,
v_peso,
v_total,
v_vlemb,
v_quant,
v_descrncm.
ENDON.
* >> Início da exclusão: FORM SELECT_DATA
v_meins = wa_itens-meins.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECT_DATA
IF v_marc IS INITIAL.
v_meins = wa_itens-meins.
ELSE.
CLEAR v_marc.
ENDIF.
* << Fim da inclusão
MOVE: wa_itens-j_1bnbm TO v_ncm,
wa_itens-descr_ncm TO v_descrncm.
ADD: wa_itens-ntgew TO v_peso,
wa_itens-vl_cif TO v_total,
wa_itens-vl_fob TO v_vlemb,
wa_itens-qtd_iten TO v_quant.
ENDLOOP.
DESCRIBE TABLE p_t_itens LINES v_line.
ADD 1 TO v_line.
MOVE: v_ncm TO wa_itens-j_1bnbmtot,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCRR006
...
END-OF-SELECTION.
FORM select_data
USING
p_nrseqd TYPE /pws/zycit244-nrseqd
CHANGING
p_cabecalho TYPE s_cabecalho
p_t_itens TYPE t_itens.
DATA: wa_itens LIKE LINE OF p_t_itens,
v_tabix TYPE sy-tabix,
v_line TYPE sy-index,
* >> Início da inclusão: FORM SELECT_DATA
v_marc TYPE c,
* << Fim da inclusão
it_itens TYPE t_itens WITH HEADER LINE.
SELECT SINGLE *
INTO p_cabecalho-zycit244
FROM /pws/zycit244
WHERE nrseqd = p_nrseqd.
CHECK sy-subrc = 0.
SELECT SINGLE bukrs butxt
INTO (p_cabecalho-empresa, p_cabecalho-desc_emp)
FROM t001
WHERE bukrs = p_cabecalho-zycit244-bukrs.
...
...
v_peso TO wa_itens-ntgewtot ,
v_total TO wa_itens-vl_fobtot ,
v_vlemb TO wa_itens-vl_fembtot,
v_waers TO wa_itens-waers ,
wa_itens-meins TO v_meinss ,
v_meins TO wa_itens-meins ,
v_meinss TO v_meins ,
v_quant TO wa_itens-qtd_tot ,
v_descrncm TO wa_itens-descr_ncmt.
INSERT wa_itens INTO p_t_itens INDEX v_tabix.
* >> Início da inclusão: FORM SELECT_DATA
v_marc = 'X'.
* << Fim da inclusão
ENDIF.
CLEAR: v_ncm,
v_peso,
v_total,
v_vlemb,
v_waers,
v_quant,
v_descrncm.
ENDON.
MOVE: wa_itens-j_1bnbm TO v_ncm,
wa_itens-waers TO v_waers,
wa_itens-descr_ncm TO v_descrncm.
ADD: wa_itens-ntgew TO v_peso,
wa_itens-vlfob TO v_total,
wa_itens-vlfobt TO v_vlemb,
wa_itens-qtd_vinc TO v_quant.
* >> Início da inclusão: FORM SELECT_DATA
IF v_marc IS INITIAL.
* << Fim da inclusão
v_meins = wa_itens-meins.
* >> Início da inclusão: FORM SELECT_DATA
ELSE.
CLEAR v_marc.
ENDIF.
* << Fim da inclusão
ENDLOOP.
DESCRIBE TABLE p_t_itens LINES v_line.
ADD 1 TO v_line.
MOVE: v_ncm TO wa_itens-j_1bnbmtot,
...