Chinaunix首页 | 论坛 | 博客
  • 博客访问: 278375
  • 博文数量: 62
  • 博客积分: 2966
  • 博客等级: 少校
  • 技术积分: 615
  • 用 户 组: 普通用户
  • 注册时间: 2007-06-07 23:16
个人简介

Be a simple man

文章分类

全部博文(62)

文章存档

2012年(6)

2011年(15)

2010年(6)

2009年(3)

2008年(5)

2007年(27)

我的朋友

分类:

2007-08-17 18:32:40

REPORT z_jason_test_hide .
DATA: BEGIN OF itab OCCURS 0,
        infnr LIKE eine-infnr ,
        lifnr LIKE eina-lifnr ,
        matnr LIKE eina-matnr ,
        ekorg LIKE eine-ekorg ,
        werks LIKE eine-werks ,
        esokz LIKE eine-esokz ,
      END OF itab.
DATA: wa LIKE LINE OF itab.
itab-infnr = '5300001166'.
APPEND itab.
itab-infnr = '5300001167'.
APPEND itab.
LOOP AT itab.
  WRITE:/ itab.
  HIDE itab-infnr.
ENDLOOP.
AT LINE-SELECTION.
  SET PARAMETER ID 'INF' FIELD itab-infnr.
  CALL TRANSACTION 'ME13' AND SKIP FIRST SCREEN .
  SET PARAMETER ID 'LIF' FIELD ''.
  SET PARAMETER ID 'MAT' FIELD ''.
  SET PARAMETER ID 'EKO' FIELD ''.
  SET PARAMETER ID 'WRK' FIELD ''.
阅读(1416) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~