Site-ul consultantilor SAP din Romania
http://www.sap-consulting.ro/phpbb/

tabstrip control
http://www.sap-consulting.ro/phpbb/viewtopic.php?f=1&t=331		 Pagina 1 din 1
Autor:  seba [ Lun, 09-Oct-2006 15:23 ]
Subiectul mesajului:  tabstrip control
salut
daca ma puteti ajuta,nu stiu cum sa fac vizibil/invizibil un strip (asta dinamic)
dintr-un tabstrip control.Eventual daca ma poate ajuta cineva cu structura TABSTRIP (campurile acesteia).
Autor:  cata_nasty [ Lun, 09-Oct-2006 16:33 ]
Subiectul mesajului: 
Salut.

Uite un scurt exemplu aici :

REPORT z_test_subscreen .

CALL SCREEN 100.

CONSTANTS: BEGIN OF C_TABS,
TAB1 LIKE SY-UCOMM VALUE 'TAB1',
TAB2 LIKE SY-UCOMM VALUE 'TAB2',
END OF C_TABS.

CONTROLS: TABS TYPE TABSTRIP.
DATA: BEGIN OF G_TABS,
SUBSCREEN LIKE SY-DYNNR,
PROG LIKE SY-REPID VALUE 'Z_TEST_SUBSCREEN',
PRESSED_TAB LIKE SY-UCOMM VALUE C_TABS-TAB1,
END OF G_TABS.

DATA: ok_code LIKE sy-ucomm.

*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
SET PF-STATUS 'PF-100'.
* SET TITLEBAR 'xxx'.

ENDMODULE. " STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
MODULE user_command_0100 INPUT.

CASE ok_code.
WHEN 'BACK'.
LEAVE PROGRAM.
ENDCASE.

ENDMODULE. " USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
*& Module ACTIVE_TAB_SET OUTPUT
*&---------------------------------------------------------------------*
module ACTIVE_TAB_SET output.

TABS-ACTIVETAB = G_TABS-PRESSED_TAB.
CASE G_TABS-PRESSED_TAB.
WHEN C_TABS-TAB1.
G_TABS-SUBSCREEN = '0101'.
WHEN C_TABS-TAB2.
G_TABS-SUBSCREEN = '0102'.
WHEN OTHERS.
ENDCASE.


endmodule. " ACTIVE_TAB_SET OUTPUT
*&---------------------------------------------------------------------*
*& Module active_tab_get INPUT
*&---------------------------------------------------------------------*
module active_tab_get input.

CASE OK_CODE.
WHEN C_TABS-TAB1.
G_TABS-PRESSED_TAB = C_TABS-TAB1.
WHEN C_TABS-TAB2.
G_TABS-PRESSED_TAB = C_TABS-TAB2.
WHEN OTHERS.
ENDCASE.

endmodule. " active_tab_get INPUT


iar in screenul 100 ai urmatoare bucata :
PROCESS BEFORE OUTPUT.
MODULE active_tab_set.
CALL SUBSCREEN tab_ref1 INCLUDING sy-repid g_tabs-subscreen.
MODULE status_0100.
*
PROCESS AFTER INPUT.
CALL SUBSCREEN tab_ref1.
MODULE active_tab_get.
MODULE user_command_0100.

Trebuie in plus sa mai creezi screenurile 101 si 102 (sub screenuri) si statusul PF-100.

Sper sa mearga!
Succes!!!
Autor:  seba [ Mie, 11-Oct-2006 18:41 ]
Subiectul mesajului: 
Salut
Mersi de ajutor , imi merge si mie :)
Pagina 1 din 1 Ora este UTC + 2 [ DST ]
Powered by phpBB® Forum Software © phpBB Group
https://www.phpbb.com/