CE PLUS - Nota 000514
Módulo: DRAWBACK
Funcionalidade: Composição
Data/Hora da Publicação: 23/12/2005 00:00:00
Data/Hora Última Alteração: 17/02/2011 12:49:02
Descrição da Nota: EXIT NA SELEÇÃO DOS ITENS DE EXPORTAÇÃO DA COMPOSIÇÃO ISENÇÃO
Sintoma
Necessidade de criação de exit para tratamento especifico da seleção
dos itens de exportação a serem utilizados na composição.
Solução
Criar a exit solicitada. COI001
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00514 Data: 23/12/2005 Hora: 09:01:16
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00514
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00022
Agrupamento : 00000
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
EXIT NA SELEÇÃO DOS ITENS DE EXPORTAÇÃO DA COMPOSIÇÃO ISENÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXIT - COI001 - COMPOSIÇÃO - SELEÇÃO - EXPORTAÇÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
PROG /PWS/MZYCI064X01
REPS /PWS/MZYCI064F03
REPS /PWS/MZYCI064TOP
REPS /PWS/MZYCI064TOP2
REPS /PWS/MZYCI064TOP3
REPS /PWS/SAPMZYCI064
----------------------------------------------------------------------------------------------------
É necessario criar o include /PWS/MZYCI064X01
Modificações efetuadas em PROG /PWS/MZYCI064X01
* >> Início da inclusão:
*----------------------------------------------------------------------*
* INCLUDE /PWS/MZYCI064X01 *
*----------------------------------------------------------------------*
tables: /pws/ZYCIT371,
/pws/ZYCIE258,
/pws/zycie371,
MARA.
DATA: BEGIN OF COMMON PART a.
* Tabela interna para controle da função TRATA_ORDEM.
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.
* Centros
DATA : BEGIN OF itab_zycit434 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit434.
DATA: mark.
DATA : END OF itab_zycit434.
* Controla a exibição do log de erro.
DATA: BEGIN OF it_log_erro3 OCCURS 0.
DATA: ltext(135) TYPE c.
DATA: END OF it_log_erro3.
* Tabela Interna de Resumo de Exportações.
DATA: BEGIN OF itab_resumo OCCURS 0,
codmat LIKE /pws/zycie259-codmat ,
qtd_iten LIKE /pws/zycie259-qtd_iten,
vlfob LIKE /pws/zycie259-vlfob ,
dtpre LIKE /pws/zycie259-dtre ,
dture LIKE /pws/zycie259-dtre ,
werks LIKE /pws/zycie259-werks ,
stlan LIKE /pws/zycie259-stlan ,
stlnr LIKE /pws/zycie259-stlnr ,
stlal LIKE /pws/zycie259-stlal ,
marc_l(1) TYPE c ,
END OF itab_resumo.
* Tabela interna para seleção de R.E.¿s através inner join.
DATA: BEGIN OF itab_re_final OCCURS 0.
DATA: nrseqre LIKE /pws/zycet116-nrseqre ,
nrre LIKE /pws/zycet116-nrre ,
dtincl LIKE /pws/zycet116-dtincl ,
agrupado LIKE /pws/zycet116-agrupado,
codenq1 LIKE /pws/zycet116-codenq1 ,
matnr LIKE /pws/zycet118-matnr ,
vbeln_va LIKE /pws/zycet118-vbeln_va,
vbeln_vf LIKE /pws/zycet118-vbeln_vf,
posnr LIKE /pws/zycet118-posnr ,
vbeln_vl LIKE /pws/zycet118-vbeln_vl,
posnl LIKE /pws/zycet118-posnl ,
gewei LIKE /pws/zycet118-gewei ,
ntgew LIKE /pws/zycet118-ntgew ,
brgew LIKE /pws/zycet118-brgew ,
waers LIKE /pws/zycet118-waers ,
vfob LIKE /pws/zycet118-vfob ,
vlagente LIKE /pws/zycet118-vlagente,
netpr LIKE /pws/zycet118-netpr ,
seqagrupado LIKE /pws/zycet118-seqagrupado,
codnrseq LIKE /pws/zycet118-codnrseq,
nrseqexp like /pws/zycit282-nrseqexp.
DATA: END OF itab_re_final.
DATA: BEGIN OF itab_j_1bnflin OCCURS 0.
INCLUDE STRUCTURE j_1bnflin .
DATA: END OF itab_j_1bnflin .
DATA: BEGIN OF itab_j_1bnfdoc OCCURS 0.
INCLUDE STRUCTURE j_1bnfdoc .
DATA: END OF itab_j_1bnfdoc .
DATA: BEGIN OF itab_zycet001 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet001 .
DATA: END OF itab_zycet001 .
DATA: BEGIN OF itab_zycet002 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet002 .
DATA: END OF itab_zycet002 .
DATA: BEGIN OF itab_zycet003 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet003 .
DATA: END OF itab_zycet003 .
DATA: BEGIN OF itab_zycet116 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet116 .
DATA: END OF itab_zycet116 .
DATA: BEGIN OF itab_zycet118 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet118 .
DATA: END OF itab_zycet118 .
DATA: BEGIN OF itab_zycet092 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet092 .
DATA: END OF itab_zycet092 .
DATA: BEGIN OF itab_zycet066 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet066 .
DATA: END OF itab_zycet066 .
* Tabelas para Isenção Intermediário
DATA : BEGIN OF itab_zycit371 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit371.
DATA : END OF itab_zycit371.
DATA : BEGIN OF itab_zycit372 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit372.
DATA : END OF itab_zycit372.
DATA : BEGIN OF itab_zycit373 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit373.
DATA : END OF itab_zycit373.
DATA : BEGIN OF itab_zycit432 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit432.
DATA: status(1) TYPE c.
DATA : END OF itab_zycit432.
* Log de exportações não vinculadas
data: begin of itab_msg_erro occurs 0,
matnr LIKE /pws/zycet118-matnr ,
nrseqre LIKE /pws/zycet116-nrseqre ,
nrre LIKE /pws/zycet116-nrre ,
nrseq like /pws/zycet001-nrseq ,
dtemb like /pws/zycet001-dtemb ,
icon1 like icon-id ,
icon2 like icon-id ,
icon3 like icon-id ,
icon4 like icon-id ,
icon5 like icon-id ,
icon6 like icon-id ,
msg(50) type C,
end of itab_msg_erro.
data: itab_msg_erro_aux like itab_msg_erro occurs 0 with header line.
data:
v_dtini LIKE /pws/zycee116-dtincl ," 0312
v_codigo LIKE /pws/zycie371-codigo ," 0314
v_dtfim LIKE /pws/zycee116-dtincl ." 0312
* Tabela interna de Detalhes de Exportações.
DATA: BEGIN OF itab_det_exp OCCURS 0.
INCLUDE STRUCTURE /pws/zycie259.
DATA: it_docfat LIKE /pws/zycit373-it_docfat,
fornec LIKE /pws/zycit373-fornec ,
it_fornec LIKE /pws/zycit373-it_fornec,
docnum LIKE /pws/zycit373-docnum ,
* nrre like /pws/zycit371-nrre ,
itmnum LIKE /pws/zycit373-itmnum ,
matnr LIKE /pws/zycit372-matnr .
DATA: marcd_l(1) TYPE c.
DATA: END OF itab_det_exp.
DATA: BEGIN OF itab_det_exp_final OCCURS 0.
INCLUDE STRUCTURE /pws/zycie259.
DATA: it_docfat LIKE /pws/zycit373-it_docfat,
fornec LIKE /pws/zycit373-fornec ,
it_fornec LIKE /pws/zycit373-it_fornec,
docnum LIKE /pws/zycit373-docnum ,
* nrre like /pws/zycit371-nrre ,
itmnum LIKE /pws/zycit373-itmnum ,
matnr LIKE /pws/zycit372-matnr .
DATA: marcd_l(1) TYPE c.
DATA: END OF itab_det_exp_final.
* Tabela interna Param. Enquadramento da Operação.
DATA : BEGIN OF itab_zycet130 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet130.
DATA : END OF itab_zycet130.
* Tabelas internas utilizadas na vinculação da composição de isenção com
* o ato concessório:
* Exportações da Composição de Isenção
DATA: BEGIN OF itab_zycit259 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit259.
DATA: END OF itab_zycit259.
* Tabela interna para controle das listas técnicas.
DATA: BEGIN OF itab_zycit281 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit281.
DATA: END OF itab_zycit281.
DATA: BEGIN OF itab_mess_un OCCURS 0.
DATA: meins LIKE /pws/zycit245-meins,
matnr like /pws/zycit003-matnr.
DATA: END OF itab_mess_un.
DATA: END OF COMMON PART.
* Cria tela de seleção para Composição de Isenção - tela 0304.
* Tela para seleção de Exportações Realizadas.
SELECTION-SCREEN BEGIN OF SCREEN 0312 AS WINDOW TITLE text-098.
SELECT-OPTIONS p_matnr FOR mara-matnr.
PARAMETERS: p_dtexp1 LIKE /pws/zycee116-dtincl,
p_dtexp2 LIKE /pws/zycee116-dtincl.
SELECTION-SCREEN END OF SCREEN 0312.
* >> Fim da inclusão:
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI064F03
...
ENDMODULE.
FORM selecionar_exportacoes3.
DATA: v_comisag LIKE /pws/zycet066-vlagente,
v_waersag LIKE /pws/zycet066-waers ,
v_nrre_temp(14) .
* >> Início da inclusão: FORM SELECIONAR_EXPORTACOES3
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI064'
'COI001'.
e_subrc = 0.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'COI001' 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
p_dtexp1
p_dtexp2
CHANGING e_subrc
IF FOUND .
IF e_subrc EQ '8'.
EXIT.
ENDIF.
ENDIF.
ENDIF.
if e_subrc = 0.
* << Fim da inclusão
v_dtini = sy-datum - 728.
v_dtfim = sy-datum.
IF p_dtexp1 IS INITIAL AND
p_dtexp2 IS INITIAL.
p_dtexp1 = v_dtini. p_dtexp2 = v_dtfim.
...
...
ENDIF.
ENDLOOP.
CALL SCREEN 0600 STARTING AT 5 5.
ENDIF.
PERFORM carrega_resumo_exportacao3.
* >> Início da inclusão: FORM SELECIONAR_EXPORTACOES3
endif.
* << Fim da inclusão
ENDFORM.
FORM trata_button_selexp.
IF /pws/zycie258-tipo EQ 'I'.
CALL SCREEN 0314 STARTING AT 03 05 .
ELSE.
...
...
ENDIF.
ENDIF.
ENDLOOP.
ENDLOOP.
ENDFORM.
* >> Início da inclusão:
FORM verifica_exit USING p_modulo
p_func
p_exit.
CLEAR itab_zyglt100.
REFRESH itab_zyglt100.
CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
EXPORTING
i_codmod = p_modulo
i_func = p_func
i_zexit = p_exit
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
OTHERS = 4.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI064TOP
PROGRAM /pws/SAPMZYCI064 MESSAGE-ID /pws/zycim.
* >> Início da inclusão:
INCLUDE /PWS/MZYCI064X01.
* << Fim da inclusão
INCLUDE /pws/mzyci064top2.
INCLUDE /pws/mzyci064top3.
* >> Início da exclusão:
TABLES: mara ,
* << Fim da exclusão
* >> Início da inclusão:
TABLES:
* << Fim da inclusão
bsak ,
mast ,
stpo ,
stko ,
stas ,
...
...
DATA: END OF itab_botoes.
DATA: BEGIN OF itab_forms OCCURS 0.
INCLUDE STRUCTURE /pws/zycet067.
DATA: v_mark(1) TYPE c.
DATA: END OF itab_forms.
* >> Início da exclusão:
DATA: BEGIN OF itab_mess_un OCCURS 0.
DATA: meins LIKE /pws/zycit245-meins,
matnr like /pws/zycit003-matnr.
DATA: END OF itab_mess_un.
data: begin of itab_msg_erro occurs 0,
matnr LIKE /pws/zycet118-matnr ,
nrseqre LIKE /pws/zycet116-nrseqre ,
nrre LIKE /pws/zycet116-nrre ,
nrseq like /pws/zycet001-nrseq ,
dtemb like /pws/zycet001-dtemb ,
icon1 like icon-id ,
icon2 like icon-id ,
icon3 like icon-id ,
icon4 like icon-id ,
icon5 like icon-id ,
icon6 like icon-id ,
msg(50) type C,
end of itab_msg_erro.
data: itab_msg_erro_aux like itab_msg_erro occurs 0 with header line.
* << Fim da exclusão
* >> Início da inclusão:
DATA: BEGIN OF itab_zyglt100 OCCURS 10.
INCLUDE STRUCTURE /pws/zyglt100.
DATA: END OF itab_zyglt100.
DATA: e_subrc VALUE '0'.
* << Fim da inclusão
DATA: toolbar_container1 TYPE REF TO cl_gui_custom_container,
tool_container1 TYPE scrfname VALUE 'BTN1' ,
myevent_tab TYPE cntl_simple_events ,
myevent TYPE cntl_simple_event ,
btn1 TYPE REF TO cl_gui_toolbar .
...
...
WHEN 'BTN1'.
PERFORM execute_button_btn1.
ENDCASE.
ENDMETHOD.
ENDCLASS.
* >> Início da exclusão:
SELECTION-SCREEN BEGIN OF SCREEN 0312 AS WINDOW TITLE text-098.
SELECT-OPTIONS p_matnr FOR mara-matnr .
PARAMETERS: p_dtexp1 LIKE /pws/zycee116-dtincl,
p_dtexp2 LIKE /pws/zycee116-dtincl.
SELECTION-SCREEN END OF SCREEN 0312.
AT SELECTION-SCREEN.
CASE sy-ucomm.
WHEN 'CRET'.
PERFORM selecionar_exportacoes3.
ENDCASE.
* << Fim da exclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI064TOP2
...
DATA: END OF itab_zycit282.
DATA: BEGIN OF itab_zycit282_comp OCCURS 0.
INCLUDE STRUCTURE /pws/zycit282.
DATA: END OF itab_zycit282_comp.
DATA: itab_j1bnfdoc LIKE j_1bnfdoc OCCURS 0 WITH HEADER LINE.
* >> Início da exclusão:
DATA: BEGIN OF itab_zycet001 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet001 .
DATA: END OF itab_zycet001 .
DATA: BEGIN OF itab_zycet002 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet002 .
DATA: END OF itab_zycet002 .
DATA: BEGIN OF itab_zycet003 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet003 .
DATA: END OF itab_zycet003 .
DATA: BEGIN OF itab_zycet116 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet116 .
DATA: END OF itab_zycet116 .
DATA: BEGIN OF itab_zycet118 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet118 .
DATA: END OF itab_zycet118 .
DATA: BEGIN OF itab_zycet092 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet092 .
DATA: END OF itab_zycet092 .
DATA: BEGIN OF itab_zycet066 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet066 .
DATA: END OF itab_zycet066 .
DATA: BEGIN OF itab_j_1bnflin OCCURS 0.
INCLUDE STRUCTURE j_1bnflin .
DATA: END OF itab_j_1bnflin .
DATA: BEGIN OF itab_j_1bnfdoc OCCURS 0.
INCLUDE STRUCTURE j_1bnfdoc .
DATA: END OF itab_j_1bnfdoc .
* << Fim da exclusão
DATA: BEGIN OF itab_zycit078 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit078.
DATA: END OF itab_zycit078.
DATA: BEGIN OF itab_zycit079 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit079.
...
...
INCLUDE STRUCTURE /pws/zycit249 .
DATA: END OF itab_zycit249 .
DATA: BEGIN OF itab_zycit239 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit239 .
DATA: END OF itab_zycit239 .
* >> Início da exclusão:
DATA: BEGIN OF itab_zycit259 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit259.
DATA: END OF itab_zycit259.
* << Fim da exclusão
DATA: BEGIN OF itab_zycit261 OCCURS 0.
INCLUDE STRUCTURE /pws/zycie261.
DATA: END OF itab_zycit261.
DATA: BEGIN OF itab_res_dicomp OCCURS 0.
INCLUDE STRUCTURE /pws/zycie260.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI064TOP3
* >> Início da exclusão:
TABLES: /pws/zycie258 ,
* << Fim da exclusão
* >> Início da inclusão:
TABLES:
* << Fim da inclusão
/pws/zycit258 ,
/pws/zycie259 ,
/pws/zycie259c,
/pws/zycie259d,
/pws/zycit259 ,
/pws/zycie260 ,
/pws/zycie260c,
/pws/zycie260d,
/pws/zycit260 ,
/pws/zycie261 ,
* >> Início da exclusão:
/pws/zycie371 ,
/pws/zycit371 ,
* << Fim da exclusão
/pws/zycit372 ,
/pws/zycit373 ,
/pws/zycie372 ,
/pws/zycie373 ,
/pws/zycie432 ,
...
...
v_ico_det3 TYPE icon-id ,
marc_cp(1) TYPE c ,
v_vsel(1) TYPE c ,
v_vtc(1) TYPE c ,
v_execloop(1) TYPE c ,
* >> Início da exclusão:
v_dtini LIKE /pws/zycee116-dtincl ,
v_dtfim LIKE /pws/zycee116-dtincl ,
* << Fim da exclusão
v_dtaux LIKE /pws/zycee116-dtincl ,
v_idxtmp LIKE sy-tabix ,
tt_ii LIKE /pws/zycie260d-i_vlii ,
tt_ipi LIKE /pws/zycie260d-i_vlipi ,
tt_icms LIKE /pws/zycie260d-i_vlicms ,
...
...
v_descr_0308(40) TYPE c ,
v_tiires_0303 LIKE /pws/zycie260d-i_vlii ,
v_tipires_0303 LIKE /pws/zycie260d-i_vlipi ,
v_tbenef_0303 LIKE /pws/zycie260d-t_benef ,
v_errolog3(135) TYPE c ,
* >> Início da exclusão:
v_codigo LIKE /pws/zycie371-codigo ,
* << Fim da exclusão
v_tabix LIKE sy-tabix .
DATA: BEGIN OF itab_botoes3 OCCURS 0.
DATA: bname(20) TYPE c .
DATA: END OF itab_botoes3 .
* >> Início da exclusão:
DATA: BEGIN OF it_log_erro3 OCCURS 0.
DATA: ltext(135) TYPE c.
DATA: END OF it_log_erro3.
DATA: BEGIN OF itab_resumo OCCURS 0,
codmat LIKE /pws/zycie259-codmat ,
qtd_iten LIKE /pws/zycie259-qtd_iten,
vlfob LIKE /pws/zycie259-vlfob ,
dtpre LIKE /pws/zycie259-dtre ,
dture LIKE /pws/zycie259-dtre ,
werks LIKE /pws/zycie259-werks ,
stlan LIKE /pws/zycie259-stlan ,
stlnr LIKE /pws/zycie259-stlnr ,
stlal LIKE /pws/zycie259-stlal ,
marc_l(1) TYPE c ,
END OF itab_resumo.
DATA: BEGIN OF itab_det_exp OCCURS 0.
INCLUDE STRUCTURE /pws/zycie259.
DATA: it_docfat LIKE /pws/zycit373-it_docfat,
fornec LIKE /pws/zycit373-fornec ,
it_fornec LIKE /pws/zycit373-it_fornec,
docnum LIKE /pws/zycit373-docnum ,
itmnum LIKE /pws/zycit373-itmnum ,
matnr LIKE /pws/zycit372-matnr .
DATA: marcd_l(1) TYPE c.
DATA: END OF itab_det_exp.
DATA: BEGIN OF itab_det_exp_final OCCURS 0.
INCLUDE STRUCTURE /pws/zycie259.
DATA: it_docfat LIKE /pws/zycit373-it_docfat,
fornec LIKE /pws/zycit373-fornec ,
it_fornec LIKE /pws/zycit373-it_fornec,
docnum LIKE /pws/zycit373-docnum ,
itmnum LIKE /pws/zycit373-itmnum ,
matnr LIKE /pws/zycit372-matnr .
DATA: marcd_l(1) TYPE c.
DATA: END OF itab_det_exp_final.
DATA: BEGIN OF itab_re_final OCCURS 0.
DATA: nrseqre LIKE /pws/zycet116-nrseqre ,
nrre LIKE /pws/zycet116-nrre ,
dtincl LIKE /pws/zycet116-dtincl ,
agrupado LIKE /pws/zycet116-agrupado,
codenq1 LIKE /pws/zycet116-codenq1 ,
matnr LIKE /pws/zycet118-matnr ,
vbeln_va LIKE /pws/zycet118-vbeln_va,
vbeln_vf LIKE /pws/zycet118-vbeln_vf,
posnr LIKE /pws/zycet118-posnr ,
vbeln_vl LIKE /pws/zycet118-vbeln_vl,
posnl LIKE /pws/zycet118-posnl ,
gewei LIKE /pws/zycet118-gewei ,
ntgew LIKE /pws/zycet118-ntgew ,
brgew LIKE /pws/zycet118-brgew ,
waers LIKE /pws/zycet118-waers ,
vfob LIKE /pws/zycet118-vfob ,
vlagente LIKE /pws/zycet118-vlagente,
netpr LIKE /pws/zycet118-netpr ,
seqagrupado LIKE /pws/zycet118-seqagrupado,
codnrseq LIKE /pws/zycet118-codnrseq,
nrseqexp like /pws/zycit282-nrseqexp.
DATA: END OF itab_re_final.
* << Fim da exclusão
DATA: BEGIN OF itab_res_imp OCCURS 0,
codcomp LIKE /pws/zycie260-codcomp ,
qtd_di LIKE /pws/zycie260-qtd_di ,
qtd_vinc LIKE /pws/zycie260-qtd_vinc,
vlfob LIKE /pws/zycie260-vlfob_t ,
...
...
INCLUDE STRUCTURE /pws/zycie260.
DATA: END OF itab_di_final.
DATA: BEGIN OF itab_zycit260 OCCURS 0.
INCLUDE STRUCTURE /pws/zycie260.
DATA: END OF itab_zycit260.
* >> Início da exclusão:
DATA: BEGIN OF itab_zycit281 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit281.
DATA: END OF itab_zycit281.
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.
* << Fim da exclusão
DATA: itab_di_final_aux LIKE itab_di_final OCCURS 0 WITH HEADER LINE.
* >> Início da exclusão:
DATA : BEGIN OF itab_zycet130 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet130.
DATA : END OF itab_zycet130.
* << Fim da exclusão
DATA : BEGIN OF itab_zycit036 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit036.
DATA : END OF itab_zycit036.
* >> Início da exclusão:
DATA : BEGIN OF itab_zycit371 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit371.
DATA : END OF itab_zycit371.
DATA : BEGIN OF itab_zycit372 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit372.
DATA : END OF itab_zycit372.
DATA : BEGIN OF itab_zycit373 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit373.
DATA : END OF itab_zycit373.
DATA : BEGIN OF itab_zycit432 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit432.
DATA: status(1) TYPE c.
DATA : END OF itab_zycit432.
* << Fim da exclusão
DATA : BEGIN OF itab_zycit247_lt OCCURS 0.
INCLUDE STRUCTURE /pws/zycit247.
DATA: flag.
DATA : END OF itab_zycit247_lt.
DATA : BEGIN OF itab_zycit245_lt OCCURS 0.
INCLUDE STRUCTURE /pws/zycit245.
DATA : END OF itab_zycit245_lt.
DATA : BEGIN OF itab_zycit246_lt OCCURS 0.
INCLUDE STRUCTURE /pws/zycit246.
DATA : END OF itab_zycit246_lt.
* >> Início da exclusão:
DATA : BEGIN OF itab_zycit434 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit434.
DATA: mark .
DATA : END OF itab_zycit434.
* << Fim da exclusão
DATA: BEGIN OF itab_res_nf OCCURS 0,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/SAPMZYCI064