ITPub博客

首页 > Linux操作系统 > Linux操作系统 > TABLES sscrfields 运用

TABLES sscrfields 运用

原创 Linux操作系统 作者:hzq2010 时间:2011-05-27 14:19:20 0 删除 编辑

  SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF; } .L1S32 { color: #3399FF; } .L1S33 { color: #4DA619; } .L1S52 { color: #0000FF; } TYPE-POOLS icon.
TABLES sscrfields.
SELECTION-SCREEN :FUNCTION KEY 1.
PARAMETERS:p(10TYPE c.
INITIALIZATION.
sscrfields-functxt_01 = '@15@何中区'.
at SELECTION-SCREEN.
  CASE  sscrfields-ucomm.
    WHEN  'FC01'.

       p = '来自广东'.
    WHEN OTHERS.
  ENDCASE.
  .
START-OF-SELECTION.
  WRITE :'888'.

 

 

 

 

 

 

 

 

 

 

 

 

 

  SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF; } .L1S31 { font-style. italic; color: #808080; } .L1S32 { color: #3399FF; } .L1S33 { color: #4DA619; } .L1S52 { color: #0000FF; } *&---------------------------------------------------------------------*
*&  包括              ZCTO_PP_MAIN
*&---------------------------------------------------------------------*




************************************************************************
*                 INITIALIZATION                                       *
************************************************************************
INITIALIZATION.

*
*
  sscrfields-functxt_01 = text-998."结果评估
  sscrfields-functxt_03 = text-999."详细日志
  sscrfields-functxt_02 = text-997."产能检查
  sscrfields-functxt_04 = text-996."日志维护
*  sscrfields-functxt_05 = text-995."可用性模拟检查
  sscrfields-search_btn = 'X'.
  inf-atpdate = sy-datum.
  inf-atptime = sy-uzeit.
  inf-atpuser = sy-uname.



************************************************************************
*             AT SELECTION SCREEN                                      *
************************************************************************
AT SELECTION-SCREEN.
*日志查询*
  IF sscrfields-ucomm = 'FC01'.
    SUBMIT zcto_pp_rp006 WITH s_date-low = sy-datum
                         VIA SELECTION-SCREEN AND RETURN.
  ELSEIF sscrfields-ucomm = 'FC03'.
    SUBMIT zcto_pp_rp007 WITH s_aldate-low = sy-datum
                     VIA SELECTION-SCREEN AND RETURN.
  ELSEIF sscrfields-ucomm = 'FC02'.
    SUBMIT zcto_pp_rp015 WITH p_werks = p_werks
                     VIA SELECTION-SCREEN AND RETURN.
  ELSEIF sscrfields-ucomm = 'FC04'.
    SUBMIT zcto_pp_rp008 WITH p_werks = p_werks
                     VIA SELECTION-SCREEN AND RETURN.
  ELSEIF sscrfields-ucomm = 'FC05'.
    SUBMIT zcto_pp_rp009 WITH p_werks = p_werks
                     VIA SELECTION-SCREEN AND RETURN.
  ENDIF.

AT SELECTION-SCREEN OUTPUT.

  PERFORM sub_set_block.


TOP-OF-PAGE.
*  FORMAT COLOR COL_NORMAL.
  WRITE:AT 40 'ATP CHECK 日志'.
*  ULINE.

*AT LINE-SELECTION.
  SET PF-STATUS 'LOGT'.

AT USER-COMMAND.
  PERFORM sub_user_command.
************************************************************************
*              START OF SELECTION                                      *
************************************************************************
START-OF-SELECTION.
  AUTHORITY-CHECK OBJECT 'C_AFKO_AWK'
              ID 'WERKS' FIELD p_werks.
  IF sy-subrc <> 0.
    MESSAGE i208(00WITH '该账户对输入的工厂没有操作权限!'.
    LEAVE TO TRANSACTION sy-tcode.
  ELSE.
    PERFORM main.
  ENDIF.



************************************************************************
*              END OF SELECTION                                        *
************************************************************************
END-OF-SELECTION.

  IF p_call IS INITIAL.
*    PERFORM fm_cust_display_log USING inf-atplog.
*    PERFORM sub_display_atpcheck_log.
    PERFORM sub_write_atp_check_log.
  ENDIF.

 

 

 

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/23495244/viewspace-696415/,如需转载,请注明出处,否则将追究法律责任。

上一篇: sap打印机配置
请登录后发表评论 登录
全部评论

注册时间:2010-03-11

  • 博文量
    196
  • 访问量
    168002