这是我所做更改的全部代码。

 PROGRAM ztrdetail。
 表格：zdaily，zvehicle1。

 数据：gv_truck_no类型zdaily-truck_no。  "必须将此变量分配给屏幕输入字段

 模组user_command_1000 INPUT。
   案例sy-ucomm。
     什么时候 ' '。
       执行read_zvehicle。
     当"保存"时。
       使用zdaily进行验证。
       执行更新。
       清除zdaily。
     当"新"。
       清除zdaily。
 *清除zvehicle1。
     当"显示"时。
       呼叫交易" ZDAILY_ALV"。
     当" TP"。
       呼叫交易" ZTOM"。
       保留交易" ZDMY"的权利。
     当"查看"时。
       呼叫交易" ZVIEW"。
       保留交易" ZDMY"的权利。
     当"返回"时。
       离开屏幕0。
     当"添加"时。
       呼叫交易" ZADATA"。
   结束。
 ENDMODULE。

 MODULE status_1000输出。
   执行read_zvehicle。

   将PF状态设置为"今天"。
   将标题栏设置为" DAILY"。

   使用" ZTRHGV"，" ZDAILY-VEHICLE_CATEGORY"执行set_vrm_values。
   使用'ZTRSTATUS''ZDAILY-STATUS'执行set_vrm_values。
   使用'ZTRHIRE''ZDAILY-ON_OFF_HIRE'来执行set_vrm_values。
 ENDMODULE。  " STATUS_0100输出

 FORM read_zvehicle。
   清除zvehicle1。
   如果gv_truck_no不是INITIAL。  "该字段必须与屏幕输入字段相同
     选择单个*从zvehicle1到zvehicle1所在的truck_no = gv_truck_no。
   万一。

   zdaily-vehicle_category = zvehicle1-vehicle_cat。
   zdaily-type = zvehicle1-vehicle_type。

   如果zdaily-vehicle_category是INITIAL。
     zdaily-vehicle_category = lc_veh_cat。
   万一。
   如果zdaily型是INITIAL。
     zdaily-type = lc_veh_type。
   万一。
 ENDFORM。

 表格set_vrm_values
   使用方式
     iv_name LIKE setleaf-setname
     iv_id类型vrm_id。

   数据：lt_srcdest_dd vrm_value的类型表。
   数据：lt_srcdest_setleaf setleaf-valfrom的类型表，
          ls_srcdest_dd与lt_srcdest_dd类似。

   FIELD-SYMBOLS：与lt_srcdest_setleaf类似。

   从setleaf选择val到表lt_srcdest_setleaf
                  setname = iv_name。
   如果sy-subrc EQ 0。
     附加ls_srcdest_dd至lt_srcdest_dd。
     循环至lt_srcdest_setleaf分配。
       ls_srcdest_dd-key = 。
       附加ls_srcdest_dd至lt_srcdest_dd。
       清除ls_srcdest_dd。
     结局。
   万一。

   通话功能" VRM_SET_VALUES"
     出口
       id = iv_id
       值= lt_srcdest_dd
     例外情况
       id_illegal_name = 1
       其他= 2。
 ENDFORM。

 使用is_zdaily TYPE zdaily进行表单验证。
   如果is_zdaily-tripdat> sy-datum。
     "计划日期不能是过去的日期
     邮件e002（zdailymessages）。
   万一。

   如果is_zdaily-tripdat