Long Shot - SOFM from Workitem to BSP

[Breslavets Sergey]

Yes, they both type xstring. The statement is a leftover from my
previous experiments - content was of a different type, hence the
assignment. 
You'd also need to include smt like this in the beginning of your html
page to display it but you probably already know it. I have it displayed
in a new window here, but you can use <iframe> as well to have it on the
same page.
---------------------------------------------------------
<%  IF pe->display_url IS NOT INITIAL.
      %>
      <script language="Javascript">
        window.open("<%= pe->display_url%>").focus();
      </script>
      <%
  ENDIF.
%>
--------------------------------------------------------

Regards,
Serge


-----Original Message-----
From: sap-wug-bounces at mit.edu [mailto:sap-wug-bounces at mit.edu] On Behalf
Of Alon Raskin
Sent: Friday, June 29, 2007 4:23 AM
To: SAP Workflow Users' Group
Subject: RE: Long Shot - SOFM from Workitem to BSP

Sergey, this is awesome. 

In your code below you have the following statements

  content = x_content.

How is 'content' declared? I assume x_content is of type xstring?

Alon Raskin
e: araskin at 3i-consulting.com

-----Original Message-----
From: sap-wug-bounces at mit.edu [mailto:sap-wug-bounces at mit.edu] On Behalf
Of Breslavets Sergey
Sent: Friday, June 29, 2007 12:47 AM
To: SAP Workflow Users' Group
Subject: RE: Long Shot - SOFM from Workitem to BSP

Hi Alon, 
 
that's what i use (I got a weblog on that) - works for any type of
attachments configured in R/3 box. Hope this helps..

Regards,
Serge
 
------------------- DO HANDLE EVENT ------------------

  CALL FUNCTION 'SO_DOCUMENT_READ_API1'
    EXPORTING
      DOCUMENT_ID                       = l_docid
   IMPORTING
     DOCUMENT_DATA                      = ls_docdata
   TABLES
     OBJECT_CONTENT                     = lt_content
   EXCEPTIONS
     DOCUMENT_ID_NOT_EXIST            = 1
     OPERATION_NO_AUTHORIZATION       = 2
     X_ERROR                          = 3
     OTHERS                           = 4
            .
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.

  describe table lt_content lines l_size.
  multiply l_size by 255.

  CALL FUNCTION 'SCMS_BINARY_TO_XSTRING'
    EXPORTING
      INPUT_LENGTH       = l_size
*     FIRST_LINE         = 0
*     LAST_LINE          = 0
    IMPORTING
      BUFFER             = x_content
    TABLES
      BINARY_TAB         = lt_content
    EXCEPTIONS
      FAILED             = 1
      OTHERS             = 2
            .
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.

  content = x_content.

  data: l_mimetype type W3CONTTYPE,
        l_type type string.

  translate ls_object-file_ext to lower case.

  clear l_type.

  CALL FUNCTION 'SDOK_MIMETYPE_GET'
    EXPORTING
      EXTENSION                  = ls_object-file_ext
      X_USE_LOCAL_REGISTRY       = 'X'
    IMPORTING
      MIMETYPE                   = l_mimetype
            .

  l_type = l_mimetype.

  CREATE OBJECT cached_response
         TYPE CL_HTTP_RESPONSE EXPORTING add_c_msg = 1.

  l_xlen = xstrlen( content ).
  cached_response->set_data( data   = content
                      length = l_xlen ).

  cached_response->set_header_field(
        name  = if_http_header_fields=>content_type
        value = l_type ).
  cached_response->set_status( code = 200 reason = 'OK' ).
  cached_response->server_cache_expire_rel( expires_rel = 180 ).

  CALL FUNCTION 'GUID_CREATE'
    IMPORTING
      ev_guid_32 = guid.

  CONCATENATE runtime->application_url '/' guid '.'
              ls_object-file_ext
              INTO me->display_url.

  cl_http_server=>server_cache_upload( url      = me->display_url
                                       response = cached_response ).


________________________________

From: sap-wug-bounces at mit.edu [mailto:sap-wug-bounces at mit.edu] On Behalf
Of Alon Raskin
Sent: Thursday, June 28, 2007 10:07 PM
To: SAP Workflow Users' Group
Subject: Long Shot - SOFM from Workitem to BSP



I know it's a long shot.

 

A SOFM is  created by a user by attaching a PPT file (Powerpoint) to a
work item.

 

What the BSP does is read the SOFM using SO_DOCUMENT_READ_API1 and
return the file to the BSP so that the PPT can be displayed.


The problem is that what the user sees is a whole bunch of junk. My
guess is that the problem is the conversion of the data from the FM
SO_DOCUMENT_READ_API1 to XSTRING. Perhaps someone has done something
like this before and can suggest what I am doing wrong?

 

I have attached the code.

 

Regards,

 

Alon Raskin

e: araskin at 3i-consulting.com <mailto:araskin at 3i-consulting.com> 

_______________________________________________
SAP-WUG mailing list
SAP-WUG at mit.edu
http://mailman.mit.edu/mailman/listinfo/sap-wug

_______________________________________________
SAP-WUG mailing list
SAP-WUG at mit.edu
http://mailman.mit.edu/mailman/listinfo/sap-wug