CE PLUS - Nota 000804
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Declaração de Origem
Data/Hora da Publicação: 03/02/2006 00:00:00
Data/Hora Última Alteração: 21/02/2011 15:21:17
Descrição da Nota: CONSISTIR MENSAGENS DE REGRA DE ORIGEM PARA ACORDO ACE59
Sintoma
Mensagens do campo "Regra de Origem" que eram para ser mostradas apenas para o acordo ACE59 estavam
sendo mostradas para qualquer acordo.
Solução
Consistir mensagens apenas para o acordo ACE59.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00804 Data: 03/02/2006 Hora: 14:11:15
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00804
Categoria : Erro de Programa
Prioridade : Baixa
Versão PW.CE : 6.0
Pacote : 00022
Agrupamento : 00099
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00566 - 00001 - 6.0 - 00022 - DESENVOLVIMENTO DE CONSISTÊNCIAS PARA ACORDO ACE59
00753 - 00002 - 6.0 - 00022 - AJUSTES NO DESENVOLVIMENTO DE CONSISTÊNCIAS PARA ACORDO ACE59
----------------------------------------------------------------------------------------------------
CONSISTIR MENSAGENS DE REGRA DE ORIGEM PARA ACORDO ACE59
----------------------------------------------------------------------------------------------------
Palavras Chave:
ACE59; ACORDO; ORIGEM; REGRA; MENSAGENS
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCE042F01
REPS /PWS/MZYCE042I01
REPS /PWS/MZYCE042O01
REPS /PWS/MZYCE042TOP
REPS /PWS/MZYCE042X01
REPS /PWS/SAPMZYCE042
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE042F01
FORM salva_declaracao.
* >> Início da exclusão: FORM SALVA_DECLARACAO
DATA: v_mat_prima.
* << Fim da exclusão
PERFORM composicao_regra_origem USING 'X'.
LOOP AT itab_zycet273.
MODIFY itab_zycet273 FROM /pws/zycee273.
ENDLOOP.
MODIFY /pws/zycet273 FROM TABLE itab_zycet273.
READ TABLE itab_zycet273.
DELETE FROM /pws/zycet274 WHERE nrseqdo = itab_zycet273-nrseqdo.
* >> Início da exclusão: FORM SALVA_DECLARACAO
CLEAR: v_mat_prima.
* << Fim da exclusão
LOOP AT itab_zycet274.
MOVE itab_zycet273-nrseqdo TO itab_zycet274-nrseqdo.
MOVE sy-mandt TO itab_zycet274-mandt.
MODIFY itab_zycet274.
ENDLOOP.
...
MOVE itab_zycet273-nrseqdo TO /pws/zycee279-nrseqdo.
MODIFY /pws/zycet279 FROM /pws/zycee279.
COMMIT WORK.
MESSAGE i001 WITH text-042. "Registro Salvo com sucesso.
ENDFORM. " salva_declaracao
...
FORM trata_material TABLES itab_mara_aux STRUCTURE itab_mara_aux.
* >> Início da exclusão: FORM TRATA_MATERIAL
CLEAR: itab_zycet275, itab_zycit281, v_erdat, itab_ekko, itab_periodo.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_MATERIAL
CLEAR: itab_zycet275, itab_zycit281, itab_ekko, itab_periodo.
* << Fim da inclusão
REFRESH: itab_zycet275, itab_zycit281, itab_ekko, itab_periodo.
SELECT * INTO TABLE itab_zycit281
FROM /pws/zycit281
WHERE matnr = mara-matnr.
IF sy-subrc EQ 0.
...
CLEAR itab_zycet275.
CLEAR itab_aux.
REFRESH itab_aux.
ENDLOOP.
ENDFORM. " trata_material
FORM trata_acordo_produto USING v_acordo.
CLEAR: itab_zycet274, itab_vba, itab_zycet274_aux, itab_vbap_vbak,
itab_vbkd, itab_desc, itab_marc, itab_t604n, itab_t604f,
itab_t604f_aux, itab_zycet509.
REFRESH: itab_zycet274, itab_vba, itab_zycet274_aux, itab_vbap_vbak,
...
itab_vbap_vbak-waerk TO itab_vba-waerk.
SELECT inco1 vbeln posnr FROM vbkd INTO TABLE itab_vbkd
WHERE vbeln = itab_vbap_vbak-vbeln.
APPEND itab_vba.
ENDIF.
* >> Início da exclusão: FORM TRATA_ACORDO_PRODUTO
PERFORM trata_ordem TABLES itab_vba USING v_produto.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_ACORDO_PRODUTO
PERFORM trata_ordem TABLES itab_vba.
* << Fim da inclusão
SELECT SINGLE maktx INTO wa_desc FROM makt
WHERE matnr = itab_mara_aux-matnr
AND spras = sy-langu.
IF sy-subrc EQ 0.
MOVE wa_desc TO itab_zycet274_aux-arktx.
...
APPEND itab_zycet274_aux.
CLEAR itab_zycet274_aux.
ENDIF.
MOVE itab_zycet274_aux[] TO itab_zycet274[].
ENDFORM. " trata_acordo_produto
...
* >> Início da exclusão: FORM TRATA_ORDEM
FORM trata_ordem TABLES itab_vba STRUCTURE itab_vba USING v_produto.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_ORDEM
FORM trata_ordem TABLES itab_vba STRUCTURE itab_vba.
* << Fim da inclusão
CLEAR: itab_zycee085, v_index, itab_vba2.
REFRESH: itab_zycee085, itab_vba2.
LOOP AT itab_vba.
nrseq = nrseq + 001.
itab_zycee085-nrseq = nrseq.
...
ENDLOOP.
ENDFORM.
FORM trata_estados_partes TABLES itab_ekko STRUCTURE itab_ekko.
CLEAR: itab_zycet276, itab_desc, itab_zycet277, itab_marc,
itab_t604f, itab_lfa1, itab_aux, itab_zycet285,
* >> Início da exclusão: FORM TRATA_ESTADOS_PARTES
itab_vbap_vbak, itab_ekko_aux.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_ESTADOS_PARTES
itab_vbap_vbak.
* << Fim da inclusão
REFRESH: itab_zycet276, itab_zycet277, itab_aux,
itab_t604f, itab_lfa1,itab_desc, itab_marc,
itab_zycet285, itab_vbap_vbak.
IF NOT it_stpox[] IS INITIAL.
SELECT matnr maktx INTO TABLE itab_desc FROM makt
...
ENDIF.
ENDCASE.
ENDLOOP.
ENDFORM.
FORM trata_converte_montante USING v_waers v_vlcif.
* >> Início da exclusão: FORM TRATA_CONVERTE_MONTANTE
CLEAR: wa_ctmoed, v_index.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_CONVERTE_MONTANTE
CLEAR: v_index.
* << Fim da inclusão
READ TABLE itab_ctmoeda INDEX 1.
IF sy-subrc = 0.
IF NOT v_waers IS INITIAL AND
NOT itab_ctmoeda-ctmoed IS INITIAL.
CALL FUNCTION '/PWS/ZYCE_MONTANTE_CONVERTE'
...
v_vlcif = v_vlcif * v_taxa.
ENDIF.
ENDIF.
ENDIF.
ENDFORM. " trata_converte_montante
...
FORM trata_regra_origem USING mara-matnr.
* >> Início da exclusão: FORM TRATA_REGRA_ORIGEM
DATA : BEGIN OF itab_marc OCCURS 0.
INCLUDE STRUCTURE marc.
DATA: END OF itab_marc.
* << Fim da exclusão
itab_zycet273_2[] = itab_zycet273[].
itab_zycet275_2[] = itab_zycet275[].
itab_zycet277_2[] = itab_zycet277[].
itab_zycet276_2[] = itab_zycet276[].
PERFORM busca_exit USING 'DCO002'.
itab_zycet275[] = itab_zycet275_2[].
itab_zycet276[] = itab_zycet276_2[].
itab_zycet277[] = itab_zycet277_2[].
itab_zycet279[] = itab_zycet279[].
ENDFORM. " trata_regra_origem
...
* >> O FORM TRATA_PROCESSO_PRODUTIVO foi excluído do programa <<
* >> Início da exclusão: FORM TRATA_PROCESSO_PRODUTIVO
FORM trata_processo_produtivo USING v_controle.
ENDFORM.
* << Fim da exclusão
FORM composicao_regra_origem USING p_flag.
DATA v_ok TYPE c.
* >> Início da inclusão: FORM COMPOSICAO_REGRA_ORIGEM
CASE /pws/zycee273-acordo.
WHEN 'ACE59'.
* << Fim da inclusão
READ TABLE itab_zycet279 INDEX 1.
IF itab_zycet276[] IS INITIAL AND
itab_zycet277[] IS INITIAL .
* >> Início da inclusão: FORM COMPOSICAO_REGRA_ORIGEM
itab_zycet279-descricao = text-039.
* << Fim da inclusão
* >> Início da exclusão: FORM COMPOSICAO_REGRA_ORIGEM
itab_zycet279-descricao = 'Anexo IV, artigo 3, letra "i"'(039).
* << Fim da exclusão
IF NOT itab_zycet279[] IS INITIAL.
MODIFY itab_zycet279 INDEX 1.
ELSE.
APPEND itab_zycet279.
ENDIF.
...
READ TABLE itab_zycet274 INDEX sy-tabix.
CHECK itab_zycet277-naladi(4) EQ itab_zycet274-naladi(4).
v_ok = 'X'.
ENDLOOP.
IF v_ok IS INITIAL.
* >> Início da exclusão: FORM COMPOSICAO_REGRA_ORIGEM
itab_zycet279-descricao = 'Anexo IV, artigo 4, letra "a"'(058).
* << Fim da exclusão
* >> Início da inclusão: FORM COMPOSICAO_REGRA_ORIGEM
itab_zycet279-descricao = text-058.
* << Fim da inclusão
IF NOT itab_zycet279[] IS INITIAL.
MODIFY itab_zycet279 INDEX 1.
ELSE.
APPEND itab_zycet279.
ENDIF.
ELSE.
* >> Início da exclusão: FORM COMPOSICAO_REGRA_ORIGEM
CLEAR v_ok.
LOOP AT itab_zycet277.
READ TABLE itab_zycet274 INDEX sy-tabix.
CHECK itab_zycet277-steuc(4) EQ itab_zycet274-steuc(4).
v_ok = 'Y'.
CHECK itab_zycet277-perfinal <= 40.
v_ok = 'X'.
ENDLOOP.
IF v_ok IS INITIAL OR
v_ok EQ 'Y'.
* << Fim da exclusão
* >> Início da inclusão: FORM COMPOSICAO_REGRA_ORIGEM
IF itab_zycet277-perfinal > 40.
* << Fim da inclusão
* >> Início da exclusão: FORM COMPOSICAO_REGRA_ORIGEM
IF p_flag IS INITIAL AND
v_ok EQ 'Y'.
* << Fim da exclusão
* >> Início da inclusão: FORM COMPOSICAO_REGRA_ORIGEM
IF p_flag IS INITIAL.
* << Fim da inclusão
MESSAGE w016 WITH text-044 text-046.
ENDIF.
CLEAR itab_zycet279-descricao.
CHECK NOT itab_zycet279[] IS INITIAL.
MODIFY itab_zycet279 INDEX 1.
ELSE.
* >> Início da exclusão: FORM COMPOSICAO_REGRA_ORIGEM
itab_zycet279-descricao = 'Anexo IV, artigo 4, letra "b"'(059).
* << Fim da exclusão
* >> Início da inclusão: FORM COMPOSICAO_REGRA_ORIGEM
itab_zycet279-descricao = text-059.
* << Fim da inclusão
IF NOT itab_zycet279[] IS INITIAL.
MODIFY itab_zycet279 INDEX 1.
ELSE.
APPEND itab_zycet279.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM COMPOSICAO_REGRA_ORIGEM
WHEN OTHERS.
ENDCASE.
* << Fim da inclusão
ENDFORM.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE042I01
MODULE user_command INPUT.
PERFORM trata_abas.
CASE okcode.
WHEN 'SAVE'.
PERFORM salva_declaracao.
...
when 'ABORT'.
clear v_select.
leave program.
when 'ENTER'.
perform trata_enter.
* >> Início da exclusão: MODULE USER_COMMAND
when 'FC_PROCESSO'.
perform trata_processo_produtivo using v_controle.
* << Fim da exclusão
endcase.
endmodule.
...
module gera_seq input.
if sy-tcode eq '/PWS/ZYCE042_C'.
data: v_ano(4),
* >> Início da exclusão: MODULE GERA_SEQ
v_count(7) type n,
v_sytabix like sy-tabix.
* << Fim da exclusão
* >> Início da inclusão: MODULE GERA_SEQ
v_count(7) TYPE n.
* << Fim da inclusão
concatenate '%' 'D' sy-datum+2(2) into v_ano.
select max( nrseqdo ) from /pws/zycet273 into v_nrseqdo
where nrseqdo like v_ano.
v_count = v_nrseqdo+0(7) + 1.
concatenate v_count 'D' sy-datum+2(2) into itab_zycet273-nrseqdo.
...
WHERE nrseqdo LIKE v_ano.
v_count = v_nrseqdo+0(7) + 1.
CONCATENATE v_count 'D' sy-datum+2(2) INTO itab_zycet273-nrseqdo.
ENDIF.
ENDMODULE. " gera_seq INPUT
...
module user_command_0003 input.
* >> Início da exclusão: MODULE USER_COMMAND_0003
data: v_okcode like sy-ucomm.
* << Fim da exclusão
case sy-ucomm.
when 'DELETAR'.
select single * from /pws/zycet273 into /pws/zycee273
where nrseqdo = /pws/zycee273-nrseqdo.
if sy-tcode <> '/PWS/ZYCE042_E' and sy-subrc = 0.
...
ELSE.
MESSAGE i001 WITH text-049.
ENDIF.
ENDCASE.
ENDMODULE. " USER_COMMAND_0003 INPUT
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE042O01
* >> Início da exclusão: MODULE SELECIONA_DADOS
MODULE seleciona_dados OUTPUT.
IF sy-tcode NE '/PWS/ZYCE042_C'.
IF v_select NE 'X'.
SELECT * FROM /pws/zycet274 INTO TABLE itab_zycet274
WHERE nrseqdo = /pws/zycee273-nrseqdo.
SELECT * FROM /pws/zycet275 INTO TABLE itab_zycet275
WHERE nrseqdo = /pws/zycee273-nrseqdo.
SELECT * FROM /pws/zycet276 INTO TABLE itab_zycet276
WHERE nrseqdo = /pws/zycee273-nrseqdo.
SELECT * FROM /pws/zycet277 INTO TABLE itab_zycet277
WHERE nrseqdo = /pws/zycee273-nrseqdo.
SELECT * FROM /pws/zycet278 INTO TABLE itab_zycet278
WHERE nrseqdo = /pws/zycee273-nrseqdo.
SELECT * FROM /pws/zycet279 INTO TABLE itab_zycet279
WHERE nrseqdo = /pws/zycee273-nrseqdo.
v_select = 'X'.
ENDIF.
ENDIF.
ENDMODULE.
* << Fim da exclusão
MODULE trata_datas OUTPUT.
* >> Início da exclusão: MODULE TRATA_DATAS
DATA: v_ano1(4),
v_data LIKE sy-datum.
* << Fim da exclusão
* >> Início da inclusão: MODULE TRATA_DATAS
DATA: v_ano1(4).
* << Fim da inclusão
v_ano1 = sy-datum+0(4) - 1.
* >> Início da exclusão: MODULE TRATA_DATAS
v_data = sy-datum.
* << Fim da exclusão
CONCATENATE v_ano1 sy-datum+4(4) INTO /pws/zycee001-dtinclav.
CONCATENATE v_ano1 sy-datum+4(4) INTO /pws/zycee001-dtincl.
ENDMODULE. " trata_datas OUTPUT
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE042TOP
PROGRAM /pws/sapmzyce042 MESSAGE-ID /pws/zycem.
INCLUDE /pws/mzyce042x01.
* >> Início da exclusão: /PWS/MZYCE042TOP
TABLES:
marc,
plpo,
t604n,
t604f,
t005t,
vbak,
vbap,
lfa1,
konv,
mkal,
plpob,
ekko,
ekpo,
* << Fim da exclusão
* >> Início da inclusão: /PWS/MZYCE042TOP
TABLES: t005t,
* << Fim da inclusão
/pws/zycee273,
/pws/zycee274,
/pws/zycee275,
/pws/zycee276,
/pws/zycee277,
/pws/zycee278,
/pws/zycee279,
/pws/zycee285,
* >> Início da exclusão: /PWS/MZYCE042TOP
/pws/zycee288,
* << Fim da exclusão
/pws/zycee001,
* >> Início da exclusão: /PWS/MZYCE042TOP
/pws/zycet001,
/pws/zycet002,
/pws/zycet020,
/pws/zycet509,
/pws/zycet273,
* << Fim da exclusão
/pws/zycet274,
/pws/zycet275,
/pws/zycet276,
/pws/zycet277,
* >> Início da exclusão: /PWS/MZYCE042TOP
/pws/zycet278,
/pws/zycet279,
/pws/zycet280,
/pws/zycet281,
/pws/zycet282,
/pws/zycet283,
/pws/zycet285,
/pws/zycet284,
/pws/zycet288,
/pws/zycet037,
/pws/zycet156.
* << Fim da exclusão
* >> Início da inclusão: /PWS/MZYCE042TOP
/pws/zycet279.
* << Fim da inclusão
CONTROLS:
tsdeclaracao TYPE TABSTRIP,
tc_acordos TYPE TABLEVIEW USING SCREEN 002,
tc_acordo TYPE TABLEVIEW USING SCREEN 101,
tc_mp TYPE TABLEVIEW USING SCREEN 102,
tc_estados TYPE TABLEVIEW USING SCREEN 103,
tc_terceiros TYPE TABLEVIEW USING SCREEN 104,
tc_processo TYPE TABLEVIEW USING SCREEN 105,
tc_mat TYPE TABLEVIEW USING SCREEN 106.
* >> Início da exclusão: /PWS/MZYCE042TOP
DATA: BEGIN OF itab_planpo OCCURS 0.
INCLUDE STRUCTURE plpob.
DATA: END OF itab_planpo.
* << Fim da exclusão
DATA: BEGIN OF itab_zycet156 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet156.
DATA: END OF itab_zycet156.
DATA: BEGIN OF itab_konv OCCURS 0,
knumv LIKE konv-knumv,
...
kwert LIKE konv-kwert,
kposn LIKE konv-kposn,
waers LIKE konv-waers,
kbetr LIKE konv-kbetr,
END OF itab_konv.
* >> Início da exclusão: /PWS/MZYCE042TOP
DATA: BEGIN OF itab_netpr OCCURS 0,
matnr LIKE ekpo-matnr,
ebeln LIKE ekpo-ebeln,
aedat LIKE ekpo-aedat,
netpr LIKE ekpo-netpr,
waers LIKE ekko-waers,
END OF itab_netpr.
* << Fim da exclusão
DATA: BEGIN OF itab_ctmoeda OCCURS 0,
ctmoed LIKE /pws/zycbt011-ctmoed,
END OF itab_ctmoeda.
DATA: BEGIN OF itab_zycet509 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet509.
DATA: END OF itab_zycet509.
* >> Início da exclusão: /PWS/MZYCE042TOP
DATA: BEGIN OF itab_zycet509_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycet509.
DATA: END OF itab_zycet509_aux.
* << Fim da exclusão
DATA: BEGIN OF itab_periodo OCCURS 1,
sign(1) TYPE c,
option(2) TYPE c,
low LIKE /pws/zycet001-dtincl,
high LIKE /pws/zycet001-dtincl,
...
DATA: BEGIN OF itab_t604f_aux OCCURS 0,
steuc LIKE t604f-steuc,
/pws/codnaladi LIKE t604f-/pws/codnaladi,
/pws/descr_nala LIKE t604f-/pws/descr_nala,
END OF itab_t604f_aux.
* >> Início da exclusão: /PWS/MZYCE042TOP
DATA: BEGIN OF itab_zycet282 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet282.
DATA: END OF itab_zycet282.
* << Fim da exclusão
DATA: BEGIN OF itab_zycet273 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet273.
DATA: END OF itab_zycet273.
DATA: BEGIN OF itab_zycet274_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycet274.
...
DATA: BEGIN OF itab_zycet275 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet275.
DATA: mark(1) TYPE c,
vlcif LIKE /pws/zycet276-vlcif.
DATA: END OF itab_zycet275.
* >> Início da exclusão: /PWS/MZYCE042TOP
DATA: BEGIN OF itab_zycet275_3 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet275.
DATA: mark(1) TYPE c.
DATA: END OF itab_zycet275_3.
DATA: BEGIN OF itab_zycet277_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycet277.
DATA: END OF itab_zycet277_aux.
DATA: BEGIN OF itab_zycet275_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycet275.
DATA: END OF itab_zycet275_aux.
* << Fim da exclusão
DATA: BEGIN OF itab_zycet276 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet276.
DATA: mark(1) TYPE c.
DATA: END OF itab_zycet276.
DATA: BEGIN OF itab_aux OCCURS 0.
...
DATA: mark(1) TYPE c.
DATA: END OF itab_zycet278.
DATA: BEGIN OF itab_zycet280 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet280.
DATA: END OF itab_zycet280.
* >> Início da exclusão: /PWS/MZYCE042TOP
DATA: BEGIN OF itab_zycet281 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet281.
DATA: END OF itab_zycet281.
DATA: BEGIN OF itab_zycet283 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet283.
DATA: END OF itab_zycet283.
* << Fim da exclusão
DATA: BEGIN OF itab_zycet285 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet285.
DATA: mark(1) TYPE c.
DATA: END OF itab_zycet285.
DATA: BEGIN OF itab_zycet285-aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycet285.
DATA: mark(1) TYPE c.
DATA: END OF itab_zycet285-aux.
* >> Início da exclusão: /PWS/MZYCE042TOP
DATA: BEGIN OF itab_mkal OCCURS 0,
plnty LIKE mkal-plnty,
plnnr LIKE mkal-plnnr,
END OF itab_mkal.
DATA: BEGIN OF itab_tab OCCURS 10,
fieldname LIKE dd03l-fieldname,
position LIKE dd03l-position,
END OF itab_tab.
DATA: BEGIN OF itab_final OCCURS 10,
vlme LIKE /pws/zycee085-vlme,
ntgew LIKE /pws/zycee085-ntgew,
brgew LIKE /pws/zycee085-brgew,
vlfob LIKE /pws/zycee085-vfob,
fkimg LIKE /pws/zycee085-fkimg,
inco1 LIKE /pws/zycee085-inco1,
vlagente LIKE /pws/zycee085-vlagente,
END OF itab_final.
* << Fim da exclusão
DATA: BEGIN OF itab_zycit281 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit281.
DATA: END OF itab_zycit281.
* >> Início da exclusão: /PWS/MZYCE042TOP
DATA : BEGIN OF itab_mara_2 OCCURS 0.
INCLUDE STRUCTURE mara.
DATA: END OF itab_mara_2.
DATA : BEGIN OF itab_marc_aux OCCURS 10,
matnr LIKE marc-matnr,
steuc LIKE marc-steuc,
END OF itab_marc_aux.
* << Fim da exclusão
DATA: BEGIN OF itab_t005t OCCURS 0.
INCLUDE STRUCTURE t005t.
DATA: END OF itab_t005t.
DATA: BEGIN OF itab_lfa1 OCCURS 0,
land1 LIKE lfa1-land1,
...
ebelp LIKE ekpo-ebelp,
menge LIKE ekpo-menge,
meins LIKE ekpo-meins,
ntgew LIKE ekpo-ntgew.
DATA: END OF itab_ekko.
* >> Início da exclusão: /PWS/MZYCE042TOP
DATA: BEGIN OF itab_ekko_aux OCCURS 0,
matnr LIKE ekpo-matnr,
ebeln LIKE ekko-ebeln,
aedat LIKE ekko-aedat,
lifnr LIKE ekko-lifnr,
netpr LIKE ekpo-netpr,
waers LIKE ekko-waers,
knumv LIKE ekko-knumv,
ebelp LIKE konv-kposn,
menge LIKE ekpo-menge.
DATA: END OF itab_ekko_aux.
DATA: BEGIN OF itab_ekpo OCCURS 0.
INCLUDE STRUCTURE ekpo.
DATA: END OF itab_ekpo.
DATA: BEGIN OF itab_zycet037 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet037.
DATA: END OF itab_zycet037.
* << Fim da exclusão
DATA : BEGIN OF itab_saida OCCURS 10.
INCLUDE STRUCTURE /pws/zycee085.
DATA : END OF itab_saida.
DATA : BEGIN OF itab_zycee085 OCCURS 10.
INCLUDE STRUCTURE /pws/zycee085.
...
END OF itab_t604n.
DATA: BEGIN OF itab_dd03l OCCURS 10,
fieldname LIKE dd03l-fieldname,
position LIKE dd03l-position,
END OF itab_dd03l.
* >> Início da exclusão: /PWS/MZYCE042TOP
DATA: itab_where LIKE abapsource OCCURS 100 WITH HEADER LINE.
* << Fim da exclusão
DATA: itab_where_cond LIKE abapsource OCCURS 100 WITH HEADER LINE.
DATA: it_matcat LIKE cscmat OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF it_stpox OCCURS 0.
INCLUDE STRUCTURE stpox.
DATA: END OF it_stpox.
DATA: BEGIN OF itab_zycet288 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet288.
DATA: END OF itab_zycet288.
DATA: itab_cpo LIKE abapsource OCCURS 100 WITH HEADER LINE.
* >> Início da exclusão: /PWS/MZYCE042TOP
DATA: itab_cpoxvalor LIKE abapsource OCCURS 100 WITH HEADER LINE.
DATA v_lcampo LIKE abapsource OCCURS 0.
* << Fim da exclusão
DATA: BEGIN OF itab_mara OCCURS 0.
INCLUDE STRUCTURE mara.
DATA: END OF itab_mara.
DATA: itab_zyglt100 LIKE TABLE OF /pws/zyglt100 WITH HEADER LINE.
DATA: wa_cols TYPE cxtab_column,
wa_landx LIKE t005t-landx.
DATA: wa_desc LIKE makt-maktx,
* >> Início da exclusão: /PWS/MZYCE042TOP
wa_land1 LIKE lfa1-land1,
wa_condov LIKE /pws/zycet037-condov,
wa_ctmoed LIKE /pws/zycbt011-ctmoed.
* << Fim da exclusão
* >> Início da inclusão: /PWS/MZYCE042TOP
wa_condov LIKE /pws/zycet037-condov.
* << Fim da inclusão
DATA:
okcode LIKE sy-ucomm,
* >> Início da exclusão: /PWS/MZYCE042TOP
v_user LIKE sy-uname,
v_trans LIKE sy-tcode,
* << Fim da exclusão
v_prog(30) TYPE c VALUE '/PWS/SAPMZYCE042',
v_tela(4) TYPE c VALUE '0101',
v_tab LIKE sy-ucomm VALUE 'FC_ACORDO',
v_index LIKE sy-tabix,
* >> Início da exclusão: /PWS/MZYCE042TOP
v_aliq LIKE t005-/pws/aliq,
v_emb(10) TYPE c,
* << Fim da exclusão
v_line TYPE i,
* >> Início da exclusão: /PWS/MZYCE042TOP
v_nrseq_aux(10) TYPE c,
v_erdat LIKE sy-datum,
* << Fim da exclusão
v_validade(10) TYPE c,
v_var(45) TYPE c,
v_text(45) TYPE c,
v_text1(20) TYPE c,
* >> Início da exclusão: /PWS/MZYCE042TOP
v_data_pc LIKE sy-datum,
v_data_ov LIKE sy-datum,
* << Fim da exclusão
mark(1) TYPE c,
v_select,
v_taxa LIKE tcurr-ukurs,
nrseq LIKE /pws/zycet002-nrseq,
* >> Início da exclusão: /PWS/MZYCE042TOP
v_matnr(18),
v_exibe,
v_produto(1),
* << Fim da exclusão
v_vlcif LIKE /pws/zycet277-vlcif,
v_perfinal_aux LIKE /pws/zycet277-vlcif,
v_nrseqdo LIKE /pws/zycet273-nrseqdo,
v_waers LIKE /pws/zycet277-waers,
v_programa LIKE sy-repid.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE042X01
...
INCLUDE STRUCTURE /pws/zycet274.
DATA: mark(1) TYPE c.
DATA: END OF itab_zycet274.
data: v_familia,
v_acordo(7) TYPE c,
* >> Início da exclusão: /PWS/MZYCE042X01
v_controle(1) VALUE 'X',
* << Fim da exclusão
v_comentario(30) TYPE c,
v_comentario1(30) TYPE c.
DATA: END OF COMMON PART.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/SAPMZYCE042
** >> Não houve modificações relevantes neste include <<