New in ABAP Programming

Former Member — Mon, 09 Jan 2006 15:17:44 GMT

Hello everybody,

Actually I'm working in a CRM 4.0 development project and I'm totally new in ABAP Programming (until now three years in functional roles).

My question is the following:

I have to develop an action method which delete several partner functions from partner tab in a sales order (for all included items and always the same partner functions, ZO1, ZO2 and ZO3 for example).

Which is the best way to do it? Maybe using CRM_ORDER_MAINTAIN function?

Could anybody help me posting some example code or any guideline?

Thank you very much.

I won't forget reward your answers.

Re: New in ABAP Programming

Former Member — Fri, 20 Jan 2006 15:31:16 GMT

here is the example code:

look at this,

METHOD if_ex_order_save~prepare .

TYPES: BEGIN OF t_guids,

guid TYPE crmt_doc_flow_wrk-objkey_a,

END OF t_guids.

Header GUID's.

DATA: lt_header_guid TYPE crmt_object_guid_tab,

ls_header_guid TYPE crmt_object_guid,

Read appointments.

lt_appointment_wrk TYPE crmt_appointment_wrkt,

ls_appointment_wrk TYPE crmt_appointment_wrk,

Update appointments.

lt_appointment_com TYPE crmt_appointment_comt,

ls_appointment_com TYPE crmt_appointment_com,

GUID's

lt_guids TYPE TABLE OF t_guids,

ls_guids TYPE t_guids,

Update fields.

ls_input_fields TYPE crmt_input_field,

lt_input_fields TYPE crmt_input_field_tab,

ls_input_field_names TYPE crmt_input_field_names,

lt_input_field_names TYPE crmt_input_field_names_tab,

Order header data.

lt_orderadm_h TYPE crmt_orderadm_h_comt,

Objects to be updated.

lt_objects_to_save TYPE crmt_object_guid_tab,

Exceptions.

lt_exception TYPE crmt_exception_t,

Updated documents.

lt_saved_objects TYPE crmt_return_objects,

lt_objects_not_saved TYPE crmt_object_guid_tab,

Local update task.

lv_update_task_local TYPE boolean.

Use a global variable to ensure this method is only called once per user save.

IF gv_first IS INITIAL.

gv_first = 'X'.

Get the dates for the current activity.

ls_header_guid = iv_guid.

INSERT ls_header_guid INTO TABLE lt_header_guid.

CALL FUNCTION 'CRM_ORDER_READ'

EXPORTING

it_header_guid = lt_header_guid

IMPORTING

et_appointment = lt_appointment_wrk

EXCEPTIONS

document_not_found = 1

error_occurred = 2

document_locked = 3

no_change_authority = 4

no_display_authority = 5

no_change_allowed = 6

OTHERS = 7.

IF sy-subrc <> 0.

EXIT.

ENDIF.

DELETE lt_appointment_wrk WHERE appt_type <> 'ZLSC00003'

OR timestamp_from IS INITIAL.

Check if the conclusion date has been set (appointment type ZLSC00003).

READ TABLE lt_appointment_wrk

INTO ls_appointment_wrk

WITH KEY appt_type = 'ZLSC00003'.

IF sy-subrc = 0.

.......
Coding removed here, build up the follow up GUID's from the document flow.

lt_header_guid now contains the parent GUID and the follow up activty GUID's

*........

Get all of the date details for all of the documents.

CALL FUNCTION 'CRM_ORDER_READ'

EXPORTING

it_header_guid = lt_header_guid

IMPORTING

et_appointment = lt_appointment_wrk

EXCEPTIONS

document_not_found = 1

error_occurred = 2

document_locked = 3

no_change_authority = 4

no_display_authority = 5

no_change_allowed = 6

OTHERS = 7.

IF sy-subrc <> 0.

EXIT.

ENDIF.

Get rid of date entries which aren't conclusion dates or aren't the same conclusion date.

DELETE lt_appointment_wrk WHERE appt_type <> 'ZLSC00003'

OR timestamp_from <> ls_appointment_wrk-timestamp_from.

Process each of the documents and, if they don't have a conclusion date with the same value,
set up the internal tables to update the document.

LOOP AT lt_header_guid INTO ls_header_guid.

Check if it has a conclusion date with the correct value already.

READ TABLE lt_appointment_wrk

WITH KEY ref_guid = ls_header_guid

TRANSPORTING NO FIELDS.

IF sy-subrc = 0.

DELETE lt_header_guid.

CONTINUE.

ENDIF.

Set up the fields to be updated.

CLEAR lt_input_field_names.

ls_input_field_names-fieldname = 'REF_KIND'.