仅显示报告中的10天后备数据。

2020-08-16 23:30发布

点击此处---> 群内免费提供SAP练习系统(在群公告中)加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)专家们, 我只想显示报告中距当...

         点击此处--->   EasySAP.com群内免费提供SAP练习系统(在群公告中)

加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)


专家们,

我只想显示报告中距当前日期10天的数据。 这只是一个简单的报告。 没有任何选择选项。 但是不明白如何在Select查询中给出Where条件。

报告ZDTUM。
 表格:zdaily。
 数据:基准类型sy基准。
 数据:tripdat TYPE zdaily-tripdat。
 类型:开始于TY_ZDAILY,
          TRUCK_NO TYPE ZDAILY-TRUCK_NO,
          VEHICLE_CATEGORY类型ZDAILY-VEHICLE_CATEGORY,
          TRIPDAT TYPE ZDAILY-TRIPDAT,
          ON_OFF_HIRE TYPE ZDAILY-ON_OFF_HIRE,
          P_FROM类型ZDAILY-P_FROM,
          P_TO TYPE ZDAILY-P_TO,
                TY_ZDAILY结束。

 数据:TY_ZDAILY的IT_ZDAILY类型表,
        WA_ZDAILY类型TY_ZDAILY。

 数据:WA_FIELDCAT类型SLIS_FIELDCAT_ALV,"字段目录工作区
        IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,"字段目录内部表
        IT_LAYOUT TYPE SLIS_LAYOUT_ALV," ALV布局设置

 * FORM_CALLBACK类型SLIS_FORMNAME值'USER_COMMAND'。  "对于用户命令
 选择开始。
 基准= sy基准。
 基准= sy基准-10。

   从ZDAILY中选择*到表IT_ZDAILY的相应字段中。
   执行BUILD_FCAT。
   进行DISPLAY_ALV。
 表格BUILD_FCAT。
   WA_FIELDCAT-FIELDNAME ='卡车_否'。
   WA_FIELDCAT-SELTEXT_M ='卡车号'。
   WA_FIELDCAT-COL_POS = 1。
   WA_FIELDCAT-KEY ='X'。
 * WA_FIELDCAT-HOTSPOT ='X'。
   将WA_FIELDCAT附加到IT_FIELDCAT。
   清除WA_FIELDCAT。

   WA_FIELDCAT-FIELDNAME ='车辆类别'。
   WA_FIELDCAT-SELTEXT_M ='车辆类别'。
   WA_FIELDCAT-EDIT ='X'。
   WA_FIELDCAT-COL_POS = 2。
   将WA_FIELDCAT附加到IT_FIELDCAT。
   清除WA_FIELDCAT。

   WA_FIELDCAT-FIELDNAME ='Tripdat'。
   WA_FIELDCAT-SELTEXT_M ='输入日期'。
   WA_FIELDCAT-EDIT ='X'。
   WA_FIELDCAT-COL_POS = 3。
   将WA_FIELDCAT附加到IT_FIELDCAT。
   清除WA_FIELDCAT。

   WA_FIELDCAT-FIELDNAME ='ON_OFF_HIRE'。
   WA_FIELDCAT-SELTEXT_M ="卡车状态"。
   WA_FIELDCAT-EDIT ='X'。
   WA_FIELDCAT-COL_POS = 4。
   将WA_FIELDCAT附加到IT_FIELDCAT。
   清除WA_FIELDCAT。

   WA_FIELDCAT-FIELDNAME ='P_FROM'。
   WA_FIELDCAT-SELTEXT_M ='来自'。
   WA_FIELDCAT-EDIT ='X'。
   WA_FIELDCAT-COL_POS = 5。
   将WA_FIELDCAT附加到IT_FIELDCAT。
   清除WA_FIELDCAT。

   WA_FIELDCAT-FIELDNAME ='P_TO'。
   WA_FIELDCAT-SELTEXT_M ='收件人'。
   WA_FIELDCAT-EDIT ='X'。
   WA_FIELDCAT-COL_POS = 6。
   将WA_FIELDCAT附加到IT_FIELDCAT。
   清除WA_FIELDCAT。
 ENDFORM。
 " BUILD_FCAT

 表格DISPLAY_ALV。
   通话功能'REUSE_ALV_GRID_DISPLAY'
     出口
       I_CALLBACK_PROGRAM = SY-REPID"程序名称
 ** I_CALLBACK_USER_COMMAND = FORM_CALLBACK"用户命令子程序名称
 * I_CALLBACK_TOP_OF_PAGE = FORM_TOP_OF_PAGE"页面顶部的子例程
       IS_LAYOUT = IT_LAYOUT
       IT_FIELDCAT = IT_FIELDCAT
     桌子
       T_OUTTAB = IT_ZDAILY
     例外情况
       PROGRAM_ERROR = 1
       其他= 2。
   如果SY-SUBRC <> 0。

 *消息ID SY-MSGID类型SY-MSGTY编号SY-MSGNO
 *与SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4。
   万一。
 ENDFORM。  " DISPLAY_ALV