从浪潮ERP系统中生成工资短信数据

lingrui

为让所有员工明白各自工资的明细,特设计此小程序,有用到的可以试下.在生成数据后,导出到EXCEL文件,找一个可以分发短信的软件发送即可!

配置文件:lscw.ini  使用说明
帐套和数据库同浪潮
1 每次工资格式变动后请修改lscw.ini文件中"[gzbase01]sql="的内容
格式如：gzbase_xm001,基本工资;gzbase_xm002,岗位工资;
注意,和;的用法；系统自动按上面的排列顺序发放，如果要调整顺序，只需调整此文件即可；
2 修改时不能用回车键，建议打开“格式”菜单下的“自动换行”功能；
3 针对多种类型，只需复制 gzbase01的所有项目，将gzbase01 改成gzbase02 或其它即可

lingrui

[gzbase02]
sjh=gzbase_sjh
sql=GZBASE_XM006,基本工资;GZBASE_XM005,福利费;GZBASE_XM025,水电费;GZBASE_XM063,车补;GZBASE_XM026,降温取暖费;GZBASE_XM021,值加班费合计;GZBASE_XM030,其它补贴;GZBASE_XM067,税后补养老;GZBASE_XM032,养老补贴;GZBASE_XM034,医疗补贴;GZBASE_XM033,补失业保险;GZBASE_XM035,补住房公积金;GZBASE_XM044,扣养老金;GZBASE_XM046,扣医保费;GZBASE_XM045,扣失业保险;GZBASE_XM055,考勤扣款;GZBASE_XM069,缺勤;GZBASE_XM047,扣住房公积金;GZBASE_XM048,扣互助金;GZBASE_XM040,其它扣款;GZBASE_XM041,税后扣款;GZBASE_XM003,扣税;
[gzbase01]
sjh=gzbase_sjh
sql=GZBASE_XM006,基本工资;GZBASE_XM005,福利费;GZBASE_XM025,水电费;GZBASE_XM063,车补;GZBASE_XM026,降温取暖费;GZBASE_XM021,值加班费合计;GZBASE_XM030,其它补贴;GZBASE_XM067,税后补养老;GZBASE_XM032,养老补贴;GZBASE_XM034,医疗补贴;GZBASE_XM033,补失业保险;GZBASE_XM035,补住房公积金;GZBASE_XM044,扣养老金;GZBASE_XM046,扣医保费;GZBASE_XM045,扣失业保险;GZBASE_XM055,考勤扣款;GZBASE_XM069,缺勤;GZBASE_XM047,扣住房公积金;GZBASE_XM048,扣互助金;GZBASE_XM040,其它扣款;GZBASE_XM041,税后扣款;GZBASE_XM003,扣税;

lingrui

string vsnd,vsrq,vssql,vslx,vstabname,vstemp,vstitle
string vszdm,vslm,vscxzd,vssjh
LONG VLROW,VLROWCOUNT
INT I



vstabname= "temp"+trim(string(cpu()))
vsrq = trim(sle_1.text)
vslx = trim(sle_2.text)
vsnd=''
if right(vsrq,2)='12' then vsnd=left(vsrq,4)
//建立临时表
vssql = "create table "+vstabname
vssql += " (f_mob char(11) not null ,"
vssql += " f_dxnr varchar(2000) )"
Execute Immediate :vssql;
If sqlca.sqlcode<>0 then
         messagebox("提示信息","建立临时表出错！错误代码如下:"+'~t~n'+vssql+sqlca.sqlerrtext)
End if


//从LSCW.INI文件中，取[GZBASE0*]下的SQL值，循环读取
vscxzd  = Trim(profilestring('lscw.ini','gzbase'+vslx,'sql','none'))
vssjh   = Trim(profilestring('lscw.ini','gzbase'+vslx,'sjh','none'))
messagebox(vssjh,vscxzd)

//查询sql语句
vssql = " Insert "+vstabname
vssql += " Select "+vssjh+",'您好,你的"+vsrq+"工资已发放,"
vssql += "总额为:'+ltrim(str(gzbase_xm001,5)) +"

Do while pos(vscxzd,';')>0
   vstemp = get_token(vscxzd,';')
        vszdm  = get_token(vstemp,',')
        vslm   = vstemp
        vssql += " case "
        vssql += "                when "+vszdm+" is null then ''"
        vssql += " when "+vszdm+"=0 then ''"
        vssql += " else '"+vslm+"'+ rtrim(ltrim(str("+vszdm+",5))) "
        vssql += " End  "
   vssql += " + "       
loop
//删除最后的 + 号
vssql = left(vssql,len(vssql) - 2)

If cbx_sfyj.checked=true then //已经月结
                  vssql +="  from gzbase_bak "
                vssql +=vsnd
                vssql +=" where gzbase_date='"
                vssql +=vsrq
                vssql += "' and  GZBASE_LBBH='"+vslx+"' AND GZBASE_SYF='Y'  "
                vssql +=" and "+vssjh+" is not null and "+vssjh+"<>'' and gzbase_xm001>0  order by gzbase_xm001 "
else                        //没有月结
                vssql +="  from gzbase "
                vssql += " where   GZBASE_LBBH='"+vslx+"' AND GZBASE_SYF='Y'  "
                vssql +=" and "+vssjh+" is not null and "+vssjh+"<>'' and gzbase_xm001>0  order by gzbase_xm001 "
End if
Execute Immediate :vssql;

if sqlca.sqlcode<>0 then
         messagebox("提示信息","建立临时表出错！错误代码如下:"+'~t~n'+vssql+sqlca.sqlerrtext)
end if         

vstemp="select * from "+vstabname
vstitle=vsrq+"工资数据表"
vstemp=vstemp+" ;"+vstitle
closewithreturn(parent,vstemp)

顶一个，等我下了就连了看看