topic Re: Table Control in Application Development and Automation Discussions

Table Control

Former Member — Fri, 29 Sep 2006 08:13:10 GMT

Hi SDN,

I have a button in a table control, initially i want all the buttons to be invisible.

when user fills in any row i want the button to be visible.

Please help in some sample code.

Thanks

Pratyusha

Re: Table Control

Former Member — Fri, 29 Sep 2006 08:23:03 GMT

Hi Pratyu,

1. In the PBO check if the user has entered anything in the table control.

a. If no, then in Loop at screen of PBO.

For the fieldname of the button, set active = 0.

b. Else set active = 1.

Hope this helps.

Regards.

Re: Table Control

Former Member — Fri, 29 Sep 2006 08:32:50 GMT

Hi,

PROCESS BEFORE OUTPUT.

MODULE validate_fields.

MODULE Validate_fields.

if itab_tc[] is initial.

loop at screen.

if screen-name = 'button1'.

screen-invisible = 0.

modify screen.

endif.

endloop.

endif.

ENDMODULE.

Best regards,

Prashant

Re: Table Control

Former Member — Fri, 29 Sep 2006 08:42:44 GMT

Hi prashanth,

thanks for the reply, ur code worked out

but if in a row of table control if i enter a value buttons in all rows are being visible.

i dont need it that way, i wnat the button to be visible in each row only if the row contains a value

Thanks in advance

Pratyusha

Re: Table Control

Former Member — Fri, 29 Sep 2006 08:46:12 GMT

Hi,

In PBO

if itab[] is initial.

loop at screen.

if screen-name = 'BUTT'.

screen-visible = 0.

mofify screen.

endif.

endloop.

else.

loop at screen.

if screen-name = 'BUTT'.

screen-visible = 1.

mofify screen.

endif.

endloop.

endif.

Regards

amole

Re: Table Control

Former Member — Fri, 29 Sep 2006 08:52:33 GMT

Hi Pratyu,

Please change the code as follows :

Hi,

PROCESS BEFORE OUTPUT.

LOOP AT itab_tc INTO wa_tc WITH CONTROL tc_tab CURSOR

tc_tab-current_line.

MODULE validate_fields.

ENDLOOP.

MODULE Validate_fields.

loop at screen.

if screen-name = 'button1'.

screen-invisible = 0.

modify screen.

endif.

endloop.

endif.

ENDMODULE.

Best regards,

Prashant

PS : Please reward all helpful answers

Re: Table Control

Former Member — Fri, 29 Sep 2006 09:02:06 GMT

this is what i changed to, but its giving a syntax error that "The addition "WITH CONTROL TC_ITEM" is missing in a LOOP in PBO."

Code as below :

loop at IT_RFQITEM into IS_RFQITEM with control TC_ITEM

cursor TC_ITEM-CURRENT_LINE.

module DISP_MODE.

endloop.

module DISP_MODE output.

if IT_RFQITEM[] is initial.

loop at screen.

if SCREEN-NAME = 'LT'.

SCREEN-INVISIBLE = 1.

modify screen.

endif.

endloop.

endif.

endmodule. " disp_mode OUTPUT

PAI is like this

loop with control TC_ITEM.

chain.

field: ZES_RFQ_ITEM-RFQ_LN,

ZES_RFQ_ITEM-RFQ_STEXT,

ZES_RFQ_ITEM-RFQ_QTY,

ZES_RFQ_ITEM-RFQ_UOM,

ZES_RFQ_ITEM-WAERS,

ZES_RFQ_ITEM-RFQ_LAMT,

ZES_RFQ_ITEM-WARRANTY,

ZES_RFQ_ITEM-REJ_CODE.

module READ_TC.

endchain.

endloop.

Thanks

Pratyusha

Re: Table Control

Former Member — Fri, 29 Sep 2006 09:05:54 GMT

Hi Pratyu,

loop at IT_RFQITEM into IS_RFQITEM with control TC_ITEM

cursor TC_ITEM-CURRENT_LINE.

module DISP_MODE.

endloop.

module DISP_MODE output.

if IT_RFQITEM[] is initial. NOT REQUIRED

loop at screen.

if SCREEN-NAME = 'LT'.

SCREEN-INVISIBLE = 1.

modify screen.

Endif.

endloop.

* endif. Not Required

endmodule. " disp_mode OUTPUT

Please declare the following in your top include :

CONTROLS: tc_item TYPE TABLEVIEW USING SCREEN 0100.

Best regards,

Prashant

PS : Please reward all helpful answers

Re: Table Control

Former Member — Fri, 29 Sep 2006 09:12:45 GMT

Yes of course i declared the controls in top include.

and i took off the NOT REQUIRED mentioned by you.

but still i get the same error cursor pointing at PAI.

Thanks

Pratyusha

Re: Table Control

Former Member — Fri, 29 Sep 2006 09:17:36 GMT

Hi Pratyu,

PAI is like this

loop AT IT_RFQITEM.

chain.

field: ZES_RFQ_ITEM-RFQ_LN,

ZES_RFQ_ITEM-RFQ_STEXT,

ZES_RFQ_ITEM-RFQ_QTY,

ZES_RFQ_ITEM-RFQ_UOM,

ZES_RFQ_ITEM-WAERS,

ZES_RFQ_ITEM-RFQ_LAMT,

ZES_RFQ_ITEM-WARRANTY,

ZES_RFQ_ITEM-REJ_CODE.

module READ_TC.

endchain.

endloop.

Best regards,

Prashant

Re: Table Control

Former Member — Fri, 29 Sep 2006 09:20:30 GMT

no i still could not achieve it.

Confused on the same from morning.

Re: Table Control

Former Member — Fri, 29 Sep 2006 09:27:01 GMT

Hi ,

What is the error message being displayed. I hope you have removed the WITH CONTROL statement from PAI.

Also what is the code inside MODULE READ...in PAI

Best regards,

Prashant

Re: Table Control

Former Member — Fri, 29 Sep 2006 09:30:39 GMT

The error i get is

In the event PROCESS AFTER INPUT, no additions are allowed with " LOOP AT".

PAI

loop at it_rfqitem with control TC_ITEM.

chain.

field: ZES_RFQ_ITEM-RFQ_LN,

ZES_RFQ_ITEM-RFQ_STEXT,

ZES_RFQ_ITEM-RFQ_QTY,

ZES_RFQ_ITEM-RFQ_UOM,

ZES_RFQ_ITEM-WAERS,

ZES_RFQ_ITEM-RFQ_LAMT,

ZES_RFQ_ITEM-WARRANTY,

ZES_RFQ_ITEM-REJ_CODE.

module READ_TC.

endchain.

endloop.

Hope this is correct and hope u got my requirement.

Please respond.

Thanks

Pratyusha

Message was edited by: Pratyu Usha

Re: Table Control

Former Member — Fri, 29 Sep 2006 09:42:09 GMT

Hi Pratyu,

THe correct code is as follows , please paste it :

PAI

* WITH CONTROL IS NOT REQUIRED - So please remove tht

loop at it_rfqitem.

chain.

field: ZES_RFQ_ITEM-RFQ_LN,

ZES_RFQ_ITEM-RFQ_STEXT,

ZES_RFQ_ITEM-RFQ_QTY,

ZES_RFQ_ITEM-RFQ_UOM,

ZES_RFQ_ITEM-WAERS,

ZES_RFQ_ITEM-RFQ_LAMT,

ZES_RFQ_ITEM-WARRANTY,

ZES_RFQ_ITEM-REJ_CODE.

module READ_TC.

endchain.

endloop.

Best regards,

Prashant

Re: Table Control

Former Member — Fri, 29 Sep 2006 09:46:31 GMT

ya i tried that also but not working, i get the buttons once i enter a value in single row

Re: Table Control

Former Member — Mon, 02 Oct 2006 02:05:27 GMT

Hi Prashanth, the problem is still not solved, please help me its very URGENT

Re: Table Control

Former Member — Mon, 02 Oct 2006 02:21:16 GMT

Hi Pratyu,

It seems that you have given same name to all the Buttons. Please paste the entire code and let me know what names you have give to buttons and are these buttons displayed in a particular column for every row. What is the use of button ?

Best regards,

Prashant

Re: Table Control

Former Member — Mon, 02 Oct 2006 02:49:17 GMT

the main purpose of this button is to enable the user to enter Loongtext, when the user presses the button, it goes to another screen (just like SAP Script editor) where user enters the LT.

ok, now what i am getting is when i enter a value in the first row of tab control i am getting the buttons being displayed in each and every row, i need the button to be visible only in the row if it is not initial.

secondly, how to handle the LT for each row ie for each item, it means if i enter value in 1st row and 2nd row i get the same LT to 2nd item as entered for 1st item. how do i differentiate the LT with respect to item?

Hope its clear.

thanks

Pratyusha

Re: Table Control

Former Member — Mon, 02 Oct 2006 02:57:06 GMT

Hi,

loop at IT_RFQITEM into IS_RFQITEM with control TC_ITEM

cursor TC_ITEM-CURRENT_LINE.

module DISP_MODE.

endloop.

module DISP_MODE output.

if NOT IS_RFQITEM is initial.

loop at screen.

if SCREEN-NAME = 'LT'.

SCREEN-INPUT = 0.

* SCREEN-INVISIBLE = 1. "Please comment

modify screen.

endif.

endloop.

endif.

endmodule. " disp_mode OUTPUT

PAI is like this

Loop at IT_RFQITEM.

chain.

field: ZES_RFQ_ITEM-RFQ_LN,

ZES_RFQ_ITEM-RFQ_STEXT,

ZES_RFQ_ITEM-RFQ_QTY,

ZES_RFQ_ITEM-RFQ_UOM,

ZES_RFQ_ITEM-WAERS,

ZES_RFQ_ITEM-RFQ_LAMT,

ZES_RFQ_ITEM-WARRANTY,

ZES_RFQ_ITEM-REJ_CODE.

module READ_TC.

endchain.

endloop.

MODULE READ_TC.

MODIFY IT_RFQITEM FROM ZES_RFQ_ITEM INDEX TC_ITEM-current_line.

ENDLOOP.

Please incorporate the changes marked in BOLD.This should solve the problem.

Best regards,

Prashant

PS : Please reward helpful answers

Re: Table Control

Former Member — Mon, 02 Oct 2006 03:18:13 GMT

Thanks, this is solved to some extent but still one more thing to be cleared, the button disabling / enabling is OK now if i give a 2nd item in 2nd row, i still get the same LT for each row. how do i rectify this.

my module read_tc is different to what u suggested as the table control initially will not at all contain any values, this screen is to create RFQ and RFQ items. so my module PAI is as below. please suggest necessary changes :

module READ_TC input.

read table IT_RFQITEM into IS_RFQITEM index TC_ITEM-CURRENT_LINE.

if SY-SUBRC = 0.

IS_RFQITEM-RFQ_LN = ZES_RFQ_ITEM-RFQ_LN.

IS_RFQITEM-RFQ_STEXT = ZES_RFQ_ITEM-RFQ_STEXT.

concatenate ZES_RFQ-RFQ_NO ZES_RFQ-SER_NO IS_RFQITEM-RFQ_LN into TD_NAME.

if SY-UCOMM = 'LT'.

HEADER-TDOBJECT = 'ZES_RFQ'.

HEADER-TDNAME = TD_NAME.

HEADER-TDID = 'Z01'.

HEADER-TDSPRAS = SY-LANGU.

HEADER-TDLINESIZE = 100.

call function 'EDIT_TEXT'

exporting

HEADER = HEADER

SAVE = 'X'

tables

LINES = LINES.

call function 'SAVE_TEXT'

exporting

HEADER = HEADER

SAVEMODE_DIRECT = 'X'

tables

LINES = LINES.

if SY-SUBRC <> 0.

endif.

IS_RFQITEM-WARRANTY = ZES_RFQ_ITEM-WARRANTY.

IS_RFQITEM-RFQ_QTY = ZES_RFQ_ITEM-RFQ_QTY.

IS_RFQITEM-RFQ_UOM = ZES_RFQ_ITEM-RFQ_UOM.

IS_RFQITEM-RFQ_LAMT = ZES_RFQ_ITEM-RFQ_LAMT.

IS_RFQITEM-WAERS = ZES_RFQ_ITEM-WAERS.

IS_RFQITEM-SVC_NO = ZES_RFQ_ITEM-SVC_NO.

modify IT_RFQITEM from IS_RFQITEM index TC_ITEM-CURRENT_LINE.

else.

if not ZES_RFQ_ITEM-RFQ_LN is initial.

IS_RFQITEM-RFQ_LN = ZES_RFQ_ITEM-RFQ_LN.

IS_RFQITEM-RFQ_STEXT = ZES_RFQ_ITEM-RFQ_STEXT.

IS_RFQITEM-WARRANTY = ZES_RFQ_ITEM-WARRANTY.

IS_RFQITEM-RFQ_QTY = ZES_RFQ_ITEM-RFQ_QTY.

IS_RFQITEM-RFQ_UOM = ZES_RFQ_ITEM-RFQ_UOM.

IS_RFQITEM-RFQ_LAMT = ZES_RFQ_ITEM-RFQ_LAMT.

IS_RFQITEM-WAERS = ZES_RFQ_ITEM-WAERS.

IS_RFQITEM-SVC_NO = ZES_RFQ_ITEM-SVC_NO.

append IS_RFQITEM to IT_RFQITEM.

endif.

endmodule. " READ_TC INPUT

I NEED DIFFERENT LT's FOR EACH ITEM. HOW TO ACHIEVE THIS?

Thanks

Pratyusha