ABAP Easy Message Log

type-pools: ESP1 .

data:

LT_MESSAGE_TAB type ESP1_MESSAGE_TAB_TYPE ,

LS_MESSAGE_TAB type ESP1_MESSAGE_WA_TYPE.

         LS_MESSAGE_TAB-MSGID = 'AD' .

         LS_MESSAGE_TAB-MSGTY = 'W' .

         LS_MESSAGE_TAB-MSGNO = '010' .

         LS_MESSAGE_TAB-MSGV1 = TEXT-001.

append LS_MESSAGE_TAB to LT_MESSAGE_TAB .

call function 'C14Z_MESSAGES_SHOW_AS_POPUP'

tables

             I_MESSAGE_TAB = LT_MESSAGE_TAB.

Reading URL of GOS

by using Function module              SO_OBJECT_READ

 * Set folder
  l_folder_id-objtp = document_id-foltp.“FOL  
  l_folder_id-objyr = document_id-folyr.“29
  l_folder_id-objno = document_id-folno.“000000000004
* Set Object
  l_object_id-objtp = document_id-doctp.“URL   
  l_object_id-objyr = document_id-docyr.“38
  l_object_id-objno = document_id-docno.“000000001457
*
  CALL FUNCTION 'SO_OBJECT_READ'
    EXPORTING
     folder_id                  = l_folder_id
      object_id                  = l_object_id
    TABLES
      objcont                    = document_content




instid_b can be get from 
1)  table: SRGBTBREL
2) cl_binary_relation=>read_links
from http://zevolving.com/2009/02/generic-object-services-gos-toolbar-part-5-get-note-attachment-contents/


PARAMETERS: p_ord TYPE afko-aufnr.
*
START-OF-SELECTION.
*
*---------
* Get all the NOTE attached to Business object
*---------
*
* buseinss object key
  DATA: gs_lpor TYPE sibflporb.

  gs_lpor-instid = p_ord. “Prd Order 
  gs_lpor-typeid = 'BUS2005'.
  gs_lpor-catid  = 'BO'.

* attachment type selection
  DATA: lt_relat TYPE obl_t_relt,
        la_relat LIKE LINE OF lt_relat.

  la_relat-sign = 'I'.
  la_relat-option = 'EQ'.
  la_relat-low = 'URL'.
 APPEND la_relat TO lt_relat.

* Read the links
  DATA: t_links TYPE obl_t_link,
        la_links LIKE LINE OF t_links.

  DATA: lo_root TYPE REF TO cx_root.

  TRY.
      CALL METHOD cl_binary_relation=>read_links
        EXPORTING
          is_object           = gs_lpor
          it_relation_options = lt_relat
        IMPORTING
          et_links            = t_links.
    CATCH cx_root INTO lo_root.
  ENDTRY.

*---------
* Read NOTE contents
*---------
  DATA l_folder_id TYPE soodk.
  DATA l_object_id TYPE soodk.
  DATA document_id       TYPE sofmk.
* Get document id
  READ TABLE t_links INTO la_links INDEX 1.
  document_id = la_links-instid_b.

* Set folder
  l_folder_id-objtp = document_id-foltp.
  l_folder_id-objyr = document_id-folyr.
  l_folder_id-objno = document_id-folno.

* Set Object
  l_object_id-objtp = document_id-doctp.
  l_object_id-objyr = document_id-docyr.
  l_object_id-objno = document_id-docno.

* Read the document content
  DATA document_content  TYPE STANDARD TABLE OF soli.

  CALL FUNCTION 'SO_OBJECT_READ'
    EXPORTING
      folder_id                  = l_folder_id
      object_id                  = l_object_id
    TABLES
      objcont                    = document_content.

Get Ole2 object from SOI document object

Method GET_DOCUMENT_HANDLE of  I_OI_DOCUMENT_PROXY
return exporting parameter: HANDLE (structure type CNTL_HANDLE )

CNTL_HANDLE-OBJ has type OBJ_RECORD, same as OLE2_OBJECT in Type group  OLE2.

 OLE2_OBJECT can be used by statement CALL METHOD OF, SET PROPERTY OF, SET PROPERTY OF, Function Module CONTROL_GET_PROPERTY, or Function Module CONTROL_SET_PROPERTY. 

(like in https://scn.sap.com/thread/74462)

PRT for operation

Case 1 :
   AFKO-AUFPL = AFFH-AUFPL

Case 2 : Table
  MAPL , PLPO , PLAS , PLFH

VB For Application - Object Browser

1. Open Excel or Word.
2. Hold Alt + F11 for open Microsoft Visual Basic for Applications

3. Click button Object Browser.

ABAP OLE Programming for Excel

DATA: h_excel TYPE ole2_object,        " Excel object
        h_mapl TYPE ole2_object,         " list of workbooks
        h_map TYPE ole2_object,          " workbook
        v_filename TYPE string VALUE 'C:\Users\phoonookan\Desktop\1111.xlsx'.

  CREATE OBJECT h_excel 'EXCEL.APPLICATION'.
  SET PROPERTY OF h_excel  'Visible' = 1.
  CALL METHOD OF h_excel 'Workbooks' = h_mapl.
  CALL METHOD OF h_mapl 'Open' = h_map
    EXPORTING
    #1 = v_filename.

*CALL METHOD OF h_map 'PrintOut'.
  CALL METHOD OF h_map 'PrintPreview'.
  CALL METHOD OF h_mapl 'Close'.

MS word editor in Smartforms

Go to se38

Run RSCPSETEDITOR

     Check is SAPscript and Smart Form boxes Active.

     Uncheck is SAPscript and Smart Form boxes Inactive.

And click in Activate button.