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

猜你喜欢

转载自blog.csdn.net/yiyuzz/article/details/82838817