abap 实现ListBox 的三种方法

在选择屏幕输出时调用FUNCTION MODULE ‘VRM_SET_VALUES’。

这种方法的好处就是,可以在程序中自定义LISTBOX中的内容

源码如下:

report z_hxg_006 .

  • 需要调用的类型池

type-pools: vrm.

data: name type vrm_id,

 list type vrm_values,

 value like line of list.

data: ps_t(10) type c.

  • 选择屏幕定义

parameters: ps_parm(10) as listbox visible length 10,

      ps(10) as listbox visible length 10.
  • 选择屏幕输出控制

at selection-screen output.

refresh list.

clear list.

name = ‘PS’.

value-ke®y = ‘1’.

value-text = ‘Line 1’.

append value to list.

value-key = ‘2’.

value-text = ‘Line 2’.

append value to list.

call function ‘VRM_SET_VALUES’

exporting id = name

         values = list.
  • start-of-selection事件触发

start-of-selection.

case ps.

when ‘1’.

ps_t = 'Line 1'.

when ‘2’.

ps_t = 'Line 2'.

endcase.

write: / ‘Parameter:’, ps_t.

2. 直接在数据字典中定义域(将该域的value range填充相应的值),然后通过数据表中的字段和这个域关联即可。

report z_hxg_042 .

tables: zsale_plan. “自定义的表

  • 下面的zsale_plan-zmonth是和SAP系统自带的域month相关联的,即这个字段的字段类* 型为month

parameters: zmonth like zsale_plan-zmonth as listbox

         visible length 10.

3. 通过自定义屏幕来实现LISTBOX

  1. 首先我们自己创建一个屏幕

Call screen 100.

双击上面这段代码,进入到屏幕设计GUI之后,在界面上增加文本输入框,给它取名为SJUDGE(这个名字可以随便你自己取,只要在程序编写的时候保持一致就可以了),同时在属性框的“下拉“中选中LISTBOX即可,

  1. 做完上面一步后,我们需要在该屏幕的逻辑流中这样设计

process before output.

  • MODULE STATUS_0100.

process after input.

  • MODULE USER_COMMAND_0100.

  • 这里就是给屏幕字段SJUDGE创建一个功能模块module create_dropdown_list

process on value-request.

  field sjudge module create_dropdown_list.  
  1.  双击moule create_dropdown_list,我们创建这个module在程序中的代码,这里需要调用一个系统的功能模块F4IF_INT_TABLE_VALUE_REQUEST
    

主程序代码如下:

report z_hxg_040.

data: ok_code type sy-ucomm.

data: begin of itab occurs 0,

      carrname like scarr-carrname,

     end of itab.

call screen 100.

  • module create_dropdown_list_input

module create_dropdown_list input.

 refresh itab.

 clear itab.

 itab-carrname = '合格'.

 append itab.

 itab-carrname = '不合格'.

 append itab.

 call function 'F4IF_INT_TABLE_VALUE_REQUEST'

   exporting

      retfield = 'CARRNAME'

      value_org = 'S'

   tables

      value_tab = itab

   exceptions

      parameter_error = 1

      no_values_found = 2

      others = 3.

 if sy-subrc <> 0.

 

 endif.

endmodule.

直接运行这段代码就可以看到结果。
————————————————
版权声明:本文为CSDN博主「yf_sap」的原创文章,遵循CC 4.0 BY-SA版权协议,转载请附上原文出处链接及本声明。
原文链接:https://blog.csdn.net/yf_sap/article/details/2840051

  • 1
    点赞
  • 2
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
ABAP是一种针对SAP系统的编程语言,可以用于开发SAP系统中的各种业务应用。在ABAP实现遗传算法的具体步骤如下: 1. 定义适应度函数:适应度函数用于评估个体的适应度,通常需要根据具体问题进行定义。 2. 初始化种群:根据问题定义合适的基因编码方式,初始化一个种群,通常包括多个个体。 3. 选择操作:根据适应度函数,选择合适的个体进行交叉和变异操作,生成新的个体。 4. 评估新个体适应度:使用适应度函数对新个体进行评估,以便决定是否加入下一代种群。 5. 重复步骤3和4,直到达到预定的终止条件(如达到最大迭代次数)。 下面是一个简单的ABAP实现遗传算法的例子: ``` REPORT ZGA_EXAMPLE. DATA: individuals TYPE STANDARD TABLE OF i WITH EMPTY KEY, fitness_values TYPE STANDARD TABLE OF f WITH EMPTY KEY, new_individuals TYPE STANDARD TABLE OF i WITH EMPTY KEY, crossover_rate TYPE f VALUE 0.5, mutation_rate TYPE f VALUE 0.1, max_generations TYPE i VALUE 100. *定义适应度函数 FORM fitness_function USING i TYPE i CHANGING f_fitness TYPE f. f_fitness = i * i. "以i的平方作为适应度 ENDFORM. *初始化种群 DO 10 TIMES. APPEND sy-index TO individuals. ENDDO. *开始迭代 DO max_generations TIMES. CLEAR new_individuals. CLEAR fitness_values. *选择操作 LOOP AT individuals INTO DATA(individual). IF rand( ) <= crossover_rate. DATA index TYPE i. index = rand( size( individuals ) ) + 1. DATA partner TYPE i. READ TABLE individuals INDEX index INTO partner. new_individuals = VALUE #( ( individual + partner ) / 2 ). ELSE. new_individuals = VALUE #( ( individual ) ). ENDIF. *变异操作 IF rand( ) <= mutation_rate. new_individuals = VALUE #( ( new_individuals + rand( ) * 10 - 5 ) ). ENDIF. *评估新个体适应度 LOOP AT new_individuals INTO DATA(new_individual). DATA fitness_value TYPE f. CALL FUNCTION 'FITNESS_FUNCTION' EXPORTING i = new_individual IMPORTING f_fitness = fitness_value. APPEND fitness_value TO fitness_values. ENDLOOP. ENDLOOP. *选择下一代种群 SORT fitness_values DESCENDING. CLEAR individuals. DO 10 TIMES. DATA index TYPE i. index = rand( size( new_individuals ) ) + 1. DATA individual TYPE i. READ TABLE new_individuals INDEX index INTO individual. APPEND individual TO individuals. ENDDO. ENDDO. ```

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值