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

黑山老妖的博客

 
 
 

日志

 
 
关于我

主要用来存放收集的资料,几乎都是转贴的东西!感谢原作者!

网易考拉推荐

Dynpro program  

2008-06-06 14:42:16|  分类: ABAP |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

1,      LOOP AT SCREEN .
        IF screen-name = 'YIGSO_PUTIL_MAIN-ZZEVSYS' .
          screen-input = 0 .
        ELSEIF screen-name = 'T001W-LAND1' .
          screen-input = 0 .
        ELSEIF screen-name = 'YIGSO_PUTIL_MAIN-ZDAT' .
          if it_yigso_putil_main-ZDAT < today .
             screen-input = 0 .
          ELSE.
             screen-input = 1 .
          ENDIF.
        ELSEIF screen-name = 'IT_RESULT-ZZDAT' .
          screen-INVISIBLE = '1'.
        ELSEIF screen-name = 'YIGSO_PUTIL_MAIN-ZZDAT' .
          IF today > it_yigso_putil_main-zzdat.
            screen-input = 0 .
          else.
             screen-input = 1 .
          ENDIF.
        ELSEIF screen-name = 'MARA-MATNR' .
          screen-input = 0 .
        ELSEIF screen-name = 'IT_YIGSO_PUTIL_MAT-QUAN' .
          screen-input = 0 .
        ELSEIF screen-name = 'YIGSO_PUTIL_MSG-ZLAN' .
          screen-input = 0 .
        ELSEIF screen-name = 'YIGSO_PUTIL_MSG-ALER' .
          screen-input = 0 .
        ENDIF .
        MODIFY SCREEN.
      ENDLOOP.
      SET TITLEBAR 'M2'.

2,
SELECTION-SCREEN BEGIN OF SCREEN 200.
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN BEGIN OF BLOCK bl22 WITH FRAME.
SELECT-OPTIONS s_evtsys FOR yigso_putil_main-zzevsys.
SELECT-OPTIONS s_coun FOR t005-land1.
SELECT-OPTIONS s_zlan FOR yigso_putil_msg-zlan.
SELECT-OPTIONS s_mat  FOR yigso_putil_mat-mat NO INTERVALS.
SELECTION-SCREEN END OF BLOCK bl22.
SELECTION-SCREEN SKIP 1.

SELECTION-SCREEN BEGIN OF BLOCK bl1 WITH FRAME TITLE text-001.
PARAMETERS: ra1 RADIOBUTTON GROUP rd1 DEFAULT 'X',
            ra2 RADIOBUTTON GROUP rd1,
            ra3 RADIOBUTTON GROUP rd1.
SELECTION-SCREEN END OF BLOCK bl1.

SELECTION-SCREEN BEGIN OF BLOCK bl3 WITH FRAME TITLE text-002.
PARAMETERS: rb1 RADIOBUTTON GROUP rd2 DEFAULT 'X',
            rb2 RADIOBUTTON GROUP rd2.
SELECTION-SCREEN END OF BLOCK bl3.
*SELECTION-SCREEN END OF BLOCK BL2.
SELECTION-SCREEN END OF SCREEN 200.
3, ALV
DATA: BEGIN OF t_result,
        alterid TYPE zalterid,
        zzevsys TYPE zzevesys,
        coun    TYPE land1,
        zlan    TYPE spras,
        mat     TYPE zmat1,
        quan    TYPE zquant,
        zdat    TYPE zdat,
        zzdat   TYPE zdat1,
        aler    TYPE zalert,
      END OF t_result.

DATA: BEGIN OF it_partno OCCURS 0,
        mat TYPE zmat1,
      END OF it_partno.
DATA: it_mat LIKE TABLE OF it_partno.
DATA: wa_partno LIKE LINE OF it_partno.
DATA: it_result LIKE t_result OCCURS 0 WITH HEADER LINE.
DATA: tt_result LIKE TABLE OF it_result.
DATA: tm_result LIKE TABLE OF it_result WITH HEADER LINE.
DATA: tm_alterid TYPE zalterid.

DATA: gb_fieldcat TYPE lvc_t_fcat.
DATA: gb_layout TYPE lvc_s_layo.

DATA: wa_container TYPE scrfname VALUE 'ALVDATA',
      alv_grid   TYPE REF TO cl_gui_alv_grid,
      wa_custom_container TYPE REF TO cl_gui_custom_container.

CLASS lcl_event_receiver DEFINITION DEFERRED.
DATA event_receiver TYPE REF TO lcl_event_receiver.

4,      l_result_msg = l_lines.
      CONCATENATE 'Material :' ' ' it_yigso_putil_mat-mat ' dose not exist!' INTO l_result_msg.
      MESSAGE l_result_msg TYPE 'I'.
      CALL FUNCTION 'NUMERIC_CHECK'
       EXPORTING
          string_in        = it_yigso_putil_mat-quan
       IMPORTING
*                 STRING_OUT       =
         htype            = l_data_type        .
      IF l_data_type NE 'NUMC'.
        l_current_command = 'ZMYCONTROL1_INSR'.
        MESSAGE 'Quantity format error!' TYPE 'I'.
        EXIT.
      ENDIF.
6,

CLASS lcl_event_receiver IMPLEMENTATION.
  METHOD handle_double_click.
    DATA: li_result LIKE LINE OF it_result.
    READ TABLE tt_result INDEX e_row-index INTO li_result.
    MESSAGE i100(100) WITH li_result-alterid.
  ENDMETHOD.                    "HANDLE_DOUBLE_CLICK
ENDCLASS.                    "LCL_EVENT_RECEIVER IMPLEMENTATION

7,

CLASS lcl_event_receiver DEFINITION.
  PUBLIC SECTION.
    METHODS:
*  method for handing the doubule click event
     handle_double_click
        FOR EVENT double_click OF cl_gui_alv_grid
          IMPORTING e_row e_column.
ENDCLASS.                    "LCL_EVENT_RECEIVER DEFINITION

CLASS lcl_event_receiver IMPLEMENTATION.
  METHOD handle_double_click.
    DATA: li_result LIKE LINE OF it_result.
    READ TABLE tt_result INDEX e_row-index INTO li_result.
    MESSAGE i100(100) WITH li_result-alterid.
  ENDMETHOD.                    "HANDLE_DOUBLE_CLICK
ENDCLASS.                    "LCL_EVENT_RECEIVER IMPLEMENTATION

 

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

历史上的今天

评论

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

页脚

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