Tabstrip Problem in Dynpro's

[Former Member]

I am using below code but in tabstrip tag function code is not working properly

would any body help me.

REPORT ZSUBSCREENS.

tables:crhd,afru,zsabpce.

data: itab like zsabpce occurs 0 with header line.

controls:tab1 type tabstrip.

controls:control1 type tableview using screen '200'.

data:ok_code1 like sy-ucomm,

okcode1 like sy-ucomm.

tab1-activetab = 'DISPLAY'.

call screen 100.

&----

---

*& Module STATUS_0100 OUTPUT

&----

---

• text

----

---

module STATUS_0100 output.

SET PF-STATUS 'ZSTATUS'.

• SET TITLEBAR 'xxx'.

tab1-ACTIVETAB = 'DISP'.

endmodule.

&----

---

*& Module USER_COMMAND_0100 INPUT

&----

---

• text

----

---

MODULE user_command_0100 INPUT.

*tab1-activetab = 'DISP'.

*tab1-activetab = 'ok_code1'.

okcode1 = ok_code1.

clear ok_code1.

*tab1-activetab = 'okcode1'.

*case ok_code1.

• WHEN 'DISP'.

if okcode1 = 'DISP'.

SELECT * FROM zsabpce INTO CORRESPONDING FIELDS OF TABLE itab WHERE

zdate = zsabpce-zdate.

if sy-subrc <> 0.

message i000(001) with 'record not found'.

exit.

endif.

• when 'BACK'.

elseif okcode1 = 'BACK'.

leave program.

*endcase.

endif.

ENDMODULE. " USER_COMMAND_0100 INPUT

What is the problem would any body help me.

[Former Member]

I am using below code but in tabstrip tag function code is not working properly

would any body help me.

REPORT ZSUBSCREENS.

tables:crhd,afru,zsabpce.

data: itab like zsabpce occurs 0 with header line.

controls:tab1 type tabstrip.

controls:control1 type tableview using screen '200'.

data:ok_code1 like sy-ucomm,

okcode1 like sy-ucomm.

tab1-activetab = 'DISPLAY'.

call screen 100.

&----

---

*& Module STATUS_0100 OUTPUT

&----

---

• text

----

---

module STATUS_0100 output.

SET PF-STATUS 'ZSTATUS'.

• SET TITLEBAR 'xxx'.

tab1-ACTIVETAB = 'DISP'.

endmodule.

&----

---

*& Module USER_COMMAND_0100 INPUT

&----

---

• text

----

---

MODULE user_command_0100 INPUT.

*tab1-activetab = 'DISP'.

*tab1-activetab = 'ok_code1'.

okcode1 = ok_code1.

clear ok_code1.

*tab1-activetab = 'okcode1'.

*case ok_code1.

• WHEN 'DISP'.

if okcode1 = 'DISP'.

SELECT * FROM zsabpce INTO CORRESPONDING FIELDS OF TABLE itab WHERE

zdate = zsabpce-zdate.

if sy-subrc <> 0.

message i000(001) with 'record not found'.

exit.

endif.

• when 'BACK'.

elseif okcode1 = 'BACK'.

leave program.

*endcase.

endif.

ENDMODULE. " USER_COMMAND_0100 INPUT

What is the problem would any body help me.

[Former Member]

How many tabs do you have in your tabstrip?

[Former Member]

Only one tab thai is DISPLAY and function code is' DISP'

[Former Member]

So how will the function code get enabled? The program will never get the okcode1 as DISP because you are not clicking on that corresponding button on the tab-strip. If you have only one tab, I suggest you use a box instead of a tabstrip.

Manoj

[Former Member]

Check this code sample for tabstrip.

https://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/022ba607-0301-0010-e382-fdedca55...

[Former Member]

Hi chaitanya,

May i know where are u writing the code for your subscreen?

See using the Display Tab trigger you are filling the table...but where are u displaying it...i.e. it has to be displayed in the subscreen rite? where is that being written...i assume u are using a table control for that in screen 200...just check that out...

Otherwise i dont see any problem with this...

Correct me if i am wrong or if misunderstood ur question...!

Thanks and Regards,

Sriram.