Creation of Vendor – VMD_EI_API

Recently I had to create a Program for Vendor Master Create with Control Data, Company and Purchase Organization data.

With few search in SDN it was clear that VMD_EI_API class would solve this purpose….this is a small example of how this could be achieved using this class.

There are basically three methods of this class which will help us in creating Vendor Master…

1. MAINTAIN_DIRECT_INPUT

2. MAINTAIN

3. MAINTAIN_BAPI

Methods 2 and 3 are very similar i.e. both allows to create multiple vendors by calling the respective method (MAINTAIN_SINGLE method is called internally by looping at the Vendor data passed as parameters)…..however the only difference is in the export parameters.

MAINTAIN_BAPI acts very similar to a BAPI call wherein you get the return data of what was created along with comprehensive error messages.

MAINTAIN only provides us return messages stating whether the Vendor was created successfully or not.

The below example provides an overview of how MAINTAIN_BAPI can be used:

   CLASS lcl_data DEFINITION.
  PUBLIC SECTION.
    METHODS: constructor
                IMPORTING
                  i_ccode TYPE bukrs
                  i_ktokk  TYPE ktokk
                  i_akont  TYPE akont
                  i_name  TYPE ad_name1,
             create_vendor_data
                EXPORTING
                  e_lifnr   TYPE lifnr.

  PRIVATE SECTION.
    METHODS: prepare_data
                RETURNING value(re_flag) TYPE i.
*   Data Declarations
    DATA: gs_vmds_extern    TYPE vmds_ei_main,
          gs_succ_messages    TYPE cvis_message,
          gs_vmds_error           TYPE vmds_ei_main,
          gs_err_messages      TYPE cvis_message,
          gs_vmds_succ           TYPE vmds_ei_main,
          gv_ktokk                    TYPE ktokk,
          gv_ccode                   TYPE bukrs,
          gv_akont                    TYPE akont,
          gv_name                    TYPE name1.
ENDCLASS.                    “lcl_data

*———————————————————————-*
*       CLASS lcl_data IMPLEMENTATION
*———————————————————————-*
*
*———————————————————————-*
CLASS lcl_data IMPLEMENTATION.

  METHOD constructor.
    me->gv_ccode = i_ccode.
    me->gv_ktokk  = i_ktokk.
    me->gv_akont = i_akont.
    me->gv_name = i_name.
  ENDMETHOD.                    “constructor

  METHOD prepare_data.

*   Local Data Declaration
    DATA: lt_contacts       TYPE vmds_ei_contacts_t,
          ls_contacts           TYPE vmds_ei_contacts,
          lt_vendors            TYPE vmds_ei_extern_t,
          ls_vendors           TYPE vmds_ei_extern,
          ls_address            TYPE cvis_ei_address1,
          lt_company           TYPE vmds_ei_company_t,
          ls_company          TYPE vmds_ei_company,
          ls_company_data TYPE vmds_ei_vmd_company,
          ls_purchas_data  TYPE vmds_ei_vmd_purchasing,
          lt_purchasing       TYPE vmds_ei_purchasing_t,
          ls_purchasing      TYPE vmds_ei_purchasing,
          lt_purch_func      TYPE vmds_ei_functions_t,
          ls_purch_func     TYPE vmds_ei_functions,
          ls_message        TYPE cvis_message,
          lv_contactid        TYPE bapicontact_01-contact.

*   Clear the work area initially.
    CLEAR gs_vmds_extern.

*   Set the creation flag for Vendor and obtain a Vendor Number.
*   This is an optional step….you can also leave the vendor number as empty.
*   If the Vendor Number is kept empty then MAINTAIN_BAPI would call this method
*   internally and obtain a Vendor Number.
*   This explicit call was required in our case, as Purchasing Data mandatory partner
*   function of ordering party was supposed to be the same Vendor being created
    CALL METHOD vmd_ei_api=>get_number
      EXPORTING
        iv_ktokk = gv_ktokk
      IMPORTING
        ev_lifnr = ls_vendors-header-object_instance-lifnr
        es_error = ls_message.
    ls_vendors-header-object_task = ‘I’.                                          “Represents Insert or Create

*   Set the Name
    ls_address-postal-data-name          = gv_name.                       “Name of the Vendor
    ls_address-postal-data-street          = ‘Flat 101, ABS Road’.
    ls_address-postal-data-postl_cod1  = ‘400062’.
    ls_address-postal-data-region         = ’13’.
    ls_address-postal-data–country       = ‘IN’.
    ls_address-postal-data-sort1           = gv_name.
    ls_address-postal-data-langu          = sy-langu.
*   For all the fields where value was provided, set the flag value also to be ‘X’
    ls_address-postal-datax-name         = ‘X’.
    ls_address-postal-datax-street         = ‘X’.
    ls_address-postal-datax-postl_cod1 = ‘X’.
    ls_address-postal-datax-region        = ‘X’.
    ls_address-postal-datax-sort1          = ‘X’.
    ls_address-postal-datax-country      = ‘X’.
    ls_address-postal-datax-langu         = ‘X’.
    ls_address-task                                = ‘I’.

*   Set the Address for the Vendor
    ls_vendors-central_data-address = ls_address.

*   Set Contact Person
    REFRESH: lt_contacts[].
    CLEAR ls_contacts.
    ls_contacts-task = ‘I’.                                                         “Represents Creation of Contact person
    ls_contacts-address_type_3-task = ‘I’.                               “Represents Creation of Address for CP

*   Specify how many Contact Person numbers are to be obtained
*   This will simply provide us a contact person number
*   NOTE: If the note 1749700 is present in the system, then the contact person number can be left empty
    CALL FUNCTION ‘BAPI_PARTNEREMPLOYEE_GETINTNUM’
      EXPORTING
        quantity  = ‘1’
      IMPORTING
        contactid = lv_contactid.

    ls_contacts-data_key-parnr = lv_contactid.                          “Contact Person Number
*   Set the Name for Contact person
    ls_contacts-address_type_3-postal-data-fullname   = ‘John Doe’.
    ls_contacts-address_type_3-postal-data-firstname  = ‘John’.
    ls_contacts-address_type_3-postal-data-lastname  = ‘Doe’.
    APPEND ls_contacts TO lt_contacts.

*   Set the Contact Person details for the Vendor
    ls_vendors-central_data-contact-contacts = lt_contacts[].

*   Set the Account Group
    ls_vendors-central_data-central-data-ktokk  = gv_ktokk.
    ls_vendors-central_data-central-data-stcd1  = ‘VAT 1’.
    ls_vendors-central_data-central-data-brsch  = ’18’.                 “Industry Key
*   Set the DATAX flags
    ls_vendors-central_data-central-datax-ktokk = ‘X’.
    ls_vendors-central_data-central-datax-stcd1 = ‘X’.
    ls_vendors-central_data-central-datax-brsch = ‘X’.

*   Set the Company Code and GL Account
    REFRESH: lt_company[].
    CLEAR ls_company.
    ls_company-task                    = ‘I’.
    ls_company-data_key-bukrs  = gv_ccode.
    ls_company-data-akont         = gv_akont.                          “Reconciliation Account
    ls_company-data-zuawa        = ‘018‘.                                 “Sort Key       
    ls_company-data-fdgrv          = ‘M1′.                                  “Cash Management Group
    ls_company-data-zterm         = ‘0001’.                                “Payment Terms
    ls_company-datax-akont       = ‘X’.
    ls_company-datax-zuawa      = ‘X’.
    ls_company-datax-fdgrv        = ‘X’.
    ls_company-datax-zterm        = ‘X’.
    APPEND ls_company TO lt_company.
    ls_company_data-company = lt_company[].
    ls_vendors-company_data = ls_company_data.

*   Set the Purchasing Data
    ls_purchasing-task                   = ‘I’.
    ls_purchasing-data_key-ekorg = ‘LU01’.                              “Purchasing Organization
    ls_purchasing-data-kalsk         = ’01’.                                   “Schema Group, Vendor
    ls_purchasing-data-webre       = ‘X’.                                     “GR Based Invoice Verification
    ls_purchasing-datax-kalsk       = ‘X’.
    ls_purchasing-datax-webre      = ‘X’.

*   Set the Partner function for Purchase Organization Data
*   Ordering Address
    REFRESH: lt_purchasing[],
             lt_purch_func[].
    CLEAR ls_purch_func.
    ls_purch_func-task = ‘I’.
    ls_purch_func-data_key-parvw    = ‘BA’.
*   We set the Vendor being created as “Ordering Address”
    ls_purch_func-data-partner      = ls_vendors-header-object_instance-lifnr.
    ls_purch_func-datax-partner     = ‘X’.
    APPEND ls_purch_func TO lt_purch_func[].

*   Invoicing Party
    CLEAR ls_purch_func.
    ls_purch_func-task = ‘I’.
    ls_purch_func-data_key-parvw    = ‘RS’.
*   We set the Vendor being created as “Invoicing Party”
    ls_purch_func-data-partner      = ls_vendors-header-object_instance-lifnr.
    ls_purch_func-datax-partner     = ‘X’.
    APPEND ls_purch_func TO lt_purch_func[].

*   Vendor
    CLEAR ls_purch_func.
    ls_purch_func-task = ‘I’.
    ls_purch_func-data_key-parvw    = ‘LF’.
*   We set the Vendor being created as “Vendor in Purchasing Partner Function”
    ls_purch_func-data-partner      = ls_vendors-header-object_instance-lifnr.
    ls_purch_func-datax-partner     = ‘X’.
    APPEND ls_purch_func TO lt_purch_func[].

*   Set the Purchasing Data – Partner functions
    ls_purchasing-functions-functions  = lt_purch_func[].
    APPEND ls_purchasing TO lt_purchasing.

*   Set the Purchasing Data
    ls_purchas_data-purchasing = lt_purchasing[].
    ls_vendors-purchasing_data = ls_purchas_data.
    APPEND ls_vendors TO lt_vendors.

*   Set the Final Vendor Data based on which it has to be created
*   Note if multiple vendors are to be created…please maintain multiple entries in LT_VENDORS
    gs_vmds_extern-vendors = lt_vendors[].
  ENDMETHOD.                    “prepare_data

  METHOD create_vendor_data.

*   Local Data Declaration
    DATA: lv_return TYPE i.

*   Prepare the data to be used for Vendor Creation
    lv_return =  me->prepare_data( ).

*   Do not proceed if the Vendor Data for creation was not prepared
    IF lv_return IS NOT INITIAL.
      EXIT.
    ENDIF.

*   Initialize all the data
    vmd_ei_api=>initialize( ).

*   Call the Method for creation of Vendor.
    CALL METHOD vmd_ei_api=>maintain_bapi
      EXPORTING
        is_master_data                    = gs_vmds_extern
      IMPORTING
        es_master_data_correct     = gs_vmds_succ
        es_message_correct           = gs_succ_messages
        es_master_data_defective  = gs_vmds_error
        es_message_defective        = gs_err_messages.

    IF gs_err_messages-is_error IS INITIAL.
      COMMIT WORK.
*     Set the Vendor Number to be returned
    ENDIF.
  ENDMETHOD.                    “create_vendor_data
ENDCLASS.                    “lcl_data IMPLEMENTATION

SELECTION-SCREEN BEGIN OF BLOCK tb1.
PARAMETERS: p_ccode TYPE bukrs,
            p_akont TYPE akont,
            p_ktokk TYPE ktokk,
            p_name  TYPE ad_name1.
SELECTION-SCREEN END OF BLOCK tb1.

DATA: lo_data  TYPE REF TO lcl_data,
      gv_lifnr TYPE lifnr.

START-OF-SELECTION.

* Create an instance of our class
  CREATE OBJECT lo_data
    EXPORTING
      i_ccode = p_ccode
      i_akont  = p_akont
      i_ktokk  = p_ktokk
      i_name  = p_name.

* Create Vendor and obtain the resultant error message and Vendor number
  CALL METHOD lo_data->create_vendor_data
    IMPORTING
      e_lifnr = gv_lifnr.

NOTE: Most of the values have been hard coded…This is only a test program created for testing purpose.