05-01-2008 8:59 AM
hi experts
pls tell me bapi for create contarct account in SAP-ISU.
ASAP
Thanx
Pradeep Sharma
05-01-2008 12:13 PM
05-02-2008 1:31 PM
thanx puneet ,
i facing aproblem when create BP with bapi function
BAPI_BUPA_CREATE_FROM_DATA. this create BP but not create aADDRESS for that BP.
code is below
pls help me ASAP Thanx & Regards
Pradeep Sharma.
&----
*& Report ZBPBAPI
*&
&----
*&
*&
&----
REPORT ZBPBAPI.
DATA: BPC LIKE BAPIBUS1006_HEAD-PARTN_CAT,
CNTDATA LIKE BAPIBUS1006_CENTRAL OCCURS 0 WITH HEADER LINE,
BP LIKE BAPIBUS1006_HEAD-BPARTNER.
DATA:
gs_centraldata TYPE bapibus1006_central,
gs_centraldataorganization TYPE bapibus1006_central_organ,
gs_addressdata TYPE bapibus1006_address,
it_return TYPE TABLE OF bapiret2,
lv_customer TYPE bu_partner,
GS_PERSON TYPE BAPIBUS1006_CENTRAL_PERSON,
GS_ADD TYPE BAPIBUS1006_ADDRESS.
*GS_CAT TYPE BAPIBUS1006_HEAD-BPARTNER.
move:
'PRADEEP' TO GS_PERSON-FIRSTNAME,
'SHARMA' TO GS_PERSON-LASTNAME,
'EN' TO GS_PERSON-CORRESPONDLANGUAGE,
'EN' TO gs_centraldata-PARTNERLANGUAGE,
'0002' TO gs_centraldata-TITLE_KEY,
'01' TO GS_ADD-EXTADDRESSNUMBER,
'X' TO GS_ADD-standardaddress,
'831001' TO GS_ADD-postl_cod1,
'Melbourne' TO GS_ADD-city,
'Street' TO GS_ADD-street,
'246' TO GS_ADD-house_no,
'in' TO GS_ADD-country,
'07' TO GS_ADD-region,
'EN' TO GS_ADD-langu.
CALL FUNCTION 'BAPI_BUPA_CREATE_FROM_DATA'
EXPORTING
BUSINESSPARTNEREXTERN = GS_CAT
PARTNERCATEGORY = '1'
PARTNERGROUP =
CENTRALDATA = gs_centraldata
CENTRALDATAPERSON = GS_PERSON
CENTRALDATAORGANIZATION = gs_centraldataorganization
CENTRALDATAGROUP =
ADDRESSDATA = gs_addressdata
DUPLICATE_MESSAGE_TYPE =
ACCEPT_ERROR = ' '
IMPORTING
BUSINESSPARTNER = BP
TABLES
TELEFONDATA =
FAXDATA =
TELETEXDATA =
TELEXDATA =
E_MAILDATA =
RMLADDRESSDATA =
X400ADDRESSDATA =
RFCADDRESSDATA =
PRTADDRESSDATA =
SSFADDRESSDATA =
URIADDRESSDATA =
PAGADDRESSDATA =
ADDRESSNOTES =
COMMUNICATIONNOTES =
COMMUNICATIONUSAGE =
TELEFONDATANONADDRESS =
FAXDATANONADDRESS =
TELETEXDATANONADDRESS =
TELEXDATANONADDRESS =
E_MAILDATANONADDRESS =
RMLADDRESSDATANONADDRESS =
X400ADDRESSDATANONADDRESS =
RFCADDRESSDATANONADDRESS =
PRTADDRESSDATANONADDRESS =
SSFADDRESSDATANONADDRESS =
URIADDRESSDATANONADDRESS =
PAGADDRESSDATANONADDRESS =
COMMUNICATIONNOTESNONADDRESS =
COMMUNICATIONUSAGENONADDRESS =
RETURN =
ADDRESSDUPLICATES =
.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT = 'X'
IMPORTING
RETURN =
.
CALL FUNCTION 'BAPI_BUPA_ROLE_ADD_2'
EXPORTING
businesspartner = BP
businesspartnerrole = 'MKK'
TABLES
return = it_return.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.
CALL FUNCTION 'BAPI_BUPA_ADDRESS_ADD'
EXPORTING
BUSINESSPARTNER = BP
ADDRESSDATA = GS_ADD
DUPLICATE_MESSAGE_TYPE =
ACCEPT_ERROR = ' '
IMPORTING
ADDRESSGUID =
TABLES
BAPIADTEL =
BAPIADFAX =
BAPIADTTX =
BAPIADTLX =
BAPIADSMTP =
BAPIADRML =
BAPIADX400 =
BAPIADRFC =
BAPIADPRT =
BAPIADSSF =
BAPIADURI =
BAPIADPAG =
BAPIAD_REM =
BAPICOMREM =
ADDRESSUSAGE =
BAPIADUSE =
RETURN =
ADDRESSDUPLICATES =
.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT = 'X'
.
WRITE BP.