PS 项目创建

*----------------------------------------------------------------------*
* 程序名称： 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