CE PLUS - Nota 003619
Módulo: DRAWBACK
Funcionalidade: Apropriação
Data/Hora da Publicação: 04/05/2007 00:00:00
Data/Hora Última Alteração: 17/02/2011 15:08:46
Descrição da Nota: CRIADA EXIT APR005
Sintoma
Criada exit APR005
Solução
Criada exit APR005
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03619 Data: 04/05/2007 Hora: 14:31:15
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03619
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00001
Agrupamento : 00164
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01691 - 00001 - 6.0 - 00024 - AJUSTES REFERENTES A RASTREIO DE LOTE EFETUADO NOS PROGRAMAS DE D
01877 - 00002 - 6.0 - 00024 - AJUSTE PARA A APROPRIAÇÃO DE ATOS CONCESSÓRIOS GENÉRICOS
02618 - 00003 - 6.0 - 00025 - AJUSTADO TRATAMENTO DO INSUMO ALTERNATIVO
02732 - 00004 - 6.0 - 00026 - AUMENTO DE CASAS DECIMAIS NA EXPLOSÃO DA LISTA TÉCNICA
----------------------------------------------------------------------------------------------------
CRIADA EXIT APR005
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXIT - APR005 - APROPRIAÇÃO - /PWS/ZYCIR254
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCIR254
REPS /PWS/ZYCIR254F01
REPS /PWS/ZYCIR254X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR254
...
/pws/zycit321,
/pws/zycit283,
/pws/zycit094,
/pws/zycit100,
/pws/zycie100,
/pws/zycet117,
/pws/zycit327,
/pws/zycit439,
vbap.
.
* >> Início da exclusão:
DATA: BEGIN OF it_zycet001 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet001.
DATA: END OF it_zycet001.
DATA: BEGIN OF itab_zycit246 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit246.
DATA: END OF itab_zycit246.
DATA: BEGIN OF it_zycet002_grp OCCURS 0.
INCLUDE STRUCTURE /pws/zycet002.
DATA: qtdbx LIKE /pws/zycet002-fkimg,
mexp(1) TYPE c ,
grp LIKE mvke-mvgr1 .
DATA: END OF it_zycet002_grp.
DATA: BEGIN OF it_zycet002_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycet002.
DATA: END OF it_zycet002_aux.
DATA: BEGIN OF it_zycet002_desa OCCURS 0.
INCLUDE STRUCTURE /pws/zycet002.
DATA: qtdapr LIKE /pws/zycit283-qtd_apr,
mexp(1) TYPE c.
DATA: END OF it_zycet002_desa.
DATA: BEGIN OF it_apr OCCURS 0.
INCLUDE STRUCTURE /pws/zycit282.
DATA: un_ncm LIKE /pws/zycit245-meins,
lote TYPE /pws/zycit468-lote_i,
perc(10).
DATA: END OF it_apr.
DATA: BEGIN OF it_apr_m OCCURS 0.
INCLUDE STRUCTURE /pws/zycit282.
DATA: un_ncm LIKE /pws/zycit245-meins,
lote TYPE /pws/zycit468-lote_i,
perc(10).
DATA: END OF it_apr_m.
DATA: BEGIN OF it_apr_final OCCURS 0.
INCLUDE STRUCTURE /pws/zycit282.
DATA: un_ncm LIKE /pws/zycit245-meins,
lote TYPE /pws/zycit468-lote_i,
perc(10).
DATA: END OF it_apr_final.
DATA: BEGIN OF it_apr_final_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycit282.
DATA: END OF it_apr_final_aux.
DATA: BEGIN OF it_zycit283 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit283.
DATA: END OF it_zycit283.
DATA: BEGIN OF it_zycit282_des OCCURS 0.
INCLUDE STRUCTURE /pws/zycit282.
DATA: END OF it_zycit282_des.
DATA: BEGIN OF it_zycit282_est OCCURS 0.
INCLUDE STRUCTURE /pws/zycit282.
DATA: END OF it_zycit282_est.
DATA: BEGIN OF it_zycit283_des OCCURS 0.
INCLUDE STRUCTURE /pws/zycit283.
DATA: END OF it_zycit283_des.
DATA: BEGIN OF it_zycit283_est OCCURS 0.
INCLUDE STRUCTURE /pws/zycit283.
DATA: END OF it_zycit283_est.
DATA: BEGIN OF it_agrup OCCURS 0.
INCLUDE STRUCTURE mvke.
DATA: END OF it_agrup.
DATA: BEGIN OF itab_fornec OCCURS 0.
DATA: lifnr LIKE /pws/zycie244-lifnr,
nrseqd LIKE /pws/zycie244-nrseqd.
DATA: END OF itab_fornec.
DATA: BEGIN OF it_zycit422 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit422.
DATA: END OF it_zycit422.
DATA: BEGIN OF itab_zycet117 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet117.
DATA: END OF itab_zycet117.
DATA: BEGIN OF it_zycit281 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit281.
DATA: END OF it_zycit281.
DATA: BEGIN OF it_zycit279 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit279.
DATA: matnr_alt LIKE /pws/zycit279-matnr.
DATA: END OF it_zycit279.
DATA: BEGIN OF it_zycit279_save OCCURS 0.
INCLUDE STRUCTURE /pws/zycit279.
DATA: matnr_alt LIKE /pws/zycit279-matnr.
DATA: END OF it_zycit279_save.
DATA: BEGIN OF itab_zycit433 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit433.
DATA: END OF itab_zycit433.
DATA: BEGIN OF itab_zycit433t OCCURS 0.
INCLUDE STRUCTURE /pws/zycit433.
DATA: END OF itab_zycit433t.
DATA: BEGIN OF it_zycit244 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit244.
DATA: END OF it_zycit244.
DATA: BEGIN OF it_zycit245 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit245.
DATA: END OF it_zycit245.
DATA: BEGIN OF it_zycit282 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit282.
DATA: END OF it_zycit282.
DATA: BEGIN OF it_zycit247 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit247.
DATA: END OF it_zycit247.
DATA: BEGIN OF it_zycit247_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycit247.
DATA: END OF it_zycit247_aux.
DATA: BEGIN OF it_zycit247_save OCCURS 0.
INCLUDE STRUCTURE /pws/zycit247.
DATA: END OF it_zycit247_save.
DATA: itab_stko LIKE stko OCCURS 0 WITH HEADER LINE.
DATA: it_stpox2 LIKE stpox OCCURS 0 WITH HEADER LINE.
DATA: it_matcat LIKE cscmat OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF it_stpox OCCURS 0.
INCLUDE STRUCTURE stpox.
DATA: mngko2 LIKE /pws/zycie240d-mngko.
DATA: END OF it_stpox.
DATA: BEGIN OF it_zycit247f OCCURS 0.
INCLUDE STRUCTURE /pws/zycit247.
DATA: END OF it_zycit247f.
DATA: BEGIN OF it_buttons OCCURS 0.
DATA: bname(35) TYPE c.
DATA: END OF it_buttons.
DATA: BEGIN OF it_log_erro OCCURS 0.
DATA: ltext(135) TYPE c.
DATA: END OF it_log_erro.
DATA : BEGIN OF itab_zycee085 OCCURS 10.
INCLUDE STRUCTURE /pws/zycee085.
DATA : END OF itab_zycee085.
DATA : BEGIN OF itab_saida OCCURS 10.
INCLUDE STRUCTURE /pws/zycee085.
DATA : END OF itab_saida.
DATA: BEGIN OF it_materiais OCCURS 0,
matnr LIKE mara-matnr,
werks LIKE marc-werks,
stlan LIKE stpox-stlan,
stlnr LIKE stpo-stlnr,
stlal LIKE stpox-stlal,
capid LIKE tc04-capid.
DATA: END OF it_materiais.
DATA: BEGIN OF i_final OCCURS 0,
insumo LIKE mara-matnr,
produto LIKE stpox-idnrk,
centro LIKE stpox-werks,
ncm LIKE marc-steuc,
qtunit TYPE /pws/zycit245-qtd_iten,
meins LIKE stpox-meins.
DATA: END OF i_final.
DATA: BEGIN OF itab_lista OCCURS 0,
matnr LIKE mara-matnr,
ncm LIKE marc-steuc,
usagem TYPE /pws/zycit245-qtd_iten,
qtd LIKE /pws/zycit282-qtd_mimp,
meins LIKE stpox-meins,
perc(10) .
DATA: END OF itab_lista.
DATA: itab_lista_aux LIKE itab_lista OCCURS 0 WITH HEADER LINE.
DATA: itab_lista_f LIKE itab_lista OCCURS 0 WITH HEADER LINE.
DATA: itab_zycit439 LIKE /pws/zycit439 OCCURS 0 WITH HEADER LINE.
DATA: itab_zycit282_aux TYPE /pws/zycit282 OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF itab_zyglt100 OCCURS 10.
INCLUDE STRUCTURE /pws/zyglt100.
DATA: END OF itab_zyglt100.
DATA: e_subrc VALUE '0'.
DATA: BEGIN OF it_vbap OCCURS 0,
vbeln LIKE vbap-vbeln,
netpr LIKE vbap-netpr,
END OF it_vbap.
* << Fim da exclusão
DATA: wa_cols TYPE cxtab_column.
* >> Início da exclusão:
DATA: BEGIN OF wa_real_merc.
DATA: nrseqd TYPE /pws/zycit279-nrseqd,
matnr TYPE /pws/zycit279-matnr,
disp(10) TYPE c,
ebeln TYPE /pws/zycit282-ebeln,
ebelp TYPE /pws/zycit282-ebelp,
docnum TYPE /pws/zycit279-docnum,
nfnum TYPE /pws/zycit279-nfnum,
serie TYPE /pws/zycit279-serie,
dtnf TYPE /pws/zycit279-dtnf ,
lote TYPE /pws/zycit279-lote ,
meins_i TYPE /pws/zycit282-meins_i,
qtd_iorg TYPE /pws/zycit282-qtd_iorg ,
saldo TYPE /pws/zycit282-qtd_iorg ,
dispnf(10) TYPE c ,
qtd_mimp TYPE /pws/zycit282-qtd_mimp,
saldor TYPE /pws/zycit282-qtd_mimp,
fornec TYPE lfa1-name1.
DATA: END OF wa_real_merc.
DATA: v_erro(1) TYPE c VALUE 'N' ,
v_tela(4) TYPE c ,
v_errolt(1) TYPE c ,
v_dias TYPE i ,
v_dtforn LIKE sy-datum ,
ok_code LIKE sy-ucomm ,
mexp(1) TYPE c ,
v_ilinhas TYPE i ,
v_mtxt1_0001(40) TYPE c ,
v_mtxt1_0002(40) TYPE c ,
v_ctxt1_0002(40) TYPE c ,
nextline TYPE sy-tabix ,
v_menorpct TYPE p DECIMALS 5 ,
v_pct_com TYPE p DECIMALS 5 ,
rimc1 LIKE indx-srtfd VALUE 'R070PAR1',
v_import(1) TYPE c VALUE 'N' ,
v_campo(35) TYPE c ,
v_valor(35) TYPE c ,
v_linha TYPE i ,
v_pos TYPE i ,
v_idx LIKE sy-tabix ,
v_indic1 LIKE icon-id ,
v_indic2 LIKE icon-id ,
v_indicatu LIKE sy-tabix ,
v_aprov(1) TYPE c VALUE 'N' ,
v_index TYPE sy-tabix ,
v_errolog(135) TYPE c ,
v_qtdbx LIKE /pws/zycet002-fkimg ,
v_exapr ,
v_apcomp(1) TYPE c ,
v_perc(10) TYPE c ,
v_tptrans(1) TYPE c ,
v_un_ncm LIKE /pws/zycit245-meins ,
v_apr LIKE /pws/zycit283-qtd_apr ,
v_saldo_mat TYPE p DECIMALS 3 ,
v_perc_di(10) TYPE c ,
v_perc_i TYPE p DECIMALS 2 ,
v_saldo_di TYPE p DECIMALS 3 ,
v_qtd_apropriada TYPE p DECIMALS 3 ,
v_valor_imp LIKE /pws/zycit282-imp_s_cob_camb ,
v_exp_camb LIKE /pws/zycit282-exp_c_cob_camb,
v_ebelp LIKE /pws/zycit282-ebelp ,
v_ebelp2 LIKE /pws/zycit282-ebelp ,
v_imp_camb LIKE /pws/zycit282-imp_s_cob_camb,
v_lote_e TYPE /pws/zycit468-lote_e,
v_lote_i TYPE /pws/zycit468-lote_i,
v_exit.
* << Fim da exclusão
SELECTION-SCREEN BEGIN OF BLOCK scr1 WITH FRAME TITLE text-000.
SELECT-OPTIONS: nrseqexp FOR /pws/zycee002-nrseq ,
vbeln_va FOR /pws/zycee002-vbeln_va,
aupos FOR /pws/zycee002-aupos ,
vbeln_vf FOR /pws/zycee002-vbeln_vf,
posnr FOR /pws/zycee002-posnr ,
docnum FOR /pws/zycee002-docnum ,
vbeln_vl FOR /pws/zycee002-vbeln_vl,
posnl FOR /pws/zycee002-posnl ,
eebeln FOR /pws/zycee002-ebeln ,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR254F01
...
ENDFORM.
FORM get_bom_of_materials TABLES p_list LIKE it_stpox2[]
p_list2 LIKE it_matcat[]
USING p_matnr
p_capid
p_werks
p_stlan
p_stlnr
p_stlal
CHANGING p_erro.
* >> Início da exclusão: FORM GET_BOM_OF_MATERIALS
CALL FUNCTION 'CS_BOM_EXPL_MAT_V2'
EXPORTING
capid = p_capid
datuv = sy-datum
mktls = 'X'
mehrs = 'X'
mtnrv = p_matnr
stlal = p_stlal
stlan = p_stlan
svwvo = 'X'
werks = p_werks
vrsvo = 'X'
TABLES
stb = p_list
matcat = p_list2
EXCEPTIONS
alt_not_found = 1
call_invalid = 2
material_not_found = 3
missing_authorization = 4
no_bom_found = 5
no_plant_data = 6
no_suitable_bom_found = 7
conversion_error = 8
OTHERS = 9.
IF sy-subrc NE 0.
p_erro = 'S'.
ENDIF.
* << Fim da exclusão
DATA: v_datum LIKE sy-datum,
v_trans(20) TYPE c ,
idmemory1 LIKE indx-srtfd VALUE 'ITMAT' ,
idmemory2 LIKE indx-srtfd VALUE 'ITINS' .
DATA: BEGIN OF itab_zycit327 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit327.
DATA: END OF itab_zycit327.
* >> Início da inclusão: FORM GET_BOM_OF_MATERIALS
PERFORM verifica_exit USING 'D'
'/PWS/ZYCIR254'
'APR005'.
e_subrc = 0.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'APR005' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa)
using
it_zycet002-nrseq
it_zycet002-vbeln_va
it_zycet002-aupos
it_zycet002-vbeln_vf
it_zycet002-posnr
it_zycet002-docnum
it_zycet002-vbeln_vl
it_zycet002-posnl
CHANGING e_subrc
IF FOUND .
IF e_subrc EQ '8'.
EXIT.
ENDIF.
ENDIF.
ENDIF.
* << Fim da inclusão
SELECT SINGLE transacao FROM /pws/zycet079 INTO v_trans
WHERE codmod EQ 'D'
AND func EQ 'LTM'.
IF sy-subrc NE 0 OR v_trans IS INITIAL.
MESSAGE i015 WITH text-052 text-053.
LEAVE PROGRAM.
EXIT.
ENDIF.
CLEAR i_final. REFRESH i_final.
CLEAR it_materiais. REFRESH it_materiais.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR254X01
DATA: BEGIN OF COMMON PART a.
data: itab_zycit468 type /pws/zycit468 occurs 0 with header line.
DATA: BEGIN OF it_zycet002 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet002.
DATA: qtdbx LIKE /pws/zycet002-fkimg ,
lote type /pws/zycit468-lote_e,
mexp(1) TYPE c .
DATA: END OF it_zycet002.
* >> Início da inclusão:
DATA: BEGIN OF it_zycet001 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet001.
DATA: END OF it_zycet001.
DATA: BEGIN OF itab_zycit246 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit246.
DATA: END OF itab_zycit246.
DATA: BEGIN OF it_zycet002_grp OCCURS 0.
INCLUDE STRUCTURE /pws/zycet002.
DATA: qtdbx LIKE /pws/zycet002-fkimg,
mexp(1) TYPE c ,
grp LIKE mvke-mvgr1 .
DATA: END OF it_zycet002_grp.
DATA: BEGIN OF it_zycet002_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycet002.
DATA: END OF it_zycet002_aux.
DATA: BEGIN OF it_zycet002_desa OCCURS 0.
INCLUDE STRUCTURE /pws/zycet002.
DATA: qtdapr LIKE /pws/zycit283-qtd_apr,
mexp(1) TYPE c.
DATA: END OF it_zycet002_desa.
DATA: BEGIN OF it_apr OCCURS 0.
INCLUDE STRUCTURE /pws/zycit282.
DATA: un_ncm LIKE /pws/zycit245-meins,
lote TYPE /pws/zycit468-lote_i,
perc(10).
DATA: END OF it_apr.
DATA: BEGIN OF it_apr_m OCCURS 0.
INCLUDE STRUCTURE /pws/zycit282.
DATA: un_ncm LIKE /pws/zycit245-meins,
lote TYPE /pws/zycit468-lote_i,
perc(10).
DATA: END OF it_apr_m.
DATA: BEGIN OF it_apr_final OCCURS 0.
INCLUDE STRUCTURE /pws/zycit282.
DATA: un_ncm LIKE /pws/zycit245-meins,
lote TYPE /pws/zycit468-lote_i,
perc(10).
DATA: END OF it_apr_final.
DATA: BEGIN OF it_apr_final_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycit282.
DATA: END OF it_apr_final_aux.
DATA: BEGIN OF it_zycit283 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit283.
DATA: END OF it_zycit283.
DATA: BEGIN OF it_zycit282_des OCCURS 0.
INCLUDE STRUCTURE /pws/zycit282.
DATA: END OF it_zycit282_des.
DATA: BEGIN OF it_zycit282_est OCCURS 0.
INCLUDE STRUCTURE /pws/zycit282.
DATA: END OF it_zycit282_est.
DATA: BEGIN OF it_zycit283_des OCCURS 0.
INCLUDE STRUCTURE /pws/zycit283.
DATA: END OF it_zycit283_des.
DATA: BEGIN OF it_zycit283_est OCCURS 0.
INCLUDE STRUCTURE /pws/zycit283.
DATA: END OF it_zycit283_est.
DATA: BEGIN OF it_agrup OCCURS 0.
INCLUDE STRUCTURE mvke.
DATA: END OF it_agrup.
DATA: BEGIN OF itab_fornec OCCURS 0.
DATA: lifnr LIKE /pws/zycie244-lifnr,
nrseqd LIKE /pws/zycie244-nrseqd.
DATA: END OF itab_fornec.
DATA: BEGIN OF it_zycit422 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit422.
DATA: END OF it_zycit422.
DATA: BEGIN OF itab_zycet117 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet117.
DATA: END OF itab_zycet117.
DATA: BEGIN OF it_zycit281 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit281.
DATA: END OF it_zycit281.
DATA: BEGIN OF it_zycit279 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit279.
DATA: matnr_alt LIKE /pws/zycit279-matnr.
DATA: END OF it_zycit279.
DATA: BEGIN OF it_zycit279_save OCCURS 0.
INCLUDE STRUCTURE /pws/zycit279.
DATA: matnr_alt LIKE /pws/zycit279-matnr.
DATA: END OF it_zycit279_save.
DATA: BEGIN OF itab_zycit433 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit433.
DATA: END OF itab_zycit433.
DATA: BEGIN OF itab_zycit433t OCCURS 0.
INCLUDE STRUCTURE /pws/zycit433.
DATA: END OF itab_zycit433t.
DATA: BEGIN OF it_zycit244 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit244.
DATA: END OF it_zycit244.
DATA: BEGIN OF it_zycit245 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit245.
DATA: END OF it_zycit245.
DATA: BEGIN OF it_zycit282 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit282.
DATA: END OF it_zycit282.
DATA: BEGIN OF it_zycit247 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit247.
DATA: END OF it_zycit247.
DATA: BEGIN OF it_zycit247_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycit247.
DATA: END OF it_zycit247_aux.
DATA: BEGIN OF it_zycit247_save OCCURS 0.
INCLUDE STRUCTURE /pws/zycit247.
DATA: END OF it_zycit247_save.
DATA: itab_stko LIKE stko OCCURS 0 WITH HEADER LINE.
DATA: it_stpox2 LIKE stpox OCCURS 0 WITH HEADER LINE.
DATA: it_matcat LIKE cscmat OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF it_stpox OCCURS 0.
INCLUDE STRUCTURE stpox.
DATA: mngko2 LIKE /pws/zycie240d-mngko.
DATA: END OF it_stpox.
DATA: BEGIN OF it_zycit247f OCCURS 0.
INCLUDE STRUCTURE /pws/zycit247.
DATA: END OF it_zycit247f.
DATA: BEGIN OF it_buttons OCCURS 0.
DATA: bname(35) TYPE c.
DATA: END OF it_buttons.
DATA: BEGIN OF it_log_erro OCCURS 0.
DATA: ltext(135) TYPE c.
DATA: END OF it_log_erro.
DATA : BEGIN OF itab_zycee085 OCCURS 10.
INCLUDE STRUCTURE /pws/zycee085.
DATA : END OF itab_zycee085.
DATA : BEGIN OF itab_saida OCCURS 10.
INCLUDE STRUCTURE /pws/zycee085.
DATA : END OF itab_saida.
DATA: BEGIN OF it_materiais OCCURS 0,
matnr LIKE mara-matnr,
werks LIKE marc-werks,
stlan LIKE stpox-stlan,
stlnr LIKE stpo-stlnr,
stlal LIKE stpox-stlal,
capid LIKE tc04-capid.
DATA: END OF it_materiais.
DATA: BEGIN OF i_final OCCURS 0,
insumo LIKE mara-matnr,
produto LIKE stpox-idnrk,
centro LIKE stpox-werks,
ncm LIKE marc-steuc,
qtunit TYPE /pws/zycit245-qtd_iten,
meins LIKE stpox-meins.
DATA: END OF i_final.
DATA: BEGIN OF itab_lista OCCURS 0,
matnr LIKE mara-matnr,
ncm LIKE marc-steuc,
usagem TYPE /pws/zycit245-qtd_iten,
qtd LIKE /pws/zycit282-qtd_mimp,
meins LIKE stpox-meins,
perc(10) .
DATA: END OF itab_lista.
DATA: itab_lista_aux LIKE itab_lista OCCURS 0 WITH HEADER LINE.
DATA: itab_lista_f LIKE itab_lista OCCURS 0 WITH HEADER LINE.
DATA: itab_zycit439 LIKE /pws/zycit439 OCCURS 0 WITH HEADER LINE.
DATA: itab_zycit282_aux TYPE /pws/zycit282 OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF itab_zyglt100 OCCURS 10.
INCLUDE STRUCTURE /pws/zyglt100.
DATA: END OF itab_zyglt100.
DATA: e_subrc VALUE '0'.
DATA: BEGIN OF it_vbap OCCURS 0,
vbeln LIKE vbap-vbeln,
netpr LIKE vbap-netpr,
END OF it_vbap.
DATA: BEGIN OF wa_real_merc.
DATA: nrseqd TYPE /pws/zycit279-nrseqd,
matnr TYPE /pws/zycit279-matnr,
disp(10) TYPE c,
ebeln TYPE /pws/zycit282-ebeln,
ebelp TYPE /pws/zycit282-ebelp,
docnum TYPE /pws/zycit279-docnum,
nfnum TYPE /pws/zycit279-nfnum,
serie TYPE /pws/zycit279-serie,
dtnf TYPE /pws/zycit279-dtnf ,
lote TYPE /pws/zycit279-lote ,
meins_i TYPE /pws/zycit282-meins_i,
qtd_iorg TYPE /pws/zycit282-qtd_iorg ,
saldo TYPE /pws/zycit282-qtd_iorg ,
dispnf(10) TYPE c ,
qtd_mimp TYPE /pws/zycit282-qtd_mimp,
saldor TYPE /pws/zycit282-qtd_mimp,
fornec TYPE lfa1-name1.
DATA: END OF wa_real_merc.
DATA: v_erro(1) TYPE c VALUE 'N' ,
v_tela(4) TYPE c ,
v_errolt(1) TYPE c ,
v_dias TYPE i ,
v_dtforn LIKE sy-datum ,
ok_code LIKE sy-ucomm ,
mexp(1) TYPE c ,
v_ilinhas TYPE i ,
v_mtxt1_0001(40) TYPE c ,
v_mtxt1_0002(40) TYPE c ,
v_ctxt1_0002(40) TYPE c ,
nextline TYPE sy-tabix ,
v_menorpct TYPE p DECIMALS 5 ,
v_pct_com TYPE p DECIMALS 5 ,
rimc1 LIKE indx-srtfd VALUE 'R070PAR1',
v_import(1) TYPE c VALUE 'N' ,
v_campo(35) TYPE c ,
v_valor(35) TYPE c ,
v_linha TYPE i ,
v_pos TYPE i ,
v_idx LIKE sy-tabix ,
v_indic1 LIKE icon-id ,
v_indic2 LIKE icon-id ,
v_indicatu LIKE sy-tabix ,
v_aprov(1) TYPE c VALUE 'N' ,
v_index TYPE sy-tabix ,
v_errolog(135) TYPE c ,
v_qtdbx LIKE /pws/zycet002-fkimg ,
v_exapr ,
v_apcomp(1) TYPE c ,
v_perc(10) TYPE c ,
v_tptrans(1) TYPE c ,
v_un_ncm LIKE /pws/zycit245-meins ,
v_apr LIKE /pws/zycit283-qtd_apr ,
v_saldo_mat TYPE p DECIMALS 3 ,
v_perc_di(10) TYPE c ,
v_perc_i TYPE p DECIMALS 2 ,
v_saldo_di TYPE p DECIMALS 3 ,
v_qtd_apropriada TYPE p DECIMALS 3 ,
v_valor_imp LIKE /pws/zycit282-imp_s_cob_camb ,
v_exp_camb LIKE /pws/zycit282-exp_c_cob_camb,
v_ebelp LIKE /pws/zycit282-ebelp ,
v_ebelp2 LIKE /pws/zycit282-ebelp ,
v_imp_camb LIKE /pws/zycit282-imp_s_cob_camb,
v_lote_e TYPE /pws/zycit468-lote_e,
v_lote_i TYPE /pws/zycit468-lote_i,
v_exit.
* << Fim da inclusão
data: end of common part.