how to create a business partner( BP )

ABAP May 9th, 2008

The following code can be used to create business partner.

  1. DATA:
  2. ls_centraldata TYPE bapibus1006_central,
  3. ls_centraldata_person TYPE bapibus1006_central_person,
  4. ls_addressdata TYPE bapibus1006_address,
  5. lv_businesspartner LIKE bapibus1006_head-bpartner,
  6. lt_return TYPE TABLE OF bapiret2 ,
  7. lv_return TYPE bapiret2,
  8. lv_insz TYPE zbu_00000000,
  9. lv_mutatie_error TYPE /genesys/mutatie_error.
  10.  
  11. CONSTANTS: gc_partnercategory LIKE bapibus1006_head-partn_cat VALUE '1',
  12. gc_partnertype_nanb TYPE bu_bpkind VALUE 'NANB',
  13. gc_dataorigintype_rr TYPE bu_source VALUE 'RR',
  14. gc_wait LIKE bapita-wait VALUE 'X'.
  15.  
  16. MOVE gc_partnertype_nanb TO ls_centraldata-partnertype.
  17. MOVE '' TO ls_centraldata-dataorigintype.
  18. MOVE '' TO ls_centraldata_person-firstname.
  19. MOVE '' TO ls_centraldata_person-lastname.
  20. MOVE '' TO ls_centraldata_person-birthdate.
  21. MOVE '' TO ls_centraldata_person-birthplace.
  22.  
  23. MOVE '' TO ls_centraldata_person-nationality.
  24. *MOVE 'X' TO ls_addressdata-standardaddress.
  25. *MOVE '' TO ls_addressdata-street.
  26. *MOVE '' TO ls_addressdata-house_no.
  27. *MOVE '' TO ls_addressdata-house_no2.
  28. *MOVE '' TO ls_addressdata-house_no3.
  29. *MOVE '' TO ls_addressdata-postl_cod1.
  30. *MOVE '' TO ls_addressdata-city.
  31. *MOVE '' TO ls_addressdata-country.
  32.  
  33. CALL FUNCTION 'BAPI_BUPA_CREATE_FROM_DATA'
  34. EXPORTING
  35. partnercategory = gc_partnercategory
  36. centraldata = ls_centraldata
  37. centraldataperson = ls_centraldata_person
  38. addressdata = ls_addressdata
  39. IMPORTING
  40. businesspartner = lv_businesspartner
  41. TABLES
  42. return = lt_return.
  43.  
  44. CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.

Leave a comment Comment RSS


Next: writing a language specific long date

Leave a Comment