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

XINBO'S SAP BLOG

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

 
 
 

日志

 
 

快速修改-山寨ME23N  

2012-06-13 16:04:23|  分类: DAILOG |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

快速修改-山寨ME23N - XINBOS SAP - XINBOS SAP BLOG
 
相关代码:

REPORT  ZTEST0.
TYPE-POOLS:SLIS,CXTAB.
INCLUDE TABLECONTROL_FORMS.

DATA:BEGIN 
OF GT_TAB OCCURS 0,
     MATNR 
LIKE MARA-MATNR,
     WERKS 
LIKE MARC-WERKS,
     FLAG1(1),
     FLAG2(1),
     FLAG3(1),
     FLAG4(1),
     FLAG5(1),
     FLAG6(1),
     
END OF GT_TAB.

DATA:TEMP_CHANGE(1),
     OK_FLAG(1),
     GT_TC 
TYPE SCXTAB_COLUMN.

CONTROLS: TC 
TYPE TABLEVIEW USING SCREEN 1000.

FIELD-SYMBOLS:<FS>.

START-OF-SELECTION.
  
SELECT MATNR WERKS INTO TABLE GT_TAB UP TO 100 ROWS FROM MARC .
  
CALL SCREEN 1000.
*----------------------------------------------------------------------*
*  MODULE TC_CHANGE_TC_ATTR OUTPUT
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
MODULE TC_CHANGE_TC_ATTR OUTPUT.
  
DESCRIBE TABLE GT_TAB LINES TC-LINES.
ENDMODULE.                    
"TC_CHANGE_TC_ATTR OUTPUT

*----------------------------------------------------------------------*
*  MODULE TC_MODIFY INPUT
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
MODULE TC_MODIFY INPUT.
  
MODIFY GT_TAB
    
INDEX TC-CURRENT_LINE.
ENDMODULE.                    
"TC_MODIFY INPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_1000  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_1000 INPUT.
  
CASE SY-UCOMM.
    
WHEN 'CHANGE'.
      
CALL SCREEN 2000 STARTING AT 10 2.
      
CHECK TEMP_CHANGE = 'X'.
      
LOOP AT TC-COLS INTO GT_TC WHERE SELECTED = 'X' AND SCREEN-INPUT = '1'.
        
LOOP AT GT_TAB.
          
ASSIGN (GT_TC-SCREEN-NAME) TO <FS>.
          <FS> = OK_FLAG.
          
MODIFY GT_TAB.
        ENDLOOP.
      ENDLOOP.
    
WHEN 'BACK'.
      
SET SCREEN 0.
      
LEAVE TO SCREEN 0.
    
WHEN 'EXIT'.
      
SET SCREEN 0.
      
LEAVE PROGRAM.
  ENDCASE.
ENDMODULE.                 
" USER_COMMAND_1000  INPUT
*&---------------------------------------------------------------------*
*&      Module  STATUS_1000  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE STATUS_1000 OUTPUT.
  
SET PF-STATUS '2000'.
ENDMODULE.                 
" STATUS_1000  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_2000  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_2000 INPUT.
  
IF SY-UCOMM = 'OK'.
    TEMP_CHANGE = 
'X'.
  ELSE.
    
CLEAR TEMP_CHANGE.
  ENDIF.

  
SET SCREEN 0.
  
LEAVE TO SCREEN 0.
ENDMODULE.                 
" USER_COMMAND_2000  INPUT

  评论这张
 
阅读(668)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

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

页脚

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