CRM_ORDER_READ 的一段代码

来源：互联网发布：js qq在线客服编辑：程序博客网时间：2024/05/01 11:18

DATA:

   "取得対象項目名格納用
    LDT_REQUESTED_OBJECTS TYPE CRMT_OBJECT_NAME_TAB,
    "管理ヘッダ用
    LDT_ET_ORDERADM_H     TYPE CRMT_ORDERADM_H_WRKT,
    "管理明細用
    LDT_ET_ORDERADM_I     TYPE CRMT_ORDERADM_I_WRKT,
                                                            "管理明細用2
    LDT_ET_ORDERADM_IC    TYPE CRMT_ORDERADM_I_WRKT,
    "価格設定ヘッダ用
    LDT_ET_PRICING        TYPE CRMT_PRICING_WRKT,
    "価格設定明細用
    LDT_ET_PRICING_I      TYPE CRMT_PRICING_I_WRKT,
    "組織データ用
    LDT_ET_ORGMAN         TYPE CRMT_ORGMAN_WRKT,
    "日付管理用
    LDT_ET_APPOINTMENT    TYPE CRMT_APPOINTMENT_WRKT,
    "請求計画用
    LDT_ET_BILLPLAN       TYPE CRMT_BILLPLAN_WRKT.

* クラス属性のGV_GUIDで期間均等契約伝票を読む、オブジェクト名設定
  CLEAR LDS_REQUESTED_OBJECTS.
  LDS_REQUESTED_OBJECTS = LCF_OBJ_NAMEA.
  INSERT:                              "'ORDERADM_H'
    LDS_REQUESTED_OBJECTS INTO TABLE LDT_REQUESTED_OBJECTS.

  LDS_REQUESTED_OBJECTS = LCF_OBJ_NAMEB.
  INSERT:                              "ORDERADM_I
    LDS_REQUESTED_OBJECTS INTO TABLE  LDT_REQUESTED_OBJECTS.

  LDS_REQUESTED_OBJECTS = LCF_OBJ_NAMEC.
  INSERT:                              "'PRICING
    LDS_REQUESTED_OBJECTS INTO TABLE LDT_REQUESTED_OBJECTS.

  LDS_REQUESTED_OBJECTS = LCF_OBJ_NAMED.
  INSERT:                              "PRICING_I
    LDS_REQUESTED_OBJECTS INTO TABLE LDT_REQUESTED_OBJECTS.

  LDS_REQUESTED_OBJECTS = LCF_OBJ_NAMEE.
  INSERT:                              "ORGMAN
    LDS_REQUESTED_OBJECTS INTO TABLE LDT_REQUESTED_OBJECTS.

  LDS_REQUESTED_OBJECTS = LCF_OBJ_NAMEF.
  INSERT:                              "'APPOINTMENT
    LDS_REQUESTED_OBJECTS INTO TABLE LDT_REQUESTED_OBJECTS.

  LDS_REQUESTED_OBJECTS = LCF_OBJ_NAMEG.
  INSERT:                              "BILLPLAN
    LDS_REQUESTED_OBJECTS INTO TABLE LDT_REQUESTED_OBJECTS.

* クラス属性（GV_GUID）データ取得
  CLEAR LDS_GUID.
  LDS_GUID = GV_GUID.
  APPEND LDS_GUID TO LDT_GUID.

* ヘッダ・明細データ取得
  CALL FUNCTION 'CRM_ORDER_READ'
    EXPORTING
      IT_HEADER_GUID       = LDT_GUID “必须是内表
      IT_REQUESTED_OBJECTS = LDT_REQUESTED_OBJECTS
    IMPORTING
      ET_ORDERADM_H        = LDT_ET_ORDERADM_H
      ET_ORDERADM_I        = LDT_ET_ORDERADM_I
      ET_PRICING           = LDT_ET_PRICING
      ET_PRICING_I         = LDT_ET_PRICING_I
      ET_ORGMAN            = LDT_ET_ORGMAN
      ET_APPOINTMENT       = LDT_ET_APPOINTMENT
      ET_BILLPLAN          = LDT_ET_BILLPLAN
    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.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.