topic Re: Need sample code for using BCONTACT object in ABAP in Application Development and Automation Discussions

Need sample code for using BCONTACT object in ABAP

Former Member — Wed, 26 Sep 2007 19:44:16 GMT

Hello All,

This is going to be my very first venture into the realm of OO / ABAP programming. And what venture it will be! I've been assigned the task of modifying an ABAP program so that it uses the BCONTACT object in order to create a contact.

Now, I need to see how it is done in other programs. What data elements or attributes do I need to set? How do I set or populate them? Anything else that goes with it?

So, any idea where I can find such code?

Your help is greatly appreciated.

Re: Need sample code for using BCONTACT object in ABAP

Former Member — Mon, 15 Oct 2007 08:12:02 GMT

no answer therefore closing the question

Re: Need sample code for using BCONTACT object in ABAP

Former Member — Mon, 10 Dec 2007 19:11:51 GMT

Hey Goharjou

Did you find how ?

I am stuck with a simillar requirement.

Please send me the sample code in case you have one

sameer.sameerahmed@gmail.com

Thanks !!

Re: Need sample code for using BCONTACT object in ABAP

Former Member — Fri, 14 Dec 2007 09:56:51 GMT

After much back and forth the following code did the job for me. Obviously, you have to make sure that you have the right objrole and objtype and other values which relate to your screen elements (whatever screen you are using). Hope this helps.

*&----

*& Form create contact

*&----

FORM create_contact.

contact creation

REFRESH t_objects.

w_objects-objrole = 'DEFAULT'.

w_objects-OBJTYPE = 'ISUSMORDER'.

w_objects-objtype = 'BUS2007'.

w_objects-objkey = t_zisu_let_ot-auftrag.

APPEND w_objects TO t_objects.

w_bcontd-ctype = '003'.

w_bcontd-cclass = '1800'.

w_bcontd-activity = '0004'.

w_bcontd-f_coming = '2'.

w_bcontd-origin = '1'.

w_bcontd-addinfo = ' '.

w_bcontd-priority = '01'.

w_bcontd-custinfo = ' '.

w_auto-bcontd = w_bcontd.

w_auto-bcontd_use = 'X'.

w_auto-bcontd_okcode = 'SAVE'.

w_auto-iobjects = t_objects.

CALL FUNCTION 'BCONTACT_CREATE'

EXPORTING

x_upd_online = 'X'

x_no_dialog = 'X'

x_auto = w_auto

x_prgcontext = sy-repid

x_subcontext = ' '

x_bpcconfig = ' '

x_partner = w_partner

x_altpartner = ' '

x_pcategory = ' '

IMPORTING

y_new_bpcontact = w_bpcontact

EXCEPTIONS

existing = 1

foreign_lock = 2

number_error = 3

general_fault = 4

input_error = 5

not_authorized = 6

OTHERS = 7.

IF sy-subrc = 0.

WRITE: / 'Contact ', w_bpcontact, 'a été créé'.

ELSE.

CASE sy-subrc.

WHEN 1.

WRITE: / '…’.

WHEN 2.

WRITE: / '…’.

WHEN 3.

WHEN 4.

WHEN 5.

WHEN 6.

WHEN 7.

WHEN OTHERS.

ENDCASE.

ENDIF.

COMMIT WORK.

ENDFORM. " create_contact