Phoonookan Blogger

Sunday, 12 March 2017

Class Timer in PBO Screen

Declaration Variable

CLASS xcl_event_receiver   DEFINITION DEFERRED.
DATA: xo_timer  TYPE  REF TO cl_gui_timer.
DATA: xo_event  TYPE  REF TO xcl_event_receiver.
___________________________________________________________________________

CLASS xcl_event_receiver DEFINITION.
  PUBLIC SECTION.

    CLASS-METHODS:
      timer_finished       FOR EVENT  finished
                                  OF  cl_gui_timer.

ENDCLASS.

CLASS xcl_event_receiver IMPLEMENTATION.

  METHOD timer_finished.
Do anything....
ENDMETHOD.

ENDCLASS.

___________________________________________________________________________

PBO : Status_0100

MODULE status_0100 OUTPUT.
SET PF-STATUS 'TOOLBAR'.

IF xo_timer IS INITIAL.
    CREATE OBJECT xo_timer
      EXCEPTIONS
        OTHERS = 4.

    CHECK sy-subrc EQ  0.
    CREATE OBJECT xo_event.
  ENDIF.

  SET HANDLER xo_event->timer_finished FOR xo_timer.

  xo_timer->interval = 1.

"Create Container and ALV...

xo_timer->run( ).

ENDMODULE.

Get Extension File

Func : TRINT_FILE_GET_EXTENSION

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)