CE PLUS - Nota 002561
Módulo: DRAWBACK
Funcionalidade: Forecast
Data/Hora da Publicação: 30/11/2006 00:00:00
Data/Hora Última Alteração: 17/02/2011 14:36:24
Descrição da Nota: AJUSTE NO FORECAST PARA COMTEMPLAR TAB. DE AREA DE NEGOCIO X CENTRO PROD
Sintoma
No programa de forecast não existia tratativa para contemplar a nova tabela de Area de Negócio X
Centro Produtivo.
Solução
Foi criado no programa tratamento para gerenciamento de área de negócio X centro produtivo.
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02561 Data: 30/11/2006 Hora: 15:14:34
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02561
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00025
Agrupamento : 00142
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02071 - 00001 - 6.0 - 00024 - PADRONIZAÇÃO DOS CAMPOS NO FORECAST
----------------------------------------------------------------------------------------------------
AJUSTE NO FORECAST PARA COMTEMPLAR TAB. DE AREA DE NEGOCIO X CENTRO PROD
----------------------------------------------------------------------------------------------------
Palavras Chave:
/PWS/ZYCIT475, TELA 0110, ITAB_CENTROS, ITAB_AREAS, CODPROD, WERKS
/PWS/ZYCIE238, /PWS/ZYCIT250
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCI063 0100
DYNP /PWS/SAPMZYCI063 0101
DYNP /PWS/SAPMZYCI063 0106
DYNP /PWS/SAPMZYCI063 0110
REPS /PWS/MZYCI063F01
REPS /PWS/MZYCI063F02
REPS /PWS/MZYCI063F03
REPS /PWS/MZYCI063I01
REPS /PWS/MZYCI063O01
REPS /PWS/MZYCI063TOP
REPS /PWS/MZYCI063TOP2
REPS /PWS/SAPMZYCI063
REPT /PWS/SAPMZYCI063
TABD /PWS/ZYCIE238
TABD /PWS/ZYCIT250
TABL /PWS/ZYCIT250
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI063 0100
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI063 0101
...
CHAIN.
FIELD /pws/zycie238-werks MODULE altera_werks ON CHAIN-REQUEST.
ENDCHAIN.
CHAIN.
FIELD /pws/zycie238-bukrs MODULE altera_bukrs ON CHAIN-REQUEST.
ENDCHAIN.
*Início da Inclusão:
FIELD /pws/zycie238-codagrup MODULE altera_areas ON REQUEST.
*Fim da Inclusão:
MODULE: user_command_0101.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI063 0106
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI063 0110
*Início da Inclusão:
PROCESS BEFORE OUTPUT.
MODULE: status_0110,
set_screen.
LOOP AT itab_areas WITH CONTROL tc_areas
CURSOR tc_areas-current_line.
MODULE refresh_internal_table3.
ENDLOOP.
PROCESS AFTER INPUT.
LOOP AT itab_areas.
CHAIN.
FIELD /pws/zycie258-codagrup MODULE modify_records3 ON CHAIN-REQUEST.
ENDCHAIN.
ENDLOOP.
MODULE user_command_0110.
*Fim da Inclusão.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI063F01
FORM check_button_back.
DATA: v_confirm(1) TYPE c.
PERFORM limpa_mark.
IF v_tcode EQ '/PWS/ZYCI040_P' OR v_tcode EQ '/PWS/ZYCI040_N'.
IF wa_zycit238 NE /pws/zycie238 OR
itab_exp_save[] NE itab_exp[] OR
itab_compn_final_save[] NE itab_compn_final[] OR
itab_compi_final_save[] NE itab_compi_final[] OR
* >> Início da exclusão: FORM CHECK_BUTTON_BACK
itab_centros_save[] NE itab_centros[].
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_BUTTON_BACK
itab_centros_save[] NE itab_centros[] OR
itab_areas_save[] NE itab_areas[].
* << Fim da inclusão
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
titlebar = text-039
text_question = text-040
text_button_1 = text-041
text_button_2 = text-042
default_button = '1'
display_cancel_button = 'X'
IMPORTING
answer = v_confirm
...
...
dynpronr = '0101'.
ENDFORM.
FORM check_button_abort.
DATA: v_confirm2(1) TYPE c.
PERFORM limpa_mark.
IF v_tcode EQ '/PWS/ZYCI040_P' OR v_tcode EQ '/PWS/ZYCI040_N'.
IF wa_zycit238 NE /pws/zycie238 OR
itab_exp_save[] NE itab_exp[] OR
itab_compn_final_save[] NE itab_compn_final[] OR
itab_compi_final_save[] NE itab_compi_final[] OR
* >> Início da exclusão: FORM CHECK_BUTTON_ABORT
itab_centros_save[] NE itab_centros[].
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_BUTTON_ABORT
itab_centros_save[] NE itab_centros[] OR
itab_areas_save[] NE itab_areas[].
* << Fim da inclusão
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
titlebar = text-039
text_question = text-040
text_button_1 = text-041
text_button_2 = text-042
default_button = '1'
display_cancel_button = 'X'
IMPORTING
answer = v_confirm2
...
...
butn_type = 0
is_disabled = ''
text = ''
quickinfo = text-007.
ELSE.
IF NOT itab_centros[] IS INITIAL.
CLEAR v_icone.
PERFORM call_icon USING text-008 CHANGING v_icone.
CALL METHOD btn1->set_button_info EXPORTING fcode = 'BTN1'
icon = v_icone
* >> Início da exclusão: FORM CARREGA_TOOLBARCONTROL
quickinfo = text-007
.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_TOOLBARCONTROL
quickinfo = text-007.
* << Fim da inclusão
ELSE.
CLEAR v_icone.
PERFORM call_icon USING text-006 CHANGING v_icone.
CALL METHOD btn1->set_button_info EXPORTING fcode = 'BTN1'
* >> Início da inclusão: FORM CARREGA_TOOLBARCONTROL
icon = v_icone
quickinfo = text-007.
ENDIF.
ENDIF.
IF btn3 IS INITIAL.
REFRESH myevent_tab.
myevent-eventid = cl_gui_toolbar=>m_id_function_selected.
myevent-appl_event = 'X'.
APPEND myevent TO myevent_tab.
CREATE OBJECT evt_receiver3.
CREATE OBJECT toolbar_container3 EXPORTING
container_name = tool_container3.
CREATE OBJECT btn3 EXPORTING
parent = toolbar_container3.
CALL METHOD btn3->set_registered_events
EXPORTING events = myevent_tab.
SET HANDLER evt_receiver3->on_function_selected FOR btn3.
IF itab_areas[] IS INITIAL.
CLEAR v_icone.
PERFORM call_icon USING text-006 CHANGING v_icone.
ELSE.
CLEAR v_icone.
PERFORM call_icon USING text-008 CHANGING v_icone.
ENDIF.
CALL METHOD btn3->add_button
EXPORTING
fcode = 'BTN3'
icon = v_icone
butn_type = 0
is_disabled = ''
text = ''
quickinfo = text-293.
ELSE.
IF NOT itab_areas[] IS INITIAL.
CLEAR v_icone.
PERFORM call_icon USING text-008 CHANGING v_icone.
CALL METHOD btn3->set_button_info EXPORTING fcode = 'BTN3'
icon = v_icone
quickinfo = text-293.
ELSE.
CLEAR v_icone.
PERFORM call_icon USING text-006 CHANGING v_icone.
CALL METHOD btn3->set_button_info EXPORTING fcode = 'BTN3'
* << Fim da inclusão
icon = v_icone
* >> Início da exclusão: FORM CARREGA_TOOLBARCONTROL
quickinfo = text-007
.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_TOOLBARCONTROL
quickinfo = text-293.
* << Fim da inclusão
ENDIF.
ENDIF.
...
...
ENDCASE.
ENDIF.
ENDLOOP.
DESCRIBE TABLE itab_compi_viab LINES v_linha.
tc_viab-lines = v_linha.
ENDFORM.
FORM trata_button_save.
DATA: v_duplic(1) TYPE c ,
v_tamano TYPE i VALUE 0 ,
v_string(4) TYPE c VALUE space.
* >> Início da inclusão: FORM TRATA_BUTTON_SAVE
IF /pws/zycie238-werks IS INITIAL
AND itab_centros[] IS INITIAL.
MESSAGE e015 WITH text-294.
EXIT.
ENDIF.
* << Fim da inclusão
PERFORM atualiza_viabilidade.
IF v_tot_eco7_aux > 60.
IF ok_code NE 'BACK' AND ok_code NE 'ABORT'.
MESSAGE w015 WITH text-047.
ENDIF.
ENDIF.
IF v_tcode EQ '/PWS/ZYCI040_P'.
PERFORM verifica_nrseq_gravado.
ENDIF.
LOOP AT itab_compn_final.
...
...
AND proced = itab_compi_final-proced.
ENDIF.
DELETE itab_compi_final.
ENDLOOP.
PERFORM trata_saldo.
IF v_tcode EQ '/PWS/ZYCI040_N'.
DELETE FROM /pws/zycit239 WHERE nrseqd = /pws/zycie238-nrseqd.
DELETE FROM /pws/zycit240 WHERE nrseqd = /pws/zycie238-nrseqd.
DELETE FROM /pws/zycit243 WHERE nrseqd = /pws/zycie238-nrseqd.
DELETE FROM /pws/zycit249 WHERE nrseqd = /pws/zycie238-nrseqd.
* >> Início da inclusão: FORM TRATA_BUTTON_SAVE
DELETE FROM /pws/zycit250 WHERE nrseqd = /pws/zycie238-nrseqd.
* << Fim da inclusão
COMMIT WORK.
ENDIF.
MODIFY /pws/zycit238 FROM /pws/zycie238.
MODIFY /pws/zycit239 FROM TABLE itab_exp.
MODIFY /pws/zycit240 FROM TABLE itab_compn_final.
MODIFY /pws/zycit240 FROM TABLE itab_compi_final.
MODIFY /pws/zycit243 FROM TABLE itab_centros.
MODIFY /pws/zycit249 FROM TABLE itab_sdocompi.
* >> Início da inclusão: FORM TRATA_BUTTON_SAVE
MODIFY /pws/zycit250 FROM TABLE itab_areas.
* << Fim da inclusão
COMMIT WORK.
IF sy-subrc EQ 0.
pressed_tab = 'FS_CABEC'.
dynpronr = '0101'.
LOOP AT itab_exp.
itab_exp-mark = ' '.
MODIFY itab_exp.
ENDLOOP.
LOOP AT itab_compn_final.
itab_compn_final-markn = ' '.
...
...
ENDLOOP.
LOOP AT itab_compi_final.
itab_compi_final-marki = ' '.
MODIFY itab_compi_final.
ENDLOOP.
wa_zycit238 = /pws/zycie238.
itab_exp_save[] = itab_exp[].
itab_compn_final_save[] = itab_compn_final[].
itab_compi_final_save[] = itab_compi_final[].
itab_centros_save[] = itab_centros[].
* >> Início da inclusão: FORM TRATA_BUTTON_SAVE
itab_areas_save[] = itab_areas[].
* << Fim da inclusão
MESSAGE s015 WITH text-031.
IF v_tcode EQ '/PWS/ZYCI040_P'.
v_tcode = '/PWS/ZYCI040_N'.
PERFORM lock_record.
ENDIF.
ENDIF.
ENDFORM.
FORM verifica_nrseq_gravado.
DATA: v_nrseqc2 LIKE /pws/zycie238-nrseqd,
v_count2(7) TYPE n ,
...
...
DESCRIBE TABLE itab_exp LINES v_verifiit.
ENDIF.
SELECT * FROM /pws/zycit240 INTO TABLE itab_compn_final
WHERE nrseqd EQ /pws/zycie238-nrseqd
AND proced EQ '0'.
SELECT * FROM /pws/zycit240 INTO TABLE itab_compi_final
WHERE nrseqd EQ /pws/zycie238-nrseqd
AND ( proced EQ '1' OR proced EQ '2' ).
SORT itab_compn_final BY codcomp ASCENDING.
SORT itab_compi_final BY codcomp ASCENDING.
* >> Início da inclusão: FORM TRATA_BUTTON_ENTE
SELECT * FROM /pws/zycit250 INTO TABLE itab_areas
WHERE nrseqd EQ /pws/zycie238-nrseqd.
* << Fim da inclusão
SELECT * FROM /pws/zycit243 INTO TABLE itab_centros
WHERE nrseqd EQ /pws/zycie238-nrseqd.
SORT itab_centros BY werks ASCENDING.
* >> Início da inclusão: FORM TRATA_BUTTON_ENTE
SORT itab_areas BY codagrup ASCENDING.
* << Fim da inclusão
pressed_tab = 'FS_CABEC'.
dynpronr = '0101'.
IF NOT /pws/zycie238-atocon IS INITIAL.
MESSAGE i015 WITH text-139 text-140.
...
...
v_status = 0.
ENDIF.
IF v_tcode EQ '/PWS/ZYCI040_N'.
PERFORM lock_record.
ENDIF.
wa_zycit238 = /pws/zycie238.
itab_exp_save[] = itab_exp[].
itab_compn_final_save[] = itab_compn_final[].
itab_compi_final_save[] = itab_compi_final[].
itab_centros_save[] = itab_centros[].
* >> Início da inclusão: FORM TRATA_BUTTON_ENTE
itab_areas_save[] = itab_areas[].
* << Fim da inclusão
CALL SCREEN 0100.
ELSE.
MESSAGE s061 WITH text-034 /pws/zycie238-nrseqd text-035.
ENDIF.
ENDFORM.
FORM lock_record.
CHECK v_tcode = '/PWS/ZYCI040_N' AND NOT /pws/zycie238-nrseqd IS
INITIAL.
CALL FUNCTION '/PWS/ZYCI_ENQUEUE_ZYCIT238'
EXPORTING
...
...
itab_compi_final-marki = ' '.
MODIFY itab_compi_final.
ENDLOOP.
CLEAR: itab_exp_save ,
itab_exp ,
itab_compn_final_save,
itab_compn_final ,
itab_compi_final_save,
itab_compi_final ,
itab_centros_save ,
* >> Início da exclusão: FORM LIMPA_MARK
itab_centros .
* << Fim da exclusão
* >> Início da inclusão: FORM LIMPA_MARK
itab_centros ,
itab_areas_save ,
itab_areas .
* << Fim da inclusão
ENDFORM.
FORM trata_button_excl.
DATA: v_confirm(1) TYPE c VALUE 'N'.
IF NOT /pws/zycie238-atocon IS INITIAL.
MESSAGE w061 WITH text-082 text-083 /pws/zycie238-atocon.
EXIT.
ENDIF.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
titlebar = text-039
...
...
answer = v_confirm
EXCEPTIONS
text_not_found = 1
OTHERS = 2.
IF v_confirm EQ '1'.
DELETE FROM /pws/zycit238 WHERE nrseqd = /pws/zycie238-nrseqd.
DELETE FROM /pws/zycit239 WHERE nrseqd = /pws/zycie238-nrseqd.
DELETE FROM /pws/zycit240 WHERE nrseqd = /pws/zycie238-nrseqd.
DELETE FROM /pws/zycit243 WHERE nrseqd = /pws/zycie238-nrseqd.
DELETE FROM /pws/zycit249 WHERE nrseqd = /pws/zycie238-nrseqd.
* >> Início da inclusão: FORM TRATA_BUTTON_EXCL
DELETE FROM /pws/zycit250 WHERE nrseqd = /pws/zycie238-nrseqd.
* << Fim da inclusão
COMMIT WORK.
PERFORM free_fields.
LEAVE TO SCREEN 0.
ENDIF.
ENDFORM.
FORM apura_qtde_di CHANGING v_qtde_di.
CLEAR: it_di, v_qtde_di. REFRESH it_di.
SELECT * FROM /pws/zycit246 INTO TABLE it_di
WHERE nrseqd = /pws/zycie238-atocon.
IF sy-subrc EQ 0.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI063F03
...
AND datuv <= sy-datum
AND datub >= sy-datum.
LOOP AT itab_zycit422.
MOVE: itab_zycit422-werks TO i_final-centro,
itab_zycit422-idnrk TO i_final-insumo,
itab_zycit422-menge TO i_final-qtunit,
itab_zycit422-meins TO i_final-meins.
APPEND i_final.
ENDLOOP.
ENDFORM.
* >> Início da inclusão:
FORM execute_button_btn3.
MOVE /pws/zycie238-codagrup TO v_areas.
CALL SCREEN '0110' STARTING AT 33 5.
READ TABLE itab_areas INDEX 1.
IF sy-subrc EQ 0 AND v_areas IS INITIAL.
MOVE itab_areas-codagrup TO /pws/zycie238-codagrup.
ELSE.
MOVE v_areas TO /pws/zycie238-codagrup.
ENDIF.
DELETE itab_areas WHERE codagrup = /pws/zycie238-codagrup.
SET CURSOR FIELD /pws/zycie238-codagrup.
CLEAR v_areas.
ENDFORM.
FORM altera_area.
IF NOT /pws/zycie238-codagrup IS INITIAL
AND itab_centros[] IS INITIAL.
SELECT *
FROM /pws/zycit475
INTO TABLE itab_zycit475
WHERE codagrup = /pws/zycie238-codagrup.
IF sy-subrc = 0.
LOOP AT itab_zycit475.
MOVE: itab_zycit475-werks TO itab_centros-werks,
/pws/zycie238-nrseqd TO itab_centros-nrseqd,
itab_zycit475-codagrup TO itab_areas-codagrup,
/pws/zycie238-nrseqd TO itab_areas-nrseqd.
APPEND itab_areas.
APPEND itab_centros.
ENDLOOP.
MOVE /pws/zycie238-werks TO v_werks.
READ TABLE itab_centros INDEX 1.
IF sy-subrc EQ 0 AND v_werks IS INITIAL.
MOVE itab_centros-werks TO /pws/zycie238-werks.
ELSE.
MOVE v_werks TO /pws/zycie238-werks.
ENDIF.
DELETE itab_centros WHERE werks = /pws/zycie238-werks.
SET CURSOR FIELD /pws/zycie238-werks.
CLEAR v_werks.
MOVE /pws/zycie238-codagrup TO v_areas.
READ TABLE itab_areas INDEX 1.
IF sy-subrc EQ 0 AND v_areas IS INITIAL.
MOVE itab_areas-codagrup TO /pws/zycie238-codagrup.
ELSE.
MOVE v_areas TO /pws/zycie238-codagrup.
ENDIF.
DELETE itab_areas WHERE codagrup = /pws/zycie238-codagrup.
SET CURSOR FIELD /pws/zycie238-codagrup.
CLEAR v_areas.
ENDIF.
ENDIF.
SORT itab_centros.
DELETE ADJACENT DUPLICATES FROM itab_centros.
SORT itab_areas.
DELETE ADJACENT DUPLICATES FROM itab_areas.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI063I01
...
ENDMODULE.
MODULE altera_bukrs INPUT.
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
ID 'BUKRS' FIELD /pws/zycie238-bukrs
ID 'ACTVT' FIELD '01'.
IF sy-subrc NE 0.
MESSAGE i015 WITH text-291 /pws/zycie238-bukrs.
CLEAR: /pws/zycie238-bukrs.
ENDIF.
ENDMODULE.
* >> Início da inclusão:
MODULE modify_records3 INPUT.
READ TABLE itab_areas INDEX tc_areas-current_line.
IF sy-subrc EQ 0.
IF NOT itab_areas-codagrup IS INITIAL AND
NOT /pws/zycie238-codagrup IS INITIAL.
itab_areas-nrseqd = /pws/zycie238-nrseqd.
itab_areas-codagrup = /pws/zycie238-codagrup .
MODIFY itab_areas INDEX tc_areas-current_line.
ELSE.
DELETE itab_areas INDEX tc_areas-current_line.
ENDIF.
ELSE.
IF NOT /pws/zycie238-codagrup IS INITIAL.
itab_areas-nrseqd = /pws/zycie238-nrseqd.
itab_areas-codagrup = /pws/zycie238-codagrup .
COLLECT itab_areas.
ENDIF.
ENDIF.
CLEAR itab_areas.
IF NOT itab_areas[] IS INITIAL.
SELECT *
FROM /pws/zycit475
INTO TABLE itab_zycit475
FOR ALL ENTRIES IN itab_areas
WHERE codagrup = itab_areas-codagrup.
IF sy-subrc = 0.
LOOP AT itab_zycit475.
MOVE: itab_zycit475-werks TO itab_centros-werks,
/pws/zycie238-nrseqd TO itab_centros-nrseqd.
APPEND itab_centros.
ENDLOOP.
SORT itab_centros BY werks.
DELETE ADJACENT DUPLICATES FROM itab_centros.
ENDIF.
ENDIF.
ENDMODULE.
MODULE user_command_0110 INPUT.
DATA: v_exc_areas.
CASE ok_code.
WHEN 'CANCE' OR 'CANCEL'.
IF /pws/zycie238-werks IS INITIAL.
READ TABLE itab_centros INDEX 1.
/pws/zycie238-werks = itab_centros-werks.
DELETE itab_centros WHERE werks = /pws/zycie238-werks.
ENDIF.
IF /pws/zycie238-codagrup = itab_areas-codagrup.
READ TABLE itab_areas INDEX 1.
/pws/zycie238-codagrup = itab_areas-codagrup.
ENDIF.
LEAVE TO SCREEN 0.
ENDCASE.
CLEAR ok_code2.
ENDMODULE.
MODULE altera_areas INPUT.
CASE ok_code.
WHEN 'ENTE'.
PERFORM altera_area.
ENDCASE.
ENDMODULE.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI063O01
...
LOOP AT tc_centros-cols INTO wa_cols.
IF wa_cols-screen-group1 NE 'NEX'.
wa_cols-screen-input = v_status.
MODIFY tc_centros-cols FROM wa_cols.
ENDIF.
ENDLOOP.
WHEN '0108'.
PERFORM check_screen_0108.
WHEN '0109'.
PERFORM check_screen_0109.
* >> Início da inclusão: MODULE SET_SCREEN
WHEN '0110'.
LOOP AT tc_areas-cols INTO wa_cols.
IF wa_cols-screen-group1 NE 'NEX'.
wa_cols-screen-input = v_status.
MODIFY tc_areas-cols FROM wa_cols.
ENDIF.
ENDLOOP.
* << Fim da inclusão
ENDCASE.
ENDMODULE.
MODULE set_page_comp OUTPUT.
ts_comp = pressed_tab2.
ENDMODULE.
MODULE status_0106 OUTPUT.
SET PF-STATUS 'ST0106'.
ENDMODULE.
MODULE refresh_internal_table OUTPUT.
/pws/zycie238-werks = itab_centros-werks.
...
...
/pws/zycie434 = itab_zycit434.
mark = itab_zycit434-mark.
ENDMODULE.
MODULE status_0315 OUTPUT.
SET PF-STATUS 'ST0315'.
DESCRIBE TABLE itab_zycit434 LINES v_linhas.
tc_centros3-lines = v_linhas + 10.
ENDMODULE.
MODULE trata_imp_s_cob_camb OUTPUT.
ENDMODULE.
* >> Início da inclusão:
MODULE status_0110 OUTPUT.
SET PF-STATUS 'ST0110'.
ENDMODULE.
MODULE refresh_internal_table3 OUTPUT.
/pws/zycie238-codagrup = itab_areas-codagrup.
tc_areas-lines = tc_areas-lines + 10.
ENDMODULE.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI063TOP
...
CONTROLS: ts_cabec TYPE TABSTRIP ,
ts_comp TYPE TABSTRIP ,
tc_exp TYPE TABLEVIEW USING SCREEN '0102',
tc_compn TYPE TABLEVIEW USING SCREEN '0104',
tc_compi TYPE TABLEVIEW USING SCREEN '0105',
tc_centros TYPE TABLEVIEW USING SCREEN '0106',
tc_itn TYPE TABLEVIEW USING SCREEN '0107',
tc_iti TYPE TABLEVIEW USING SCREEN '0107',
tc_viab TYPE TABLEVIEW USING SCREEN '0108',
tc_res TYPE TABLEVIEW USING SCREEN '0109',
* >> Início da inclusão:
tc_areas TYPE TABLEVIEW USING SCREEN '0110',
* << Fim da inclusão
tc_forms TYPE TABLEVIEW USING SCREEN '0500'.
DATA: ok_code LIKE sy-ucomm ,
v_tcode LIKE sy-tcode ,
v_status(1) TYPE c VALUE '1' ,
pressed_tab LIKE sy-ucomm VALUE 'FS_CABEC' ,
pressed_tab2 LIKE sy-ucomm VALUE 'FS_NAC' ,
modul(30) TYPE c VALUE '/PWS/SAPMZYCI063' ,
dynpronr(4) TYPE c VALUE '0101' ,
dynpronr2(4) TYPE c VALUE '0104' ,
v_ico1 TYPE icons-text ,
...
...
v_sld_compv TYPE p DECIMALS 5,
v_sld_compv2 TYPE p DECIMALS 5,
v_umncm LIKE /pws/zyglt204-zum ,
v_um_basica LIKE mara-meins ,
v_um_rez LIKE marm-umrez ,
v_um_ren LIKE marm-umren ,
v_imp_camb LIKE /pws/zycit239-imp_s_cob_camb,
v_comis_t like /pws/zycie239-vl_comis_t,
v_fob_t like /pws/zycie239-vl_comis_t,
v_fob_viab like /pws/zycie239-vl_comis_t,
* >> Início da exclusão:
v_desc_agr(35) TYPE c .
* << Fim da exclusão
* >> Início da inclusão:
v_desc_agr(35) TYPE c ,
v_areas LIKE /pws/zycie238-codagrup.
* << Fim da inclusão
DATA: wa_zycbt007 LIKE /pws/zycbt007 ,
wa_zycit238 LIKE /pws/zycie238 ,
wa_cols TYPE cxtab_column .
DATA: tdynpread LIKE dynpread OCCURS 0 WITH HEADER LINE,
v_codcomp LIKE mara-matnr ,
v_codcomp_aux LIKE mara-matnr .
DATA: BEGIN OF itab_zycev604 OCCURS 0.
INCLUDE STRUCTURE /pws/zycev604.
DATA: END OF itab_zycev604.
DATA: BEGIN OF itab_centros OCCURS 0.
INCLUDE STRUCTURE /pws/zycit243 .
DATA: END OF itab_centros .
DATA: BEGIN OF itab_centros_save OCCURS 0.
INCLUDE STRUCTURE /pws/zycit243 .
DATA: END OF itab_centros_save .
* >> Início da inclusão:
DATA: BEGIN OF itab_areas OCCURS 0.
INCLUDE STRUCTURE /pws/zycit250.
DATA: END OF itab_areas.
DATA: BEGIN OF itab_areas_save OCCURS 0.
INCLUDE STRUCTURE /pws/zycit250 .
DATA: END OF itab_areas_save .
* << Fim da inclusão
DATA: BEGIN OF itab_exp OCCURS 0.
INCLUDE STRUCTURE /pws/zycie239.
DATA: mark(1) TYPE c .
DATA: END OF itab_exp .
DATA: BEGIN OF itab_exp_save OCCURS 0.
INCLUDE STRUCTURE /pws/zycie239 .
DATA: mark(1) TYPE c .
DATA: END OF itab_exp_save .
* >> Início da inclusão:
DATA: BEGIN OF itab_exp2 OCCURS 0.
INCLUDE STRUCTURE /pws/zycie238.
DATA: mark(1) TYPE c .
DATA: END OF itab_exp2 .
DATA: BEGIN OF itab_exp_save2 OCCURS 0.
INCLUDE STRUCTURE /pws/zycie238 .
DATA: mark(1) TYPE c .
DATA: END OF itab_exp_save2 .
* << Fim da inclusão
DATA: BEGIN OF itab_compn OCCURS 0.
INCLUDE STRUCTURE /pws/zycie240.
DATA: markn(1) TYPE c .
DATA: END OF itab_compn .
DATA: BEGIN OF itab_compn_final OCCURS 0.
INCLUDE STRUCTURE /pws/zycie240 .
DATA: markn(1) TYPE c .
DATA: END OF itab_compn_final .
DATA: BEGIN OF itab_compn_final_save OCCURS 0.
INCLUDE STRUCTURE /pws/zycie240 .
...
...
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 p DECIMALS 5,
meins LIKE stpox-meins.
DATA: END OF i_final.
* >> Início da inclusão:
DATA: BEGIN OF itab_zycit475 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit475.
DATA: END OF itab_zycit475.
* << Fim da inclusão
DATA: itab_zycit407 LIKE /pws/zycit407 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: toolbar_container1 TYPE REF TO cl_gui_custom_container,
* >> Início da inclusão:
toolbar_container3 TYPE REF TO cl_gui_custom_container,
* << Fim da inclusão
tool_container1 TYPE scrfname VALUE 'BTN1' ,
* >> Início da inclusão:
tool_container3 TYPE scrfname VALUE 'BTN3' ,
* << Fim da inclusão
myevent_tab TYPE cntl_simple_events ,
* >> Início da inclusão:
myevent_tab3 TYPE cntl_simple_events ,
* << Fim da inclusão
myevent TYPE cntl_simple_event ,
* >> Início da exclusão:
btn1 TYPE REF TO cl_gui_toolbar .
* << Fim da exclusão
* >> Início da inclusão:
myevent3 TYPE cntl_simple_event ,
btn1 TYPE REF TO cl_gui_toolbar ,
btn3 TYPE REF TO cl_gui_toolbar .
* << Fim da inclusão
CLASS lcl_my_event_handler1 DEFINITION.
PUBLIC SECTION.
METHODS on_function_selected
FOR EVENT function_selected OF cl_gui_toolbar
IMPORTING fcode.
ENDCLASS.
DATA: evt_receiver1 TYPE REF TO lcl_my_event_handler1.
CLASS lcl_my_event_handler1 IMPLEMENTATION.
METHOD on_function_selected.
CASE fcode.
WHEN 'BTN1'.
PERFORM execute_button_btn1.
* >> Início da inclusão:
ENDCASE.
ENDMETHOD.
ENDCLASS.
CLASS lcl_my_event_handler3 DEFINITION.
PUBLIC SECTION.
METHODS on_function_selected
FOR EVENT function_selected OF cl_gui_toolbar
IMPORTING fcode.
ENDCLASS.
DATA: evt_receiver3 TYPE REF TO lcl_my_event_handler3.
CLASS lcl_my_event_handler3 IMPLEMENTATION.
METHOD on_function_selected.
CASE fcode.
WHEN 'BTN3'.
PERFORM execute_button_btn3.
* << Fim da inclusão
ENDCASE.
ENDMETHOD.
ENDCLASS.
SELECTION-SCREEN BEGIN OF SCREEN 0312 AS WINDOW TITLE text-098.
SELECT-OPTIONS p_matnr FOR mara-matnr OBLIGATORY.
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.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI063TOP2
...
relid LIKE stxl-relid ,
tdobject LIKE stxl-tdobject,
tdname LIKE stxl-tdname ,
tdid LIKE stxl-tdid ,
tdspras LIKE stxl-tdspras ,
srtf2 LIKE stxl-srtf2 ,
END OF wa_stxl .
DATA: BEGIN OF itab_matchcode OCCURS 0.
DATA: tipo TYPE c,
END OF itab_matchcode.
* >> Início da inclusão:
DATA: BEGIN OF itab_matcharea OCCURS 0.
INCLUDE STRUCTURE /pws/zycit395.
DATA: END OF itab_matcharea.
* << Fim da inclusão
DATA: BEGIN OF itab_botoes2 OCCURS 0.
DATA: bname(20) TYPE c .
DATA: END OF itab_botoes2 .
DATA: BEGIN OF it_log_erro OCCURS 0.
DATA: ltext(135) TYPE c.
DATA: END OF it_log_erro.
DATA: BEGIN OF it_vals OCCURS 200,
imps(90) TYPE c,
END OF it_vals.
DATA: BEGIN OF itab_centros2 OCCURS 0.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/SAPMZYCI063
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI063
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 292
Texto: (37 caracteres)
"Sem permissão para a Area de Negócio:"
Comprimento máximo: 37
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 293
Texto: (28 caracteres)
"Areas Associadas ao DrawBack"
Comprimento máximo: 30
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 294
Texto: (35 caracteres)
"Preencher o campo: Centro Produtivo"
Comprimento máximo: 35
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIE238
MODIFICAR ESTRUTURA: /PWS/ZYCIE238______________________________
DESCRIÇÃO BREVE: CI - ForeCast Cabeçalho
COMPONENTES MODIFICADOS
COMPONENTE: TP. COMP: TAB.VERIF.: TAB.REF.: CPO.REF.: AJUD. PESQU.
CODAGRUP /PWS/ZYCIL613 /PWS/ZYCIT395
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIT250
MODIFICAR TABELA TRANSPARENTE: /PWS/ZYCIT250
DESCRIÇÃO BREVE: CI - Area de Negócios Associadas ao DrawBack
CARACTERÍSTICAS
CATEGORIA DA TABELA: Tabela transparente
CLASSE DE ENTREGA: A Tabela de aplicação (dados mestre e de movimento)
(X) - AUTUALIZAÇÃO DE TABELAS PERMITIDA
CAMPOS NOVOS
CAMPOS: TP. CAMPO CH: INI: TAB.VERIF.: TAB.REF.: CPO.RE
MANDT MANDT X X
NRSEQDZ /PWS/ZYCIL413 X X
CODAGRUP /PWS/ZYCIL613 X X /PWS/ZYCIT475
OPÇÕES TÉCNICAS
TIPO DE DADOS: APPL0
CATEGOR. TAMANHO: 4
(X) - AR. BUFFER NÃO PERMITIDO
(_) - AR. BUFFER PERMITIDO, MAS DESATIVADO
(_) - AR. BUFFER ATIVADO
(_) - RGSTS. IND ARMAZENADOS
(_) - ÁREA GEN ARMAZENADA EM BUFFER Nº DE CPOS CHAVE: ______
(_) - TOTALMENTE ARMAZENADO
(_) - REGISTRAR MODIFICS. DDS. EM LOG.