PHOTO UPLOAD in selection screen

Hi expert ,
I want to know can with fixed picture with SELECTION SCREEN ??. I means when i scroll the screen it must be scroll with it.

Hi,
Look i write one code to generate one page in that page there is many selection screen and screen blocks. Now i want to fixed one picture with particular selection screen block so that when i scrolling picture up and down picture must be scroll with it.

Similar Messages

Filename disappears on selection screen -BDC

Hi all,
I have an issue with my BDC,the seleection screen for picking up the file using parameters doesnt comes up in my parameter box. following is the code i'm using :
DATA: g_filename TYPE string.
**************FILE UPLOADING/DOWNLOADING**************************************
SELECTION-SCREEN BEGIN OF BLOCK block WITH FRAME TITLE text-001.
PARAMETERS : in_file LIKE rlgrap-filename OBLIGATORY.
            SUC_FILE LIKE RLGRAP-FILENAME OBLIGATORY,
            SUCI_FIL LIKE RLGRAP-FILENAME OBLIGATORY,
            ERR_FILE LIKE RLGRAP-FILENAME OBLIGATORY.
SELECTION-SCREEN END OF BLOCK block.
For Browsing the Input File Name on the Presentation Server         *
AT SELECTION-SCREEN ON VALUE-REQUEST FOR in_file.
CALL FUNCTION 'C13G0_GET_FILENAME_F4'
    CHANGING
      x_filename    = in_file
    EXCEPTIONS
      mask_too_long = 1.
PERFORM get_filename USING in_file.
Using call function for uploading a file                             *
START-OF-SELECTION.
g_filename = in_file.
CALL FUNCTION 'GUI_UPLOAD'
    EXPORTING
      filename            = g_filename
      filetype            = 'ASC'
      has_field_separator = 'X'
    TABLES
      data_tab            = it_bdc.
END-OF-SELECTION.
NEED HELP GURUS !
EAGERLY WAITIN FOR REPLIES,
SACHIN

i guess the FM u had used should contain one more exporting parameter,
but use his
AT SELECTION-SCREEN ON VALUE-REQUEST FOR in_file.
CALL FUNCTION 'F4_FILENAME'
       EXPORTING
            program_name = v_repid
            dynpro_number = syst-dynnr
            field_name    = 'IN_FILE'
       IMPORTING
            file_name     = in_file.

Selection-screen .... How to lock the whole block ??? urgent

i have created a selection with two blocks.
selection-screen begin of block d2 with frame title text-005 .
parameters r_create radiobutton group g3 USER-COMMAND u1.
parameters r_add radiobutton group g3.
selection-screen end of block d2.
selection-screen skip 1.
selection-screen begin of block b3 with frame title text-009.
parameters: pvenmap as checkbox default 'X'.
parameters: psermap no-display. "as checkbox default 'X' .
parameters: pmatlmap as checkbox. "default 'X'.
selection-screen end of block b3.
selection-screen begin of block b2 with frame title text-005 .
parameters r_valid no-display." radiobutton group g2 .
parameters r_master radiobutton group g2.
parameters p_sercat like asmd-astyp default 'SERV' no-display.
parameters p_serv radiobutton group sm1 default 'X'.
parameters p_genc radiobutton group sm1.
parameters p_act radiobutton group sm1.
parameters r_agrmt radiobutton group g2.
parameters p_extnum like ekko-ebeln no-display.
selection-screen end of block b2.
Now i want that when radio button r_create is 'X' then block 'B2' should be locked/disabled and when r_add is 'X' then block 'B3' should be locked/disabled.
One method is :-
AT SELECTION-SCREEN ON RADIOBUTTON GROUP g3.
v_ucomm = sscrfields-ucomm .
IF r_create EQ c_x .
      LOOP AT SCREEN.
      IF screen-name = ........
        screen-input = c_0.
        MODIFY SCREEN.
      ENDIF.
      ENDLOOP.
ENDIF.
but is there any other method such that i can disable/lock the whole block, instead of locking each field ???
regards
Rahul

Hi Rahul,
Please check the code below:
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: p_file TYPE rlgrap-filename MODIF ID abc, " OBLIGATORY,
            p_lifnr TYPE lfa1-lifnr      MODIF ID abc,
            p_vkorg TYPE vbak-vkorg      MODIF ID abc.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
PARAMETERS: p_kunnr TYPE vbak-kunnr MODIF ID def.
SELECT-OPTIONS: s_lifnr FOR lfa1-lifnr MODIF ID def,
                s_date FOR lfa1-erdat MODIF ID def,
                s_augru FOR vbak-augru MODIF ID def,
                s_vbeln FOR vbak-vbeln MODIF ID def.
SELECTION-SCREEN END OF BLOCK b2.
SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-003.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: upload RADIOBUTTON GROUP g1 USER-COMMAND uc01.
SELECTION-SCREEN COMMENT 3(60) text-025 FOR FIELD upload.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: reprss RADIOBUTTON GROUP g1 .                   "#EC *
SELECTION-SCREEN COMMENT 3(60) text-026 FOR FIELD reprss.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK b3.
AT SELECTION-SCREEN OUTPUT.
IF reprss EQ 'X'.
    LOOP AT SCREEN.
      IF screen-group1 = 'ABC'.
        screen-input = '0'.
      ELSEIF screen-group1 = 'DEF'.
        screen-active = '1'.
      ENDIF.
      MODIFY SCREEN.
    ENDLOOP.
ELSEIF upload EQ 'X'.
    LOOP AT SCREEN.
      IF screen-group1 = 'DEF'.
        screen-input = '0'.
      ELSEIF screen-group1 = 'ABC'.
        screen-active = '1'.
      ENDIF.
      MODIFY SCREEN.
      CLEAR upload.
    ENDLOOP.
Regards
kannaiah
please reward useful points

2 selection screen in one report.

hi,
i need to have 2 selection screen in one report....based on the input of 1st selection screen i need to display another selection screen. The 1st selection screen consist of three radio buttons....selecting one of them should allow me to further input data....
i tried user command, modif id...but the problem is the 2nd selection screen is also displayed initially and den after clickin d radio button i get only the 2nd selection screen...
i cannot use module pool programming coz of user requirement.
could anybody help with the code??

Hi
Please this code ..
SELECTION-SCREEN: BEGIN OF BLOCK c1 WITH FRAME TITLE text-001.
Upload table
PARAMETER: p_upload TYPE char01 RADIOBUTTON GROUP rsel
                    DEFAULT 'X' USER-COMMAND ucomm,
Edit Tables
           p_edt_tb TYPE char01 RADIOBUTTON GROUP rsel.
SELECTION-SCREEN: END OF BLOCK c1.
Upload table
SELECTION-SCREEN: BEGIN OF BLOCK c2 WITH FRAME TITLE text-002.
PARAMETERS: p_tab   TYPE char16     MODIF ID m1,
            p_comp TYPE char18     MODIF ID m1,
            p_plant TYPE werks_d    MODIF ID m1,
            p_excel TYPE localfile MODIF ID m1.
SELECTION-SCREEN: END OF BLOCK c2.
Edit Table
SELECTION-SCREEN: BEGIN OF BLOCK c3 WITH FRAME TITLE text-003.
Replace component
PARAMETER: p_rp_cmp TYPE char01 RADIOBUTTON GROUP edtb
                      DEFAULT 'X' USER-COMMAND ucomm MODIF ID m2,
Edit Lines
           p_edt_ln TYPE char01 RADIOBUTTON GROUP edtb MODIF ID m2.
SELECTION-SCREEN: END OF BLOCK c3.
SELECTION-SCREEN: BEGIN OF BLOCK c4 WITH FRAME TITLE text-004.
Replace component
PARAMETERS: p_tab_r   TYPE char16 MODIF ID m3,   "Assembly Table Name
            p_comp_r TYPE char18 MODIF ID m3.   "Upload Table Name
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(31) FOR FIELD p_fcomp MODIF ID m3.
PARAMETER: p_fcomp TYPE zpart MODIF ID m3.
SELECTION-SCREEN COMMENT 62(20) FOR FIELD p_tcomp MODIF ID m3.
PARAMETER p_tcomp TYPE zpart MODIF ID m3.
SELECTION-SCREEN END OF LINE.
Edit Lines
PARAMETERS: p_fexcel TYPE localfile MODIF ID m4,
            p_texcel TYPE localfile MODIF ID m4.
SELECTION-SCREEN: END OF BLOCK c4.
SELECTION-SCREEN: BEGIN OF BLOCK c5 WITH FRAME TITLE text-005.
validate data
PARAMETERS: p_valid AS CHECKBOX DEFAULT space
                    USER-COMMAND ucomm MODIF ID m5,
Background Processing
            p_back AS CHECKBOX DEFAULT space
                    USER-COMMAND ucomm.
SELECTION-SCREEN: END OF BLOCK c5.
AT SELECTION-SCREEN OUTPUT.
Design selection parameters dynamically
PERFORM sub_set_file_param.
FORM sub_set_file_param .
LOOP AT SCREEN.
If Upload is check
    IF NOT p_upload IS INITIAL.
      IF screen-group1 = 'M2' OR
         screen-group1 = 'M3' OR
         screen-group1 = 'M4'.
        screen-active = 0.
      ENDIF.
    ELSE.
If Edit Tables is check
      IF screen-group1 = 'M1'.
        screen-active = 0.
      ENDIF.
    ENDIF.
If Replace Component is check
    IF p_rp_cmp IS NOT INITIAL.
      IF screen-group1 = 'M4' OR
         screen-group1 = 'M5'.
        screen-active = 0.
      ENDIF.
    ELSE.
If Edit Lines is check
      IF screen-group1 = 'M3'.
        screen-active = 0.
      ENDIF.
    ENDIF.
Modify the screen
    MODIFY SCREEN.
ENDLOOP.
ENDFORM.

I select photo from iPhoto,go to share:email, photo uploaded to email, type in address, click send, pop up window appears with: email did not go thru because server did not reply - now what, how do I fix?

I select my photos from iPhoto, go to toolbar, click share and email, photo is uploaded onto email screen and I add photo info and type in my
email address, click send at the bottom of page and it after a minute or two, a pop up appears with the message: your email did not go through
because your server did not reply. Have sent the same photo to my email address with no problem just to doublecheck. Why will it not
send out to other email addresses? Thank you.

Go into iPhoto's Accounts preference pane and delete the email account that's there. Now add it back and try again.
A more reliable method is to set Mail as the email Client for iPhoto in iPhoto's General preference pane. The Mail client is more reliable, gives you better access to your Contacts, gives you a sent copy and has photo themes similar to iPhoto's in its stationary section.
OT

Unable to Upload data from text file into BEx Analyzer selection screen

Hi,
No response from BEx Analyzer when I am trying to upload around 40,000 material from text file into BEx Analyzer selection screen using "Upload selections" options. But I am able to upload only 10,000 material from text file. I never faced same kind of issue when I am using BEx Analyzer 3.x. Please let me know I have to change any settings related to BEx or any other.
Thanks
Sri Krishna Ponnada.

Hello
It seems you are reaching the .NET memory limitation informed in note 1040454.
Because 3.5 does not use .NET it can work that.
Regards,
Ricardo

Download and upload selection screen texts

hello,
       My requirement is to upoad and download selection screen texts from one system to another..
       How do download the selection screen texts from program to the application server and then upload them on another system. I am writing a bdc to carry out this process...
      Please help me out with this..
Thank you,

Hi,
Why don't you just transport it? If it is linked you can asked basis to set the transport part and link it. If it is not you can download the transport and import it on another system.
If you still need a program to do that. You can use SAPlink on [http://wiki.sdn.sap.com/wiki/display/ABAP/SAPlink]. SDN provided such code already just download it and implement it on both of your system then you can copy a program with selection screen.
Cheers,
Chaiphon

Upload from clipboard option in webdynpro abap selection screen

Hello Gurus,
We have a requirement in select-options in webdynpro.i have implimented select-options successfully using
WDR_SELECT_OPTIONS used component.now i need to impliment 'upload from clipboard' option when ever i click on advance options arrow mark. this option we can get in normal abp from selection screen.in selection screen against select-option field we have multiple options arrow mark.when ever we click this arrow mark we can able to see the upload from clipboard button at lowe level.exact same option how can we impliment in webdynpro abap selection screen.
Could anyone please suggest solutions?
if possible could you send me the sample code or relevent links for the same.
Thanks in Advance for your replies.
Regards,
babu

Hi,
Which server version are you working on...Is it ECC6 or nwetweaver 7..
I guess that option is avaialbel in Netweaver 7.0..Need to check there is an option for Clipboard in select-options..
Regards,
Lekha.

Text upload in Web Template variable selection screen

Hi all,
In the Analyzer it is possible to upload text files in the variable selection screen but I can't find this feature in the variable selection screen for Web Templates.
Anyone has an idea ?
Regards,
Olivier

Hi,
it's is not possible with standard.
I read in some sap feature paper that it will come.
Maybe it will be possible with modification, but that's only an idea.
Kind regards,
Tobias

Selection parmeters in the selection screen to upload a file to applserver

what are the selection parmeters in the selection screen to upload a file to applserver

hai bharat,
     There are two steps in the solution of this problem.
1. Create an internal table to get the required data based on the given selection parameters.
2. Download the data from internal table to file on the application server.
In the first step,
you should create the internal table with the required structure.
(ii) Use select statement if you want to retrieve data from database with required logic.
In the second step,
Create a string with max. length you required in the report program with some intial value
(ii) Open a dataset by using
OPEN DATASET filename for output in text mode encoding default
to open a file on application server.
(iii) Transfer data from internal table to file opened in first step on application server.To do that
a) Use
      Loop at itab1 into w_itab(workarea).
        transfer w_itab to filename.
      endloop.
(iv) close the data set by using
      CLOSE DATASET filename.
After this step, the file with filename was created on the application server with selected data based on the selectionj parameters.
If you feel, this is useful , reward points.
by
prasad g.v.k

Uploading selection data to an ABAP selection screen

Not sure this is the best place for this question but here goes.
When a user is presented with a selection screen from an ABAP they have the option to upload data from a text file. This works fine for single value lists but I cannot get this to work for ranges.
I have tried tab & comma delimited files, xls and plain fixed width text and am always presented with the message 'lower limit is greater than upper limit'.
Regards
Paul.

Hi Paul,
You are thanking a poster for his answer.
Please next time also give him points.
See: /people/mark.finnern/blog/2004/08/10/spread-the-love
This time I did it for you.
Remember: When you ask a question you also assume the responsibility to assign points.
Please check your other questions and if the answers were good.
Spread the love and give some points.
Thanks in advance, Mark.

Upload a list on BW selection screen

Hello
please could someone help - I am trying to find a way of uploading a list for the selections on the BW front selection screen - the same as in R/3 select-options where you can upload a list.
is it possible within BW?
any help would be great
cheers
Nick

To personalize:
http://help.sap.com/saphelp_nw04/helpdata/en/3f/30ae3d47afd652e10000000a114084/content.htm
Saving Variants:
http://help.sap.com/saphelp_nw04/helpdata/en/f1/0a54f5e09411d2acb90000e829fbfe/content.htm
Once you have a variant, append it like this:
http://yourAppServer:yourPort/SAP/BW/BEx?CMD=LDOC&template_id=yourTemplate&variant=nameofvariant
Thanks,
Jeff

When I use the type tool or the selection tools, my photos blink between the photo and a black screen. Anyone else have this issue?

When I use the type tool or the selection tools, my photos blink between the photo and a black screen. Anyone else have this issue?

Does turning off »Use Graphics Processor« in the Performance Preferences and restarting Photoshop have any bearing on the issue?

Can't figure how to select a whole album to upload to Flickr. If I select all the photos in an album, the photos upload but not my titles.

Can't figure how to select a whole album to upload to Flickr. If I select all the photos in an album, the photos upload but not my titles.

Export the photos out of iPhoto via the File ➙ Export ➙ File Export menu option to a folder on the Desktop. Then drag the folder onto the disk icon on the Desktop and burn. Be sure to select the Kind, qualtiy and size of the file you need.
OT

Employee Photo Upload through binary data

Hi all,
I know the Provision for Photo upload through OAAD Tcode, I know FM to upload the photos by giving path as input data. my requirement is I have picture in the form of binary data . i want to upload that into PA30. I have return the following code. No Error but image is not displayed in PA30.Can u Please correct me?
tables: toav0, toaom, twfdb, toapa.
data: key like ojint-key,
      object like ojint-name,
      object_id like toav0-object_id,
      archiv_id like toav0-archiv_id,
      arc_doc_id like toav0-arc_doc_id,
      ablagedatum like sapb-sapabldate,
      ar_date like toav0-ar_date,
      del_date like toav0-del_date,
      sap_object like toaom-sap_object,
      ar_object like toaom-ar_object,
      expiry_tim like toaom-expiry_tim,
      method like ojint-method,
      return like ojint-return,
      parameter like ojint-parameter.
data:begin of i_toav0 occurs 1.
        include structure toav0.
data: end of i_toav0.
data: begin of i_toaom occurs 1.
        include structure toaom.
data: end of i_toaom.
data: begin of fields occurs 1.
        include structure ojfields.
data: end of fields.
DATA:     filename1 TYPE string.
Data: i_name TYPE STXBITMAPS-TDNAME value 'TEST',
* archiv_id like toav0-archiv_id,
i_id TYPE STXBITMAPS-TDID VALUE 'BMAP',
i_btype TYPE STXBITMAPS-TDBTYPE VALUE 'BCOL',
l_bds_bytecnt TYPE i,
FLENGTH TYPE SAPB-LENGTH,
l_bds_content TYPE TABLE OF bapiconten,
OUTDOC     LIKE     TOADT ,
wa_l_bds_content TYPE bapiconten.
*DATA : BINARY TYPE STANDARD TABLE OF TBL1024,
data : BINARY TYPE STANDARD TABLE OF TBL1024 WITH HEADER LINE,
ARCHIVOBJECT type standard table of docs,
archiv_doc_id like toav0-arc_doc_id,
wa_binary type TBL1024.
data: lw_ar_object like toaom-ar_object,
      lw_object_id like sapb-sapobjid,
      lw_sap_object like toaom-sap_object,
      lw_doc_type like toadd-doc_type,
      lw_path like sapb-sappfad,"toav0-arc_doc_id
*      archiv_doc_id like toav0-arc_doc_id,
      doc_type like toadt-doc_class.
constants: c_sap_object type toaom-sap_object value 'PREL',
            c_ar_object type toaom-ar_object value 'HRICOLFOTO',
            c_doc_type type toaom-doc_type value 'JPG'.
PARAMETERS: filename(150) TYPE c OBLIGATORY.                               "Name of the File where source as txt format
AT SELECTION-SCREEN ON VALUE-REQUEST FOR filename.
PERFORM getfile.
start-of-selection.
filename1 = filename.
key = '010001380002'.
lw_ar_object = c_ar_object.
* lw_object_id = w_pernr_pass.
lw_sap_object = c_sap_object.
lw_doc_type = c_doc_type.
* lw_path = it_data-file_nam.
CALL FUNCTION 'GUI_UPLOAD'
    EXPORTING
      filename = filename1
      filetype = 'BIN'
    TABLES
      data_tab = archivobject.
* Object to be archived
      select single * from toaom where ar_object = c_ar_object and sap_object = c_sap_object.
      if sy-subrc <> 0.
        raise UPLOAD_ERROR.
      else.
* Authority check with Archive id
        archiv_id = toaom-archiv_id.
        perform authority_check_create(oaall)
        using archiv_id object space ar_object space
        changing sy-subrc.
        if sy-subrc ne 0.
          raise UPLOAD_ERROR.
        else.
          if sy-subrc <> 0.
            raise UPLOAD_ERROR.
            clear toav0.
          else." Transfer key for archiving
            toav0-object_id = key.
            if key eq space.
              Raise FUNCTION_ERROR.
              clear toav0.
            else.
              perform create_archive_object_new .
            endif.
          endif.
        endif.
      endif.
form create_archive_object_new .
CALL FUNCTION 'ARCHIV_CREATE_TABLE'
    EXPORTING
      AR_OBJECT                      = lw_ar_object
*   DEL_DATE                       =
      OBJECT_ID                      = '010001380002'
      SAP_OBJECT                     = lw_sap_object
*   FLENGTH                        = '2328'
   DOC_TYPE                       = lw_doc_type
*   DOCUMENT                       =
*   MANDT                          = SY-MANDT
* IMPORTING
*   OUTDOC                         =
   TABLES
   ARCHIVOBJECT                   = ARCHIVOBJECT
*     BINARCHIVOBJECT                = binary
* EXCEPTIONS
*   ERROR_ARCHIV                   = 1
*   ERROR_COMMUNICATIONTABLE       = 2
*   ERROR_CONNECTIONTABLE          = 3
*   ERROR_KERNEL                   = 4
*   ERROR_PARAMETER                = 5
*   ERROR_USER_EXIT                = 6
*   ERROR_MANDANT                  = 7
*   OTHERS                         = 8
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
call function 'ARCHIVOBJECT_CREATE_TABLE'
    EXPORTING
      archiv_id                = archiv_id
      document_type            = lw_doc_type
*      length                   = '2328'
    IMPORTING
      archiv_doc_id            = i_toav0-arc_doc_id
    TABLES
      archivobject             = archivobject
*      binarchivobject          = BINARY
    EXCEPTIONS
      error_kernel             = 1
      error_communicationtable = 2
      error_archiv             = 3.
       move i_toav0 to toav0.
    toav0-sap_object = lw_sap_object.
    toav0-object_id = key.
    move archiv_id to toav0-archiv_id.
    move i_toav0-arc_doc_id to toav0-arc_doc_id.
    toav0-ar_object = lw_ar_object.
    move lw_doc_type to toav0-reserve.
    move lw_doc_type to doc_type.
    commit work.
call function 'ARCHIV_CONNECTION_INSERT'
      exporting
        archiv_id                   = toav0-archiv_id
        arc_doc_id                  = toav0-arc_doc_id
        ar_date                     = ar_date
        ar_object                   = toav0-ar_object
*     DEL_DATE                    = ' '
*     MANDANT                     = ' '
        object_id                   = '010001380002'
        sap_object                  = toav0-sap_object
        doc_type                    = doc_type
*        barcode                     = barcode
      exceptions
        error_connectiontable       = 1
        others                      = 2
endform.
FORM getfile .
CALL FUNCTION 'WS_FILENAME_GET'
    EXPORTING
      def_filename     = ' '
      def_path         = '*.*'
      mask             = ''
      mode             = 'O'
      title            = ' SELECTING FILE FOR SOURCE PROGRAM'
    IMPORTING
      filename         = filename
    EXCEPTIONS
      selection_cancel = 3
      selection_error = 4.

Hi all,
I know the Provision for Photo upload through OAAD Tcode, I know FM to upload the photos by giving path as input data. my requirement is I have picture in the form of binary data . i want to upload that into PA30. I have return the following code. No Error but image is not displayed in PA30.Can u Please correct me?
tables: toav0, toaom, twfdb, toapa.
data: key like ojint-key,
      object like ojint-name,
      object_id like toav0-object_id,
      archiv_id like toav0-archiv_id,
      arc_doc_id like toav0-arc_doc_id,
      ablagedatum like sapb-sapabldate,
      ar_date like toav0-ar_date,
      del_date like toav0-del_date,
      sap_object like toaom-sap_object,
      ar_object like toaom-ar_object,
      expiry_tim like toaom-expiry_tim,
      method like ojint-method,
      return like ojint-return,
      parameter like ojint-parameter.
data:begin of i_toav0 occurs 1.
        include structure toav0.
data: end of i_toav0.
data: begin of i_toaom occurs 1.
        include structure toaom.
data: end of i_toaom.
data: begin of fields occurs 1.
        include structure ojfields.
data: end of fields.
DATA:     filename1 TYPE string.
Data: i_name TYPE STXBITMAPS-TDNAME value 'TEST',
* archiv_id like toav0-archiv_id,
i_id TYPE STXBITMAPS-TDID VALUE 'BMAP',
i_btype TYPE STXBITMAPS-TDBTYPE VALUE 'BCOL',
l_bds_bytecnt TYPE i,
FLENGTH TYPE SAPB-LENGTH,
l_bds_content TYPE TABLE OF bapiconten,
OUTDOC     LIKE     TOADT ,
wa_l_bds_content TYPE bapiconten.
*DATA : BINARY TYPE STANDARD TABLE OF TBL1024,
data : BINARY TYPE STANDARD TABLE OF TBL1024 WITH HEADER LINE,
ARCHIVOBJECT type standard table of docs,
archiv_doc_id like toav0-arc_doc_id,
wa_binary type TBL1024.
data: lw_ar_object like toaom-ar_object,
      lw_object_id like sapb-sapobjid,
      lw_sap_object like toaom-sap_object,
      lw_doc_type like toadd-doc_type,
      lw_path like sapb-sappfad,"toav0-arc_doc_id
*      archiv_doc_id like toav0-arc_doc_id,
      doc_type like toadt-doc_class.
constants: c_sap_object type toaom-sap_object value 'PREL',
            c_ar_object type toaom-ar_object value 'HRICOLFOTO',
            c_doc_type type toaom-doc_type value 'JPG'.
PARAMETERS: filename(150) TYPE c OBLIGATORY.                               "Name of the File where source as txt format
AT SELECTION-SCREEN ON VALUE-REQUEST FOR filename.
PERFORM getfile.
start-of-selection.
filename1 = filename.
key = '010001380002'.
lw_ar_object = c_ar_object.
* lw_object_id = w_pernr_pass.
lw_sap_object = c_sap_object.
lw_doc_type = c_doc_type.
* lw_path = it_data-file_nam.
CALL FUNCTION 'GUI_UPLOAD'
    EXPORTING
      filename = filename1
      filetype = 'BIN'
    TABLES
      data_tab = archivobject.
* Object to be archived
      select single * from toaom where ar_object = c_ar_object and sap_object = c_sap_object.
      if sy-subrc <> 0.
        raise UPLOAD_ERROR.
      else.
* Authority check with Archive id
        archiv_id = toaom-archiv_id.
        perform authority_check_create(oaall)
        using archiv_id object space ar_object space
        changing sy-subrc.
        if sy-subrc ne 0.
          raise UPLOAD_ERROR.
        else.
          if sy-subrc <> 0.
            raise UPLOAD_ERROR.
            clear toav0.
          else." Transfer key for archiving
            toav0-object_id = key.
            if key eq space.
              Raise FUNCTION_ERROR.
              clear toav0.
            else.
              perform create_archive_object_new .
            endif.
          endif.
        endif.
      endif.
form create_archive_object_new .
CALL FUNCTION 'ARCHIV_CREATE_TABLE'
    EXPORTING
      AR_OBJECT                      = lw_ar_object
*   DEL_DATE                       =
      OBJECT_ID                      = '010001380002'
      SAP_OBJECT                     = lw_sap_object
*   FLENGTH                        = '2328'
   DOC_TYPE                       = lw_doc_type
*   DOCUMENT                       =
*   MANDT                          = SY-MANDT
* IMPORTING
*   OUTDOC                         =
   TABLES
   ARCHIVOBJECT                   = ARCHIVOBJECT
*     BINARCHIVOBJECT                = binary
* EXCEPTIONS
*   ERROR_ARCHIV                   = 1
*   ERROR_COMMUNICATIONTABLE       = 2
*   ERROR_CONNECTIONTABLE          = 3
*   ERROR_KERNEL                   = 4
*   ERROR_PARAMETER                = 5
*   ERROR_USER_EXIT                = 6
*   ERROR_MANDANT                  = 7
*   OTHERS                         = 8
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
call function 'ARCHIVOBJECT_CREATE_TABLE'
    EXPORTING
      archiv_id                = archiv_id
      document_type            = lw_doc_type
*      length                   = '2328'
    IMPORTING
      archiv_doc_id            = i_toav0-arc_doc_id
    TABLES
      archivobject             = archivobject
*      binarchivobject          = BINARY
    EXCEPTIONS
      error_kernel             = 1
      error_communicationtable = 2
      error_archiv             = 3.
       move i_toav0 to toav0.
    toav0-sap_object = lw_sap_object.
    toav0-object_id = key.
    move archiv_id to toav0-archiv_id.
    move i_toav0-arc_doc_id to toav0-arc_doc_id.
    toav0-ar_object = lw_ar_object.
    move lw_doc_type to toav0-reserve.
    move lw_doc_type to doc_type.
    commit work.
call function 'ARCHIV_CONNECTION_INSERT'
      exporting
        archiv_id                   = toav0-archiv_id
        arc_doc_id                  = toav0-arc_doc_id
        ar_date                     = ar_date
        ar_object                   = toav0-ar_object
*     DEL_DATE                    = ' '
*     MANDANT                     = ' '
        object_id                   = '010001380002'
        sap_object                  = toav0-sap_object
        doc_type                    = doc_type
*        barcode                     = barcode
      exceptions
        error_connectiontable       = 1
        others                      = 2
endform.
FORM getfile .
CALL FUNCTION 'WS_FILENAME_GET'
    EXPORTING
      def_filename     = ' '
      def_path         = '*.*'
      mask             = ''
      mode             = 'O'
      title            = ' SELECTING FILE FOR SOURCE PROGRAM'
    IMPORTING
      filename         = filename
    EXCEPTIONS
      selection_cancel = 3
      selection_error = 4.

PHOTO UPLOAD in selection screen

Similar Messages

Maybe you are looking for