人力资源与工资管理子系统

1、第五章 人力资源与工资管理子系统 一、教学目的和要求： 本章分析人力资源与工资管理子系统的主要功能、数据流图和功能结构图，介绍它的主要库文件结构、输入输出设计及主要处理的设计思路。通过本章教学，使学生了解该子系统的功能及其实现，并要求学生用所学过的数据库语言开发一个工资核算系统。二、教学内容：第一节 手工会计工资核算管理概述 在手工处理环境下，工资核算主要包括工资计算和工资费用分配两方面的内容。 1工资计算 工资计算是指应付工资的计算、代扣款项的计算和实发工资的计算等。为此，会计部门需要从有关部门取得每个职工的详细数据。 （1）从人事部门取得人员进出、调动及职务职称、工作岗位变动和相应的工资福

2、利待遇变动等资料； （2）从劳动部门取得考勤统计资料； （3）从生产车间取得产量和质量统计资料； （4）从总务部门取得房租、水电费等代扣款项资料。 在汇集上述各项原始凭证的基础上，会计部门要负责编制“工资结算单”、“部门汇总表”及整个企业的“工资结算总表”，据以到银行办理取款手续并由企业内部各发放单位如车间或科室、班组或小组进行工资的具体发放，现在也有许多单位是直接从银行把各人的实发工资转入个人存款账户了。“工资结算单”每人一张，上面有本人的各项工资的数据。 2工资的计算方法 工资包括计时工资、计件工资、奖金、津贴和补贴、加班加点工资和特殊情况下支付的工资六个部分。 工资计算比较多的是采用计时

3、工资，即根据职工工资标准、等级，按每个人实际工作时间计算的工资。现在也有许多生产等岗位是计件工资制，或者基本工资加计件工资的混合工资制。工资计算的一般内容和公式为：应发工资=基本工资+职务工资+各种补贴+加班工资+奖金+计件工资缺勤扣款实发工资=应发工资各种代扣款各种代扣款各单位不一，通常有房租、水电费、工会费、个人负担的医药费、个人所得税、养老保险等。3工资费用分配也常简称为工资分配。工资分配是指按照领工资人所在的部门、工种进行工资费用和所提取的福利费进行分类汇总统计，将其计入产品成本和其它相关帐户。会计部门要根据“工资结算汇总表”填制有关记帐凭证并编制“工资及福利费用分配表”，并登记到工资

4、总帐和明细帐帐簿。第二节 人力资源与工资管理子系统的分析与模块设计 现在的ERP软件，特别是国外知名的ERP软件，都把工资核算和人力资源的管理集成在一起来设计了，用以支持与人员录用、业绩考核、晋升、辞退、退休、工资发放等有关的业务处理和管理决策。不再仅仅是工资核算，但可分为由两个不同又相互补充的功能模块构成，即“人力资源管理”和“工资核算”模块。 （一）人力资源与工资管理子系统的主要任务 人力资源与工资管理子系统的主要任务包括以下各项： （1）制定单位和各部门的人员编制标准和等级划分（如职称、工资级别）； （2）进行人才需求的分析、预测； （3）根据编制标准、人才需求预测等制订人才需求计划；

5、（4）制定岗位职责说明； （5）制定待遇制度和福利办法； （6）制定人员培训和业绩考核办法； （7）一般性工作，如人员的招聘、录用、晋升、调动、离休退休或者考勤和工作记录； （8）正确计算职工工资，反映企业与职工之间的工资结算情况； （9）按照工资的用途，将工资费用正确地分配计入产品成本或管理费用、销售费用等； （10）按规定比例正确提取福利费用，并随同工资费用分配计入产品成本等有关科目； （11）正确计算并代扣个人收入所得税； （12）逐级汇总、统计各单位的工资费用总额及所需各种面额人民币张数（由银行代发工资的单位可免计面额张数） （13）打印各种人事管理报表、工资表及有关应付工资和应付福利

6、费的转帐凭证，并将其自动转入帐务处理子系统。 （二）人力资源与工资管理子系统的数据流图按书上所画的图理解和掌握法即可。 （三）人力资源与工资管理子系统功能结构图 按书上所画的图理解和掌握法即可。其中“系统初始化”模块也可以去掉，把“输入职工基本数据”放在输入模块之下。 第三节 主要库文件设计和代码设计各库文件的字段构成不是唯一的，有些软件（如用友）可由用户在对软件初始化时自己增、删、改所需的工资字段，因面能够根据用户的实际需要灵活设定，更加符合用户的实际需要。 工资及福利费用分配文件的应发工资应借科目、计提福利费应借科目字段对编制自动转账分录很有必要，因为应付工资和应付福利费对应的应借科目比较

7、复杂，因人而异，用此字段加以确定后，计算机才方便进行自动编制准确的转账分录。 第四节 几个主要处理实现的思路 一、人力需求预测和计划 预测人力需求量、人力减员量、人力补充指标、人力专业比、人力学历比及人力职称比等。这是一种非结构化的预测决策问题，只能通过人机对话的形式反复调整数据，计算机辅助一些计算、分析，得出计划性指标。二、人事变动及人员考绩的计算机管理包括人员录用、晋升、辞职、辞退、退休和人员各年业绩考核等情况的管理，要设置相应的文件存储相应的数据信息，能方便地查询、分类、汇总、打印输出等。三、工资计算及人工成本分配数据的自动转帐工资计算包括计算个人应发、实发工资，部门和全厂工资汇总、各部

8、门各种钞票张数计算和工资分配的计算。这些计算的程序编写不难，大多是REPLACE ALL <字段名表1> WITH <字段名表2> .的形式，关键是编程时所用的计算公式要准确，输入的工资基本数据要准确。自动转帐的程序应能根据工资及福利费用分配文件中计算好的数据逐个记录编制转账凭证。本章重点：工资计算与人工成本分配的实现本章难点：人工成本分配和自动转账的实现本章复习题： 1人力资源管理的数据流程是由人事部门输入职工的基本数据，工资变动的数据，职工年度考核表，各部门人事需求申请表，招聘广告等资料，（职工年度考核表，各部门人事需求申请表也可由各部门从终端直接输入），然后由人事

9、部门制订人员编制预测计划、人力需求计划，处理人员招聘、晋升、调动、培训、辞退等事务，打印各种人事报表。工资管理核算的数据流程是由会计部门或相关业务部门输入职工的考勤表、计件工作业绩统计表、房租水电、所得税率等，然后计算工资和工资成本的分配，进行工资自动转账，打印各种工资表。2例：XX单位职工XXXX年度考核表 部门： 职工姓名： 填表日期： 年 月 日自 我 总 结自评考核等级（优、良、称职、不称职）班组考核意见和评定等级部门评定等级单位确认考核等级备注3例如，可增加如下的控制措施：（1）由计算机辅助制订出的人员需求计划、招聘录取人员等应由单位领导集体讨论审批后才执行。（2）新增人员增加试用期

10、考核。（3）制定工资总额控制。（4）主管人员定期或不定期复核打印出的职工工资单上的各项工资数据。4人力资源与工资管理系统在MIS中是一个重要的子系统，它对实现企业的战略目标，保持和促进提高企业竞争力和可持续发展至关重要，因为人力资源是企业的重要资产，在企业所有因素中，人的因素总是第1位的。5人事管理模块功能结构图： 人事管理模块 模块初始化 输入计划与处理打印 查询 模块维护 建立库文件人事需求申请 人员一览表人员预测情况数据备份输入职工基职员考核表 职员考核表人员需求计划数据恢复本数据 求职申请表 录用通知 职员考核情况月初始化人事工资变动表解聘通知 任务完成情况密码维护 人才预测表出勤缺勤

11、情况权限维护 需求计划表职工基本数据 求职申请表 工资数据 人才需求分析预测 按部门代码查 制订人才需求计划 按部门名称查 录用调动升迁处理 按职工代码查 按职工名称查 按任意条件查 工资核算模块功能结构图： 工资核算模块 模块初始化 输入工资计算 打印 查询 模块维护 建立库文件考勤表 工资结算单任务完成情况数据备份输入工资基所得税率 工资汇总表出勤缺勤情况数据恢复本数据 病事假扣款率 工资分配表职工基本数据月初始化房租水电等 工资数据 密码维护 权限维护 工资计算 按部门代码查 工资费用分配 按部门名称查 自动转帐 按职工代码查 按职工名称查 按任意条件查 6每月进行工资核算时，先选系统维

12、护的月初始化功能，其功能主要是把上月的工资数据复制备份，然后把工资文件中每个记录的考勤、工作量业绩、加班时间、水电费、应发工资、实发工资等每月都不同的变动数据清零，然后就可以输入当月的考勤、工作量业绩、加班时间、水电费等数据，都输完后即可计算工资和工资分配，进行工资自动转账，打印各种工资表。最后从银行取款发放工资或把各人工资直接转入其个人账户。7工资文件的字段除书是所列的“基本工资、工龄工资、奖金、津贴、粮物价贴、加班、其他补贴、事假扣款、病假扣款、应发工资、个人所得税、住房公积金、房租、水电费、其他扣款、实发工资”外，按现在一般单位的工资项目，还可增加“职务工资、计件工资、水电交通电话补贴、

13、养老保险、工会费”等字段。每月输入完工资数据后计算每个职工的应发、实发工资，按部门汇总各部门各项工资数据的FOXPRO程序：USE 工资文件 REPL ALL应发工资WITH基本工资+奖金+工龄工资+职务工资+; 计件工资+津贴+粮物价贴+加班+计件工资+水电交通电话补贴+其它补贴-事假扣款； -病假扣款 REPL ALL实发工资WITH应发工资-房租-水电费-养老保险-工会费-其它扣款TOTAL ON部门码TO HZ 如果每月工资只发到整数元，元以下的小数部分不发，留待下月再计入实发工资，那么工资文件应增加“上月尾数，本月尾数”两个字段，以便存放上月未发的1元以下的尾数据，在本月计算工资时要

14、加到实发工资中去，本月计得实发工资的尾数则存入本月尾数字段，在下月初始化时转入上月尾数字段。故计算实发工资时应这样计算： REPL ALL实发工资WITH应发工资-房租-水电费-养老保险-工会费-其它扣款+上月尾数 REPL ALL本月尾数WITH实发工资-INT(实发工资),实发工资WITH ； 实发工资-本月尾数本章案例：下面的程序是某单位计算工资和工资费用分配的程序：* GZJS.PRG * 工资计算 *SET SAFE OFFSET TALK OFFCLOS ALLCLEASELE 2USE NOTE &&钞票张数文件ZAPSELE 1USE GZ INDE GZSY

15、&&工资主文件，按部门索引REINLOCA FOR标志=0 &&工资主文件设有“标志”字段，其值：* 0-本月已初始化* 1-本月数据已输入。* 2-本月工资已计算好* 3-本月工资已打印 IF .NOT. EOF()10,20 SAY ' 本月活动数据还未输完,不能计算!'DO YS &&延时程序，延迟一段时间CLOS DATARETUENDICLEA10,20 SAY '现在开始进行工资计算!'KGL=0.0012,20 SAY '请输入每年工龄工资数 : ' GET KGL PICT '

16、;99.99'READ14,20 SAY '正在计算,请等待.'REPL ALL工龄WITH VAL(Y)-VAL(LEFT(DTOC(参加工作日),2)-1; FOR VAL(M)<MONTH(参加工作日)REPL ALL工龄WITH VAL(Y)-VAL(LEFT(DTOC(参加工作日),2); FOR VAL(M)>=MONTH(参加工作日)REPL ALL工龄工资WITH KGL*工龄,缺勤扣合计WITH事假扣款+病假扣款+; 旷工扣款，加班WITH (基本工资/25)*加班REPL ALL应发工资WITH基本工资+奖励工资+工龄工资+职务工资+;计

17、件工资+工种津贴+洗理+粮物价贴+夜餐+加班+其它补贴-缺勤扣合计-其它扣除REPL ALL实发工资WITH应发工资-药费-房租-水费-电费-国库券-其它代扣款+上月尾数REPL ALL本月尾数WITH实发工资-INT(实发工资),实发工资WITH ； 实发工资-本月尾数,人数WITH 1SELE 3 USE BMDMDO WHIL .NOT. EOF()BM=部门码SELE 1SET FILT TO部门码=BMPRIV BY,WSY,SY,WY,EY,YYSTOR 0 TO BY,WSY,SY,WY,EY,YYGO TOPDO WHIL .NOT. EOF()X=实发工资BY1=INT(X/

18、100)BY=BY+BY1X=X-100*BY1IF X>=50WSY=WSY+1X=X-50ENDISY1=INT(X/10)SY=SY+SY1X=X-SY1*10IF X>=5WY=WY+1X=X-5ENDIEY1=INT(X/2)EY=EY+EY1X=X-EY1*2YY=YY+XSKIPENDDSELE 2APPE BLANREPL部门码WITH BM,百元WITH BY,伍拾元WITH WSY, 拾元WITH; SY,伍元WITH WY,贰元WITH EY, 壹元WITH YYSELE 3SKIPENDDSELE 1SET FILT TOTOTAL ON部门码TO HZ F

19、IELDS基本工资,奖励工资,工龄工资,职务工资,计件工资,;工种津贴,洗理,粮物价贴,夜餐,加班,其它补贴,缺勤扣合计,其它扣除,应发工资,;药费,房租,水费,电费,国库券,其它代扣款,上月尾数,实发工资,本月尾数 1,0 CLEA10,20 SAY '现在开始进行工资分配计算!'11,28 SAY '请等待!' INDEX ON工资应借科目TO SYSELE 2USE FPKZAPSELE 3GO TOPDO WHIL .NOT. EOF()BM=部门码 SELE 1SET FILT TO部门码=BMGO TOPIF .NOT. EOF()TOTAL ON工

20、资应借科目TO YJHZ FIELDS人数,应发工资,粮物价贴SELE 2APPE FROM YJHZ FIEL部门码 ,人数 ,应发工资,粮物价贴 ,工资应借科目ENDISELE 3SKIPENDDDELE FILE YJHZ.DBFSELE 2REPL ALL提福利费WITH (应发工资-粮物价贴)*0.14 ,提工会费WITH ；(应发工资-粮物价贴)*0.02,提教育费WITH (应发工资-粮物价贴)*0.015REPL ALL福利费应借科目WITH工资应借科目REPL福利费应借科目 WITH '521' FOR SUBS(工资应借科目,1,3)='214

21、9;SELE 1SET FILT TOREPL ALL标志WITH 2CLEA CLOS ALL10,25 SAY '工资一系列计算完毕!'DO YSRETU下面是实现工资自动转账的原理程序：*GZJZ.PRGset safe offCLOS DATACLEA0,0 SAY 'GZJZ.PRG'? ' 'SELE 1USE GZGO BOTTIF标志=4?' 本月工资已转帐,不能再转帐!'DO YSRETUENDIIF标志<3?' 本月工资未计算好或未打印出来校对好,不能转帐!'DO YSRETUENDIWA

22、IT ' 本月工资确实计算好并经打印完检查无误可以转帐了吗？(Y/N) : ' TO YYY IF UPPE(YYY)#'Y'RETUENDI?' 'WAIT ' 请再次确认(Y/N) : ' TO YYYIF UPPE(YYY)#'Y'RETUENDI*下面对分配库转帐MG5='转帐'SELE 1USE KJXTZWCLPZSET FILT TO LEFT(PZH,4)='转帐'GO TOPIF EOF()PZH0='0'ELSEGO BOTTPZH0=RIGHT(

23、PZH,4)ENDIPZH0=VAL(PZH0)COPY STRU TO JZPZKUSE JZPZKSELE 2USE FPKINDE ON工资应借科目TO IYJSET EXAC ONSET FILT TO TRIM(工资应借科目)#'40101' GO TOPTOTAL ON工资应借科目TO TYJUSE TYJPZH0=PZH0+1PZH1='000'+LTRIM(STR(PZH0,4)PZH1=RIGHT(PZH1,4)PZH1=MG5+PZH1ZY1='结转工资福利费'DO WHIL .NOT. EOF()SELE 1APPE BLA

24、NKREPL RQ WITH DATE(),PZH WITH PZH1,JD WITH 'D',CJM WITH B->工资应借科目,； JE WITH B->应发工资+B->提福利费,ZY WITH ZY1,BZ WITH 1IF LEFT(B->工资应借科目,3)='214'REPL JE WITH B->应发工资 APPE BLANKREPL RQ WITH DATE(),PZH WITH PZH1,JD WITH 'D',CJM WITH B->福利费应借科目,； JE WITH B->提福利费,

25、ZY WITH ZY1,BZ WITH 1ENDISELE 2SKIPENDDSUM ALL应发工资TO YFGZSUM ALL提福利费TO TFLFSELE 1APPE BLANKREPL RQ WITH DATE(),PZH WITH PZH1,JD WITH 'C',CJM WITH '211',； JE WITH YFGZ,ZY WITH ZY1,BZ WITH 1APPE BLANREPL RQ WITH DATE(),PZH WITH PZH1,JD WITH 'C',CJM WITH '214',； JE WITH

26、TFLF,ZY WITH ZY1,BZ WITH 1SELE 2SUM ALL提工会费TO TGHFSUM ALL提教育费TO TJYF PZH0=PZH0+1PZH1='000'+LTRIM(STR(PZH0,4)PZH1=RIGHT(PZH1,4)PZH1=MG5+PZH1ZY1='结转所提工会费'SELE 1APPE BLANKREPL RQ WITH DATE(),PZH WITH PZH1,JD WITH 'D',CJM WITH '521',； JE WITH TGHF,ZY WITH ZY1,BZ WITH 1SEL

27、E 2USE KJXTZWCLKMLOCA FOR LEFT(CJM,3)='209'.AND.'工会'$EJKMIF .NOT. EOF()DKM=CJMELSEDKM='209'ENDISELE 1APPE BLANKREPL RQ WITH DATE(),PZH WITH PZH1,JD WITH 'C',CJM WITH DKM,； JE WITH TGHF,ZY WITH ZY1,BZ WITH 1PZH0=PZH0+1PZH1='000'+LTRIM(STR(PZH0,4)PZH1=RIGHT(PZH1

28、,4)PZH1=MG5+PZH1ZY1='结转所提职工教育费'SELE 1APPE BLANKREPL RQ WITH DATE(),PZH WITH PZH1,JD WITH 'D',CJM WITH '521',； JE WITH TJYF,ZY WITH ZY1,BZ WITH 1SELE 2USE KJXTZWCLKMLOCA FOR LEFT(CJM,3)='231'.AND.'职工教育费'$EJKMIF .NOT. EOF()DKM=CJMELSEDKM='231'ENDISELE 1A

29、PPE BLANKREPL RQ WITH DATE(),PZH WITH PZH1,JD WITH 'C',CJM WITH DKM,； JE WITH TJYF,ZY WITH ZY1,BZ WITH 1*下面对代扣款转帐SELE 2USE GZSUM ALL药费,房租,水费,电费,国库券,其它代扣款TO YF,FZ,SF,DF,GKJ,QTDKKIF YF+FZ+SF+DF+GKJ+QTDKK#0PZH0=PZH0+1PZH1='000'+LTRIM(STR(PZH0,4)PZH1=RIGHT(PZH1,4)PZH1=MG5+PZH1ZY1='结转

30、工资代扣款'SELE 1APPE BLANKREPL RQ WITH DATE(),PZH WITH PZH1,JD WITH 'D',CJM WITH '211',； JE WITH YF+FZ+SF+DF+GKJ+QTDKK,ZY WITH ZY1,BZ WITH 1ENDISELE 2USE KJXTZWCLKMIF YF#0ZY1='结转工资代扣款-药费'LOCA FOR LEFT(CJM,3)='209'.AND.'药费'$EJKMIF .NOT. EOF()DKM=CJMELSEDKM='

31、;209'ENDISELE 1APPE BLANKREPL RQ WITH DATE(),PZH WITH PZH1,JD WITH 'C',CJM WITH DKM,； JE WITH YF,ZY WITH ZY1,BZ WITH 1ENDISELE 2IF FZ#0ZY1='结转工资代扣款-房租'LOCA FOR LEFT(CJM,3)='209'.AND.'房租'$EJKMIF .NOT. EOF()DKM=CJMELSEDKM='209'ENDISELE 1APPE BLANKREPL RQ WIT

32、H DATE(),PZH WITH PZH1,JD WITH 'C',CJM WITH DKM,； JE WITH FZ,ZY WITH ZY1,BZ WITH 1ENDISELE 2IF SF#0ZY1='结转工资代扣款-水费'LOCA FOR LEFT(CJM,3)='209'.AND.'水费'$EJKMIF .NOT. EOF()DKM=CJMELSEDKM='209'ENDISELE 1APPE BLANKREPL RQ WITH DATE(),PZH WITH PZH1,JD WITH 'C

33、9;,CJM WITH DKM,； JE WITH SF,ZY WITH ZY1,BZ WITH 1ENDISELE 2IF DF#0ZY1='结转工资代扣款-电费'LOCA FOR LEFT(CJM,3)='209'.AND.'电费'$EJKMIF .NOT. EOF()DKM=CJMELSEDKM='209'ENDISELE 1APPE BLANKREPL RQ WITH DATE(),PZH WITH PZH1,JD WITH 'C',CJM WITH DKM,； JE WITH DF,ZY WITH ZY1

34、,BZ WITH 1ENDISELE 2IF GKJ#0ZY1='结转工资代扣款国库券'LOCA FOR LEFT(CJM,3)='209'.AND.'国库券'$EJKMIF .NOT. EOF()DKM=CJMELSEDKM='209'ENDISELE 1APPE BLANKREPL RQ WITH DATE(),PZH WITH PZH1,JD WITH 'C',CJM WITH DKM,； JE WITH GKJ,ZY WITH ZY1,BZ WITH 1ENDISELE 2IF QTDKK#0ZY1=

35、9;结转工资代扣款-其它'LOCA FOR LEFT(CJM,3)='209'.AND.'其它'$EJKMIF .NOT. EOF()DKM=CJMELSEDKM='209'ENDISELE 1APPE BLANKREPL RQ WITH DATE(),PZH WITH PZH1,JD WITH 'C',CJM WITH DKM,； JE WITH QTDKK,ZY WITH ZY1,BZ WITH 1ENDISELE 1GO TOPIF .NOT. EOF()USE KJXTZWCLPZ INDE KJXTZWCLIPZH,KJXTZWCLPZHDAPPE FROM JZPZKCLOS DATA!CDKJXTZWCLDO ZWGZENDICLOS DATA!CDKJXTGZHSSELE 1USE GZREPL ALL标志WITH 41,0 CLEA? '需计算机自动转帐结平的科目已转帐完毕！'? '下面要打印出本次转帐的全部转帐凭证，请开好打印机并装上窄行打印纸后'? ? '按任一键开始打印！'WAIT ' '!CDKJXT