服务条目与采购订单、采购申请、工单、项目及WBS的关系

最近完成了服务条目审批的工作流，其中服务条目（ML81N）审批业务是PM和PS模块共有的业务。本文分析一下服务条目和采购订单、采购申请、工单、项目及WBS的关系。

    一般而言，到服务条目审批要经过之前的创建项目（CJ20N），创建项目WBS（CJ20N），下达项目（CJ20N）。如果是PM业务，需要创建工单，下达工单后系统自动创建采购申请PR。PS业务不通过工单创建采购申请，直接通过手工创建采购申请。接下来流程基本相似，审批采购申请之后，可以创建采购订单PO，审批采购订单。最后通过采购订单创建服务条目，再审批服务条目。

      各业务对应的主要的数据表：

      项目：PROJ（项目定义）

      WBS：PRPS（WBS(工作中断结构) 元素主数据）

      工单：AUFK（订单主数据）

      采购申请：EBAN（采购申请）

                                     EBKN（采购申请帐户设置）

      采购订单：EKKN（采购凭证中的帐户设置）

                EKPO（采购凭证项目）

                EKKO（采购凭证抬头）

      服务条目：ESSR（服务输入表的表头数据）

                ESLL（服务包的行）

（1）服务条目信息

*-服务条目信息
  select single
                txz01     "服务条目表的短文本
                ebeln     "采购凭证号
                ebelp     "采购凭证的项目编号
                bldat     "凭证中的凭证日期
                budat     "凭证中的过帐日期
                frgrl     "批准尚未完全生效('X':尚未批准 '')
                netwr     "输入表的净值(服务条目含税净值)
                lwert     "服务价值(服务条目总价值，税前)
                f_lock    "是否冻结（'X':冻结  ''：未冻结）
                kzabn     "是否已审批（'X':已审批 ''：未审批）
                   banfn     "采购申请编号
                bnfpo     "采购申请的项目编号
           into (l_ses_txz01,
                 l_ebeln,
                 l_ebelp,
                 l_bldat,
                 l_budat,
                 l_frgrl,
                 l_ses_netwr,
                 l_ses_lwert,
                 l_f_lock,
                 l_kzabn,
                    l_banfn,
                    l_bnfpo)
           from essr      "服务输入表的表头数据表
          where lblni = g_lblni.
    其中，最重要的是netwr和lwert的值。netwr是税后的值，lwert是税前的值。这两个值是服务条目各个行项目的总值。

（2）采购凭证信息
*-采购凭证信息
  select single
                a~txz01     "采购凭证行项目描述
                a~netwr     "采购订单货币的订单净值(含税)
                a~brtwr     "PO货币的全部订单值（税前）
                b~bsart
           into (l_po_txz01,
                 l_po_netwr,
                 l_po_brtwr,
                 l_bsart)
           from ekpo as a "采购凭证项目表
           join ekko as b "采购凭证抬头
             on b~ebeln = a~ebeln
          where a~ebeln = l_ebeln
            and a~ebelp = l_ebelp .

  if l_bsart = 'ZPF'. "PM项目
*-工单信息及WBS要素(PM用)
    select single
                  b~aufnr   "订单号(工单号)
                  b~ktext   "描述(工单)
                  b~pspel   "工作分解结构要素 (WBS 要素)
             into (l_aufnr,
                   l_ktext,
                   l_pspel)
             from ekkn as a   "采购凭证中的帐户设置
             join aufk as b on b~aufnr = a~aufnr "订单主数据表
            where a~ebeln = l_ebeln
              and a~ebelp = l_ebelp.
*-WBS要素（PS用）
  elseif l_bsart = 'ZPB'. "PS项目
    select single
                  b~pspel
             into l_pspel
             from ekkn as a "采购凭证中的帐户设置
             join aufk as b "订单主数据
               on b~aufnr = a~nplnr
            where a~ebeln = l_ebeln
              and a~ebelp = l_ebelp .

  endif.

（3）项目信息
*-项目、WBS信息
  select single
                a~pspid   "项目定义
                a~post1   "项目短描述
                a~prctr   "利润中心
                a~werks   "工厂
                b~vernr   "项目负责人
                b~posid   "工作分解结构元素 (WBS 元素)
                b~post1   "WBS短描述
           into (l_pspid,
                 l_proj_post1,
                 l_prctr,
                 l_werks,
                 l_vernr,
                 l_posid,
                 l_prps_post1
                 )
           from proj as a
           join prps as b on b~psphi  = a~pspnr
          where b~pspnr = l_pspel.

*-获取支付比例
  l_percent = l_ses_lwert * 100 / l_po_brtwr. "税前比例
  l_percent_c = l_percent.
  call function 'CONVERSION_EXIT_ALPHA_OUTPUT'
    exporting
      input  = l_percent_c
    importing
      output = l_percent_c.
  concatenate l_percent_c '%' into l_percent_c.

注：服务条目通过服务类的采购订单创建，所以在查找对应的项目及WBS时比较简单。一般的采购订单或是采购申请是通过查找对应的工单或是网络或是WBS要素来查找对应的项目及WBS。通常情况下，采购订单或是采购申请都是挂在网络或是WBS下或是通过工单来关联项目的。这个问题在相关的文章中再分析讨论。