CE PLUS - Nota 005097
Módulo: DRAWBACK
Funcionalidade: CE Reports Formulários
Data/Hora da Publicação: 29/10/2007 00:00:00
Data/Hora Última Alteração: 17/02/2011 15:15:41
Descrição da Nota: ATUALIZAÇÃO DA EXIBIÇÃO NAS CASAS DECIMAIS DO RUD IMPORTAÇÃO E EXPORTAÇÃ
Sintoma
O RUD está sendo exibido com cinco casas decimais.
Solução
O programa foi atualizado para exibir apenas 3 casas decimais.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05097 Data: 29/10/2007 Hora: 09:16:49
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05097
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00018
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
04982 - 00001 - 7.0 - 00003 - ADICIONADA A DESCRIÇÃO DOS NCM'S
----------------------------------------------------------------------------------------------------
ATUALIZAÇÃO DA EXIBIÇÃO NAS CASAS DECIMAIS DO RUD IMPORTAÇÃO E EXPORTAÇÃ
----------------------------------------------------------------------------------------------------
Palavras Chave:
RUD IMPORTAÇÃO EXPORTAÇÃO CASAS DECIMAIS
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCRR002
REPS /PWS/ZYCRR006
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCRR002
...
totpeso TYPE /pws/zycit259-ntgew,
totqtd TYPE /pws/zycit279-qtd_perda,
totfob TYPE /pws/zycit259-vlfob,
totcif TYPE /pws/zycit259-vlcif,
END OF s_tot_ncm,
t_tot_ncm TYPE STANDARD TABLE OF s_tot_ncm.
TYPE-POOLS vrm.
DATA: list TYPE vrm_values,
value LIKE LINE OF list.
DATA: v_total TYPE /pws/zycit259-vlcif,
* >> Início da inclusão:
v_meins TYPE /pws/zycit259-meins,
v_meinss TYPE /pws/zycit259-meins,
* << Fim da inclusão
v_peso TYPE /pws/zycit259-ntgew,
v_quant TYPE /pws/zycit259-qtd_iten,
v_vlemb TYPE /pws/zycit259-vlfob,
v_totncm TYPE i,
v_ncm TYPE /pws/zycit259-j_1bnbm,
v_descrncm(200) TYPE c.
DATA: BEGIN OF v_tab OCCURS 200,
value(40) TYPE c,
END OF v_tab.
DATA: BEGIN OF f_tab OCCURS 10.
...
...
wa_itens-j_1bnbm
itab_t604n-text1
itab_t604n-text2
itab_t604n-text3
itab_t604n-text4
itab_t604n-text5
INTO wa_itens-descr_ncm SEPARATED BY space.
INSERT wa_itens INTO p_t_itens INDEX v_tabix.
ENDIF.
IF v_tabix NE 1.
* >> Início da exclusão: FORM SELECT_DATA
MOVE: v_ncm TO wa_itens-j_1bnbmtot,
'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,
v_quant TO wa_itens-qtd_tot,
v_descrncm TO wa_itens-descr_ncmt.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECT_DATA
MOVE: v_ncm TO wa_itens-j_1bnbmtot,
'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.
* << Fim da inclusão
INSERT wa_itens INTO p_t_itens INDEX v_tabix.
ENDIF.
CLEAR: v_ncm,
v_peso,
v_total,
v_vlemb,
v_quant,
v_descrncm.
ENDON.
* >> Início da inclusão: FORM SELECT_DATA
v_meins = wa_itens-meins.
* << 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,
'X' TO wa_itens-subtot,
v_peso TO wa_itens-ntgewtot,
* >> Início da inclusão: FORM SELECT_DATA
v_meins TO wa_itens-meins,
* << Fim da inclusão
v_total TO wa_itens-vl_ciftot,
v_vlemb TO wa_itens-vl_fobtot,
v_quant TO wa_itens-qtd_tot,
v_descrncm TO wa_itens-descr_ncmt.
INSERT wa_itens INTO p_t_itens INDEX v_line.
ENDFORM.
FORM create_excel_content_table
USING
p_header TYPE any
p_t_items TYPE table
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCRR006
...
INCLUDE TYPE /pws/zycit244 AS zycit244.
TYPES: END OF s_cabecalho.
TYPES: BEGIN OF s_itens.
TYPES: nrdi TYPE /pws/zycit260-nrdi,
reg_di TYPE /pws/zycit260-reg_di,
adicao TYPE /pws/zycit260-adicao,
dtdi TYPE /pws/zycit260-dtdi,
j_1bnbm TYPE /pws/zycit260-j_1bnbm,
gewei TYPE /pws/zycit260-gewei,
ntgew TYPE /pws/zycit260-ntgew,
* >> Início da exclusão:
qtd_vinc TYPE /pws/zycit260-qtd_vinc,
* << Fim da exclusão
* >> Início da inclusão:
qtd_vinc TYPE /pws/zycit279-qtd_perda,
* << Fim da inclusão
meins TYPE /pws/zycit260-meins,
vlfobt TYPE /pws/zycit260-vlfob_t,
netpr TYPE /pws/zycit260-netpr,
waers TYPE /pws/zycit260-waers,
vlfob TYPE /pws/zycit260-vlfob,
grupo TYPE /pws/zycit260-grupo,
desc_g TYPE /pws/zycit260-desc_g,
maktx TYPE makt-maktx,
subtot TYPE c,
j_1bnbmtot TYPE /pws/zycit260-j_1bnbm,
...
...
totpeso TYPE /pws/zycit260-ntgew,
totqtd TYPE /pws/zycit279-qtd_perda,
totfemb TYPE /pws/zycit260-vlfob,
totfob TYPE /pws/zycit260-vlfob_t,
END OF s_tot_ncm,
t_tot_ncm TYPE STANDARD TABLE OF s_tot_ncm.
TYPE-POOLS vrm.
DATA: list TYPE vrm_values,
value LIKE LINE OF list.
DATA: v_total TYPE /pws/zycit260-vlfob_t,
* >> Início da inclusão:
v_meins TYPE /pws/zycit260-meins,
v_meinss TYPE /pws/zycit260-meins,
* << Fim da inclusão
v_peso TYPE /pws/zycit260-ntgew,
v_quant TYPE /pws/zycit260-qtd_vinc,
v_vlemb TYPE /pws/zycit260-vlfob,
v_totncm TYPE i,
v_ncm TYPE /pws/zycit259-j_1bnbm,
v_waers TYPE /pws/zycit260-waers ,
v_descrncm(200) TYPE c.
DATA: BEGIN OF v_tab OCCURS 200,
value(40) TYPE c,
END OF v_tab.
...
...
wa_itens-j_1bnbm
itab_t604n-text1
itab_t604n-text2
itab_t604n-text3
itab_t604n-text4
itab_t604n-text5
INTO wa_itens-descr_ncm SEPARATED BY space.
INSERT wa_itens INTO p_t_itens INDEX v_tabix.
ENDIF.
IF v_tabix NE 1.
* >> Início da exclusão: FORM SELECT_DATA
MOVE: v_ncm TO wa_itens-j_1bnbmtot,
'X' TO wa_itens-subtot,
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,
v_quant TO wa_itens-qtd_tot,
v_descrncm TO wa_itens-descr_ncmt.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECT_DATA
MOVE: v_ncm TO wa_itens-j_1bnbmtot,
'X' TO wa_itens-subtot ,
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.
* << Fim da inclusão
INSERT wa_itens INTO p_t_itens INDEX v_tabix.
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
v_meins = wa_itens-meins.
* << 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,
'X' TO wa_itens-subtot,
v_peso TO wa_itens-ntgewtot,
v_total TO wa_itens-vl_fobtot,
v_vlemb TO wa_itens-vl_fembtot,
* >> Início da inclusão: FORM SELECT_DATA
v_meins TO wa_itens-meins,
* << Fim da inclusão
v_waers TO wa_itens-waers,
v_quant TO wa_itens-qtd_tot,
v_descrncm TO wa_itens-descr_ncmt.
INSERT wa_itens INTO p_t_itens INDEX v_line.
ENDFORM.
FORM create_excel_content_table
USING
p_header TYPE any
p_t_items TYPE table
p_rep_param TYPE /pws/zycrt013
...