CE PLUS - Nota 004898
Módulo: DRAWBACK
Funcionalidade: Ato Concessório
Data/Hora da Publicação: 03/10/2007 00:00:00
Data/Hora Última Alteração: 17/02/2011 15:13:06
Descrição da Nota: CRIADA EXIT ATO008
Sintoma
Criada exit ATO008
Solução
Criada exit ATO008
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04898 Data: 03/10/2007 Hora: 15:43:48
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04898
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00015
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03129 - 00001 - 6.0 - 00026 - CRIADA EXIT "ATO003"
----------------------------------------------------------------------------------------------------
CRIADA EXIT ATO008
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXIT - ATO - CONCESSÓRIO - ATO008
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCI040 0204
REPS /PWS/MZYCI040F02
REPS /PWS/MZYCI040TOP
REPS /PWS/MZYCI040TOP2
REPS /PWS/MZYCI040X01
REPT /PWS/SAPMZYCI040
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI040 0204
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
*Campos excluidos:
/PWS/ZYCIE244-T_REALQTD
Texto 14 4 14 14 1 CHAR X F
/PWS/ZYCIE244-S_REALQTD
Texto 14 60 14 14 1 CHAR X F
*Campos inseridos:
V_SQTD_TEXT
I/O 14 60 22 22 1 CHAR Off S.Sd
V_RQTD_TEXT
I/O 14 4 22 22 1 CHAR Off S.Sd
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040F02
...
ELSE.
/pws/zycie244-s_compfob = /pws/zycie244-s_compfob -
itab_zycit246_final-vltot.
ENDIF.
ENDLOOP.
ENDFORM.
FORM apura_totais_0204.
CLEAR: /pws/zycie244-t_realfob,
/pws/zycie244-t_realqtd.
DATA: v_un_umb LIKE /pws/zycie245c-meins.
* >> Início da inclusão: FORM APURA_TOTAIS_0204
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI040'
'ATO008'.
e_subrc = 0.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'ATO008' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa)
CHANGING e_subrc
IF FOUND .
IF e_subrc NE '0'.
EXIT.
ENDIF.
ENDIF.
ENDIF.
v_rqtd_text = v_sqtd_text = text-322.
* << Fim da inclusão
IF NOT itab_zycit246[] IS INITIAL.
CLEAR: /pws/zycie244-t_realfob,
/pws/zycie244-t_realqtd,
/pws/zycie244-s_realfob,
/pws/zycie244-s_realqtd.
LOOP AT itab_zycit245 WHERE nritem EQ /pws/zycie245c-nritem.
CLEAR: /pws/zycie244-t_realfob, /pws/zycie244-t_realqtd,
v_vlfreter_imp, v_vlsegr_imp,v_vlfrete, v_vlseg .
/pws/zycie244-t_realfob = itab_zycit245-vlvinc.
/pws/zycie244-t_realqtd = itab_zycit245-vinculado.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040TOP
...
v_maiorpct TYPE p DECIMALS 2 ,
v_icmspct TYPE p DECIMALS 2 ,
v_segpct TYPE p DECIMALS 4 ,
v_qtdmat LIKE /pws/zycie239-qtd_iten ,
v_null(1) TYPE c ,
nextline TYPE sy-tabix ,
v_kaln1 LIKE mbew-kaln1 ,
v_vlcif_imp LIKE /pws/zycie240-netpr_t ,
v_icost_0109 LIKE icon-id ,
v_descr_0109(40) TYPE c ,
* >> Início da exclusão:
v_vlfreter_imp TYPE p DECIMALS 2 ,
v_vlsegr_imp TYPE p DECIMALS 2 ,
v_vlfrete TYPE p DECIMALS 2 ,
v_vlseg TYPE p DECIMALS 2 ,
v_werks_ei TYPE /pws/zycie244-werks ,
v_listc ,
* << Fim da exclusão
v_vltot_fob LIKE /pws/zycit248-vlfob,
v_tot_ag LIKE /pws/zycit248-vlcomis,
v_vl_ag LIKE /pws/zycit248-vlcomis,
v_qtd_s LIKE /pws/zycit248-qtd_iten,
v_dias(4) TYPE n ,
V_DESC_AGR(35) type c ,
v_qtd_ncmc LIKE /pws/zycit245-qtd_tot,
v_um_ncmc LIKE /pws/zycit245-meins ,
v_qtd_orig3 LIKE /pws/zycit245-qtd_tot ,
v_pbt_0102 LIKE /pws/zycie239-brgew ,
v_plt_0102 LIKE /pws/zycie239-ntgew ,
v_pbt_0105 LIKE /pws/zycie240-brgew ,
v_plt_0105 LIKE /pws/zycie240-ntgew ,
v_busca(1) TYPE c ,
v_econom LIKE /pws/zycie240-vl_total ,
v_idx_500 TYPE i,
v_idioma_500 TYPE t002t-sptxt,
* >> Início da exclusão:
v_sld_compv TYPE p DECIMALS 5,
v_sld_compv2 TYPE p DECIMALS 5,
* << Fim da exclusão
v_umncm LIKE /pws/zyglt204-zum ,
v_um_basica LIKE mara-meins ,
v_um_rez LIKE marm-umrez ,
v_um_ren LIKE marm-umren .
DATA: wa_zycbt007 LIKE /pws/zycbt007 ,
wa_zycit238 LIKE /pws/zycie238 ,
wa_cols TYPE cxtab_column .
DATA: tdynpread LIKE dynpread OCCURS 0 WITH HEADER LINE,
v_codcomp LIKE mara-matnr ,
v_codcomp_aux LIKE mara-matnr .
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040TOP2
...
tc_inf_exp TYPE TABLEVIEW USING SCREEN '0241',
tc_inf_imp TYPE TABLEVIEW USING SCREEN '0242',
tc_lanc TYPE TABLEVIEW USING SCREEN '0244',
tc_areas_n TYPE TABLEVIEW USING SCREEN '0247',
tc_setlt TYPE TABLEVIEW USING SCREEN '0400'.
DATA: ok_code2 LIKE sy-ucomm ,
v_tcode2_aux ,
v_ico2 TYPE icons-text ,
v_icoicms TYPE icons-text ,
v_icone2 TYPE iconname ,
* >> Início da exclusão:
v_icoreal1 LIKE icon-id ,
* << Fim da exclusão
v_werks2 LIKE /pws/zycie244-werks ,
v_status2(1) TYPE c VALUE '1' ,
v_status2a TYPE i VALUE '0' ,
pressed_tab_2a LIKE sy-ucomm VALUE 'FS_CABEC2' ,
pressed_tab_3a LIKE sy-ucomm VALUE 'FS_COMPI2' ,
pressed_tab_4a LIKE sy-ucomm VALUE 'FS_MAT2' ,
pressed_tab_5a LIKE sy-ucomm VALUE 'FS_ITENS' ,
pressed_tab_6a LIKE sy-ucomm VALUE 'FS_RESDI2' ,
pressed_tab_7a LIKE sy-ucomm VALUE 'FS_RESRE2' ,
pressed_tab_8a LIKE sy-ucomm VALUE 'FS_RESRE2' ,
...
...
v_faty TYPE p DECIMALS 8,
v_tot_real LIKE /pws/zycie003-vlreal,
v_fatpc LIKE /pws/zycie085-vlfob,
v_advii LIKE /pws/zycie085-vlfob,
v_advipi LIKE /pws/zycie085-vlfob,
v_advicms LIKE /pws/zycie085-vlfob,
v_advpis LIKE /pws/zycie085-vlfob,
v_advcof LIKE /pws/zycie085-vlfob,
v_divisor LIKE /pws/zycie085-vlfob,
v_variacao_real2(20) TYPE c,
* >> Início da exclusão:
vltot_brl LIKE /pws/zycie246-vltot,
* << Fim da exclusão
v_sfob_text(22) ,
v_sfrete_text(22) ,
v_sseg_text(22) ,
v_rfob_text(22) ,
v_rfrete_text(22) ,
v_rseg_text(22) ,
v_txtnetpr(20) ,
v_tsiscomex(4) type c ,
v_ver_alt type c .
DATA: v_regio TYPE adrc-region.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040X01
...
DATA : BEGIN OF itab_lista OCCURS 0 .
DATA : matexp LIKE mara-matnr ,
matimp LIKE mara-matnr ,
usagem LIKE /pws/zycit245-qtd_iten .
DATA : END OF itab_lista .
DATA: wa_zycit2382 LIKE /pws/zycie238 ,
wa_zycit2582 LIKE /pws/zycie258 .
DATA: v_nritem(5) TYPE c ,
v_verificp2(1) TYPE c VALUE 'N' ,
v_tcambial(16) TYPE c ,
* >> Início da inclusão:
V_Rqtd_TEXT(22) ,
V_sqtd_TEXT(22) ,
v_vlfreter_imp TYPE p DECIMALS 2 ,
v_vlsegr_imp TYPE p DECIMALS 2 ,
v_vlfrete TYPE p DECIMALS 2 ,
v_vlseg TYPE p DECIMALS 2 ,
v_werks_ei TYPE /pws/zycie244-werks ,
v_listc ,
v_sld_compv TYPE p DECIMALS 5,
v_sld_compv2 TYPE p DECIMALS 5,
v_icoreal1 LIKE icon-id,
vltot_brl LIKE /pws/zycie246-vltot,
* << Fim da inclusão
v_tcode2 LIKE sy-tcode .
DATA: END OF COMMON PART.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI040
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 322
Texto: (14 caracteres)
"Quantidade NCM"
Comprimento máximo: 20