Partner Roles for Ship-To/Bill-To in BAPI SalesOrder

Question

Hi,
I am currently developing a .NET web application that is using BO SalesOrder (e.g. BAPI Bapi_Salesorder_Simulate).
My problem is that I need to list all defined partner roles of a customer (debitor) to give an appropriate selection for the BAPIPARTNR as a SalesOrder parameter
e.g. (specify a Ship-To Address)
[BAPIPARTNR].Partn_Role = "WE"
[BAPIPARTNR].Partn_Numb = "<SAPCustomerNr>"
In the web application I want to list all pre-definied partner roles for "WE" of the given customer to be able to set it as "<SAPCustomerNr>" in the BAPI parameter.
This seemed like a standard requirement to me, but I could not find any BAPIs/RFCs to realize this. Does anybody have a suggestion ?
Thanks for a short reply,
Andreas Koschinsky

Answer 1

Hi again Andreas,
I get the hint, I have included the source together with the corrections you would need to make to get it working in your system (no warranty calls please!).
FUNCTION CUSTOMER_PARTNERFS_GET.
*"*"Local interface:
*"       IMPORTING
*"             VALUE(IV_KUNNR) LIKE  KNA1-KUNNR
*"             VALUE(IV_VKORG) LIKE  E1KNVVM-VKORG
*"             VALUE(IV_VTWEG) LIKE  E1KNVVM-VTWEG
*"             VALUE(IV_SPART) LIKE  E1KNVVM-SPART
*"       TABLES
*"              ET_E1KNVPM STRUCTURE  E1KNVPM
  DATA  LV_ACCOUNT_GROUP               LIKE KNA1-KTOKD.
  DATA  LS_E1KNVPM                     LIKE E1KNVPM.
  DATA  LT_E1KNVPM                     LIKE E1KNVPM OCCURS 0.
  DATA  LT_KNVP                        LIKE KNVP OCCURS 0.
  DATA  LS_KNVP                        LIKE KNVP.
>>> BW Omit this section <<<
*     Get account group of the current customer
  SELECT SINGLE KTOKD FROM KNA1 INTO LV_ACCOUNT_GROUP
                      WHERE KUNNR = IV_KUNNR.
  IF SY-SUBRC NE 0.
*     The customer is new so prepare to create roles.
    PERFORM CUSTOMER_CREATE_R3FUNCTIONS TABLES LT_E1KNVPM
                                        USING  IV_KUNNR
                                               LV_ACCOUNT_GROUP.
  ELSE.
>>> Up to here <<<
*     The customer exists and has an account group.
*     so read the knvp to get all available functions.
    SELECT * FROM KNVP INTO TABLE LT_KNVP
                       WHERE KUNNR = IV_KUNNR
                         AND VKORG = IV_VKORG
                         AND VTWEG = IV_VTWEG
                         AND SPART = IV_SPART.
    IF SY-SUBRC = 0.
*     data available so read them
      LOOP AT LT_KNVP INTO LS_KNVP.
        MOVE-CORRESPONDING LS_KNVP TO LS_E1KNVPM.
        PERFORM PARTNER_NUMBER_EXTRACT(SAPLVV01) USING LS_KNVP
        CHANGING LS_E1KNVPM-KUNN2 .
        APPEND LS_E1KNVPM TO LT_E1KNVPM.
        CLEAR LS_KNVP.
      ENDLOOP.
>>> BW Omit this section <<<
    ELSE.
*      create new roles according to the delivered salesarea
      PERFORM CUSTOMER_CREATE_R3FUNCTIONS TABLES LT_E1KNVPM
                                          USING  IV_KUNNR
                                                 LV_ACCOUNT_GROUP.
    ENDIF.
>>> Up to here <<<   <<< - moved this line in change
  ENDIF.
  ET_E1KNVPM[] = LT_E1KNVPM[].
ENDFUNCTION.
That should get you going.
Cheers,
Brad
Oops! Just made a small change to ensure that the if statement was correctly closed.
Message was edited by: Brad Williams