Chinaunix首页 | 论坛 | 博客
  • 博客访问: 155636
  • 博文数量: 72
  • 博客积分: 2010
  • 博客等级: 大尉
  • 技术积分: 745
  • 用 户 组: 普通用户
  • 注册时间: 2009-06-15 14:48
文章分类

全部博文(72)

文章存档

2010年(25)

2009年(47)

我的朋友

分类:

2009-11-12 17:33:47

   DATA lo_nd_t_chanl_a   TYPE REF TO if_wd_context_node.
  DATA lo_el_t_chanl_a   TYPE REF TO if_wd_context_element.
  DATA ls_t_chanl_a      TYPE wd_this->Element_t_chanl_a.
  DATA lt_t_chanl_a      TYPE TABLE OF wd_this->Element_t_chanl_a.

* navigate from  to  via lead selection
  lo_nd_t_chanl_a = wd_context->get_child_node( name = wd_this-    >wdctx_t_chanl_a ).

*********************************************************************************
* 初始化下拉
  data:
 lr_nodeinfo_flightinfo type ref to if_wd_context_node_info,
 lt_value_set type wdy_key_value_table,
 ls_value_set type wdy_key_value.

  lr_nodeinfo_flightinfo =  lo_nd_t_chanl_a->get_node_info( ).

  select Z_TYPE_NUMBER  Z_TYPE_DESC into ls_value_set
    from ZCDM_T_TYPE
   where Z_TYPE_ID = 'T01'
    and  Z_TYPE_NUMBER is NOT NULL.
*  ls_value_set-key = 'B'.
*
*  ls_value_set-value = '目标收入'.

    append ls_value_set to lt_value_set.
    clear ls_value_set .
  ENDSELECT.

*  ls_value_set-key = 'C'.
*
*  ls_value_set-value = '首重播比率'.
*
*  append ls_value_set to lt_value_set.

  lr_nodeinfo_flightinfo->set_attribute_value_set( name = 'Z_TYPE_NUMBER' value_set = lt_value_set ).
阅读(1943) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~