范文一：办公室月度工作计划明细表(优秀模板)

月度工作计划明细表（办公室 4 月份为例）

项 目 分 类

工作事项

完善车辆 管理制度

实施方案或关键环节描述

直接责 任人

协助人或部门 赵宏 许晓青

时间要求 4 月 1 日开 始

可能遇到的阻碍或不 确定性因素 无

质量标准

1、派车员按照绩效管理办法进行调度、统计； 2、时效性：及时整理、核算调度数据，并报送人事 科。

部门负责人评价 实施进展 A、如期完成 B、接近完成 C、需要延期 完成质量 A、满意 B、基本满意 C、待提高 A、满意 B、基本满意 C、待提高 A、满意 B、基本满意 C、待提高 A、满意 B、基本满意 C、待提高 A、满意 B、基本满意 C、待提高 A、满意 B、基本满意 C、待提高 A、满意 B、基本满意 C、待提高 A、满意 B、基本满意 C、待提高 A、满意 B、基本满意 C、待提高 A、满意 B、基本满意 C、待提高

1、下文。 2、正式推行《司机绩效管理办法》 李海平

1、 效能评估小组成员对评估体系进 推 行 行学习交流 《效能评估体系》 2、对办公室、党群科、人事科第一 季度主要工作进行效能评估。 完善招待 管理制度

李海平

效能评估小组

4 月 30 日前 完成 4 月 15 日开 始使用 4 月 30 日前 完成 4 月 29 日前 完成 4 月 30 日前 完成

小组成员出差等因 素，可能影响评估进 度

1、小组成员领悟工作思路，掌握评估方法； A、如期完成 2、对评估工作进行合理分配； B、接近完成 3、 对以上科室工作进行调研， 收集、 整理原始资料。 C、需要延期 A、如期完成

年 度 规 划 项 目

1、 印刷修订后的 《业务招待申请单》 2、正式使用 王维壮 1、完善标准会议模板幻灯片 2、安排专题讲座 制定 QC 活动推进方案和激励办法 李海平 1、形成流程管理初步方案 李海平 1、掌握各部门实施进度 2、提供必要的解读和协助 3、月底汇总各部门实施进度 做好相关协助、协调、服务工作 王 园

许晓青

无

B、接近完成 C、需要延期

规范会议流程

李海平

周新海 效能评估小组 曾 明 王 军 张炳江

无

1、会议模板幻灯片能充分展示标准会议流程内容； A、如期完成 2、讲座易被理解。 B、接近完成 C、需要延期 方案与激励切实可行、符合公司实际条件，具有推 行价值。 方案涵盖管理工作中核心环节，明确关键要素，流 程清晰。 1、掌握各部门实施进度，确保牵头领导掌握项目实 施情况； 2、月终汇总各部门实施进度，形成公司年度规划进 程报告。 A、如期完成 B、接近完成 C、需要延期 A、如期完成 B、接近完成 C、需要延期 A、如期完成 B、接近完成 C、需要延期 A、如期完成

班组建设（QC 小 组活动） 健全控制 与检验体系 协助其他部门实 施 《年度规划

推进 表》

无

月度计划

无

李海平

王 园 许晓青

4 月 30 日前 完成

无

配合生产业务科做好对 外服务承诺发布会的组 织工作 做好全省档案学术研讨 交流活动论文的撰写和 投稿工作 继续做好 2009 年文件 资料的收集、整理和归 档工作

无

B、接近完成 C、需要延期 A、如期完成 B、接近完成 C、需要延期

许晓青 1、收集 2009 年应归档文件材料； 2、整理、分类、立卷、存档。

4 月 30 日前 完成 各部门档案兼 职人员 完成当月进 度 其他部门的配合情 况：移交及时性、齐 全性 符合档案管理制度与标准。

A、如期完成 B、接近完成 C、需要延期

许晓青

工作事项

班组长大会 计划会

工作要素描述

时间通知、议程筹备、会议记录、 会议纪要 时间通知、人员核定、会议记录

责任人

协 助

工 作 量 描 述

10 小时 （每月一次） 6 小时 （每月一次）

工作质量要求

满 意 准确、细致、全面 准确、细致、全面

部门负责人评价

需要督促或提示

会议

王 园 王 园

许晓青 许晓青

1

领导碰头会 安全例会 会议管理 车辆调度 月度调度数 据统计

时间通知、上会材料汇集、议程安 排、会议记录 时间通知、人员核定、会议记录 其它会议的安排、会议室管理 日常调度及管理 统计月度车辆调度数据、各部门使 用数据、车辆运行相关数据 车辆年审、二级维护、临修等 车辆运行相关数据：油耗、里程数 等数据每月定期录入设备管理系统 司机夜班、值班情况 司机值班补贴核算 公司值班人员、值班司机安排 调班、替班等 值班期间履行职责情况督查：在岗 情况、车辆使用、值班记录等 司机调班、替班等 接待、登记外访来客、维持办公楼 前车辆停放秩序 接待档案借调与归档 每周两次到集团收发室取文件 文件流转传阅、登记、移交、跟踪 督办、存档

王 园 许晓青 王 园 赵 宏 许晓青 李海平 李海平 赵 宏 赵 宏 王 园 李海平 王维壮 赵 宏 李海平 许晓青 王 园

许晓青 王 园 许晓青 许晓青 赵 宏 许晓青 赵 宏

4 小时 （每月四次） 4 小时 （每月四次） 日均派车 13 次 4 小时 月均 16 次 3 小时/月

准确、细致、全面 准确、细致、全面 准确、细致、全面 工作时间不离岗、调度合理、服务热情 准确、及时、透明 严格执行管理制度 准确、及时 准确、及时、透明 准确、透明 规范、及时 协调周全、妥当 认真、细致 协调周全、妥当 遵守值班规定时间、妥当处理突发事件 热情、迅速、严格执行管理制度 准确、及时、透明 及时 集团收文 2 个工作日内，公司发文 3 个工作日内 严格执行管理制度 严格执行管理制度 服务热情、迅速、节约 科学、规范、准时 准确、及

时 准确、及时 准确、及时 准确、细致、及时 准确、细致、及时 严格执行加分标准、汇总描述明确清晰 认真、耐心、务实 认真、细致、敏感、及时

例行工作

车辆 管理

车辆维修 审批 设备管理系 统数据录入 司机考勤 值班补贴 公司值班表 公司值班

许晓青 李海平 王维壮 李海平 李海平 王园、许晓青 魏 维 许晓青

2 小时/月 1 小时/月 1 小时/月 月均 3 次 每月检查 2 次 月均 3 次 6 小时/次 月均 20 次（约 15 小时） 2 小时/月 1.5 小时/次（每月 8 次）

值班 情况

值班管理 值班车辆 管理 一楼大厅 值班 档案管理

考 勤、奖金单 纸质文件 收发文 OA 系统文件 文件处理 印鉴管理 复印 打印 登 记 打印、复印

许晓青

日均 4 小时 许晓青 许晓青 许晓青、王 园 许晓青 日均 2 小时 5 小时/月 2 小时/月 2 小时/季度 2 小时/月 4 小时/月 3 小时/月 8 小时/月 每月走访一个班组 每周整理一次 日均 3 次

王 园 王 园 魏 维 王 园 王 园 打印、发放、收集 汇总 许晓青 李海平 李海平 初步汇总、根据硬性加分指标完成 初步审核 关注、收集公司各项制度的执行情 况，收集修订意见 李海平 李海平 李海平

月度工作计划 与总结 电话费、 网络使用费缴纳 基层服务质 量调查 月度考核情 况汇总 月度加分汇 总与审核 QC 活动 完善 公司制度

企管 工作

2

四楼会议室 领导办公室 环境 卫生 档案室 四楼走道 四楼 男卫生间 四楼 女卫生间 大屏幕管理与服务 档案查阅

会前准备、会后清理 周一、周三清扫一次 每月彻底清扫一次 （含卫生死角）

魏 维 魏 维 许晓青 李海平 李海平 魏 维 魏 维

许晓青 王园、李海平 许晓青 王园、许晓青 魏 维

2 小时/日 3 小时/周 2 小时/月 20 分钟/工作日 10 分钟/工作日

齐全、迅速、整洁、定期全面清理卫生死角 迅速、整洁 整洁 清洁、全面 清洁、全面 清洁、全面 规范、专业、严格执行管理制度 及时 规范、专业、及时

王园、许晓青 许晓青

10 分钟/工作日 月均 4 次 月均 3 次

到集团档案馆查询资料

许晓青 王 园 王维壮

临时工作

文字材料撰写 接待、协调工作

月均 10 次

热情、周到、节约

3

范文二：事业支出明细表

附件3 附件3: 行政事业单位支出明细表 编制日期: 编报单位(盖章): 年 月 年 月 日 ?金额单位:元(列至角分) 预??算?? 科?? 目 ?? 算??科??目 款 项 名????称 ???? 称 总????计 ???? 计 工资福利支出 01 01 02 03 04 99 02 01 02 03

04 05 06 07 08 09 10 11 12 基本工资 ??职务工资 ??级别工资 ??岗位工资 ??薪级工资 ??其他工资 津贴补贴 津贴补贴(规范单位) ??特岗津贴 ??警衔津贴 职务岗位津贴 ??规范补贴 ??职务补贴 ??月考核奖 ??浮动工资 ??下乡补贴 ??九三保留津贴 ??浮动物价补贴 ??清凉饮料费 实??际?? 支?? 出 ?? 际??支??出 本月数 累计数 基本支出 财政拨款 预算外资金 累计支出数中: 累计支出数中: 项目支出 其他 财政拨款 预算外资金 其他 1/11

附件3 附件3: 行政事业单位支出明细表 编制日期: 编报单位(盖章): 年 月 年 月 日 ?金额单位:元(列至角分) 预??算?? 科?? 目 ?? 算??科??目 款 项 13 14 15 16 99 03 04 01 02 03 04 05 99 05 06 01 99 07 99 03 04 05 名????称 ???? 称 ??艰苦边远地区津贴 ??地区附加津贴 ??年终一次性奖金(津补贴部分) ??年终政府考核奖及外贸奖 ??其他津贴补贴 奖金 社会保险缴费 ??养老保险费 ??医疗保险费 ??失业保险费 ??补充医疗保险费 ??残疾人就业保障金 ??其他保险缴费 伙食费 伙食补助费 ??误餐补贴 ??其他伙食补助 绩效工资 其他工资福利支出 ??临时工工资 ??病假工资 ??加班工资 实??际?? 支?? 出 ?? 际??支??出 本月数 累计数 基本支出 财政拨款 预算外资金 累计支出数中: 累计支出数中: 项目支出 其他 财政拨款 预算外资金 其他 2/11

附件3 附件3: 行政事业单位支出明细表 编制日期: 编报单位(盖章): 年 月 年 月 日 ?金额单位:元(列至角分) 预??算?? 科?? 目 ?? 算??科??目 款 项 99 01 01 02 99 02 03 04 05 06 07 01 02 03 04 99 08 09 01 02 03 名????称 ???? 称 ??其他工资福利支出经费 商品和服务支出 办?公?费 ??日常办公经费 ??书报费 ??其他办公费 印刷费 咨询费 手续费 水费 电费 邮电费 ??邮寄费 ??电话费 ??网络通讯费 ??电报费 ??其他邮电费 取暖费 物业管理费 ??物业管理经费 ??卫生费 ??“三包”费 实??际?? 支?? 出 ?? 际??支??出 本月数 累计数 基本支出 财政拨款 预算外资金 累计支出数中: 累计支出数中: 项目支出 其他 财政拨款 预算外资金 其他 3/11

附件3 附件3: 行政事业单位支出明细表 编制日期: 编报单位(盖章)?年 月 年 月 日 ?金额单位:元(列至角分) 预??算?? 科?? 目 ?? 算??科??目 款 项 04 99 10 01 02 03 04 05 99 11 12 13 01 02 03 14 15 16 01 02 99 17 ??绿化费 ??其他物业管理费 交通费 ??机动车船燃料费 ??汽车养路保险费 ??过路过桥费 ??车辆船只租赁费 ??车辆船只维修费 ??其他交通费 差旅费 出国费 维修(护)费 ??日常维修(护)经费 ??网络信息维护经费 ??计提的维修费 租赁费 会议费 培训费 ??日常培训经费 ??职工教育经费 ??其他培训费 招待费 名????称 ???? 称 实??际?? 支?? 出 ?? 际??支??出 本月数 累计数 基本支出 财政拨款 预算外资金 累计支出数中: 累计支出数中: 项目支出 其他 财政拨款 预算外资金 其他 4/11

附件3 附件3: 行政事业单位支出明细表 编制日期: 编报单位(盖章): 年 月 年 月 日 ?金额单位:元(列至角分) 预??算?? 科?? 目 ?? 算??科??目 款 18 19 20 21 22 23 24 25 26 27 28 29 02 03 99 99 01 02 03 04 05 06 项 专用材料费 装备购置费 工程建设费 作战费 军用油料费 军队其他运行维护费 被装购置费 专用燃料费 劳务费 委托业务费 工会经费 福利费 ??劳动保护费 ??提取福利费 ??其他福利费 其他商品和服务支出 ??行政赔偿费 ??诉讼费 ??会员费 ??离退休人员特需费 ??来访费 ??广告宣传费 名????称 ???? 称 实??际?? 支?? 出 ?? 际??支??出 本月数 累计数 基本支出 财政拨款 预算外资金 累计支出数中: 累计支出数中: 项目支出 其他 财政拨款 预算外资金 其他 5/11

附件3 附件3: 行政事业单位支出明细表 编制日期: 编报单位(盖章): 年 月 年 月 日 ?金额单位:元(列至角分) 预??算?? 科?? 目 ?? 算??科??目 款 项 07 99 通讯补贴 ??其他杂费 对个人和家庭的补助支出 01 01 02 03 04 99 02 01 02 99

03 04 01 02 99 05 01 02 03 离休费 ??个人离休费 ??离休护理费 ??离休人员医疗费 ??离休人员补贴 ??其他离休经费 退休费 ??个人退休费 ??退休人员补贴 ??其他退休经费 退职(役)费 抚恤金 ??丧葬费 ??定期抚恤金 ??其他抚恤金 生活补助 ??优抚对象生活补助 ??职工生活补助 ??退伍军人生活补助 名????称 ???? 称

实??际?? 支?? 出 ?? 际??支??出 本月数 累计数 基本支出 财政拨款 预算外资金 累计支出数中: 累计支出数中: 项目支出 其他 财政拨款 预算外资金 其他 6/11

附件3 附件3: 行政事业单位支出明细表 编制日期: 编报单位(盖章): 年 月 年 月 日 ?金额单位:元(列至角分) 预??算?? 科?? 目 ?? 算??科??目 款 项 04 05 06 07 08 99 06 01 02 03 04 99 07 01 02 03 04 99 08 09 01 02 名????称 ???? 称 ??遗属生活补助 ??农村党员干部补助 ??复员军人补助 ??退耕还林等补助支出 ??长休人员补助费 ??其他生活补助 救济费 ??城乡生活救济 ??低保贫困户救济 ??精减职工救济补助 ??收养费 ??其他救济费 医疗费 ??职工医疗费 ??离退休人员医疗费 ??新型农村合作医疗支出 ??医疗救助支出 ??其他医疗费 助学金 奖励金 ??独生子女父母奖励费 ??政府奖励支出 实??际?? 支?? 出 ?? 际??支??出 本月数 累计数 基本支出 财政拨款 预算外资金 累计支出数中: 累计支出数中: 项目支出 其他 财政拨款 预算外资金 其他 7/11

附件3 附件3: 行政事业单位支出明细表 编制日期: 编报单位(盖章): 年 月

年 月 日 ?金额单位:元(列至角分) 预??算?

范文三：[宝典]支出明细表

费 用 支 出 明 细 表

核准人:

金额 金额 序 名 称 数量 序 名 称 数量 1 饮水机 1 100 16 美工刀 1 5 2 猫 1 80 17 剪刀 1 4 3 路由器 1 95 18 橡皮擦 1 1 4 文件架 4 56 19 收据 1包 15 5 笔筒 4 32 20 垃圾桶 4 16 6 文件盒 8 24 21 垃圾袋 2 6 7 订书机 1 10 22 烟灰缸 4 24 8 订书针 4盒 8 23 海绵拖1 38

把

9 回形针 2盒 4 24 布拖把 1 30 10 胶水 4 4 25 扫把 1 5 11 中性笔 1盒 10 26 铲子 1 7 12 软抄 1袋 9 27 抹布 4 16 13 卷尺 1 12 28 洗手液 1 12 14 铅笔 4 2.8 29 一次性2 14

水杯

15 便利贴 2 6 30 塑料桶 1 8 16 直尺 1 3 32 文件夹 20 60 合计金额:765元

2013 年 5 月 日

制表人:彭敏

核实人:

范文四：费用支出明细表

费用支出明细表

项目 序号 （1） （2） （3） （4） （5） （6） （7） （8） （9） （10） （11） 合计大写 备注 肆佰肆拾陆 日期 6.18. 6.13. 6.19. 7.10. 7.12. 7.19. 7.21. 目的地 蚌埠 镇江 蚌埠 镇江 蚌埠 镇江 蚌埠 火车及客车车费费用 金额 ￥82 ￥41 ￥36 ￥41 ￥41 ￥82 ￥123 ￥ ￥ ￥ ￥ 合计￥446 人员 2人 1人 1人 1人 1人 2人 3人

年 月

日

备注 因来时乘坐车票已丢

因客车车票时间不明， 无法按以上统计！ 因此按金额次数分类统计。 ￥80 ￥30 ￥24 ￥ 次数 次数 次数 总次数 领款人 16 次 3次 1次

伍元车票 总金额 拾元车票 总金额 出租车 合计大写 审核人 总金额

范文五：材料支出明细表

************************************************************************

* Program ID/Name: ZFIB0020 Date written:2004.04.16 * Author's name: Last update: *----------------------------------------------------------------------*

* Description: ??á??????????í

*----------------------------------------------------------------------*

************************************************************************

report zfib0020 message-id zmsg.

************************************************************************

* TABLES

************************************************************************

tables: bseg,bkpf,mbew.

type-pools: slis.

************************************************************************

* PARAMETERS

************************************************************************

selection-screen skip.selection-screen skip.

selection-screen begin of block yang with frame title text-001. selection-screen skip.

select-options p_hkont for bseg-hkont memory id hkn. *select-options p_budat for bkpf-budat memory id bud. selection-screen skip.

parameters: p_bukrs like bseg-bukrs obligatory memory id buk. parameters: p_gjahr like bkpf-gjahr obligatory memory id gjr. select-options: p_werks for bseg-werks ."obligatory memory id werk. select-options: p_bklas for mbew-bklas ."obligatory memory id bkl.

select-options p_monat for bkpf-monat ."obligatory memory id mon.

selection-screen skip.

selection-screen end of block yang.

************************************************************************

* INCLUDES

************************************************************************

include zauthority_bukrs_p.

include zauthority_werks.

************************************************************************

* DATA

************************************************************************

data: nn type i value 0.

data: title type lvc_title.

data: ws_fieldcat type slis_t_fieldcat_alv with header line,

ws_fieldgroups_tab type slis_t_sp_group_alv,

ws_layout type slis_layout_alv,

ws_sortfields_tab type slis_t_sortinfo_alv,

ws_events type slis_t_event.

data: v_repid like sy-repid.

************************************************************************

* INTERNAL TABLES

************************************************************************

data: begin of it_out occurs 0,

werks like bsis-werks,

hkont like bseg-hkont,

sgtxt like bseg-sgtxt,"?aòa

dmbtr(12) type p decimals 2 ,

wrbtr(12) type p decimals 2,

dmbtrcy(12) type p decimals 2 ,

wrbtrcy(12) type p decimals 2,

* shkzg like bseg-shkzg,

waers like bkpf-waers,

* xnegp like bseg-xnegp,

bklas like mbew-bklas,

konts like t030-konts,

konts_cy like t030-konts,

tx_hkont like skat-txt50,

tx_konts like skat-txt50,

tx_kontc like skat-txt50,

maktx like makt-maktx,

anln1 like bseg-anln1,

kostl like bseg-kostl,

kunnr like bseg-kunnr,

end of it_out .

data: begin of it_outmx occurs 0,

belnr like bseg-saknr,

bukrs like bseg-bukrs,

werks like bsis-werks,

gjahr like bseg-gjahr,

buzei like bseg-buzei,

hkont like bseg-hkont,

sgtxt like bseg-sgtxt,"?aòa

dmbtr type p decimals 2 ,"like bseg-dmbtr,

wrbtr type p decimals 2, " like bseg-wrbtr,

shkzg like bseg-shkzg,

waers like bkpf-waers,

xnegp like bseg-xnegp,

end of it_outmx .

data: begin of it_bsis occurs 0,

belnr like bseg-saknr,

bukrs like bseg-bukrs,

werks like bsis-werks,

gjahr like bseg-gjahr,

buzei like bseg-buzei,

hkont like bseg-hkont,

sgtxt like bseg-sgtxt,"?aòa

dmbtr type p decimals 2 ,"like bseg-dmbtr,

wrbtr type p decimals 2, " like bseg-wrbtr,

shkzg like bseg-shkzg,

waers like bkpf-waers,

xnegp like bseg-xnegp,

monat like bsis-monat,

menge like bseg-menge,

anln1 like bseg-anln1,

kostl like bseg-kostl,

kunnr like bseg-kunnr,

aufnr like bseg-aufnr,

end of it_bsis .

data: it_bsis1 like it_bsis occurs 0 with header line. *----------------------------------------------------------------------*

************************************************************************

*----------------------------------------------------------------------*

*

* MAIN PROGRAM

*

*----------------------------------------------------------------------*

************************************************************************

*----------------------------------------------------------------------*

perform frm_getdat.

perform frm_output.

*----------------------------------------------------------------------*

************************************************************************

*----------------------------------------------------------------------*

*

* FORM

*

*----------------------------------------------------------------------*

************************************************************************

*----------------------------------------------------------------------*

*&---------------------------------------------------------------------*

*& Form FRM_GETDAT

*&---------------------------------------------------------------------*

* text

*-----------------------------------------------------------------

-----*

* --> p1 text

* <-- p2="" text="">

*-----------------------------------------------------------------

-----*

form frm_getdat .

data: begin of it_sat occurs 0,

saknr like skat-saknr,

txt50 like skat-txt50,

end of it_sat.

data: begin of it_sak occurs 0,

saknr like skat-saknr,

end of it_sak.

select bukrs belnr gjahr buzei

hkont dmbtr shkzg sgtxt

wrbtr xnegp werks

from bsis

into corresponding fields of table it_bsis

where bukrs eq p_bukrs and

gjahr eq p_gjahr and

hkont in p_hkont and

monat in p_monat and

werks in p_werks.

if it_bsis[] is initial.

message e001 with '??óDêy?Y????????'.

else.

loop at it_bsis.

select single anln1 kostl kunnr aufnr from bseg

into (it_bsis-anln1,it_bsis-kostl,it_bsis-kunnr,it_bsis-aufnr)

where bukrs = it_bsis-bukrs and

belnr = it_bsis-belnr and

gjahr = it_bsis-gjahr and

buzei = it_bsis-buzei.

select single kostv from aufk

into it_bsis-kostl

where aufnr = it_bsis-aufnr.

modify it_bsis.clear it_bsis.

endloop.

loop at it_bsis.

move: it_bsis-hkont to it_out-hkont,

it_bsis-sgtxt to it_out-sgtxt,

it_bsis-werks to it_out-werks,

it_bsis-anln1 to it_out-anln1,

it_bsis-kostl to it_out-kostl,

it_bsis-kunnr to it_out-kunnr.

if it_bsis-shkzg eq 'H'.

it_out-dmbtr = 0 - it_bsis-dmbtr.

it_out-wrbtr = 0 - it_bsis-wrbtr.

else.

it_out-dmbtr = it_bsis-dmbtr.

it_out-wrbtr = it_bsis-wrbtr.

endif.

collect it_out. clear it_out.

endloop.

endif.

loop at it_out.

select single bklas

into it_out-bklas

from mbew

where matnr eq it_out-sgtxt and

bwkey eq it_out-werks.

*?á??????

select single konts

into it_out-konts

from t030

where ktosl eq 'BSX' and

ktopl eq 'MFCA' and

bklas eq it_out-bklas.

*??òì????

select single konts

into it_out-konts_cy

from t030

where ktosl eq 'PRD' and

ktopl eq 'MFCA' and

bklas eq it_out-bklas.

modify it_out. clear it_out.

endloop.

delete it_out where bklas eq ''.

delete it_out where not bklas in p_bklas.

if it_out[] is initial.

message e001 with '??óDêy?Y????????'.

endif.

select bukrs belnr gjahr buzei

hkont dmbtr shkzg sgtxt

wrbtr xnegp werks

from bsis

into corresponding fields of table it_bsis1

for all entries in it_out

where bukrs eq p_bukrs and

gjahr eq p_gjahr and

hkont eq it_out-konts_cy and

monat in p_monat and

werks eq it_out-werks.

loop at it_out.

loop at it_bsis1 where hkont eq it_out-konts_cy and

werks eq it_out-werks and

sgtxt eq it_out-sgtxt.

if it_bsis1-shkzg eq 'H'.

it_out-dmbtrcy = it_out-dmbtrcy + ( 0 - it_bsis1-dmbtr ).

it_out-wrbtrcy = it_out-wrbtrcy + ( 0 - it_bsis1-wrbtr ).

else.

it_out-dmbtrcy = it_out-dmbtrcy + it_bsis1-dmbtr.

it_out-wrbtrcy = it_out-wrbtrcy + it_bsis1-wrbtr.

endif.

endloop.

modify it_out. clear it_out.

endloop.

delete it_out where wrbtr = 0 and wrbtrcy = 0.

loop at it_out.

move it_out-hkont to it_sak-saknr.

collect it_sak. clear it_sak.

move it_out-konts to it_sak-saknr.

collect it_sak. clear it_sak.

move it_out-konts_cy to it_sak-saknr.

collect it_sak. clear it_sak.

endloop.

*?é??????????

select saknr txt50

from skat

into corresponding fields of table it_sat

for all entries in it_sak

where saknr eq it_sak-saknr and

ktopl eq 'MFCA' and

spras eq '1'.

loop at it_out.

select single maktx into it_out-maktx

from makt

where matnr eq it_out-sgtxt.

read table it_sat with key saknr = it_out-hkont.

if sy-subrc = 0 .

move: it_sat-txt50 to it_out-tx_hkont.

endif.

read table it_sat with key saknr = it_out-konts.

if sy-subrc = 0 .

move: it_sat-txt50 to it_out-tx_konts.

endif.

read table it_sat with key saknr = it_out-konts_cy.

if sy-subrc = 0 .

move: it_sat-txt50 to it_out-tx_kontc.

endif.

modify it_out. clear it_out.

endloop.

endform. " FRM_GETDAT *&----------------------------------------------------------------

-----*

*& FORM USER_COMMAND

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2="" text="">

*----------------------------------------------------------------------*

form user_command using r_ucomm like sy-ucomm

rs_selfield type slis_selfield.

case r_ucomm.

when '&IC1'.

perform frm_display_mx using rs_selfield.

endcase.

endform. "USER_COMMAND

*&---------------------------------------------------------------------*

*& Form FRM_OUTPUT

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2="" text="">

*----------------------------------------------------------------------*

form frm_output .

define hout.

nn = nn + 1.

ws_fieldcat-tabname = 'IT_OUT'.

ws_fieldcat-fieldname = '&1'.

ws_fieldcat-seltext_m = '&2'.

ws_fieldcat-col_pos = nn.

ws_fieldcat-outputlen = &3.

ws_fieldcat-datatype = '&4'.

ws_fieldcat-lzero = 'X'.

ws_fieldcat-no_zero = 'X'.

append ws_fieldcat.

clear ws_fieldcat.

end-of-definition.

hout werks ???? 4 char.

hout bklas ?à?ààà 10 char.

hout konts ?á?????? 10 char.

hout tx_konts ?á???????èê? 30 char.

hout anln1 ×ê?úo? 12 char.

hout kostl ?é???DD? 10 char.

hout kunnr ?í??o? 10 char.

hout sgtxt ??á?o? 15 char.

hout maktx ??á??èê? 30 char.

hout hkont ??o????? 10 char.

hout tx_hkont ??o??????èê? 30 char.

hout wrbtr ???????ò?e?? 25 curr.

hout konts_cy ??òì???? 10 char.

hout tx_kontc ??òì?????èê? 30 char.

hout wrbtrcy ??òì?e?? 25 curr.

v_repid = sy-repid.

ws_layout-zebra = 'X'.

call function 'REUSE_ALV_GRID_DISPLAY'

exporting

i_callback_program = v_repid

is_layout = ws_layout

it_fieldcat = ws_fieldcat[]

it_special_groups = ws_fieldgroups_tab[]

i_callback_user_command = 'USER_COMMAND'

it_sort = ws_sortfields_tab[]

it_events = ws_events[]

i_grid_title = '??á??????????í'

tables

t_outtab = it_out

exceptions

program_error = 1

others = 2.

endform. " FRM_OUTPUT *&----------------------------------------------------------------

-----*

*& Form frm_display_mx

*&----------------------------------------------------------------

-----*

* text

*-----------------------------------------------------------------

-----*

* -->P_RS_SELFIELD text

*----------------------------------------------------------------------*

form frm_display_mx using rs_selfield type slis_selfield.

data: i_index like sy-tabix.

if rs_selfield-sel_tab_field = 'IT_OUT-WRBTR'

or rs_selfield-sel_tab_field = 'IT_OUTMX-WRBTR'.

move rs_selfield-tabindex to i_index.

read table it_out index i_index.

if sy-subrc = 0.

refresh it_outmx. clear it_outmx.

loop at it_bsis where hkont eq it_out-hkont and

sgtxt eq it_out-sgtxt and

werks eq it_out-werks .

move-corresponding it_bsis to it_outmx.

append it_outmx. clear it_outmx.

endloop.

endif.

elseif rs_selfield-sel_tab_field = 'IT_OUT-WRBTRCY'

or rs_selfield-sel_tab_field = 'IT_OUTMX-WRBTRCY'.

move rs_selfield-tabindex to i_index.

read table it_out index i_index.

if sy-subrc = 0.

refresh it_outmx. clear it_outmx.

loop at it_bsis1 where hkont eq it_out-konts_cy and

werks eq it_out-werks and

sgtxt eq it_out-sgtxt.

move-corresponding it_bsis1 to it_outmx.

append it_outmx. clear it_outmx.

endloop.

endif.

endif.

sort it_outmx by belnr buzei.

if not it_outmx[] is initial.

perform frm_outmx.

endif.

endform. " frm_display_mx *&----------------------------------------------------------------

-----*

*& Form frm_outmx

*&----------------------------------------------------------------

-----*

* text

*-----------------------------------------------------------------

-----*

* --> p1 text

* <-- p2="" text="">

*-----------------------------------------------------------------

-----*

form frm_outmx .

define houtt.

nn = nn + 1.

ws_fieldcat-tabname = 'IT_OUTMX'.

ws_fieldcat-fieldname = '&1'.

ws_fieldcat-seltext_m = '&2'.

ws_fieldcat-col_pos = nn.

ws_fieldcat-outputlen = &3.

ws_fieldcat-datatype = '&4'.

ws_fieldcat-lzero = 'X'.

ws_fieldcat-no_zero = 'X'.

append ws_fieldcat.

clear ws_fieldcat.

end-of-definition.

refresh ws_fieldcat. clear ws_fieldcat.

houtt belnr ?á???????ào? 10 char.

houtt buzei ????o? 6 char.

houtt gjahr ?á???ê?è 8 char.

houtt shkzg ?è???ê?? 4 char.

houtt wrbtr ?e?? 20 curr.

v_repid = sy-repid.

ws_layout-zebra = 'X'.

call function 'REUSE_ALV_GRID_DISPLAY'

exporting

i_callback_program = v_repid

is_layout = ws_layout

it_fieldcat = ws_fieldcat[]

it_special_groups = ws_fieldgroups_tab[]

it_sort = ws_sortfields_tab[]

it_events = ws_events[]

i_grid_title = '??á??????????í'

tables

t_outtab = it_outmx

exceptions

program_error = 1

others = 2.

endform. " frm_outmx

转载请注明出处范文大全网 » 办公室月度工作计划明细表(优