topic Re: Attachment Functionality Required in Application Development and Automation Discussions

Attachment Functionality Required

Former Member — Wed, 30 Aug 2006 10:47:58 GMT

Hi!

I have the following requirement:-

- We have a Dialogue program in which we need to add a push button 'Attachment'.

- Clicking on that push button should allow me to browse through the screen and select the required file and attach it.

- After it is attached double clicking on that doc. should allow me to view that file.

Since I am very new in ABAP it would be great if someone could provide a helpful hand.Will be thankful to you.

Thanks and Regards

Sourabh Verma

Re: Attachment Functionality Required

Former Member — Wed, 30 Aug 2006 11:46:05 GMT

Hi Sourabh,

here a little report wich shows files.

when you click an the Filename it will be shown

with the application.

REPORT ZGRO_TESTT MESSAGE-ID ZZ.

DATA: DIR TYPE STRING.

DATA: FILE_TABLE TYPE FILETABLE.

DATA: COUNT TYPE I.

DATA: APPL TYPE STRING.

DATA: APP1(80).

DATA: WA_FILE_TABLE(80).

DATA: CURSORFIELD(20).

START-OF-SELECTION.

DIR = 'D:\'. "Here your DIR

CALL METHOD CL_GUI_FRONTEND_SERVICES=>DIRECTORY_LIST_FILES

EXPORTING

DIRECTORY = DIR

FILTER = '*.DOC' "update if you need

FILES_ONLY = 'X'

CHANGING

FILE_TABLE = FILE_TABLE

COUNT = COUNT.

LOOP AT FILE_TABLE INTO WA_FILE_TABLE.

CONCATENATE DIR WA_FILE_TABLE INTO APP1.

WRITE: / 'Datei:', APP1 COLOR COL_NEGATIVE HOTSPOT ON .

HIDE: APP1.

ENDLOOP.

END-OF-SELECTION.

AT LINE-SELECTION.

GET CURSOR FIELD CURSORFIELD.

CASE CURSORFIELD.

WHEN 'APP1'.

APPL = APP1.

CALL METHOD CL_GUI_FRONTEND_SERVICES=>EXECUTE

EXPORTING

APPLICATION = APPL.

ENDCASE.

Hope it helps.

Regards, Dieter

Re: Attachment Functionality Required

Former Member — Thu, 31 Aug 2006 10:06:22 GMT

Hi Dieter!

I tried running this report.But no output is coming.

Re: Attachment Functionality Required

Former Member — Thu, 31 Aug 2006 10:30:08 GMT

Hi Sourabh,

do you update the field DIR = 'D:\'?

look at your workstation and go

to your Directory where the .DOC-Files are stored.

This Directory must be the DIR-Field in Abap.

F. Exampl. C:\TEMP\DOCFILES.

DIR must be 'C:\TEMP\DOCFILES\'.

Regards, Dieter

Re: Attachment Functionality Required

Former Member — Thu, 31 Aug 2006 11:16:16 GMT

Hi Dieter!

This is how i ran the code.

REPORT Z57340TEST9 .

*REPORT ZGRO_TESTT MESSAGE-ID ZZ.

DATA: DIR TYPE STRING.

DATA: FILE_TABLE TYPE FILETABLE.

DATA: COUNT TYPE I.

DATA: APPL TYPE STRING.

DATA: APP1(80).

DATA: WA_FILE_TABLE(80).

DATA: CURSORFIELD(20).

START-OF-SELECTION.

DIR = 'C:\YServer'. "Here your DIR

CALL METHOD CL_GUI_FRONTEND_SERVICES=>DIRECTORY_LIST_FILES

EXPORTING

DIRECTORY = DIR

FILTER = '*.DOC' "update if you need

FILES_ONLY = 'X'

CHANGING

FILE_TABLE = FILE_TABLE

COUNT = COUNT.

LOOP AT FILE_TABLE INTO WA_FILE_TABLE.

CONCATENATE DIR WA_FILE_TABLE INTO APP1.

WRITE: / 'Datei:', APP1 COLOR COL_NEGATIVE HOTSPOT ON .

HIDE: APP1.

ENDLOOP.

END-OF-SELECTION.

AT LINE-SELECTION.

GET CURSOR FIELD CURSORFIELD.

CASE CURSORFIELD.

WHEN 'APP1'.

APPL = APP1.

CALL METHOD CL_GUI_FRONTEND_SERVICES=>EXECUTE

EXPORTING

APPLICATION = APPL.

ENDCASE.

Regards

Sourabh

Re: Attachment Functionality Required

Former Member — Thu, 31 Aug 2006 11:19:10 GMT

Sorry Dieter!

This is the corrrect code.

REPORT Z57340TEST9 .

*REPORT ZGRO_TESTT MESSAGE-ID ZZ.

DATA: DIR TYPE STRING.

DATA: FILE_TABLE TYPE FILETABLE.

DATA: COUNT TYPE I.

DATA: APPL TYPE STRING.

DATA: APP1(80).

DATA: WA_FILE_TABLE(80).

DATA: CURSORFIELD(20).

START-OF-SELECTION.

DIR = 'C:\YServer.txt'. "Here your DIR

CALL METHOD CL_GUI_FRONTEND_SERVICES=>DIRECTORY_LIST_FILES

EXPORTING

DIRECTORY = DIR

FILTER = '*.DOC' "update if you need

FILES_ONLY = 'X'

CHANGING

FILE_TABLE = FILE_TABLE

COUNT = COUNT.

LOOP AT FILE_TABLE INTO WA_FILE_TABLE.

CONCATENATE DIR WA_FILE_TABLE INTO APP1.

WRITE: / 'Datei:', APP1 COLOR COL_NEGATIVE HOTSPOT ON .

HIDE: APP1.

ENDLOOP.

END-OF-SELECTION.

AT LINE-SELECTION.

GET CURSOR FIELD CURSORFIELD.

CASE CURSORFIELD.

WHEN 'APP1'.

APPL = APP1.

CALL METHOD CL_GUI_FRONTEND_SERVICES=>EXECUTE

EXPORTING

APPLICATION = APPL.

ENDCASE.

Re: Attachment Functionality Required

Former Member — Thu, 31 Aug 2006 11:25:37 GMT

Hi Sourabh,

First i think 'C:\YServer.txt' is not a directory!

I think DIR = 'C:\' ist ok.

But do you looking for txt or doc files.

You can change FILTER = '*.DOC'

To FILTER = '.', than you see all files.

Try it.

Regards, Dieter

Re: Attachment Functionality Required

Former Member — Fri, 01 Sep 2006 11:06:11 GMT

Hi Sourabh,

do you have still any problems with

this topic?

Regards, Dieter

Re: Attachment Functionality Required

Former Member — Fri, 01 Sep 2006 11:39:45 GMT

Hi Dieter!

Your help was indeed very helpful.Atleat I got some clue.But still my purpose is not excatly solved and I have to explore a lot.

Currently stuck up in some other issue.Will be requiring your help very shortly.

Thanks and Regards

Sourabh

Re: Attachment Functionality Required

Former Member — Thu, 07 Sep 2006 10:26:54 GMT

Hi Dieter!

The code here gives me all the files that are in C:\.

Basically, I want the functionality through which i can browse through my desktop and select a particular file through C:\ or D:\ or Desktop ,depending on the requirement.

Secondly i should be able to save that file to my system and it should be visible to me as a icon.Clicking on that icon should open the file.

This is similar to attaching a file to a mail.

Thanks and regards

Sourabh