ABAP-SM30输入某个字段自动带出另一个字段的数据

MODULE get14_lifnr_name INPUT.

  SELECT SINGLE butxt
    FROM t001
    INTO ztwms14_lifnr-butxt
    WHERE bukrs = ztwms14_lifnr-bukrs.

  SELECT SINGLE btext
    FROM t156t
    INTO ztwms14_lifnr-btext
    WHERE bwart = ztwms14_lifnr-bwart
    AND spras = sy-langu
    AND sobkz = ''
    AND kzbew = 'B'
    AND kzzug = ''
    AND kzvbr = ''..

  ztwms14_lifnr-zdate = sy-datum.
  ztwms14_lifnr-ztime = sy-uzeit.
  ztwms14_lifnr-zuser = sy-uname.

ENDMODULE.                 " GET14_LIFNR_NAME  INPUT