注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

XINBO'S SAP BLOG

你所浪费的今天,是昨天死去的人奢望的明天。你所厌恶的现在,是未来的你回不去的曾经

 
 
 

日志

 
 

F4IF_INT_TABLE_VALUE_REQUEST 返回多个值到屏幕  

2013-07-25 08:59:33|  分类: FUCTIONS |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
F4IF_INT_TABLE_VALUE_REQUEST 返回多个值到屏幕 - XINBOS SAP - XINBOS SAP BLOG
 
&---------------------------------------------------------------------*
*&      Module  GET_RELATION  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE GET_RELATION INPUT.
  DATA:GT_ZSDF060_2 LIKE ZSDF060_2 OCCURS WITH HEADER LINE,
       RETURN_TAB TYPE DDSHRETVAL OCCURS 0.
  SELECT FROM ZSDF060_2 INTO CORRESPONDING FIELDS OF TABLE GT_ZSDF060_2.
  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      RETFIELD         'PROVINCES'
      DYNPROFIELD      'GT_ZSDF060-PROVINCES'
      DYNPPROG         SY-REPID
      DYNPNR           SY-DYNNR
      VALUE_ORG        'S'
      CALLBACK_PROGRAM SY-REPID
      CALLBACK_FORM    'GET_RELATIION'
    TABLES
      VALUE_TAB        GT_ZSDF060_2
      RETURN_TAB       RETURN_TAB
    EXCEPTIONS
      PARAMETER_ERROR  1
      NO_VALUES_FOUND  2
      OTHERS           3.
ENDMODULE.                 " GET_RELATION  INPUT

*&---------------------------------------------------------------------*
*&      Form  GET_RELATIION
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->RECORD_TAB   text
*      -->SHLP         text
*      -->CALLCONTROL  text
*----------------------------------------------------------------------*
FORM GET_RELATIION TABLES RECORD_TAB STRUCTURE SEAHLPRES
                    CHANGING SHLP TYPE SHLP_DESCR_T
                             CALLCONTROL LIKE DDSHF4CTRL.
  DATAINTERFACE LIKE LINE OF SHLP-INTERFACE.

  READ TABLE SHLP-INTERFACE INTO INTERFACE INDEX 1.
  IF INTERFACE-VALFIELD 'GT_ZSDF060-PROVINCES'.
    INTERFACE-SHLPFIELD+4(1'3'.
    INTERFACE-VALFIELD 'GT_ZSDF060-CITIES'.
  ELSE.
    INTERFACE-SHLPFIELD+4(1'3'.
    MODIFY SHLP-INTERFACE FROM INTERFACE INDEX 1.
    INTERFACE-SHLPFIELD+4(1'2'.
    INTERFACE-VALFIELD 'GT_ZSDF060-PROVINCES'.
  ENDIF.
  APPEND INTERFACE TO SHLP-INTERFACE.
ENDFORM.                    "GET_RELATIION


SCREEN 
PROCESS ON VALUE-REQUEST.
  FIELD GT_ZSDF060-PROVINCES  MODULE GET_RELATION.
  FIELD GT_ZSDF060-CITIES MODULE GET_RELATION.
  评论这张
 
阅读(645)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017