PS 项目创建

首页 > 代码库 > PS 项目创建

2024-07-11 04:29:53 215人阅读

*----------------------------------------------------------------------*
* 程序名称： ZJISCOPS_REXEC_001
* 程序标题：自定义创建项目
* 项目名称：西部重工项目
* 程序类型： Report
* 创建人  ：苏井祥
* 创建日期： 2014/6/2
* 模块    ： PS
* 事务码  ： ZPSR001
* 请求号  ：
* 功能描述：利用BDC自定义或使用模板创建项目
* 相关文档：
*----------------------------------------------------------------------*
* 修改记录:
* 作者   日期     请求号      修改原因描述
*-----------  --------  -----------------------------------------------*
*
*----------------------------------------------------------------------*

REPORT zjiscops_rexec_001.

*----------------------------------------------------------------------*
*        INCLUDE                                                       *
*----------------------------------------------------------------------*

*----------------------------------------------------------------------*
* tables;
*----------------------------------------------------------------------*
TYPE-POOLS vrm.

*&------------------------------------------------------------
*&        Global data declarations.
*&------------------------------------------------------------
TYPES: BEGIN OF ty_sdata,
       pspid TYPE proj-pspid,"项目编码
       profl TYPE proj-profl,"项目参数文件
       END OF ty_sdata.

*&------------------------------------------------------------
*&        Globlal  work area and internal table declarations.
*&------------------------------------------------------------
DATA: gs_sdata TYPE ty_sdata,
      gt_sdata TYPE TABLE OF ty_sdata.

DATA: gwa_bdcdata  TYPE bdcdata,
      gt_bdcdata   TYPE TABLE OF bdcdata.
DATA: gwa_messtab  TYPE bdcmsgcoll,
      gt_messtab   TYPE TABLE OF  bdcmsgcoll.
DATA: g_message    TYPE balmsgtxtp.
DATA: gwa_return   TYPE bapiret2,
      gt_return    TYPE TABLE OF bapiret2.

DATA: g_flag_fdyj TYPE c," FD YJ 项目类型选择标记
      g_flag_yf   TYPE c." YF

DATA: g_obj TYPE char30. "转换的对象
DATA: g_obj_out TYPE  proj-pspid. "外部的项目ID

DATA: g_profidproj TYPE tcj41-profidproj."项目参数文件

*&------------------------------------------------------------
*&        ALV data declarations.
*&------------------------------------------------------------

*&------------------------------------------------------------
*&      Constant.
*&------------------------------------------------------------

*&------------------------------------------------------------
*&      Selection-screen.
*&------------------------------------------------------------

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.

SELECTION-SCREEN BEGIN OF LINE .
SELECTION-SCREEN COMMENT 1(10) text-004."年度
PARAMETERS p_year  TYPE mkpf-mjahr DEFAULT sy-datum+0(4) OBLIGATORY.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE .
SELECTION-SCREEN COMMENT 1(10) text-002."公司代码
PARAMETERS p_bukrs TYPE  ekko-bukrs OBLIGATORY DEFAULT ‘7340‘.
SELECTION-SCREEN COMMENT 30(10) text-003."工厂
PARAMETERS p_werks TYPE  marc-werks OBLIGATORY DEFAULT ‘7340‘.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE .
SELECTION-SCREEN COMMENT 1(10) text-014."项目描述
PARAMETERS p_post1 TYPE    proj-post1  OBLIGATORY .
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE .
SELECTION-SCREEN COMMENT 1(10) text-008."项目负责人
PARAMETERS p_vernr TYPE    proj-vernr OBLIGATORY  .
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE .
SELECTION-SCREEN COMMENT 1(10) text-012. "开始日期
PARAMETERS: p_plfaz  TYPE   proj-plfaz  .
SELECTION-SCREEN COMMENT 30(10) text-013."完成日期
PARAMETERS: p_plsez TYPE   proj-plsez  .
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE .
SELECTION-SCREEN COMMENT 1(10) text-005. "项目类
PARAMETERS: zlist  TYPE   spfli-connid  AS LISTBOX VISIBLE LENGTH 10
USER-COMMAND zfl OBLIGATORY.
SELECTION-SCREEN COMMENT 30(10) text-006."项目类明细
PARAMETERS: zlist2 TYPE   spfli-connid AS LISTBOX VISIBLE LENGTH 10
OBLIGATORY.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE .
SELECTION-SCREEN COMMENT 1(10) text-007."标准项目定义
PARAMETERS p_pspnr TYPE    proj-pspid   MATCHCODE OBJECT prss.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE .
SELECTION-SCREEN COMMENT 1(10) text-009 ."销售组织
PARAMETERS p_vkorg TYPE    proj-vkorg  .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE .
SELECTION-SCREEN COMMENT 1(10) text-010."分销渠道
PARAMETERS p_vtweg TYPE        proj-vtweg  .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE .
SELECTION-SCREEN COMMENT 1(10) text-011."产品组
PARAMETERS p_spart TYPE         proj-spart .
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK b1.

*&------------------------------------------------------------
*&        Initialization.
*&------------------------------------------------------------
INITIALIZATION.
  CLEAR:  gt_return,gt_messtab,gt_bdcdata,
          gwa_return,gwa_messtab,gwa_bdcdata.

*&------------------------------------------------------------
*&     At selection-screen.
*&------------------------------------------------------------

AT SELECTION-SCREEN OUTPUT.
  PERFORM frm_selectlist_pbo CHANGING zlist."二级下拉菜单关联
  PERFORM frm_modify_screen."研发类型不显示销售区域

*&------------------------------------------------------------
*&       Start-of-selection.
*&------------------------------------------------------------

START-OF-SELECTION.
  PERFORM frm_check_data."检查销售区域数据
  PERFORM frm_process_data."处理逻辑

  IF p_pspnr IS  INITIAL.
    PERFORM frm_fill_bdcdata."填充BDC数据
    PERFORM frm_call_transaction."调用事务

  ELSE.
*    PERFORM frm_delete_wbs."删除原有元素
    PERFORM frm_create_project."基于模版创建项目
  ENDIF.
  PERFORM frm_show_message.
*&------------------------------------------------------------
*&      End-of-selection.
*&------------------------------------------------------------

END-OF-SELECTION.

*&---------------------------------------------------------------------*
*&      Form  FRM_PROCESS_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM frm_process_data .

  DATA: lds_proj TYPE proj,
        ldt_proj TYPE TABLE OF proj.
  DATA: ldf_condtion TYPE string.
  DATA: ldf_c3(3) TYPE c.

  CASE zlist.
    WHEN ‘0001‘.
      gs_sdata-pspid+0(2) = ‘FD‘."风电
      g_profidproj = ‘XZ00001‘.
    WHEN ‘0002‘.
      gs_sdata-pspid+0(2) = ‘YJ‘."冶金
      g_profidproj = ‘XZ00001‘.
    WHEN ‘0003‘.
      gs_sdata-pspid+0(2) = ‘YF‘."研发
      g_profidproj = ‘XZ00002‘.
    WHEN OTHERS.
  ENDCASE.

  gs_sdata-pspid+2(4) = p_year."年度

  IF zlist = ‘0001‘.
    CASE zlist2.
      WHEN ‘0001‘."FD
        gs_sdata-pspid+6(2) = ‘TJ‘."集团
      WHEN ‘0002‘."YJ
        gs_sdata-pspid+6(2) = ‘QT‘."其他
      WHEN OTHERS.
    ENDCASE.
  ELSEIF zlist = ‘0002‘.
    CASE zlist2.
      WHEN ‘0001‘."FD
        gs_sdata-pspid+6(2) = ‘JT‘.
      WHEN ‘0002‘."YJ
        gs_sdata-pspid+6(2) = ‘WB‘.
      WHEN OTHERS.
    ENDCASE.
  ELSEIF zlist = ‘0003‘.
    CASE zlist2.
      WHEN ‘0001‘."FD
        gs_sdata-pspid+6(2) = ‘FD‘.
      WHEN ‘0002‘."YJ
        gs_sdata-pspid+6(2) = ‘YJ‘.
      WHEN ‘0003‘."YJ
        gs_sdata-pspid+6(2) = ‘MH‘.
      WHEN ‘0004‘."YJ
        gs_sdata-pspid+6(2) = ‘SY‘.
      WHEN OTHERS.
    ENDCASE.
  ENDIF.

  " 动态SQL 以及拼字符串处理
  ldf_condtion = gs_sdata.
  CONCATENATE ldf_condtion ‘%‘ INTO ldf_condtion.
  CONCATENATE  ‘PSPID‘   ‘ LIKE‘ ‘ ‘‘‘ldf_condtion‘‘‘‘  INTO
  ldf_condtion .

  SELECT * INTO TABLE ldt_proj FROM proj
           WHERE (ldf_condtion).

  SORT ldt_proj BY pspid DESCENDING.
  CLEAR lds_proj.
  READ TABLE ldt_proj INTO lds_proj INDEX 1.
  IF sy-subrc = 0.
    ldf_c3 = lds_proj-pspid+8(3) + 1.
  ELSE.
    ldf_c3 = 1.
  ENDIF.

  CALL FUNCTION ‘CONVERSION_EXIT_ALPHA_INPUT‘
    EXPORTING
      input  = ldf_c3
    IMPORTING
      output = ldf_c3.

  gs_sdata-pspid+8(3) = ldf_c3. "最终编号

ENDFORM.                    " FRM_PROCESS_DATA

*&---------------------------------------------------------------------*
*&      Form  FRM_FILL_BDCDATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM frm_fill_bdcdata .

  DATA: lds_tcj41 TYPE tcj41,
        ldt_tcj41 TYPE TABLE OF tcj41,
        lds_projs TYPE projs,
        ldt_projs TYPE TABLE OF projs,
        lds_prpss TYPE prpss,
        ldt_prpss TYPE TABLE OF prpss.
  DATA: ldf_lines TYPE i.

  SELECT * INTO TABLE  ldt_tcj41 FROM tcj41.

  IF g_flag_yf = ‘X‘.
    p_vkorg = ‘‘."销售组织
    p_vtweg = ‘‘."分销渠道
    p_spart = ‘‘."产品组
  ENDIF.

  "是否启用标准模板
  IF p_pspnr = ‘‘.

    IF g_flag_fdyj = ‘X‘.
*****************自定义销售***********************************
      CLEAR lds_tcj41.

*READ TABLE ldt_tcj41 INTO lds_tcj41 WITH KEY profidproj = ‘XZ00001‘.
      READ TABLE ldt_tcj41 INTO lds_tcj41 WITH KEY profidproj =
      g_profidproj.

      g_obj = lds_tcj41-scope.
      PERFORM frm_conver_unit USING lds_tcj41-zteht."单位转换
      PERFORM frm_conver_obj USING g_obj."对象类转换

      PERFORM bdc_dynpro      USING ‘SAPLCJWB‘   ‘0100‘.
      PERFORM bdc_field       USING ‘BDC_CURSOR‘  ‘*PROJ-PSPID‘.
      PERFORM bdc_field       USING ‘BDC_OKCODE‘  ‘=MDTB‘.
      PERFORM bdc_field       USING ‘*PROJ-PSPID‘ gs_sdata-pspid.
      PERFORM bdc_field       USING ‘RCWBS-PROFL‘  ‘XZ00001‘."参数文件
      PERFORM bdc_field       USING ‘RCWKP-VORSPSP‘ ‘‘.

      PERFORM bdc_dynpro      USING ‘SAPLCJWB‘     ‘0998‘.
      PERFORM bdc_field       USING ‘BDC_OKCODE‘   ‘=PCNT‘.
      PERFORM bdc_field       USING ‘PROJ-PSPID‘   gs_sdata-pspid.
      PERFORM bdc_field       USING ‘PROJ-POST1‘   p_post1."项目描述
      PERFORM bdc_field       USING ‘BDC_CURSOR‘   ‘PROJ-PLSEZ‘.
      PERFORM bdc_field       USING ‘PROJ-VERNR‘   p_vernr. "负责人
      PERFORM bdc_field       USING ‘PROJ-VKOKR‘   ‘XBZG‘."此项目的控制范围
      PERFORM bdc_field       USING ‘PROJ-VBUKR‘   p_bukrs."项目公司代码
      PERFORM bdc_field       USING ‘PROJ-WERKS‘   p_werks."工厂
      IF p_plfaz IS  INITIAL.
        PERFORM bdc_field       USING ‘PROJ-PLFAZ‘   ‘‘."开始日期
      ELSE.
        PERFORM bdc_field       USING ‘PROJ-PLFAZ‘   p_plfaz."开始日期
      ENDIF.
      IF p_plsez IS INITIAL.
        PERFORM bdc_field       USING ‘PROJ-PLSEZ‘   ‘‘."结束日期
      ELSE.
        PERFORM bdc_field       USING ‘PROJ-PLSEZ‘   p_plsez."结束日期
      ENDIF.

      PERFORM bdc_field       USING ‘PROJ-KALID‘   lds_tcj41-kalid.
"工厂日历码
PERFORM bdc_field       USING ‘PROJ-ZTEHT‘   lds_tcj41-zteht.
"在时间计划中的时间单位
PERFORM bdc_field       USING ‘PROJ-PWHIE‘   lds_tcj41-waers.
"WBS货币(项目定义)

PERFORM bdc_dynpro      USING ‘SAPLCJWB‘         ‘0998‘.
PERFORM bdc_field       USING ‘BDC_OKCODE‘       ‘=LETB‘.
PERFORM bdc_field       USING ‘PROJ-PSPID‘       gs_sdata-pspid.
PERFORM bdc_field       USING ‘PROJ-POST1‘       p_post1.
PERFORM bdc_field       USING ‘PROJ-BPROF‘       lds_tcj41-bprof.
"预算参数文件
PERFORM bdc_field       USING ‘PROJ-VPROF‘       lds_tcj41-vprof.
"网络参数文件
PERFORM bdc_field       USING ‘PROJ-PPROF‘       lds_tcj41-pprof.
"计划参数文件
PERFORM bdc_field       USING ‘PROJ-SCPRF‘       lds_tcj41-scprf.
"WBS 计划概要
PERFORM bdc_field       USING ‘PROJ-ABGSL‘       lds_tcj41-abgsl.
"RA 码
PERFORM bdc_field       USING ‘PROJ-VGPLF‘       lds_tcj41-vgplf.
"计划方法/基本
PERFORM bdc_field       USING ‘PROJ-EWPLF‘       lds_tcj41-ewplf.
"计划方法/预测
PERFORM bdc_field       USING ‘PROJ-SCOPE‘       g_obj."对象类
PERFORM bdc_field       USING ‘PROJ-PLINT‘       lds_tcj41-plint.
"综合计划
PERFORM bdc_field       USING ‘PROJ_BEST_BWRT‘   lds_tcj41-besta      .
"项目存货
PERFORM bdc_field       USING ‘PROJ-VKORG‘       p_vkorg."销售组织
PERFORM bdc_field       USING ‘PROJ-VTWEG‘       p_vtweg."分销渠道
PERFORM bdc_field       USING ‘PROJ-SPART‘       p_spart."产品组

PERFORM bdc_dynpro      USING ‘SAPLCJWB‘         ‘0901‘.
PERFORM bdc_field       USING ‘BDC_OKCODE‘       ‘=BU‘.
PERFORM bdc_field       USING ‘PROJ-POST1‘       gs_sdata-pspid."
PERFORM bdc_field       USING ‘PROJ-POST1‘       p_post1.
PERFORM bdc_field       USING ‘BDC_CURSOR‘       ‘PRPS-POST1(01)‘.
PERFORM bdc_field       USING ‘RCWBS-IDENT(01)‘  gs_sdata-pspid.
"WBS元素
PERFORM bdc_field       USING ‘PRPS-POST1(01)‘   p_post1."WBS描述    ENDIF.

*************************** END *******************************

******************自定义研发************************
IF  g_flag_yf = ‘X‘.

CLEAR lds_tcj41.
*READ TABLE ldt_tcj41 INTO lds_tcj41 WITH KEY profidproj = ‘XZ00002‘.
READ TABLE ldt_tcj41 INTO lds_tcj41 WITH KEY profidproj =      g_profidproj.

PERFORM frm_conver_unit USING lds_tcj41-zteht."单位转换

PERFORM bdc_dynpro      USING ‘SAPLCJWB‘      ‘0100‘.
PERFORM bdc_field       USING ‘BDC_CURSOR‘    ‘*PROJ-PSPID‘.
PERFORM bdc_field       USING ‘BDC_OKCODE‘    ‘=MDTB‘.
PERFORM bdc_field       USING ‘*PROJ-PSPID‘   gs_sdata-pspid.
PERFORM bdc_field       USING ‘RCWBS-PROFL‘   ‘XZ00002‘."参数文件
PERFORM bdc_field       USING ‘RCWKP-VORSPSP‘ ‘‘.

PERFORM bdc_dynpro      USING ‘SAPLCJWB‘     ‘0998‘.
PERFORM bdc_field       USING ‘BDC_OKCODE‘   ‘=LETB‘.
PERFORM bdc_field       USING ‘PROJ-PSPID‘   gs_sdata-pspid.
PERFORM bdc_field       USING ‘PROJ-POST1‘   p_post1."
PERFORM bdc_field       USING ‘BDC_CURSOR‘   ‘PROJ-PLSEZ‘.
PERFORM bdc_field       USING ‘PROJ-VERNR‘   p_vernr."
PERFORM bdc_field       USING ‘PROJ-VKOKR‘   ‘XBZG‘."
PERFORM bdc_field       USING ‘PROJ-VBUKR‘   p_bukrs."
PERFORM bdc_field       USING ‘PROJ-WERKS‘   p_werks."
IF p_plfaz IS  INITIAL.
PERFORM bdc_field       USING ‘PROJ-PLFAZ‘   ‘‘."开始日期      ELSE.

PERFORM bdc_field       USING ‘PROJ-PLFAZ‘   p_plfaz."开始日期      ENDIF.

IF p_plsez IS INITIAL.
PERFORM bdc_field       USING ‘PROJ-PLSEZ‘   ‘‘."结束日期      ELSE.

PERFORM bdc_field       USING ‘PROJ-PLSEZ‘   p_plsez."结束日期      ENDIF.

PERFORM bdc_field       USING ‘PROJ-KALID‘   lds_tcj41-kalid.
"工厂日历码
PERFORM bdc_field       USING ‘PROJ-ZTEHT‘   lds_tcj41-zteht.
"在时间计划中的时间单位
PERFORM bdc_field       USING ‘PROJ-PWHIE‘   lds_tcj41-waers.
"WBS货币(项目定义)

PERFORM bdc_dynpro      USING ‘SAPLCJWB‘         ‘0901‘.
PERFORM bdc_field       USING ‘BDC_OKCODE‘       ‘=BU‘.
PERFORM bdc_field       USING ‘PROJ-POST1‘       p_post1."
PERFORM bdc_field       USING ‘BDC_CURSOR‘       ‘PRPS-POST1(01)‘.
PERFORM bdc_field       USING ‘RCWBS-IDENT(01)‘  gs_sdata-pspid.
"WBS元素
PERFORM bdc_field       USING ‘PRPS-POST1(01)‘   p_post1."WBS描述    ENDIF.

***************  end ********************  ENDIF.ENDFORM.

" FRM_FILL_BDCDATA

*&---------------------------------------------------------------------*
*&      Form  FRM_CALL_TRANSACTION
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM frm_call_transaction .

CALL TRANSACTION ‘CJ01‘ USING gt_bdcdata MODE ‘N‘ MESSAGES INTO  gt_messtab.

WAIT UP TO 1 SECONDS.
LOOP AT gt_messtab INTO gwa_messtab WHERE msgtyp = ‘E‘
OR msgtyp = ‘A‘ OR msgtyp = ‘S‘.
PERFORM get_message USING gwa_messtab
CHANGING  g_message .    gwa_return-type = gwa_messtab-msgtyp.    gwa_return-message = g_message.

APPEND gwa_return TO gt_return.
CLEAR gwa_return.
CLEAR g_message.  ENDLOOP.ENDFORM.

" FRM_CALL_TRANSACTION

*-------------------------------------------------------------------*
*        Start new screen
*
*-------------------------------------------------------------------*
FORM bdc_dynpro USING program dynpro.
CLEAR gwa_bdcdata.  gwa_bdcdata-program  = program.  gwa_bdcdata-dynpro   = dynpro.  gwa_bdcdata-dynbegin =

‘X‘.
APPEND gwa_bdcdata TO gt_bdcdata.ENDFORM.
"bdc_dynpro

*-------------------------------------------------------------------*
*        Insert field
*
*-------------------------------------------------------------------*
FORM bdc_field USING fnam fval.
CLEAR gwa_bdcdata.  gwa_bdcdata-fnam = fnam.  gwa_bdcdata-fval = fval.

APPEND gwa_bdcdata TO gt_bdcdata.ENDFORM.
"bdc_field
*&---------------------------------------------------------------------*
*&      Form  GET_MESSAGE
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_WA_BDC_MESSAGE  text
*      <--P_WA_MESSAGE_MSG_TXT  text
*----------------------------------------------------------------------*
FORM get_message USING lw_message TYPE  bdcmsgcoll
CHANGING g_message TYPE balmsgtxtp.
CLEAR g_message.
CALL FUNCTION ‘MESSAGE_TEXT_BUILD‘
EXPORTING      msgid               = lw_message-msgid      msgnr               = lw_message-msgnr      msgv1               = lw_message-msgv1      msgv2               = lw_message-msgv2      msgv3               = lw_message-msgv3      msgv4               = lw_message-msgv4

IMPORTING      message_text_output = g_message.ENDFORM.

" GET_MESSAGE

*&---------------------------------------------------------------------*
*&      Form  frm_selectlist_pbo
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->ZLIST      text
*----------------------------------------------------------------------*
FORM frm_selectlist_pbo CHANGING zlist.

*  data itab_list type vrm_values.  DATA:  ldt_list
TYPE TABLE OF vrm_value,         lds_list
TYPE vrm_value.  DATA:  ldt_list2

TYPE TABLE OF vrm_value,         lds_list2
TYPE vrm_value.

FREE ldt_list.  lds_list-key =
‘01‘.  lds_list-text =
‘风电‘.
APPEND lds_list TO ldt_list.  lds_list-key =
‘02‘.  lds_list-text =
‘冶金‘.
APPEND lds_list TO ldt_list.  lds_list-key =
‘03‘.  lds_list-text =
‘研发‘.
APPEND lds_list TO ldt_list.

CALL FUNCTION ‘VRM_SET_VALUES‘
EXPORTING
id     = ‘ZLIST‘  "屏幕中的下拉菜单的NAME,下拉菜单选择LISTBOX      values = ldt_list.

IF zlist = ‘‘.
READ TABLE ldt_list INTO lds_list INDEX 1.    zlist = lds_list-key.  ENDIF.

FREE ldt_list2.
IF zlist = ‘01‘ .
FREE ldt_list2.    lds_list2-key =
‘01‘.    lds_list2-text =
‘塔架‘.
APPEND lds_list2 TO ldt_list2.    lds_list2-key =
‘02‘.    lds_list2-text =
‘其他‘.
APPEND lds_list2 TO ldt_list2.
ELSEIF zlist = ‘02‘ .
FREE ldt_list2.    lds_list2-key =
‘01‘.    lds_list2-text =
‘集团‘.
APPEND lds_list2 TO ldt_list2.    lds_list2-key =
‘02‘.    lds_list2-text =
‘外部‘.
APPEND lds_list2 TO ldt_list2.
ELSEIF zlist = ‘03‘ .
FREE ldt_list2.    lds_list2-key =
‘01‘.    lds_list2-text =
‘风电‘.
APPEND lds_list2 TO ldt_list2.    lds_list2-key =
‘02‘.    lds_list2-text =
‘冶金‘.
APPEND lds_list2 TO ldt_list2.    lds_list2-key =
‘03‘.    lds_list2-text =
‘煤化‘.
APPEND lds_list2 TO ldt_list2.    lds_list2-key =
‘04‘.    lds_list2-text =
‘石油‘.
APPEND lds_list2 TO ldt_list2.  ENDIF.

CALL FUNCTION ‘VRM_SET_VALUES‘
EXPORTING
id     = ‘ZLIST2‘  "屏幕中的下拉菜单的NAME,下拉菜单选择LISTBOX      values = ldt_list2.

READ TABLE ldt_list2 INTO lds_list2 INDEX 1.  zlist2 = lds_list2-key.ENDFORM.

"frm_selectlist_pbo
*&---------------------------------------------------------------------*
*&      Form  FRM_MODIFY_SCREEN
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM frm_modify_screen.

IF zlist = ‘0003‘ .
LOOP AT SCREEN.
CASE screen-name.
WHEN ‘P_VKORG‘.          screen-active =
0.
MODIFY SCREEN.
WHEN ‘P_VTWEG‘.          screen-active =
0.
MODIFY SCREEN.
WHEN ‘P_SPART‘.          screen-active =
0.
MODIFY SCREEN.
WHEN ‘%C009036_1000‘.          screen-active =
0.
MODIFY SCREEN.
WHEN ‘%C010040_1000‘.          screen-active =
0.
MODIFY SCREEN.
WHEN ‘%C011044_1000‘.          screen-active =
0.
MODIFY SCREEN.
WHEN OTHERS.      ENDCASE.    ENDLOOP.  ENDIF.ENDFORM.

" FRM_MODIFY_SCREEN
*&---------------------------------------------------------------------*
*&      Form  FRM_SHOW_MESSAGE
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM frm_show_message .
LOOP AT gt_return INTO gwa_return.    WRITE: / gwa_return-type, gwa_return-message.  ENDLOOP.ENDFORM.

" FRM_SHOW_MESSAGE

*&---------------------------------------------------------------------*
*&      Form  FRM_CHECK_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM frm_check_data .

IF zlist = ‘0001‘ OR  zlist = ‘0002‘ .    g_flag_fdyj =
‘X‘.
ELSEIF zlist = ‘0003‘.    g_flag_yf =
‘X‘.  ENDIF.

IF g_flag_fdyj = ‘X‘.
IF p_vkorg = ‘‘ OR p_vtweg = ‘‘ OR p_spart = ‘‘.
MESSAGE ‘请填写完整销售区域数据‘ TYPE ‘E‘.    ENDIF.  ENDIF.ENDFORM.

" FRM_CHECK_DATA
*&---------------------------------------------------------------------*
*&      Form  FRM_CONVER_UNIT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_P_PSPNR  text
*----------------------------------------------------------------------*
FORM frm_conver_unit  USING    p_unit.
CALL FUNCTION ‘CONVERSION_EXIT_CUNIT_OUTPUT‘
EXPORTING
input          = p_unit
IMPORTING
output         = p_unit
EXCEPTIONS      unit_not_found =
1
OTHERS         = 2.ENDFORM.
" FRM_CONVER_UNIT
*&---------------------------------------------------------------------*
*&      Form  FRM_UNIT_INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_LDF_PSPID  text
*----------------------------------------------------------------------*
FORM frm_pspnr_input  USING    p_pspnr.
CALL FUNCTION ‘CONVERSION_EXIT_KONPS_INPUT‘
EXPORTING
input  = p_pspnr
IMPORTING
output = p_pspnr.ENDFORM.
" FRM_UNIT_INPUT
*&---------------------------------------------------------------------*
*&      Form  FRM_CONVER_OBJ
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_LDS_TCJ41_SCOPE  text
*----------------------------------------------------------------------*
FORM frm_conver_obj  USING    p_scope.

CALL FUNCTION ‘CONVERSION_EXIT_SCOPE_OUTPUT‘
EXPORTING
input  = p_scope
IMPORTING
output = p_scope.ENDFORM.
" FRM_CONVER_OBJ
*&---------------------------------------------------------------------*
*&      Form  FRM_DELETE_WBS
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM frm_delete_wbs .
*  DATA:it_ret2 LIKE bapiret2 OCCURS 0 WITH HEADER LINE.
*DATA: it_delete_wbs_element LIKE  TABLE OF  bapi_wbs_list WITH HEADER
*LINE.
*
*
*  DATA: str(20) TYPE c.
*  DATA: gt_prps TYPE TABLE OF prps,
*        gwa_prps TYPE prps.
*
*  CALL FUNCTION ‘CONVERSION_EXIT_KONPD_INPUT‘
*    EXPORTING
*      input  = gs_sdata-pspid
*    IMPORTING
*      output = gs_sdata-pspid.
*
*
*  SELECT * INTO TABLE gt_prps FROM prps
*           WHERE psphi =   gs_sdata-pspid.
*
*  LOOP AT gt_prps INTO gwa_prps.
*    CALL FUNCTION ‘CONVERSION_EXIT_ABPSP_OUTPUT‘
*      EXPORTING
*        input  = gwa_prps-pspnr
*      IMPORTING
*        output = str.
*
*    it_delete_wbs_element-wbs_element = str.
*    APPEND it_delete_wbs_element.
*  ENDLOOP.
*
*
*  CALL FUNCTION ‘CONVERSION_EXIT_KONPD_OUTPUT‘
*    EXPORTING
*      input  = gs_sdata-pspid
*    IMPORTING
*      output = gs_sdata-pspid.
*
*  CALL FUNCTION ‘BAPI_PS_INITIALIZATION‘.
*
*  CALL FUNCTION ‘BAPI_BUS2054_DELETE_MULTI‘
*    EXPORTING
*      i_project_definition  = gs_sdata-pspid
*    TABLES
*      it_delete_wbs_element = it_delete_wbs_element
*      et_return             = it_ret2.
*
*  CALL FUNCTION ‘BAPI_PS_PRECOMMIT‘
*    TABLES
*      et_return = it_ret2.
*
*  CALL FUNCTION ‘BAPI_TRANSACTION_COMMIT‘
*    EXPORTING
*      wait = ‘X‘.ENDFORM.
" FRM_DELETE_WBS
*&---------------------------------------------------------------------*
*&      Form  FRM_CREATE_PROJECT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM frm_create_project .  DATA: i_pro_def_new

TYPE STANDARD TABLE OF bapi_bus2001_new  WITH
HEADER LINE.  DATA: gt_prhis
TYPE TABLE OF prhis,        gwa_prhis
TYPE prhis.  DATA: gt_prpss
TYPE TABLE OF prpss,        gwa_prpss
TYPE prpss.  DATA: it_wbs

LIKE bapi_bus2054_new OCCURS 0 WITH HEADER LINE ,        it_ret2
LIKE bapiret2 OCCURS 0 WITH HEADER LINE.  DATA: it_wbs_update

LIKE  bapi_bus2054_chg OCCURS 0 WITH HEADER LINE,        it_update
LIKE bapi_bus2054_upd OCCURS 0 WITH HEADER LINE.  DATA: str(30)

TYPE c,        str_up(30)
TYPE c,        str_left(30)
TYPE c.

PERFORM frm_pspnr_input USING p_pspnr."项目ID转换

SELECT * INTO TABLE gt_prhis FROM prhis
WHERE psphi   = p_pspnr.

SELECT * INTO TABLE gt_prpss FROM prpss
WHERE  psphi = p_pspnr.  i_pro_def_new-project_definition = gs_sdata-pspid.  i_pro_def_new-description = p_post1.  i_pro_def_new-project_profile = g_profidproj.

APPEND i_pro_def_new.

CALL FUNCTION ‘BAPI_PS_INITIALIZATION‘.
CALL FUNCTION ‘BAPI_BUS2001_CREATE‘
EXPORTING      i_project_definition = i_pro_def_new

TABLES      et_return            = it_ret2[].

APPEND LINES OF it_ret2[] TO gt_return.  CLEAR:it_wbs[].

LOOP AT gt_prhis INTO gwa_prhis .

CLEAR gwa_prpss.
READ TABLE gt_prpss INTO gwa_prpss WITH KEY pspnr = gwa_prhis-posnr.
IF sy-subrc = 0.

CALL FUNCTION ‘CONVERSION_EXIT_KONPT_OUTPUT‘
EXPORTING
input  = gwa_prhis-posnr
IMPORTING
output = str.

CALL FUNCTION ‘CONVERSION_EXIT_KONPT_OUTPUT‘
EXPORTING
input  = gwa_prhis-up
IMPORTING
output = str_up.

CALL FUNCTION ‘CONVERSION_EXIT_KONPT_OUTPUT‘
EXPORTING
input  = gwa_prhis-left
IMPORTING
output = str_left.      str+0(11) = gs_sdata-pspid.

IF str_up IS NOT INITIAL.        str_up+0(11) = gs_sdata-pspid.      ENDIF.

IF str_left IS NOT INITIAL.        str_left+0(11) = gs_sdata-pspid.      ENDIF.      it_wbs-wbs_element = str.      it_wbs-wbs_left   = str_left.      it_wbs-wbs_up = str_up.

IF str = gs_sdata-pspid.        it_wbs-description = p_post1.      ELSE.        it_wbs-description = gwa_prpss-post1.      ENDIF.

APPEND it_wbs.    ENDIF.  ENDLOOP.

CALL FUNCTION ‘BAPI_BUS2054_CREATE_MULTI‘
EXPORTING      i_project_definition = gs_sdata-pspid

TABLES      it_wbs_element       = it_wbs[]      et_return            = it_ret2[].

APPEND LINES OF it_ret2[] TO gt_return.  CLEAR:it_wbs_update,it_update.

LOOP AT gt_prhis INTO gwa_prhis .

CLEAR gwa_prpss.
READ TABLE gt_prpss INTO gwa_prpss WITH KEY pspnr = gwa_prhis-posnr.
IF sy-subrc = 0.

CALL FUNCTION ‘CONVERSION_EXIT_KONPT_OUTPUT‘
EXPORTING
input  = gwa_prhis-posnr
IMPORTING
output = str.      str+0(11) = gs_sdata-pspid.      it_wbs_update-wbs_element = str.      it_wbs_update-wbs_planning_element = gwa_prpss-plakz.

"计划      it_wbs_update-wbs_account_assignment_element = gwa_prpss-belkz.
"科目      it_wbs_update-wbs_billing_element = gwa_prpss-fakkz.
"开票      it_wbs_update-statistical    = gwa_prpss-xstat.
"统计WBS      it_wbs_update-planintegrated = gwa_prpss-plint.
"综合计划
APPEND it_wbs_update.      it_update-wbs_element     = str.      it_update-wbs_planning_element =

‘X‘."计划      it_update-wbs_account_assignment_element =
‘X‘."科目      it_update-wbs_billing_element =
‘X‘."开票      it_update-statistical =
‘X‘.      it_update-planintegrated =
‘X‘.
APPEND it_update.    ENDIF.  ENDLOOP.

CALL FUNCTION ‘BAPI_BUS2054_CHANGE_MULTI‘
EXPORTING      i_project_definition  = gs_sdata-pspid

TABLES      it_wbs_element        = it_wbs_update[]      it_update_wbs_element = it_update[]      et_return             = it_ret2[].

APPEND LINES OF it_ret2[] TO gt_return.

CALL FUNCTION ‘BAPI_PS_PRECOMMIT‘
TABLES      et_return = it_ret2.

APPEND LINES OF it_ret2[] TO gt_return.

READ TABLE it_ret2 WITH KEY type = ‘E‘.
IF sy-subrc <> 0.
CALL FUNCTION ‘BAPI_TRANSACTION_COMMIT‘.  ELSE.

CALL FUNCTION ‘BAPI_TRANSACTION_ROLLBACK‘.  ENDIF.ENDFORM.

" FRM_CREATE_PROJECT

声明：以上内容来自用户投稿及互联网公开渠道收集整理发布，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任，若内容有误或涉及侵权可进行投诉：投诉/举报工作人员会在5个工作日内联系你，一经查实，本站将立刻删除涉嫌侵权内容。

联系
我们

首页 > 代码库 > PS 项目创建

PS 项目创建

看完仍有疑问？有类似问题直接问程序猿