Report ZD600PSR028_1

最新推荐文章于 2023-03-15 21:23:40 发布

原创最新推荐文章于 2023-03-15 21:23:40 发布 · 2.2k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#report #作业 #string #delete #duplicates #output

该系统为测井信息报表提供了一种详细的记录和统计方法，包括测井项目的各种统计数据及作业队的工作情况。通过整合不同数据库表格，实现了对测井项目、作业数据的有效管理和展示。

*&---------------------------------------------------------------------* *& Report ZD600PSR028_1 *& *&---------------------------------------------------------------------* *& 作者: 钮顺 *& 完成日期: *& 描述: 测井信息附表 *& *&---------------------------------------------------------------------* *& 版本号日期作者修改描述 *& ------- ---------- -------- ------------ *& 1. 20071115 钮顺新建 *& 2. 20080710 修改：1、深度米改为每个测量项目最下端之和 *& 2、解释米=测量米*曲线条数 *& 3、抬头文本删除‘付’字 *& 3 20081223 修改：1、添加遇卡返回，其他原因返回 *& 2、统计资料质量的总曲线条数、合格曲线条数、优等曲线条数，包含无效井次中的曲线条数。 *& 4. 20090617 修改：1、按李工修改要求进行变更。 *&---------------------------------------------------------------------* REPORT ZD600PSR028 LINE-SIZE 255 NO STANDARD PAGE HEADING MESSAGE-ID ZD600. TABLES: ZD600PSD004,ZD600PSD012. TABLES: ZD600PST001,ZD600PST002A,ZD600PST002C,ZD600PST006A,ZD600PST007A,ZD600PST008A,ZD600PST008B,ZD600PST014,ZD600PST017, ZD600PST022B,ZD600PST001E. TYPE-POOLS: SLIS. TYPES:BEGIN OF TYP_MAIN,"主数据类型 WBS LIKE ZD600PST001-ZD600WBSNO,"WBS元素 RESLX LIKE ZD600PST001-ZD600CATID,"任务书类型ID SYB LIKE ZD600PST001-ZD600SYBID,"事业部ID XMB LIKE ZD600PST001-ZD600XMBID,"项目部ID ZYD LIKE ZD600PST001-ZD600TPLNRI,"作业队ID ZBLX LIKE ZD600PST001-ZD600ZBLXID,"装备类型ID JF LIKE ZD600PST001-ZD600XMZID,"甲方单位ID(2009-6-17) JH LIKE ZD600PST001-ZD600WLNO,"井号 JB LIKE ZD600PST001-ZD600WLID,"井别ID QK LIKE ZD600PST001-ZD600DIVID,"区块ID KP LIKE ZD600PST001-ZD600SFKP,"空跑返回 YZ LIKE ZD600PST001-ZD600YZFH,"遇阻返回 YQ LIKE ZD600PST001-ZD600YQFH,"与卡返回 QT LIKE ZD600PST001-ZD600QTYYFH,"其他原因返回 CFRQ LIKE ZD600PST001-ZD600WLST,"作业队出发日期 CFSJ LIKE ZD600PST001-ZD600WLSTT,"作业队出发时间 FHRQ LIKE ZD600PST001-ZD600FHSJ,"作业队返回日期 FHSJ LIKE ZD600PST001-ZD600FHSJT,"作业队返回时间 JZRQ LIKE ZD600PST001E-ZD600JZT,"基准日期 JZSJ LIKE ZD600PST001E-ZD600JZTT,"基准时间 END OF TYP_MAIN. TYPES:BEGIN OF TYP_ZYXM,"作业项目类型 WBS LIKE ZD600PST017-ZD600WBSNO,"WBS元素 ZYXM LIKE ZD600PST017-ZD600PRJID,"作业项目ID END OF TYP_ZYXM. TYPES:BEGIN OF TYP_CJXM,"测井项目类型 WBS LIKE ZD600PST002C-ZD600WBSNO,"WBS元素 ZXM LIKE ZD600PST002C-ZD600ITEMID,"子项目编号 XJRQ LIKE ZD600PST002C-ZD600KST,"开始日期 XJSJ LIKE ZD600PST002C-ZD600KSTT,"开始时间 CJRQ LIKE ZD600PST002C-ZD600JST,"结束日期 CJSJ LIKE ZD600PST002C-ZD600JSTT,"结束时间 GZ LIKE ZD600PST002C-ZD600GZID,"仪器串故障ID END OF TYP_CJXM. TYPES:BEGIN OF TYP_JB,"井别类型 JB LIKE ZD600PSD004-ZD600WLID,"井别ID JBL LIKE ZD600PSD004-ZD600JBL,"井别类 END OF TYP_JB. TYPES:BEGIN OF TYP_YS,"资料验收 WBS LIKE ZD600PST006A-ZD600WBSNO,"WBS元素 TJ LIKE ZD600PST006A-ZD600SUB,"是否提交 YST LIKE ZD600PST006A-ZD600YST,"验收日期 YSTT LIKE ZD600PST006A-ZD600YSTT,"验收时间 GC LIKE ZD600PST006A-ZD600GCQXTS,"共测曲线条数 HG LIKE ZD600PST006A-ZD600HGQXTS,"合格曲线条数 YD LIKE ZD600PST006A-ZD600YDQXTS,"优等曲线条数 END OF TYP_YS. TYPES:BEGIN OF TYP_JSSB,"解释识别情况 WBS LIKE ZD600PST008A-ZD600WBSNO,"WBS元素 JSRQ LIKE ZD600PST008A-ZD600JSRQ,"解释日期 JSSJ LIKE ZD600PST008A-ZD600JSRQT,"解释时间 SBCS LIKE ZD600PST008A-ZD600SBCS,"识别层数 SBHD LIKE ZD600PST008A-ZD600SBHD,"识别厚度 TJ LIKE ZD600PST008A-ZD600SUB,"是否提交 END OF TYP_JSSB. TYPES:BEGIN OF TYP_JSC,"解释层数 WBS LIKE ZD600PST008B-ZD600WBSNO,"WBS元素 ZXM LIKE ZD600PST008B-ZD600ITEMID,"子项目编号 CH LIKE ZD600PST008B-ZD600CH,"层号 END OF TYP_JSC. TYPES:BEGIN OF TYP_JS,"解释情况 WBS LIKE ZD600PST006B-ZD600WBSNO,"WBS元素 ID LIKE ZD600PST006B-ZD600XMQXID,"项目曲线ID QXMC LIKE ZD600PST006B-ZD600QXMC,"项目曲线 LSH LIKE ZD600PST006B-ZD600COUNT,"行项目流水号 YQBH LIKE ZD600PST007B-ZD600YQBH,"仪器编号 QS LIKE ZD600PST006B-ZD600CLDJ,"测量顶界 JS LIKE ZD600PST006B-ZD600CLDJJ,"测量底界 TS LIKE ZD600PST006B-ZD600GCTS,"共测条数 HS LIKE ZD600PST006B-ZD600HGTS,"合格条数 END OF TYP_JS. TYPES:BEGIN OF TYP_JF,"甲方情况 JFID LIKE ZD600PSD012-ZD600XMZID,"甲方单位ID XMBID LIKE ZD600PSD012-ZD600XMBID,"项目部ID JFMC LIKE ZD600PSD012-ZD600XMZMC,"甲方单位名称 END OF TYP_JF. TYPES: BEGIN OF TYP_ZB,"装备 ZBLXID LIKE ZD600PSD013-ZD600ZBLXID,"装备类型ID ZBLXMS LIKE ZD600PSD013-ZD600ZBLXMC,"装备类型描述 END OF TYP_ZB. TYPES:BEGIN OF TYP_SB,"识别情况 WBS LIKE ZD600PST014-ZD600WBSNO,"WBS元素 ZXM LIKE ZD600PST014-ZD600ITEMID,"子项目编号 SYB LIKE ZD600PST001-ZD600SYBID,"事业部ID XMB LIKE ZD600PST001-ZD600XMBID,"项目部ID ZYD LIKE ZD600PST001-ZD600TPLNRI,"作业队ID ZBLX LIKE ZD600PST001-ZD600ZBLXID,"装备类型ID JF LIKE ZD600PST001-ZD600XMZID,"甲方单位ID(2009-6-17) JB LIKE ZD600PST001-ZD600WLID,"井别ID QK LIKE ZD600PST001-ZD600DIVID,"区块ID ZD600SBCGFKRQ LIKE ZD600PST014-ZD600SBCGFKRQ,"识别成果反馈录入日期 ZD600SBCGFKSJ LIKE ZD600PST014-ZD600SBCGFKSJ,"识别成果反馈录入时间 FH LIKE ZD600PST014-ZD600JSFU,"识别是否符合 END OF TYP_SB. TYPES:BEGIN OF TYP_DATA,"初步整理数据 WBS LIKE ZD600PST001-ZD600WBSNO,"WBS元素 RESLX LIKE ZD600PST001-ZD600CATID,"任务书类型ID SYB LIKE ZD600PST001-ZD600SYBID,"事业部ID XMB LIKE ZD600PST001-ZD600XMBID,"项目部ID ZYD LIKE ZD600PST001-ZD600TPLNRI,"作业队ID ZBLX LIKE ZD600PST001-ZD600ZBLXID,"装备类型ID JF LIKE ZD600PST001-ZD600XMZID,"甲方单位ID(2009-6-17) JH LIKE ZD600PST001-ZD600WLNO,"井号 JB LIKE ZD600PST001-ZD600WLID,"井别ID QK LIKE ZD600PST001-ZD600DIVID,"区块ID YZ(1),"是否遇阻返回 KP(1),"是否空跑返回 YQ(1),"是否遇卡返回 QT(1),"是否其他返回 TL(1),"是否打捞作业 BZH(1),"是否标准化 ZYTS TYPE I,"作业天数 ZYSJ TYPE I,"作业时间（秒） XCTS TYPE I,"现场作业天数 XCSJ TYPE I,"现场作业时间（秒） YZKTS TYPE I,"遇阻遇卡占用天数 YZKSJ TYPE I,"遇阻遇卡占用时间（秒） XJCS TYPE I,"仪器下井次数 CGCS TYPE I,"仪器下井成功次数 HJSB TYPE I,"环境因素造成作业不成功的趟数 GC TYPE I,"共测曲线条数 HG TYPE I,"合格曲线条数 YD TYPE I,"优等曲线条数 JSTJ(1),"解释井次 JSCS TYPE I,"解释层数 CLM TYPE P DECIMALS 2,"测量米 SDM TYPE P DECIMALS 2,"深度米 JSM TYPE P DECIMALS 2,"解释米 SBCS TYPE I,"识别层数 SBHD TYPE P DECIMALS 2,"识别厚度 JSTS TYPE I,"解释天数 JSSJ TYPE I,"解释时间 * SYCS TYPE I,"试油层数 * FHCS TYPE I,"符合层数 END OF TYP_DATA. TYPES:BEGIN OF TYP_OUTPUT,"显示数据 DW(30), ZCCJC TYPE I,"测井出车总井次 ZCCJCB TYPE P DECIMALS 2,""测井出车总井次比 ZJC TYPE I,"测井总井次 ZJCB TYPE P DECIMALS 2,"测井总井次同比 **********************有效作业********************** TJKS TYPE I,"探井口数 TJKSB TYPE P DECIMALS 2,"探井口数同比 TJJC TYPE I,"探井井次 TJJCB TYPE P DECIMALS 2,"探井井次同比 KFKS TYPE I,"开发井口数 KFKSB TYPE P DECIMALS 2,"开发井口数同比 KFJC TYPE I,"开发井井次 KFJCB TYPE P DECIMALS 2,"开发井井次同比 XJKS TYPE I,"小计口数 XJKSB TYPE P DECIMALS 2,"小计口数同比 XJJC TYPE I,"小计井次 XIJCB TYPE P DECIMALS 2,"小计井次同比 GJJC TYPE I,"固井质量作业 GJJCB TYPE P DECIMALS 2,"固井质量作业同比 SCJC TYPE I,"生产测井 SCJCB TYPE P DECIMALS 2,"生产测井同比 DXJC TYPE I,"单项测井作业 DXJCB TYPE P DECIMALS 2,"单项测井作业同比 **********************无效作业********************** WXHJ TYPE I,"无效井次合计 WXHJB TYPE P DECIMALS 2,"无效井次合计同比 YZJC TYPE I,"遇阻 YQJC TYPE I,"遇卡 KPJC TYPE I,"空跑 QTJC TYPE I,"其它返回 DLJC TYPE I,"打捞作业 BZHJC TYPE I,"标准化作业 **********************作业时间********************** ZSJ TYPE P DECIMALS 2,"总作业时间 ZSJB TYPE P DECIMALS 2,"总作业时间同比 TJZYSJ TYPE P DECIMALS 2,"探井作业时间 TJZYSJB TYPE P DECIMALS 2,"探井作业时间比 KJZYSJ TYPE P DECIMALS 2,"开发井作业时间 KJZYSJB TYPE P DECIMALS 2,"开发井作业时间比 XJZYSJ TYPE P DECIMALS 2,"小计作业时间 XJZYSJB TYPE P DECIMALS 2,"小计作业时间比 GJZYSJ TYPE P DECIMALS 2,"固井作业时间 GJZYSJB TYPE P DECIMALS 2,"固井作业时间比 SCZYSJ TYPE P DECIMALS 2,"生产井作业时间 SCZYSJB TYPE P DECIMALS 2,"生产井作业时间比 DXZYSJ TYPE P DECIMALS 2,"单项井作业时间 DXZYSJB TYPE P DECIMALS 2,"单项井作业时间比 XCSJ TYPE P DECIMALS 2,"现场总作业时间 XCSJB TYPE P DECIMALS 2,"现场总作业时间同比 TJXCSJ TYPE P DECIMALS 2,"探井现场作业时间 TJXCSJB TYPE P DECIMALS 2,"探井现场作业时间比 KJXCSJ TYPE P DECIMALS 2,"开发井现场作业时间 KJXCSJB TYPE P DECIMALS 2,"开发井现场作业时间比 XJXCSJ TYPE P DECIMALS 2,"小计现场作业时间 XJXCSJB TYPE P DECIMALS 2,"小计现场作业时间比 GJXCSJ TYPE P DECIMALS 2,"固井现场作业时间 GJXCSJB TYPE P DECIMALS 2,"固井现场作业时间比 SCXCSJ TYPE P DECIMALS 2,"生产井现场作业时间 SCXCSJB TYPE P DECIMALS 2,"生产井现场作业时间比 DXXCSJ TYPE P DECIMALS 2,"单项井现场作业时间 DXXCSJB TYPE P DECIMALS 2,"单项井现场作业时间比 PZSJ TYPE P DECIMALS 2,"队伍平均总作业时间 PZSJB TYPE P DECIMALS 2,"队伍平均总作业时间同比 PXCSJ TYPE P DECIMALS 2,"队伍现场平均作业时间 PXCSJB TYPE P DECIMALS 2,"队伍现场平均作业时间同比 **********************作业实效********************** "TJSJ TYPE P DECIMALS 2,"探井测井时间 TJSX TYPE P DECIMALS 2,"探井实效 TJSXB TYPE P DECIMALS 2,"探井实效同比 "KFSJ TYPE P DECIMALS 2,"开发井测井时间 KFSX TYPE P DECIMALS 2,"开发井实效 KFSXB TYPE P DECIMALS 2,"开发井实效比 XJSX TYPE P DECIMALS 2,"小计实效 XJSXB TYPE P DECIMALS 2,"小计实效比 "GJSJ TYPE P DECIMALS 2,"固井测井时间 GJSX TYPE P DECIMALS 2,"固井实效 GJSXB TYPE P DECIMALS 2,"固井实效比 "SCSJ TYPE P DECIMALS 2,"生产井测井时间 SCSX TYPE P DECIMALS 2,"生产井实效 SCSXB TYPE P DECIMALS 2,"生产井实效比 "DXSJ TYPE P DECIMALS 2,"单项测井时间 DXSX TYPE P DECIMALS 2,"单项测井实效 DXSXB TYPE P DECIMALS 2,"单项测井实效比 **********************作业质量********************** WJXJ TYPE I,"完井仪器下井总次数 GJXJ TYPE I,"固井仪器下井总次数 SCXJ TYPE I,"生产井仪器下井总次数 DXXJ TYPE I,"单项测井仪器下井总次数 XJHJ TYPE I,"仪器下井总次数合计 XJHJB TYPE P DECIMALS 2,"仪器下井总次数合计同比 WJXJCG TYPE I,"完井仪器下井成功总次数 GJXJCG TYPE I,"固井仪器下井成功总次数 SCXJCG TYPE I,"生产井仪器下井成功总次数 DXXJCG TYPE I,"单项测井仪器下井成功总次数 XJHJCG TYPE I,"仪器下井总成功次数合计 XJHJBCG TYPE P DECIMALS 2,"仪器下井总成功次数合计同比 WJHJSB TYPE I,"完井环境失败下井此时 WJYQCGL TYPE P DECIMALS 2,"完井仪器下井成功率 GJHJSB TYPE I,"固井环境失败下井此时 GJYQCGL TYPE P DECIMALS 2,"固井仪器下井成功率 SCHJSB TYPE I,"生产井环境失败下井此时 SCYQCGL TYPE P DECIMALS 2,"生产仪器下井成功率 DXHJSB TYPE I,"单项测井井环境失败下井此时 DXYQCGL TYPE P DECIMALS 2,"单项测井仪器下井成功率 ZHYQCGL TYPE P DECIMALS 2,"综合仪器下井成功率 ZHYQCGLB TYPE P DECIMALS 2,"综合仪器下井成功率同比 WJCJCGL TYPE P DECIMALS 2,"完井测井成功率 GJCJCGL TYPE P DECIMALS 2,"固井测井成功率 SCCJCGL TYPE P DECIMALS 2,"生产测井成功率 DXCJCGL TYPE P DECIMALS 2,"单项测井成功率 ZHCJCGL TYPE P DECIMALS 2,"综合测井成功率 ZHCJCGLB TYPE P DECIMALS 2,"综合测井成功率同比 WJDB TYPE I,"完井非打捞标准化次数 WJZYCGL TYPE P DECIMALS 2,"完井作业成功率 GJDB TYPE I,"固井非打捞标准化次数 GJZYCGL TYPE P DECIMALS 2,"固井作业成功率 SCDB TYPE I,"生产井非打捞标准化次数 SCZYCGL TYPE P DECIMALS 2,"生产作业成功率 DXDB TYPE I,"单项测井非打捞标准化次数 DXZYCGL TYPE P DECIMALS 2,"单项作业成功率 ZHZYCGL TYPE P DECIMALS 2,"综合作业成功率 ZHZYCGLB TYPE P DECIMALS 2,"综合作业成功率同比 **********************资料质量********************** TJQX TYPE I,"探井曲线条数 KFQX TYPE I,"开发井曲线条数 SCQX TYPE I,"生产井曲线条数 HJQX TYPE I,"合计曲线条数 TJHGQX TYPE I,"探井合格曲线条数 KFHGQX TYPE I,"开发井合格曲线条数 SCHGQX TYPE I,"生产井合格曲线条数 HJHGQX TYPE I,"合计合格曲线条数 TJYZQX TYPE I,"探井优质曲线条数 KFYZQX TYPE I,"开发井优质曲线条数 SCYZQX TYPE I,"生产井优质曲线条数 HJYZQX TYPE I,"合计优质曲线条数 QXHGL TYPE P DECIMALS 2,"曲线合格率 QXHGLB TYPE P DECIMALS 2,"曲线合格率同比 QXYZL TYPE P DECIMALS 2,"曲线优质率 QXYZLB TYPE P DECIMALS 2,"曲线优质率同比 **********************资料解释********************** TJJSJC TYPE I,"探井井次 TJCS TYPE I,"探井层数 TJYQCS TYPE I,"探井油气识别层数 TJYQHD TYPE P DECIMALS 2,"探井油气识别厚度 TJCLM TYPE P DECIMALS 2,"探井测量米 TJSDM TYPE P DECIMALS 2,"探井深度米 TJJJM TYPE P DECIMALS 2,"探井计价米 TJJSM TYPE P DECIMALS 2,"探井解释米 TJJSSJ TYPE P DECIMALS 2,"探井解释时间 TJZLJS TYPE P DECIMALS 2,"探井平均资料解释时间 KFJSJC TYPE I,"开发井井次 KFCS TYPE I,"开发井层数 KFYQCS TYPE I,"开发井油气识别层数 KFYQHD TYPE P DECIMALS 2,"开发井油气识别厚度 KFCLM TYPE P DECIMALS 2,"开发井测量米 KFSDM TYPE P DECIMALS 2,"开发井深度米 KFJJM TYPE P DECIMALS 2,"开发计价米 KFJSM TYPE P DECIMALS 2,"开发井解释米 KFJSSJ TYPE P DECIMALS 2,"开发井解释时间 KFZLJS TYPE P DECIMALS 2,"开发井平均资料解释时间 **********************识别准确率********************** TJSYQCS TYPE I,"探井试油气总层数 TJFHCS TYPE I,"探井符合层数 TJSBZQL TYPE P DECIMALS 2,"探井识别准确率 TJSBZQLB TYPE P DECIMALS 2,"探井识别准确率同比 KFSYQCS TYPE I,"开发井试油气总层数 KFFHCS TYPE I,"开发井符合层数 KFSBZQL TYPE P DECIMALS 2,"开发井识别准确率 KFSBZQLB TYPE P DECIMALS 2,"开发井识别准确率同比 ZHSYQCS TYPE I,"综合试油气总层数 ZHFHCS TYPE I,"综合符合层数 ZHSBZQL TYPE P DECIMALS 2,"综合识别准确率 ZHSBZQLB TYPE P DECIMALS 2,"综合识别准确率同比 COLOR(4) TYPE C,"颜色 END OF TYP_OUTPUT. DATA: BEGIN OF VT_ZD600SYB OCCURS 6, SYBID LIKE ZD600PST001-ZD600SYBID, SYBMS LIKE CEPCT-KTEXT, END OF VT_ZD600SYB. DATA: IT_ZD600KOSTS TYPE STANDARD TABLE OF ZD600KOSTS, WA_ZD600KOSTS TYPE ZD600KOSTS . TYPES:TYP_DWS LIKE ZD600PST022B. DATA: G_MAIN_BN TYPE TABLE OF TYP_MAIN,"本年主数据 G_MAIN_QN TYPE TABLE OF TYP_MAIN,"去年主数据 G_ZYXM_BN TYPE TABLE OF TYP_ZYXM,"本年作业项目数据 G_ZYXM_QN TYPE TABLE OF TYP_ZYXM,"去年作业项目数据 G_CJXM_BN TYPE TABLE OF TYP_CJXM,"本年测井项目数据 G_CJXM_QN TYPE TABLE OF TYP_CJXM,"去年测井项目数据 G_YS_BN TYPE TABLE OF TYP_YS,"本年验收 G_YS_QN TYPE TABLE OF TYP_YS,"去年验收 G_JS_BN TYPE TABLE OF TYP_JS,"本年解释 G_JS_QN TYPE TABLE OF TYP_JS,"去年解释 G_JSSB_BN TYPE TABLE OF TYP_JSSB,"本年解释识别 G_JSSB_QN TYPE TABLE OF TYP_JSSB,"去年解释识别 G_DATA_BN TYPE TABLE OF TYP_DATA,"本年初步数据 G_DATA_QN TYPE TABLE OF TYP_DATA,"去年初步数据 G_SB_BN TYPE TABLE OF TYP_SB,"本年识别情况 G_SB_QN TYPE TABLE OF TYP_SB,"去年识别情况 G_ZB TYPE TABLE OF TYP_ZB,"装备表 G_JB TYPE TABLE OF TYP_JB,"井别表 G_JF TYPE TABLE OF TYP_JF,"甲方表 G_JSC_BN TYPE TABLE OF TYP_JSC,"解释层数本年 G_JSC_QN TYPE TABLE OF TYP_JSC,"解释层数去年 G_OUTPUT TYPE TABLE OF TYP_OUTPUT,"显示内表 WK_ZD600SYB LIKE LINE OF VT_ZD600SYB, V_DAY LIKE SY-DATUM," V_YEAR LIKE SY-DATUM, "用于设置1月1日 V_KSRQ LIKE SY-DATUM, V_JSRQ LIKE SY-DATUM, V_NC LIKE SY-DATUM, V_KSSJ TYPE T, V_JSSJ TYPE T, V_TITLE TYPE LVC_TITLE, V_ZKS_BN TYPE I, V_ZKS_QN TYPE I, V_ZJC_BN TYPE I, V_ZJC_QN TYPE I, V_DWS_BN TYPE P DECIMALS 2, V_DWS_QN TYPE P DECIMALS 2, VT_DW TYPE TABLE OF ZD600PSS003 WITH HEADER LINE, VT_DWS_BN TYPE TABLE OF TYP_DWS, VT_DWS_QN TYPE TABLE OF TYP_DWS, GT_LIST_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER. SELECTION-SCREEN BEGIN OF BLOCK BL1 WITH FRAME TITLE TEXT-001. SELECTION-SCREEN BEGIN OF LINE."选择屏幕，时间点查询 SELECTION-SCREEN COMMENT 1(10) TEXT-005. PARAMETERS:P_SB RADIOBUTTON GROUP P1 DEFAULT 'X'. SELECTION-SCREEN COMMENT 20(8) TEXT-006. PARAMETERS:P_SBRQ LIKE ZD600PST001-ZD600FHSJ. PARAMETERS:P_SBSJ LIKE ZD600PST001-ZD600FHSJT. SELECTION-SCREEN END OF LINE. SELECTION-SCREEN BEGIN OF LINE. SELECTION-SCREEN ULINE 1(50). SELECTION-SCREEN ULINE 51(50). SELECTION-SCREEN END OF LINE. SELECTION-SCREEN BEGIN OF LINE."选择屏幕，时间段查询 SELECTION-SCREEN COMMENT 1(10) TEXT-002. PARAMETERS:P_SJD RADIOBUTTON GROUP P1. SELECTION-SCREEN COMMENT 20(8) TEXT-003. PARAMETERS:P_KSRQ LIKE ZD600PST001-ZD600FHSJ. PARAMETERS:P_KSSJ LIKE ZD600PST001-ZD600FHSJT. SELECTION-SCREEN COMMENT 60(8) TEXT-004. PARAMETERS:P_JZRQ LIKE ZD600PST001-ZD600FHSJ. PARAMETERS:P_JZSJ LIKE ZD600PST001-ZD600FHSJT DEFAULT '235959'. SELECTION-SCREEN END OF LINE. SELECTION-SCREEN BEGIN OF LINE. SELECTION-SCREEN ULINE 1(50). SELECTION-SCREEN ULINE 51(50). SELECTION-SCREEN END OF LINE. SELECTION-SCREEN BEGIN OF LINE. SELECTION-SCREEN COMMENT 1(24) TEXT-007. SELECT-OPTIONS:S_SYB FOR ZD600PST001-ZD600SYBID NO-EXTENSION NO INTERVALS . SELECTION-SCREEN END OF LINE. SELECTION-SCREEN BEGIN OF LINE. SELECTION-SCREEN COMMENT 1(24) TEXT-008. SELECT-OPTIONS:S_XMB FOR ZD600PST001-ZD600XMBID NO-EXTENSION NO INTERVALS . SELECTION-SCREEN END OF LINE. SELECTION-SCREEN END OF BLOCK BL1. PARAMETER: P_TY TYPE C AS CHECKBOX. INITIALIZATION. V_YEAR = SY-DATUM. V_YEAR+4(4) = '0101'."设置时间为本年度一月一日 P_SBRQ = SY-DATUM. P_SBSJ = SY-TIMLO. WK_ZD600SYB-SYBID = 'D600010000'. WK_ZD600SYB-SYBMS = '长庆事业部'. APPEND WK_ZD600SYB TO VT_ZD600SYB. CLEAR: WK_ZD600SYB. WK_ZD600SYB-SYBID = 'D600020000'. WK_ZD600SYB-SYBMS = '华北事业部'. APPEND WK_ZD600SYB TO VT_ZD600SYB. CLEAR: WK_ZD600SYB. WK_ZD600SYB-SYBID = 'D600030000'. WK_ZD600SYB-SYBMS = '吐哈事业部'. APPEND WK_ZD600SYB TO VT_ZD600SYB. CLEAR: WK_ZD600SYB. WK_ZD600SYB-SYBID = 'D600040000'. WK_ZD600SYB-SYBMS = '青海事业部'. APPEND WK_ZD600SYB TO VT_ZD600SYB. CLEAR: WK_ZD600SYB. WK_ZD600SYB-SYBID = 'D600050000'. WK_ZD600SYB-SYBMS = '塔里木事业部'. APPEND WK_ZD600SYB TO VT_ZD600SYB. CLEAR: WK_ZD600SYB. WK_ZD600SYB-SYBID = 'D600070000'. WK_ZD600SYB-SYBMS = '国际事业部'. APPEND WK_ZD600SYB TO VT_ZD600SYB. CLEAR: WK_ZD600SYB. AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_SYB-LOW. DATA: LT_DDSHRETVAL TYPE STANDARD TABLE OF DDSHRETVAL, WA_DDSHRETVAL TYPE DDSHRETVAL. CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST' EXPORTING RETFIELD = 'SYBID' DYNPPROG = SY-CPROG DYNPNR = SY-DYNNR WINDOW_TITLE = '事业部选择' VALUE_ORG = 'S' TABLES VALUE_TAB = VT_ZD600SYB[] RETURN_TAB = LT_DDSHRETVAL EXCEPTIONS PARAMETER_ERROR = 1 NO_VALUES_FOUND = 2 OTHERS = 3. IF SY-SUBRC <> 0. MESSAGE S000(ZD600) WITH '建立事业部搜索帮助失败.'. ENDIF. CHECK LT_DDSHRETVAL[] IS NOT INITIAL. READ TABLE LT_DDSHRETVAL INTO WA_DDSHRETVAL INDEX 1. S_SYB-LOW = WA_DDSHRETVAL-FIELDVAL. AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_XMB-LOW. DATA: LT_DDSHRETVAL TYPE STANDARD TABLE OF DDSHRETVAL, WA_DDSHRETVAL TYPE DDSHRETVAL. SELECT * INTO TABLE IT_ZD600KOSTS FROM ZD600KOSTS WHERE BUKRS = 'D600' AND SPRAS = SY-LANGU AND ZD600SYBID IN S_SYB. LOOP AT IT_ZD600KOSTS INTO WA_ZD600KOSTS. IF WA_ZD600KOSTS-ZD600XMBID+6(2) >= '40' AND WA_ZD600KOSTS-ZD600XMBID+6(2) <= '79'. IF WA_ZD600KOSTS-ZD600XMBID+8(2) = '01'. WA_ZD600KOSTS-ZD600XMBID+8(2) = '02'."01存在时候，删除02 DELETE IT_ZD600KOSTS WHERE ZD600XMBID = WA_ZD600KOSTS-ZD600XMBID. ELSE. IF WA_ZD600KOSTS-ZD600XMBID+8(2) = '02'. ELSE. DELETE IT_ZD600KOSTS INDEX SY-TABIX. ENDIF. ENDIF. ELSE. DELETE IT_ZD600KOSTS INDEX SY-TABIX. ENDIF. ENDLOOP. SORT IT_ZD600KOSTS BY ZD600XMBID. CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST' EXPORTING RETFIELD = 'ZD600XMBID' DYNPPROG = SY-CPROG DYNPNR = SY-DYNNR WINDOW_TITLE = '项目部选择' VALUE_ORG = 'S' TABLES VALUE_TAB = IT_ZD600KOSTS RETURN_TAB = LT_DDSHRETVAL EXCEPTIONS PARAMETER_ERROR = 1 NO_VALUES_FOUND = 2 OTHERS = 3. IF SY-SUBRC <> 0. MESSAGE S000(ZD600) WITH '建立项目部搜索帮助失败.'. ENDIF. CHECK LT_DDSHRETVAL[] IS NOT INITIAL. READ TABLE LT_DDSHRETVAL INTO WA_DDSHRETVAL INDEX 1. S_XMB-LOW = WA_DDSHRETVAL-FIELDVAL. AT SELECTION-SCREEN. IF P_SB = 'X'. IF P_SBRQ = '00000000'. MESSAGE I000(ZD600) WITH '未输入时间点，无法查询，请输入'. STOP. ELSEIF P_SBRQ > SY-DATUM. MESSAGE I000(ZD600) WITH '输入时间点在当前时间以后，错误，重新输入'. STOP. ELSEIF P_SBRQ = SY-DATUM. IF P_SBSJ > SY-TIMLO. MESSAGE I000(ZD600) WITH '输入时间点在当前时间以后，错误，重新输入'. STOP. ENDIF. ELSEIF P_SBRQ < V_YEAR. MESSAGE I000(ZD600) WITH '输入时间在本年一月一日之前，错误，重新输入'. STOP. ENDIF. ELSEIF P_SJD = 'X'. IF P_KSRQ = '00000000' OR P_JZRQ = '00000000' . MESSAGE I000(ZD600) WITH '请输入完整的时间段'. STOP. ELSEIF P_KSRQ > P_JZRQ. MESSAGE I000(ZD600) WITH '起始时间在截止时间之后，错误，重新输入'. STOP. ELSEIF P_KSRQ = P_JZRQ. IF P_KSSJ > P_JZSJ. MESSAGE I000(ZD600) WITH '起始时间在截止时间之后，错误，重新输入'. STOP. ENDIF. ENDIF. ENDIF. START-OF-SELECTION. IF P_SJD = 'X'."时间段查询 V_DAY = SY-DATUM. V_KSRQ = P_KSRQ. V_JSRQ = P_JZRQ. V_KSSJ = P_KSSJ. V_JSSJ = P_JZSJ. ELSEIF P_SB = 'X'."时间点查询，开始时间设置为本年度一月一日零点 V_DAY = P_SBRQ. V_KSRQ = V_YEAR. V_JSRQ = P_SBRQ. V_KSSJ = '000000'. V_JSSJ = P_SBSJ. ENDIF. PERFORM SELECT_ZB. PERFORM SELECT_JB. PERFORM SELECT_DATA CHANGING G_MAIN_BN G_ZYXM_BN G_CJXM_BN G_YS_BN G_JS_BN G_JSSB_BN G_JSC_BN G_SB_BN. PERFORM SELECT_JF. V_NC = '00020101'. V_KSRQ = V_KSRQ - V_NC. V_JSRQ = V_JSRQ - V_NC. PERFORM SELECT_DATA CHANGING G_MAIN_QN G_ZYXM_QN G_CJXM_QN G_YS_QN G_JS_QN G_JSSB_QN G_JSC_QN G_SB_QN. IF G_MAIN_BN IS INITIAL AND G_MAIN_QN IS INITIAL. MESSAGE S000(ZD600) WITH '无数据！'. ELSE. PERFORM PROCESS_DATA USING G_MAIN_BN G_ZYXM_BN G_CJXM_BN G_YS_BN G_JS_BN G_JSSB_BN G_JSC_BN G_SB_BN CHANGING G_DATA_BN. PERFORM PROCESS_DATA USING G_MAIN_QN G_ZYXM_QN G_CJXM_QN G_YS_QN G_JS_QN G_JSSB_QN G_JSC_QN G_SB_QN CHANGING G_DATA_QN. PERFORM JS_HJZ. CLEAR:V_TITLE. IF S_SYB IS INITIAL. V_TITLE = '中国石油测井有限公司测井信息表'. PERFORM TJ_GS. ELSE. IF S_XMB IS INITIAL. LOOP AT S_SYB. WK_ZD600SYB-SYBID = S_SYB-LOW. EXIT. ENDLOOP. READ TABLE VT_ZD600SYB INTO WK_ZD600SYB WITH KEY SYBID = WK_ZD600SYB-SYBID. CONCATENATE '中国石油测井有限公司' WK_ZD600SYB-SYBMS ' 测井信息表' INTO V_TITLE. PERFORM TI_SYB. ELSE. LOOP AT S_SYB. WK_ZD600SYB-SYBID = S_SYB-LOW. ENDLOOP. READ TABLE VT_ZD600SYB INTO WK_ZD600SYB WITH KEY SYBID = WK_ZD600SYB-SYBID. LOOP AT S_XMB . WA_ZD600KOSTS-ZD600XMBID = S_XMB-LOW. EXIT. ENDLOOP. READ TABLE IT_ZD600KOSTS INTO WA_ZD600KOSTS WITH KEY ZD600XMBID = WA_ZD600KOSTS-ZD600XMBID. CONCATENATE '中国石油测井有限公司' WK_ZD600SYB-SYBMS WA_ZD600KOSTS-ZD600XMBMC ' 测井信息表' INTO V_TITLE. PERFORM TI_XMB. ENDIF. ENDIF. PERFORM ALV_DISPLAY USING G_OUTPUT."显示ALV ENDIF. *&---------------------------------------------------------------------* *& Form SELECT_DATA *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * <--P_G_MAIN_BN text * <--P_G_CJ_BN text * <--P_G_CJXM_BN text * <--P_G_YS_BN text * <--P_G_JS_BN text *----------------------------------------------------------------------* FORM SELECT_DATA CHANGING P_G_MAIN LIKE G_MAIN_BN P_G_ZYXM LIKE G_ZYXM_BN P_G_CJXM LIKE G_CJXM_BN P_G_YS LIKE G_YS_BN P_G_JS LIKE G_JS_BN P_G_JSSB LIKE G_JSSB_BN P_G_JSC LIKE G_JSC_BN P_G_SB LIKE G_SB_BN. DATA: L_LOWTIME LIKE TZONREF-TSTAMPS, L_HIGHTIME LIKE TZONREF-TSTAMPS, L_COMTIME LIKE TZONREF-TSTAMPS, LW_MAIN TYPE TYP_MAIN, LW_SB TYPE TYP_SB. SELECT ZD600PST001~ZD600WBSNO AS WBS "WBS元素 ZD600PST001~ZD600CATID AS RESLX "任务书类型ID ZD600PST001~ZD600SYBID AS SYB "事业部ID ZD600PST001~ZD600XMBID AS XMB "项目部ID ZD600PST001~ZD600TPLNRI AS ZYD "作业队ID ZD600PST001~ZD600ZBLXID AS ZBLX "装备类型ID ZD600PST001~ZD600XMZID AS JF "甲方单位ID(2009-6-17) ZD600PST001~ZD600WLNO AS JH "井号 ZD600PST001~ZD600WLID AS JB "井别ID ZD600PST001~ZD600DIVID AS QK "区块ID ZD600PST001~ZD600SFKP AS KP "是否空跑 ZD600PST001~ZD600YZFH AS YZ "遇阻返回 ZD600PST001~ZD600YQFH AS YQ "与卡返回 ZD600PST001~ZD600QTYYFH AS QT "其他原因返回 ZD600PST001~ZD600WLST AS CFRQ "作业队出发日期 ZD600PST001~ZD600WLSTT AS CFSJ "作业队出发时间 ZD600PST001~ZD600FHSJ AS FHRQ "作业队返回日期 ZD600PST001~ZD600FHSJT AS FHSJ "作业队返回时间 ZD600PST001E~ZD600JZT AS JZRQ "基准日期 ZD600PST001E~ZD600JZTT AS JZSJ "基准时间 INTO CORRESPONDING FIELDS OF TABLE P_G_MAIN FROM ZD600PST001 INNER JOIN ZD600PST001E ON ZD600PST001E~ZD600WBSNO = ZD600PST001~ZD600WBSNO WHERE ZD600PST001~ZD600SYBID IN S_SYB AND ZD600PST001~ZD600XMBID IN S_XMB AND ( ZD600PST001~ZD600CATID = '001' OR ZD600PST001~ZD600CATID = '002' OR ZD600PST001~ZD600CATID = '003' OR ZD600PST001~ZD600CATID = '009' OR ZD600PST001~ZD600CATID = '010' ) AND ZD600PST001~ZD600WLST <> '' AND ZD600PST001~ZD600WLST <> '00000000' AND ZD600PST001~ZD600FHSJ <> '' AND ZD600PST001~ZD600FHSJ <> '00000000' AND ZD600PST001E~ZD600JZT >= V_KSRQ AND ZD600PST001E~ZD600JZT <= V_JSRQ AND "ZD600PST001~ZD600WLST <= V_JSRQ AND ZD600PST001~ZD600DEL <> 'X' AND ZD600PST001E~ZD600JZBZ = 'X'." AND * ZD600PST002A~ZD600SUB <> '' AND * ZD600PST002A~ZD600DEL <> 'X' . CALL FUNCTION 'WRF_PBAS_DATE_TO_TIMESTAMP' EXPORTING I_DATLO = V_KSRQ I_TIMLO = V_KSSJ I_TZONE = SY-ZONLO IMPORTING E_TIMESTAMP = L_LOWTIME. * EXCEPTIONS * INVALID_DATE = 1 * OTHERS = 2 CALL FUNCTION 'WRF_PBAS_DATE_TO_TIMESTAMP' EXPORTING I_DATLO = V_JSRQ I_TIMLO = V_JSSJ I_TZONE = SY-ZONLO IMPORTING E_TIMESTAMP = L_HIGHTIME. * EXCEPTIONS * INVALID_DATE = 1 * OTHERS = 2 LOOP AT P_G_MAIN INTO LW_MAIN. CALL FUNCTION 'WRF_PBAS_DATE_TO_TIMESTAMP' EXPORTING I_DATLO = LW_MAIN-JZRQ I_TIMLO = LW_MAIN-JZSJ I_TZONE = SY-ZONLO IMPORTING E_TIMESTAMP = L_COMTIME. IF ( L_COMTIME > L_HIGHTIME ) OR ( L_COMTIME < L_LOWTIME )."当开始时间在时间段后面或结束时间在时间段之前时，不满足条件，删除此行 DELETE P_G_MAIN INDEX SY-TABIX. ENDIF. CLEAR: LW_MAIN. ENDLOOP. SORT P_G_MAIN BY WBS SYB XMB QK RESLX. DELETE ADJACENT DUPLICATES FROM P_G_MAIN COMPARING ALL FIELDS. SELECT ZD600WBSNO AS WBS "WBS元素 ZD600PRJID AS ZYXM "作业项目ID INTO CORRESPONDING FIELDS OF TABLE P_G_ZYXM FROM ZD600PST017 FOR ALL ENTRIES IN P_G_MAIN WHERE ZD600WBSNO = P_G_MAIN-WBS AND ZD600PRJID IN ('065','066') AND"('040','041','042','043','066') AND ZD600DEL <> 'X'. SELECT ZD600WBSNO AS WBS "WBS元素 ZD600ITEMID AS ZXM "子项目编号 ZD600KST AS XJRQ "开始日期 ZD600KSTT AS XJSJ "开始时间 ZD600JST AS CJRQ "结束日期 ZD600JSTT AS CJSJ"结束时间 ZD600GZID AS GZ "仪器串故障ID INTO CORRESPONDING FIELDS OF TABLE P_G_CJXM FROM ZD600PST002C FOR ALL ENTRIES IN P_G_MAIN WHERE ZD600WBSNO = P_G_MAIN-WBS AND ZD600DEL <> 'X'. SORT P_G_CJXM BY WBS ZXM. DELETE ADJACENT DUPLICATES FROM P_G_CJXM COMPARING ALL FIELDS. SELECT ZD600WBSNO AS WBS "WBS元素 ZD600SUB AS TJ "是否提交 ZD600YST AS YST"验收日期 ZD600YSTT AS YSTT"验收时间 ZD600GCQXTS AS GC "共测曲线条数 ZD600HGQXTS AS HG "合格曲线条数 ZD600YDQXTS AS YD "优等曲线条数 APPENDING CORRESPONDING FIELDS OF TABLE P_G_YS FROM ZD600PST006A FOR ALL ENTRIES IN P_G_MAIN WHERE ZD600WBSNO = P_G_MAIN-WBS AND ZD600DEL <> 'X' AND ZD600SUB <> ''. SELECT ZD600WBSNO AS WBS "WBS元素 ZD600SUB AS TJ "是否提交 ZD600YST AS YST"验收日期 ZD600YSTT AS YSTT"验收时间 ZD600GCQXTS AS GC "共测曲线条数 ZD600HGQXTS AS HG "合格曲线条数 ZD600YDQXTS AS YD "优等曲线条数 APPENDING CORRESPONDING FIELDS OF TABLE P_G_YS FROM ZD600PST007A FOR ALL ENTRIES IN P_G_MAIN WHERE ZD600WBSNO = P_G_MAIN-WBS AND ZD600DEL <> 'X' AND ZD600SUB <> ''. SORT P_G_YS BY WBS. DELETE ADJACENT DUPLICATES FROM P_G_YS. SELECT ZD600WBSNO AS WBS "WBS元素 ZD600XMQXID AS ID "项目曲线ID ZD600QXMC AS QXMC "项目曲线 ZD600COUNT AS LSH "行项目流水号 ZD600CLDJ AS QS "测量顶界 ZD600CLDJJ AS JS "测量底界 ZD600GCTS AS TS "共测条数 ZD600HGTS AS HS "合格条数 FROM ZD600PST006B INTO CORRESPONDING FIELDS OF TABLE P_G_JS FOR ALL ENTRIES IN P_G_MAIN WHERE ZD600WBSNO = P_G_MAIN-WBS AND ZD600DEL <> 'X'. SELECT ZD600WBSNO AS WBS "WBS元素 ZD600XMQXID AS ID "项目曲线ID ZD600CJXMMC AS QXMC "项目曲线 ZD600COUNT AS LSH "行项目流水号 ZD600YQBH AS YQBH "仪器编号 ZD600CLDJ AS QS "测量顶界 ZD600CLDJJ AS JS "测量底界 ZD600GCTS AS TS "共测条数 ZD600HGTS AS HS "合格条数 FROM ZD600PST007B APPENDING CORRESPONDING FIELDS OF TABLE P_G_JS FOR ALL ENTRIES IN P_G_MAIN WHERE ZD600WBSNO = P_G_MAIN-WBS AND ZD600DEL <> 'X'. SORT P_G_JS BY WBS LSH. DELETE ADJACENT DUPLICATES FROM P_G_JS COMPARING ALL FIELDS. SELECT ZD600WBSNO AS WBS"WBS元素 ZD600JSRQ AS JSRQ"解释日期 ZD600JSRQT AS JSSJ"解释时间 ZD600SBCS AS SBCS"识别层数 ZD600SBHD AS SBHD"识别厚度 ZD600SUB AS TJ"是否提交 FROM ZD600PST008A INTO CORRESPONDING FIELDS OF TABLE P_G_JSSB FOR ALL ENTRIES IN P_G_MAIN WHERE ZD600WBSNO = P_G_MAIN-WBS AND ZD600DEL <> 'X'. SORT P_G_JSSB BY WBS. DELETE ADJACENT DUPLICATES FROM P_G_JSSB COMPARING ALL FIELDS. SELECT ZD600WBSNO AS WBS "WBS元素 ZD600ITEMID AS ZXM"子项目编号 ZD600CH AS CH "层号 FROM ZD600PST008B INTO CORRESPONDING FIELDS OF TABLE P_G_JSC FOR ALL ENTRIES IN P_G_MAIN WHERE ZD600WBSNO = P_G_MAIN-WBS AND ZD600DEL <> 'X'. SORT P_G_JSC BY WBS CH DESCENDING. DELETE ADJACENT DUPLICATES FROM P_G_JSC COMPARING ALL FIELDS. SELECT ZD600PST014~ZD600WBSNO AS WBS "WBS元素 ZD600PST014~ZD600ITEMID AS ZXM "子项目编号 ZD600PST001~ZD600SYBID AS SYB "事业部ID ZD600PST001~ZD600XMBID AS XMB "项目部ID ZD600PST001~ZD600TPLNRI AS ZYD "作业队ID ZD600PST001~ZD600ZBLXID AS ZBLX "装备类型ID ZD600PST001~ZD600XMZID AS JF "甲方单位ID(2009-6-17) ZD600PST001~ZD600WLID AS JB "井别ID ZD600PST001~ZD600DIVID AS QK "区块ID ZD600PST014~ZD600SBCGFKRQ AS ZD600SBCGFKRQ"识别成果反馈录入日期 ZD600PST014~ZD600SBCGFKSJ AS ZD600SBCGFKSJ "识别成果反馈录入时间 ZD600PST014~ZD600JSFU AS FH "识别是否符合 INTO CORRESPONDING FIELDS OF TABLE P_G_SB FROM ZD600PST014 INNER JOIN ZD600PST001 ON ZD600PST014~ZD600WBSNO = ZD600PST001~ZD600WBSNO WHERE ZD600PST001~ZD600SYBID IN S_SYB AND ZD600PST001~ZD600XMBID IN S_XMB AND ZD600PST001~ZD600DEL <> 'X' AND ZD600PST014~ZD600SBCGFKRQ <> '' AND ZD600PST014~ZD600SBCGFKRQ <> '00000000' AND ZD600PST014~ZD600SBCGFKRQ >= V_KSRQ AND ZD600PST014~ZD600SBCGFKRQ <= V_JSRQ AND ZD600PST014~ZD600DEL <> 'X' AND ZD600PST014~ZD600QCFSID <> ''. LOOP AT P_G_SB INTO LW_SB. CLEAR:L_COMTIME. CALL FUNCTION 'WRF_PBAS_DATE_TO_TIMESTAMP' EXPORTING I_DATLO = LW_SB-ZD600SBCGFKRQ I_TIMLO = LW_SB-ZD600SBCGFKSJ I_TZONE = SY-ZONLO IMPORTING E_TIMESTAMP = L_COMTIME. IF ( L_COMTIME > L_HIGHTIME ) OR ( L_COMTIME < L_LOWTIME )."当开始时间在时间段后面或结束时间在时间段之前时，不满足条件，删除此行 DELETE P_G_SB INDEX SY-TABIX. ENDIF. CLEAR: LW_SB. ENDLOOP. SORT P_G_SB BY WBS ZXM. DELETE ADJACENT DUPLICATES FROM P_G_SB COMPARING ALL FIELDS. ENDFORM. " SELECT_DATA *&---------------------------------------------------------------------* *& Form PROCESS_DATA *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->P_G_MAIN_BN text * -->P_G_CJXM_BN text * -->P_G_YS_BN text * -->P_G_JS_BN text * <--P_G_DATA_BN text *----------------------------------------------------------------------* FORM PROCESS_DATA USING P_G_MAIN LIKE G_MAIN_BN P_G_ZYXM LIKE G_ZYXM_BN P_G_CJXM LIKE G_CJXM_BN P_G_YS LIKE G_YS_BN P_G_JS LIKE G_JS_BN P_G_JSSB LIKE G_JSSB_BN P_G_JSC LIKE G_JSC_BN P_G_SB LIKE G_SB_BN CHANGING P_G_DATA LIKE G_DATA_BN. DATA:LW_MAIN TYPE TYP_MAIN, LW_ZYXM TYPE TYP_ZYXM, LW_DATA TYPE TYP_DATA, LW_CJXM TYPE TYP_CJXM, LT_CJXM TYPE TABLE OF TYP_CJXM, L_LINE TYPE I, LW_YS TYPE TYP_YS, LW_JS TYPE TYP_JS, LW_JSSB TYPE TYP_JSSB, LW_SB TYPE TYP_SB, LT_JS TYPE TABLE OF TYP_JS, LW_JSC TYPE TYP_JSC. LOOP AT P_G_MAIN INTO LW_MAIN. LW_DATA-WBS = LW_MAIN-WBS."WBS LW_DATA-RESLX = LW_MAIN-RESLX."任务书类型 LW_DATA-SYB = LW_MAIN-SYB."事业部id LW_DATA-XMB = LW_MAIN-XMB."项目部id LW_DATA-ZYD = LW_MAIN-ZYD."作业队ID LW_DATA-ZBLX = LW_MAIN-ZBLX."装备类型 LW_DATA-JF = LW_MAIN-JF."甲方单位ID LW_DATA-JH = LW_MAIN-JH."井号 LW_DATA-JB = LW_MAIN-JB."井别 LW_DATA-QK = LW_MAIN-QK."区块 LW_DATA-KP = LW_MAIN-KP."空跑 LW_DATA-YZ = LW_MAIN-YZ."遇阻 LW_DATA-YQ = LW_MAIN-YQ."遇卡 LW_DATA-QT = LW_MAIN-QT."其他原因返回 CLEAR:LW_ZYXM,LW_DATA-TL,LW_DATA-BZH. IF LW_MAIN-RESLX = '009'. LW_DATA-BZH = 'X'. ENDIF. READ TABLE P_G_ZYXM INTO LW_ZYXM WITH KEY WBS = LW_MAIN-WBS. IF SY-SUBRC = 0. IF LW_ZYXM-ZYXM = '066'."作业项目为066时，为标准化作业 LW_DATA-BZH = 'X'. ELSEIF LW_ZYXM-ZYXM = '065' OR LW_ZYXM-ZYXM = '081'."当为几种类型时，为打捞作业 LW_DATA-TL = 'X'. ENDIF. ELSE. ENDIF. LW_DATA-ZYTS = LW_MAIN-FHRQ - LW_MAIN-CFRQ."总作业日期=返回日期-出发日期 LW_DATA-ZYSJ = LW_MAIN-FHSJ - LW_MAIN-CFSJ."总作业时间=返回时间-出发时间 LOOP AT P_G_CJXM INTO LW_CJXM WHERE WBS = LW_MAIN-WBS."通过WBS获取此WBS下的行项目 LW_DATA-XJCS = LW_DATA-XJCS + 1."仪器下井次数 IF LW_CJXM-GZ NOT BETWEEN 'F27' AND 'F31'. LW_DATA-XCTS = LW_DATA-XCTS + LW_CJXM-CJRQ - LW_CJXM-XJRQ."现场作业天数=仪器出井日期-仪器下井日期 LW_DATA-XCSJ = LW_DATA-XCSJ + LW_CJXM-CJSJ - LW_CJXM-XJSJ."现场作业时间=仪器出井时间-仪器下井时间 ENDIF. IF LW_CJXM-GZ IS INITIAL."无故障代码时记录为成功作业次数 LW_DATA-CGCS = LW_DATA-CGCS + 1. ELSEIF LW_CJXM-GZ BETWEEN 'F27' AND 'F31'. LW_DATA-HJSB = LW_DATA-HJSB + 1. "LW_DATA-SBCS = LW_DATA-SBCS + 1. LW_DATA-YZKTS = LW_DATA-YZKTS + LW_CJXM-CJRQ - LW_CJXM-XJRQ."遇阻遇卡占用天数 LW_DATA-YZKSJ = LW_DATA-YZKSJ + LW_CJXM-CJSJ - LW_CJXM-XJSJ."遇阻遇卡占用时间（秒） ENDIF. CLEAR:LW_CJXM. ENDLOOP. CLEAR:LW_YS. READ TABLE P_G_YS INTO LW_YS WITH KEY WBS = LW_MAIN-WBS. LW_DATA-GC = LW_YS-GC."公测曲线条数 LW_DATA-HG = LW_YS-HG."合格曲线条数 LW_DATA-YD = LW_YS-YD."优等曲线条数 CLEAR:LW_DATA-JSCS. LOOP AT P_G_JSC INTO LW_JSC WHERE WBS = LW_MAIN-WBS. IF LW_DATA-JSCS < LW_JSC-ZXM. LW_DATA-JSCS = LW_JSC-ZXM."解释层数 ENDIF. ENDLOOP. * READ TABLE P_G_JSC INTO LW_JSC WITH KEY WBS = LW_MAIN-WBS. * LW_DATA-JSCS = LW_JSC-CH."解释层数 LOOP AT P_G_JS INTO LW_JS WHERE WBS = LW_MAIN-WBS. LW_DATA-CLM = LW_DATA-CLM + LW_JS-JS - LW_JS-QS."测量米=每条曲线的结束深度-起始深度 LW_DATA-SDM = LW_DATA-SDM + LW_JS-JS."深度米=每条曲线的结束深度和 LW_DATA-JSM = LW_DATA-JSM + ( ( LW_JS-JS - LW_JS-QS ) * LW_JS-HS )."解释米=每条曲线的测量米*曲线条数 CLEAR:LW_JS. ENDLOOP. CLEAR:LW_JSSB. READ TABLE P_G_JSSB INTO LW_JSSB WITH KEY WBS = LW_MAIN-WBS. LW_DATA-SBCS = LW_JSSB-SBCS."识别层数 LW_DATA-SBHD = LW_JSSB-SBHD."识别厚度 LW_DATA-JSTJ = LW_JSSB-TJ."是否提交 LW_DATA-JSTS = LW_JSSB-JSRQ - LW_YS-YST."解释所用日期 LW_DATA-JSSJ = LW_JSSB-JSSJ - LW_YS-YSTT."解释所用秒 * CLEAR:LW_SB. * LOOP AT P_G_SB INTO LW_SB WHERE WBS = LW_MAIN-WBS. * IF SY-SUBRC = 0. * LW_DATA-SYCS = LW_DATA-SYCS + 1. * IF LW_SB-FH <> ''. * LW_DATA-FHCS = LW_DATA-FHCS + 1. * ENDIF. * ELSE. * LW_DATA-SYCS = 0. * LW_DATA-FHCS = 0. * ENDIF. * CLEAR:LW_SB. * ENDLOOP. APPEND LW_DATA TO P_G_DATA. CLEAR:LW_DATA,LW_MAIN. ENDLOOP. ENDFORM. " PROCESS_DATA *&---------------------------------------------------------------------* *& Form TJ_GS *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM TJ_GS. DATA:LT_DATA TYPE TABLE OF TYP_DATA,"零时存放数据的内表，用于去掉不相关数据 LT_SB TYPE TABLE OF TYP_SB, LT_OUT_BN LIKE G_OUTPUT,"存放单个事业部本年度合计数据内表 LW_OUT_BN LIKE LINE OF G_OUTPUT," LT_OUT_QN LIKE G_OUTPUT,"存放单个事业部去年度合计数据内表 LW_OUT_QN LIKE LINE OF G_OUTPUT," LW_OUTPUT TYPE TYP_OUTPUT," LT_DWS TYPE TABLE OF TYP_DWS, LW_ZB TYPE TYP_ZB, L_BN(1)," L_JS TYPE I."存放完事业部数据后记录输出内表行数，为插入装备合计行记录行位置 *********************处理项目部数据************************************ CLEAR:LT_OUT_BN,LT_OUT_QN. LOOP AT VT_ZD600SYB INTO WK_ZD600SYB. CLEAR:LT_DATA,LT_DWS,LT_SB. LT_DATA = G_DATA_BN. LT_SB = G_SB_BN. LT_DWS = VT_DWS_BN. DELETE LT_DATA WHERE SYB <> WK_ZD600SYB-SYBID."删除本年度非计算事业部的数据 DELETE LT_SB WHERE SYB <> WK_ZD600SYB-SYBID. DELETE LT_DWS WHERE ZD600SYBID <> WK_ZD600SYB-SYBID. PERFORM GJ USING LT_DATA LT_SB LT_DWS CHANGING LW_OUT_BN."统计相关数据 CLEAR:LT_DATA,LT_DWS,LT_SB. LT_DATA = G_DATA_QN. LT_SB = G_SB_QN. LT_DWS = VT_DWS_QN. DELETE LT_DATA WHERE SYB <> WK_ZD600SYB-SYBID."删除去年度非计算事业部的数据 DELETE LT_SB WHERE SYB <> WK_ZD600SYB-SYBID. DELETE LT_DWS WHERE ZD600SYBID <> WK_ZD600SYB-SYBID. PERFORM GJ USING LT_DATA LT_SB LT_DWS CHANGING LW_OUT_QN."统计相关数据 APPEND LW_OUT_BN TO LT_OUT_BN."将不同事业部本年度数据插入 APPEND LW_OUT_QN TO LT_OUT_QN."将不同事业部去年度数据插入 PERFORM PROCESS USING LW_OUT_BN LW_OUT_QN CHANGING LW_OUTPUT."计算输出数据 LW_OUTPUT-DW = WK_ZD600SYB-SYBMS. APPEND LW_OUTPUT TO G_OUTPUT. CLEAR:LW_OUTPUT,LW_OUT_BN,LW_OUT_QN. ENDLOOP. L_BN = 'X'. PERFORM HJ_DATA USING LT_OUT_BN L_BN CHANGING LW_OUT_BN."合计公司本年度数据 CLEAR:L_BN. PERFORM HJ_DATA USING LT_OUT_QN L_BN CHANGING LW_OUT_QN."合计公司去年度数据 PERFORM PROCESS USING LW_OUT_BN LW_OUT_QN CHANGING LW_OUTPUT. LW_OUTPUT-DW = '公司'. LW_OUTPUT-COLOR = 'C400'. INSERT LW_OUTPUT INTO G_OUTPUT INDEX 1. CLEAR:LT_OUT_BN,LT_OUT_QN,LW_OUTPUT,LW_OUT_BN,LW_OUT_QN. CLEAR:L_JS. DESCRIBE TABLE G_OUTPUT LINES L_JS. L_JS = L_JS + 1. *********************处理装备类型数据************************************ LOOP AT G_ZB INTO LW_ZB. CLEAR:LT_DATA,LT_DWS,LT_SB. LT_DATA = G_DATA_BN. LT_SB = G_SB_BN. LT_DWS = VT_DWS_BN. DELETE LT_DATA WHERE ZBLX <> LW_ZB-ZBLXID. DELETE LT_SB WHERE ZBLX <> LW_ZB-ZBLXID. DELETE LT_DWS WHERE ZD600ZBLXID <> LW_ZB-ZBLXID. PERFORM GJ USING LT_DATA LT_SB LT_DWS CHANGING LW_OUT_BN. CLEAR:LT_DATA,LT_DWS,LT_SB. LT_DATA = G_DATA_QN. LT_SB = G_SB_QN. LT_DWS = VT_DWS_QN. DELETE LT_DATA WHERE ZBLX <> LW_ZB-ZBLXID. DELETE LT_SB WHERE ZBLX <> LW_ZB-ZBLXID. DELETE LT_DWS WHERE ZD600ZBLXID <> LW_ZB-ZBLXID. PERFORM GJ USING LT_DATA LT_SB LT_DWS CHANGING LW_OUT_QN. APPEND LW_OUT_BN TO LT_OUT_BN. APPEND LW_OUT_QN TO LT_OUT_QN. PERFORM PROCESS USING LW_OUT_BN LW_OUT_QN CHANGING LW_OUTPUT. LW_OUTPUT-DW = LW_ZB-ZBLXMS. APPEND LW_OUTPUT TO G_OUTPUT. CLEAR:LW_OUTPUT,LW_OUT_BN,LW_OUT_QN. ENDLOOP. L_BN = 'X'. PERFORM HJ_DATA USING LT_OUT_BN L_BN CHANGING LW_OUT_BN. CLEAR:L_BN. PERFORM HJ_DATA USING LT_OUT_QN L_BN CHANGING LW_OUT_QN. PERFORM PROCESS USING LW_OUT_BN LW_OUT_QN CHANGING LW_OUTPUT. LW_OUTPUT-DW = '装备合计'. LW_OUTPUT-COLOR = 'C400'. INSERT LW_OUTPUT INTO G_OUTPUT INDEX L_JS. CLEAR:LT_OUT_BN,LT_OUT_QN,LW_OUTPUT,LW_OUT_BN,LW_OUT_QN. ENDFORM. " TJ_GS *&---------------------------------------------------------------------* *& Form TI_SYB *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM TI_SYB . TYPES: BEGIN OF TYP_KHINR, KHINR LIKE CSKS-KHINR, END OF TYP_KHINR. DATA:LT_ZD600KOSTS TYPE STANDARD TABLE OF ZD600KOSTS, LW_ZD600KOSTS TYPE ZD600KOSTS, LT_ZD600QK TYPE STANDARD TABLE OF ZD600PSD003, LW_ZD600QK TYPE ZD600PSD003 , LT_DATA TYPE TABLE OF TYP_DATA,"零时存放数据的内表，用于去掉不相关数据 LT_SB TYPE TABLE OF TYP_SB, LT_OUT_BN LIKE G_OUTPUT,"存放单个事业部本年度合计数据内表 LW_OUT_BN LIKE LINE OF G_OUTPUT," LT_OUT_QN LIKE G_OUTPUT,"存放单个事业部去年度合计数据内表 LW_OUT_QN LIKE LINE OF G_OUTPUT," LW_OUTPUT TYPE TYP_OUTPUT," LW_ZB TYPE TYP_ZB, LW_JF TYPE TYP_JF," L_BN(1), L_JS TYPE I,"存放完事业部数据后记录输出内表行数，为插入装备合计行记录行位置. LT_ZYXD TYPE STANDARD TABLE OF ZD600PSS003, LW_ZYXD TYPE ZD600PSS003, LT_KHINR2 TYPE STANDARD TABLE OF TYP_KHINR WITH HEADER LINE, L_ILOAN LIKE ILOA-ILOAN, L_KOSTL LIKE ILOA-KOSTL, L_KHINR1 LIKE CSKS-KHINR , LT_DWS TYPE TABLE OF TYP_DWS. **********************取项目部************************* SELECT * INTO TABLE LT_ZD600KOSTS FROM ZD600KOSTS WHERE BUKRS = 'D600' AND SPRAS = SY-LANGU AND ZD600SYBID IN S_SYB. LOOP AT LT_ZD600KOSTS INTO LW_ZD600KOSTS. IF LW_ZD600KOSTS-ZD600XMBID+6(2) >= '40' AND LW_ZD600KOSTS-ZD600XMBID+6(2) <= '79'. IF LW_ZD600KOSTS-ZD600XMBID+8(2) = '01'. LW_ZD600KOSTS-ZD600XMBID+8(2) = '02'. DELETE LT_ZD600KOSTS WHERE ZD600XMBID = LW_ZD600KOSTS-ZD600XMBID. ELSE. IF LW_ZD600KOSTS-ZD600XMBID+8(2) = '02'. ELSE. DELETE LT_ZD600KOSTS INDEX SY-TABIX. ENDIF. ENDIF. ELSE. DELETE LT_ZD600KOSTS INDEX SY-TABIX. ENDIF. ENDLOOP. SORT LT_ZD600KOSTS BY ZD600XMBID. DELETE ADJACENT DUPLICATES FROM LT_ZD600KOSTS COMPARING ZD600XMBID. SELECT ZD600XMZID AS JFID"甲方单位ID ZD600XMBID AS XMBID"项目部ID ZD600XMZMC AS JFMC"甲方单位名称 FROM ZD600PSD012 APPENDING CORRESPONDING FIELDS OF TABLE G_JF FOR ALL ENTRIES IN LT_ZD600KOSTS WHERE ZD600XMBID = LT_ZD600KOSTS-ZD600XMBID. SORT G_JF BY JFID XMBID. DELETE ADJACENT DUPLICATES FROM G_JF COMPARING ALL FIELDS. *********************处理项目部数据************************************ CLEAR:LT_OUT_BN,LT_OUT_QN. LOOP AT LT_ZD600KOSTS INTO LW_ZD600KOSTS. CLEAR:LT_DATA,LT_DWS,LT_SB. LT_DATA = G_DATA_BN. LT_SB = G_SB_BN. LT_DWS = VT_DWS_BN. DELETE LT_DATA WHERE XMB <> LW_ZD600KOSTS-ZD600XMBID."删除本年度非计算项目部的数据 DELETE LT_SB WHERE XMB <> LW_ZD600KOSTS-ZD600XMBID." DELETE LT_DWS WHERE ZD600XMBID <> LW_ZD600KOSTS-ZD600XMBID. PERFORM GJ USING LT_DATA LT_SB LT_DWS CHANGING LW_OUT_BN."统计相关数据 CLEAR:LT_DATA,LT_DWS,LT_SB. LT_DATA = G_DATA_QN. LT_SB = G_SB_QN. LT_DWS = VT_DWS_QN. DELETE LT_DATA WHERE XMB <> LW_ZD600KOSTS-ZD600XMBID."删除去年度非计算项目部的数据 DELETE LT_SB WHERE XMB <> LW_ZD600KOSTS-ZD600XMBID. DELETE LT_DWS WHERE ZD600XMBID <> LW_ZD600KOSTS-ZD600XMBID. PERFORM GJ USING LT_DATA LT_SB LT_DWS CHANGING LW_OUT_QN."统计相关数据 APPEND LW_OUT_BN TO LT_OUT_BN."将不同项目部本年度数据插入 APPEND LW_OUT_QN TO LT_OUT_QN."将不同项目部去年度数据插入 PERFORM PROCESS USING LW_OUT_BN LW_OUT_QN CHANGING LW_OUTPUT."计算输出数据 LW_OUTPUT-DW = LW_ZD600KOSTS-ZD600XMBMC. APPEND LW_OUTPUT TO G_OUTPUT. CLEAR:LW_OUTPUT,LW_OUT_BN,LW_OUT_QN. ENDLOOP. L_BN = 'X'. PERFORM HJ_DATA USING LT_OUT_BN L_BN CHANGING LW_OUT_BN."合计公司本年度数据 CLEAR:L_BN. PERFORM HJ_DATA USING LT_OUT_QN L_BN CHANGING LW_OUT_QN."合计公司去年度数据 PERFORM PROCESS USING LW_OUT_BN LW_OUT_QN CHANGING LW_OUTPUT. LW_OUTPUT-DW = '项目部合计'. LW_OUTPUT-COLOR = 'C400'. INSERT LW_OUTPUT INTO G_OUTPUT INDEX 1. CLEAR:LT_OUT_BN,LT_OUT_QN,L_JS,LW_OUTPUT,LW_OUT_BN,LW_OUT_QN. DESCRIBE TABLE G_OUTPUT LINES L_JS. L_JS = L_JS + 1. *********************取区块************************************ SELECT * INTO TABLE LT_ZD600QK FROM ZD600PSD003 WHERE ZD600DIVD IN S_SYB. SORT LT_ZD600QK BY ZD600DIVID. DELETE ADJACENT DUPLICATES FROM LT_ZD600QK COMPARING ZD600DIVID. *********************处理区块数据************************************ LOOP AT LT_ZD600QK INTO LW_ZD600QK. CLEAR:LT_DATA,LT_DWS,LT_SB. LT_DATA = G_DATA_BN. LT_SB = G_SB_BN. LT_DWS = VT_DWS_BN. DELETE LT_DATA WHERE QK <> LW_ZD600QK-ZD600DIVID."删除本年度非计算区块的数据 DELETE LT_SB WHERE QK <> LW_ZD600QK-ZD600DIVID. DELETE LT_DWS WHERE ZD600DIVID <> LW_ZD600QK-ZD600DIVID. PERFORM GJ USING LT_DATA LT_SB LT_DWS CHANGING LW_OUT_BN."统计相关数据 CLEAR:LT_DATA,LT_DWS,LT_SB. LT_DATA = G_DATA_QN. LT_SB = G_SB_QN. LT_DWS = VT_DWS_QN. DELETE LT_DATA WHERE QK <> LW_ZD600QK-ZD600DIVID."删除去年度非计算区块的数据 DELETE LT_SB WHERE QK <> LW_ZD600QK-ZD600DIVID. DELETE LT_DWS WHERE ZD600DIVID <> LW_ZD600QK-ZD600DIVID. PERFORM GJ USING LT_DATA LT_SB LT_DWS CHANGING LW_OUT_QN."统计相关数据 APPEND LW_OUT_BN TO LT_OUT_BN."将不同区块本年度数据插入 APPEND LW_OUT_QN TO LT_OUT_QN."将不同区块去年度数据插入 PERFORM PROCESS USING LW_OUT_BN LW_OUT_QN CHANGING LW_OUTPUT."计算输出数据 LW_OUTPUT-DW = LW_ZD600QK-ZD600DIVTX. APPEND LW_OUTPUT TO G_OUTPUT. CLEAR:LW_OUTPUT,LW_OUT_BN,LW_OUT_QN. ENDLOOP. L_BN = 'X'. PERFORM HJ_DATA USING LT_OUT_BN L_BN CHANGING LW_OUT_BN. CLEAR:L_BN. PERFORM HJ_DATA USING LT_OUT_QN L_BN CHANGING LW_OUT_QN. PERFORM PROCESS USING LW_OUT_BN LW_OUT_QN CHANGING LW_OUTPUT. LW_OUTPUT-DW = '区块合计'. LW_OUTPUT-COLOR = 'C400'. INSERT LW_OUTPUT INTO G_OUTPUT INDEX L_JS. CLEAR:LT_OUT_BN,LT_OUT_QN,L_JS,LW_OUTPUT,LW_OUT_BN,LW_OUT_QN. DESCRIBE TABLE G_OUTPUT LINES L_JS. L_JS = L_JS + 1. *********************处理装备类型数据************************************ LOOP AT G_ZB INTO LW_ZB. CLEAR:LT_DATA,LT_DWS,LT_SB. LT_DATA = G_DATA_BN. LT_SB = G_SB_BN. LT_DWS = VT_DWS_BN. DELETE LT_DATA WHERE ZBLX <> LW_ZB-ZBLXID. DELETE LT_SB WHERE ZBLX <> LW_ZB-ZBLXID. DELETE LT_DWS WHERE ZD600ZBLXID <> LW_ZB-ZBLXID. PERFORM GJ USING LT_DATA LT_SB LT_DWS CHANGING LW_OUT_BN. CLEAR:LT_DATA,LT_DWS,LT_SB. LT_DATA = G_DATA_QN. LT_SB = G_SB_QN. LT_DWS = VT_DWS_QN. DELETE LT_DATA WHERE ZBLX <> LW_ZB-ZBLXID. DELETE LT_SB WHERE ZBLX <> LW_ZB-ZBLXID. DELETE LT_DWS WHERE ZD600ZBLXID <> LW_ZB-ZBLXID. PERFORM GJ USING LT_DATA LT_SB LT_DWS CHANGING LW_OUT_QN. APPEND LW_OUT_BN TO LT_OUT_BN. APPEND LW_OUT_QN TO LT_OUT_QN. PERFORM PROCESS USING LW_OUT_BN LW_OUT_QN CHANGING LW_OUTPUT. LW_OUTPUT-DW = LW_ZB-ZBLXMS. APPEND LW_OUTPUT TO G_OUTPUT. CLEAR:LW_OUTPUT,LW_OUT_BN,LW_OUT_QN. ENDLOOP. L_BN = 'X'. PERFORM HJ_DATA USING LT_OUT_BN L_BN CHANGING LW_OUT_BN. CLEAR:L_BN. PERFORM HJ_DATA USING LT_OUT_QN L_BN CHANGING LW_OUT_QN. PERFORM PROCESS USING LW_OUT_BN LW_OUT_QN CHANGING LW_OUTPUT. LW_OUTPUT-DW = '装备合计'. LW_OUTPUT-COLOR = 'C400'. INSERT LW_OUTPUT INTO G_OUTPUT INDEX L_JS. CLEAR:LT_OUT_BN,LT_OUT_QN,L_JS,LW_OUTPUT,LW_OUT_BN,LW_OUT_QN. DESCRIBE TABLE G_OUTPUT LINES L_JS. L_JS = L_JS + 1. *********************处理甲方单位数据************************************ DATA:LT_JF LIKE G_JF, L_JF LIKE LW_JF, L_OBJNR LIKE IFLOT-OBJNR, L_JEST LIKE JEST-INACT, LW_DWS TYPE TYP_DWS. LT_JF = G_JF. DELETE ADJACENT DUPLICATES FROM LT_JF COMPARING JFID. LOOP AT LT_JF INTO LW_JF. CLEAR:LT_DATA,LT_DWS,LT_SB. LT_DATA = G_DATA_BN. LT_SB = G_SB_BN. "LT_DWS = VT_DWS_BN. DELETE LT_DATA WHERE JF <> LW_JF-JFID. LOOP AT G_JF INTO L_JF WHERE JFID = LW_JF-JFID. LOOP AT VT_DWS_BN INTO LW_DWS WHERE ZD600XMBID = L_JF-XMBID. APPEND LW_DWS TO LT_DWS. CLEAR:LW_DWS. ENDLOOP. CLEAR:L_JF. ENDLOOP. DELETE LT_SB WHERE JF <> LW_JF-JFID. PERFORM GJ USING LT_DATA LT_SB LT_DWS CHANGING LW_OUT_BN. CLEAR:LT_DATA,LT_DWS,LT_SB. LT_DATA = G_DATA_QN. LT_SB = G_SB_QN. "LT_DWS = VT_DWS_QN. DELETE LT_DATA WHERE JF <> LW_JF-JFID. LOOP AT G_JF INTO L_JF WHERE JFID = LW_JF-JFID. LOOP AT VT_DWS_QN INTO LW_DWS WHERE ZD600XMBID = L_JF-XMBID. APPEND LW_DWS TO LT_DWS. CLEAR:LW_DWS. ENDLOOP. CLEAR:L_JF. ENDLOOP. DELETE LT_SB WHERE JF <> LW_JF-JFID. "DELETE LT_DWS WHERE ZD600XMBID NOT IN LT_JF-ZD600XMBID. PERFORM GJ USING LT_DATA LT_SB LT_DWS CHANGING LW_OUT_QN. APPEND LW_OUT_BN TO LT_OUT_BN. APPEND LW_OUT_QN TO LT_OUT_QN. PERFORM PROCESS USING LW_OUT_BN LW_OUT_QN CHANGING LW_OUTPUT. LW_OUTPUT-DW = LW_JF-JFMC. APPEND LW_OUTPUT TO G_OUTPUT. CLEAR:LW_OUTPUT,LW_OUT_BN,LW_OUT_QN. ENDLOOP. L_BN = 'X'. PERFORM HJ_DATA USING LT_OUT_BN L_BN CHANGING LW_OUT_BN. CLEAR:L_BN. PERFORM HJ_DATA USING LT_OUT_QN L_BN CHANGING LW_OUT_QN. PERFORM PROCESS USING LW_OUT_BN LW_OUT_QN CHANGING LW_OUTPUT. LW_OUTPUT-DW = '甲方单位合计'. LW_OUTPUT-COLOR = 'C400'. INSERT LW_OUTPUT INTO G_OUTPUT INDEX L_JS. CLEAR:LT_OUT_BN,LT_OUT_QN,L_JS,LW_OUTPUT,LW_OUT_BN,LW_OUT_QN,LT_JF. DESCRIBE TABLE G_OUTPUT LINES L_JS. L_JS = L_JS + 1. ********************处理小队数据**************************************** SELECT KHINR INTO TABLE LT_KHINR2 FROM CSKS FOR ALL ENTRIES IN LT_ZD600KOSTS WHERE KOKRS = '9000' AND KOSTL = LT_ZD600KOSTS-ZD600XMBID."取项目部所属成本中心组 SELECT IFLOTX~TPLNR IFLOTX~PLTXT INTO TABLE LT_ZYXD FROM IFLOTX INNER JOIN IFLOT ON IFLOT~TPLNR = IFLOTX~TPLNR WHERE IFLOTX~SPRAS = SY-LANGU AND IFLOT~FLTYP = 'B'. LOOP AT LT_ZYXD INTO LW_ZYXD. *取作业队所属成本中心组 CLEAR: L_ILOAN,L_KOSTL. SELECT SINGLE ILOAN INTO L_ILOAN FROM IFLOT WHERE TPLNR = LW_ZYXD-ZD600TPLNRI. SELECT SINGLE KOSTL INTO L_KOSTL FROM ILOA WHERE ILOAN = L_ILOAN. SELECT SINGLE KHINR INTO L_KHINR1 FROM CSKS WHERE KOKRS = '9000' AND KOSTL = L_KOSTL. READ TABLE LT_KHINR2 WITH KEY KHINR = L_KHINR1. IF SY-SUBRC <> 0. "不在项目部的成本中心组范围内 DELETE LT_ZYXD WHERE ZD600TPLNRI = LW_ZYXD-ZD600TPLNRI. ENDIF. IF P_TY IS INITIAL. SELECT SINGLE OBJNR FROM IFLOT INTO L_OBJNR WHERE TPLNR = LW_ZYXD-ZD600TPLNRI. SELECT SINGLE INACT FROM JEST INTO L_JEST WHERE OBJNR = L_OBJNR AND STAT = 'E0004' AND INACT = ''. IF SY-SUBRC = 0. DELETE LT_ZYXD WHERE ZD600TPLNRI = LW_ZYXD-ZD600TPLNRI. ENDIF. ENDIF. ENDLOOP. LOOP AT LT_ZYXD INTO LW_ZYXD. CLEAR:LT_DATA,LT_DWS,LT_SB. LT_DATA = G_DATA_BN. LT_SB = G_SB_BN. LT_DWS = VT_DWS_BN. DELETE LT_DATA WHERE ZYD <> LW_ZYXD-ZD600TPLNRI. DELETE LT_SB WHERE ZYD <> LW_ZYXD-ZD600TPLNRI. DELETE LT_DWS WHERE ZD600TPLNRI <> LW_ZYXD-ZD600TPLNRI. PERFORM GJ USING LT_DATA LT_SB LT_DWS CHANGING LW_OUT_BN. CLEAR:LT_DATA,LT_DWS,LT_SB. LT_DATA = G_DATA_QN. LT_SB = G_SB_QN. LT_DWS = VT_DWS_QN. DELETE LT_DATA WHERE ZYD <> LW_ZYXD-ZD600TPLNRI. DELETE LT_SB WHERE ZYD <> LW_ZYXD-ZD600TPLNRI. DELETE LT_DWS WHERE ZD600TPLNRI <> LW_ZYXD-ZD600TPLNRI. PERFORM GJ USING LT_DATA LT_SB LT_DWS CHANGING LW_OUT_QN. APPEND LW_OUT_BN TO LT_OUT_BN. APPEND LW_OUT_QN TO LT_OUT_QN. PERFORM PROCESS USING LW_OUT_BN LW_OUT_QN CHANGING LW_OUTPUT. LW_OUTPUT-DW = LW_ZYXD-ZPLTXT. APPEND LW_OUTPUT TO G_OUTPUT. CLEAR:LW_OUTPUT,LW_OUT_BN,LW_OUT_QN. ENDLOOP. L_BN = 'X'. PERFORM HJ_DATA USING LT_OUT_BN L_BN CHANGING LW_OUT_BN. CLEAR:L_BN. PERFORM HJ_DATA USING LT_OUT_QN L_BN CHANGING LW_OUT_QN. PERFORM PROCESS USING LW_OUT_BN LW_OUT_QN CHANGING LW_OUTPUT. LW_OUTPUT-DW = '测井分队'. LW_OUTPUT-COLOR = 'C400'. INSERT LW_OUTPUT INTO G_OUTPUT INDEX L_JS. ENDFORM. " TI_SYB *&---------------------------------------------------------------------* *& Form TI_xmb *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM TI_XMB. TYPES: BEGIN OF TYP_KHINR, KHINR LIKE CSKS-KHINR, END OF TYP_KHINR. DATA: LT_ZYXD TYPE STANDARD TABLE OF ZD600PSS003, LW_ZYXD TYPE ZD600PSS003, LT_ZD600QK TYPE STANDARD TABLE OF ZD600PSD003, LW_ZD600QK TYPE ZD600PSD003 , LT_KHINR2 TYPE STANDARD TABLE OF TYP_KHINR WITH HEADER LINE, L_BN(1), L_JS TYPE I,"存放完事业部数据后记录输出内表行数，为插入装备合计行记录行位置. LW_ZB TYPE TYP_ZB," L_ILOAN LIKE ILOA-ILOAN, L_KOSTL LIKE ILOA-KOSTL, L_KHINR1 LIKE CSKS-KHINR , LT_OUT_BN LIKE G_OUTPUT,"存放单个事业部本年度合计数据内表 LW_OUT_BN LIKE LINE OF G_OUTPUT," LT_OUT_QN LIKE G_OUTPUT,"存放单个事业部去年度合计数据内表 LW_OUT_QN LIKE LINE OF G_OUTPUT," LW_OUTPUT TYPE TYP_OUTPUT," LT_DWS TYPE TABLE OF TYP_DWS, LW_JF TYPE TYP_JF, L_OBJNR LIKE IFLOT-OBJNR, L_JEST LIKE JEST-INACT, LT_SB TYPE TABLE OF TYP_SB, LT_DATA TYPE TABLE OF TYP_DATA."零时存放数据的内表，用于去掉不相关数据. *********************取区块************************************ SELECT * INTO TABLE LT_ZD600QK FROM ZD600PSD003 WHERE ZD600DIVD IN S_SYB. SORT LT_ZD600QK BY ZD600DIVID. DELETE ADJACENT DUPLICATES FROM LT_ZD600QK COMPARING ZD600DIVID. *********************处理区块数据************************************ LOOP AT LT_ZD600QK INTO LW_ZD600QK. CLEAR:LT_DATA,LT_DWS,LT_SB. LT_DATA = G_DATA_BN. LT_SB = G_SB_BN. LT_DWS = VT_DWS_BN. DELETE LT_DATA WHERE QK <> LW_ZD600QK-ZD600DIVID."删除本年度非计算区块的数据 DELETE LT_SB WHERE QK <> LW_ZD600QK-ZD600DIVID. DELETE LT_DWS WHERE ZD600DIVID <> LW_ZD600QK-ZD600DIVID. PERFORM GJ USING LT_DATA LT_SB LT_DWS CHANGING LW_OUT_BN."统计相关数据 CLEAR:LT_DATA,LT_DWS,LT_SB. LT_DATA = G_DATA_QN. LT_SB = G_SB_QN. LT_DWS = VT_DWS_QN. DELETE LT_DATA WHERE QK <> LW_ZD600QK-ZD600DIVID."删除去年度非计算区块的数据 DELETE LT_SB WHERE QK <> LW_ZD600QK-ZD600DIVID. DELETE LT_DWS WHERE ZD600DIVID <> LW_ZD600QK-ZD600DIVID. PERFORM GJ USING LT_DATA LT_SB LT_DWS CHANGING LW_OUT_QN."统计相关数据 APPEND LW_OUT_BN TO LT_OUT_BN."将不同区块本年度数据插入 APPEND LW_OUT_QN TO LT_OUT_QN."将不同区块去年度数据插入 PERFORM PROCESS USING LW_OUT_BN LW_OUT_QN CHANGING LW_OUTPUT."计算输出数据 LW_OUTPUT-DW = LW_ZD600QK-ZD600DIVTX. APPEND LW_OUTPUT TO G_OUTPUT. CLEAR:LW_OUTPUT,LW_OUT_BN,LW_OUT_QN. ENDLOOP. L_BN = 'X'. PERFORM HJ_DATA USING LT_OUT_BN L_BN CHANGING LW_OUT_BN. CLEAR:L_BN. PERFORM HJ_DATA USING LT_OUT_QN L_BN CHANGING LW_OUT_QN. PERFORM PROCESS USING LW_OUT_BN LW_OUT_QN CHANGING LW_OUTPUT. LW_OUTPUT-DW = '区块合计'. LW_OUTPUT-COLOR = 'C400'. INSERT LW_OUTPUT INTO G_OUTPUT INDEX 1. CLEAR:LT_OUT_BN,LT_OUT_QN,L_JS,LW_OUTPUT,LW_OUT_BN,LW_OUT_QN. DESCRIBE TABLE G_OUTPUT LINES L_JS. L_JS = L_JS + 1. *********************处理装备类型数据************************************ LOOP AT G_ZB INTO LW_ZB. CLEAR:LT_DATA,LT_DWS,LT_SB. LT_DATA = G_DATA_BN. LT_SB = G_SB_BN. LT_DWS = VT_DWS_BN. DELETE LT_DATA WHERE ZBLX <> LW_ZB-ZBLXID. DELETE LT_SB WHERE ZBLX <> LW_ZB-ZBLXID. DELETE LT_DWS WHERE ZD600ZBLXID <> LW_ZB-ZBLXID. PERFORM GJ USING LT_DATA LT_SB LT_DWS CHANGING LW_OUT_BN. CLEAR:LT_DATA,LT_DWS,LT_SB. LT_DATA = G_DATA_QN. LT_SB = G_SB_QN. LT_DWS = VT_DWS_QN. DELETE LT_DATA WHERE ZBLX <> LW_ZB-ZBLXID. DELETE LT_SB WHERE ZBLX <> LW_ZB-ZBLXID. DELETE LT_DWS WHERE ZD600ZBLXID <> LW_ZB-ZBLXID. PERFORM GJ USING LT_DATA LT_SB LT_DWS CHANGING LW_OUT_QN. APPEND LW_OUT_BN TO LT_OUT_BN. APPEND LW_OUT_QN TO LT_OUT_QN. PERFORM PROCESS USING LW_OUT_BN LW_OUT_QN CHANGING LW_OUTPUT. LW_OUTPUT-DW = LW_ZB-ZBLXMS. APPEND LW_OUTPUT TO G_OUTPUT. CLEAR:LW_OUTPUT,LW_OUT_BN,LW_OUT_QN. ENDLOOP. L_BN = 'X'. PERFORM HJ_DATA USING LT_OUT_BN L_BN CHANGING LW_OUT_BN. CLEAR:L_BN. PERFORM HJ_DATA USING LT_OUT_QN L_BN CHANGING LW_OUT_QN. PERFORM PROCESS USING LW_OUT_BN LW_OUT_QN CHANGING LW_OUTPUT. LW_OUTPUT-DW = '装备合计'. LW_OUTPUT-COLOR = 'C400'. INSERT LW_OUTPUT INTO G_OUTPUT INDEX L_JS. CLEAR:LT_OUT_BN,LT_OUT_QN,L_JS,LW_OUTPUT,LW_OUT_BN,LW_OUT_QN. DESCRIBE TABLE G_OUTPUT LINES L_JS. L_JS = L_JS + 1. *********************处理甲方单位数据************************************ SELECT ZD600XMZID AS JFID"甲方单位ID ZD600XMBID AS XMBID"项目部ID ZD600XMZMC AS JFMC"甲方单位名称 FROM ZD600PSD012 APPENDING CORRESPONDING FIELDS OF TABLE G_JF WHERE ZD600XMBID IN S_XMB. SORT G_JF BY JFID XMBID. DELETE ADJACENT DUPLICATES FROM G_JF COMPARING ALL FIELDS. LOOP AT G_JF INTO LW_JF. CLEAR:LT_DATA,LT_DWS,LT_SB. LT_DATA = G_DATA_BN. LT_SB = G_SB_BN. LT_DWS = VT_DWS_BN. DELETE LT_DATA WHERE JF <> LW_JF-JFID. DELETE LT_SB WHERE JF <> LW_JF-JFID. DELETE LT_DWS WHERE ZD600XMBID NOT IN S_XMB. PERFORM GJ USING LT_DATA LT_SB LT_DWS CHANGING LW_OUT_BN. CLEAR:LT_DATA,LT_DWS,LT_SB. LT_DATA = G_DATA_QN. LT_SB = G_SB_QN. LT_DWS = VT_DWS_QN. DELETE LT_DATA WHERE JF <> LW_JF-JFID. DELETE LT_SB WHERE JF <> LW_JF-JFID. DELETE LT_DWS WHERE ZD600XMBID NOT IN S_XMB. PERFORM GJ USING LT_DATA LT_SB LT_DWS CHANGING LW_OUT_QN. APPEND LW_OUT_BN TO LT_OUT_BN. APPEND LW_OUT_QN TO LT_OUT_QN. PERFORM PROCESS USING LW_OUT_BN LW_OUT_QN CHANGING LW_OUTPUT. LW_OUTPUT-DW = LW_JF-JFMC. APPEND LW_OUTPUT TO G_OUTPUT. CLEAR:LW_OUTPUT,LW_OUT_BN,LW_OUT_QN. ENDLOOP. L_BN = 'X'. PERFORM HJ_DATA USING LT_OUT_BN L_BN CHANGING LW_OUT_BN. CLEAR:L_BN. PERFORM HJ_DATA USING LT_OUT_QN L_BN CHANGING LW_OUT_QN. PERFORM PROCESS USING LW_OUT_BN LW_OUT_QN CHANGING LW_OUTPUT. LW_OUTPUT-DW = '甲方单位合计'. LW_OUTPUT-COLOR = 'C400'. INSERT LW_OUTPUT INTO G_OUTPUT INDEX L_JS. CLEAR:LT_OUT_BN,LT_OUT_QN,L_JS,LW_OUTPUT,LW_OUT_BN,LW_OUT_QN. DESCRIBE TABLE G_OUTPUT LINES L_JS. L_JS = L_JS + 1. *********************处理小队数据**************************************** SELECT KHINR INTO TABLE LT_KHINR2 FROM CSKS WHERE KOKRS = '9000' AND KOSTL IN S_XMB."取项目部所属成本中心组 SELECT IFLOTX~TPLNR IFLOTX~PLTXT INTO TABLE LT_ZYXD FROM IFLOTX INNER JOIN IFLOT ON IFLOT~TPLNR = IFLOTX~TPLNR WHERE IFLOTX~SPRAS = SY-LANGU AND IFLOT~FLTYP = 'B'. "AND ( IFLOTX~PLTXT NOT LIKE '[停用]%' OR IFLOTX~PLTXT NOT LIKE '%作废%' ). LOOP AT LT_ZYXD INTO LW_ZYXD. *取作业队所属成本中心组 CLEAR: L_ILOAN,L_KOSTL. SELECT SINGLE ILOAN INTO L_ILOAN FROM IFLOT WHERE TPLNR = LW_ZYXD-ZD600TPLNRI. SELECT SINGLE KOSTL INTO L_KOSTL FROM ILOA WHERE ILOAN = L_ILOAN. SELECT SINGLE KHINR INTO L_KHINR1 FROM CSKS WHERE KOKRS = '9000' AND KOSTL = L_KOSTL. READ TABLE LT_KHINR2 WITH KEY KHINR = L_KHINR1. IF SY-SUBRC <> 0. "不在项目部的成本中心组范围内 DELETE LT_ZYXD WHERE ZD600TPLNRI = LW_ZYXD-ZD600TPLNRI. ENDIF. * READ TABLE VT_DW WITH KEY ZD600TPLNRI = LW_ZYXD-ZD600TPLNRI. * IF SY-SUBRC <> 0. * IF LW_ZYXD-ZPLTXT(4) = '[停用]'. * DELETE LT_ZYXD WHERE ZD600TPLNRI = LW_ZYXD-ZD600TPLNRI. * ENDIF. * ENDIF. IF P_TY IS INITIAL. SELECT SINGLE OBJNR FROM IFLOT INTO L_OBJNR WHERE TPLNR = LW_ZYXD-ZD600TPLNRI. SELECT SINGLE INACT FROM JEST INTO L_JEST WHERE OBJNR = L_OBJNR AND STAT = 'E0004' AND INACT = ''. IF SY-SUBRC = 0. DELETE LT_ZYXD WHERE ZD600TPLNRI = LW_ZYXD-ZD600TPLNRI. ENDIF. ENDIF. CLEAR:LW_ZYXD. ENDLOOP. SORT LT_ZYXD BY ZPLTXT DESCENDING. LOOP AT LT_ZYXD INTO LW_ZYXD. CLEAR:LT_DATA,LT_DWS,LT_SB. LT_DATA = G_DATA_BN. LT_SB = G_SB_BN. LT_DWS = VT_DWS_BN. DELETE LT_DATA WHERE ZYD <> LW_ZYXD-ZD600TPLNRI. DELETE LT_SB WHERE ZYD <> LW_ZYXD-ZD600TPLNRI. DELETE LT_DWS WHERE ZD600TPLNRI <> LW_ZYXD-ZD600TPLNRI. PERFORM GJ USING LT_DATA LT_SB LT_DWS CHANGING LW_OUT_BN. CLEAR:LT_DATA,LT_DWS,LT_SB. LT_DATA = G_DATA_QN. LT_SB = G_SB_QN. LT_DWS = VT_DWS_BN. DELETE LT_DATA WHERE ZYD <> LW_ZYXD-ZD600TPLNRI. DELETE LT_SB WHERE ZYD <> LW_ZYXD-ZD600TPLNRI. DELETE LT_DWS WHERE ZD600TPLNRI <> LW_ZYXD-ZD600TPLNRI. PERFORM GJ USING LT_DATA LT_SB LT_DWS CHANGING LW_OUT_QN. APPEND LW_OUT_BN TO LT_OUT_BN. APPEND LW_OUT_QN TO LT_OUT_QN. PERFORM PROCESS USING LW_OUT_BN LW_OUT_QN CHANGING LW_OUTPUT. LW_OUTPUT-DW = LW_ZYXD-ZPLTXT. APPEND LW_OUTPUT TO G_OUTPUT. CLEAR:LW_OUTPUT,LW_OUT_BN,LW_OUT_QN. ENDLOOP. L_BN = 'X'. PERFORM HJ_DATA USING LT_OUT_BN L_BN CHANGING LW_OUT_BN. CLEAR:L_BN. PERFORM HJ_DATA USING LT_OUT_QN L_BN CHANGING LW_OUT_QN. PERFORM PROCESS USING LW_OUT_BN LW_OUT_QN CHANGING LW_OUTPUT. LW_OUTPUT-DW = '测井分队'. LW_OUTPUT-COLOR = 'C400'. INSERT LW_OUTPUT INTO G_OUTPUT INDEX L_JS. CLEAR:LT_OUT_BN,LT_OUT_QN,LW_OUTPUT,LW_OUT_BN,LW_OUT_QN,L_JS. ENDFORM. "ti_xmb *&---------------------------------------------------------------------* *& Form gj *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->P_G_DATA_BN text * -->P_WK_ZD600SYB_SYBID text * <--P_LW_OUT_BN text *----------------------------------------------------------------------* FORM GJ USING PT_DATA LIKE G_DATA_BN PT_SB LIKE G_SB_BN PT_DWS LIKE VT_DWS_BN CHANGING PW_OUT LIKE LINE OF G_OUTPUT. DATA:LW_DATA TYPE TYP_DATA, LW_SB TYPE TYP_SB, L_ZZYTS TYPE I,"总作业时间 L_XCZYTS TYPE I,"现场总作业天数 L_ZZYM TYPE I,"总作业时间 L_XCZYM TYPE I,"总现场作业时间 L_ZYD TYPE P DECIMALS 2,"作业队 LT_DATA TYPE TABLE OF TYP_DATA, LT_DW_TEMP TYPE TABLE OF TYP_DWS, L_WEEK TYPE I, L_TJZYTS TYPE I,"探井作业天数 L_TJZYSJ TYPE I,"探井作业实践 L_KFJZYTS TYPE I,"开发井作业天数 L_KFJZYSJ TYPE I,"开发井作业时间 L_GJZYTS TYPE I,"固井作业天数 L_GJZYSJ TYPE I,"固井作业时间 L_SCJZYTS TYPE I,"生产井作业天数 L_SCJZYSJ TYPE I,"生产井作业时间 L_DXJZYTS TYPE I,"单项井作业天数 L_DXJZYSJ TYPE I,"单项井作业时间 L_TJXCTS TYPE I,"探井现场天数 L_TJXCSJ TYPE I,"探井现场时间 L_KFJXCTS TYPE I,"开发井现场天数 L_KFJXCSJ TYPE I,"开发井现场时间 L_GJXCTS TYPE I,"固井现场天数 L_GJXCSJ TYPE I,"固井现场时间 L_SCJXCTS TYPE I,"生产井现场天数 L_SCJXCSJ TYPE I,"生产井现场时间 L_DXJXCTS TYPE I,"单项井现场天数 L_DXJXCSJ TYPE I,"单项井现场时间 L_WJSB TYPE I,"完井环境因素失败 L_GJSB TYPE I,"固井环境因素失败 L_SCJSB TYPE I,"生产井环境因素失败 L_DXJSB TYPE I,"单项井环境因素失败 L_WJDB TYPE I,"完井打捞标准化 L_GJDB TYPE I,"固井打捞标准化 L_SCJDB TYPE I,"生产井打捞标准化 L_DXJDB TYPE I,"单项井打捞标准化 L_WJJC TYPE I,"完井井次 L_GJJC TYPE I,"固井井次 L_SCJC TYPE I,"生产井井次 L_DXJC TYPE I,"单项井井次 L_TJSTS TYPE I,"探井解释天数 L_TJSSJ TYPE I,"探井解释时间 L_KJSTS TYPE I,"开发井解释天数 L_KJSSJ TYPE I."开发井解释时间 CLEAR:PW_OUT. LOOP AT PT_DATA INTO LW_DATA."循环内表统计信息 PW_OUT-ZCCJC = PW_OUT-ZCCJC + 1. IF LW_DATA-YZ IS NOT INITIAL. PW_OUT-YZJC = PW_OUT-YZJC + 1."遇阻井次和 ELSEIF LW_DATA-QT IS NOT INITIAL. PW_OUT-QTJC = PW_OUT-QTJC + 1."其他井次和 ELSEIF LW_DATA-KP IS NOT INITIAL. PW_OUT-KPJC = PW_OUT-KPJC + 1."空跑井次和 ELSEIF LW_DATA-YQ IS NOT INITIAL. PW_OUT-YQJC = PW_OUT-YQJC + 1. ELSEIF LW_DATA-BZH IS NOT INITIAL."标准化 PW_OUT-BZHJC = PW_OUT-BZHJC + 1. ELSEIF LW_DATA-TL IS NOT INITIAL."打捞作业 PW_OUT-DLJC = PW_OUT-DLJC + 1. ELSE. PW_OUT-ZJC = PW_OUT-ZJC + 1. CASE LW_DATA-RESLX. WHEN '001'. IF LW_DATA-JB BETWEEN '001' AND '012'. PW_OUT-TJJC = PW_OUT-TJJC + 1. IF LW_DATA-JSTJ = 'X'. PW_OUT-TJJSJC = PW_OUT-TJJSJC + 1. ELSE. PW_OUT-TJJSJC = PW_OUT-TJJSJC - 1. ENDIF. L_TJSTS = L_TJSTS + LW_DATA-JSTS. L_TJSSJ = L_TJSSJ + LW_DATA-JSSJ. ELSEIF LW_DATA-JB BETWEEN '051' AND '065'. PW_OUT-KFJC = PW_OUT-KFJC + 1. IF LW_DATA-JSTJ = 'X'. PW_OUT-KFJSJC = PW_OUT-KFJSJC + 1. ELSE. PW_OUT-KFJSJC = PW_OUT-KFJSJC - 1. ENDIF. L_KJSTS = L_KJSTS + LW_DATA-JSTS. L_KJSSJ = L_KJSSJ + LW_DATA-JSSJ. ENDIF. WHEN '002'. PW_OUT-GJJC = PW_OUT-GJJC + 1. WHEN '003'. PW_OUT-SCJC = PW_OUT-SCJC + 1. WHEN '010'. PW_OUT-DXJC = PW_OUT-DXJC + 1. ENDCASE. ENDIF. L_ZZYTS = L_ZZYTS + LW_DATA-ZYTS."总作业天数和 L_XCZYTS = L_XCZYTS + LW_DATA-XCTS."现场作业天数和 L_ZZYM = L_ZZYM + LW_DATA-ZYSJ."总作业时间和 L_XCZYM = L_XCZYM + LW_DATA-XCSJ."现场作业时间和 CASE LW_DATA-RESLX."通过不同任务书类型，判断不同类型测井井次 WHEN '001'. L_WJJC = L_WJJC + 1. PW_OUT-WJXJ = PW_OUT-WJXJ + LW_DATA-XJCS."完井仪器下井总次数 PW_OUT-WJXJCG = PW_OUT-WJXJCG + LW_DATA-CGCS."完井仪器下井成功总次数 PW_OUT-WJHJSB = PW_OUT-WJHJSB + LW_DATA-HJSB. IF LW_DATA-BZH = 'X' OR LW_DATA-TL = 'X'. L_WJDB = L_WJDB + 1. ENDIF. IF LW_DATA-JB BETWEEN '001' AND '012'. L_TJZYTS = L_TJZYTS + LW_DATA-ZYTS."探井作业天数 L_TJZYSJ = L_TJZYSJ + LW_DATA-ZYSJ."探井作业时间 L_TJXCTS = L_TJXCTS + LW_DATA-XCTS."探井现场天数 L_TJXCSJ = L_TJXCSJ + LW_DATA-XCSJ."探井现场时间 ELSEIF LW_DATA-JB BETWEEN '051' AND '065'. L_KFJZYTS = L_KFJZYTS + LW_DATA-ZYTS."开发井作业天数 L_KFJZYSJ = L_KFJZYSJ + LW_DATA-ZYSJ."开发井作业时间 L_KFJXCTS = L_KFJXCTS + LW_DATA-XCTS."开发井现场天数 L_KFJXCSJ = L_KFJXCSJ + LW_DATA-XCSJ."开发井现场时间 ENDIF. WHEN '002'. L_GJJC = L_GJJC + 1. L_GJZYTS = L_GJZYTS + LW_DATA-ZYTS."固井作业天数 L_GJZYSJ = L_GJZYSJ + LW_DATA-ZYSJ."固井作业时间 L_GJXCTS = L_GJXCTS + LW_DATA-XCTS."固井现场天数 L_GJXCSJ = L_GJXCSJ + LW_DATA-XCSJ."固井现场时间 PW_OUT-GJXJ = PW_OUT-GJXJ + LW_DATA-XJCS."固井仪器下井总次数 PW_OUT-GJXJCG = PW_OUT-GJXJCG + LW_DATA-CGCS."固井仪器下井成功总次数 PW_OUT-GJHJSB = PW_OUT-GJHJSB + LW_DATA-HJSB. IF LW_DATA-BZH = 'X' OR LW_DATA-TL = 'X'. L_GJDB = L_GJDB + 1. ENDIF. WHEN '003'. L_SCJC = L_SCJC + 1. L_SCJZYTS = L_SCJZYTS + LW_DATA-ZYTS."生产井作业天数 L_SCJZYSJ = L_SCJZYSJ + LW_DATA-ZYSJ."生产井作业时间 L_SCJXCTS = L_SCJXCTS + LW_DATA-XCTS."生产井现场天数 L_SCJXCSJ = L_SCJXCSJ + LW_DATA-XCSJ."生产井现场时间 PW_OUT-SCXJ = PW_OUT-SCXJ + LW_DATA-XJCS."生产井仪器下井总次数 PW_OUT-SCXJCG = PW_OUT-SCXJCG + LW_DATA-CGCS."生产井仪器下井成功总次数 PW_OUT-SCHJSB = PW_OUT-SCHJSB + LW_DATA-HJSB. IF LW_DATA-BZH = 'X' OR LW_DATA-TL = 'X'. L_SCJDB = L_SCJDB + 1. ENDIF. WHEN '010'. L_DXJC = L_DXJC + 1. L_DXJZYTS = L_DXJZYTS + LW_DATA-ZYTS."单项井作业天数 L_DXJZYSJ = L_DXJZYSJ + LW_DATA-ZYTS."单项井作业时间 L_DXJXCTS = L_DXJXCTS + LW_DATA-XCTS."单项井现场天数 L_DXJXCSJ = L_DXJXCSJ + LW_DATA-XCTS."单项井现场时间 PW_OUT-DXXJ = PW_OUT-DXXJ + LW_DATA-XJCS."单项测井仪器下井总次数 PW_OUT-DXXJCG = PW_OUT-DXXJCG + LW_DATA-CGCS."单项测井仪器下井成功总次数 PW_OUT-DXHJSB = PW_OUT-DXHJSB + LW_DATA-HJSB. IF LW_DATA-BZH = 'X' OR LW_DATA-TL = 'X'. L_DXJDB = L_DXJDB + 1. ENDIF. ENDCASE. IF LW_DATA-JB BETWEEN '001' AND '012'. PW_OUT-TJQX = PW_OUT-TJQX + LW_DATA-GC."探井曲线条数 PW_OUT-TJHGQX = PW_OUT-TJHGQX + LW_DATA-HG."探井合格曲线条数 PW_OUT-TJYZQX = PW_OUT-TJYZQX + LW_DATA-YD."探井优质曲线条数 PW_OUT-TJCLM = PW_OUT-TJCLM + LW_DATA-CLM. PW_OUT-TJSDM = PW_OUT-TJSDM + LW_DATA-SDM. PW_OUT-TJJSM = PW_OUT-TJJSM + LW_DATA-JSM. PW_OUT-TJCS = PW_OUT-TJCS + LW_DATA-JSCS."探井层数 PW_OUT-TJYQCS = PW_OUT-TJYQCS + LW_DATA-SBCS."探井油气识别层数 PW_OUT-TJYQHD = PW_OUT-TJYQHD + LW_DATA-SBHD."探井油气识别厚度 * PW_OUT-TJSYQCS = PW_OUT-TJSYQCS + LW_DATA-SYCS."探井试油气总层数 * PW_OUT-TJFHCS = PW_OUT-TJFHCS + LW_DATA-FHCS."探井符合层数 ELSEIF LW_DATA-JB BETWEEN '051' AND '065'. PW_OUT-KFQX = PW_OUT-KFQX + LW_DATA-GC."开发井曲线条数 PW_OUT-KFHGQX = PW_OUT-KFHGQX + LW_DATA-HG."开发井合格曲线条数 PW_OUT-KFYZQX = PW_OUT-KFYZQX + LW_DATA-YD."开发井优质曲线条数 PW_OUT-KFCLM = PW_OUT-KFCLM + LW_DATA-CLM. PW_OUT-KFSDM = PW_OUT-KFSDM + LW_DATA-SDM. PW_OUT-KFJSM = PW_OUT-KFJSM + LW_DATA-JSM. PW_OUT-KFCS = PW_OUT-KFCS + LW_DATA-JSCS."开发井层数 PW_OUT-KFYQCS = PW_OUT-KFYQCS + LW_DATA-SBCS."开发井油气识别层数 PW_OUT-KFYQHD = PW_OUT-KFYQHD + LW_DATA-SBHD."开发井油气识别厚度 * PW_OUT-KFSYQCS = PW_OUT-KFSYQCS + LW_DATA-SYCS."开发井试油气总层数 * PW_OUT-KFFHCS = PW_OUT-KFFHCS + LW_DATA-FHCS."开发井符合层数 ELSEIF LW_DATA-JB BETWEEN '101' AND '113'. PW_OUT-SCQX = PW_OUT-SCQX + LW_DATA-GC."生产井曲线条数 PW_OUT-SCHGQX = PW_OUT-SCHGQX + LW_DATA-HG."生产井合格曲线条数 PW_OUT-SCYZQX = PW_OUT-SCYZQX + LW_DATA-YD."生产井优质曲线条数 ENDIF. CLEAR:LW_DATA. ENDLOOP. LOOP AT PT_SB INTO LW_SB. IF LW_SB-JB BETWEEN '001' AND '012'. PW_OUT-TJSYQCS = PW_OUT-TJSYQCS + 1."探井试油气总层数 IF LW_SB-FH <> ''. PW_OUT-TJFHCS = PW_OUT-TJFHCS + 1."探井符合层数 ENDIF. ELSEIF LW_SB-JB BETWEEN '051' AND '065'. PW_OUT-KFSYQCS = PW_OUT-KFSYQCS + 1."开发井试油气总层数 IF LW_SB-FH <> ''. PW_OUT-KFFHCS = PW_OUT-KFFHCS + 1."开发井符合层数 ENDIF. ENDIF. ENDLOOP. **************计算总井口数******************** DATA:LT_DATA1 LIKE LT_DATA. CLEAR:LT_DATA. LT_DATA = PT_DATA. SORT LT_DATA BY RESLX. DELETE LT_DATA WHERE RESLX <> '001'. DELETE LT_DATA WHERE ( YZ = 'X' OR QT = 'X' OR KP = 'X' OR YQ = 'X' OR TL = 'X' OR BZH = 'X' ). LT_DATA1 = LT_DATA. SORT LT_DATA BY JB. DELETE LT_DATA WHERE JB NOT BETWEEN '001' AND '012'. SORT LT_DATA BY JH. DELETE ADJACENT DUPLICATES FROM LT_DATA COMPARING JH. DESCRIBE TABLE LT_DATA LINES PW_OUT-TJKS."探井口数 SORT LT_DATA1 BY JB. DELETE LT_DATA1 WHERE JB NOT BETWEEN '051' AND '065'. SORT LT_DATA1 BY JH. DELETE ADJACENT DUPLICATES FROM LT_DATA1 COMPARING JH. DESCRIBE TABLE LT_DATA1 LINES PW_OUT-KFKS."开发井口数 PW_OUT-XJKS = PW_OUT-TJKS + PW_OUT-KFKS."小计口数 PW_OUT-TJJJM = PW_OUT-TJCLM + PW_OUT-TJSDM. PW_OUT-KFJJM = PW_OUT-KFCLM + PW_OUT-KFSDM. PW_OUT-HJQX = PW_OUT-TJQX + PW_OUT-KFQX + PW_OUT-SCQX."合计曲线条数 PW_OUT-HJHGQX = PW_OUT-TJHGQX + PW_OUT-KFHGQX + PW_OUT-SCHGQX."合计合格曲线条数 PW_OUT-HJYZQX = PW_OUT-TJYZQX + PW_OUT-KFYZQX + PW_OUT-SCYZQX."合计优质曲线条数 ***************计算曲线合格率、优等率********* IF PW_OUT-HJQX = 0. PW_OUT-QXHGL = 0. PW_OUT-QXYZL = 0. ELSE. PW_OUT-QXHGL = PW_OUT-HJHGQX / PW_OUT-HJQX * 100. PW_OUT-QXYZL = PW_OUT-HJYZQX / PW_OUT-HJQX * 100. ENDIF. PW_OUT-TJJSSJ = L_TJSTS * 24 + L_TJSSJ / 3600. IF PW_OUT-TJJSJC = 0. PW_OUT-TJZLJS = 0. ELSE. PW_OUT-TJZLJS = PW_OUT-TJJSSJ / PW_OUT-TJJSJC."探井平均资料解释时间 ENDIF. PW_OUT-KFJSSJ = L_KJSTS * 24 + L_KJSSJ / 3600. IF PW_OUT-KFJSJC = 0. PW_OUT-KFZLJS = 0. ELSE. PW_OUT-KFZLJS = PW_OUT-KFJSSJ / PW_OUT-KFJSJC."开发井平均资料解释时间 ENDIF. IF PW_OUT-TJSYQCS = 0. PW_OUT-TJSBZQL = 0. ELSE. PW_OUT-TJSBZQL = PW_OUT-TJFHCS / PW_OUT-TJSYQCS * 100."探井识别准确率 ENDIF. IF PW_OUT-KFSYQCS = 0. PW_OUT-KFSBZQL = 0. ELSE. PW_OUT-KFSBZQL = PW_OUT-KFFHCS / PW_OUT-KFSYQCS * 100."开发井识别准确率 ENDIF. PW_OUT-ZHSYQCS = PW_OUT-TJSYQCS + PW_OUT-KFSYQCS. "综合试油气总层数 PW_OUT-ZHFHCS = PW_OUT-TJFHCS + PW_OUT-KFFHCS. "综合符合层数 IF PW_OUT-ZHSYQCS = 0. PW_OUT-ZHSBZQL = 0. ELSE. PW_OUT-ZHSBZQL = PW_OUT-ZHFHCS / PW_OUT-ZHSYQCS * 100. "综合识别准确率 ENDIF. PW_OUT-WXHJ = PW_OUT-YZJC + PW_OUT-QTJC + PW_OUT-KPJC + PW_OUT-YQJC + PW_OUT-BZHJC + PW_OUT-DLJC."遇阻、其它、空跑合计 PW_OUT-XJJC = PW_OUT-TJJC + PW_OUT-KFJC."小计井次 PW_OUT-XJHJ = PW_OUT-WJXJ + PW_OUT-GJXJ + PW_OUT-SCXJ + PW_OUT-DXXJ."仪器下井总次数合计 PW_OUT-XJHJCG = PW_OUT-WJXJCG + PW_OUT-GJXJCG + PW_OUT-SCXJCG + PW_OUT-DXXJCG."仪器下井总成功次数合计 IF PW_OUT-WJXJ = PW_OUT-WJHJSB. PW_OUT-WJYQCGL = 0. ELSE. PW_OUT-WJYQCGL = PW_OUT-WJXJCG / ( PW_OUT-WJXJ - PW_OUT-WJHJSB ) * 100."完井仪器下井成功率 ENDIF. IF PW_OUT-GJXJ = PW_OUT-GJHJSB. PW_OUT-GJYQCGL = 0. ELSE. PW_OUT-GJYQCGL = PW_OUT-GJXJCG / ( PW_OUT-GJXJ - PW_OUT-GJHJSB ) * 100."固井仪器下井成功率 ENDIF. IF PW_OUT-SCXJ = PW_OUT-SCHJSB. PW_OUT-SCYQCGL = 0. ELSE. PW_OUT-SCYQCGL = PW_OUT-SCXJCG / ( PW_OUT-SCXJ - PW_OUT-SCHJSB ) * 100."生产仪器下井成功率 ENDIF. IF PW_OUT-DXXJ = PW_OUT-DXHJSB. PW_OUT-DXYQCGL = 0. ELSE. PW_OUT-DXYQCGL = PW_OUT-DXXJCG / ( PW_OUT-DXXJ - PW_OUT-DXHJSB ) * 100."单项测井仪器下井成功率 ENDIF. DATA: L_JJ TYPE I, L_JJF TYPE P DECIMALS 2. L_JJ = PW_OUT-WJXJ + PW_OUT-GJXJ + PW_OUT-SCXJ + PW_OUT-DXXJ - PW_OUT-WJHJSB - PW_OUT-GJHJSB - PW_OUT-SCHJSB - PW_OUT-DXHJSB. IF L_JJ = 0. PW_OUT-ZHYQCGL = 0. ELSE. PW_OUT-ZHYQCGL = ( PW_OUT-WJXJCG + PW_OUT-GJXJCG + PW_OUT-SCXJCG + PW_OUT-DXXJCG ) / ( PW_OUT-WJXJ + PW_OUT-GJXJ + PW_OUT-SCXJ + PW_OUT-DXXJ - PW_OUT-WJHJSB - PW_OUT-GJHJSB - PW_OUT-SCHJSB - PW_OUT-DXHJSB ) * 100."综合仪器下井成功率 CLEAR:L_JJ. ENDIF. IF PW_OUT-WJXJ = 0. PW_OUT-WJCJCGL = 0. ELSE. PW_OUT-WJCJCGL = PW_OUT-WJXJCG / PW_OUT-WJXJ * 100."完井测井成功率 ENDIF. IF PW_OUT-GJXJ = 0. PW_OUT-GJCJCGL = 0. ELSE. PW_OUT-GJCJCGL = PW_OUT-GJXJCG / PW_OUT-GJXJ * 100."固井测井成功率 ENDIF. IF PW_OUT-SCXJ = 0. PW_OUT-SCCJCGL = 0. ELSE. PW_OUT-SCCJCGL = PW_OUT-SCXJCG / PW_OUT-SCXJ * 100."生产测井成功率 ENDIF. IF PW_OUT-DXXJ = 0. PW_OUT-DXCJCGL = 0. ELSE. PW_OUT-DXCJCGL = PW_OUT-DXXJCG / PW_OUT-DXXJ * 100."单项测井成功率 ENDIF. L_JJ = PW_OUT-WJXJ + PW_OUT-GJXJ + PW_OUT-SCXJ + PW_OUT-DXXJ. IF L_JJ = 0. PW_OUT-ZHCJCGL = 0. ELSE. PW_OUT-ZHCJCGL = ( PW_OUT-WJXJCG + PW_OUT-GJXJCG + PW_OUT-SCXJCG + PW_OUT-DXXJCG ) / ( PW_OUT-WJXJ + PW_OUT-GJXJ + PW_OUT-SCXJ + PW_OUT-DXXJ ) * 100."综合测井成功率 CLEAR:L_JJ. ENDIF. PW_OUT-WJDB = L_WJJC - L_WJDB. IF PW_OUT-WJDB = 0. PW_OUT-WJZYCGL = 0. ELSE. PW_OUT-WJZYCGL = PW_OUT-XJJC / PW_OUT-WJDB * 100."完井作业成功率 ENDIF. PW_OUT-GJDB = L_GJJC - L_GJDB. IF PW_OUT-GJDB = 0. PW_OUT-GJZYCGL = 0. ELSE. PW_OUT-GJZYCGL = PW_OUT-GJJC / PW_OUT-GJDB * 100."固井作业成功率 ENDIF. PW_OUT-SCDB = L_SCJC - L_SCJDB. IF PW_OUT-SCDB = 0. PW_OUT-SCZYCGL = 0. ELSE. PW_OUT-SCZYCGL = PW_OUT-SCJC / PW_OUT-SCDB * 100."生产作业成功率 ENDIF. PW_OUT-DXDB = L_DXJC - L_DXJDB. IF PW_OUT-DXDB = 0. PW_OUT-DXZYCGL = 0. ELSE. PW_OUT-DXZYCGL = PW_OUT-DXJC / PW_OUT-DXDB * 100."单项作业成功率 ENDIF. L_JJ = PW_OUT-WJDB + PW_OUT-GJDB + PW_OUT-SCDB + PW_OUT-DXDB. IF L_JJ = 0. PW_OUT-ZHZYCGL = 0. ELSE. PW_OUT-ZHZYCGL = ( PW_OUT-XJJC + PW_OUT-GJJC + PW_OUT-SCJC + PW_OUT-DXJC ) / ( PW_OUT-WJDB + PW_OUT-GJDB + PW_OUT-SCDB + PW_OUT-DXDB ) * 100."综合作业成功率 CLEAR:L_JJ. ENDIF. PW_OUT-ZSJ = L_ZZYTS * 24 + L_ZZYM / 3600."计算总作业时间（小时） PW_OUT-TJZYSJ = L_TJZYTS * 24 + L_TJZYSJ / 3600."计算探井作业时间（小时） PW_OUT-KJZYSJ = L_KFJZYTS * 24 + L_KFJZYSJ / 3600."开发井作业时间 PW_OUT-XJZYSJ = PW_OUT-TJZYSJ + PW_OUT-KJZYSJ. "小计作业时间 PW_OUT-GJZYSJ = L_GJZYTS * 24 + L_GJZYSJ / 3600. "固井作业时间 PW_OUT-SCZYSJ = L_SCJZYTS * 24 + L_SCJZYSJ / 3600."生产井作业时间 PW_OUT-DXZYSJ = L_DXJZYTS * 24 + L_DXJZYSJ / 3600."单项井作业时间 PW_OUT-XCSJ = L_XCZYTS * 24 + L_XCZYM / 3600."计算现场作业时间（小时） PW_OUT-TJXCSJ = L_TJXCTS * 24 + L_TJXCSJ / 3600."探井现场作业时间 PW_OUT-KJXCSJ = L_KFJXCTS * 24 + L_KFJXCSJ / 3600."开发井现场作业时间 PW_OUT-XJXCSJ = PW_OUT-TJXCSJ + PW_OUT-KJXCSJ."小计现场作业时间 PW_OUT-GJXCSJ = L_GJXCTS * 24 + L_GJXCSJ / 3600."固井现场作业时间 PW_OUT-SCXCSJ = L_SCJXCTS * 24 + L_SCJXCSJ / 3600."生产井现场作业时间 PW_OUT-DXXCSJ = L_DXJXCTS * 24 + L_DXJXCSJ / 3600."单项井现场作业时间 CLEAR:L_ZZYTS, L_ZZYM,L_XCZYTS,L_XCZYM,L_TJZYTS,L_TJZYSJ,L_TJXCTS,L_TJXCSJ,L_KFJZYTS,L_KFJZYSJ,L_KFJXCTS,L_KFJXCSJ, L_GJZYTS,L_GJZYSJ,L_GJXCTS,L_GJXCSJ,L_SCJZYTS,L_SCJZYSJ,L_SCJXCTS,L_SCJXCSJ,L_DXJZYTS,L_DXJZYSJ,L_DXJXCTS,L_DXJXCSJ. * IF PW_OUT-ZYCS = 0. * PW_OUT-ZYYCCGL = 0. * PW_OUT-SBYCL = 0. * ELSE. * PW_OUT-ZYYCCGL = PW_OUT-CGZYCS / PW_OUT-ZYCS * 100. * PW_OUT-SBYCL = PW_OUT-SBCS / PW_OUT-ZYCS * 100. * ENDIF. **************计算队伍平均作业时间*********** IF PT_DWS IS NOT INITIAL. LT_DW_TEMP = PT_DWS. SORT LT_DW_TEMP BY ZD600TJRQ. DELETE ADJACENT DUPLICATES FROM LT_DW_TEMP COMPARING ZD600TJRQ. DESCRIBE TABLE LT_DW_TEMP LINES L_WEEK. DESCRIBE TABLE PT_DWS LINES L_ZYD. L_ZYD = L_ZYD / L_WEEK. ELSE. CLEAR:LT_DATA. LT_DATA = PT_DATA. SORT LT_DATA BY ZYD. DELETE ADJACENT DUPLICATES FROM LT_DATA COMPARING ZYD. DESCRIBE TABLE LT_DATA LINES L_ZYD. ENDIF. IF L_ZYD = 0. PW_OUT-PZSJ = 0. PW_OUT-PXCSJ = 0. ELSE. PW_OUT-PZSJ = PW_OUT-ZSJ / L_ZYD. PW_OUT-PXCSJ = PW_OUT-XCSJ / L_ZYD. ENDIF. CLEAR:L_ZYD. IF PW_OUT-TJJC = 0. PW_OUT-TJSX = 0. ELSE. PW_OUT-TJSX = PW_OUT-TJXCSJ / PW_OUT-TJJC."探井实效 ENDIF. IF PW_OUT-KFJC = 0. PW_OUT-KFSX = 0. ELSE. PW_OUT-KFSX = PW_OUT-KJXCSJ / PW_OUT-KFJC."开发井实效 ENDIF. IF ( PW_OUT-TJJC = 0 ) AND ( PW_OUT-KFJC = 0 ). PW_OUT-XJSX = 0. ELSE. PW_OUT-XJSX = ( PW_OUT-TJXCSJ + PW_OUT-KJXCSJ ) / ( PW_OUT-TJJC + PW_OUT-KFJC )."小计实效 ENDIF. IF PW_OUT-GJJC = 0. PW_OUT-GJSX = 0. ELSE. PW_OUT-GJSX = PW_OUT-GJXCSJ / PW_OUT-GJJC."固井实效 ENDIF. IF PW_OUT-SCJC = 0. PW_OUT-SCSX = 0. ELSE. PW_OUT-SCSX = PW_OUT-SCXCSJ / PW_OUT-SCJC."生产井实效 ENDIF. IF PW_OUT-DXJC = 0. PW_OUT-DXSX = 0. ELSE. PW_OUT-DXSX = PW_OUT-DXXCSJ / PW_OUT-DXJC."单项测井实效 ENDIF. ENDFORM. "gj *&---------------------------------------------------------------------* *& Form PROCESS *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->P_LW_OUT_BN text * -->P_LW_OUT_QN text * <--P_LW_OUTPUT text *----------------------------------------------------------------------* FORM PROCESS USING PW_OUT_BN LIKE LINE OF G_OUTPUT PW_OUT_QN LIKE LINE OF G_OUTPUT CHANGING PW_OUTPUT LIKE LINE OF G_OUTPUT . CLEAR:PW_OUTPUT. PW_OUTPUT-ZCCJC = PW_OUT_BN-ZCCJC."测井出车总井次 PERFORM JS_TB USING PW_OUT_BN-ZCCJC PW_OUT_QN-ZCCJC CHANGING PW_OUTPUT-ZCCJCB."测井出车总井次同比 PW_OUTPUT-ZJC = PW_OUT_BN-ZJC."测井总井次 PERFORM JS_TB USING PW_OUT_BN-ZJC PW_OUT_QN-ZJC CHANGING PW_OUTPUT-ZJCB."测井总井次同比 **********************有效作业********************** PW_OUTPUT-TJKS = PW_OUT_BN-TJKS."探井口数 PERFORM JS_TB USING PW_OUT_BN-TJKS PW_OUT_QN-TJKS CHANGING PW_OUTPUT-TJKSB."探井口数同比 PW_OUTPUT-TJJC = PW_OUT_BN-TJJC."探井井次 PERFORM JS_TB USING PW_OUT_BN-TJJC PW_OUT_QN-TJJC CHANGING PW_OUTPUT-TJJCB."探井井次同比 PW_OUTPUT-KFKS = PW_OUT_BN-KFKS."开发井口数 PERFORM JS_TB USING PW_OUT_BN-KFKS PW_OUT_QN-KFKS CHANGING PW_OUTPUT-KFKSB."开发井口数同比 PW_OUTPUT-KFJC = PW_OUT_BN-KFJC."开发井井次 PERFORM JS_TB USING PW_OUT_BN-KFJC PW_OUT_QN-KFJC CHANGING PW_OUTPUT-KFJCB."开发井井次同比 PW_OUTPUT-XJKS = PW_OUT_BN-XJKS."小计口数 PERFORM JS_TB USING PW_OUT_BN-XJKS PW_OUT_QN-XJKS CHANGING PW_OUTPUT-XJKSB."小计口数同比 PW_OUTPUT-XJJC = PW_OUT_BN-XJJC."小计井次 PERFORM JS_TB USING PW_OUT_BN-XJJC PW_OUT_QN-XJJC CHANGING PW_OUTPUT-XIJCB."小计井次同比 PW_OUTPUT-GJJC = PW_OUT_BN-GJJC."固井质量作业 PERFORM JS_TB USING PW_OUT_BN-GJJC PW_OUT_QN-GJJC CHANGING PW_OUTPUT-GJJCB."固井质量作业同比 PW_OUTPUT-SCJC = PW_OUT_BN-SCJC."生产测井 PERFORM JS_TB USING PW_OUT_BN-SCJC PW_OUT_QN-SCJC CHANGING PW_OUTPUT-SCJCB."生产测井同比 PW_OUTPUT-DXJC = PW_OUT_BN-DXJC."单项测井作业 PERFORM JS_TB USING PW_OUT_BN-DXJC PW_OUT_QN-DXJC CHANGING PW_OUTPUT-DXJCB."单项测井作业同比 **********************无效作业********************** PW_OUTPUT-WXHJ = PW_OUT_BN-WXHJ."无效井次合计 PERFORM JS_TB USING PW_OUT_BN-WXHJ PW_OUT_QN-WXHJ CHANGING PW_OUTPUT-WXHJB."无效井次合计同比 PW_OUTPUT-YZJC = PW_OUT_BN-YZJC."遇阻 PW_OUTPUT-YQJC = PW_OUT_BN-YQJC."遇卡 PW_OUTPUT-KPJC = PW_OUT_BN-KPJC."空跑 PW_OUTPUT-QTJC = PW_OUT_BN-QTJC."其它返回 PW_OUTPUT-DLJC = PW_OUT_BN-DLJC."打捞作业 PW_OUTPUT-BZHJC = PW_OUT_BN-BZHJC."标准化作业 **********************作业时间********************** PW_OUTPUT-ZSJ = PW_OUT_BN-ZSJ."总作业时间 PERFORM JS_TB USING PW_OUT_BN-ZSJ PW_OUT_QN-ZSJ CHANGING PW_OUTPUT-ZSJB."总作业时间同比 PW_OUTPUT-TJZYSJ = PW_OUT_BN-TJZYSJ."探井作业时间 PERFORM JS_TB USING PW_OUT_BN-TJZYSJ PW_OUT_QN-TJZYSJ CHANGING PW_OUTPUT-TJZYSJB."探井作业时间比 PW_OUTPUT-KJZYSJ = PW_OUT_BN-KJZYSJ."开发井作业时间 PERFORM JS_TB USING PW_OUT_BN-KJZYSJ PW_OUT_QN-KJZYSJ CHANGING PW_OUTPUT-KJZYSJB."开发井作业时间比 PW_OUTPUT-XJZYSJ = PW_OUT_BN-XJZYSJ."小计作业时间 PERFORM JS_TB USING PW_OUT_BN-XJZYSJ PW_OUT_QN-XJZYSJ CHANGING PW_OUTPUT-XJZYSJB."小计作业时间比 PW_OUTPUT-GJZYSJ = PW_OUT_BN-GJZYSJ."固井作业时间 PERFORM JS_TB USING PW_OUT_BN-GJZYSJ PW_OUT_QN-GJZYSJ CHANGING PW_OUTPUT-GJZYSJB."固井作业时间比 PW_OUTPUT-SCZYSJ = PW_OUT_BN-SCZYSJ."生产井作业时间 PERFORM JS_TB USING PW_OUT_BN-SCZYSJ PW_OUT_QN-SCZYSJ CHANGING PW_OUTPUT-SCZYSJB."生产井作业时间比 PW_OUTPUT-DXZYSJ = PW_OUT_BN-DXZYSJ."单项井作业时间 PERFORM JS_TB USING PW_OUT_BN-DXZYSJ PW_OUT_QN-DXZYSJ CHANGING PW_OUTPUT-DXZYSJB."单项井作业时间比 PW_OUTPUT-XCSJ = PW_OUT_BN-XCSJ."现场总作业时间 PERFORM JS_TB USING PW_OUT_BN-XCSJ PW_OUT_QN-XCSJ CHANGING PW_OUTPUT-XCSJB."现场总作业时间同比 PW_OUTPUT-TJXCSJ = PW_OUT_BN-TJXCSJ."探井现场作业时间 PERFORM JS_TB USING PW_OUT_BN-TJXCSJ PW_OUT_QN-TJXCSJ CHANGING PW_OUTPUT-TJXCSJB."探井现场作业时间比 PW_OUTPUT-KJXCSJ = PW_OUT_BN-KJXCSJ."开发井现场作业时间 PERFORM JS_TB USING PW_OUT_BN-KJXCSJ PW_OUT_QN-KJXCSJ CHANGING PW_OUTPUT-KJXCSJB."开发井现场作业时间比 PW_OUTPUT-XJXCSJ = PW_OUT_BN-XJXCSJ."小计现场作业时间 PERFORM JS_TB USING PW_OUT_BN-XJXCSJ PW_OUT_QN-XJXCSJ CHANGING PW_OUTPUT-XJXCSJB."小计现场作业时间比 PW_OUTPUT-GJXCSJ = PW_OUT_BN-GJXCSJ."固井现场作业时间 PERFORM JS_TB USING PW_OUT_BN-GJXCSJ PW_OUT_QN-GJXCSJ CHANGING PW_OUTPUT-GJXCSJB."固井现场作业时间比 PW_OUTPUT-SCXCSJ = PW_OUT_BN-SCXCSJ."生产井现场作业时间 PERFORM JS_TB USING PW_OUT_BN-SCXCSJ PW_OUT_QN-SCXCSJ CHANGING PW_OUTPUT-SCXCSJB."生产井现场作业时间比 PW_OUTPUT-DXXCSJ = PW_OUT_BN-DXXCSJ."单项井现场作业时间 PERFORM JS_TB USING PW_OUT_BN-DXXCSJ PW_OUT_QN-DXXCSJ CHANGING PW_OUTPUT-DXXCSJB."单项井现场作业时间比 PW_OUTPUT-PZSJ = PW_OUT_BN-PZSJ."队伍平均总作业时间 PERFORM JS_TB USING PW_OUT_BN-PZSJ PW_OUT_QN-PZSJ CHANGING PW_OUTPUT-PZSJB."队伍平均总作业时间同比 PW_OUTPUT-PXCSJ = PW_OUT_BN-PXCSJ."队伍现场平均作业时间 PERFORM JS_TB USING PW_OUT_BN-PXCSJ PW_OUT_QN-PXCSJ CHANGING PW_OUTPUT-PXCSJB."队伍现场平均作业时间同比 **********************作业实效********************** PW_OUTPUT-TJSX = PW_OUT_BN-TJSX."探井实效 PERFORM JS_TB USING PW_OUT_BN-TJSX PW_OUT_QN-TJSX CHANGING PW_OUTPUT-TJSXB."探井实效同比 PW_OUTPUT-KFSX = PW_OUT_BN-KFSX."开发井实效 PERFORM JS_TB USING PW_OUT_BN-KFSX PW_OUT_QN-KFSX CHANGING PW_OUTPUT-KFSXB."开发井实效比 PW_OUTPUT-XJSX = PW_OUT_BN-XJSX."小计实效 PERFORM JS_TB USING PW_OUT_BN-XJSX PW_OUT_QN-XJSX CHANGING PW_OUTPUT-XJSXB."小计实效比 PW_OUTPUT-GJSX = PW_OUT_BN-GJSX."固井实效 PERFORM JS_TB USING PW_OUT_BN-GJSX PW_OUT_QN-GJSX CHANGING PW_OUTPUT-GJSXB."固井实效比 PW_OUTPUT-SCSX = PW_OUT_BN-SCSX."生产井实效 PERFORM JS_TB USING PW_OUT_BN-SCSX PW_OUT_QN-SCSX CHANGING PW_OUTPUT-SCSXB."生产井实效比 PW_OUTPUT-DXSX = PW_OUT_BN-DXSX."单项测井实效 PERFORM JS_TB USING PW_OUT_BN-DXSX PW_OUT_QN-DXSX CHANGING PW_OUTPUT-DXSXB."单项测井实效比 **********************作业质量********************** PW_OUTPUT-WJXJ = PW_OUT_BN-WJXJ."完井仪器下井总次数 PW_OUTPUT-GJXJ = PW_OUT_BN-GJXJ."固井仪器下井总次数 PW_OUTPUT-SCXJ = PW_OUT_BN-SCXJ."生产井仪器下井总次数 PW_OUTPUT-DXXJ = PW_OUT_BN-DXXJ."单项测井仪器下井总次数 PW_OUTPUT-XJHJ = PW_OUT_BN-XJHJ."仪器下井总次数合计 PERFORM JS_TB USING PW_OUT_BN-XJHJ PW_OUT_QN-XJHJ CHANGING PW_OUTPUT-XJHJB."仪器下井总次数合计同比 PW_OUTPUT-WJXJCG = PW_OUT_BN-WJXJCG."完井仪器下井成功总次数 PW_OUTPUT-GJXJCG = PW_OUT_BN-GJXJCG."固井仪器下井成功总次数 PW_OUTPUT-SCXJCG = PW_OUT_BN-SCXJCG."生产井仪器下井成功总次数 PW_OUTPUT-DXXJCG = PW_OUT_BN-DXXJCG."单项测井仪器下井成功总次数 PW_OUTPUT-XJHJCG = PW_OUT_BN-XJHJCG."仪器下井总成功次数合计 PERFORM JS_TB USING PW_OUT_BN-XJHJCG PW_OUT_QN-XJHJCG CHANGING PW_OUTPUT-XJHJBCG."仪器下井总成功次数合计同比 PW_OUTPUT-WJYQCGL = PW_OUT_BN-WJYQCGL."完井仪器下井成功率 PW_OUTPUT-GJYQCGL = PW_OUT_BN-GJYQCGL."固井仪器下井成功率 PW_OUTPUT-SCYQCGL = PW_OUT_BN-SCYQCGL."生产仪器下井成功率 PW_OUTPUT-DXYQCGL = PW_OUT_BN-DXYQCGL."单项测井仪器下井成功率 PW_OUTPUT-ZHYQCGL = PW_OUT_BN-ZHYQCGL."综合仪器下井成功率 PERFORM JS_TB USING PW_OUT_BN-ZHYQCGL PW_OUT_QN-ZHYQCGL CHANGING PW_OUTPUT-ZHYQCGLB."综合仪器下井成功率同比 PW_OUTPUT-WJCJCGL = PW_OUT_BN-WJCJCGL."完井测井成功率 PW_OUTPUT-GJCJCGL = PW_OUT_BN-GJCJCGL."固井测井成功率 PW_OUTPUT-SCCJCGL = PW_OUT_BN-SCCJCGL."生产测井成功率 PW_OUTPUT-DXCJCGL = PW_OUT_BN-DXCJCGL."单项测井成功率 PW_OUTPUT-ZHCJCGL = PW_OUT_BN-ZHCJCGL."综合测井成功率 PERFORM JS_TB USING PW_OUT_BN-ZHCJCGL PW_OUT_QN-ZHCJCGL CHANGING PW_OUTPUT-ZHCJCGLB."综合测井成功率同比 PW_OUTPUT-WJZYCGL = PW_OUT_BN-WJZYCGL."完井作业成功率 PW_OUTPUT-GJZYCGL = PW_OUT_BN-GJZYCGL."固井作业成功率 PW_OUTPUT-SCZYCGL = PW_OUT_BN-SCZYCGL."生产作业成功率 PW_OUTPUT-DXZYCGL = PW_OUT_BN-DXZYCGL."单项作业成功率 PW_OUTPUT-ZHZYCGL = PW_OUT_BN-ZHZYCGL."综合作业成功率 PERFORM JS_TB USING PW_OUT_BN-ZHZYCGL PW_OUT_QN-ZHZYCGL CHANGING PW_OUTPUT-ZHZYCGLB."综合作业成功率同比 **********************资料质量********************** PW_OUTPUT-TJQX = PW_OUT_BN-TJQX."探井曲线条数 PW_OUTPUT-KFQX = PW_OUT_BN-KFQX."开发井曲线条数 PW_OUTPUT-SCQX = PW_OUT_BN-SCQX."生产井曲线条数 PW_OUTPUT-HJQX = PW_OUT_BN-HJQX."合计曲线条数 PW_OUTPUT-TJHGQX = PW_OUT_BN-TJHGQX."探井合格曲线条数 PW_OUTPUT-KFHGQX = PW_OUT_BN-KFHGQX."开发井合格曲线条数 PW_OUTPUT-SCHGQX = PW_OUT_BN-SCHGQX."生产井合格曲线条数 PW_OUTPUT-HJHGQX = PW_OUT_BN-HJHGQX."合计合格曲线条数 PW_OUTPUT-TJYZQX = PW_OUT_BN-TJYZQX."探井优质曲线条数 PW_OUTPUT-KFYZQX = PW_OUT_BN-KFYZQX."开发井优质曲线条数 PW_OUTPUT-SCYZQX = PW_OUT_BN-SCYZQX."生产井优质曲线条数 PW_OUTPUT-HJYZQX = PW_OUT_BN-HJYZQX."合计优质曲线条数 PW_OUTPUT-QXHGL = PW_OUT_BN-QXHGL."曲线合格率 PERFORM JS_TB USING PW_OUT_BN-QXHGL PW_OUT_QN-QXHGL CHANGING PW_OUTPUT-QXHGLB."曲线合格率同比 PW_OUTPUT-QXYZL = PW_OUT_BN-QXYZL."曲线优质率 PERFORM JS_TB USING PW_OUT_BN-QXYZL PW_OUT_QN-QXYZL CHANGING PW_OUTPUT-QXYZLB."曲线优质率同比 **********************资料解释********************** PW_OUTPUT-TJJSJC = PW_OUT_BN-TJJSJC."探井井次 PW_OUTPUT-TJCS = PW_OUT_BN-TJCS."探井层数 PW_OUTPUT-TJYQCS = PW_OUT_BN-TJYQCS."探井油气识别层数 PW_OUTPUT-TJYQHD = PW_OUT_BN-TJYQHD."探井油气识别厚度 PW_OUTPUT-TJCLM = PW_OUT_BN-TJCLM."探井测量米 PW_OUTPUT-TJSDM = PW_OUT_BN-TJSDM."探井深度米 PW_OUTPUT-TJJJM = PW_OUT_BN-TJJJM. PW_OUTPUT-TJJSM = PW_OUT_BN-TJJSM."探井解释米 PW_OUTPUT-TJZLJS = PW_OUT_BN-TJZLJS."探井平均资料解释时间 PW_OUTPUT-KFJSJC = PW_OUT_BN-KFJSJC."开发井井次 PW_OUTPUT-KFCS = PW_OUT_BN-KFCS."开发井层数 PW_OUTPUT-KFYQCS = PW_OUT_BN-KFYQCS."开发井油气识别层数 PW_OUTPUT-KFYQHD = PW_OUT_BN-KFYQHD."开发井油气识别厚度 PW_OUTPUT-KFCLM = PW_OUT_BN-KFCLM."开发井测量米 PW_OUTPUT-KFSDM = PW_OUT_BN-KFSDM."开发井深度米 PW_OUTPUT-KFJJM = PW_OUT_BN-KFJJM. PW_OUTPUT-KFJSM = PW_OUT_BN-KFJSM."开发井解释米 PW_OUTPUT-KFZLJS = PW_OUT_BN-KFZLJS."开发井平均资料解释时间 **********************识别准确率********************** PW_OUTPUT-TJSYQCS = PW_OUT_BN-TJSYQCS."探井试油气总层数 PW_OUTPUT-TJFHCS = PW_OUT_BN-TJFHCS."探井符合层数 PW_OUTPUT-TJSBZQL = PW_OUT_BN-TJSBZQL."探井识别准确率 PERFORM JS_TB USING PW_OUT_BN-TJSBZQL PW_OUT_QN-TJSBZQL CHANGING PW_OUTPUT-TJSBZQLB."探井识别准确率同比 PW_OUTPUT-KFSYQCS = PW_OUT_BN-KFSYQCS."开发井试油气总层数 PW_OUTPUT-KFFHCS = PW_OUT_BN-KFFHCS."开发井符合层数 PW_OUTPUT-KFSBZQL = PW_OUT_BN-KFSBZQL."开发井识别准确率 PERFORM JS_TB USING PW_OUT_BN-KFSBZQL PW_OUT_QN-KFSBZQL CHANGING PW_OUTPUT-KFSBZQLB."开发井识别准确率同比 PW_OUTPUT-ZHSYQCS = PW_OUT_BN-ZHSYQCS."综合试油气总层数 PW_OUTPUT-ZHFHCS = PW_OUT_BN-ZHFHCS."综合符合层数 PW_OUTPUT-ZHSBZQL = PW_OUT_BN-ZHSBZQL."综合识别准确率 PERFORM JS_TB USING PW_OUT_BN-ZHSBZQL PW_OUT_QN-ZHSBZQL CHANGING PW_OUTPUT-ZHSBZQLB."综合识别准确率同比 ENDFORM. " PROCESS *&---------------------------------------------------------------------* *& Form SELECT_zb *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM SELECT_ZB . SELECT DISTINCT ZD600ZBLXID AS ZBLXID ZD600ZBLXMC AS ZBLXMS INTO CORRESPONDING FIELDS OF TABLE G_ZB FROM ZD600PSD013 WHERE ZD600ZBLXID NOT IN ('007','008','009','010'). SORT G_ZB BY ZBLXID. ENDFORM. " SELECT_zb *&---------------------------------------------------------------------* *& Form hj_data *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->P_LT_OUT_BN text * <--P_LW_OUT_BN text *----------------------------------------------------------------------* FORM HJ_DATA USING PT_OUT LIKE G_OUTPUT P_BN TYPE C CHANGING PW_OUT LIKE LINE OF G_OUTPUT. DATA:LW_OUT TYPE TYP_OUTPUT. CLEAR:PW_OUT. LOOP AT PT_OUT INTO LW_OUT. CLEAR:LW_OUT-TJSX,LW_OUT-KFSX,LW_OUT-XJSX,LW_OUT-GJSX,LW_OUT-SCSX,LW_OUT-DXSX, LW_OUT-WJYQCGL,LW_OUT-GJYQCGL,LW_OUT-SCYQCGL,LW_OUT-DXYQCGL,LW_OUT-ZHYQCGL, LW_OUT-WJCJCGL,LW_OUT-GJCJCGL,LW_OUT-SCCJCGL,LW_OUT-DXCJCGL,LW_OUT-ZHCJCGL, LW_OUT-WJZYCGL,LW_OUT-GJZYCGL,LW_OUT-SCZYCGL,LW_OUT-DXZYCGL,LW_OUT-ZHZYCGL, LW_OUT-QXHGL,LW_OUT-QXYZL, LW_OUT-TJZLJS,LW_OUT-KFZLJS, LW_OUT-TJSBZQL,LW_OUT-KFSBZQL,LW_OUT-ZHSBZQL, LW_OUT-ZCCJCB,LW_OUT-ZJCB, LW_OUT-TJKSB,LW_OUT-TJJCB,LW_OUT-KFKSB,LW_OUT-KFJCB,LW_OUT-XJKSB,LW_OUT-XIJCB,LW_OUT-GJJCB,LW_OUT-SCJCB,LW_OUT-DXJCB, LW_OUT-WXHJB, LW_OUT-ZSJB,LW_OUT-TJZYSJB,LW_OUT-KJZYSJB,LW_OUT-XJZYSJB,LW_OUT-GJZYSJB,LW_OUT-SCZYSJB,LW_OUT-DXZYSJB,LW_OUT-XCSJB, LW_OUT-TJXCSJB,LW_OUT-KJXCSJB,LW_OUT-XJXCSJB,LW_OUT-GJXCSJB,LW_OUT-SCXCSJB,LW_OUT-DXXCSJB,LW_OUT-PZSJB,LW_OUT-PXCSJB, LW_OUT-TJSXB,LW_OUT-KFSXB,LW_OUT-XJSXB,LW_OUT-GJSXB,LW_OUT-SCSXB,LW_OUT-DXSXB, LW_OUT-XJHJB,LW_OUT-ZHYQCGLB,LW_OUT-ZHCJCGLB,LW_OUT-ZHZYCGLB, LW_OUT-QXHGLB,LW_OUT-QXYZLB, LW_OUT-TJSBZQLB,LW_OUT-KFSBZQLB,LW_OUT-ZHSBZQLB. ADD-CORRESPONDING LW_OUT TO PW_OUT. CLEAR:LW_OUT. ENDLOOP. IF PW_OUT-TJJC = 0. PW_OUT-TJSX = 0. ELSE. PW_OUT-TJSX = PW_OUT-TJXCSJ / PW_OUT-TJJC."探井实效 ENDIF. IF PW_OUT-KFJC = 0. PW_OUT-KFSX = 0. ELSE. PW_OUT-KFSX = PW_OUT-KJXCSJ / PW_OUT-KFJC."开发井实效 ENDIF. IF ( PW_OUT-TJJC = 0 ) AND ( PW_OUT-KFJC = 0 ). PW_OUT-XJSX = 0. ELSE. PW_OUT-XJSX = ( PW_OUT-TJXCSJ + PW_OUT-KJXCSJ ) / ( PW_OUT-TJJC + PW_OUT-KFJC )."小计实效 ENDIF. IF PW_OUT-GJJC = 0. PW_OUT-GJSX = 0. ELSE. PW_OUT-GJSX = PW_OUT-GJXCSJ / PW_OUT-GJJC."固井实效 ENDIF. IF PW_OUT-SCJC = 0. PW_OUT-SCSX = 0. ELSE. PW_OUT-SCSX = PW_OUT-SCXCSJ / PW_OUT-SCJC."生产井实效 ENDIF. IF PW_OUT-DXJC = 0. PW_OUT-DXSX = 0. ELSE. PW_OUT-DXSX = PW_OUT-DXXCSJ / PW_OUT-DXJC."单项测井实效 ENDIF. IF PW_OUT-WJXJ = PW_OUT-WJHJSB. PW_OUT-WJYQCGL = 0. ELSE. PW_OUT-WJYQCGL = PW_OUT-WJXJCG / ( PW_OUT-WJXJ - PW_OUT-WJHJSB ) * 100."完井仪器下井成功率 ENDIF. IF PW_OUT-GJXJ = PW_OUT-GJHJSB. PW_OUT-GJYQCGL = 0. ELSE. PW_OUT-GJYQCGL = PW_OUT-GJXJCG / ( PW_OUT-GJXJ - PW_OUT-GJHJSB ) * 100."固井仪器下井成功率 ENDIF. IF PW_OUT-SCXJ = PW_OUT-SCHJSB. PW_OUT-SCYQCGL = 0. ELSE. PW_OUT-SCYQCGL = PW_OUT-SCXJCG / ( PW_OUT-SCXJ - PW_OUT-SCHJSB ) * 100."生产仪器下井成功率 ENDIF. IF PW_OUT-DXXJ = PW_OUT-DXHJSB. PW_OUT-DXYQCGL = 0. ELSE. PW_OUT-DXYQCGL = PW_OUT-DXXJCG / ( PW_OUT-DXXJ - PW_OUT-DXHJSB ) * 100."单项测井仪器下井成功率 ENDIF. DATA:L_JJ TYPE I. L_JJ = PW_OUT-WJXJ + PW_OUT-GJXJ + PW_OUT-SCXJ + PW_OUT-DXXJ - PW_OUT-WJHJSB - PW_OUT-GJHJSB - PW_OUT-SCHJSB - PW_OUT-DXHJSB. IF L_JJ = 0. PW_OUT-ZHYQCGL = 0. ELSE. PW_OUT-ZHYQCGL = ( PW_OUT-WJXJCG + PW_OUT-GJXJCG + PW_OUT-SCXJCG + PW_OUT-DXXJCG ) / ( PW_OUT-WJXJ + PW_OUT-GJXJ + PW_OUT-SCXJ + PW_OUT-DXXJ - PW_OUT-WJHJSB - PW_OUT-GJHJSB - PW_OUT-SCHJSB - PW_OUT-DXHJSB ) * 100."综合仪器下井成功率 CLEAR:L_JJ. ENDIF. IF PW_OUT-WJXJ = 0. PW_OUT-WJCJCGL = 0. ELSE. PW_OUT-WJCJCGL = PW_OUT-WJXJCG / PW_OUT-WJXJ * 100."完井测井成功率 ENDIF. IF PW_OUT-GJXJ = 0. PW_OUT-GJCJCGL = 0. ELSE. PW_OUT-GJCJCGL = PW_OUT-GJXJCG / PW_OUT-GJXJ * 100."固井测井成功率 ENDIF. IF PW_OUT-SCXJ = 0. PW_OUT-SCCJCGL = 0. ELSE. PW_OUT-SCCJCGL = PW_OUT-SCXJCG / PW_OUT-SCXJ * 100."生产测井成功率 ENDIF. IF PW_OUT-DXXJ = 0. PW_OUT-DXCJCGL = 0. ELSE. PW_OUT-DXCJCGL = PW_OUT-DXXJCG / PW_OUT-DXXJ * 100."单项测井成功率 ENDIF. IF ( PW_OUT-WJXJ = 0 ) AND ( PW_OUT-GJXJ = 0 ) AND ( PW_OUT-SCXJ = 0 ) AND ( PW_OUT-DXXJ = 0 ) . PW_OUT-ZHCJCGL = 0. ELSE. PW_OUT-ZHCJCGL = ( PW_OUT-WJXJCG + PW_OUT-GJXJCG + PW_OUT-SCXJCG + PW_OUT-DXXJCG ) / ( PW_OUT-WJXJ + PW_OUT-GJXJ + PW_OUT-SCXJ + PW_OUT-DXXJ ) * 100."综合测井成功率 ENDIF. IF PW_OUT-WJDB = 0. PW_OUT-WJZYCGL = 0. ELSE. PW_OUT-WJZYCGL = PW_OUT-XJJC / PW_OUT-WJDB * 100."完井作业成功率 ENDIF. IF PW_OUT-GJDB = 0. PW_OUT-GJZYCGL = 0. ELSE. PW_OUT-GJZYCGL = PW_OUT-GJJC / PW_OUT-GJDB * 100."固井作业成功率 ENDIF. IF PW_OUT-SCDB = 0. PW_OUT-SCZYCGL = 0. ELSE. PW_OUT-SCZYCGL = PW_OUT-SCJC / PW_OUT-SCDB * 100."生产作业成功率 ENDIF. IF PW_OUT-DXDB = 0. PW_OUT-DXZYCGL = 0. ELSE. PW_OUT-DXZYCGL = PW_OUT-DXJC / PW_OUT-DXDB * 100."单项作业成功率 ENDIF. IF ( PW_OUT-WJDB = 0 ) AND ( PW_OUT-GJDB = 0 ) AND ( PW_OUT-SCDB = 0 ) AND ( PW_OUT-DXDB = 0 ). PW_OUT-ZHZYCGL = 0. ELSE. PW_OUT-ZHZYCGL = ( PW_OUT-XJJC + PW_OUT-GJJC + PW_OUT-SCJC + PW_OUT-DXJC ) / ( PW_OUT-WJDB + PW_OUT-GJDB + PW_OUT-SCDB + PW_OUT-DXDB ) * 100."综合作业成功率 ENDIF. IF PW_OUT-HJQX = 0. PW_OUT-QXHGL = 0. PW_OUT-QXYZL = 0. ELSE. PW_OUT-QXHGL = PW_OUT-HJHGQX / PW_OUT-HJQX * 100. PW_OUT-QXYZL = PW_OUT-HJYZQX / PW_OUT-HJQX * 100. ENDIF. IF PW_OUT-TJJSJC = 0. PW_OUT-TJZLJS = 0. ELSE. PW_OUT-TJZLJS = PW_OUT-TJJSSJ / PW_OUT-TJJSJC."探井平均资料解释时间 ENDIF. IF PW_OUT-KFJSJC = 0. PW_OUT-KFZLJS = 0. ELSE. PW_OUT-KFZLJS = PW_OUT-KFJSSJ / PW_OUT-KFJSJC."开发井平均资料解释时间 ENDIF. IF PW_OUT-KFSYQCS = 0. PW_OUT-TJSBZQL = 0. ELSE. PW_OUT-TJSBZQL = PW_OUT-TJFHCS / PW_OUT-TJSYQCS * 100."探井识别准确率 ENDIF. IF PW_OUT-KFSYQCS = 0. PW_OUT-KFSBZQL = 0. ELSE. PW_OUT-KFSBZQL = PW_OUT-KFFHCS / PW_OUT-KFSYQCS * 100."开发井识别准确率 ENDIF. IF PW_OUT-ZHSYQCS = 0. PW_OUT-ZHSBZQL = 0. ELSE. PW_OUT-ZHSBZQL = PW_OUT-ZHFHCS / PW_OUT-ZHSYQCS * 100. "综合识别准确率 ENDIF. IF P_BN = 'X'. IF V_DWS_BN = 0. PW_OUT-PZSJ = 0. PW_OUT-PXCSJ = 0. ELSE. PW_OUT-PZSJ = PW_OUT-ZSJ / V_DWS_BN. PW_OUT-PXCSJ = PW_OUT-XCSJ / V_DWS_BN. ENDIF. ELSE. IF V_DWS_QN = 0. PW_OUT-PZSJ = 0. PW_OUT-PXCSJ = 0. ELSE. PW_OUT-PZSJ = PW_OUT-ZSJ / V_DWS_QN. PW_OUT-PXCSJ = PW_OUT-XCSJ / V_DWS_QN. ENDIF. ENDIF. ENDFORM. " hj_data *&---------------------------------------------------------------------* *& Form ALV_DISPLAY *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->P_VT_OUTPUT text *----------------------------------------------------------------------* FORM ALV_DISPLAY USING I_TAB LIKE G_OUTPUT. DATA: FIELDCAT TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE. DATA LAYOUT TYPE SLIS_LAYOUT_ALV . CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'DW'. FIELDCAT-SELTEXT_L = '单位'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'ZCCJC'. FIELDCAT-SELTEXT_L = '测井出车总井次'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'ZCCJCB'. FIELDCAT-SELTEXT_L = '测井出车总井次同比'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'ZJC'. FIELDCAT-SELTEXT_L = '测井总井次'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'ZJCB'. FIELDCAT-SELTEXT_L = '测井总井次同比'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. **********************有效作业********************** CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'TJKS'. FIELDCAT-SELTEXT_L = '探井口数'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'TJKSB'. FIELDCAT-SELTEXT_L = '探井口数同比'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'TJJC'. FIELDCAT-SELTEXT_L = '探井井次'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'TJJCB'. FIELDCAT-SELTEXT_L = '探井井次同比'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'KFKS'. FIELDCAT-SELTEXT_L = '开发井口数'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'KFKSB'. FIELDCAT-SELTEXT_L = '开发井口数同比'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'KFJC'. FIELDCAT-SELTEXT_L = '开发井井次'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'KFJCB'. FIELDCAT-SELTEXT_L = '开发井井次同比'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'XJKS'. FIELDCAT-SELTEXT_L = '小计口数'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'XJKSB'. FIELDCAT-SELTEXT_L = '小计口数同比'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'XJJC'. FIELDCAT-SELTEXT_L = '小计井次'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'XIJCB'. FIELDCAT-SELTEXT_L = '小计井次同比'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'GJJC'. FIELDCAT-SELTEXT_L = '固井质量作业井次'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'GJJCB'. FIELDCAT-SELTEXT_L = '固井质量井次同比'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'SCJC'. FIELDCAT-SELTEXT_L = '生产测井'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'SCJCB'. FIELDCAT-SELTEXT_L = '生产测井同比'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'DXJC'. FIELDCAT-SELTEXT_L = '单项测井井次'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'DXJCB'. FIELDCAT-SELTEXT_L = '单项测井井次同比'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. **********************无效作业********************** CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'WXHJ'. FIELDCAT-SELTEXT_L = '无效井次合计'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'WXHJB'. FIELDCAT-SELTEXT_L = '无效井次合计同比'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'YZJC'. FIELDCAT-SELTEXT_L = '遇阻'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'YQJC'. FIELDCAT-SELTEXT_L = '遇卡'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'KPJC'. FIELDCAT-SELTEXT_L = '空跑'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'QTJC'. FIELDCAT-SELTEXT_L = '其它返回'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'DLJC'. FIELDCAT-SELTEXT_L = '打捞作业'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'BZHJC'. FIELDCAT-SELTEXT_L = '标准化作业'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. **********************作业时间********************** CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'ZSJ'. FIELDCAT-SELTEXT_L = '总作业时间'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'ZSJB'. FIELDCAT-SELTEXT_L = '总作业时间同比'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'TJZYSJ'. FIELDCAT-SELTEXT_L = '探井作业时间'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'TJZYSJB'. FIELDCAT-SELTEXT_L = '探井作业时间比'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'KJZYSJ'. FIELDCAT-SELTEXT_L = '开发井作业时间'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'KJZYSJB'. FIELDCAT-SELTEXT_L = '开发井作业时间比'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'XJZYSJ'. FIELDCAT-SELTEXT_L = '小计作业时间'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'XJZYSJB'. FIELDCAT-SELTEXT_L = '小计作业时间比'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'GJZYSJ'. FIELDCAT-SELTEXT_L = '固井作业时间'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'GJZYSJB'. FIELDCAT-SELTEXT_L = '固井作业时间比'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'SCZYSJ'. FIELDCAT-SELTEXT_L = '生产井作业时间'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'SCZYSJB'. FIELDCAT-SELTEXT_L = '生产井作业时间比'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'DXZYSJ'. FIELDCAT-SELTEXT_L = '单项井作业时间'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'DXZYSJB'. FIELDCAT-SELTEXT_L = '单项井作业时间比'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'XCSJ'. FIELDCAT-SELTEXT_L = '现场总作业时间'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'XCSJB'. FIELDCAT-SELTEXT_L = '现场总作业时间同比'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'TJXCSJ'. FIELDCAT-SELTEXT_L = '探井现场作业时间'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'TJXCSJB'. FIELDCAT-SELTEXT_L = '探井现场作业时间比'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'KJXCSJ'. FIELDCAT-SELTEXT_L = '开发井现场作业时间'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'KJXCSJB'. FIELDCAT-SELTEXT_L = '开发井现场作业时间比'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'XJXCSJ'. FIELDCAT-SELTEXT_L = '小计现场作业时间'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'XJXCSJB'. FIELDCAT-SELTEXT_L = '小计现场作业时间比'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'GJXCSJ'. FIELDCAT-SELTEXT_L = '固井现场作业时间'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'GJXCSJB'. FIELDCAT-SELTEXT_L = '固井现场作业时间比'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'SCXCSJ'. FIELDCAT-SELTEXT_L = '生产井现场作业时间'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'SCXCSJB'. FIELDCAT-SELTEXT_L = '生产井现场作业时间比'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'DXXCSJ'. FIELDCAT-SELTEXT_L = '单项井现场作业时间'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'DXXCSJB'. FIELDCAT-SELTEXT_L = '单项井现场作业时间比'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'PZSJ'. FIELDCAT-SELTEXT_L = '队伍平均总作业时间'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'PZSJB'. FIELDCAT-SELTEXT_L = '队伍平均总作业时间同比'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'PXCSJ'. FIELDCAT-SELTEXT_L = '队伍现场平均作业时间'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'PXCSJB'. FIELDCAT-SELTEXT_L = '队伍现场平均作业时间同比'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. **********************作业时效********************** CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'TJSX'. FIELDCAT-SELTEXT_L = '探井时效'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'TJSXB'. FIELDCAT-SELTEXT_L = '探井时效同比'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'KFSX'. FIELDCAT-SELTEXT_L = '开发井时效'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'KFSXB'. FIELDCAT-SELTEXT_L = '开发井时效比'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'XJSX'. FIELDCAT-SELTEXT_L = '小计时效'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'XJSXB'. FIELDCAT-SELTEXT_L = '小计时效比'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'GJSX'. FIELDCAT-SELTEXT_L = '固井时效'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'GJSXB'. FIELDCAT-SELTEXT_L = '固井时效比'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'SCSX'. FIELDCAT-SELTEXT_L = '生产井时效'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'SCSXB'. FIELDCAT-SELTEXT_L = '生产井时效比'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'DXSX'. FIELDCAT-SELTEXT_L = '单项测井时效'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'DXSXB'. FIELDCAT-SELTEXT_L = '单项测井时效比'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. **********************作业质量********************** CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'WJXJ'. FIELDCAT-SELTEXT_L = '完井仪器下井总次数'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'GJXJ'. FIELDCAT-SELTEXT_L = '固井仪器下井总次数'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'SCXJ'. FIELDCAT-SELTEXT_L = '生产井仪器下井总次数'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'DXXJ'. FIELDCAT-SELTEXT_L = '单项测井仪器下井总次数'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'XJHJ'. FIELDCAT-SELTEXT_L = '仪器下井总次数合计'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'XJHJB'. FIELDCAT-SELTEXT_L = '仪器下井总次数合计同比'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'WJXJCG'. FIELDCAT-SELTEXT_L = '完井仪器下井成功总次数'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'GJXJCG'. FIELDCAT-SELTEXT_L = '固井仪器下井成功总次数'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'SCXJCG'. FIELDCAT-SELTEXT_L = '生产井仪器下井成功总次数'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'DXXJCG'. FIELDCAT-SELTEXT_L = '单项测井仪器下井成功总次数'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'XJHJCG'. FIELDCAT-SELTEXT_L = '仪器下井总成功次数合计'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'XJHJBCG'. FIELDCAT-SELTEXT_L = '仪器下井总成功次数合计同比'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'WJYQCGL'. FIELDCAT-SELTEXT_L = '完井仪器下井成功率'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'GJYQCGL'. FIELDCAT-SELTEXT_L = '固井仪器下井成功率'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'SCYQCGL'. FIELDCAT-SELTEXT_L = '生产仪器下井成功率'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'DXYQCGL'. FIELDCAT-SELTEXT_L = '单项测井仪器下井成功率'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'ZHYQCGL'. FIELDCAT-SELTEXT_L = '综合仪器下井成功率'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'ZHYQCGLB'. FIELDCAT-SELTEXT_L = '综合仪器下井成功率同比'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'WJCJCGL'. FIELDCAT-SELTEXT_L = '完井测井成功率'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'GJCJCGL'. FIELDCAT-SELTEXT_L = '固井测井成功率'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'SCCJCGL'. FIELDCAT-SELTEXT_L = '生产测井成功率'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'DXCJCGL'. FIELDCAT-SELTEXT_L = '单项测井成功率'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'ZHCJCGL'. FIELDCAT-SELTEXT_L = '综合测井成功率'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'ZHCJCGLB'. FIELDCAT-SELTEXT_L = '综合测井成功率同比'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'WJZYCGL'. FIELDCAT-SELTEXT_L = '完井作业成功率'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'GJZYCGL'. FIELDCAT-SELTEXT_L = '固井作业成功率'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'SCZYCGL'. FIELDCAT-SELTEXT_L = '生产作业成功率'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'DXZYCGL'. FIELDCAT-SELTEXT_L = '单项作业成功率'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'ZHZYCGL'. FIELDCAT-SELTEXT_L = '综合作业成功率'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'ZHZYCGLB'. FIELDCAT-SELTEXT_L = '综合作业成功率同比'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. **********************资料质量********************** CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'TJQX'. FIELDCAT-SELTEXT_L = '探井曲线条数'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'KFQX'. FIELDCAT-SELTEXT_L = '开发井曲线条数'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'SCQX'. FIELDCAT-SELTEXT_L = '生产井曲线条数'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'HJQX'. FIELDCAT-SELTEXT_L = '合计曲线条数'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'TJHGQX'. FIELDCAT-SELTEXT_L = '探井合格曲线条数'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'KFHGQX'. FIELDCAT-SELTEXT_L = '开发井合格曲线条数'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'SCHGQX'. FIELDCAT-SELTEXT_L = '生产井合格曲线条数'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'HJHGQX'. FIELDCAT-SELTEXT_L = '合计合格曲线条数'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'TJYZQX'. FIELDCAT-SELTEXT_L = '探井优质曲线条数'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'KFYZQX'. FIELDCAT-SELTEXT_L = '开发井优质曲线条数'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'SCYZQX'. FIELDCAT-SELTEXT_L = '生产井优质曲线条数'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'HJYZQX'. FIELDCAT-SELTEXT_L = '合计优质曲线条数'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'QXHGL'. FIELDCAT-SELTEXT_L = '曲线合格率'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'QXHGLB'. FIELDCAT-SELTEXT_L = '曲线合格率同比'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'QXYZL'. FIELDCAT-SELTEXT_L = '曲线优质率'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'QXYZLB'. FIELDCAT-SELTEXT_L = '曲线优质率同比'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. **********************资料解释********************** CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'TJJSJC'. FIELDCAT-SELTEXT_L = '探井井次'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'TJCS'. FIELDCAT-SELTEXT_L = '探井层数'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'TJYQCS'. FIELDCAT-SELTEXT_L = '探井油气识别层数'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'TJYQHD'. FIELDCAT-SELTEXT_L = '探井油气识别厚度'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'TJCLM'. FIELDCAT-SELTEXT_L = '探井测量米'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'TJSDM'. FIELDCAT-SELTEXT_L = '探井深度米'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'TJJJM'. FIELDCAT-SELTEXT_L = '探井计价米'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'TJJSM'. FIELDCAT-SELTEXT_L = '探井解释米'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'TJZLJS'. FIELDCAT-SELTEXT_L = '探井平均资料解释时间'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'KFJSJC'. FIELDCAT-SELTEXT_L = '开发井井次'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'KFCS'. FIELDCAT-SELTEXT_L = '开发井层数'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'KFYQCS'. FIELDCAT-SELTEXT_L = '开发井油气识别层数'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'KFYQHD'. FIELDCAT-SELTEXT_L = '开发井油气识别厚度'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'KFCLM'. FIELDCAT-SELTEXT_L = '开发井测量米'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'KFSDM'. FIELDCAT-SELTEXT_L = '开发井深度米'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'KFJJM'. FIELDCAT-SELTEXT_L = '开发井计价米'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'KFJSM'. FIELDCAT-SELTEXT_L = '开发井解释米'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'KFZLJS'. FIELDCAT-SELTEXT_L = '开发井平均资料解释时间'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. **********************识别准确率********************** CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'TJSYQCS'. FIELDCAT-SELTEXT_L = '探井试油气总层数'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'TJFHCS'. FIELDCAT-SELTEXT_L = '探井符合层数'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'TJSBZQL'. FIELDCAT-SELTEXT_L = '探井识别准确率'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'TJSBZQLB'. FIELDCAT-SELTEXT_L = '探井识别准确率同比'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'KFSYQCS'. FIELDCAT-SELTEXT_L = '开发井试油气总层数'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'KFFHCS'. FIELDCAT-SELTEXT_L = '开发井符合层数'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'KFSBZQL'. FIELDCAT-SELTEXT_L = '开发井识别准确率'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'KFSBZQLB'. FIELDCAT-SELTEXT_L = '开发井识别准确率同比'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'ZHSYQCS'. FIELDCAT-SELTEXT_L = '综合试油气总层数'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'ZHFHCS'. FIELDCAT-SELTEXT_L = '综合符合层数'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'ZHSBZQL'. FIELDCAT-SELTEXT_L = '综合识别准确率'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. CLEAR FIELDCAT. FIELDCAT-FIELDNAME = 'ZHSBZQLB'. FIELDCAT-SELTEXT_L = '综合识别准确率同比'. FIELDCAT-OUTPUTLEN = 8. APPEND FIELDCAT. LAYOUT-COLWIDTH_OPTIMIZE = 'X'. LAYOUT-INFO_FIELDNAME = 'COLOR'. V_NC = '00020101'. V_KSRQ = V_KSRQ + V_NC. V_JSRQ = V_JSRQ + V_NC. CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' EXPORTING * I_GRID_TITLE = V_TITLE I_INTERFACE_CHECK = '' I_CALLBACK_PROGRAM = SY-REPID I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE' IS_LAYOUT = LAYOUT IT_FIELDCAT = FIELDCAT[] I_CALLBACK_PF_STATUS_SET = 'SET_PF_STATUS' I_CALLBACK_USER_COMMAND = 'USER_COMMAND' TABLES T_OUTTAB = I_TAB EXCEPTIONS PROGRAM_ERROR = 1 OTHERS = 2. ENDFORM. " ALV_DISPLAY *&--------------------------------------------------------------------* *& Form SET_PF_STATUS *&--------------------------------------------------------------------* * 设置ALV工具栏 *---------------------------------------------------------------------* * -->RT_EXTAB text *---------------------------------------------------------------------* FORM SET_PF_STATUS USING RT_EXTAB TYPE SLIS_T_EXTAB. SET PF-STATUS '0003'. SET TITLEBAR '0003'. ENDFORM. "SET_PF_STATUS *&---------------------------------------------------------------------* *& Form user_command *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->UCOMM text * -->SELFIELD text *----------------------------------------------------------------------* FORM USER_COMMAND USING UCOMM LIKE SY-UCOMM SELFIELD TYPE SLIS_SELFIELD. CASE UCOMM."打印 WHEN 'PRNTFORM'. PERFORM FRM_EXPORT_DATA . ENDCASE. ENDFORM. "USER_COMMAND *&---------------------------------------------------------------------* *& Form TOP_OF_PAGE *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM TOP_OF_PAGE. DATA: LS_LINE TYPE SLIS_LISTHEADER. DATA: LS_STR(100) TYPE C. DATA: LV_VTEXT(40) TYPE C. DATA: L_LINES TYPE I. REFRESH GT_LIST_TOP_OF_PAGE. LS_LINE-TYP = 'H'. LS_LINE-INFO = V_TITLE. APPEND LS_LINE TO GT_LIST_TOP_OF_PAGE. LS_LINE-TYP = 'S'. LS_LINE-INFO = '填报单位：'. APPEND LS_LINE TO GT_LIST_TOP_OF_PAGE. LS_LINE-TYP = 'S'. CONCATENATE '当日时间： ' V_DAY(4) '年' V_DAY+4(2) '月' V_DAY+6(2) '日' P_SBSJ(2) ':' P_SBSJ+2(2) ':' P_SBSJ+4(2) INTO LS_LINE-INFO. APPEND LS_LINE TO GT_LIST_TOP_OF_PAGE. LS_LINE-TYP = 'S'. CONCATENATE '累计时间：' V_KSRQ(4) '年' V_KSRQ+4(2) '月' V_KSRQ+6(2) '日' V_KSSJ(2) ':' V_KSSJ+2(2) ':' V_KSSJ+4(2) '--' V_JSRQ(4) '年' V_JSRQ+4(2) '月' V_JSRQ+6(2) '日' V_JSSJ(2) ':' V_JSSJ+2(2) ':' V_JSSJ+4(2) INTO LS_LINE-INFO. APPEND LS_LINE TO GT_LIST_TOP_OF_PAGE. CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE' EXPORTING IT_LIST_COMMENTARY = GT_LIST_TOP_OF_PAGE. * I_LOGO = * I_END_OF_LIST_GRID = ENDFORM. "TOP_OF_PAGE *&---------------------------------------------------------------------* *& Form FRM_EXPORT_DATA *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM FRM_EXPORT_DATA . TYPES:BEGIN OF TYP_EXCEL, DW TYPE STRING, ZCCJC TYPE STRING,"测井出车总井次 ZCCJCB TYPE STRING,""测井出车总井次比 ZJC TYPE STRING,"测井总井次 ZJCB TYPE STRING,"测井总井次同比 **********************有效作业********************** TJKS TYPE STRING,"探井口数 TJKSB TYPE STRING,"探井口数同比 TJJC TYPE STRING,"探井井次 TJJCB TYPE STRING,"探井井次同比 KFKS TYPE STRING,"开发井口数 KFKSB TYPE STRING,"开发井口数同比 KFJC TYPE STRING,"开发井井次 KFJCB TYPE STRING,"开发井井次同比 XJKS TYPE STRING,"小计口数 XJKSB TYPE STRING,"小计口数同比 XJJC TYPE STRING,"小计井次 XIJCB TYPE STRING,"小计井次同比 GJJC TYPE STRING,"固井质量作业 GJJCB TYPE STRING,"固井质量作业同比 SCJC TYPE STRING,"生产测井 SCJCB TYPE STRING,"生产测井同比 DXJC TYPE STRING,"单项测井作业 DXJCB TYPE STRING,"单项测井作业同比 **********************无效作业********************** WXHJ TYPE STRING,"无效井次合计 WXHJB TYPE STRING,"无效井次合计同比 YZJC TYPE STRING,"遇阻 YQJC TYPE STRING,"遇卡 KPJC TYPE STRING,"空跑 QTJC TYPE STRING,"其它返回 DLJC TYPE STRING,"打捞作业 BZHJC TYPE STRING,"标准化作业 **********************作业时间********************** ZSJ TYPE STRING,"总作业时间 ZSJB TYPE STRING,"总作业时间同比 TJZYSJ TYPE STRING,"探井作业时间 TJZYSJB TYPE STRING,"探井作业时间比 KJZYSJ TYPE STRING,"开发井作业时间 KJZYSJB TYPE STRING,"开发井作业时间比 XJZYSJ TYPE STRING,"小计作业时间 XJZYSJB TYPE STRING,"小计作业时间比 GJZYSJ TYPE STRING,"固井作业时间 GJZYSJB TYPE STRING,"固井作业时间比 SCZYSJ TYPE STRING,"生产井作业时间 SCZYSJB TYPE STRING,"生产井作业时间比 DXZYSJ TYPE STRING,"单项井作业时间 DXZYSJB TYPE STRING,"单项井作业时间比 XCSJ TYPE STRING,"现场总作业时间 XCSJB TYPE STRING,"现场总作业时间同比 TJXCSJ TYPE STRING,"探井现场作业时间 TJXCSJB TYPE STRING,"探井现场作业时间比 KJXCSJ TYPE STRING,"开发井现场作业时间 KJXCSJB TYPE STRING,"开发井现场作业时间比 XJXCSJ TYPE STRING,"小计现场作业时间 XJXCSJB TYPE STRING,"小计现场作业时间比 GJXCSJ TYPE STRING,"固井现场作业时间 GJXCSJB TYPE STRING,"固井现场作业时间比 SCXCSJ TYPE STRING,"生产井现场作业时间 SCXCSJB TYPE STRING,"生产井现场作业时间比 DXXCSJ TYPE STRING,"单项井现场作业时间 DXXCSJB TYPE STRING,"单项井现场作业时间比 PZSJ TYPE STRING,"队伍平均总作业时间 PZSJB TYPE STRING,"队伍平均总作业时间同比 PXCSJ TYPE STRING,"队伍现场平均作业时间 PXCSJB TYPE STRING,"队伍现场平均作业时间同比 **********************作业实效********************** TJSX TYPE STRING,"探井实效 TJSXB TYPE STRING,"探井实效同比 KFSX TYPE STRING,"开发井实效 KFSXB TYPE STRING,"开发井实效比 XJSX TYPE STRING,"小计实效 XJSXB TYPE STRING,"小计实效比 GJSX TYPE STRING,"固井实效 GJSXB TYPE STRING,"固井实效比 SCSX TYPE STRING,"生产井实效 SCSXB TYPE STRING,"生产井实效比 DXSX TYPE STRING,"单项测井实效 DXSXB TYPE STRING,"单项测井实效比 **********************作业质量********************** WJXJ TYPE STRING,"完井仪器下井总次数 GJXJ TYPE STRING,"固井仪器下井总次数 SCXJ TYPE STRING,"生产井仪器下井总次数 DXXJ TYPE STRING,"单项测井仪器下井总次数 XJHJ TYPE STRING,"仪器下井总次数合计 XJHJB TYPE STRING,"仪器下井总次数合计同比 WJXJCG TYPE STRING,"完井仪器下井成功总次数 GJXJCG TYPE STRING,"固井仪器下井成功总次数 SCXJCG TYPE STRING,"生产井仪器下井成功总次数 DXXJCG TYPE STRING,"单项测井仪器下井成功总次数 XJHJCG TYPE STRING,"仪器下井总成功次数合计 XJHJBCG TYPE STRING,"仪器下井总成功次数合计同比 WJYQCGL TYPE STRING,"完井仪器下井成功率 GJYQCGL TYPE STRING,"固井仪器下井成功率 SCYQCGL TYPE STRING,"生产仪器下井成功率 DXYQCGL TYPE STRING,"单项测井仪器下井成功率 ZHYQCGL TYPE STRING,"综合仪器下井成功率 ZHYQCGLB TYPE STRING,"综合仪器下井成功率同比 WJCJCGL TYPE STRING,"完井测井成功率 GJCJCGL TYPE STRING,"固井测井成功率 SCCJCGL TYPE STRING,"生产测井成功率 DXCJCGL TYPE STRING,"单项测井成功率 ZHCJCGL TYPE STRING,"综合测井成功率 ZHCJCGLB TYPE STRING,"综合测井成功率同比 WJZYCGL TYPE STRING,"完井作业成功率 GJZYCGL TYPE STRING,"固井作业成功率 SCZYCGL TYPE STRING,"生产作业成功率 DXZYCGL TYPE STRING,"单项作业成功率 ZHZYCGL TYPE STRING,"综合作业成功率 ZHZYCGLB TYPE STRING,"综合作业成功率同比 **********************资料质量********************** TJQX TYPE STRING,"探井曲线条数 KFQX TYPE STRING,"开发井曲线条数 SCQX TYPE STRING,"生产井曲线条数 HJQX TYPE STRING,"合计曲线条数 TJHGQX TYPE STRING,"探井合格曲线条数 KFHGQX TYPE STRING,"开发井合格曲线条数 SCHGQX TYPE STRING,"生产井合格曲线条数 HJHGQX TYPE STRING,"合计合格曲线条数 TJYZQX TYPE STRING,"探井优质曲线条数 KFYZQX TYPE STRING,"开发井优质曲线条数 SCYZQX TYPE STRING,"生产井优质曲线条数 HJYZQX TYPE STRING,"合计优质曲线条数 QXHGL TYPE STRING,"曲线合格率 QXHGLB TYPE STRING,"曲线合格率同比 QXYZL TYPE STRING,"曲线优质率 QXYZLB TYPE STRING,"曲线优质率同比 **********************资料解释********************** TJJSJC TYPE STRING,"探井井次 TJCS TYPE STRING,"探井层数 TJYQCS TYPE STRING,"探井油气识别层数 TJYQHD TYPE STRING,"探井油气识别厚度 TJCLM TYPE STRING,"探井测量米 TJSDM TYPE STRING,"探井深度米 TJJJM TYPE STRING, TJJSM TYPE STRING,"探井解释米 TJZLJS TYPE STRING,"探井平均资料解释时间 KFJSJC TYPE STRING,"开发井井次 KFCS TYPE STRING,"开发井层数 KFYQCS TYPE STRING,"开发井油气识别层数 KFYQHD TYPE STRING,"开发井油气识别厚度 KFCLM TYPE STRING,"开发井测量米 KFSDM TYPE STRING,"开发井深度米 KFJJM TYPE STRING, KFJSM TYPE STRING,"开发井解释米 KFZLJS TYPE STRING,"开发井平均资料解释时间 **********************识别准确率********************** TJSYQCS TYPE STRING,"探井试油气总层数 TJFHCS TYPE STRING,"探井符合层数 TJSBZQL TYPE STRING,"探井识别准确率 TJSBZQLB TYPE STRING,"探井识别准确率同比 KFSYQCS TYPE STRING,"开发井试油气总层数 KFFHCS TYPE STRING,"开发井符合层数 KFSBZQL TYPE STRING,"开发井识别准确率 KFSBZQLB TYPE STRING,"开发井识别准确率同比 ZHSYQCS TYPE STRING,"综合试油气总层数 ZHFHCS TYPE STRING,"综合符合层数 ZHSBZQL TYPE STRING,"综合识别准确率 ZHSBZQLB TYPE STRING,"综合识别准确率同比 END OF TYP_EXCEL. DATA: IT_EXCEL TYPE STANDARD TABLE OF TYP_EXCEL WITH HEADER LINE. DATA: L_EXCEL TYPE TYP_EXCEL. DATA: IHEADER TYPE ZHEADER WITH HEADER LINE. ********************** DATA: VL_TPL TYPE ZFILEPOOL_IDX-FNAME. DATA: VL_TPL_A(128) TYPE C. DATA: L_STR(200) TYPE C. DATA: L_OUTPUT TYPE TYP_OUTPUT. REFRESH IHEADER. IHEADER-DATA = V_TITLE. IHEADER-ROW = 1. IHEADER-COL = 1. APPEND IHEADER. CONCATENATE '填报单位： ' '　　　　　　当日时间： ' V_DAY(4) '年' V_DAY+4(2) '月' V_DAY+6(2) '日' P_SBSJ(2) ':' P_SBSJ+2(2) ':' P_SBSJ+4(2) ' 累计时间：' V_KSRQ(4) '年' V_KSRQ+4(2) '月' V_KSRQ+6(2) '日' V_KSSJ(2) ':' V_KSSJ+2(2) ':' V_KSSJ+4(2) '--' V_JSRQ(4) '年' V_JSRQ+4(2) '月' V_JSRQ+6(2) '日' V_JSSJ(2) ':' V_JSSJ+2(2) ':' V_JSSJ+4(2) INTO IHEADER-DATA. IHEADER-ROW = 2. IHEADER-COL = 1. APPEND IHEADER. LOOP AT G_OUTPUT INTO L_OUTPUT. * CONCATENATE '~' L_OUTPUT-DW INTO L_OUTPUT-DW. MOVE-CORRESPONDING L_OUTPUT TO L_EXCEL. APPEND L_EXCEL TO IT_EXCEL. CLEAR:L_OUTPUT. ENDLOOP. DATA: P_FILE TYPE STRING. CALL FUNCTION 'WS_FILENAME_GET' EXPORTING DEF_FILENAME = '' DEF_PATH = 'C:/' MASK = ',EXCEL FILES(*.XLS),*.XLS,ALL FILES(*.*),*.*,' MODE = 'O' TITLE = '导出' IMPORTING FILENAME = P_FILE EXCEPTIONS INV_WINSYS = 1 NO_BATCH = 2 SELECTION_CANCEL = 3 SELECTION_ERROR = 4 OTHERS = 5. IF P_FILE IS INITIAL OR SY-SUBRC <> 0. EXIT. ENDIF. VL_TPL = 'C:/TEMP/ZD600PSR028_1.XLT'. VL_TPL_A = 'ZD600PSR028_1'. CALL FUNCTION 'Z_FILELIB_DOWNLOAD' EXPORTING ALIAS = VL_TPL_A FILEPATH = VL_TPL EXCEPTIONS 1 = 1 OTHERS = 2. IF SY-SUBRC <> 0. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. MESSAGE E000(ZD600) WITH '下载到Excel出错！'. ENDIF. CALL FUNCTION 'Z_EXCEL_WRITE4' EXPORTING FILEPATH = P_FILE BEGINPOS_ROW = 7 * beginpos_col = 1 SHOWEXCEL = 0 CLOSE_AFTER_EXIT = 1 * OUTPUTFORMAT = 43 TEMPLATE = VL_TPL REMOVE_TEMPLATE_AFTER_CALL = 'X' * SHEETNAME = '#ACTI' * CALL_MACRO_BEFORE = '' CALL_MACRO_AFTER = 'FILLDATA' PROC_HEADER_DATA = 1 TABLES IOUT = IT_EXCEL IHEADER = IHEADER EXCEPTIONS OLEERROR = 1 INVALIDSHEETNAME = 2 OTHERS = 3. IF SY-SUBRC <> 0. * MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno * WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. MESSAGE E000(ZD600) WITH '下载到Excel出错！'. ELSE. MESSAGE S001(ZD600) WITH '报表数据已经成功下载到:' P_FILE. ENDIF. ENDFORM. " FRM_EXPORT_DATA *&---------------------------------------------------------------------* *& Form js_tb *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->P_PW_OUT_BN_ZKS text * -->P_PW_OUT_QN_ZKS text * <--P_PW_OUTPUT_ZKSB text *----------------------------------------------------------------------* FORM JS_TB USING P_BN P_QN CHANGING P_OUTPUT. IF P_QN = 0 AND P_BN = 0. P_OUTPUT = 0. ELSEIF P_QN = 0. P_OUTPUT = '100.00'. ELSE. P_OUTPUT = ( P_BN - P_QN ) / P_QN * 100. ENDIF. ENDFORM. " js_tb *&---------------------------------------------------------------------* *& Form JS_hjz *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM JS_HJZ. DATA:LT_DATA TYPE TABLE OF TYP_DATA, LW_DATA TYPE TYP_DATA, LW_ZYD TYPE ZD600PSS003. DATA:LT_DW TYPE TABLE OF TYP_DWS, LT_DW_TEMP TYPE TABLE OF TYP_DWS, LT_DWS TYPE TABLE OF TYP_DWS, LW_DW TYPE TYP_DWS, LW_DWS TYPE TYP_DWS, L_KSRQ LIKE V_KSRQ, L_JSRQ LIKE V_JSRQ, L_WEEK TYPE I. L_KSRQ = V_KSRQ - 7."时间前后退一周，确保查询日期包含在其中 L_JSRQ = V_JSRQ + 7. SELECT * FROM ZD600PST022B INTO CORRESPONDING FIELDS OF TABLE LT_DW WHERE ZD600SYBID IN S_SYB AND ZD600XMBID IN S_XMB. LT_DWS = LT_DW. DELETE LT_DWS WHERE ( ZD600TJRQ < L_KSRQ OR ZD600TJRQ > L_JSRQ )."取在时间段中的小队数量 IF LT_DWS IS NOT INITIAL."存在小队情况 VT_DWS_BN = LT_DWS. LT_DW_TEMP = LT_DWS. SORT LT_DW_TEMP BY ZD600TJRQ. DELETE ADJACENT DUPLICATES FROM LT_DW_TEMP COMPARING ZD600TJRQ."删除重复日期 DESCRIBE TABLE LT_DW_TEMP LINES L_WEEK."计算取得几周的小队数量 DESCRIBE TABLE LT_DWS LINES V_DWS_BN. V_DWS_BN = V_DWS_BN / L_WEEK."求这几周内有效平均小队数 ELSE."时间段内没有小队数量 SORT LT_DW BY ZD600TJRQ DESCENDING."查询时间前最近一次统计小队的数量 LOOP AT LT_DW INTO LW_DW WHERE ZD600TJRQ < L_KSRQ. EXIT. ENDLOOP. IF LW_DW IS NOT INITIAL. LOOP AT LT_DW INTO LW_DWS WHERE ZD600TJRQ = LW_DW-ZD600TJRQ. APPEND LW_DWS TO VT_DWS_BN. V_DWS_BN = V_DWS_BN + 1. CLEAR:LW_DWS. ENDLOOP. ELSE."如果时间前没有最近一次统计小队的数量 SORT LT_DW BY ZD600TJRQ ASCENDING."查询时间后最近一次小队数量 LOOP AT LT_DW INTO LW_DW WHERE ZD600TJRQ > L_JSRQ. EXIT. ENDLOOP. IF LW_DW IS NOT INITIAL.. LOOP AT LT_DW INTO LW_DWS WHERE ZD600TJRQ = LW_DW-ZD600TJRQ. APPEND LW_DWS TO VT_DWS_BN. V_DWS_BN = V_DWS_BN + 1. CLEAR:LW_DWS. ENDLOOP. ELSE."以上情况都没有的，按查询到的小队数量统计 CLEAR:LT_DATA. LT_DATA = G_DATA_BN. SORT LT_DATA BY ZYD. DELETE ADJACENT DUPLICATES FROM LT_DATA COMPARING ZYD. DESCRIBE TABLE LT_DATA LINES V_DWS_BN. ENDIF. ENDIF. ENDIF. L_KSRQ = L_KSRQ - V_NC."计算前年的时间 L_JSRQ = L_JSRQ - V_NC. CLEAR: LT_DWS,LW_DW,LT_DW_TEMP,L_WEEK. LT_DWS = LT_DW. DELETE LT_DWS WHERE ( ZD600TJRQ < L_KSRQ OR ZD600TJRQ > L_JSRQ ). IF LT_DWS IS NOT INITIAL. VT_DWS_QN = LT_DWS. LT_DW_TEMP = LT_DWS. SORT LT_DW_TEMP BY ZD600TJRQ. DELETE ADJACENT DUPLICATES FROM LT_DW_TEMP COMPARING ZD600TJRQ. DESCRIBE TABLE LT_DW_TEMP LINES L_WEEK. DESCRIBE TABLE LT_DWS LINES V_DWS_QN. V_DWS_QN = V_DWS_QN / L_WEEK. ELSE. SORT LT_DW BY ZD600TJRQ DESCENDING. LOOP AT LT_DW INTO LW_DW WHERE ZD600TJRQ < L_KSRQ. EXIT. ENDLOOP. IF LW_DW IS NOT INITIAL. LOOP AT LT_DW INTO LW_DWS WHERE ZD600TJRQ = LW_DW-ZD600TJRQ. APPEND LW_DWS TO VT_DWS_QN. V_DWS_QN = V_DWS_QN + 1. CLEAR:LW_DWS. ENDLOOP. ELSE. SORT LT_DW BY ZD600TJRQ ASCENDING. LOOP AT LT_DW INTO LW_DW WHERE ZD600TJRQ > L_JSRQ. EXIT. ENDLOOP. IF LW_DW IS NOT INITIAL.. LOOP AT LT_DW INTO LW_DWS WHERE ZD600TJRQ = LW_DW-ZD600TJRQ. APPEND LW_DWS TO VT_DWS_QN. V_DWS_QN = V_DWS_QN + 1. CLEAR:LW_DWS. ENDLOOP. ELSE. CLEAR:LT_DATA. LT_DATA = G_DATA_QN. SORT LT_DATA BY ZYD. DELETE ADJACENT DUPLICATES FROM LT_DATA COMPARING ZYD. DESCRIBE TABLE LT_DATA LINES V_DWS_QN. ENDIF. ENDIF. ENDIF. CLEAR:LT_DATA. LT_DATA = G_DATA_BN. DELETE LT_DATA WHERE ( YZ = 'X' OR QT = 'X' OR KP = 'X' OR YQ = 'X' ). DESCRIBE TABLE LT_DATA LINES V_ZJC_BN. SORT LT_DATA BY JH. DELETE ADJACENT DUPLICATES FROM LT_DATA COMPARING JH. DESCRIBE TABLE LT_DATA LINES V_ZKS_BN. CLEAR:LT_DATA. LT_DATA = G_DATA_QN. DELETE LT_DATA WHERE ( YZ = 'X' OR QT = 'X' OR KP = 'X' OR YQ = 'X' ). DESCRIBE TABLE LT_DATA LINES V_ZJC_QN. SORT LT_DATA BY JH. DELETE ADJACENT DUPLICATES FROM LT_DATA COMPARING JH. DESCRIBE TABLE LT_DATA LINES V_ZKS_QN. CLEAR:LT_DATA. LT_DATA = G_DATA_BN. SORT LT_DATA BY ZYD. DELETE ADJACENT DUPLICATES FROM LT_DATA COMPARING ZYD. LOOP AT LT_DATA INTO LW_DATA . LW_ZYD-ZD600TPLNRI = LW_DATA-ZYD. APPEND LW_ZYD TO VT_DW. CLEAR:LW_DATA. ENDLOOP. ENDFORM. " JS_ZDWS *&---------------------------------------------------------------------* *& Form SELECT_jB *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM SELECT_JB. SELECT ZD600WLID AS JB ZD600JBL AS JBL FROM ZD600PSD004 INTO CORRESPONDING FIELDS OF TABLE G_JB. SORT G_JB BY JB. DELETE ADJACENT DUPLICATES FROM G_JB COMPARING ALL FIELDS. ENDFORM. " SELECT_jB *&---------------------------------------------------------------------* *& Form SELect_jf *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM SELECT_JF . DATA:LT_MAIN TYPE TABLE OF TYP_MAIN. LT_MAIN = G_MAIN_BN. SORT LT_MAIN BY JF. DELETE ADJACENT DUPLICATES FROM LT_MAIN COMPARING JF. SELECT ZD600XMZID AS JFID"甲方单位ID ZD600XMBID AS XMBID"项目部ID ZD600XMZMC AS JFMC"甲方单位名称 FROM ZD600PSD012 INTO CORRESPONDING FIELDS OF TABLE G_JF FOR ALL ENTRIES IN LT_MAIN WHERE ZD600XMZID = LT_MAIN-JF. SORT G_JF BY JFID XMBID. DELETE ADJACENT DUPLICATES FROM G_JF COMPARING ALL FIELDS. ENDFORM. " SELect_jf