2011 Dec 07 10:55 AM
Hi All,
I have a requirement to display to display 3 different print options as shown below.
O Data Medium Exchange Printer [ ] OPrint immediately
O Print Payment advice Note Printer [ ] OPrint immediately
O Print payment summary Printer [ ] OPrint immediately
For this the macro is written as below:
BEGIN OF TAB_SELFIELDS OCCURS 12,
FIELD(8) TYPE C,
TEXT(3) TYPE N,
END OF TAB_SELFIELDS
TABLES: RFPDO.
AUSWAHL: xdta w, avis a, begl b.
DEFINE AUSWAHL.
SELECTION-SCREEN:
BEGIN OF LINE.
PARAMETERS:
PAR_&1 LIKE RFPDO-FORD&1.
SELECTION-SCREEN:
COMMENT 03(28) TEXT&1 FOR FIELD PAR_&1,
COMMENT POS_LOW(10) TEXTPRI&2 FOR FIELD PAR_PRI&2.
PARAMETERS:
PAR_PRI&2 LIKE RFPDO-FORDPRI&2 VISIBLE LENGTH 11.
SELECTION-SCREEN:
POSITION POS_HIGH.
PARAMETERS:
PAR_SOF&2 LIKE RFPDO1-FORDSOF&2.
SELECTION-SCREEN:
COMMENT 60(18) TEXTSOF&2 FOR FIELD PAR_SOF&2,
END OF LINE.
TAB_SELFIELDS-FIELD = 'TEXT&1'.
CASE TAB_SELFIELDS-FIELD+4.
WHEN 'ZDRU'. TAB_SELFIELDS-TEXT = 101.
WHEN 'WDRU'. TAB_SELFIELDS-TEXT = 103.
WHEN 'XDTA'. TAB_SELFIELDS-TEXT = 104.
WHEN 'AVIS'. TAB_SELFIELDS-TEXT = 105.
WHEN 'BEGL'. TAB_SELFIELDS-TEXT = 106.
ENDCASE.
APPEND TAB_SELFIELDS.
TAB_SELFIELDS-FIELD = 'TEXTPRI&2'.
TAB_SELFIELDS-TEXT = 107.
APPEND TAB_SELFIELDS.
TAB_SELFIELDS-FIELD = 'TEXTSOF&2'.
TAB_SELFIELDS-TEXT = 108.
APPEND TAB_SELFIELDS.
END-OF-DEFINITION.
Can any one tell me how this text descriptions part is done here? I have copied the same code, but no description is gettingdisplayed on teh selection screen istead I am getting 3 lines in correct format but no text.
Thanks in advance.
Regards,
Ashwini
Moderator message: please choose more descriptive subject lines for your posts.
Edited by: Thomas Zloch on Dec 7, 2011 4:37 PM
2011 Dec 07 11:30 AM
Hi,
I think you have to set the following variables under your initialization event:
TEXTXDTA
TEXTPRIW
TEXTSOFW
TEXTAVIS
TEXTPRIA
TEXTSOFA
TEXTBEGL
TEXTPRIB
TEXTSOFB
Kr,
Manu.
2011 Dec 19 10:47 AM