ITPub博客

首页 > Linux操作系统 > Linux操作系统 > 输入框函数POPUP_GET_VALUES

输入框函数POPUP_GET_VALUES

原创 Linux操作系统 作者:hzq2010 时间:2011-06-11 16:34:21 0 删除 编辑

abap标准的有输入框函数十分好用,用来和用户进行交互,如果想要在输入框上写上文本信息,只需要将那个输入框设置为不可输入,再把信息写上去。如图:

 

此函数使用十分方便。

DATA: l_returncode TYPE c.
DATA: lt_sval TYPE STANDARD TABLE OF sval INITIAL SIZE 0,
      ls_sval LIKE LINE OF lt_sval.

break abap04.
break abap01.

"库存地
MOVE 'LIPS' TO ls_sval-tabname.
MOVE 'LGORT' TO ls_sval-fieldname.
APPEND ls_sval TO lt_sval.

data: ls_lgort type LGORT_D.
"收货库存地描述
select single LGORT
from ekpo
into ls_lgort
where ebeln = cs_lips-VGBEL.

data: ls_lgobe type LGOBE.
select single lgobe
from t001l
into ls_lgobe
where LGORT = ls_lgort.

MOVE 'T001L' TO ls_sval-tabname.
MOVE 'LGOBE' TO ls_sval-fieldname.
LS_SVAL-VALUE = LS_LGOBE.
ls_sval-FIELD_ATTR = '02'.
APPEND ls_sval TO lt_sval.

"物料号
MOVE 'LIPS' TO ls_sval-tabname.
MOVE 'MATNR' TO ls_sval-fieldname.
LS_SVAL-VALUE = cs_lips-MATNR.
ls_sval-FIELD_ATTR = '02'.
APPEND ls_sval TO lt_sval.

  "物料描述
MOVE 'LIPS' TO ls_sval-tabname.
MOVE 'ARKTX' TO ls_sval-fieldname.
LS_SVAL-VALUE = cs_lips-ARKTX.
ls_sval-FIELD_ATTR = '02'.
APPEND ls_sval TO lt_sval.

  "行项目
MOVE 'LIPS' TO ls_sval-tabname.
MOVE 'POSNR' TO ls_sval-fieldname.
LS_SVAL-VALUE = cs_lips-POSNR.
ls_sval-FIELD_ATTR = '02'.
APPEND ls_sval TO lt_sval.

"采购订单号
MOVE 'EKKO' TO ls_sval-tabname.
MOVE 'EBELN' TO ls_sval-fieldname.
LS_SVAL-VALUE = cs_lips-VGBEL.
ls_sval-FIELD_ATTR = '02'.
APPEND ls_sval TO lt_sval.

CALL FUNCTION 'POPUP_GET_VALUES'
  EXPORTING
    popup_title     = '输入库存地'
  IMPORTING
    returncode      = l_returncode
  TABLES
    fields          = lt_sval
  EXCEPTIONS
    error_in_fields = 1
    OTHERS          = 2.
IF sy-subrc <> 0.
  MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
          WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
  CHECK l_returncode IS INITIAL.
"赋值库存地
READ TABLE lt_sval INTO ls_sval INDEX 1.
MOVE ls_sval-value TO cs_lips-lgort.

lt_sval是一个内表,设置输入框的属性和文本信息,field_attr的具体值可以参考ls_sval结构字段的value range。

 

本文来自CSDN博客,转载请标明出处:http://blog.csdn.net/donkey2004112103/archive/2009/06/22/4290251.aspx

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/23495244/viewspace-697679/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论

注册时间:2010-03-11

  • 博文量
    196
  • 访问量
    172124