设备检修报告单

第二篇：检修开工报告单

在include： ZXQQMZZZ 下包自建的include（屏幕的操作module） iw21增强屏幕在函数组(XQQM)创建屏幕的include全局数据信息在 include： ZXQQMTOP1alv显示抬头描述ZSPM_TZD_1070订单开票对应关系表 ZTPM_ORWCMVIQMEL-QMTXTIW31 （XWOC）smod: 增强点：QQMA0014长文本的依据：订单号+A B C DCASE sy-ucomm.WHEN 'ZXQAN'."修前参数lc_flag = 'A'.PERFORM frm_longtext USING lc_flag CHANGING lc_text.CLEAR:sy-ucomm,lc_flag.WHEN 'ZJXWMAN'."检修中的文明施工措施lc_flag = 'B'.PERFORM frm_longtext USING lc_flag CHANGING lc_text.CLEAR:sy-ucomm,lc_flag.WHEN 'ZJXWTAN'."检修中可能出现的问题lc_flag = 'C'.PERFORM frm_longtext USING lc_flag CHANGING lc_text.CLEAR:sy-ucomm,lc_flag.WHEN 'ZANAN'."安全交底内容lc_flag = 'D'.PERFORM frm_longtext USING lc_flag CHANGING lc_text.CLEAR:sy-ucomm,lc_flag.* WHEN 'ZJDWTAN'."交底中发现的问题* lc_flag = 'E'.* PERFORM frm_longtext USING lc_flag CHANGING lc_text.* CLEAR:sy-ucomm,lc_flag.WHEN 'ZJXYXAN'."检修前运行中存在的问题或主要缺陷lc_flag = 'F'.PERFORM frm_longtext USING lc_flag CHANGING lc_text.CLEAR:sy-ucomm,lc_flag.WHEN 'ZSAVE'.PERFORM frm_save_data.CLEAR:sy-ucomm.ENDCASE.id = gv_id_1language = sy-languname = lv_tdnameobject = 'QMEL'保存时，编码尚未变化，所以保存成了%000000001这个需要处理(SAPLIQS0)OK-CODE(SAPLIQS0)SY-UCOMMe7jt7mmd*******姚成凯程序重写将所有的数据都取出来，包括长文本的内表，并将其定义为全局变量，最后统一进行保存操作操作，在子屏幕中只修改全局变量的内标中的值，更改数据库统一在save事件发生以后进行显示、修改通过group进行控制iw21增强：1、前置产生数据变更，已便于iw21中修改自定义表，以便于修改数据时候，可以在原来的增强数据检查中，使用增强字段，以减少增强风险2、使用全局变量定义，在子屏幕中修改后修改全局变量，最后统一统一save数据子屏幕上的数据在查询修改时也应同基本数据同时进行抽取根据工单填写通知单字段：TPLNR 功能位置 ILOA-TPLNREQUNR 设备 设备编码：AFIH-EQUNR，ARPBPL 工作重心 工作中心：AUFK-VAPLZ，ARPBPLwerk 工作中心工厂 对应的工厂：AUFK-WERKSingrp 计划人员组 计划员组：AFIH-INGPRiwerk 计划人工厂 对应的工厂：AFIH-IWERKPERFORM user_ok_tc1(SAPLXQQM) USING 'TC_DD_YS' 'GT_DD_YS' 'S

EL1'CHANGING rtys_ok_code1.*&---------------------------------------------------------------------**& 包括 ZXMCIU01*&---------------------------------------------------------------------*******************************************************IW32关联创建,用于向IW32抛出的内表结构****************************************************DATA:BEGIN OF gs_tlist_007,sel TYPE char01,zxh(4) TYPE i,zzjgnum TYPE zjxzlnum,zlx TYPE char02,qmart TYPE qmart,qmtxt TYPE qmtxt,END OF gs_tlist_007.DATA:gt_tlist_007 LIKE TABLE OF gs_tlist_007.DATA:gs_text TYPE tline,gt_text TYPE TABLE OF tline.DATA:BEGIN OF gs_edit,tdline(132),END OF gs_edit.DATA gs_edit_1 LIKE gs_edit.DATA:gt_edit LIKE TABLE OF gs_edit.DATA:ls_header LIKE thead.DATA l_tdname1 LIKE thead-tdname.DATA: gs_tzd TYPE zspm_tlist_1070.ls_header-tdobject = 'TEXT'.ls_header-tdid = 'ST'. "'st'*ls_header-tdspras = 'Z'. " sy-langu.*ls_header-tdname = g_tdname. "'通知单+字母'CLEAR gt_tlist_007.*****************************************************R0类型数据保存及数据抛出****************************************************IF n_viqmel-qmart = 'R0'.IMPORT gs_tzd FROM MEMORY ID 'GS_TZD'.FREE MEMORY ID 'GS_TZD'.CHECK gs_tzd IS NOT INITIAL.gs_tzd-qmnum = n_viqmel-qmnum.MODIFY ztpm_tlist_1070 FROM gs_tzd.*************************向IW32抛出工单数据************************IF SY-TCODE = 'IW21' OR SY-TCODE = 'IW31'.CALL FUNCTION 'ZPMF_IW32_SAVE'EXPORTINGi_qmart = 'R0'i_aufnr = gs_tzd-AUFNR* I_ZZJGNUM =i_zxl = '1'I_QMTXT = n_viqmel-qmtxtI_QMNUM = n_viqmel-qmnum.ELSE.CALL FUNCTION 'ZPMF_IW21_UPDATE'EXPORTINGi_qmnum = n_viqmel-qmnumi_qmart = 'R0'i_aufnr = gs_tzd-AUFNR.ENDIF.* gs_tlist_007-zzjgnum = n_viqmel-qmnum.* gs_tlist_007-qmart = n_viqmel-qmart.* gs_tlist_007-qmtxt = n_viqmel-qmtxt.* APPEND gs_tlist_007 TO gt_tlist_007.* EXPORT itab1 = gt_tlist_007 TO MEMORY ID 'ZDCJTZD'.ls_header-tdspras = 'Z'. " sy-langu.* ls_header-tdname = g_tdname. "'通知单+字母'CLEAR gt_text.CONCATENATE n_viqmel-qmnum 'A' INTO ls_header-tdname.CONDENSE ls_header-tdname.IMPORT itab1 = gt_text FROM MEMORY ID 'A'.FREE MEMORY ID 'A'.CALL FUNCTION 'SAVE_TEXT'EXPORTINGheader = ls_header* savemode_direct = gv_savemodeTABLESlines = gt_textEXCEPTIONSid = 1language = 2name = 3object = 4OTHERS = 5.

IF sy-subrc <> 0.MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgnoWITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.ENDIF.CLEAR gt_text.CONCATENATE n_viqmel-qmnum 'B' INTO ls_header-tdname.CONDENSE ls_header-tdname.IMPORT itab1 = gt_text FROM MEMORY ID 'B'.FREE MEMORY ID 'B'.CALL FUNCTION 'SAVE_TEXT'EXPORTINGheader = ls_header* savemode_direct = gv_savemodeTABLESlines = gt_textEXCEPTIONSid = 1language = 2name = 3object = 4OTHERS = 5.IF sy-subrc <> 0.MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgnoWITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.ENDIF.CLEAR gt_text.CONCATENATE n_viqmel-qmnum 'C' INTO ls_header-tdname.CONDENSE ls_header-tdname.IMPORT itab1 = gt_text FROM MEMORY ID 'C'.FREE MEMORY ID 'C'.CALL FUNCTION 'SAVE_TEXT'EXPORTINGheader = ls_header* savemode_direct = gv_savemodeTABLESlines = gt_textEXCEPTIONSid = 1language = 2name = 3object = 4OTHERS = 5.IF sy-subrc <> 0.MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgnoWITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.ENDIF.CLEAR gt_text.CONCATENATE n_viqmel-qmnum 'D' INTO ls_header-tdname.CONDENSE ls_header-tdname.IMPORT itab1 = gt_text FROM MEMORY ID 'D'.FREE MEMORY ID 'D'.CALL FUNCTION 'SAVE_TEXT'EXPORTINGheader = ls_header* savemode_direct = gv_savemodeTABLESlines = gt_textEXCEPTIONSid = 1language = 2name = 3object = 4OTHERS = 5.IF sy-subrc <> 0.MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgnoWITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.ENDIF.CLEAR gt_text.CONCATENATE n_viqmel-qmnum 'F' INTO ls_header-tdname.CONDENSE ls_header-tdname.IMPORT itab1 = gt_text FROM MEMORY ID 'F'.FREE MEMORY ID 'F'.CALL FUNCTION 'SAVE_TEXT'EXPORTINGheader = ls_header* savemode_direct = gv_savemodeTABLESlines = gt_textEXCEPTIONSid = 1language = 2name = 3object = 4OTHERS = 5.IF sy-subrc <> 0.MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgnoWITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.ENDIF.ENDIF.*****************************************************R3类型数据保存及数据抛出****************************************************IF n_viqmel-qmart = 'R3'.ls_header-tdspras = sy-langu.DATA gs_ztpm_r3_head TYPE ztpm_r3_head.IMPORT line = gs_ztpm_r3_head FROM MEMORY ID 'ZTPM_R3_HEAD'.gs_ztpm_r3_head-qmnum = n_viqmel-qmnum.MODIFY ztpm_r3

_head FROM gs_ztpm_r3_head.FREE MEMORY ID 'ZTPM_R3_HEAD'.CLEAR gt_text.CONCATENATE n_viqmel-qmnum 'JXYLXNRMS' INTO ls_header-tdname.CONDENSE ls_header-tdname.IMPORT itab1 = gt_text FROM MEMORY ID 'JXYLXNRMS'.FREE MEMORY ID 'JXYLXNRMS'.CALL FUNCTION 'SAVE_TEXT'EXPORTINGheader = ls_header* savemode_direct = gv_savemodeTABLESlines = gt_textEXCEPTIONSid = 1language = 2name = 3object = 4OTHERS = 5.IF sy-subrc <> 0.* MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno* WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.ENDIF.ENDIF.*****************************************************RC类型数据保存及数据抛出****************************************************IF n_viqmel-qmart = 'RC'.DATA: ws_ztpm_rc_head TYPE ztpm_rc_head.DATA: wt_ztpm_rc_item TYPE TABLE OF ztpm_rc_item WITH HEADER LINE.IMPORT line = ws_ztpm_rc_head FROM MEMORY ID 'ZTPM_RC_HEAD'.CHECK ws_ztpm_rc_head IS NOT INITIAL.ws_ztpm_rc_head-qmnum = n_viqmel-qmnum.MODIFY ztpm_rc_head FROM ws_ztpm_rc_head .FREE MEMORY ID 'ZTPM_RC_HEAD'.IMPORT itab1 = wt_ztpm_rc_item[] FROM MEMORY ID 'ZTPM_RC_ITEM'.LOOP AT wt_ztpm_rc_item.wt_ztpm_rc_item-qmnum = n_viqmel-qmnum.MODIFY wt_ztpm_rc_item.ENDLOOP.DELETE FROM ztpm_rc_item WHERE qmnum = n_viqmel-qmnum.MODIFY ztpm_rc_item FROM TABLE wt_ztpm_rc_item.FREE MEMORY ID 'ZTPM_RC_ITEM'.ENDIF.*****************************************************R5类型数据保存及数据抛出****************************************************IF n_viqmel-qmart = 'R5'.ls_header-tdspras = sy-langu.DATA: gs_rtysb_bgd TYPE ztpm_rtys_head.DATA: wt_ztpm_rtys_ddys TYPE TABLE OF ztpm_rtys_ddys,wa_ztpm_rtys_ddys TYPE ztpm_rtys_ddys.DATA: wt_ztpm_rtys_ysd TYPE TABLE OF ztpm_rtys_ysd,wa_ztpm_rtys_ysd TYPE ztpm_rtys_ysd.DATA: wt_ztpm_rtys_sysq TYPE TABLE OF ztpm_rtys_sysq,wa_ztpm_rtys_sysq TYPE ztpm_rtys_sysq.DATA: wt_ztpm_rtys_ys_cs TYPE TABLE OF ztpm_rtys_ys_cs,wa_ztpm_rtys_ys_cs TYPE ztpm_rtys_ys_cs.DATA: wt_ztpm_rtys_ys_qx TYPE TABLE OF ztpm_rtys_ys_qx,wa_ztpm_rtys_ys_qx TYPE ztpm_rtys_ys_qx.IMPORT gs_rtysb_bgd FROM MEMORY ID 'ZTPM_RTYS_HEAD'.CHECK gs_rtysb_bgd IS NOT INITIAL. "为空，没有点击标签页不进行任何操作gs_rtysb_bgd-qmnum = n_viqmel-qmnum.MODIFY ztpm_rtys_head FROM gs_rtysb_bgd.FREE MEMORY ID 'ZTPM_RTYS_HEAD'.IMPORT itab1 = wt_ztpm_rtys_ddys FROM MEMORY ID 'ZTPM_RTYS_DDYS'.LOOP AT wt_ztpm_rtys_ddys INTO wa_ztpm_rtys_ddys.wa_ztpm_rtys_ddys-qmnum = n_viqmel-qmnum.MODIFY wt_ztpm_rtys_ddys FROM wa_ztpm_rtys_ddys.ENDLOOP.DELETE FROM ztpm_rtys_ddys WHERE qmnum = n_viqmel-qmnum.MODIFY ztpm_rtys_ddys FROM TABLE

wt_ztpm_rtys_ddys.FREE MEMORY ID 'ZTPM_RTYS_DDYS'.IMPORT itab1 = wt_ztpm_rtys_ysd FROM MEMORY ID 'ZTPM_RTYS_YSD'.LOOP AT wt_ztpm_rtys_ysd INTO wa_ztpm_rtys_ysd.wa_ztpm_rtys_ysd-qmnum = n_viqmel-qmnum.MODIFY wt_ztpm_rtys_ysd FROM wa_ztpm_rtys_ysd.ENDLOOP.DELETE FROM ztpm_rtys_ysd WHERE qmnum = n_viqmel-qmnum.MODIFY ztpm_rtys_ysd FROM TABLE wt_ztpm_rtys_ysd.FREE MEMORY ID 'ZTPM_RTYS_YSD'.IMPORT itab1 = wt_ztpm_rtys_sysq FROM MEMORY ID 'ZTPM_RTYS_SYSQ'.LOOP AT wt_ztpm_rtys_sysq INTO wa_ztpm_rtys_sysq.wa_ztpm_rtys_sysq-qmnum = n_viqmel-qmnum.MODIFY wt_ztpm_rtys_sysq FROM wa_ztpm_rtys_sysq.ENDLOOP.DELETE FROM ztpm_rtys_sysq WHERE qmnum = n_viqmel-qmnum.MODIFY ztpm_rtys_sysq FROM TABLE wt_ztpm_rtys_sysq.FREE MEMORY ID 'ZTPM_RTYS_SYSQ'.IMPORT itab1 = wt_ztpm_rtys_ys_cs FROM MEMORY ID 'ZTPM_RTYS_YS_CS'.LOOP AT wt_ztpm_rtys_ys_cs INTO wa_ztpm_rtys_ys_cs.wa_ztpm_rtys_ys_cs-qmnum = n_viqmel-qmnum.MODIFY wt_ztpm_rtys_ys_cs FROM wa_ztpm_rtys_ys_cs.ENDLOOP.DELETE FROM ztpm_rtys_ys_cs WHERE qmnum = n_viqmel-qmnum.MODIFY ztpm_rtys_ys_cs FROM TABLE wt_ztpm_rtys_ys_cs.FREE MEMORY ID 'ZTPM_RTYS_YS_CS'.IMPORT itab1 = wt_ztpm_rtys_ys_qx FROM MEMORY ID 'ZTPM_RTYS_YS_QX'.LOOP AT wt_ztpm_rtys_ys_qx INTO wa_ztpm_rtys_ys_qx.wa_ztpm_rtys_ys_qx-qmnum = n_viqmel-qmnum.MODIFY wt_ztpm_rtys_ys_qx FROM wa_ztpm_rtys_ys_qx.ENDLOOP.DELETE FROM ztpm_rtys_ys_qx WHERE qmnum = n_viqmel-qmnum.MODIFY ztpm_rtys_ys_qx FROM TABLE wt_ztpm_rtys_ys_qx.FREE MEMORY ID 'ZTPM_RTYS_YS_QX'.CLEAR gt_text.CONCATENATE n_viqmel-qmnum 'YSBGJXFY' INTO ls_header-tdname.CONDENSE ls_header-tdname.IMPORT itab1 = gt_text FROM MEMORY ID 'YSBGJXFY'.FREE MEMORY ID 'YSBGJXFY'.CALL FUNCTION 'SAVE_TEXT'EXPORTINGheader = ls_header* savemode_direct = gv_savemodeTABLESlines = gt_textEXCEPTIONSid = 1language = 2name = 3object = 4OTHERS = 5.IF sy-subrc <> 0.* MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno* WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.ENDIF.CLEAR gt_text.CONCATENATE n_viqmel-qmnum 'YSBGXHPJ' INTO ls_header-tdname.CONDENSE ls_header-tdname.IMPORT itab1 = gt_text FROM MEMORY ID 'YSBGXHPJ'.FREE MEMORY ID 'YSBGXHPJ'.CALL FUNCTION 'SAVE_TEXT'EXPORTINGheader = ls_header* savemode_direct = gv_savemodeTABLESlines = gt_textEXCEPTIONSid = 1language = 2name = 3object = 4OTHERS = 5.IF sy-subrc <> 0.* MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno* WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.ENDIF.ENDIF.*****************************************************R9类型数据保存及

数据抛出****************************************************************************"IW21通知单R9-屏障打开许可***Benson Tse********************IF n_viqmel-qmart = 'R9'. "IW21通知单R9-屏障打开许可DATA: gt_lines01 TYPE STANDARD TABLE OF tline ,gt_lines_m01 TYPE STANDARD TABLE OF tline ,gt_lines03 TYPE STANDARD TABLE OF tline ,gt_lines_m03 TYPE STANDARD TABLE OF tline ,gt_lines04 TYPE STANDARD TABLE OF tline ,gt_lines_m04 TYPE STANDARD TABLE OF tline ,gt_lines05 TYPE STANDARD TABLE OF tline ,gt_lines_m05 TYPE STANDARD TABLE OF tline ,gt_lines06 TYPE STANDARD TABLE OF tline ,gt_lines_m06 TYPE STANDARD TABLE OF tline .TYPES:ls_dkxk TYPE ztpm_tdz_dkxk.DATA:gt_list TYPE TABLE OF ls_dkxk ,gw_list TYPE ls_dkxk.DATA: lw_header LIKE thead .CLEAR : gt_list ,gw_list .IMPORT gw_list FROM MEMORY ID 'ZR9_GW_LIST'.gw_list-qmnum = n_viqmel-qmnum.APPEND gw_list TO gt_list.CLEAR gw_list.FREE MEMORY ID 'ZR9_GW_LIST'.CLEAR : lw_header .lw_header-tdobject = 'ZPMJXJH'. "文本对象lw_header-tdid = 'TZD'. "文本IDlw_header-tdspras = 1. "语言CONCATENATE n_viqmel-qmnum '03' INTO lw_header-tdname. "'001'."文本名CONDENSE lw_header-tdname.CLEAR gt_lines_m03[].IMPORT gt_lines_m03[] FROM MEMORY ID 'ZR9_GT_LINES_M03'.FREE MEMORY ID 'ZR9_GT_LINES_M03'.CALL FUNCTION 'CREATE_TEXT'EXPORTINGfid = lw_header-tdidflanguage = lw_header-tdsprasfname = lw_header-tdnamefobject = lw_header-tdobjectTABLESflines = gt_lines_m03[]EXCEPTIONSno_init = 1no_save = 2OTHERS = 3.IF sy-subrc <> 0.* MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno* WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.ENDIF.CLEAR gt_lines_m04[].CONCATENATE n_viqmel-qmnum '04' INTO lw_header-tdname.CONDENSE lw_header-tdname.IMPORT gt_lines_m04[] FROM MEMORY ID 'ZR9_GT_LINES_M04'.FREE MEMORY ID 'ZR9_GT_LINES_M04'.CALL FUNCTION 'CREATE_TEXT'EXPORTINGfid = lw_header-tdidflanguage = lw_header-tdsprasfname = lw_header-tdnamefobject = lw_header-tdobjectTABLESflines = gt_lines_m04[]EXCEPTIONSno_init = 1no_save = 2OTHERS = 3.IF sy-subrc <> 0.* MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno* WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.ENDIF.CLEAR gt_lines_m06[].CONCATENATE n_viqmel-qmnum '06' INTO lw_header-tdname.CONDENSE lw_header-tdname.IMPORT gt_lines_m06[] FROM MEMORY ID 'ZR9_GT_LINES_M06'.FREE MEMORY ID 'ZR9_GT_LINES_M06'.CALL FUNCTION 'CREATE_TEXT'EXPORTINGfid

= lw_header-tdidflanguage = lw_header-tdsprasfname = lw_header-tdnamefobject = lw_header-tdobjectTABLESflines = gt_lines_m06[]EXCEPTIONSno_init = 1no_save = 2OTHERS = 3.IF sy-subrc <> 0.* MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno* WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.ENDIF.CLEAR ls_header.MODIFY ztpm_tdz_dkxk FROM TABLE gt_list.ENDIF.************************"IW21通知单R9-屏障打开许可***Benson Tse********************