Skip to Content
0
Feb 23, 2011 at 08:23 AM

download classical report to MS word with OLE

58 Views

hi experts,

I have a Classical HR Report that contains profile information of the employee.Now I have to Download the Report to Ms word through OLE . I tried some threads but they were just displaying the static text.I have to download the data for the following format.could some one help me on this?

WRITE : 'Salary Information '.
SKIP 1.
WRITE : 1 SY-ULINE(83).
WRITE : /1'|',2 'Period Ending On 31ST',25'|',26'Rating(If Any)',42'|',43'Basic Salary',57'|',58'Gpm',70'|',71'CTC',83'|'.
WRITE : /1 SY-ULINE(83).
CLEAR YEARSAL.CLEAR CURRENT.
CLEAR GROSS.CLEAR GROSS1.CLEAR CTC1.
LOOP AT ISAL INTO WSAL WHERE PERNR = WP01-PERNR AND ENDDA = '99991231' ."AND CURRENT BETWEEN WSAL-BEGDA AND WSAL-ENDDA.

  GROSS = WSAL-BET01 + WSAL-BET02 + WSAL-BET03 + WSAL-BET04.
  GROSS1 = GROSS.CONDENSE GROSS1.
  CTC1 = WSAL-BET10.CONDENSE CTC1.
WRITE : /1'|',2 'Current' ,25'|',26 WSAL-RTEXT,42'|',43 WSAL-BET01 ,57'|',58 GROSS1,70'|',71 CTC1,83'|'.
WRITE : /1 SY-ULINE(83).
ENDLOOP.
"need to download such information as above to ms word
"ole format
CREATE OBJECT gs_word 'WORD.APPLICATION' .
IF sy-subrc NE 0 .
MESSAGE s000(su) WITH 'Error while creating OLE object!'.
LEAVE PROGRAM .
ENDIF .
*--Setting object's visibility property
SET PROPERTY OF gs_word 'Visible' = '1' .
*--Opening a new document
GET PROPERTY OF gs_word 'Documents' = gs_documents .
CALL METHOD OF GS_DOCUMENTS 'ADD' = V_DOCUMENTS.
  CALL METHOD OF gs_selection 'TypeText'
EXPORTING
#1 = 'Overview Of The Employee'.
"the output format would be like this .
pernr    |   year   |    salary | .......

Edited by: SYED_ibbu on Feb 23, 2011 11:07 AM

Edited by: SYED_ibbu on Feb 24, 2011 5:57 AM