ABAP 自动获取系统时间和日期

 

有些程序在添加或者修改数据的时候需要记录创建和修改时间，当然这些字段我们不可能手动输入，这就要在提交数据时获取系统时间，用如下module就可以完成此操作。

 

*----------------------------------------------------------------------*
***INCLUDE LZVRQSBI01 .
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Module  AUTO_FILL  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE auto_fill INPUT.
  IF zvrqsb-zcrtdat IS INITIAL.
    MOVE: sy-uname TO zvrqsb-zcrtacc,
          sy-datum TO zvrqsb-zcrtdat,
          sy-uzeit TO zvrqsb-zcrttim.
  ENDIF.
  MOVE: sy-uname TO zvrqsb-zmodacc,
        sy-datum TO zvrqsb-zmoddat,
        sy-uzeit TO zvrqsb-zmodtim.
ENDMODULE.                 " AUTO_FILL  INPUT