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(10) TYPE 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(00) WITH '该账户对输入的工厂没有操作权限！'.
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博客 ” ，链接：https://blog.itpub.net/23495244/viewspace-696415/ ，如需转载，请注明出处，否则将追究法律责任。
