Reupload file/change uploaded file

Question

Hi Friends,
I need requirement like  to reupload/change the already  uploaded file  in BSP Application.
A Brief Note:
I got an ITAB(STD),on which through Iterator , I am uploading the file in The application server(The actual path will be stored in  one of the database table field<b>(STUD).</b> Presently I uploaded one file for each row of Itab,and made it as display_url, to display the file.It is working fine. But when I want to change the  already uploaded file/overwrite the file path  & upload again through change file button, it is not working at all.
<b>The code I used as follows</b>:
<u>For file Reupload:</u>
DATA: fileUpload TYPE REF TO CL_HTMLB_FILEUPLOAD.
fileUpload ?= CL_HTMLB_MANAGER=>GET_DATA(
                       request = request
                       id      = 'STUD'
                       name    = 'fileUpload' ).
if fileUpload->file_name is not initial.
file_name      = fileUpload->file_name.
file_mime_type = fileUpload->file_content_type.
file_length    = fileUpload->file_length.
file_content   = fileUpload->file_content.
DATA: fname type string.
Enter the path to be stored in the server here....
Data : filepath type string,
       t1 type string.
filepath = file_name .
while filepath CA '\'.
  split filepath at '\' into t1 filepath.
endwhile.
Enter the path to be stored in the server here....
*This location is not shared,…
fname = '\default_host\sap\bc\bsp\sap\tmp\' .
concatenate fname filepath into fname.
close dataset path.
OPEN DATASET fname FOR OUTPUT IN BINARY MODE.
TRANSFER file_content TO FNAME.
CLOSE DATASET FNAME.
You can generate the URL..display_url shows you URL
REPLACE ALL OCCURRENCES OF '/' IN fname WITH '\'.
concatenate '
by-sap-Bass.com' fname into display_url.
IF  <row1> IS ASSIGNED.
<row1>-STUD = fname.
MODIFY STD from <row1>.
endif.
endif.
<u><b>The Iterator code:</b></u>
when 'tv1'.
DATA: tv TYPE REF TO cl_htmlb_tableview.
tv ?= cl_htmlb_manager=>get_data(
                        request      = runtime->server->request
                        name         = 'tableView'
                        id           = 'tv1' ).
IF tv IS NOT INITIAL.
  DATA: tv_data TYPE REF TO cl_htmlb_event_tableview.
  tv_data = tv->data.
  IF tv_data->prevselectedrowindex IS NOT INITIAL.
  FIELD-SYMBOLS: <row1> type LINE OF ITABTYPE .
    READ TABLE ITAB INDEX tv_data->prevselectedrowindex
    ASSIGNING <row1>.
    DATA value TYPE string.
  if <row1> is assigned.
value = tv_data->get_cell_id( row_index    =
                 tv_data->prevselectedrowindex
                                   column_index = '8' ).
    inputfield ?= cl_htmlb_manager=>get_data(
                            request      = request
                            name         = 'inputfield'
                            id           = value ).
    <row1>-STUD = inputfield->value.
method
IF_HTMLB_TABLEVIEW_ITERATOR~RENDER_CELL_START .
WHEN 'STUD'.
IF p_edit_mode IS  INITIAL.
    DATA: STUD TYPE STRING.
    STUD = m_row_ref->STUD.
     p_replacement_bee = CL_HTMLB_IMAGE=>FACTORY(
                          id        = p_cell_id
                  src = '@IT@'
    tooltip  = 'Please Press this Link for Detail Description'
         onClick ='Event1' ).
ELSE.
      p_replacement_bee = CL_HTMLB_BUTTON=>FACTORY(
                 id        = p_cell_id
                 text         = 'Click to change File'
                tooltip   = 'Press this to change the linked file'
             onClick   = 'Event1' ).
ENDIF.
why this is not working for me?.I look foward your suggestions in this regard.
Regards
CSM Reddy

Answer 1

Check out if this sample application created by me would be helpful:
[code]*----
*ZRK_FILE_TEST/CHANGE_FILES.HTM
local types
types: table1 type table of ZFILE_UPLOAD.
page attributes
display_type TYPE STRING
display_url TYPE STRING
file_content TYPE XSTRING
file_length TYPE STRING
file_mime_type TYPE STRING
file_name TYPE STRING
flag TYPE STRING
path TYPE STRING
paths TYPE TABLE1
result TYPE XSTRING
layout
<%@page language="abap" %>
<%@extension name="htmlb" prefix="htmlb" %>
<htmlb:content design="design2002" >
  <htmlb:page title="demo " >
    <htmlb:form encodingType="multipart/form-data" >
      <htmlb:textView text   = "Select a row to change the file"
                      design = "EMPHASIZED" />
      <htmlb:tableView id             = "tab01"
                       table          = "<%= paths %>"
                       selectionMode  = "singleselect"
                       onRowSelection = "myEvent" >
        <htmlb:tableViewColumns>
          <htmlb:tableViewColumn columnName          = "s_no"
                                 wrapping            = "true"
                                 width               = "100"
                                 horizontalAlignment = "center"
                                 title               = "Serial No." >
          </htmlb:tableViewColumn>
          <htmlb:tableViewColumn columnName          = "path"
                                 wrapping            = "true"
                                 width               = "100"
                                 horizontalAlignment = "center"
                                 title               = "Path" >
          </htmlb:tableViewColumn>
          <htmlb:tableViewColumn columnName          = "myicon"
                                 type                = "user"
                                 title               = "Image"
                                 horizontalAlignment = "center" >
            <htmlb:link id      = "$TVCID$"
                        text    = "Change File"
                        onClick = "$CARRNAME$" >
            </htmlb:link>
          </htmlb:tableViewColumn>
        </htmlb:tableViewColumns>
      </htmlb:tableView>
      <%
  if flag = 'X'.
      %>
      <htmlb:fileUpload id   = "myUpload"
                        size = "30" />
      <htmlb:button id      = "upload"
                    onClick = "myEvent"
                    text    = "Upload" />
      <%
  endif.
      %>
    </htmlb:form>
  </htmlb:page>
</htmlb:content>
eventhandler OnCreate
this handler is called once the page is first created (stateful mode)
it performs a once-off data initialization or object creation
select * from ZFILE_UPLOAD into table paths.
eventhandler OnInputProcessing
event handler for checking and processing user input and
for defining navigation
DATA: event TYPE REF TO cl_htmlb_event.
DATA: event_name type string.
DATA: event_type type string.
data: str1 type string.
data: str2 type string,
str3 type string.
data: index type i.
event = cl_htmlb_manager=>get_event( runtime->server->request ).
event_name = event->name.
event_type = event->event_type.
if event_name = 'link' and event_type = 'click'.
  split event->id at '_' into str1 str2 str3.
  index = str2.
  flag = 'X'.
endif.
if event->id = 'upload'.
DATA: fileUpload TYPE REF TO CL_HTMLB_FILEUPLOAD.
fileUpload ?= CL_HTMLB_MANAGER=>GET_DATA(
                       request = request
                       id      = 'myUpload'
                       name    = 'fileUpload' ).
file_name      = fileUpload->file_name.
file_mime_type = fileUpload->file_content_type.
file_length    = fileUpload->file_length.
file_content   = fileUpload->file_content.
DATA: fname type string.
Enter the path to be stored in the server here....
Data : filepath type string,
       t1 type string.
filepath = file_name .
while filepath CA '\'.
  split filepath at '\' into t1 filepath.
endwhile.
fname = '\documentation\raj\' .
concatenate fname filepath into fname.
OPEN DATASET fname FOR OUTPUT IN BINARY MODE.
TRANSFER file_content TO FNAME.
CLOSE DATASET FNAME.
REPLACE ALL OCCURRENCES OF '/' IN fname WITH '\'.
to update the new path into a data base table
data: s_no type int3.
data: wa type ZFILE_UPLOAD.
read table paths index index into wa.
wa-PATH = fname.
modify ZFILE_UPLOAD from wa.
endif.[/code]
The DB table ZFILE_UPLOAD has the following fields:
S_NO     INT3
PATH     CHAR100
Hope this helps,
Cheers:)
Ravikiran.
PS: Pls assign points if you find this answer helpful.