CJ01-创建项目BAPI

*根据给出的流水号创建项目
  DATA:ls_stru   TYPE bapi_project_definition,
       lt_return TYPE TABLE OF bapi_meth_message WITH HEADER LINE.
*FS上只标注了项目定义、描述、业务范围、成本控制范围、公司代码、工厂、负责人编号

  ls_stru-project_definition = p_char.
  ls_stru-description        = ps_alv-zprjnam.
  ls_stru-comp_code          = ps_alv-bukrs.
  ls_stru-controlling_area   = 'VANL'."工厂取值逻辑也需要确认
  ls_stru-project_profile    = 'PM00001'. "如何确定项目类型需要顾问确认
  ls_stru-plant              = '2100'.


  CALL FUNCTION 'BAPI_PROJECTDEF_CREATE'
    EXPORTING
      project_definition_stru = ls_stru
* IMPORTING
*     RETURN                  =
    TABLES
      e_message_table         = lt_return.

  READ TABLE lt_return WITH KEY message_type = 'E'.
  IF sy-subrc EQ 0.
    p_message = 'E'.
  ELSE.
    p_message = 'S'.
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
      EXPORTING
        wait = 'X'.
  ENDIF.