Age: 41 Joined: 28 Jun 2010 Posts: 6 Location: Riga
Posted: Wed Jul 14, 2010 11:39 am Post subject:
Ctrl + F1.
Code:
TYPE-POOLS: abap,
icon.
TABLES SSCRFIELDS.
CONSTANTS: BEGIN OF st_h,
TEXT type SMP_DYNTXT-TEXT VALUE IS INITIAL,
ICON_ID type SMP_DYNTXT-ICON_ID VALUE ICON_DEACTIVATE,
ICON_TEXT type SMP_DYNTXT-ICON_TEXT VALUE IS INITIAL,
QUICKINFO type SMP_DYNTXT-QUICKINFO VALUE 'Hide',
END OF st_h,
BEGIN OF st_s,
TEXT type SMP_DYNTXT-TEXT VALUE IS INITIAL,
ICON_ID type SMP_DYNTXT-ICON_ID VALUE ICON_ACTIVATE,
ICON_TEXT type SMP_DYNTXT-ICON_TEXT VALUE IS INITIAL,
QUICKINFO type SMP_DYNTXT-QUICKINFO VALUE 'Show',
END OF st_s.
DATA: switch type i.
SELECTION-SCREEN FUNCTION KEY 1.
PARAMETERS:
NAME TYPE CHAR80 LOWER CASE,
REGION TYPE REGIO,
SOME_TXT TYPE CHAR255 MODIF ID txt.
INITIALIZATION.
sscrfields-functxt_01 = st_s.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
CHECK screen-group1 EQ 'TXT'.
screen-active = switch.
MODIFY SCREEN.
ENDLOOP.
AT SELECTION-SCREEN.
CHECK sscrfields-ucomm EQ 'FC01'.
CASE switch.
when 1.
switch = 0.
sscrfields-functxt_01 = st_s.
when others.
switch = 1.
sscrfields-functxt_01 = st_h.
ENDCASE.
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum You cannot attach files in this forum You can download files in this forum
All product names are trademarks of their respective companies. SAPNET.RU websites are in no way affiliated with SAP AG. SAP, SAP R/3, R/3 software, mySAP, ABAP, BAPI, xApps, SAP NetWeaver and any other are registered trademarks of SAP AG. Every effort is made to ensure content integrity. Use information on this site at your own risk.