AS01/KO02/KO88 新建创建资产卡片函数/内部订单结算维护/内部订单转固接口

导入
IV_BUKRS TYPE BUKRS 公司代码
IV_ANLKL TYPE ANLKL 资产分类
IV_TXT50 TYPE TXA50_ANLT 资产描述
IV_TXA50 TYPE TXA50_MORE 附加资产描述
IV_ANLHTXT TYPE ANLHTXT 资产主号说明
IV_MEINS TYPE MEINS 基本计量单位
IV_MENGE TYPE MENGE_D 数量
IV_KOSTL TYPE KOSTL 成本中心
IV_KOSTLV TYPE KOSTLV 成本中心对资产负责
IV_SERNR TYPE AM_SERNR 序列号
IV_INVNR TYPE INVNR_ANLA 存货号
IV_INVZU TYPE INVZU_ANLA 补充库存说明
IV_AUFNR TYPE AUFNR 订单号
IV_ASSET TYPE BF_ANLN1 主资产号

导出
EV_ASSET TYPE BF_ANLN1 主资产号
EV_STATUS TYPE CHAR1 状态
EV_MESSAGE TYPE CHAR100 描述

FUNCTION zfm_create_zg.
*“----------------------------------------------------------------------
"“本地接口：
*” IMPORTING
*” VALUE(IV_BUKRS) TYPE BUKRS OPTIONAL
*" VALUE(IV_ANLKL) TYPE ANLKL OPTIONAL
*" VALUE(IV_TXT50) TYPE TXA50_ANLT OPTIONAL
*" VALUE(IV_TXA50) TYPE TXA50_MORE OPTIONAL
*" VALUE(IV_ANLHTXT) TYPE ANLHTXT OPTIONAL
*" VALUE(IV_MEINS) TYPE MEINS OPTIONAL
*" VALUE(IV_MENGE) TYPE MENGE_D OPTIONAL
*" VALUE(IV_KOSTL) TYPE KOSTL OPTIONAL
*" VALUE(IV_KOSTLV) TYPE KOSTLV OPTIONAL
*" VALUE(IV_SERNR) TYPE AM_SERNR OPTIONAL
*" VALUE(IV_INVNR) TYPE INVNR_ANLA OPTIONAL
*" VALUE(IV_INVZU) TYPE INVZU_ANLA OPTIONAL
*" VALUE(IV_AUFNR) TYPE AUFNR OPTIONAL
*" VALUE(IV_ASSET) TYPE BF_ANLN1 OPTIONAL
*" EXPORTING
*" VALUE(EV_ASSET) TYPE BF_ANLN1
*" VALUE(EV_STATUS) TYPE CHAR1
*" VALUE(EV_MESSAGE) TYPE CHAR100
*"----------------------------------------------------------------------
*(修改日志)--------------------------------------------------------
*

• 日志号 修改人 修改时间 修改说明 传输号码

• ---

---

IF iv_asset IS INITIAL.
"创建资产卡片
PERFORM frm_create_anln1 USING iv_bukrs "公司代码
iv_anlkl "资产分类
iv_txt50 "资产描述
iv_txa50 "附加资产描述
iv_anlhtxt "资产主号说明
iv_meins "基本计量单位
iv_menge "数量
iv_kostl "成本中心
iv_kostlv "成本中心对资产负责
iv_sernr "序列号
iv_invnr "存货号
iv_invzu "补充库存说明
ev_asset "资产编号
ev_status"状态
ev_message"描述
.
ELSE.
ev_asset = iv_asset.
ENDIF.

IF ev_status <> ‘E’
AND iv_aufnr IS NOT INITIAL
AND ev_asset IS NOT INITIAL.

"新增内部订单结算规则
PERFORM frm_ko02_bdc USING iv_aufnr
                           ev_asset
                           ev_status"状态
                           ev_message"描述
                               .

ENDIF.

IF ev_status <> ‘E’
AND iv_aufnr IS NOT INITIAL.

"内部工单完全结算
PERFORM frm_ko88_bdc USING iv_aufnr
                           ev_status"状态
                           ev_m