topic Re: Report-doubt in Application Development and Automation Discussions

Report-doubt

Former Member — Tue, 26 Dec 2006 04:14:57 GMT

TABLES: KNA1,VBAK,MARA,SSCRFIELDS.

DATA: BEGIN OF ITAB OCCURS 0,

KUNNR LIKE KNA1-KUNNR,

LAND1 LIKE KNA1-LAND1,

NAME1 LIKE KNA1-NAME1,

END OF ITAB.

*ITAB FOR SALES RADIO BUTTON

DATA: BEGIN OF JTAB OCCURS 0,

VBELN LIKE VBAK-VBELN,

NETWR LIKE VBAK-NETWR,

END OF JTAB.

ITAB FOR MATERIAL RADIO BUTTON.

DATA: BEGIN OF KTAB OCCURS 0,

MATNR LIKE MARA-MATNR,

MEINS LIKE MARA-MEINS,

END OF KTAB.

SELECTION-SCREEN BEGIN OF BLOCK: B1 WITH FRAME TITLE BLOCK1.

PARAMETERS: CUSTOMER RADIOBUTTON GROUP C1,

SALES RADIOBUTTON GROUP S1,

MATERIAL RADIOBUTTON GROUP M1,

SELECTION-SCREEN END OF BLOCK: B1.

SELECTION-SCREEN FUNCTION KEY 1.

SELECTION-SCREEN FUNCTION KEY 2.

INITIALIZATION.

SSCRFIELDS-FUNCTXT_01 = 'REPORT'.

SSCRFIELDS-FUNCTXT_02 = 'EXIT'.

PROVIDE THE LOGIC FOR REPORT AND EXIT.

AT SELECTION-SCREEN.

IF SSCRFIELDS-UCOMM = 'FCO1'.

SSCRFIELDS-UCOMM = 'ONLI'.

ESLEIF SSCRFIELDS-UCOMM = 'FCO2'.

LEAVE.

ENDIF

*LOGIC FOR OUTPUT DISPLAY

START-OF-SELECTION.

IF CUSTOMER = 'X'.

SELECT KUNNR LAND1 NAME1 INTO TABLE ITAB.

LOOP AT ITAB.

WRITE:/ ITAB-KUNNR, ITAB-LAND1,ITAB-NAME1.

ENDLOOP.

ELSEIF SALES = 'X'.

SELECT VBELN NETWR FROM VBAK INTO TABLE JTAB.

LOOP AT JTAB.

WRITE:/ JTAB-VBELN, JTAB-NETWR.

ENDLOOP.

ELSE

SELECT MATNR MEINS FROM MARA INTO TABLE KTAB.

LOOP AT KTAB.

WRITE:/ KTAB-MATNR,KTAB-MEINS.

ENDLOOP.

ENDIF

I was running this code and found error at selection-screen end of block b1. Please let me know what's error...

Re: Report-doubt

Former Member — Tue, 26 Dec 2006 04:18:57 GMT

Hi,

For all the radiobutton have the same group, if that is your requirement..

Also you didn't have a full stop in the MATERIAL RADIOBUTTON line..

SELECTION-SCREEN BEGIN OF BLOCK: B1 WITH FRAME TITLE BLOCK1.

PARAMETERS: CUSTOMER RADIOBUTTON GROUP C1,

SALES RADIOBUTTON GROUP C1,

MATERIAL RADIOBUTTON GROUP C1.

SELECTION-SCREEN END OF BLOCK: B1.

Thanks,

Naren

Re: Report-doubt

Former Member — Tue, 26 Dec 2006 04:21:09 GMT

hi ,

instead of using radio button use check box.

A radio group must have atleast 2 radio button assigned to it.

Re: Report-doubt

Former Member — Tue, 26 Dec 2006 04:26:47 GMT

I DONT KNOW WATS UR ACTUAL REQUIREMENT .

U have given radiobutton in single group.

i have cleared all the syntax error.

Now execute it. I dont know wat ur report button will do.

REPORT ZKALP_TESTWW.

TABLES: KNA1,VBAK,MARA,SSCRFIELDS.

DATA: BEGIN OF ITAB OCCURS 0,

KUNNR LIKE KNA1-KUNNR,

LAND1 LIKE KNA1-LAND1,

NAME1 LIKE KNA1-NAME1,

END OF ITAB.

*ITAB FOR SALES RADIO BUTTON

DATA: BEGIN OF JTAB OCCURS 0,

VBELN LIKE VBAK-VBELN,

NETWR LIKE VBAK-NETWR,

END OF JTAB.

ITAB FOR MATERIAL RADIO BUTTON.

DATA: BEGIN OF KTAB OCCURS 0,

MATNR LIKE MARA-MATNR,

MEINS LIKE MARA-MEINS,

END OF KTAB.

SELECTION-SCREEN BEGIN OF BLOCK: B1 WITH FRAME TITLE BLOCK1.

PARAMETERS: CUSTOMER RADIOBUTTON GROUP C1,

SALES RADIOBUTTON GROUP C1,

MATERIAL RADIOBUTTON group C1.

SELECTION-SCREEN END OF BLOCK B1.

SELECTION-SCREEN FUNCTION KEY 1.

SELECTION-SCREEN FUNCTION KEY 2.

INITIALIZATION.

SSCRFIELDS-FUNCTXT_01 = 'REPORT'.

SSCRFIELDS-FUNCTXT_02 = 'EXIT'.

*PROVIDE THE LOGIC FOR REPORT AND EXIT.

AT SELECTION-SCREEN.

IF SSCRFIELDS-UCOMM = 'FCO1'.

SSCRFIELDS-UCOMM = 'ONLI'.

ELsEIF SSCRFIELDS-UCOMM = 'FCO2'.

LEAVE.

ENDIF.

*LOGIC FOR OUTPUT DISPLAY

START-OF-SELECTION.

IF CUSTOMER = 'X'.

SELECT KUNNR LAND1 NAME1 from kna1 INTO TABLE ITAB.

LOOP AT ITAB.

WRITE:/ ITAB-KUNNR, ITAB-LAND1,ITAB-NAME1.

ENDLOOP.

ELSEIF SALES = 'X'.

SELECT VBELN NETWR FROM VBAK INTO TABLE JTAB.

LOOP AT JTAB.

WRITE:/ JTAB-VBELN, JTAB-NETWR.

ENDLOOP.

ELSE.

SELECT MATNR MEINS FROM MARA INTO TABLE KTAB.

LOOP AT KTAB.

WRITE:/ KTAB-MATNR,KTAB-MEINS.

ENDLOOP.

ENDIF.

Re: Report-doubt

Former Member — Wed, 27 Dec 2006 09:49:07 GMT

since u r having same radio button and also at last radio button u havent used . just i have corrected the code pls go through it if use get me some points.

TABLES: KNA1,VBAK,MARA,SSCRFIELDS.

DATA: BEGIN OF ITAB OCCURS 0,

KUNNR LIKE KNA1-KUNNR,

LAND1 LIKE KNA1-LAND1,

NAME1 LIKE KNA1-NAME1,

END OF ITAB.

*ITAB FOR SALES RADIO BUTTON

DATA: BEGIN OF JTAB OCCURS 0,

VBELN LIKE VBAK-VBELN,

NETWR LIKE VBAK-NETWR,

END OF JTAB.

ITAB FOR MATERIAL RADIO BUTTON.

DATA: BEGIN OF KTAB OCCURS 0,

MATNR LIKE MARA-MATNR,

MEINS LIKE MARA-MEINS,

END OF KTAB.

SELECTION-SCREEN BEGIN OF BLOCK: B1 WITH FRAME TITLE BLOCK1.

PARAMETERS: CUSTOMER RADIOBUTTON GROUP m1,

SALES RADIOBUTTON GROUP m1,

MATERIAL RADIOBUTTON GROUP M1.

SELECTION-SCREEN END OF BLOCK B1.

SELECTION-SCREEN FUNCTION KEY 1.

SELECTION-SCREEN FUNCTION KEY 2.

INITIALIZATION.

SSCRFIELDS-FUNCTXT_01 = 'REPORT'.

SSCRFIELDS-FUNCTXT_02 = 'EXIT'.

*PROVIDE THE LOGIC FOR REPORT AND EXIT.

AT SELECTION-SCREEN.

IF SSCRFIELDS-UCOMM = 'FCO1'.

SSCRFIELDS-UCOMM = 'ONLI'.

ELSE.

SSCRFIELDS-UCOMM = 'FCO2'.

LEAVE.

ENDIF.

*LOGIC FOR OUTPUT DISPLAY

START-OF-SELECTION.

IF CUSTOMER = 'X'.

SELECT KUNNR LAND1 NAME1 from kna1 INTO TABLE ITAB.

LOOP AT ITAB.

WRITE:/ ITAB-KUNNR, ITAB-LAND1,ITAB-NAME1.

ENDLOOP.

ELSEIF SALES = 'X'.

SELECT VBELN NETWR FROM VBAK INTO TABLE JTAB.

LOOP AT JTAB.

WRITE:/ JTAB-VBELN, JTAB-NETWR.

ENDLOOP.

ELSE.

SELECT MATNR MEINS FROM MARA INTO TABLE KTAB.

LOOP AT KTAB.

WRITE:/ KTAB-MATNR,KTAB-MEINS.

ENDLOOP.