PF Status

[Former Member]

Dear All,

I want to craete a Push Button and also status,

will you please let me know how to create both.

Thanks in Advance,

KKK

[amit_khare]

Refer the links -

Regards,

Amit

Reward all helpful replies.

[Former Member]

Please reward points if helpful.

[Former Member]

HI,

for alv

go to se41 give the prog name SAPLKKBL

and the status name STANDARD_FULLSCREEN

copy button will be there in the application tool bar

clik and then give the target zprog name and status name

then go to your prog and then activate it

now press ctrl+ shift+f5 on the aditor

the editor will become similar to se80

on the left hand side

clik the status

then your status will come

double clik on that

in the application tool bar

clik the + symobol and then give the name and function code

now you can use this in your program

regards,

Venkatesh

[Former Member]

for PF STATUS.

Go to se41 and create your own GUI status there..

then include your pf status in your report using

in initialization or in PBO eventr..

SET pf-status 'ZABC'. "name of PF Status you created

===========================

Use can use the code below.. to generate Pushbottons on Application toolbar of Selection Screen

Otherwise use SELECTION-SCREEN : PUSHBUTTON .

REPORT zselfile1 .

TABLES:sscrfields.

**Create the Additional Selection screen to input filename

SELECTION-SCREEN: BEGIN OF SCREEN 10.

PARAMETERS: p_file TYPE rlgrap-filename.

SELECTION-SCREEN: END OF SCREEN 10.

**Create Application Toolbar Button on the Standard selection Screen

SELECTION-SCREEN FUNCTION KEY 1. "Its fcode will be FC01

PARAMETERS : p_werks TYPE marc-werks.

INITIALIZATION.

sscrfields-functxt_01 = 'Enter File'. "Assign the Text to the Button

AT SELECTION-SCREEN.

CASE sscrfields-ucomm. "Check the Fcode

WHEN 'FC01'.

CALL SELECTION-SCREEN 10 STARTING AT 5 8 ENDING AT 85 20.

ENDCASE.

Use SSCRFIELDS table to get buttons on report tool bar.

Check this sample report DEMO_SEL_SCREEN_FUNCTION_KEY to create a push buttons on report tool bar.

Thanks & Regards

ilesh 24x7

[Former Member]

hi,

in module pool programs decomment n double click on PBO and decomment SET PF-STATUS 'ASB'. -> double click on asb and give status bar [ buttons]

SET TITLEBAR 'OOPS'. -> double click on oops and give title bar.

in report programs u have to use an event

SET PF-STATUS 'SDV' -> double click on sdv n give menu name n program name and design ur buttons.

if helpful reward some points.

with regards,

Suresh Aluri.

[Former Member]

Hi

<b>STEPS TO CREAT A BUTTON</b>

1) GOTO SE41 T-CODE

2) ENTER PROGRAM NAME SAME AS UR REPORT PROGRAM NAME

3) ENTER STATUS NAME AS ANY THING LIKE 100 OR ABC OR ETC...

4) CLICK ON CREAT BUTTON

5) ENTER SHORT TEXT

6) SELECT THE RADIOBUTTON NORMAL SCREEN (IT WILL BE SELECTED AS PER UR REQUIREMENT)

7) IF YOU WANT TO CREAT A BUTTON ON APPLICATION TOOL BAR THEN SELECT THE APPLICATION TOL BAR TREE

😎 ENTER SOME NAME WHICH YOU WANT FOR UR BUTTON ( SELECT, DELETE, UPDATE LIKE THIS ..) THIS WILL BE YOUR FCODE

9) SELECT ANY ICON

10) INFO TEXT ANY THING

11) CLICK ON OK

12) SAVE THAT AND ACTIVATE

13) COME BACK TO YOUR REPORT PROGRAM

14) WHERE EVER YOU WANT THAT SCREEN

AT THAT PLACE WRITE THE STATEMENT LIKE THIS

*--MENU PAINTER

SET PF-STATUS 'DDD'.

DDD IS MY STATUS NAME

AFTER THAT WHAT EVER LOGIC U WANT PUT THAT LOGIC

I AM SENDING YOU A EXAMPLE CODE

IN THAT I HAD USED MY STATUS AT OUTPUT LIST

REPORT ZDEMO_19 MESSAGE-ID ZDEMO_MSG

NO STANDARD PAGE HEADING

LINE-COUNT 25(3)

LINE-SIZE 120.

TABLES: MARA, VBAK, KNA1.

DATA IT_VBAK LIKE VBAK OCCURS 0 WITH HEADER LINE.

DATA IT_VBAP LIKE VBAP OCCURS 0 WITH HEADER LINE.

PARAMETERS: P_SAL RADIOBUTTON GROUP GRP USER-COMMAND AAA,

P_MAT RADIOBUTTON GROUP GRP.

SELECT-OPTIONS: S_VBELN FOR VBAK-VBELN,

S_ERDAT FOR VBAK-ERDAT.

SELECT-OPTIONS: S_MATNR FOR MARA-MATNR,

S_ERSDA FOR MARA-ERSDA.

INITIALIZATION.

P_SAL = 'X'.

AT SELECTION-SCREEN OUTPUT.

IF P_SAL EQ 'X'.

LOOP AT SCREEN.

IF SCREEN-GROUP4 EQ '004'

OR SCREEN-GROUP4 EQ '005'.

SCREEN-INVISIBLE = 1.

SCREEN-INPUT = 0.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ELSEIF P_MAT EQ 'X'.

LOOP AT SCREEN.

IF SCREEN-GROUP4 EQ '002'

OR SCREEN-GROUP4 EQ '003'.

SCREEN-INVISIBLE = 1.

SCREEN-INPUT = 0.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ENDIF.

START-OF-SELECTION.

SELECT * FROM VBAK INTO TABLE IT_VBAK WHERE VBELN IN S_VBELN.

END-OF-SELECTION.

LOOP AT IT_VBAK.

WRITE:/ IT_VBAK-VBELN,

IT_VBAK-ERDAT, IT_VBAK-ERNAM,

IT_VBAK-KUNNR.

• HIDE IT_VBAK-VBELN.

ENDLOOP.

*--MENU PAINTER

SET PF-STATUS 'DDD'.

TOP-OF-PAGE.

WRITE:/ 'Sales Document List'.

ULINE.

END-OF-PAGE.

ULINE.

WRITE:/ 'End of page', SY-PAGNO.

ULINE.

*--SECONDARY LIST

AT USER-COMMAND.

DATA: V_FIELD(20) TYPE C ,

V_VALUE(10) TYPE N.

GET CURSOR FIELD V_FIELD VALUE V_VALUE.

IF SY-UCOMM EQ 'VBAP'.

SELECT * FROM VBAP INTO TABLE IT_VBAP

WHERE VBELN EQ V_VALUE.

LOOP AT IT_VBAP.

WRITE:/ IT_VBAP-VBELN, IT_VBAP-POSNR,

IT_VBAP-MATNR, IT_VBAP-NETWR.

ENDLOOP.

ELSEIF SY-UCOMM EQ 'KNA1'.

SELECT SINGLE * FROM KNA1 WHERE KUNNR EQ V_VALUE.

WRITE:/ KNA1-KUNNR, KNA1-NAME1.

ENDIF.

TOP-OF-PAGE DURING LINE-SELECTION.

WRITE:/ 'Sales document details'.

ULINE.

REPORT ZAJAYINTERACTIVEREPORTS MESSAGE-ID ZDEMO_MSG

NO STANDARD PAGE HEADING

LINE-COUNT 37(3)

LINE-SIZE 120.

TABLES: MARA, VBAK, KNA1.

DATA IT_VBAK LIKE VBAK OCCURS 0 WITH HEADER LINE.

DATA IT_VBAP LIKE VBAP OCCURS 0 WITH HEADER LINE.

DATA IT_KNA1 LIKE KNA1 OCCURS 0 WITH HEADER LINE.

PARAMETERS: P_SAL RADIOBUTTON GROUP GRP USER-COMMAND AAA,

P_MAT RADIOBUTTON GROUP GRP.

SELECT-OPTIONS: S_VBELN FOR VBAK-VBELN,

S_ERDAT FOR VBAK-ERDAT.

SELECT-OPTIONS: S_MATNR FOR MARA-MATNR,

S_ERSDA FOR MARA-ERSDA.

INITIALIZATION.

P_SAL = 'X'.

AT SELECTION-SCREEN OUTPUT.

IF P_SAL EQ 'X'.

LOOP AT SCREEN.

IF SCREEN-GROUP4 EQ '004' OR SCREEN-GROUP4 EQ '005'.

SCREEN-INVISIBLE = 1.

SCREEN-INPUT = 0.

SCREEN-INTENSIFIED = '1'.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ELSEIF P_MAT EQ 'X'.

LOOP AT SCREEN.

IF SCREEN-GROUP4 EQ '002' OR SCREEN-GROUP4 EQ '003'.

SCREEN-INVISIBLE = 1.

SCREEN-INPUT = 0.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ENDIF.

START-OF-SELECTION.

SELECT * FROM VBAK INTO TABLE IT_VBAK WHERE VBELN IN S_VBELN.

END-OF-SELECTION.

LOOP AT IT_VBAK.

WRITE:/ IT_VBAK-VBELN, IT_VBAK-ERDAT, IT_VBAK-ERNAM,

IT_VBAK-KUNNR.

HIDE: IT_VBAK-VBELN, IT_VBAK-KUNNR.

ENDLOOP.

*--MENU PAINTER

SET PF-STATUS 'AAA'.

TOP-OF-PAGE.

WRITE:/ 'Sales Document List'.

ULINE.

END-OF-PAGE.

ULINE.

WRITE:/ 'End of page', SY-PAGNO.

ULINE.

*--SECONDARY LIST

AT USER-COMMAND.

IF SY-UCOMM EQ 'VBAP'.

SELECT * FROM VBAP INTO TABLE IT_VBAP

WHERE VBELN EQ IT_VBAK-VBELN.

LOOP AT IT_VBAP.

WRITE:/ IT_VBAP-VBELN, IT_VBAP-POSNR,

IT_VBAP-MATNR, IT_VBAP-NETWR.

ENDLOOP.

ENDIF.

IF SY-UCOMM EQ 'KNA1'.

SELECT SINGLE * FROM KNA1 WHERE KUNNR EQ IT_VBAK-KUNNR.

WRITE:/ KNA1-KUNNR, KNA1-NAME1.

ENDIF.

AT LINE-SELECTION.

DATA: V_FIELD(20) TYPE C ,

V_VALUE(10) TYPE N.

GET CURSOR FIELD V_FIELD VALUE V_VALUE.

IF V_FIELD EQ 'IT_VBAK-VBELN'.

SELECT * FROM VBAP INTO TABLE IT_VBAP WHERE VBELN EQ V_VALUE.

LOOP AT IT_VBAP.

WRITE:/ IT_VBAP-VBELN, IT_VBAP-POSNR, IT_VBAP-MATNR, IT_VBAP-NETWR

.

ENDLOOP.

ELSEIF V_FIELD EQ 'IT_VBAK-KUNNR'.

SELECT SINGLE * FROM KNA1 WHERE KUNNR EQ V_VALUE.

WRITE:/ KNA1-KUNNR, KNA1-NAME1.

ENDIF.

TOP-OF-PAGE DURING LINE-SELECTION.

WRITE:/ 'Sales document details'.

ULINE.

<b>REWARD IF USEFULL</b>

dirctly adding a push button

TABLES sscrfields.

TYPE-POOLS icon.

SELECTION-SCREEN:

BEGIN OF SCREEN 500 AS WINDOW TITLE title,

PUSHBUTTON 2(10) but1 USER-COMMAND cli1,

PUSHBUTTON 12(30) but2 USER-COMMAND cli2

VISIBLE LENGTH 10,

END OF SCREEN 500.

AT SELECTION-SCREEN.

CASE sscrfields.

WHEN 'CLI1'.

...

WHEN 'CLI2'.

...

ENDCASE.

START-OF-SELECTION.

title = 'Push button'.

but1 = 'Button 1'.

CALL FUNCTION 'ICON_CREATE'

EXPORTING

name = icon_information

text = 'Button 2'

info = 'My Quickinfo'

IMPORTING

RESULT = but2

EXCEPTIONS

OTHERS = 0.

CALL SELECTION-SCREEN '0500' STARTING AT 10 10.

check this link

http://www.planetsap.com/howdo_a.htm#PBUTTON