topic Re: INTERACTIVE REPORTS in Application Development and Automation Discussions

INTERACTIVE REPORTS

Former Member — Mon, 09 Jul 2007 14:24:53 GMT

this is my code

&----

*& Report YTEST_REP9 *

*& *

&----

*& *

&----

REPORT YTEST_REP9 NO STANDARD PAGE HEADING.

TABLES: EKKO , EKPO.

DATA: BEGIN OF IT_EBELN OCCURS 0,

EBELN TYPE EKKO-EBELN,

LIFNR TYPE EKKO-LIFNR,

check(1) type c,

END OF IT_EBELN.

data chk type c.

SELECT-OPTIONS: S_PO FOR EKKO-EBELN DEFAULT '4500000000'.

SELECT-OPTIONS: S_DATE FOR EKKO-BEDAT DEFAULT '20060823'.

*PARAMETERS PO(10) TYPE C.

*PARAMETERS PO_DATE TYPE D.

START-OF-SELECTION.

SET PF-STATUS '100_S'.

SELECT EBELN LIFNR

FROM EKKO

INTO TABLE IT_EBELN

WHERE EBELN IN S_PO

AND BEDAT IN S_DATE.

LOOP AT IT_EBELN.

AT FIRST.

WRITE:/ 'CHK' , 15 'PO_NUMBER' , 30 'ACCOUNT_NUMBER'.

ULINE.

SKIP.

ENDAT.

WRITE:/ CHK, 15 IT_EBELN-EBELN , 30 IT_EBELN-LIFNR.

ENDLOOP.

*AT LINE-SELECTION .

*WRITE:/ IT_EBELN-EBELN .

AT USER-COMMAND.

CASE SY-UCOMM.

WHEN 'CANCEL'.

LEAVE TO SCREEN 0.

WHEN 'DISPLAY'.

write: / chk.

ENDCASE.

TOP-OF-PAGE.

WRITE:/ 'THIS IS THE PURCHASE ORDER'.

SKIP.

HERE AFTER CLICKING DISPLAY THAT CHK VALUE IS NOT DISPLAYING

PLEASE REPLY ITS URGENT.

Re: INTERACTIVE REPORTS

Former Member — Mon, 09 Jul 2007 14:31:33 GMT

good

write the code for the HIDE statement,than it ll work fine.

thanks

mrutyun^

Re: INTERACTIVE REPORTS

Former Member — Mon, 09 Jul 2007 14:31:58 GMT

I did not see any HIDE command in your code ,

Make it HIDE command in loop,before write statement.

Thanks

Seshu

Re: INTERACTIVE REPORTS

Former Member — Mon, 09 Jul 2007 14:35:28 GMT

HIDE IS NOT WORKING I HAVE WRITE HIDE CHK.

Re: INTERACTIVE REPORTS

Former Member — Mon, 09 Jul 2007 15:23:13 GMT

Hello Ajay,

You did not populate any value to chk,i have modified the code and populated values like 01 02 to CHK.

when you double click chk,then it will trigger now.

See the below code :

REPORT YTEST_REP9 NO STANDARD PAGE HEADING.

TABLES: EKKO , EKPO.

DATA: BEGIN OF IT_EBELN OCCURS 0,

EBELN TYPE EKKO-EBELN,

LIFNR TYPE EKKO-LIFNR,

check(1) type c,

END OF IT_EBELN.

data chk(3) type c.

SELECT-OPTIONS: S_PO FOR EKKO-EBELN DEFAULT '4500000000'.

SELECT-OPTIONS: S_DATE FOR EKKO-BEDAT DEFAULT '20060823'.

*PARAMETERS PO(10) TYPE C.

*PARAMETERS PO_DATE TYPE D.

START-OF-SELECTION.

SELECT EBELN LIFNR

FROM EKKO

INTO TABLE IT_EBELN

WHERE EBELN IN S_PO

AND BEDAT IN S_DATE.

chk = '00'.

LOOP AT IT_EBELN.

hide chk.

chk = chk + '01'.

*hide it_ebeln-check.

AT FIRST.

WRITE:/ 'CHK' , 15 'PO_NUMBER' , 30 'ACCOUNT_NUMBER'.

ULINE.

SKIP.

ENDAT.

WRITE:/ CHK, 15 IT_EBELN-EBELN , 30 IT_EBELN-LIFNR.

*clear chk.

ENDLOOP.

end-of-selection.

SET PF-STATUS '100_S'.

*AT LINE-SELECTION .

*WRITE:/ IT_EBELN-EBELN .

AT USER-COMMAND.

CASE SY-UCOMM.

WHEN 'CANCEL'.

LEAVE TO SCREEN 0.

WHEN 'DISPLAY'.

write: / chk.

ENDCASE.

TOP-OF-PAGE.

WRITE:/ 'THIS IS THE PURCHASE ORDER'.

SKIP.

If problem solved please close the thread.

Thanks

Seshu