MODULE USER_COMMAND_2100 INPUT.
CLEAR SAVE_OK.
SAVE_OK = OK_CODE.
CLEAR OK_CODE.
CASE SAVE_OK.
WHEN \'ENTER\'.
PERFORM FRM_ENTER.
WHEN \'CANC\' OR \'BACK\'.
LEAVE TO SCREEN 0.
WHEN \'EXIT\'.
LEAVE PROGRAM.
WHEN \'INPU\'.
PERFORM FRM_SELE_FUNC USING \'1\'.
WHEN \'MODI\'.
PERFORM FRM_SELE_FUNC USING \'2\'.
WHEN \'SECH\'.
PERFORM FRM_SELE_FUNC USING \'3\'.
WHEN \'CLEA\'.
PERFORM FRM_CLEAR_SCREEN USING \'2100\'.
WHEN OTHERS.
ENDCASE.
ENDMODULE. " USER_COMMAND_2100 INPUT
*&---------------------------------------------------------------------*
*& Form FRM_ENTER
*&---------------------------------------------------------------------*
* 按回车键引发的动作
*----------------------------------------------------------------------*
FORM FRM_ENTER_2100 .
* 取得当前光标所在位置
CLEAR W_2100-CURPOS.
GET CURSOR FIELD W_2100-CURPOS.
CASE W_2100-CURPOS.
WHEN \'W_2100-DATE\'.
* 拣配日期——默认当天日期,可修改。若修改,用户回车后判断日期格式
* 是否正确,若不正确光标停留在“拣配日期”项目上等待用户修改;若正
* 确光标跳到“仓库”项目上。
PERFORM FRM_MAIN_CHECK_JZRQ USING W_2100-DATE. "检查日期
IF G_MAIN_CURPOS = \'W_G-JZRQ\'.
W_2100-CURPOS = \'W_2100-DATE\'.
EXIT.
ELSE.
W_2100-CURPOS = \'W_2100-LGORT\'.
ENDIF.
WHEN \'W_2100-LGORT\'.
* 仓库——用户登录后,从“仓管员信息表”里查找出用户名对应的库存地点,
* 显示在“仓库”后面。用户可修改,修改后按回车,系统需要判断用户输入的
* 库存地点代码是否在“仓管员信息表”里,若不存在提示错误信息(您没有操
* 作该仓库的权限)。若正确,回车后光标跳到“请选择”上
SELECT SINGLE LGORT
INTO ZMMWHM-LGORT
FROM ZMMWHM
WHERE NAME = SY-UNAME
AND LGORT = W_2100-LGORT.
IF SY-SUBRC <> 0.
W_2100-CURPOS = \'W_2100-LGORT\'.
MESSAGE E000.
EXIT.
ELSE.
W_2100-CURPOS = \'W_2100-SELE\'.
ENDIF.
WHEN \'W_2100-SELE\'.
* 请选择——用户在该项目上输入屏幕上可供选择的菜单项编号,回车后系统判
* 断输入的内容是否存在对应菜单编号,若不存在光标停留在“请选择”项目
* 上,并选中输入的内容等待用户修改;若存在则进入相应的操作屏幕。
PERFORM FRM_SELE_FUNC USING W_2100-SELE.
WHEN OTHERS.
ENDCASE.
ENDFORM. " FRM_ENTER
原创声明:本文系作者授权腾讯云开发者社区发表,未经许可,不得转载。
如有侵权,请联系 cloudcommunity@tencent.com 删除。
原创声明:本文系作者授权腾讯云开发者社区发表,未经许可,不得转载。
如有侵权,请联系 cloudcommunity@tencent.com 删除。