主动发送Business Partner到CRM中

TYPES: BEGIN OF ty_partner,
         partner TYPE bu_partner,
         partner_guid TYPE bu_partner_guid,
       END OF ty_partner.

TYPES: BEGIN OF ty_rel,
         dftval   TYPE bu_dftval ,
         partner1 TYPE bu_partner,
         partner2 TYPE bu_partner,
         date_to  TYPE bu_datto ,
         reltyp   TYPE bu_reltyp ,
       END OF ty_rel.
DATA lv_lines    TYPE sytabix VALUE 0.

DATA gt_partners TYPE TABLE OF ty_partner.

CONSTANTS false type boole_d value ”.

* Select all partner numbers
  SELECT partner partner_guid
         FROM but000
         INTO TABLE gt_partners
         WHERE partner = partner.

  DESCRIBE TABLE gt_partners LINES lv_lines.
  IF lv_lines >= 1 .
    PERFORM send_partners USING sxi_service CHANGING return.
  ELSE .
    CLEAR return .
    return-type = ‘I’.
    return-id = ‘BUPA_INTERFACE’.
    return-number = ‘013′.
    return-message = ‘未选择到数据’ .
    RAISE no_data_selected.
  ENDIF.

ENDFUNCTION.

  DATA ls_partner TYPE ty_partner.
  DATA ls_rel TYPE ty_rel.

  DATA: lt_idlist TYPE TABLE OF bus_ei_instance.
  DATA: ls_idlist TYPE bus_ei_instance .
  DATA: lt_idlist_rel TYPE TABLE OF bus_bupr_instance .
  DATA: ls_idlist_rel TYPE bus_bupr_instance .

  DATA: lt_idblock TYPE TABLE OF bus_ei_instance.
  DATA: ls_idblock TYPE bus_ei_instance .
  DATA: lt_idblock_rel TYPE TABLE OF bus_bupr_instance .
  DATA: ls_idblock_rel TYPE bus_bupr_instance .

  DATA lv_lines TYPE sytabix.
  DATA lv_lines2 TYPE sytabix.

  DATA lv_von TYPE sytabix.
  DATA lv_bis TYPE sytabix.
  DATA lv_result_ok TYPE c VALUE ‘X’.
  DATA : pa_bsize TYPE i .
  DATA lv_bsize LIKE pa_bsize.

  DATA: lv_outbound_active TYPE boolean.

  DATA: lt_receiv TYPE  sxi_addresses,
        lv_receiv TYPE  sxi_address .

  IF sxi_service NE ”.
    lv_receiv-service = sxi_service .
    APPEND lv_receiv TO lt_receiv .
  ENDIF.

  REFRESH lt_idlist.
  CLEAR ls_idlist .
  lv_bsize = pa_bsize.

  LOOP AT gt_partners INTO ls_partner.
    ls_idlist-bpartner     = ls_partner-partner.
    ls_idlist-bpartnerguid = ls_partner-partner_guid.
    APPEND ls_idlist TO lt_idlist.
  ENDLOOP.

  DESCRIBE TABLE lt_idlist LINES lv_lines.

**************************************
*Check that the BP outbound is active.
**************************************

  CALL FUNCTION ‘BUPA_OUTBOUND_CHECK_ACTIVE’
    IMPORTING
      ev_active = lv_outbound_active.

  IF lv_outbound_active EQ false.
    CLEAR return .
    return-type = ‘I’.
    return-id = ‘BUPA_INTERFACE’.
    return-number = ‘013′.
    return-message = ‘未激活业务合作伙伴数据的分销’ .

    RETURN.
  ENDIF.

***********************************************************************
* work with blocksize

  SORT gt_partners.

  DESCRIBE TABLE gt_partners LINES lv_lines.

  IF pa_bsize = 0.
    pa_bsize = lv_lines.
  ENDIF.

  lv_von = 1.
  lv_bis = pa_bsize.

  IF lv_bis > lv_lines.
    lv_bis = lv_lines.
  ENDIF.

  CLEAR ls_idblock .
  WHILE lv_von <= lv_lines.
    LOOP AT lt_idlist INTO ls_idblock FROM lv_von TO lv_bis.
      APPEND ls_idblock TO lt_idblock.

    ENDLOOP.

    CALL FUNCTION ‘BUPA_OUTBOUND_SEND’
      EXPORTING
        it_idlist_main   = lt_idblock
        it_receiver_list = lt_receiv
      EXCEPTIONS
        no_data_selected = 1
        OTHERS           = 2.

    IF sy-subrc <> 0.
      lv_result_ok = ‘ ’.
      RAISE no_data_selected.
      CLEAR return .
      return-type = sy-msgty.
      return-id = sy-msgid.
      return-number = sy-msgno.
      return-message = sy-msgv1 .
    ENDIF.  “ sy-subrc

    COMMIT WORK .

    lv_von = lv_von + pa_bsize.
    lv_bis = lv_bis + pa_bsize.

    IF lv_bis > lv_lines.
      lv_bis = lv_lines.
    ENDIF.

    REFRESH lt_idblock.
    CLEAR ls_idblock .
    REFRESH lt_idblock_rel.
    CLEAR ls_idblock_rel .
    COMMIT WORK .

  ENDWHILE.

  IF ( NOT lv_result_ok IS INITIAL ).
    CLEAR return .
    return-type = ‘S’.
    return-id = ‘BUPA_INTERFACE’.
    return-number = ‘004′.
    return-message = ‘根据定制设置开始处理’ .

  ENDIF.
ENDFORM.                    “ send_partners