Error in crm_order_maintain.

Question

Hi All,
         I want to create Service Contract with Perticular Product here i am getting someProblem when adding Product line item in it when i am submitting correct item Category then system is giving me mail with  i am giving you code.
Update was terminated
System ID....   TCD
Client.......   110
User.....   IBMABAP_
Transaction..   SE38
Update key...   4B46FA07D7B80092E10080000A600525
Generated....   09.01.2010, 10:24:15
Completed....   09.01.2010, 10:24:15
Error Info...   ABAP/4 processor: SAPSQLARRAY_INSERT_DUPREC_
here i am giving you my code.
REPORT  ytest10.
DATA: lv_header_guid TYPE guid_32,
      ls_orderadm_h TYPE TABLE OF  bapibus20001_header_ins WITH HEADER LINE,
      ls_input_fields TYPE TABLE OF bapibus20001_input_fields WITH HEADER LINE,
      lt_created_process TYPE TABLE OF bapibus20001_header_ins WITH HEADER LINE,
      lt_return TYPE TABLE OF bapiret2 WITH HEADER LINE ,
      lt_objects_to_save TYPE TABLE OF bapibus20001_guid_dis WITH HEADER LINE,
      lt_saved_objects TYPE TABLE OF  bapibus20001_object_id WITH HEADER LINE,
      lt_log TYPE  bapibus20001_control-log_handle,
      ls_objects_to_save TYPE bapibus20001_guid_dis,
      lt_orgman TYPE TABLE OF bapibus20001_orgman_ins WITH HEADER LINE,
     lt_partner TYPE TABLE OF bapibus20001_partner_ins WITH HEADER LINE,
     lt_service TYPE TABLE OF bapibus20001_service_os_ins WITH HEADER LINE,
     ls_item TYPE TABLE OF BAPIBUS20001_ITEM WITH HEADER LINE .
DATA: t_CRMM_BUT_CUSTNO TYPE TABLE OF CRMM_BUT_CUSTNO WITH HEADER LINE,
      t_CRMM_BUT_FRG0081 TYPE TABLE OF CRMM_BUT_FRG0081 WITH HEADER LINE,
      t_adrc TYPE TABLE OF adrc WITH HEADER LINE,
      t_zzcomplaintroute TYPE TABLE OF zzcomplaintroute WITH HEADER LINE,
      it_STATUS TYPE TABLE OF BAPIBUS20001_STATUS_INS WITH HEADER LINE,
      IT_PRICING TYPE TABLE OF BAPIBUS20001_PRICING WITH HEADER LINE,
      IT_PRODUCT TYPE TABLE OF BAPIBUS20001_PRODUCT WITH HEADER LINE,
      IT_PRODUCT_ITEM TYPE TABLE OF BAPIBUS20001_PRODUCTS WITH HEADER LINE.
CALL FUNCTION 'GUID_CREATE'
  IMPORTING
    ev_guid_32 = lv_header_guid.
*CONCATENATE text-d01 is_import-complt_id i
*INTO ls_orderadm_h-description SEPARATED BY space.
PERFORM orderadm_h.
*PERFORM item.
PERFORM orgman.
PERFORM partner.
*PERFORM lt_service.
PERFORM status.
PERFORM pricing.
*PERFORM PRODUCT_LIST.
*PERFORM PRODUCT_ITEM.
CLEAR: lt_created_process, lt_return.

Answer 1

DATA : gv_exit                TYPE REF TO if_ex_crm_serviceprod_badi,
         ev_product_id        TYPE comt_product_id VALUE '4AE694A1BAF800B8E10080000A600525',
         lt_schedlin_i        TYPE crmt_schedlin_i_comt,
         lv_schedlin_i        TYPE crmt_schedlin_i_com,
         lt_schedlin          TYPE crmt_schedlin_extdt,
         lv_schedlin          TYPE crmt_schedlin_extd,
         lt_header_guids      TYPE crmt_object_guid_tab,
         lt_req_obj           TYPE crmt_object_name_tab,
         lt_appointment_wrk   TYPE  crmt_appointment_wrkt,
         lv_appointment_wrk   TYPE crmt_appointment_wrk,
        lt_product_i          TYPE crmt_product_i_comt,
        lv_product_i          TYPE crmt_product_i_com,
        ls_schedlines         TYPE TABLE OF crmt_schedlin_extdt,
        wa_schedlines         TYPE crmt_schedlin_extd,
        ls_orderadm_i         TYPE crmt_orderadm_i_com,
        lt_orderadm_i         TYPE crmt_orderadm_i_comt,
        ls_field_names        TYPE crmt_input_field_names,
        lt_input_fields1       TYPE crmt_input_field_tab,
        ls_input_fields1       TYPE crmt_input_field,
          lt_orderadm_h1        TYPE crmt_orderadm_h_comt,
          ls_orderadm_h1         TYPE crmt_orderadm_h_com.
lv_schedlin-quantity = '1.000'.
  INSERT lv_schedlin INTO TABLE lt_schedlin.
  lv_schedlin_i-schedlines = lt_schedlin.
  lv_schedlin_i-ref_handle = '0000000001'.
  INSERT lv_schedlin_i INTO TABLE lt_schedlin_i.
  ls_input_fields1-ref_handle = '0000000001'.
  ls_input_fields1-ref_kind = 'B'.
  ls_input_fields1-objectname = 'SCHEDLIN'.
  ls_field_names-fieldname = 'LOGICAL_KEY'.
  APPEND ls_field_names TO ls_input_fields1-field_names.
  ls_field_names-fieldname = 'QUANTITY'.
  APPEND ls_field_names TO ls_input_fields1-field_names.
  INSERT ls_input_fields1 INTO TABLE lt_input_fields1.
WAIT UP TO 1 SECONDS.
CALL FUNCTION 'CRM_ORDER_MAINTAIN'
    EXPORTING
      it_product_i      = lt_product_i
      it_schedlin_i     = lt_schedlin_i
    CHANGING
      ct_orderadm_i     = lt_orderadm_i
      ct_orderadm_h     = lt_orderadm_h1
      ct_input_fields   = lt_input_fields1
    EXCEPTIONS
      error_occurred    = 1
      document_locked   = 2
      no_change_allowed = 3
      no_authority      = 4
      OTHERS            = 5.