*&---------------------------------------------------------------------*
*& Report ZMMR110
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZFIR010.
TABLES:SSCRFIELDS.
TYPE-POOLS:SLIS.
"定义ALV输出所需变量
DATA: S_LAYOUT TYPE SLIS_LAYOUT_ALV,
GT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
DATA RETURN LIKE BAPIRET2 OCCURS 0 WITH HEADER LINE.
DATA: GT_EXDATA TYPE ALSMEX_TABLINE OCCURS 0 WITH HEADER LINE.
DATA: IW_CELLCOLOR TYPE LVC_T_SCOL WITH HEADER LINE.
DATA L_FILENAME TYPE STRING .
DATA L_MUBAN TYPE STRING .
DATA GV_FULLPATH TYPE STRING .
DATA GV_PATH TYPE STRING .
DATA GV_NAME TYPE STRING .
DATA:FLAG TYPE C .
TYPES: BEGIN OF GTS_DATA,
MATNR TYPE MARC-MATNR, "物料编码
WERKS TYPE MARC-WERKS, "工厂
MTART TYPE MARA-MTART, "物料类型
*会计 1视图字段如下
*评估分类BKLAS、标准价格、周期单位价格、价格单位PEINH、价格控制VPRSV
BKLAS TYPE MBEW-BKLAS, "评估分类
STPRS TYPE MBEW-STPRS, "标准价格
VERPR TYPE MBEW-VERPR, "周期单位价格
PEINH TYPE MBEW-PEINH, "价格单位
VPRSV TYPE MBEW-VPRSV, "价格控制指示符
*成本 1视图字段如下
*不计算成本NCOST、用QS的成本核算EKALR、物料来源HKMAT、成本核算批量LOSGR
NCOST TYPE MARC-NCOST, "不计算成本
EKALR TYPE MBEW-EKALR, "用QS的成本核算
HKMAT TYPE MBEW-HKMAT, "物料来源
LOSGR TYPE MARC-LOSGR, "成本核算批量
*成本核算2视图字段如下
*计划价格 1 ZPLP1、计划价格 2 ZPLP1、计划价格 3 ZPLP1、ZPLD1、ZPLD2、ZPLD3
ZPLP1 TYPE MBEW-ZPLP1, "未来计划价格1
ZPLP2 TYPE MBEW-ZPLP2, "未来计划价格2
ZPLP3 TYPE MBEW-ZPLP3, "未来计划价格3
ZPLD1 TYPE MBEW-ZPLD1, "未来计划价格 1 的生效日期
ZPLD2 TYPE MBEW-ZPLD2, "计划价格 2 开始有效的日期
ZPLD3 TYPE MBEW-ZPLD3, "计划价格 3 开始有效的日期
CF1 TYPE CHAR4, "发料异常警示
MESSAGE TYPE BAPI_MSG, "报错信息
CELLCOLOR TYPE LVC_T_SCOL, "单元格颜色
END OF GTS_DATA.
DATA: GT_DATA TYPE TABLE OF GTS_DATA WITH HEADER LINE.
DATA: GT_DATA_A TYPE TABLE OF GTS_DATA WITH HEADER LINE.
SELECTION-SCREEN: FUNCTION KEY 1.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME.
PARAMETERS: P_FILE LIKE RLGRAP-FILENAME .
SELECTION-SCREEN END OF BLOCK B1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.
CALL FUNCTION 'WS_FILENAME_GET'
EXPORTING
MASK = ',Excel Files,*.xls,All Files,*.*.'(101)
TITLE = '选择文件'(100)
IMPORTING
FILENAME = P_FILE
EXCEPTIONS
INV_WINSYS = 1
NO_BATCH = 2
SELECTION_CANCEL = 3
SELECTION_ERROR = 4
OTHERS = 5.
IF SY-SUBRC <> 0 AND SY-SUBRC <> 3.
MESSAGE '选择文件出错!' TYPE 'E'.
ENDIF.
FORM FOM_UPDATA .
CLEAR GT_EXDATA[].
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE' "读取excel文件中的内容
EXPORTING
FILENAME = P_FILE
I_BEGIN_COL = '1'
I_BEGIN_ROW = '2'
I_END_COL = '50'
I_END_ROW = '5000'
TABLES
INTERN = GT_EXDATA[].
SORT GT_EXDATA BY ROW COL VALUE.
**---整理到内表数据
CLEAR GT_DATA[] .
LOOP AT GT_EXDATA.
CLEAR FLAG .
AT END OF ROW .
FLAG = 'X'.
ENDAT .
CASE GT_EXDATA-COL.
WHEN 1.
GT_DATA-MATNR = GT_EXDATA-VALUE.
WHEN 2.
GT_DATA-WERKS = GT_EXDATA-VALUE.
WHEN 3.
GT_DATA-BKLAS = GT_EXDATA-VALUE.
WHEN 4.
GT_DATA-STPRS = GT_EXDATA-VALUE.
WHEN 5.
GT_DATA-VERPR = GT_EXDATA-VALUE.
WHEN 6.
GT_DATA-PEINH = GT_EXDATA-VALUE.
WHEN 7.
GT_DATA-VPRSV = GT_EXDATA-VALUE.
WHEN 8.
GT_DATA-NCOST = GT_EXDATA-VALUE.
WHEN 9.
GT_DATA-EKALR = GT_EXDATA-VALUE.
WHEN 10.
GT_DATA-HKMAT = GT_EXDATA-VALUE.
WHEN 11.
GT_DATA-LOSGR = GT_EXDATA-VALUE.
WHEN 12.
GT_DATA-ZPLP1 = GT_EXDATA-VALUE.
WHEN 13.
GT_DATA-ZPLP2 = GT_EXDATA-VALUE.
WHEN 14.
GT_DATA-ZPLP3 = GT_EXDATA-VALUE.
WHEN 15.
GT_DATA-ZPLD1 = GT_EXDATA-VALUE.
WHEN 16.
GT_DATA-ZPLD2 = GT_EXDATA-VALUE.
WHEN 17.
GT_DATA-ZPLD3 = GT_EXDATA-VALUE.
ENDCASE.
IF FLAG IS NOT INITIAL.
APPEND GT_DATA."append要加在最后一列.
CLEAR GT_DATA.
ENDIF.
ENDLOOP.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FOM_POST
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM FOM_POST .
* 数据声明
DATA: CLIDAINP LIKE BAPI_MARA_GA, "客户端层次物料数据
CLIDAOUT LIKE BAPI_MARA, "客户端层次物料数据
CLIDAOUTX LIKE BAPI_MARAX, "BAPI_MARA 的复选框结构
HEADDATA LIKE BAPIMATHEAD, "带有控制信息的表头段
RETURN LIKE BAPIRET2, "返回参数
CLIENTDATA TYPE BAPI_MARA,
CLIENTDATAX TYPE BAPI_MARAX,
PLANTDATA TYPE BAPI_MARC,
PLANTDATAX TYPE BAPI_MARCX,
VALUATIONDATA LIKE BAPI_MBEW,
VALUATIONDATAX LIKE BAPI_MBEWX,
SALESDATA TYPE BAPI_MVKE,
SALESDATAX TYPE BAPI_MVKEX,
TAXCLASSIFICATIONS LIKE BAPI_MLAN OCCURS 0 WITH HEADER LINE,
RETURNMES LIKE BAPI_MATRETURN2 OCCURS 0 WITH HEADER LINE.
LOOP AT GT_DATA.
SELECT SINGLE MTART INTO GT_DATA-MTART FROM MARA
WHERE MATNR = GT_DATA-MATNR
.
* Header segment with control information
CLEAR HEADDATA .
HEADDATA-MATERIAL_LONG = GT_DATA-MATNR. "物料
HEADDATA-MATL_TYPE = GT_DATA-MTART. "物料类型
HEADDATA-BASIC_VIEW = 'X'. "基本视图
HEADDATA-ACCOUNT_VIEW = 'X'. "会计视图
HEADDATA-COST_VIEW = 'X'. "成本视图
* Plant-specific material data
CLEAR PLANTDATA .
PLANTDATA-PLANT = GT_DATA-WERKS. "工厂
PLANTDATA-NO_COSTING = GT_DATA-NCOST. "不计算成本
PLANTDATA-LOT_SIZE = GT_DATA-LOSGR. "成本核算批量
CLEAR PLANTDATAX .
PLANTDATAX-PLANT = GT_DATA-WERKS. "工厂
PLANTDATAX-NO_COSTING = 'X'. "不计算成本
PLANTDATAX-LOT_SIZE = 'X'. "成本核算批量
* Valuation data
CLEAR VALUATIONDATA .
VALUATIONDATA-VAL_AREA = GT_DATA-WERKS. "估价范围
VALUATIONDATA-VAL_CLASS = GT_DATA-BKLAS. "评估分类
VALUATIONDATA-STD_PRICE = GT_DATA-STPRS. "标准价格
VALUATIONDATA-MOVING_PR = GT_DATA-VERPR. "周期单位价格
VALUATIONDATA-PRICE_UNIT = GT_DATA-PEINH. "价格单位
VALUATIONDATA-PRICE_CTRL = GT_DATA-VPRSV. "价格控制指示符
VALUATIONDATA-QTY_STRUCT = GT_DATA-EKALR. "物料来源
VALUATIONDATA-ORIG_MAT = GT_DATA-HKMAT. "用QS的成本核算
VALUATIONDATA-PLNDPRICE1 = GT_DATA-ZPLP1. "未来计划价格1
VALUATIONDATA-PLNDPRICE2 = GT_DATA-ZPLP2. "未来计划价格2
VALUATIONDATA-PLNDPRICE3 = GT_DATA-ZPLP3. "未来计划价格3
VALUATIONDATA-PLNDPRDATE1 = GT_DATA-ZPLD1. "未来计划价格 1 的生效日期
VALUATIONDATA-PLNDPRDATE2 = GT_DATA-ZPLD2. "计划价格 2 开始有效的日期
VALUATIONDATA-PLNDPRDATE3 = GT_DATA-ZPLD3. "计划价格 3 开始有效的日期
CLEAR VALUATIONDATAX .
VALUATIONDATAX-VAL_AREA = GT_DATA-WERKS. "估价范围
VALUATIONDATAX-VAL_CLASS = 'X'. "评估分类
VALUATIONDATAX-STD_PRICE = 'X'. "标准价格
VALUATIONDATAX-MOVING_PR = 'X'. "周期单位价格
VALUATIONDATAX-PRICE_UNIT = 'X'. "价格单位
VALUATIONDATAX-PRICE_CTRL = 'X'. "价格控制指示符
VALUATIONDATAX-QTY_STRUCT = 'X'. "物料来源
VALUATIONDATAX-ORIG_MAT = 'X'. "用QS的成本核算
VALUATIONDATAX-PLNDPRICE1 = 'X'. "未来计划价格1
VALUATIONDATAX-PLNDPRICE2 = 'X'. "未来计划价格2
VALUATIONDATAX-PLNDPRICE3 = 'X'. "未来计划价格3
VALUATIONDATAX-PLNDPRDATE1 = 'X'. "未来计划价格 1 的生效日期
VALUATIONDATAX-PLNDPRDATE2 = 'X'. "计划价格 2 开始有效的日期
VALUATIONDATAX-PLNDPRDATE3 = 'X'. "计划价格 3 开始有效的日期
CLEAR RETURNMES[].
CALL FUNCTION 'BAPI_MATERIAL_SAVEDATA'
EXPORTING
HEADDATA = HEADDATA
PLANTDATA = PLANTDATA
PLANTDATAX = PLANTDATAX
VALUATIONDATA = VALUATIONDATA
VALUATIONDATAX = VALUATIONDATAX
IMPORTING
RETURN = RETURN
TABLES
TAXCLASSIFICATIONS = TAXCLASSIFICATIONS[]
RETURNMESSAGES = RETURNMES[].
DELETE RETURNMES[] WHERE TYPE <> 'E' .
IF RETURNMES[] IS NOT INITIAL.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
SORT RETURNMES[] BY MESSAGE .
DELETE ADJACENT DUPLICATES FROM RETURNMES[] COMPARING MESSAGE.
LOOP AT RETURNMES.
GT_DATA-MESSAGE = GT_DATA-MESSAGE && ';' && RETURNMES-MESSAGE.
GT_DATA-CF1 = '@0A@'.
CLEAR RETURNMES .
ENDLOOP.
ELSE .
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT = 'X'.
GT_DATA-MESSAGE = '操作成功!' .
GT_DATA-CF1 = '@08@'.
ENDIF.
MODIFY GT_DATA.
CLEAR GT_DATA.
ENDLOOP.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_DISPLAY
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM FRM_DISPLAY .
CLEAR S_LAYOUT.
S_LAYOUT-ZEBRA = 'X'.
S_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
S_LAYOUT-COLTAB_FIELDNAME = 'CELLCOLOR'. "单元格颜色内表字段
* s_layout-box_fieldname = 'BOX'.
PERFORM FRM_FILL_FIELD .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
IS_LAYOUT = S_LAYOUT
IT_FIELDCAT = GT_FIELDCAT
I_CALLBACK_PROGRAM = SY-REPID
* I_CALLBACK_PF_STATUS_SET = 'PF_STATUS_SET'
* i_callback_html_top_of_page = 'HTML_TOP_OF_PAGE'
I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
TABLES
T_OUTTAB = GT_DATA[].
ENDFORM.
FORM FRM_FILL_FIELD .
DATA: WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
DEFINE FILL_FIELD.
WA_FIELDCAT-FIELDNAME = &1.
WA_FIELDCAT-SELTEXT_L = &2.
* IF WA_FIELDCAT-FIELDNAME = 'MSLJH' OR WA_FIELDCAT-FIELDNAME = 'WCBJH'.
* WA_FIELDCAT-EMPHASIZE = 'C600'. "设置字段的颜色
* ENDIF.
*
* IF WA_FIELDCAT-FIELDNAME = 'MSLMB' OR WA_FIELDCAT-FIELDNAME = 'WCBMB'.
* WA_FIELDCAT-EMPHASIZE = 'C710'. "设置字段的颜色
* ENDIF.
IF WA_FIELDCAT-FIELDNAME = 'PLNBEZ' OR WA_FIELDCAT-FIELDNAME = 'MATNR' .
WA_FIELDCAT-REF_TABNAME = 'MARA'.
WA_FIELDCAT-REF_FIELDNAME = 'MATNR'.
ENDIF.
IF WA_FIELDCAT-FIELDNAME = 'ARKTX' OR WA_FIELDCAT-FIELDNAME = 'WAKTX' .
WA_FIELDCAT-REF_TABNAME = 'VBAP'.
WA_FIELDCAT-REF_FIELDNAME = 'ARKTX'.
ENDIF.
IF WA_FIELDCAT-FIELDNAME = 'AUFNR' .
WA_FIELDCAT-REF_TABNAME = 'AUFK'.
WA_FIELDCAT-REF_FIELDNAME = 'AUFNR'.
ENDIF.
IF WA_FIELDCAT-FIELDNAME = 'CF1'
OR WA_FIELDCAT-FIELDNAME = 'CF2'
OR WA_FIELDCAT-FIELDNAME = 'CF3'
OR WA_FIELDCAT-FIELDNAME = 'CF4'
.
WA_FIELDCAT-ICON = 'X'.
ENDIF.
APPEND WA_FIELDCAT TO GT_FIELDCAT.
CLEAR WA_FIELDCAT.
END-OF-DEFINITION.
FILL_FIELD :
'MATNR' '物料编码',
'WERKS' '工厂',
'MTART' '物料类型',
'BKLAS' '评估分类',
'STPRS' '标准价格',
'VERPR' '周期单位价格',
'PEINH' '价格单位',
'VPRSV' '价格控制指示符',
'NCOST' '不计算成本',
'EKALR' '用QS的成本核算',
'HKMAT' '物料来源',
'LOSGR' '成本核算批量',
'ZPLP1' '未来计划价格1',
'ZPLP2' '未来计划价格2',
'ZPLP3' '未来计划价格3',
'ZPLD1' '未来计划价格 1 的生效日期',
'ZPLD2' '计划价格 2 开始有效的日期',
'ZPLD3' '计划价格 3 开始有效的日期',
'CF1' '执行结果',
'MESSAGE' '消息'.
ENDFORM.
FORM PF_STATUS_SET USING RT_EXTAB TYPE SLIS_T_EXTAB.
SET PF-STATUS 'STANDARD_FULLSCREEN'.
ENDFORM.
FORM USER_COMMAND USING I_UCOMM LIKE SY-UCOMM
IS_SELFIELD TYPE SLIS_SELFIELD.
DATA: REF TYPE REF TO CL_GUI_ALV_GRID.
DATA : LV_STABLE TYPE LVC_S_STBL. "刷新稳定性
RANGES: L_WERKS FOR T001W-WERKS.
RANGES: L_MATNR FOR MARA-MATNR.
DATA:L_BUKRS TYPE T001K-BUKRS.
LV_STABLE-ROW = '1'.
LV_STABLE-COL = '1'.
CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
IMPORTING
E_GRID = REF.
CALL METHOD REF->CHECK_CHANGED_DATA.
CASE I_UCOMM.
WHEN '&IC1'."表示双击
WHEN 'POST_T'.
ENDCASE.
CALL METHOD REF->REFRESH_TABLE_DISPLAY
EXPORTING
IS_STABLE = LV_STABLE.
ENDFORM.
*--------------------------------------------------------------------*
* 获取下载到本地的路径
*--------------------------------------------------------------------*
FORM FRM_GET_FULLPATH CHANGING PV_FULLPATH TYPE STRING
PV_PATH TYPE STRING
PV_NAME TYPE STRING.
DATA: LV_INIT_PATH TYPE STRING,
LV_INIT_FNAME TYPE STRING,
LV_PATH TYPE STRING,
LV_FILENAME TYPE STRING,
LV_FULLPATH TYPE STRING.
*&---初始名称(输出的文件名称)
* concatenate 'Material_Doc_' SY-DATUM '.xslx' into L_INIT_FNAME.
LV_INIT_FNAME = L_FILENAME.
* 获取桌面路径
CALL METHOD CL_GUI_FRONTEND_SERVICES=>GET_DESKTOP_DIRECTORY
CHANGING
DESKTOP_DIRECTORY = LV_INIT_PATH
EXCEPTIONS
CNTL_ERROR = 1
ERROR_NO_GUI = 2
NOT_SUPPORTED_BY_GUI = 3
OTHERS = 4.
IF SY-SUBRC <> 0.
EXIT.
ENDIF.
*&---用户选择名称、路径
CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_SAVE_DIALOG
EXPORTING
* window_title = '指定保存文件名'
* default_extension = 'DOC'
DEFAULT_FILE_NAME = LV_INIT_FNAME
FILE_FILTER = CL_GUI_FRONTEND_SERVICES=>FILETYPE_EXCEL
* FILE_FILTER = CL_GUI_FRONTEND_SERVICES=>FILETYPE_WORD
INITIAL_DIRECTORY = LV_INIT_PATH
PROMPT_ON_OVERWRITE = 'X'
CHANGING
FILENAME = LV_FILENAME
PATH = LV_PATH
FULLPATH = LV_FULLPATH
* USER_ACTION =
* FILE_ENCODING =
EXCEPTIONS
CNTL_ERROR = 1
ERROR_NO_GUI = 2
NOT_SUPPORTED_BY_GUI = 3
OTHERS = 4.
IF SY-SUBRC = 0.
PV_FULLPATH = LV_FULLPATH.
PV_PATH = LV_PATH.
ENDIF.
ENDFORM.
*--------------------------------------------------------------------*
* 下载文件
*--------------------------------------------------------------------*
FORM FRM_DOWN USING PR_FILENAME.
DATA: LV_OBJDATA LIKE WWWDATATAB,
LV_MIME LIKE W3MIME,
LV_DESTINATION LIKE RLGRAP-FILENAME,
LV_OBJNAM TYPE STRING,
LV_RC LIKE SY-SUBRC,
LV_ERRTXT TYPE STRING.
DATA: LV_FILENAME TYPE STRING,
LV_RESULT,
LV_SUBRC TYPE SY-SUBRC.
DATA: LV_OBJID TYPE WWWDATATAB-OBJID .
LV_OBJID = L_MUBAN. "上传的模版名称
*&---查找文件是否存在。
SELECT SINGLE RELID OBJID
FROM WWWDATA
INTO CORRESPONDING FIELDS OF LV_OBJDATA
WHERE SRTF2 = 0
AND RELID = 'MI'
AND OBJID = LV_OBJID.
*&---判断模版不存在则报错
IF SY-SUBRC NE 0 OR LV_OBJDATA-OBJID EQ SPACE.
CONCATENATE '模板文件:' LV_OBJID '不存在,请用TCODE:SMW0进行加载'
INTO LV_ERRTXT.
MESSAGE LV_ERRTXT TYPE 'E'.
ENDIF.
LV_FILENAME = PR_FILENAME.
"判断本地地址是否已经存在此文件。
CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_EXIST
EXPORTING
FILE = LV_FILENAME
RECEIVING
RESULT = LV_RESULT
EXCEPTIONS
CNTL_ERROR = 1
ERROR_NO_GUI = 2
WRONG_PARAMETER = 3
NOT_SUPPORTED_BY_GUI = 4
OTHERS = 5.
IF SY-SUBRC <> 0.
CASE SY-SUBRC.
WHEN 1.
WHEN 2.
WHEN OTHERS.
ENDCASE.
ENDIF.
IF LV_RESULT EQ 'X'. "如果存在则删除原始文件,重新覆盖
CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_DELETE
EXPORTING
FILENAME = LV_FILENAME
CHANGING
RC = LV_SUBRC
EXCEPTIONS
FILE_DELETE_FAILED = 1
CNTL_ERROR = 2
ERROR_NO_GUI = 3
FILE_NOT_FOUND = 4
ACCESS_DENIED = 5
UNKNOWN_ERROR = 6
NOT_SUPPORTED_BY_GUI = 7
WRONG_PARAMETER = 8
OTHERS = 9.
IF SY-SUBRC <> 0.
CASE SY-SUBRC.
WHEN 1.
WHEN 2.
WHEN OTHERS.
ENDCASE.
ENDIF.
IF LV_SUBRC <> 0. "如果删除失败,则报错。
CONCATENATE '同名EXCEL文件已打开' '请关闭该EXCEL后重试。'
INTO LV_ERRTXT.
MESSAGE LV_ERRTXT TYPE 'E'.
ENDIF.
ENDIF.
LV_DESTINATION = PR_FILENAME.
*&---下载模版。
CALL FUNCTION 'DOWNLOAD_WEB_OBJECT'
EXPORTING
KEY = LV_OBJDATA
DESTINATION = LV_DESTINATION
IMPORTING
RC = LV_RC.
IF LV_RC NE 0.
CONCATENATE '模板文件' '下载失败' INTO LV_ERRTXT.
MESSAGE LV_ERRTXT TYPE 'E'.
ENDIF.
ENDFORM.
INITIALIZATION.
SSCRFIELDS-FUNCTXT_01 = '@49@ 模板下载'.
AT SELECTION-SCREEN .
CASE SSCRFIELDS-UCOMM.
WHEN 'FC01'.
L_FILENAME = '视图导入模板.xls'.
L_MUBAN = 'ZFIR010'.
*&---下载模板
PERFORM FRM_GET_FULLPATH CHANGING GV_FULLPATH GV_PATH GV_NAME.
*&---路径为空则退出
IF GV_FULLPATH IS INITIAL.
MESSAGE '用户取消操作' TYPE 'S'.
RETURN.
ENDIF.
PERFORM FRM_DOWN USING GV_FULLPATH.
WHEN OTHERS.
ENDCASE.
START-OF-SELECTION.
PERFORM FOM_UPDATA.
PERFORM FOM_POST.
PERFORM FRM_DISPLAY.
导入会计 、成本 视图(开发笔记)
最新推荐文章于 2023-03-10 14:33:46 发布