CE PLUS - Nota 000866
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: PLI
Data/Hora da Publicação: 13/02/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:04:59
Descrição da Nota: PROBLEMAS AO GERAR O SEQUENCIAL DE LI NA PLI.
Sintoma
Ao criar a PLI, clicamos no detalhe do item e quando navegamos de um item ao outro, o campo detalhe
não fica fixo, muda mesmo quando vamos ao último item. Quando clicamos no icone para ir ao próximo
item e é o último que estamos, muda o campo detalhe.
Solução
Inserida condição para verificar se esta em modo Batch input.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00866 Data: 13/02/2006 Hora: 13:25:55
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00866
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00022
Agrupamento : 00100
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
PROBLEMAS AO GERAR O SEQUENCIAL DE LI NA PLI.
----------------------------------------------------------------------------------------------------
Palavras Chave:
PLI - DETALHE - ITEM - CAMPO - FABRICANTE - SISCOMEX
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI020I01
REPS /PWS/MZYCI020TOP
REPS /PWS/MZYCI020X01
REPS /PWS/MZYCI020F01
PRG /PWS/SAPMZYCI020
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020I01
MODULE user_command_0100 INPUT.
* >> Início da inclusão: MODULE USER_COMMAND_0100
if sy-binpt is initial.
* << Fim da inclusão
CALL METHOD editor2->get_text_as_r3table IMPORTING
table = ittxt1[].
CLEAR: r_okcode, e_exec_okcode.
CALL METHOD cl_gui_cfw=>dispatch.
IF NOT r_okcode IS INITIAL.
okcode = r_okcode.
* >> Início da inclusão: MODULE USER_COMMAND_0100
ENDIF.
* << Fim da inclusão
ENDIF.
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI020'
'LI001'.
CLEAR itab_zyglt100 .
...
...
WHEN 'PRIM'.
PERFORM field_industrializacao.
v_ip = 1.
READ TABLE it_zycit079 INDEX v_ip.
MOVE-CORRESPONDING it_zycit079 TO /pws/zycie079a.
* >> Início da inclusão: MODULE USER_COMMAND_0200
PERFORM load_descri_suframa.
* << Fim da inclusão
CLEAR v_esp.
CLEAR rtexti.
REFRESH rtexti.
WHEN 'ANTE'.
PERFORM field_industrializacao.
IF v_ip > 1.
v_ip = v_ip - 1.
READ TABLE it_zycit079 INDEX v_ip.
MOVE-CORRESPONDING it_zycit079 TO /pws/zycie079a.
* >> Início da inclusão: MODULE USER_COMMAND_0200
PERFORM load_descri_suframa.
* << Fim da inclusão
CLEAR v_esp.
CLEAR rtexti.
REFRESH rtexti.
ENDIF.
WHEN 'PROX'.
...
...
DESCRIBE TABLE it_zycit079 LINES v_line.
IF v_ip < v_line.
v_ip = v_ip + 1.
READ TABLE it_zycit079 INDEX v_ip.
MOVE-CORRESPONDING it_zycit079 TO /pws/zycie079a.
* >> Início da inclusão: MODULE USER_COMMAND_0200
PERFORM load_descri_suframa.
* << Fim da inclusão
CLEAR v_esp.
CLEAR rtexti.
REFRESH rtexti.
ENDIF.
WHEN 'ULTI'.
PERFORM field_industrializacao.
DESCRIBE TABLE it_zycit079 LINES v_ip.
READ TABLE it_zycit079 INDEX v_ip.
MOVE-CORRESPONDING it_zycit079 TO /pws/zycie079a.
* >> Início da inclusão: MODULE USER_COMMAND_0200
PERFORM load_descri_suframa.
* << Fim da inclusão
CLEAR v_esp.
CLEAR rtexti.
REFRESH rtexti.
WHEN 'FORN'.
CALL SCREEN '0504'.
...
...
CALL METHOD editor2->set_readonly_mode EXPORTING
readonly_mode = top_editmode.
ENDIF.
PERFORM carrega_compl_salvo.
PERFORM lock_record.
* >> Início da inclusão: MODULE USER_COMMAND_0002
LOOP AT it_zycit079.
SELECT SINGLE * FROM /pws/zycit219
WHERE codigo EQ it_zycit079-codsufra AND
ncm EQ it_zycit079-ncm
AND destaque EQ it_zycit079-destaque.
IF sy-subrc EQ 0 AND /pws/zycit219-flagdest EQ 'X'.
MOVE: '999' TO it_anu2-codncm,
/pws/zycie078-nrseqli TO it_anu2-nrseqli,
it_zycit079-tpli TO it_anu2-tpli,
it_zycit079-ebeln TO it_anu2-ebeln,
it_zycit079-ebelp TO it_anu2-ebelp.
APPEND it_anu2.
ENDIF.
ENDLOOP.
SORT it_anu2 BY nrseqli tpli codncm ebeln ebelp.
DELETE ADJACENT DUPLICATES FROM it_anu2
COMPARING nrseqli tpli codncm ebeln ebelp.
* << Fim da inclusão
IF NOT /pws/zycie078-nrseqlisub IS INITIAL.
IF v_tcode EQ '/PWS/ZYCI020_G'.
v_tcode = '/PWS/ZYCI020_L'.
MESSAGE s015 WITH text-054.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020TOP
PROGRAM /pws/sapmzyci020 MESSAGE-ID /pws/zycim .
* >> Início da exclusão:
INCLUDE /pws/zygl_bot.
* << Fim da exclusão
* >> Início da inclusão:
INCLUDE : /pws/zygl_bot,
/pws/mzyci020x01.
* << Fim da inclusão
DATA: myevent_tab TYPE cntl_simple_events,
myevent TYPE cntl_simple_event.
* >> Início da exclusão:
TABLES: /pws/zycit001,
/pws/zycit078,
/pws/zycie078,
/pws/zycie078c,
/pws/zycit079,
/pws/zycie079,
/pws/zycie079a,
/pws/zycit080,
/pws/zycie080,
/pws/zycie080a,
/pws/zycie080b,
/pws/zycie080c,
/pws/zycit081,
/pws/zycie081,
/pws/zycit104,
/pws/zycit109,
/pws/zycie109,
/pws/zycit092,
/pws/zycie092,
/pws/zycie001,
/pws/zycit101,
/pws/zycit003,
/pws/zycie003,
/pws/zycie000,
/pws/zycet132,
/pws/zycbt007,
/pws/zycit031,
/pws/zycit181,
/pws/zycit177,
/pws/zycit100,
/pws/zycit085,
/pws/zycit136,
/pws/zycit006,
/pws/zycit172,
/pws/zycit093,
/pws/zycit094,
/pws/zycit191,
/pws/zycit197,
/pws/zycit200,
/pws/zycit000,
/pws/zycit229,
/pws/zycit257,
/pws/zycit244,
/pws/zycie244,
/pws/zycit245,
/pws/zycit274,
/pws/zycit218,
/pws/zycit219,
/pws/zycit242,
/pws/zycit338,
/pws/zycit431,
/pws/zycie376,
* << Fim da exclusão
* >> Início da inclusão:
TABLES:
* << Fim da inclusão
lfa1,
adrc,
t005,
t001,
t002,
...
...
tc_vin_lsi TYPE TABLEVIEW USING SCREEN 710,
tc_vincula TYPE TABLEVIEW USING SCREEN 800,
tc_vinculato TYPE TABLEVIEW USING SCREEN 810,
tc_doc TYPE TABLEVIEW USING SCREEN 003,
tc_log3 TYPE TABLEVIEW USING SCREEN 131.
* >> Início da exclusão:
DATA: BEGIN OF it_code OCCURS 15,
fcode LIKE rsmpe-func,
END OF it_code.
DATA: BEGIN OF itab_zyglt100 OCCURS 10.
INCLUDE STRUCTURE /pws/zyglt100.
DATA: END OF itab_zyglt100.
DATA: BEGIN OF it_zycit079 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit079.
DATA: uebto LIKE ekpo-uebto,
uebtk LIKE ekpo-uebtk,
noinitial,
mark.
DATA: END OF it_zycit079.
DATA: BEGIN OF it_zycit079_a OCCURS 0.
INCLUDE STRUCTURE /pws/zycit079.
DATA: uebto LIKE ekpo-uebto,
uebtk LIKE ekpo-uebtk,
noinitial,
mark.
DATA: END OF it_zycit079_a.
DATA: BEGIN OF it_zycit079_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycit079.
DATA: END OF it_zycit079_aux.
DATA: txt_item LIKE tline OCCURS 50 WITH HEADER LINE.
DATA: BEGIN OF it_zycit079_aux2 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit079.
DATA: END OF it_zycit079_aux2.
DATA: BEGIN OF it_zycit079_aux3 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit079.
DATA: END OF it_zycit079_aux3.
DATA: BEGIN OF it_zycit079_aux4 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit079.
DATA: END OF it_zycit079_aux4.
DATA: BEGIN OF it_zycit092 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit092.
DATA: END OF it_zycit092.
DATA: BEGIN OF itab_zycit376 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit376.
DATA: END OF itab_zycit376.
DATA: BEGIN OF it_zycit081 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit081.
DATA: END OF it_zycit081.
DATA: BEGIN OF it_zycit081r OCCURS 0.
INCLUDE STRUCTURE /pws/zycit081.
DATA: END OF it_zycit081r.
DATA: BEGIN OF it_zycit081_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycit081.
DATA: END OF it_zycit081_aux.
DATA: BEGIN OF it_zycit081_ncm OCCURS 0.
INCLUDE STRUCTURE /pws/zycit081.
DATA: END OF it_zycit081_ncm.
DATA BEGIN OF it_zycit080 OCCURS 0.
DATA: lifnr LIKE /pws/zycit080-lifnr,
nrforn LIKE /pws/zycit080-nrforn.
DATA END OF it_zycit080.
DATA: BEGIN OF it_zycit338 OCCURS 10.
INCLUDE STRUCTURE /pws/zycit338.
DATA: END OF it_zycit338.
DATA: BEGIN OF it_zycit219 OCCURS 10.
INCLUDE STRUCTURE /pws/zycit219.
DATA: END OF it_zycit219.
DATA: BEGIN OF it_anu2 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit109.
DATA: END OF it_anu2.
DATA: BEGIN OF it_anu2ncm OCCURS 0.
INCLUDE STRUCTURE /pws/zycit109.
DATA: END OF it_anu2ncm.
DATA: BEGIN OF it_anu2_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycit109.
DATA: END OF it_anu2_aux.
DATA: BEGIN OF it_anu2r OCCURS 0.
INCLUDE STRUCTURE /pws/zycit109.
DATA: END OF it_anu2r.
DATA: BEGIN OF it_zycit287 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit287 .
DATA: END OF it_zycit287 .
DATA: BEGIN OF it_zycit287_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycit287.
DATA: valor LIKE /pws/zycit003-netpr.
DATA: END OF it_zycit287_aux.
DATA: BEGIN OF itab_bstyp OCCURS 1,
sign(1) TYPE c,
option(2) TYPE c,
low LIKE ekko-bstyp,
high LIKE ekko-bstyp,
END OF itab_bstyp.
DATA: BEGIN OF itab_itens OCCURS 0,
bukrs LIKE ekko-bukrs,
waers LIKE ekko-waers,
lifnr LIKE ekko-lifnr,
aedat LIKE ekko-aedat,
inco1 LIKE ekko-inco1,
ebeln LIKE ekko-ebeln,
ebelp LIKE ekpo-ebelp,
matnr LIKE ekpo-matnr,
werks LIKE ekpo-werks,
bednr LIKE ekpo-bednr,
menge LIKE ekpo-menge,
ktmng LIKE ekpo-ktmng,
bstyp LIKE ekpo-bstyp,
meins LIKE ekpo-meins,
ntgew LIKE ekpo-ntgew,
gewei LIKE ekpo-gewei,
netpr LIKE ekpo-netpr,
txz01 LIKE ekpo-txz01,
uebto LIKE ekpo-uebto,
uebtk LIKE ekpo-uebtk,
j_1bnbm LIKE ekpo-j_1bnbm,
END OF itab_itens.
DATA: BEGIN OF itab_divisao OCCURS 0,
ebeln LIKE ekko-ebeln,
ebelp LIKE ekpo-ebelp,
gsber LIKE ekkn-gsber,
END OF itab_divisao.
DATA: BEGIN OF itab_divisao2 OCCURS 0,
ebeln LIKE ekko-ebeln,
ebelp LIKE ekpo-ebelp,
gsber LIKE ekkn-gsber,
END OF itab_divisao2.
DATA: BEGIN OF itab_tpmat OCCURS 0,
ebeln LIKE ekko-ebeln,
ebelp LIKE ekpo-ebelp,
mtart LIKE mara-mtart,
END OF itab_tpmat.
DATA: BEGIN OF itab_itens_aux OCCURS 50,
ebeln LIKE ekko-ebeln,
lifnr LIKE ekko-lifnr,
inco1 LIKE ekko-inco1,
ebelp LIKE ekpo-ebelp,
txz01 LIKE ekpo-txz01,
menge LIKE ekpo-menge,
ktmng LIKE ekpo-ktmng,
bstyp LIKE ekpo-bstyp,
meins LIKE ekpo-meins,
ntgew LIKE ekpo-ntgew,
gewei LIKE ekpo-gewei,
netpr LIKE ekpo-netpr,
bednr LIKE ekpo-bednr,
uebto LIKE ekpo-uebto,
uebtk LIKE ekpo-uebtk,
loekz LIKE ekpo-loekz,
elikz LIKE ekpo-elikz,
j_1bnbm LIKE ekpo-j_1bnbm,
matnr LIKE ekpo-matnr,
spras LIKE ekko-spras,
END OF itab_itens_aux .
DATA: itab_itens_aux2 LIKE itab_itens_aux OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF itab_itens_auxs OCCURS 0,
kschl LIKE a016-kschl,
ebeln LIKE ekpo-ebeln,
ebelp LIKE ekpo-ebelp,
END OF itab_itens_auxs.
DATA: BEGIN OF itab_t006 OCCURS 0,
msehi LIKE t006-msehi,
zaehl LIKE t006-zaehl,
nennr LIKE t006-nennr,
END OF itab_t006.
DATA: BEGIN OF itab_komk OCCURS 0.
INCLUDE STRUCTURE komk.
DATA: END OF itab_komk.
DATA: BEGIN OF itab_komk_aux OCCURS 0.
INCLUDE STRUCTURE komk.
DATA: ebeln LIKE ekko-ebeln.
DATA: END OF itab_komk_aux.
DATA: BEGIN OF itab_komv OCCURS 0.
INCLUDE STRUCTURE komv.
DATA: ebeln LIKE ekko-ebeln.
DATA: END OF itab_komv.
DATA: BEGIN OF itab_komp OCCURS 0.
INCLUDE STRUCTURE konp.
DATA: END OF itab_komp.
DATA: BEGIN OF itab_a016 OCCURS 0.
INCLUDE STRUCTURE a016.
DATA: END OF itab_a016.
DATA: BEGIN OF itab_konp OCCURS 0.
INCLUDE STRUCTURE konp.
DATA: ebeln LIKE ekpo-ebeln,
ebelp LIKE ekpo-ebelp.
DATA: END OF itab_konp.
DATA: BEGIN OF itab_zycit030 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit030.
DATA: END OF itab_zycit030.
DATA: BEGIN OF itab_zycit030_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycit030.
DATA: valor LIKE /pws/zycit003-netpr.
DATA: END OF itab_zycit030_aux.
DATA: BEGIN OF it_ekko OCCURS 10,
ebeln LIKE ekko-ebeln,
lifnr LIKE ekko-lifnr,
END OF it_ekko.
DATA: BEGIN OF it_ekpo OCCURS 20.
INCLUDE STRUCTURE ekpo.
DATA: END OF it_ekpo.
DATA: BEGIN OF it_zycit003 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit003.
DATA: END OF it_zycit003.
DATA: BEGIN OF it_zycit003_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycit003.
DATA: END OF it_zycit003_aux.
DATA: BEGIN OF it_zycit003_aux2 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit003.
DATA: END OF it_zycit003_aux2.
DATA: BEGIN OF it_zycit100 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit100.
DATA: END OF it_zycit100.
DATA: BEGIN OF it_adicao OCCURS 0,
adicao LIKE /pws/zycit100-adicao ,
nrseqdi LIKE /pws/zycit100-nrseqdi,
ebeln LIKE /pws/zycit100-ebeln ,
ebelp LIKE /pws/zycit100-ebelp ,
descr LIKE /pws/zycit003-descr ,
nrseq LIKE /pws/zycit003-nrseq ,
marc ,
END OF it_adicao.
DATA: BEGIN OF it_adicao_aux OCCURS 0,
adicao LIKE /pws/zycit100-adicao ,
nrseqdi LIKE /pws/zycit100-nrseqdi,
ebeln LIKE /pws/zycit100-ebeln ,
ebelp LIKE /pws/zycit100-ebelp ,
descr LIKE /pws/zycit003-descr ,
nrseq LIKE /pws/zycit003-nrseq ,
END OF it_adicao_aux.
DATA: e_subrc LIKE sy-subrc ,
e_exec_okcode.
DATA: BEGIN OF it_vinculato OCCURS 0 ,
ebeln LIKE /pws/zycit079-ebeln ,
ebelp LIKE /pws/zycit079-ebelp ,
nrseqd LIKE /pws/zycit244-nrseqd ,
nratoc LIKE /pws/zycit244-nratoc ,
dtatoc LIKE /pws/zycit244-dtatoc ,
modalidade LIKE /pws/zycit244-modalidade ,
tipo LIKE /pws/zycit244-tipo ,
sdofob_ac LIKE /pws/zycit244-s_realfob ,
vlfob_li LIKE /pws/zycit078-vltot ,
descmodal_ac LIKE /pws/zycit244-desc_modal ,
desctipo_ac LIKE /pws/zycit244-desctipo_ac,
sdocompt LIKE /pws/zycit245-sdocomp_t ,
s_matqtd LIKE /pws/zycit244-s_matqtd ,
qtd_iten LIKE /pws/zycit079-qtd_iten ,
marc ,
icon LIKE icons-text ,
END OF it_vinculato .
DATA: BEGIN OF it_vincula OCCURS 0,
nrseq LIKE /pws/zycit001-nrseq ,
ebeln LIKE /pws/zycit079-ebeln ,
ebelp LIKE /pws/zycit079-ebelp ,
descr LIKE /pws/zycit079-descr ,
icon LIKE icons-text ,
marc ,
END OF it_vincula .
DATA: BEGIN OF it_vincula_aux OCCURS 0,
nrseq LIKE /pws/zycit001-nrseq ,
ebeln LIKE /pws/zycit079-ebeln ,
ebelp LIKE /pws/zycit079-ebelp ,
descr LIKE /pws/zycit079-descr ,
icon LIKE icons-text ,
marc ,
END OF it_vincula_aux .
DATA: BEGIN OF it_log OCCURS 0 ,
nrseq LIKE /pws/zycit001-nrseq,
ebeln LIKE /pws/zycit079-ebeln,
ebelp LIKE /pws/zycit079-ebelp,
descr(100) ,
END OF it_log .
DATA BEGIN OF it_zycit104 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit104 .
DATA END OF it_zycit104 .
DATA: BEGIN OF it_vinlsi OCCURS 0,
nrseqli LIKE /pws/zycit079-nrseqli ,
ebeln LIKE /pws/zycit079-ebeln ,
ebelp LIKE /pws/zycit079-ebelp ,
descr LIKE /pws/zycit079-descr ,
marc ,
END OF it_vinlsi .
DATA: BEGIN OF it_log_erro3 OCCURS 0.
DATA: ltext(130) TYPE c.
DATA: END OF it_log_erro3.
DATA: BEGIN OF it_zycit322 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit322.
DATA: END OF it_zycit322.
DATA: BEGIN OF it_lfa1 OCCURS 10,
lifnr LIKE lfa1-lifnr,
adrnr LIKE lfa1-adrnr,
land1 LIKE lfa1-land1,
region LIKE lfa1-regio,
END OF it_lfa1.
DATA: BEGIN OF it_adrc OCCURS 10,
addrnumber LIKE adrc-addrnumber,
name1 LIKE adrc-name1,
country LIKE adrc-country,
street LIKE adrc-street,
house_num1 LIKE adrc-house_num1,
city1 LIKE adrc-city1,
city2 LIKE adrc-city2,
region LIKE adrc-region,
END OF it_adrc.
DATA: itab_tline LIKE tline OCCURS 10 WITH HEADER LINE,
itab_tline2 LIKE tline OCCURS 10 WITH HEADER LINE,
itab_tline3 LIKE tline OCCURS 10 WITH HEADER LINE,
itab_tline4 LIKE tline OCCURS 10 WITH HEADER LINE,
rtextesp LIKE tline OCCURS 0 WITH HEADER LINE,
rtexti LIKE tline OCCURS 0 WITH HEADER LINE,
rtextcompl LIKE tline OCCURS 0 WITH HEADER LINE,
itab_stxl LIKE stxl OCCURS 0 WITH HEADER LINE,
itab_makt LIKE makt OCCURS 0 WITH HEADER LINE,
xtheadi LIKE thead.
DATA: BEGIN OF itab_zycit104 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit104.
DATA: END OF itab_zycit104.
DATA: BEGIN OF itab_zycit257 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit257.
DATA: END OF itab_zycit257.
DATA: editor TYPE REF TO cl_gui_textedit ,
editcontainer TYPE REF TO cl_gui_custom_container ,
editor2 TYPE REF TO cl_gui_textedit ,
editcontainer2 TYPE REF TO cl_gui_custom_container,
menu_static TYPE REF TO cl_ctmenu ,
vrepid LIKE sy-repid ,
top_editmode TYPE i .
DATA: BEGIN OF src OCCURS 500,
line(100) ,
END OF src .
DATA: BEGIN OF ittxt1 OCCURS 50,
line(66) ,
END OF ittxt1 .
DATA: ittxt2 LIKE ittxt1 OCCURS 0 WITH HEADER LINE.
DATA BEGIN OF it_zycit114 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit114.
DATA END OF it_zycit114.
DATA BEGIN OF it_zycit198 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit198.
DATA END OF it_zycit198.
DATA BEGIN OF it_zycit199 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit199.
DATA END OF it_zycit199.
DATA BEGIN OF it_zycit203 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit203.
DATA END OF it_zycit203.
DATA BEGIN OF it_zycit203_del OCCURS 0.
INCLUDE STRUCTURE /pws/zycit203.
DATA END OF it_zycit203_del.
DATA: itab_zycit229 LIKE /pws/zycit229 OCCURS 0 WITH HEADER LINE.
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_zycit246 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit246.
DATA END OF it_zycit246.
DATA BEGIN OF it_zycit191 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit191.
DATA END OF it_zycit191.
DATA BEGIN OF it_zycit177 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit177.
DATA END OF it_zycit177.
DATA: wa_report_cliente LIKE /pws/zycet079.
DATA: wa_report_cliente2 LIKE /pws/zycet079.
DATA: BEGIN OF itab_report_cliente OCCURS 20.
INCLUDE STRUCTURE /pws/zycet067.
DATA: v_mark(1) TYPE c.
DATA: END OF itab_report_cliente.
DATA: BEGIN OF itab_report_cliente2 OCCURS 20.
INCLUDE STRUCTURE /pws/zycet067.
DATA: v_mark(1) TYPE c.
DATA: END OF itab_report_cliente2.
DATA: BEGIN OF it_zycit172 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit172.
DATA: END OF it_zycit172.
DATA: BEGIN OF itab_zycit030_aux2 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit030.
DATA: END OF itab_zycit030_aux2.
DATA: BEGIN OF it_zycit079_ncm OCCURS 0.
INCLUDE STRUCTURE /pws/zycit079.
DATA: uebto LIKE ekpo-uebto,
uebtk LIKE ekpo-uebtk,
noinitial,
mark.
DATA: END OF it_zycit079_ncm.
DATA: BEGIN OF it_zycit079_ncm2 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit079.
DATA: uebto LIKE ekpo-uebto,
uebtk LIKE ekpo-uebtk,
noinitial,
mark.
DATA: END OF it_zycit079_ncm2.
DATA: BEGIN OF it_itensli_alt OCCURS 0.
INCLUDE STRUCTURE /pws/zycit079.
DATA: uebto LIKE ekpo-uebto,
uebtk LIKE ekpo-uebtk,
noinitial,
mark.
DATA: END OF it_itensli_alt.
DATA: BEGIN OF it_zycit079_del OCCURS 0.
INCLUDE STRUCTURE /pws/zycit079.
DATA: uebto LIKE ekpo-uebto,
uebtk LIKE ekpo-uebtk,
noinitial,
mark.
DATA: END OF it_zycit079_del.
DATA BEGIN OF itab_zycit338 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit338.
DATA END OF itab_zycit338.
DATA: BEGIN OF it_precritica OCCURS 0,
campo(60) TYPE c ,
icon(5) TYPE c ,
status(50) TYPE c ,
END OF it_precritica .
DATA: itab_zycit263 LIKE /pws/zycit263 OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF itab_steuc OCCURS 0,
steuc LIKE /pws/zycit079-steuc1,
END OF itab_steuc.
* << Fim da exclusão
DATA: wa_cols TYPE cxtab_column.
DATA: wa_zycit079 LIKE it_zycit079.
DATA wa_zycit078 LIKE /pws/zycie078.
DATA wa_zycit078_aux2 LIKE /pws/zycie078.
DATA : wa_zycit079a LIKE /pws/zycie079a,
...
----------------------------------------------------------------------------------------------------
Criado include em REPS /PWS/MZYCI020X01
*----------------------------------------------------------------------*
* INCLUDE /PWS/MZYCI020X01 *
*----------------------------------------------------------------------*
*ch 288909 inicio
tables:
/pws/zycit001,
/pws/zycit078,
/pws/zycie078,
/pws/zycie078c,
/pws/zycit079,
/pws/zycie079,
/pws/zycie079a,
/pws/zycit080,
/pws/zycie080,
/pws/zycie080a,
/pws/zycie080b,
/pws/zycie080c,
/pws/zycit081,
/pws/zycie081,
/pws/zycit104,
/pws/zycit109,
/pws/zycie109,
/pws/zycit092,
/pws/zycie092,
/pws/zycie001,
/pws/zycit101,
/pws/zycit003,
/pws/zycie003,
/pws/zycie000,
/pws/zycet132,
/pws/zycbt007,
/pws/zycit031,
* /pws/zycee181,
/pws/zycit181,
/pws/zycit177,
/pws/zycit100,
/pws/zycit085,
/pws/zycit136,
/pws/zycit006,
/pws/zycit172,
/pws/zycit093,
/pws/zycit094,
/pws/zycit191,
/pws/zycit197,
/pws/zycit200,
/pws/zycit000,
/pws/zycit229,
/pws/zycit257,
/pws/zycit244,
/pws/zycie244,
/pws/zycit245,
/pws/zycit274,
/pws/zycit218,
/pws/zycit219,
/pws/zycit242,
/pws/zycit338,
/pws/zycit431,
/pws/zycie376.
* Tabela para usar o comando excluding no pf-status.
DATA: BEGIN OF it_code OCCURS 15,
fcode LIKE rsmpe-func,
END OF it_code.
DATA: BEGIN OF itab_zyglt100 OCCURS 10.
INCLUDE STRUCTURE /pws/zyglt100.
DATA: END OF itab_zyglt100.
* Tabela da table control tc_item tela 105
DATA: BEGIN OF it_zycit079 OCCURS 0.
include structure /pws/zycit079.
DATA: uebto LIKE ekpo-uebto, "Tolerancia
uebtk LIKE ekpo-uebtk, "Ilimitada
noinitial, "Flag p/ não inicial.
mark. "Marca reg. na TC
DATA: END OF it_zycit079.
DATA: BEGIN OF it_zycit079_a OCCURS 0.
INCLUDE STRUCTURE /pws/zycit079.
DATA: uebto LIKE ekpo-uebto, "Tolerancia
uebtk LIKE ekpo-uebtk, "Ilimitada
noinitial, "Flag p/ não inicial.
mark. "Marca reg. na TC
DATA: END OF it_zycit079_a.
* Tabela aux. para atualização da tc
DATA: BEGIN OF it_zycit079_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycit079.
DATA: END OF it_zycit079_aux.
* Texto alternativo do pedido
DATA: txt_item LIKE tline OCCURS 50 WITH HEADER LINE.
* Tabela aux. para atualização da tc
DATA: BEGIN OF it_zycit079_aux2 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit079.
DATA: END OF it_zycit079_aux2.
* Tabela aux para uso na vinculação.
DATA: BEGIN OF it_zycit079_aux3 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit079.
DATA: END OF it_zycit079_aux3.
* Tabela aux para uso na vinculação.
DATA: BEGIN OF it_zycit079_aux4 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit079.
DATA: END OF it_zycit079_aux4.
* Tabela de saldo de itens da LI
DATA: BEGIN OF it_zycit092 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit092.
DATA: END OF it_zycit092.
* Tabela de AC's vinculados
DATA: BEGIN OF itab_zycit376 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit376.
DATA: END OF itab_zycit376.
* Tabela da table control tc_anu tela 110
DATA: BEGIN OF it_zycit081 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit081.
DATA: END OF it_zycit081.
DATA: BEGIN OF it_zycit081r OCCURS 0.
INCLUDE STRUCTURE /pws/zycit081.
DATA: END OF it_zycit081r.
* Tabela aux da tc_anu
DATA: BEGIN OF it_zycit081_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycit081.
DATA: END OF it_zycit081_aux.
DATA: BEGIN OF it_zycit081_ncm OCCURS 0.
INCLUDE STRUCTURE /pws/zycit081.
DATA: END OF it_zycit081_ncm.
* Tabela de Fornecedor.
DATA BEGIN OF it_zycit080 OCCURS 0.
* include structure /pws/zycit080.
DATA: lifnr LIKE /pws/zycit080-lifnr,
nrforn LIKE /pws/zycit080-nrforn.
DATA END OF it_zycit080.
DATA: BEGIN OF it_zycit338 OCCURS 10.
INCLUDE STRUCTURE /pws/zycit338.
DATA: END OF it_zycit338.
DATA: BEGIN OF it_zycit219 OCCURS 10.
INCLUDE STRUCTURE /pws/zycit219.
DATA: END OF it_zycit219.
* Tabela da table control tc_anu2 tela 110
DATA: BEGIN OF it_anu2 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit109.
DATA: END OF it_anu2.
DATA: BEGIN OF it_anu2ncm OCCURS 0.
INCLUDE STRUCTURE /pws/zycit109.
DATA: END OF it_anu2ncm.
* Tabela aux da tc_anu2
DATA: BEGIN OF it_anu2_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycit109.
DATA: END OF it_anu2_aux.
* Tabela interna do registro corrente
DATA: BEGIN OF it_anu2r OCCURS 0.
INCLUDE STRUCTURE /pws/zycit109.
DATA: END OF it_anu2r.
* Tabela para montar o valor fob dos pedidos
DATA: BEGIN OF it_zycit287 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit287 .
DATA: END OF it_zycit287 .
DATA: BEGIN OF it_zycit287_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycit287.
DATA: valor LIKE /pws/zycit003-netpr. "Valor da condition
DATA: END OF it_zycit287_aux.
* Tabelas internas de select-options utilizadas
*para seleção dospedidos
DATA: BEGIN OF itab_bstyp OCCURS 1,
sign(1) TYPE c,
option(2) TYPE c,
low LIKE ekko-bstyp,
high LIKE ekko-bstyp,
END OF itab_bstyp.
DATA: BEGIN OF itab_itens OCCURS 0,
"Guarda itens de pedidos
bukrs LIKE ekko-bukrs,
waers LIKE ekko-waers,
lifnr LIKE ekko-lifnr,
aedat LIKE ekko-aedat,
inco1 LIKE ekko-inco1,
ebeln LIKE ekko-ebeln,
ebelp LIKE ekpo-ebelp,
matnr LIKE ekpo-matnr,
werks LIKE ekpo-werks,
bednr LIKE ekpo-bednr,
menge LIKE ekpo-menge,
ktmng LIKE ekpo-ktmng,
bstyp LIKE ekpo-bstyp,
meins LIKE ekpo-meins,
ntgew LIKE ekpo-ntgew,
gewei LIKE ekpo-gewei,
netpr LIKE ekpo-netpr,
txz01 LIKE ekpo-txz01,
uebto LIKE ekpo-uebto,
uebtk LIKE ekpo-uebtk,
j_1bnbm LIKE ekpo-j_1bnbm,
END OF itab_itens.
DATA: BEGIN OF itab_divisao OCCURS 0,
ebeln LIKE ekko-ebeln,
ebelp LIKE ekpo-ebelp,
gsber LIKE ekkn-gsber,
END OF itab_divisao.
DATA: BEGIN OF itab_divisao2 OCCURS 0,
"Divisões por setor de atividade
ebeln LIKE ekko-ebeln,
ebelp LIKE ekpo-ebelp,
gsber LIKE ekkn-gsber,
END OF itab_divisao2.
DATA: BEGIN OF itab_tpmat OCCURS 0, "Tipo de material
ebeln LIKE ekko-ebeln,
ebelp LIKE ekpo-ebelp,
mtart LIKE mara-mtart,
END OF itab_tpmat.
DATA: BEGIN OF itab_itens_aux OCCURS 50, "Guarda itens de pedidos
ebeln LIKE ekko-ebeln, "Para checar se houve
lifnr LIKE ekko-lifnr,
inco1 LIKE ekko-inco1,
ebelp LIKE ekpo-ebelp, "alteração relevantes
txz01 LIKE ekpo-txz01, "no pedido.
menge LIKE ekpo-menge,
ktmng LIKE ekpo-ktmng,
bstyp LIKE ekpo-bstyp, "Tipo do pedido
meins LIKE ekpo-meins,
ntgew LIKE ekpo-ntgew,
gewei LIKE ekpo-gewei,
netpr LIKE ekpo-netpr,
bednr LIKE ekpo-bednr,
uebto LIKE ekpo-uebto, "Tolerância
uebtk LIKE ekpo-uebtk, "Ilimitada
loekz LIKE ekpo-loekz, "Eliminado
elikz LIKE ekpo-elikz, "Remessa Final
j_1bnbm LIKE ekpo-j_1bnbm,
matnr LIKE ekpo-matnr,
spras LIKE ekko-spras,
END OF itab_itens_aux .
DATA: itab_itens_aux2 LIKE itab_itens_aux OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF itab_itens_auxs OCCURS 0,
kschl LIKE a016-kschl,
ebeln LIKE ekpo-ebeln,
ebelp LIKE ekpo-ebelp,
END OF itab_itens_auxs.
DATA: BEGIN OF itab_t006 OCCURS 0,
msehi LIKE t006-msehi,
zaehl LIKE t006-zaehl,
nennr LIKE t006-nennr,
END OF itab_t006.
DATA: BEGIN OF itab_komk OCCURS 0. "Envia pedidos p/ função
INCLUDE STRUCTURE komk.
DATA: END OF itab_komk.
DATA: BEGIN OF itab_komk_aux OCCURS 0.
INCLUDE STRUCTURE komk. "Envia pedidos p/ função
DATA: ebeln LIKE ekko-ebeln. "para obtenção preço codition
DATA: END OF itab_komk_aux.
DATA: BEGIN OF itab_komv OCCURS 0. "Recebe retorno da função
INCLUDE STRUCTURE komv. "os precos das conditions
DATA: ebeln LIKE ekko-ebeln.
DATA: END OF itab_komv.
DATA: BEGIN OF itab_komp OCCURS 0. "Recebe retorno da função
INCLUDE STRUCTURE konp. "os precos das conditions
DATA: END OF itab_komp.
DATA: BEGIN OF itab_a016 OCCURS 0.
INCLUDE STRUCTURE a016.
DATA: END OF itab_a016.
DATA: BEGIN OF itab_konp OCCURS 0.
INCLUDE STRUCTURE konp.
DATA: ebeln LIKE ekpo-ebeln,
ebelp LIKE ekpo-ebelp.
DATA: END OF itab_konp.
DATA: BEGIN OF itab_zycit030 OCCURS 0. "Par. de Despesas e Custos
INCLUDE STRUCTURE /pws/zycit030.
DATA: END OF itab_zycit030.
DATA: BEGIN OF itab_zycit030_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycit030.
DATA: valor LIKE /pws/zycit003-netpr. "Valor da condition
DATA: END OF itab_zycit030_aux.
DATA: BEGIN OF it_ekko OCCURS 10,
ebeln LIKE ekko-ebeln,
lifnr LIKE ekko-lifnr,
END OF it_ekko.
DATA: BEGIN OF it_ekpo OCCURS 20.
INCLUDE STRUCTURE ekpo.
DATA: END OF it_ekpo.
DATA: BEGIN OF it_zycit003 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit003.
DATA: END OF it_zycit003.
DATA: BEGIN OF it_zycit003_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycit003.
DATA: END OF it_zycit003_aux.
DATA: BEGIN OF it_zycit003_aux2 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit003.
DATA: END OF it_zycit003_aux2.
* Tabela de Adição da DI
DATA: BEGIN OF it_zycit100 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit100.
DATA: END OF it_zycit100.
* Tabela para escolha da Adição a ser vinculada
DATA: BEGIN OF it_adicao OCCURS 0,
adicao LIKE /pws/zycit100-adicao ,
nrseqdi LIKE /pws/zycit100-nrseqdi,
ebeln LIKE /pws/zycit100-ebeln ,
ebelp LIKE /pws/zycit100-ebelp ,
descr LIKE /pws/zycit003-descr ,
nrseq LIKE /pws/zycit003-nrseq ,
marc ,
END OF it_adicao.
* Tabela de itens e pedidos selecionados na adicao da DI
DATA: BEGIN OF it_adicao_aux OCCURS 0,
adicao LIKE /pws/zycit100-adicao ,
nrseqdi LIKE /pws/zycit100-nrseqdi,
ebeln LIKE /pws/zycit100-ebeln ,
ebelp LIKE /pws/zycit100-ebelp ,
descr LIKE /pws/zycit003-descr ,
nrseq LIKE /pws/zycit003-nrseq ,
END OF it_adicao_aux.
DATA: e_subrc LIKE sy-subrc ,
e_exec_okcode.
* Tabela de vinculação do Ato Consessório
DATA: BEGIN OF it_vinculato OCCURS 0 ,
ebeln LIKE /pws/zycit079-ebeln ,
ebelp LIKE /pws/zycit079-ebelp ,
nrseqd LIKE /pws/zycit244-nrseqd ,
nratoc LIKE /pws/zycit244-nratoc ,
dtatoc LIKE /pws/zycit244-dtatoc ,
modalidade LIKE /pws/zycit244-modalidade ,
tipo LIKE /pws/zycit244-tipo ,
*** PWS170562 - Início
sdofob_ac LIKE /pws/zycit244-s_realfob ,
vlfob_li LIKE /pws/zycit078-vltot ,
descmodal_ac LIKE /pws/zycit244-desc_modal ,
desctipo_ac LIKE /pws/zycit244-desctipo_ac,
*** PWS170562 - Fim
sdocompt LIKE /pws/zycit245-sdocomp_t ,
s_matqtd LIKE /pws/zycit244-s_matqtd ,
qtd_iten LIKE /pws/zycit079-qtd_iten ,
marc ,
icon LIKE icons-text ,
END OF it_vinculato .
* Tabela de vinculação do Embarque
DATA: BEGIN OF it_vincula OCCURS 0,
nrseq LIKE /pws/zycit001-nrseq ,
ebeln LIKE /pws/zycit079-ebeln ,
ebelp LIKE /pws/zycit079-ebelp ,
descr LIKE /pws/zycit079-descr ,
icon LIKE icons-text ,
marc ,
END OF it_vincula .
* Tabela de vinculação do Embarque
DATA: BEGIN OF it_vincula_aux OCCURS 0,
nrseq LIKE /pws/zycit001-nrseq ,
ebeln LIKE /pws/zycit079-ebeln ,
ebelp LIKE /pws/zycit079-ebelp ,
descr LIKE /pws/zycit079-descr ,
icon LIKE icons-text ,
marc ,
END OF it_vincula_aux .
* Tabela de log da Vinculação do Embarque
DATA: BEGIN OF it_log OCCURS 0 ,
nrseq LIKE /pws/zycit001-nrseq,
ebeln LIKE /pws/zycit079-ebeln,
ebelp LIKE /pws/zycit079-ebelp,
descr(100) ,
END OF it_log .
DATA BEGIN OF it_zycit104 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit104 .
DATA END OF it_zycit104 .
* Tabela Vinculação LSI(Itens Embarque)
DATA: BEGIN OF it_vinlsi OCCURS 0,
nrseqli LIKE /pws/zycit079-nrseqli ,
ebeln LIKE /pws/zycit079-ebeln ,
ebelp LIKE /pws/zycit079-ebelp ,
descr LIKE /pws/zycit079-descr ,
marc ,
END OF it_vinlsi .
* Controla a exibição do log de erro.
DATA: BEGIN OF it_log_erro3 OCCURS 0.
DATA: ltext(130) TYPE c.
DATA: END OF it_log_erro3.
* Parâmetros de Materiais p/ DrawBack Genérico.
DATA: BEGIN OF it_zycit322 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit322.
DATA: END OF it_zycit322.
* Read Text
* Tabelas com dados do fornecedor
DATA: BEGIN OF it_lfa1 OCCURS 10,
lifnr LIKE lfa1-lifnr,
adrnr LIKE lfa1-adrnr,
land1 LIKE lfa1-land1,
region LIKE lfa1-regio,
END OF it_lfa1.
DATA: BEGIN OF it_adrc OCCURS 10,
addrnumber LIKE adrc-addrnumber,
name1 LIKE adrc-name1,
country LIKE adrc-country,
street LIKE adrc-street,
house_num1 LIKE adrc-house_num1,
city1 LIKE adrc-city1,
city2 LIKE adrc-city2,
region LIKE adrc-region,
END OF it_adrc.
DATA: itab_tline LIKE tline OCCURS 10 WITH HEADER LINE,
itab_tline2 LIKE tline OCCURS 10 WITH HEADER LINE,
itab_tline3 LIKE tline OCCURS 10 WITH HEADER LINE,
itab_tline4 LIKE tline OCCURS 10 WITH HEADER LINE, " Pré-critica
rtextesp LIKE tline OCCURS 0 WITH HEADER LINE,
rtexti LIKE tline OCCURS 0 WITH HEADER LINE,
rtextcompl LIKE tline OCCURS 0 WITH HEADER LINE,
itab_stxl LIKE stxl OCCURS 0 WITH HEADER LINE,
itab_makt LIKE makt OCCURS 0 WITH HEADER LINE,
xtheadi LIKE thead.
DATA: BEGIN OF itab_zycit104 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit104.
DATA: END OF itab_zycit104.
DATA: BEGIN OF itab_zycit257 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit257.
DATA: END OF itab_zycit257.
* Text Editor
DATA: editor TYPE REF TO cl_gui_textedit ,
editcontainer TYPE REF TO cl_gui_custom_container ,
editor2 TYPE REF TO cl_gui_textedit ,
editcontainer2 TYPE REF TO cl_gui_custom_container,
menu_static TYPE REF TO cl_ctmenu ,
vrepid LIKE sy-repid ,
top_editmode TYPE i .
DATA: BEGIN OF src OCCURS 500,
line(100) ,
END OF src .
DATA: BEGIN OF ittxt1 OCCURS 50,
line(66) ,
END OF ittxt1 .
DATA: ittxt2 LIKE ittxt1 OCCURS 0 WITH HEADER LINE.
DATA BEGIN OF it_zycit114 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit114.
DATA END OF it_zycit114.
* tabelas pexpam.
DATA BEGIN OF it_zycit198 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit198.
DATA END OF it_zycit198.
DATA BEGIN OF it_zycit199 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit199.
DATA END OF it_zycit199.
DATA BEGIN OF it_zycit203 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit203.
DATA END OF it_zycit203.
DATA BEGIN OF it_zycit203_del OCCURS 0.
INCLUDE STRUCTURE /pws/zycit203.
DATA END OF it_zycit203_del.
DATA: itab_zycit229 LIKE /pws/zycit229 OCCURS 0 WITH HEADER LINE.
* Tabela Drawback
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_zycit246 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit246.
DATA END OF it_zycit246.
* Tabela de Classificação (NCM e TSP)
DATA BEGIN OF it_zycit191 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit191.
DATA END OF it_zycit191.
* Tabela de Cod. Fun. Leg.
DATA BEGIN OF it_zycit177 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit177.
DATA END OF it_zycit177.
* Tabela Interna para seleção de documentos
DATA: wa_report_cliente LIKE /pws/zycet079.
DATA: wa_report_cliente2 LIKE /pws/zycet079.
DATA: BEGIN OF itab_report_cliente OCCURS 20.
INCLUDE STRUCTURE /pws/zycet067.
DATA: v_mark(1) TYPE c. " Se a linha da TC está marcada ou não
DATA: END OF itab_report_cliente.
DATA: BEGIN OF itab_report_cliente2 OCCURS 20.
INCLUDE STRUCTURE /pws/zycet067.
DATA: v_mark(1) TYPE c. " Se a linha da TC está marcada ou não
DATA: END OF itab_report_cliente2.
* Tabela Interna de Parametros de Agência SECEX
DATA: BEGIN OF it_zycit172 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit172.
DATA: END OF it_zycit172.
*tabela auxiliar para calculo do valor fob da LI
DATA: BEGIN OF itab_zycit030_aux2 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit030.
DATA: END OF itab_zycit030_aux2.
* Tabela itens PLI.
DATA: BEGIN OF it_zycit079_ncm OCCURS 0.
INCLUDE STRUCTURE /pws/zycit079.
DATA: uebto LIKE ekpo-uebto, "Tolerancia
uebtk LIKE ekpo-uebtk, "Ilimitada
noinitial, "Flag p/ não inicial.
mark. "Marca reg. na TC
DATA: END OF it_zycit079_ncm.
DATA: BEGIN OF it_zycit079_ncm2 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit079.
DATA: uebto LIKE ekpo-uebto, "Tolerancia
uebtk LIKE ekpo-uebtk, "Ilimitada
noinitial, "Flag p/ não inicial.
mark. "Marca reg. na TC
DATA: END OF it_zycit079_ncm2.
DATA: BEGIN OF it_itensli_alt OCCURS 0.
INCLUDE STRUCTURE /pws/zycit079.
DATA: uebto LIKE ekpo-uebto, "Tolerancia
uebtk LIKE ekpo-uebtk, "Ilimitada
noinitial, "Flag p/ não inicial.
mark. "Marca reg. na TC
DATA: END OF it_itensli_alt.
DATA: BEGIN OF it_zycit079_del OCCURS 0. "Atualizar LI
INCLUDE STRUCTURE /pws/zycit079.
DATA: uebto LIKE ekpo-uebto, "Tolerancia
uebtk LIKE ekpo-uebtk, "Ilimitada
noinitial, "Flag p/ não inicial.
mark. "Marca reg. na TC
DATA: END OF it_zycit079_del.
*CI - Parametro de Unidade Estatística
DATA BEGIN OF itab_zycit338 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit338.
DATA END OF itab_zycit338.
* Tabela de Pré-Crítica
DATA: BEGIN OF it_precritica OCCURS 0,
campo(60) TYPE c ,
icon(5) TYPE c ,
status(50) TYPE c ,
END OF it_precritica .
* Tabela de seleção de faturas
DATA: itab_zycit263 LIKE /pws/zycit263 OCCURS 0 WITH HEADER LINE.
*Ch 245977 - Início
* Tabela para checar se todos os itens possuem a mesma NCM
DATA: BEGIN OF itab_steuc OCCURS 0,
steuc LIKE /pws/zycit079-steuc1,
END OF itab_steuc.
*Ch 245977 - Fim
*ch 288909 fim
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F01
...
SELECT * FROM /pws/zycit030
INTO TABLE itab_zycit030
WHERE codigo = /pws/zycit031-inco1_ci
AND land1 = t001-land1
AND bukrs = /pws/zycie078-bukrs.
* >> Início da inclusão: FORM VERIFICA_ITENS
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI020'
'PLI002'.
CLEAR: itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'PLI002'.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
ENDIF.
ELSE.
* << Fim da inclusão
IF NOT itab_itens_aux2[] IS INITIAL.
REFRESH: itab_itens_auxs, itab_a016, itab_konp.
LOOP AT itab_zycit030.
LOOP AT itab_itens_aux2.
itab_itens_auxs-ebeln = itab_itens_aux2-ebeln.
...
...
itab_konp-ebelp = itab_a016-evrtp.
MODIFY itab_konp TRANSPORTING ebeln ebelp.
ENDLOOP.
ELSE.
MESSAGE i015 WITH text-433.
* >> Início da inclusão: FORM VERIFICA_ITENS
ENDIF.
* << Fim da inclusão
ENDIF.
ENDIF.
IF NOT itab_itens_aux[] IS INITIAL.
SELECT * FROM ekpo INTO TABLE it_ekpo
FOR ALL ENTRIES IN itab_itens_aux
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em PROG /PWS/SAPMZYCI020
*&---------------------------------------------------------------------*
*& Pool móds. /PWS/SAPMZYCI020 *
*& *
*&---------------------------------------------------------------------*
* ProcWork SoftWare
* Produto: Pw.CE
* Módulo: MM
* Descrição : CI - Desembaraço LI, LSI e PLI
* Help Desk : 11-5504-0270
*----------------------------------------------------------------------*
* ESTE PROGRAMA NÃO DEVE SER ALTERADO SEM PRÉVIA CONSULTA
*-----------------------------------------------------------------------
* Nome Data Descrição
* Tarcisio T. Paula 16/05/00 Codificação Inicial
* Beth Rodrigues 12/03/02 Ajustes na Tela 200
* Michel Cabral do Amaral 17/05/2002 Inclusão de Authority-Check's
* por empresa.
* Luana Prates 16/08/2002 Tela de seleção de documentos
* Beth Nobre 07/10/2002 Perform fill_desc
* Simone Suguihara 28/06/2003 Criação de LIs a partir da PLI
* por quebra de NCMs
* Juliano T. Rocha 22/11/2004 Alteração do Tamanho da table
* control na tela 502
*----------------------------------------------------------------------*
INCLUDE /pws/mzyci020top.
INCLUDE /pws/mzyci020o01.
INCLUDE /pws/mzyci020f01.
INCLUDE /pws/mzyci020i01.
INCLUDE /PWS/MZYCI020F02.
* >> Início da exclusão
*INCLUDE /PWS/MZYCI020X01.
* >> Fim da exclusão
----------------------------------------------------------------------------------------------------
Modificações no módulo de função /PWS/ZYCI_TRANSFER_PLI
...
nrseqli = i_nrseqli and
tpli = i_tpli.
* Destaque NCM
**chamado 288909 inicio - Ajuste Destaque NCM
SELECT * FROM /pws/zycit109 INTO TABLE li_destncm WHERE
nrseqli = i_nrseqli AND
tpli = i_tpli.
* >> Início da inclusão
DATA: wa_219 LIKE /pws/zycit219.
LOOP AT li_itens.
SELECT SINGLE * FROM /pws/zycit219
INTO wa_219
WHERE codigo EQ li_itens-codsufra AND
ncm EQ li_itens-ncm
AND destaque EQ li_itens-destaque.
IF sy-subrc EQ 0 AND wa_219-flagdest EQ 'X'.
MOVE: '999' TO li_destncm-codncm,
wa_078-nrseqli TO li_destncm-nrseqli,
li_itens-tpli TO li_destncm-tpli,
li_itens-ebeln TO li_destncm-ebeln,
li_itens-ebelp TO li_destncm-ebelp.
APPEND li_destncm.
ENDIF.
ENDLOOP.
SORT li_destncm BY nrseqli tpli codncm ebeln ebelp.
DELETE ADJACENT DUPLICATES FROM li_destncm
COMPARING nrseqli tpli codncm ebeln ebelp.
* >> Fim da inclusão
* Importador
select single * from j_1bbranch where BRANCH = wa_078-j_1bBRANCH and
bukrs = wa_078-bukrs.
...