当前位置： 首页 > news >正文

SAP FICO资产批量导入功能

news 2025/11/12 16:23:45

一、功能逻辑

二、功能界面

三、功能代码

*&---------------------------------------------------------------------*
*& 程序名： ZRPFI_IMPORT_ASSET
*& 创建者(公司)/日期： 
*& 程序描述：
*&   1. 历史资产期初导入功能.
*&   2. 区分当年和往年数据
*&---------------------------------------------------------------------*
*& 版本/修改者(公司)/日期//修改描述
*& 
*&
*&---------------------------------------------------------------------*
REPORT zrpfi_import_asset MESSAGE-ID 00.

************************************************************************
* INCLUDES
************************************************************************
INCLUDE zrpfi_009_top.        "Defination
INCLUDE zrpfi_009_scr.        "Selection Screen
INCLUDE zrpfi_009_f01.        "Subroutine for processing
INCLUDE zrpfi_009_f02.        "Subroutine for processing

************************************************************************
* INITIALIZATION
************************************************************************
INITIALIZATION.
  PERFORM frm_init_screen.

************************************************************************
* AT SELECTION-SCREEN OUTPUT
************************************************************************
************************************************************************
* AT SELECTION-SCREEN on value-request
************************************************************************
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_fpath.
  PERFORM frm_get_filepath CHANGING p_fpath.

************************************************************************
* AT SELECTION-SCREEN
************************************************************************
AT SELECTION-SCREEN.
  CASE sscrfields-ucomm.
    WHEN 'FC01'.
      PERFORM frm_download_temp USING 'ZFICO_009_DN' TEXT-004.
    WHEN 'FC02'.
      PERFORM frm_download_temp USING 'ZFICO_009_WN' TEXT-005.
  ENDCASE.


AT SELECTION-SCREEN OUTPUT .
  LOOP AT SCREEN.
    IF screen-group1 EQ 'G1'.
      IF r_wn = 'X'.
        screen-active = 1.
      ELSE.
        screen-active = 0.
      ENDIF.
    ENDIF.
    MODIFY SCREEN.
  ENDLOOP .

************************************************************************
* START-OF-SELECTION
************************************************************************
START-OF-SELECTION.
*--- Main process
  PERFORM frm_upload_file.
  PERFORM frm_check_data.
  PERFORM frm_create_asset.
  PERFORM frm_output_log.
*
************************************************************************
* END-OF-SELECTION
************************************************************************

*&---------------------------------------------------------------------*
*& 包含               ZRPFI_009_TOP
*&---------------------------------------------------------------------*
************************************************************************
* TYPE POOLS
************************************************************************
TYPE-POOLS ICON.
************************************************************************
* TABLES
************************************************************************
TABLES SSCRFIELDS.
************************************************************************
* TYPES
************************************************************************
*--- 当年模板
TYPES: BEGIN OF TY_XLSX_DN,
*General data
         ASSETCLASS     TYPE BAPI1022_FEGLG001-ASSETCLASS,    "资产分类
         COMPANYCODE    TYPE BAPI1022_KEY-COMPANYCODE,        "公司代码
         DESCRIPT       TYPE BAPI1022_FEGLG001-DESCRIPT,      "资产描述
         DESCRIPT2      TYPE BAPI1022_FEGLG001-DESCRIPT2,     "附加资产描述
         MAIN_DESCRIPT  TYPE BAPI1022_FEGLG001-MAIN_DESCRIPT, "资产主号文本
         SERIAL_NO      TYPE BAPI1022_FEGLG001-SERIAL_NO,     "序列号
         INVENT_NO      TYPE BAPI1022_FEGLG001-INVENT_NO,     "存货号
*         quantity       TYPE bapi1022_feglg001-quantity,      "数量
         BASE_UOM       TYPE BAPI1022_FEGLG001-BASE_UOM,      "基本计量单位
*记帐信息
         CAP_DATE       TYPE BAPI1022_FEGLG002-CAP_DATE,       "资本化日期
*时间相关的数据
         COSTCENTER     TYPE BAPI1022_FEGLG003-COSTCENTER,     "成本中心
*-------------------------------------增加字段-ZHANGZG-2022.07.21
         PLANT          TYPE BAPI1022_FEGLG003-PLANT,         "工厂
*-------------------------------------增加字段-ZHANGZG-2022.07.21
         LOCATION       TYPE BAPI1022_FEGLG003-LOCATION,       "位置
         ROOM           TYPE BAPI1022_FEGLG003-ROOM,           "房间
*-------------------------------------增加字段-ZHANGZG-2022.07.21
*库存
         NOTE           TYPE BAPI1022_FEGLG011-NOTE,          "库存注释
*分配
         EVALGROUP1     TYPE BAPI1022_FEGLG004-EVALGROUP1,    "在建工程分类
*-------------------------------------增加字段-ZHANGZG-2022.07.21
*Origin-源数据
         VENDOR         TYPE BAPI1022_FEGLG009-VENDOR,         "供应商
         MANUFACTURER   TYPE BAPI1022_FEGLG009-MANUFACTURER,   "制造商
*折旧数据
         AREA           TYPE BAPI1022_DEP_AREAS-AREA,          "实际折旧范围
         DEP_KEY        TYPE BAPI1022_DEP_AREAS-DEP_KEY,       "折旧码
         ULIFE_YRS      TYPE BAPI1022_DEP_AREAS-ULIFE_YRS,     "使用年
         ULIFE_PRDS     TYPE BAPI1022_DEP_AREAS-ULIFE_PRDS,    "使用月
         EXP_ULIFE_YRS  TYPE BAPI1022_DEP_AREAS-EXP_ULIFE_YRS, "已过期年
         EXP_ULIFE_PRDS TYPE BAPI1022_DEP_AREAS-EXP_ULIFE_PRDS, "折旧码
*Transactions for Transfer during Fiscal Year
         AMOUNT         TYPE BAPI1022_TRTYPE-AMOUNT,      "累积购置和生产成本
*Posted values
         ORD_DEP        TYPE BAPI1022_POSTVAL-ORD_DEP,    "本年度折旧
         "---------------------------20231128 添加新字段----------------------------
         RESP_CCTR      TYPE BAPI1022_FEGLG003-RESP_CCTR, "责任成本中心
         PLATE_NO       TYPE BAPI1022_FEGLG003-PLATE_NO, "保管人
         EVALGROUP2     TYPE BAPI1022_FEGLG004-EVALGROUP2,    "海外资产分类
         EVALGROUP3     TYPE BAPI1022_FEGLG004-EVALGROUP3,    "资产状态
         "--------------------------end-------------------------------------
         "20231130 ADD---------------------------------
        " AMOUNT_JT      TYPE BAPI1022_TRTYPE-AMOUNT,      "累积购置和生产成本
*Posted values
         ORD_DEP_JT     TYPE BAPI1022_POSTVAL-ORD_DEP,    "本年度折旧
         "END
       END OF TY_XLSX_DN.

*--- 往年模板
TYPES: BEGIN OF TY_XLSX_WN,
*General data
         ASSETCLASS     TYPE BAPI1022_FEGLG001-ASSETCLASS,    "资产分类
         COMPANYCODE    TYPE BAPI1022_KEY-COMPANYCODE,        "公司代码
         DESCRIPT       TYPE BAPI1022_FEGLG001-DESCRIPT,      "资产描述
         DESCRIPT2      TYPE BAPI1022_FEGLG001-DESCRIPT2,     "附加资产描述
         MAIN_DESCRIPT  TYPE BAPI1022_FEGLG001-MAIN_DESCRIPT, "资产主号文本
         SERIAL_NO      TYPE BAPI1022_FEGLG001-SERIAL_NO,     "序列号
         INVENT_NO      TYPE BAPI1022_FEGLG001-INVENT_NO,     "存货号
*         quantity       TYPE bapi1022_feglg001-quantity,      "数量
         BASE_UOM       TYPE BAPI1022_FEGLG001-BASE_UOM,      "基本计量单位
*记帐信息
         CAP_DATE       TYPE BAPI1022_FEGLG002-CAP_DATE,       "资本化日期
*时间相关的数据
         COSTCENTER     TYPE BAPI1022_FEGLG003-COSTCENTER,     "成本中心
*-------------------------------------增加字段-ZHANGZG-2022.07.21
         PLANT          TYPE BAPI1022_FEGLG003-PLANT,         "工厂
*-------------------------------------增加字段-ZHANGZG-2022.07.21
         LOCATION       TYPE BAPI1022_FEGLG003-LOCATION,       "位置
         ROOM           TYPE BAPI1022_FEGLG003-ROOM,           "房间
*-------------------------------------增加字段-ZHANGZG-2022.07.21
*库存
         NOTE           TYPE BAPI1022_FEGLG011-NOTE,          "库存注释
*分配
         EVALGROUP1     TYPE BAPI1022_FEGLG004-EVALGROUP1,    "在建工程分类
*-------------------------------------增加字段-ZHANGZG-2022.07.21
*Origin-源数据
         VENDOR         TYPE BAPI1022_FEGLG009-VENDOR,         "供应商
         MANUFACTURER   TYPE BAPI1022_FEGLG009-MANUFACTURER,   "制造商
*折旧数据
         AREA           TYPE BAPI1022_DEP_AREAS-AREA,          "实际折旧范围
         DEP_KEY        TYPE BAPI1022_DEP_AREAS-DEP_KEY,       "折旧码
         ULIFE_YRS      TYPE BAPI1022_DEP_AREAS-ULIFE_YRS,     "使用年
         ULIFE_PRDS     TYPE BAPI1022_DEP_AREAS-ULIFE_PRDS,    "使用月
         EXP_ULIFE_YRS  TYPE BAPI1022_DEP_AREAS-EXP_ULIFE_YRS, "已过期年
         EXP_ULIFE_PRDS TYPE BAPI1022_DEP_AREAS-EXP_ULIFE_PRDS, "折旧码
*Cumulative Values
         ACQ_VALUE      TYPE BAPI1022_CUMVAL-ACQ_VALUE,       "累积购置价值
         REV_REPL       TYPE BAPI1022_CUMVAL-REV_REPL,        "减值准备
         ORD_DEP2       TYPE BAPI1022_CUMVAL-ORD_DEP,         "累积普通折旧
*Posted values
         ORD_DEP        TYPE BAPI1022_POSTVAL-ORD_DEP,        "本年度折旧
         "---------------------------20231128 添加新字段----------------------------
         RESP_CCTR      TYPE BAPI1022_FEGLG003-RESP_CCTR, "责任成本中心
         PLATE_NO       TYPE BAPI1022_FEGLG003-PLATE_NO, "保管人
         EVALGROUP2     TYPE BAPI1022_FEGLG004-EVALGROUP2,    "海外资产分类
         EVALGROUP3     TYPE BAPI1022_FEGLG004-EVALGROUP3,    "资产状态
         "--------------------------end-------------------------------------

         "begin 20231130 add
         ACQ_VALUE_JT   TYPE BAPI1022_CUMVAL-ACQ_VALUE,       "累积购置价值
         REV_REPL_JT    TYPE BAPI1022_CUMVAL-REV_REPL,        "减值准备
         ORD_DEP2_JT    TYPE BAPI1022_CUMVAL-ORD_DEP,         "累积普通折旧
         ORD_DEP_JT     TYPE BAPI1022_POSTVAL-ORD_DEP,        "本年度折旧
         "end
       END OF TY_XLSX_WN.

************************************************************************
* DATA DEFINITION
************************************************************************
DATA: FUNCTXT TYPE SMP_DYNTXT.

DATA: GT_XLSX_DN TYPE TABLE OF TY_XLSX_DN, "当年数据-excel file
      GS_XLSX_DN TYPE TY_XLSX_DN.

DATA: GT_XLSX_WN TYPE TABLE OF TY_XLSX_WN, "往年数据-excel file
      GS_XLSX_WN TYPE TY_XLSX_WN.

*--- 当年数据 - outlog
DATA: BEGIN OF GS_OUTLOG.
DATA: CHBOX TYPE C,
      ZICON TYPE ICON_D,
      ZXLH  TYPE I,
      ZMESG TYPE BAPI_MSG,
      ANLN1 TYPE ANLA-ANLN1,
      ANLN2 TYPE ANLA-ANLN2.
      INCLUDE STRUCTURE GS_XLSX_DN.
DATA END OF GS_OUTLOG.
DATA: GT_OUTLOG LIKE TABLE OF GS_OUTLOG.

*---往年数据 - Outlog
DATA: BEGIN OF GS_OUTLOG_WN.
DATA: CHBOX TYPE C,
      ZICON TYPE ICON_D,
      ZXLH  TYPE I,
      ZMESG TYPE BAPI_MSG,
      ANLN1 TYPE ANLA-ANLN1,
      ANLN2 TYPE ANLA-ANLN2.
      INCLUDE STRUCTURE GS_XLSX_WN.
DATA: END OF GS_OUTLOG_WN.
DATA: GT_OUTLOG_WN LIKE TABLE OF GS_OUTLOG_WN.

DATA: GV_E_FLAG TYPE C ,  "是否错误的flag
      GV_TEST   TYPE C.    "测试运行变量


************************************************************************
* OO ALV Definition
************************************************************************
DATA: G_COL_POS TYPE I,            "ALV列位置
      G_INDEX   TYPE I.            "序号
DATA: GS_LAYOUT    TYPE  LVC_S_LAYO.  "ALV layout
DATA: GT_FIELDCAT  TYPE  LVC_T_FCAT.  "ALV fieldcat

*&---------------------------------------------------------------------*
*& 包含               ZRPFI_009_SCR
*&---------------------------------------------------------------------*
*--- Function selection
SELECTION-SCREEN BEGIN OF BLOCK b_01 WITH FRAME TITLE TEXT-001.
  PARAMETERS: r_dn TYPE c RADIOBUTTON GROUP rg1
                                      DEFAULT 'X'
                                      USER-COMMAND cmd1.

  PARAMETERS: r_wn TYPE c RADIOBUTTON GROUP rg1.

  SELECTION-SCREEN ULINE.

  PARAMETERS: r_qz MODIF ID g1 RADIOBUTTON GROUP gp1.
  PARAMETERS: r_qm MODIF ID g1 RADIOBUTTON GROUP gp1.

SELECTION-SCREEN END OF BLOCK b_01.

SELECTION-SCREEN BEGIN OF BLOCK b_02 WITH FRAME TITLE TEXT-001.
  PARAMETERS: p_fpath TYPE  rlgrap-filename MEMORY ID m1. "string
  PARAMETERS: c_test  TYPE c AS CHECKBOX&nb

http://www.dtcms.com/a/599072.html

相关文章：

  • 大型企业门户网站能力建设探索与实践包头企业做网站
  • 什么都能买到的网站wordpress怎么做手机端
  • 【MCU控制 初级手札】1.8 氧化还原反应 【化学基础】
  • 旅游系统网站开发的背景做网站的数据从哪里来
  • Docker实战系列：使用Docker快速部署Edge自托管浏览器（详细教程）
  • CUDA C++编程指南(3.2.12)——运行时和设备内存
  • 泰安集团网站建设公司用网站做平台
  • 织梦优美文章阅读网站源码哈尔滨商城网站建设
  • 网站建设的发展腾讯会议价格
  • 1.1.4 Spring的下载及目录结构
  • [7]. SpringAI Alibaba RAG增强检索生成
  • 国内做的比较好的旅游网站免费的网站加速器
  • 知识管理工具：confluence vs 语雀 vs notion vs sward一文纵评
  • 免费网站素材下载wordpress 导入用户
  • php mysql网站开发项目式教程免费的网站制作
  • 网站建设 客户同程网页升级紧急跳转
  • 在做网站的公司做网站运营犯法吗成都网站怎么推广
  • DeepSeekV3-MOE
  • 软文网站推广wordpress 添加视频
  • 杭州网站设计公司哪个好百度关键词怎么优化
  • 网站上怎样做轮播图珠宝钻石网站建站
  • 数据结构入门 (十)：“左小右大”的秩序 —— 深入二叉搜索树
  • 能不能模仿百度一样做搜索引擎网站php网站开发职责
  • 如果做局域网影音网站企业服务中心抖音
  • 常见购物网站功能丹东建设银行网站
  • 徐州建网站网站界面设计形考
  • 最新电大网站开发维护WORDPRESS摘要无效
  • 高端定制网站开发买空间哪个网站好
  • Linux 内存管理 (5)：buddy 内存分配简要流程
  • C++ 高精度计算：突破数据类型限制的实现与应用