topic Re: HELP WITH REPORT in Application Development and Automation Discussions

HELP WITH REPORT

Former Member — Thu, 22 Nov 2007 08:34:45 GMT

interactive Report for displaying vendor information based on the

selection made the corresponding Vendor Bank Details

are listed such that the line selected in the basic list was visible

along with the secondary list.

I'M UNABLE TO IMPLEMENT THIS PART HOW TO DO IT " such that the line selected in the basic list was visible

along with the secondary list."

Re: HELP WITH REPORT

Former Member — Thu, 22 Nov 2007 09:16:18 GMT

Hi,

Use the hide concept,so that u can store the basic list information in the variable and print that variable in the secondary list.

reward points if it helps.

Re: HELP WITH REPORT

Former Member — Thu, 22 Nov 2007 09:18:58 GMT

Can you paste your code here please...

Re: HELP WITH REPORT

Former Member — Thu, 22 Nov 2007 09:24:02 GMT

INCLUDE Z_REPORTS_2_TOP.

INCLUDE Z_REPORTS2_SEL.

INCLUDE Z_REPORTS_SUBROUTINES.

INITIALIZATION.

P_VEND = 1000.

AT SELECTION-SCREEN ON P_VEND.

PERFORM F_GET_VAL USING P_VEND

CHANGING SY-DBCNT.

TOP-OF-PAGE.

FORMAT COLOR 6 INTENSIFIED ON.

ULINE.

WRITE:/2 TEXT-H01,13 SY-VLINE,

14 TEXT-H02,37 SY-VLINE,

38 TEXT-H03,49 SY-VLINE,

50 TEXT-H04,64 SY-VLINE,

65 TEXT-H05,84 SY-VLINE,

85 TEXT-H06,104 SY-VLINE,

105 TEXT-H07.

ULINE .

TOP-OF-PAGE DURING line-selection.

ULINE.

WRITE: /2 TEXT-J06,

12 TEXT-JO1,

28 TEXT-J02,

42 TEXT-J03,

52 TEXT-J04,

67 TEXT-JO5.

START-OF-SELECTION.

PERFORM F_GET_DATA USING WA_VEN

CHANGING IT_VEN.

PERFORM F_GET_OUTPUT USING IT_VEN

CHANGING WA_VEN.

END-OF-SELECTION.

AT LINE-SELECTION.

GET CURSOR FIELD FNAM VALUE FVAL.

CASE SY-LSIND.

WHEN 1.

IF FNAM EQ 'WA_VEN-LIFNR'.

PERFORM F_GET_DATA1 USING IT_BANK

CHANGING WA_BANK.

PERFORM F_GET_OUTPUT1 USING IT_BANK

CHANGING WA_BANK.

ELSE.

MESSAGE W000(ZHNC) WITH 'PLEASE CLICK ON VENDOR NO ONLY'.

ENDIF.

ENDCASE.

Re: HELP WITH REPORT

Former Member — Thu, 22 Nov 2007 09:24:21 GMT

hi,

R u using ALV or Classical?

Re: HELP WITH REPORT

Former Member — Thu, 22 Nov 2007 09:25:10 GMT

TOP INCLUDE

TABLES : LIKP,LIPS.

TYPES : BEGIN OF TY_HEADER,

VBELN TYPE LIKP-VBELN,

ERNAM TYPE LIKP-ERNAM,

ERZET TYPE LIKP-ERZET,

ERDAT TYPE LIKP-ERDAT,

VSTEL TYPE LIKP-VSTEL,

LFART TYPE LIKP-LFART,

LDDAT TYPE LIKP-LDDAT,

KODAT TYPE LIKP-KODAT,

BTGEW TYPE LIKP-BTGEW,

END OF TY_HEADER,

BEGIN OF TY_ITEM,

VBELN TYPE LIPS-VBELN,

POSNR TYPE LIPS-POSNR,

PSTYV TYPE LIPS-PSTYV,

MATNR TYPE LIPS-MATNR,

MATWA TYPE LIPS-MATWA,

MATKL TYPE LIPS-MATKL,

WERKS TYPE LIPS-WERKS,

NETPR TYPE LIPS-NETPR,

END OF TY_ITEM.

DATA : IT_HEADER TYPE STANDARD TABLE OF TY_HEADER INITIAL SIZE 0,

WA_HEADER LIKE LINE OF IT_HEADER.

DATA: IT_ITEM TYPE STANDARD TABLE OF TY_ITEM,

WA_ITEM LIKE LINE OF IT_ITEM,

FNAM(20),

FVAL(20).

Re: HELP WITH REPORT

Former Member — Thu, 22 Nov 2007 09:25:44 GMT

CLASSICAL

Re: HELP WITH REPORT

Former Member — Thu, 22 Nov 2007 09:27:03 GMT

SORRY THAT WAS WRONG INCLUDE BY MISTAKE I POST IT BELONG ANOTHER PROGRAM

Re: HELP WITH REPORT

Former Member — Thu, 22 Nov 2007 09:29:03 GMT

hi,

try this...

Hope it will help u..

&----

*& Report ZTEJ_INTAB1 *

*& *

&----

*& *

&----

REPORT ZTEJ_INTAB1 LINE-SIZE 103 LINE-COUNT 35(5) NO STANDARD PAGE

HEADING.

*TABLES DECLARATION

TABLES : KNA1, VBAK, VBAP.

*SELECT OPTIONS

SELECT-OPTIONS: CUST_NO FOR KNA1-KUNNR.

*INITIALIZATION

INITIALIZATION.

CUST_NO-LOW = '01'.

CUST_NO-HIGH = '5000'.

CUST_NO-SIGN = 'I'.

CUST_NO-OPTION = 'BT'.

APPEND CUST_NO.

*SELECTION SCREEN VALIDATION

AT SELECTION-SCREEN ON CUST_NO.

LOOP AT SCREEN.

IF CUST_NO-LOW < 1 OR CUST_NO-HIGH > 5000.

MESSAGE E001(ZTJ1).

ENDIF.

ENDLOOP.

*BASIC LIST SELECTION

START-OF-SELECTION.

SELECT KUNNR NAME1 ORT01 LAND1 INTO

(KNA1-KUNNR, KNA1-NAME1,KNA1-ORT01,KNA1-LAND1)

FROM KNA1

WHERE KUNNR IN CUST_NO.

WRITE:/1 SY-VLINE,

KNA1-KUNNR UNDER 'CUSTOMER NO.' HOTSPOT ON,

16 SY-VLINE,

KNA1-NAME1 UNDER 'NAME',

61 SY-VLINE,

KNA1-ORT01 UNDER 'CITY',

86 SY-VLINE,

KNA1-LAND1 UNDER 'COUNTRY',

103 SY-VLINE.

HIDE: KNA1-KUNNR.

ENDSELECT.

ULINE.

*SECONDARY LIST ACCESS

AT LINE-SELECTION.

IF SY-LSIND = 1.

PERFORM SALES_ORD.

ENDIF.

IF SY-LSIND = 2.

PERFORM ITEM_DET.

ENDIF.

*TOP OF PAGE

TOP-OF-PAGE.

FORMAT COLOR 1.

WRITE : 'CUSTOMER DETAILS'.

FORMAT COLOR 1 OFF.

ULINE.

FORMAT COLOR 3.

WRITE : 1 SY-VLINE,

3 'CUSTOMER NO.',

16 SY-VLINE,

18 'NAME',

61 SY-VLINE,

63 'CITY',

86 SY-VLINE,

88 'COUNTRY',

103 SY-VLINE.

ULINE.

FORMAT COLOR 3 OFF.

*TOP OF PAGE FOR SECONDARY LISTS

TOP-OF-PAGE DURING LINE-SELECTION.

*TOP OF PAGE FOR 1ST SECONDARY LIST

IF SY-LSIND = 1.

ULINE.

FORMAT COLOR 1.

WRITE : 'SALES ORDER DETAILS'.

ULINE.

FORMAT COLOR 1 OFF.

FORMAT COLOR 3.

WRITE : 1 SY-VLINE,

3 'CUSTOMER NO.',

16 SY-VLINE,

18 'SALES ORDER NO.',

40 SY-VLINE,

42 'DATE',

60 SY-VLINE,

62 'CREATOR',

85 SY-VLINE,

87 'DOC DATE',

103 SY-VLINE.

ULINE.

ENDIF.

FORMAT COLOR 3 OFF.

*TOP OF PAGE FOR 2ND SECONDARY LIST

IF SY-LSIND = 2.

ULINE.

FORMAT COLOR 1.

WRITE : 'ITEM DETAILS'.

ULINE.

FORMAT COLOR 1 OFF.

FORMAT COLOR 3.

WRITE : 1 SY-VLINE,

3 'SALES ORDER NO.',

40 SY-VLINE,

42 'SALES ITEM NO.',

60 SY-VLINE,

62 'ORDER QUANTITY',

103 SY-VLINE.

ULINE.

ENDIF.

FORMAT COLOR 3 OFF.

*END OF PAGE

END-OF-PAGE.

ULINE.

WRITE :'USER :',SY-UNAME,/,'DATE :', SY-DATUM, 85 'END OF PAGE:',

SY-PAGNO.

SKIP.

&----

*& Form SALES_ORD

*& FIRST SECONDARY LIST FORM

&----

FORM SALES_ORD .

SELECT KUNNR VBELN ERDAT ERNAM AUDAT INTO

(VBAK-KUNNR, VBAK-VBELN, VBAK-ERDAT, VBAK-ERNAM, VBAK-AUDAT)

FROM VBAK

WHERE KUNNR = KNA1-KUNNR.

WRITE:/1 SY-VLINE,

VBAK-KUNNR UNDER 'CUSTOMER NO.' HOTSPOT ON,

16 SY-VLINE,

VBAK-VBELN UNDER 'SALES ORDER NO.' HOTSPOT ON,

40 SY-VLINE,

VBAK-ERDAT UNDER 'DATE',

60 SY-VLINE,

VBAK-ERNAM UNDER 'CREATOR',

85 SY-VLINE,

VBAK-AUDAT UNDER 'DOC DATE',

103 SY-VLINE.

HIDE : VBAK-VBELN.

ENDSELECT.

ULINE.

ENDFORM. " SALES_ORD

&----

*& Form ITEM_DET

*& SECOND SECONDARY LIST FORM

&----

FORM ITEM_DET .

SELECT VBELN POSNR KWMENG INTO

(VBAP-VBELN, VBAP-POSNR, VBAP-KWMENG)

FROM VBAP

WHERE VBELN = VBAK-VBELN.

WRITE : /1 SY-VLINE,

VBAP-VBELN UNDER 'SALES ORDER NO.',

40 SY-VLINE,

VBAP-POSNR UNDER 'SALES ITEM NO.',

60 SY-VLINE,

VBAP-KWMENG UNDER 'ORDER QUANTITY',

103 SY-VLINE.

ENDSELECT.

ULINE.

ENDFORM. " ITEM_DET

Re: HELP WITH REPORT

Former Member — Thu, 22 Nov 2007 09:34:18 GMT

Hi,

your code only works if you click on particular field..i.e. WA_VEN-LIFNR

It'll not work If you click on line.

So please replace your code like this..


READ LINE sy-lilli FIELD VALUE WA_VEN-LIFNR.
  
 IF WA_VEN-LIFNR NE SPACE.
   PERFORM F_GET_DATA1 USING IT_BANK 
   CHANGING WA_BANK.
   PERFORM F_GET_OUTPUT1 USING IT_BANK
   CHANGING WA_BANK.
 ELSE.
   MESSAGE W000(ZHNC) WITH 'PLEASE CLICK ON VENDOR NO ONLY'.
 ENDIF.
CLEAR  WA_VEN-LIFNR.

"And also try to HIDE table WA_VEN along with fileds by that this internal table 
"will be available for secondary list processing

Message was edited by:

Perez C

Re: HELP WITH REPORT

Former Member — Thu, 22 Nov 2007 09:52:41 GMT

HI PEREZ ,

THANKS FOR THE ADVISE , AFTER HIDING THE WHOLE WORK AREA THAT IS WA_VEN.HOW TO OUTPUT IN THE SECONDARY LIST I'M VERY MUCH A BEGINNER IN ABAP

Re: HELP WITH REPORT

Former Member — Thu, 22 Nov 2007 10:05:40 GMT

By hiding whole Internal table you are making data available for secondary list ..

you can proceed same as base list processing....

still you are in doubt let me know your code in side forms

F_GET_DATA1 & F_GET_OUTPUT1

by that I can guide you..

Re: HELP WITH REPORT

Former Member — Thu, 22 Nov 2007 11:05:06 GMT

THANKS VERY MUCH FOR U HELP.SDN ROCKS