topic Re: Tabstrip - active tab in Application Development and Automation Discussions

Tabstrip - active tab

Former Member — Tue, 12 Feb 2008 00:42:01 GMT

How am I suppose to make my tab being active if my textbox is initial?

Here is my codes and what I want to do:


MODULE USER_COMMAND_9000 INPUT.

IF SY-UCOMM = 'BACK'.
  LEAVE PROGRAM.
ELSEIF SY-UCOMM = 'EXIT'.
  LEAVE PROGRAM.
ELSEIF SY-UCOMM = 'CANCEL'.
  LEAVE PROGRAM.
ELSEIF SY-UCOMM = 'SAVE'.

  IF IO_NAME IS NOT INITIAL AND IO_AGE IS NOT INITIAL AND IO_GENDER IS NOT INITIAL.
  PERFORM INSERT_TABLE.

  ENDIF.
  IF IO_NAME IS INITIAL .
      MESSAGE E004(ZMSG02).

*Add codes to make the first tab active* 

  ELSEIF IO_AGE IS INITIAL.
    MESSAGE E005(ZMSG02).

*Add codes to make the second tab active* 

  ELSEIF IO_GENDER IS INITIAL.
    MESSAGE E006(ZMSG02).

*Add codes to make the third tab active* 

    ENDIF.
ENDIF.

ENDMODULE. "USER_COMMAND_9000 INPUT

What code am I suppose to add for my codes of my tabstrips?

Re: Tabstrip - active tab

former_member194669 — Tue, 12 Feb 2008 03:06:03 GMT

something like this way


MODULE STATUS_0100 OUTPUT.
SET PF-STATUS 'MAIN'.
SET TITLEBAR 'xxx'.

IF tabstrip-activetab IS INITIAL OR dynnr IS INITIAL.
   tabstrip-activetab = 'TAB1'. 
   dynnr = '0110'. 
ENDIF. 
ENDMODULE. " STATUS_0100 OUTPUT

Re: Tabstrip - active tab

Former Member — Tue, 12 Feb 2008 04:19:06 GMT

MODULE user_command_0200 INPUT.

CASE okcode.

WHEN 'TB1'.

tsc-activetab = 'TB1'.

v_dynnr = '201'.

WHEN 'TB2'.

tsc-activetab = 'TB2'.

v_dynnr = '202'.

WHEN 'TB3'.

SELECT banks bankl bankn bkont

FROM knbk

INTO wa_knbk

WHERE kunnr = v_kunnr.

ENDSELECT.

v_banks = wa_knbk-banks.

v_bankl = wa_knbk-bankl.

v_bankn = wa_knbk-bankn.

v_bkont = wa_knbk-bkont.

IF sy-subrc = 0.

tsc-activetab = 'TB3'.

v_dynnr = '203'.

ELSE .

MESSAGE i000(xyz_msgclass) WITH text-002.

ENDIF.

WHEN 'BACK' OR 'CANCEL' OR 'TOP'.

v_dynnr = '201'.

tsc-activetab = 'TB1'.

LEAVE TO SCREEN '100'.

CLEAR okcode.

ENDCASE.

TB1,TB2 are tab strip names