Skip to Content

As a follow-on from my previous post where I explained How to Use Custom Relationships in Training and Event Management (like specifying that one event type is a module of another event type), I will now explain how to configure the system to allow you to use a Vendor as the organizer of a course or event type.

The SAP standard configuration allows you to use a “Prospect”, “Customer”, “Organizational Unit” or “Company” as the organizer of the event type or course, but it doesn’t give the option to use a “Vendor” as the organizer.

If like many companies, you are using SAP for your Sales and Distribution processes, and maintain Vendor master data, then using a Vendor as the event organizer would make sense – if you are using external providers for the courses, then they will already exist in the system in Sales & Distribution, and there is no need to capture that vendor as a resource or company just for the sake of Training and Event Management. Leveraging the existing master data you have for vendors will prevent dual maintenance of vendor data, eliminate incorrectly captured vendor details and also allow you to report on events that were organized by specific vendors,

Interface Program

Firstly we need to create an interface program – this program will allow us to use the standard Vendor search helps to find a vendor in the training module. Create a new program named ZHR_LIFNR_OBJ_INTERFACE – note that I simply copied and drastically simplified program RHKUNA00 which is used for the customer integration. You will see in the next step how we link to this program. Copy and paste the following code:


PROGRAM zhr_lifnr_obj_interface MESSAGE-ID 5a.
 
 DATA: BEGIN OF fot_tab_wa,
         plvar LIKE p1000-plvar,
         otype LIKE p1000-otype,
         objid LIKE p1000-objid,
         short LIKE p1000-short,
         stext LIKE p1000-stext,
         begda LIKE plog-begda,
         endda LIKE plog-endda,
         pick  TYPE c,
         realo LIKE objec-realo,
       END OF fot_tab_wa.
 
 *&---------------------------------------------------------------------*
 *&      Form  get_maco
 *&---------------------------------------------------------------------*
 *       text
 *----------------------------------------------------------------------*
 *      -->GM_MACO    text
 *----------------------------------------------------------------------*
 FORM get_maco USING gm_maco TYPE any.
   gm_maco = 'RMAN_PRSP_LIFNR'.
 ENDFORM.                    "get_maco
 
 *&---------------------------------------------------------------------*
 *&      Form  get_name
 *&---------------------------------------------------------------------*
 *       text
 *----------------------------------------------------------------------*
 *      -->GK_KUNNR   text
 *      -->VALUE      text
 *      -->(GK_RESV1) text
 *      -->VALUE      text
 *      -->(GK_RESV2) text
 *      -->VALUE      text
 *      -->(GK_BEGDA) text
 *      -->VALUE      text
 *      -->(GK_ENDDA) text
 *      -->GK_SHORT   text
 *      -->GK_STEXT   text
 *      -->GK_SUBRC   text
 *----------------------------------------------------------------------*
 FORM get_name USING gk_kunnr        TYPE c
                     value(gk_resv1) TYPE c
                     value(gk_resv2) TYPE c
                     value(gk_begda) TYPE d
                     value(gk_endda) TYPE d
                     gk_short        TYPE c
                     gk_stext        TYPE c
                     gk_subrc        TYPE any.
   SELECT SINGLE name1 FROM lfa1 INTO gk_stext WHERE lifnr = gk_kunnr .
 ENDFORM.                    "get_name
 
 *&---------------------------------------------------------------------*
 *&      Form  get_time_interval
 *&---------------------------------------------------------------------*
 *       text
 *----------------------------------------------------------------------*
 *      -->VALUE        text
 *      -->(GTI_KTNRA)  text
 *      -->GTI_BEGDA    text
 *      -->GTI_ENDDA    text
 *      -->GTI_SUBRC    text
 *----------------------------------------------------------------------*
 FORM get_time_interval USING value(gti_ktnra) TYPE c
                              gti_begda        TYPE d
                              gti_endda        TYPE d
                              gti_subrc        TYPE any.
   gti_begda = '19000101'.
   gti_endda = '99991231'.
 ENDFORM.                    "get_time_interval
 
 *&---------------------------------------------------------------------*
 *&      Form  add_values_from_maco_get
 *&---------------------------------------------------------------------*
 *       text
 *----------------------------------------------------------------------*
 *      -->VALUE            text
 *      -->(AVFMG_PLVAR)    text
 *      -->VALUE            text
 *      -->(AVFMG_OTYPE)    text
 *      -->AVFMG_SEL_OBJID  text
 *----------------------------------------------------------------------*
 FORM add_values_from_maco_get
      USING value(avfmg_plvar) LIKE objec-plvar
            value(avfmg_otype) LIKE objec-otype
                  avfmg_sel_objid    TYPE c.
   DATA: lv_lifnr TYPE lifnr.
 
   CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
     EXPORTING
       input  = avfmg_sel_objid
     IMPORTING
       output = lv_lifnr
     EXCEPTIONS
       OTHERS = 0.
 
   avfmg_sel_objid =  lv_lifnr.
 ENDFORM.                    "add_values_from_maco_get
 
 *---------------------------------------------------------------------*
 *       FORM EXIST_EXTOBJ                    deaktiviert QPXK62886    *
 *---------------------------------------------------------------------*
 * Pruefung,ob Debitor im Intervall begdt/enddt existiert              *
 *---------------------------------------------------------------------*
 *  -->  VALUE(EK_OBJID)                                               *
 *  -->  VALUE(EK_BUKRS)                                               *
 *  -->  VALUE(EK_WERKS)                                               *
 *  -->  VALUE(EK_BEGDA)                                               *
 *  -->  VALUE(EK_ENDDA)                                               *
 *  <--  EK_SUBRC                                                      *
 *---------------------------------------------------------------------*
 FORM exist_extobj USING value(ek_objid) TYPE c "YSBUNI
                         value(ek_bukrs) TYPE any
                         value(ek_werks) TYPE any
                         value(ek_begda) TYPE d
                         value(ek_endda) TYPE d
                         ek_subrc        TYPE any.           "YSB616865
 
   ek_subrc = 0.
 ENDFORM.                    "exist_extobj
 
 
 *---------------------------------------------------------------------*
 *       FORM CHECK_MACO                                    "YNKK64794 *
 *---------------------------------------------------------------------*
 *       Pruefung ob MACO                                              *
 *---------------------------------------------------------------------*
 *       VALUE(CM_MACO)                                                *
 *       CM_OBJID                                                      *
 *       CM_SUBRC                                                      *
 *---------------------------------------------------------------------*
 FORM check_maco USING value(cm_maco) TYPE c               "YSBUNI
                       cm_objid       TYPE c
                       cm_subrc       TYPE any.              "#EC CALLED
 
   DATA : vendor  TYPE lifnr.
   vendor = cm_maco.
   cm_subrc = 0.
   cm_objid = vendor.
 ENDFORM.                    "check_maco
 
 *---------------------------------------------------------------------*
 *       FORM FILL_OBJID_TAB                                "YNKK94468 *
 *---------------------------------------------------------------------*
 *       Fuellen Tabelle fuer PLOG-MC                                  *
 *---------------------------------------------------------------------*
 *       FOT_TAB                                                       *
 *       VALUE(FOT_PLVAR)                                              *
 *       VALUE(FOT_OTYPE)                                              *
 *       VALUE(FOT_SEARCH)                                             *
 *       VALUE(FOT_LIMIT)                                              *
 *       FOT_CHECK                                                     *
 *---------------------------------------------------------------------*
 FORM fill_objid_tab
      TABLES fot_tab STRUCTURE fot_tab_wa "YSBUNI
      USING  value(fot_plvar)  TYPE c
             value(fot_otype)  TYPE c
             value(fot_search) TYPE c
             value(fot_limit)  TYPE i
             fot_check TYPE i.                               "#EC CALLED
   DATA: lt_selopt TYPE TABLE OF bapivendor_10,
         ls_selopt TYPE bapivendor_10,
         lt_results TYPE TABLE OF bapivendor_11,
         ls_results TYPE bapivendor_11.
 
   CLEAR : fot_tab[], fot_tab.
 
   ls_selopt-tabname = 'LFA1'.
   ls_selopt-fieldname = 'LIFNR'.
   ls_selopt-fieldvalue = fot_search.
   APPEND ls_selopt TO lt_selopt.
 
   CALL FUNCTION 'BAPI_VENDOR_FIND'
     TABLES
       selopt_tab = lt_selopt
       result_tab = lt_results.
   READ TABLE lt_results INDEX 1 INTO ls_results.
   IF sy-subrc = 0 AND ls_results-type NE 'E'.
     fot_tab-plvar = fot_plvar.
     fot_tab-otype = fot_otype.
     CLEAR : fot_tab-objid.
     fot_tab-pick  = ' '.
     fot_tab-realo = ls_results-vendor_no.
     PERFORM get_name USING ls_results-vendor_no
                            space space sy-datum sy-datum space
                            fot_tab-stext
                            sy-subrc.
 
     fot_tab-short = fot_tab-stext.
     TRANSLATE fot_tab-short TO UPPER CASE.                "#EC SYNTCHAR
     APPEND fot_tab.
 
   ENDIF.
 
 ENDFORM.                    "fill_objid_tab



Vendor Object in OM

Now we need to create a new custom object type. Note that the customer namespace for objects is 00-99. I will use “91” for our new “Vendor” object.

Go to the IMG (transaction SPRO) and follow the menu path “”Training and Event Management->Basic Settings->Object Type Modeling Enhancement-> Object Type-> Define Object Types”

Click on the “New Entries” button

Enter object ID 91 and description “Vendor”.

Once done, go back and then select the “External Object Types” option

Add a new entry as follows: (make sure to specify the “Interface” as the program name that we created earlier… (ZHR_LIFNR_OBJ_INTERFACE)

Now save this so that we can move to the next step…

Allow Vendor as Organizer

Go to the IMG (transaction SPRO) and follow the menu path “Training and Event Management-> Basic Settings-> Object Type Modeling Enhancement-> Relationship-> Maintain Relationships”

Find and select relationship 036 (“is organized by”)

Once you have selected 036, then go to the “Allowed Relationships” settings

Add a new entry as follows:

Once you have saved this you are done!

Test It

If you go to the Business Event Manager, you will now be able to select a Vendor. To test it, do the following:

Go to “Human Resources->Training and Event Management->Business Events->Business Event Menu”

Right click on an event type to schedule a new event

Now under the Organizer Data section, you will see “Vendor” in the drop-down.

And when you use the F4 input help, you will get the Vendor Search help

Once you select your vendor, it will be pulled through along with the vendor name…

And that’s it! Let me know if you found this useful or if you have any suggestions for improvements on this solution…

To report this post you need to login first.

1 Comment

You must be Logged on to comment or reply to a post.

  1. mahsa sojoudi

    hello

    I did it, but data dosn’t save,when i save data , it do but when i select another item in combo box data lost!!!!!!!!

    hlz help me

    (0) 

Leave a Reply