遇到一个这样的需求
双击供应商及时率,展示明细,因为这个程序集成的报表有点多,而且多数要求都是计算百分率,然后双击跳转明细的逻辑,为了不相互影响,精简代码,因此选择了 SUBMIT
每一个报表的明细都做成了一个单独的程序,然后双击跳转的时候调用程序.
需要传参,主程序为 A ,被调用程序为 B,此例中B 的选择屏幕 就是 A 的选择屏幕的条件.
(1) 调用其他程序:
SUBMIT zppr044_5 AND RETURN .
(2) 调用其他程序参数传递参数:
SUBMIT zppr044_5 USING SELECTION-SCREEN '1100'
WITH s_cgz IN s_cgz
WITH s_cgddrq IN s_cgddrq
WITH s_gys IN s_gys
WITH p_jqwh = p_jqwh
AND RETURN .
被调用程序 B 的选择屏幕处 多加了一句话
SELECTION-SCREEN BEGIN OF SCREEN 1100.
SELECTION-SCREEN END OF SCREEN 1100.
REPORT zppr044_5.
SELECTION-SCREEN BEGIN OF SCREEN 1100.
SELECTION-SCREEN BEGIN OF BLOCK blk WITH FRAME TITLE text-001.
SELECT-OPTIONS:s_cgz FOR ekko-ekgrp MODIF ID g10 , "订单确认交期 采购组
s_cgddrq FOR ekko-aedat MODIF ID g10 , "订单确认交期 采购订单日期
s_gys FOR ekko-lifnr MODIF ID g10 . "订单确认交期 供应商
PARAMETERS:p_jqwh DEFAULT 'X' USER-COMMAND create MODIF ID m6. "未维护交期 勾选框,默认勾选
SELECTION-SCREEN END OF BLOCK blk.
SELECTION-SCREEN END OF SCREEN 1100.