📄 uyjtj.~pas
字号:
qryOut.Open;
QExport.Dataset := qryOut;
QExport.ColumnsWidth.Clear;
QExport.ColumnsWidth.Add('月结日期=7');
QExport.ColumnsWidth.Add('离退休死亡人数=5');
QExport.ColumnsWidth.Add('在职死亡人数=5');
QExport.ColumnsWidth.Add('个人帐户转出人数=5');
QExport.ColumnsWidth.Add('退个人帐户人数=5');
QExport.ColumnsWidth.Add('合计人数=5');
QExport.ColumnsWidth.Add('丧葬费=10');
QExport.ColumnsWidth.Add('一次性抚恤金=10');
QExport.ColumnsWidth.Add('救济金=7');
QExport.ColumnsWidth.Add('个人帐户=10');
QExport.ColumnsWidth.Add('退补金额=10');
QExport.ColumnsWidth.Add('死亡待遇合计=10');
QExport.ColumnsWidth.Add('转出个人帐户=10');
QExport.ColumnsWidth.Add('转出帐户利息=10');
QExport.ColumnsWidth.Add('转出帐户合计=10');
QExport.ColumnsWidth.Add('退个人帐户=10');
QExport.ColumnsWidth.Add('退个人帐户利息=10');
QExport.ColumnsWidth.Add('退个人帐户合计=10');
QExport.ColumnsWidth.Add('总计=10');
QExport.UserFormats.Clear;
QExport.UserFormats.Add('离退休死亡人数=＃');
QExport.UserFormats.Add('在职死亡人数=＃');
QExport.UserFormats.Add('个人帐户转出人数=＃');
QExport.UserFormats.Add('退个人帐户人数=＃');
QExport.UserFormats.Add('合计人数=＃');
QExport.UserFormats.Add('丧葬费=000.00');
QExport.UserFormats.Add('一次性抚恤金=000.00');
QExport.UserFormats.Add('救济金=000.00');
QExport.UserFormats.Add('个人帐户=000.00');
QExport.UserFormats.Add('退补金额=000.00');
QExport.UserFormats.Add('死亡待遇合计=000.00');
QExport.UserFormats.Add('转出个人帐户=000.00');
QExport.UserFormats.Add('转出帐户利息=000.00');
QExport.UserFormats.Add('转出帐户合计=000.00');
QExport.UserFormats.Add('退个人帐户=000.00');
QExport.UserFormats.Add('退个人帐户利息=000.00');
QExport.UserFormats.Add('退个人帐户合计=000.00');
QExport.UserFormats.Add('总计=000.00');
QExport.Execute;
//3.养老待遇明细
QExport.FileName := path + FileName + '_养老待遇明细.xls';
qryOut.Close;
qryOut.SQL.Clear;
qryOut.SQL.Add('SELECT');
qryOut.SQL.Add(' to_char(YJRQ,''yyyymm'') as "月结日期",');
qryOut.SQL.Add(' LXRS as "离休人数",');
qryOut.SQL.Add(' LGRRS as "老工人人数",');
qryOut.SQL.Add(' TXRS as "退休人数",');
qryOut.SQL.Add(' TZRS as "退职人数",');
qryOut.SQL.Add(' LTXRYZS as "合计人数",');
qryOut.SQL.Add(' JCYLJ as "基础养老金",');
qryOut.SQL.Add(' GDXYLJ as "过渡性养老金",');
qryOut.SQL.Add(' GRZHYLJ as "个人帐户养老金",');
qryOut.SQL.Add(' HYGDXBT as "行业过渡性补贴",');
qryOut.SQL.Add(' HLF as "护理费",');
qryOut.SQL.Add(' DFBCLXDY as "地方补充离休待遇",');
qryOut.SQL.Add(' JCYLJ + GDXYLJ +');
qryOut.SQL.Add(' GRZHYLJ + HYGDXBT +');
qryOut.SQL.Add(' HLF + DFBCLXDY AS "基本养老金合计"');
qryOut.SQL.Add('FROM tYLDYTZ_DW_REP');
qryOut.SQL.Add('where dwid=''' + DWID + '''');
qryOut.SQL.Add('ORDER BY YJRQ');
qryOut.Open;
QExport.Dataset := qryOut;
QExport.ColumnsWidth.Clear;
QExport.ColumnsWidth.Add('月结日期=7');
QExport.ColumnsWidth.Add('离休人数=5');
QExport.ColumnsWidth.Add('老工人人数=5');
QExport.ColumnsWidth.Add('退休人数=5');
QExport.ColumnsWidth.Add('退职人数=5');
QExport.ColumnsWidth.Add('合计人数=5');
QExport.ColumnsWidth.Add('基础养老金=10');
QExport.ColumnsWidth.Add('过渡性养老金=10');
QExport.ColumnsWidth.Add('个人帐户养老金=10');
QExport.ColumnsWidth.Add('行业过渡性补贴=7');
QExport.ColumnsWidth.Add('护理费=10');
QExport.ColumnsWidth.Add('地方补充离休待遇=10');
QExport.ColumnsWidth.Add('基本养老金合计=10');
QExport.UserFormats.Clear;
QExport.UserFormats.Add('离休人数=#');
QExport.UserFormats.Add('老工人人数=#');
QExport.UserFormats.Add('退休人数=#');
QExport.UserFormats.Add('退职人数=#');
QExport.UserFormats.Add('合计人数=#');
QExport.UserFormats.Add('基础养老金=00.00');
QExport.UserFormats.Add('过渡性养老金=00.00');
QExport.UserFormats.Add('个人帐户养老金=00.00');
QExport.UserFormats.Add('行业过渡性补贴=00.00');
QExport.UserFormats.Add('护理费=00.00');
QExport.UserFormats.Add('地方补充离休待遇=00.00');
QExport.UserFormats.Add('基本养老金合计=00.00');
QExport.Execute;
//4.待遇支付明细
QExport.FileName := path + FileName + '_待遇支付明细.xls';
qryOut.Close;
qryOut.SQL.Clear;
qryOut.SQL.Add('select');
qryOut.SQL.Add(' to_char(YJRQ,''yyyymm'') as "月结日期",');
qryOut.SQL.Add(' JBYLJ as "基本养老金",');
qryOut.SQL.Add(' SWDY as "死亡待遇",');
qryOut.SQL.Add(' GRZHZC as "个人帐户转出",');
qryOut.SQL.Add(' GRZHTK as "退个人帐户",');
qryOut.SQL.Add(' HJ as "合计" ');
qryOut.SQL.Add('from tREP_DWDYZFHZ');
qryOut.SQL.Add('where dwid=''' + strDWID + '''');
qryOut.SQL.Add('union');
qryOut.SQL.Add('select');
qryOut.SQL.Add(' ''合计'' as "月结日期",');
qryOut.SQL.Add(' SUM(JBYLJ) as "基本养老金",');
qryOut.SQL.Add(' SUM(SWDY) as "死亡待遇",');
qryOut.SQL.Add(' SUM(GRZHZC) as "个人帐户转出",');
qryOut.SQL.Add(' SUM(GRZHTK) as "退个人帐户",');
qryOut.SQL.Add(' SUM(HJ) as "合计" ');
qryOut.SQL.Add('from tREP_DWDYZFHZ');
qryOut.SQL.Add('where dwid=''' + strDWID + '''');
qryOut.SQL.Add('ORDER BY "月结日期"');
qryOut.Open;
QExport.Dataset := qryOut;
QExport.ColumnsWidth.Clear;
QExport.ColumnsWidth.Add('月结日期=7');
QExport.ColumnsWidth.Add('基本养老金=10');
QExport.ColumnsWidth.Add('死亡待遇=10');
QExport.ColumnsWidth.Add('个人帐户转出=10');
QExport.ColumnsWidth.Add('退个人帐户=10');
QExport.ColumnsWidth.Add('合计=10');
QExport.UserFormats.Clear;
QExport.UserFormats.Add('基本养老金=000.00');
QExport.UserFormats.Add('死亡待遇=000.00');
QExport.UserFormats.Add('个人帐户转出=000.00');
QExport.UserFormats.Add('退个人帐户=000.00');
QExport.UserFormats.Add('合计=000.00');
QExport.Execute;
//5.待遇调整明细
QExport.FileName := path + FileName + '_待遇调整明细.xls';
qryOut.Close;
qryOut.SQL.Clear;
qryOut.SQL.Add('select');
// tdwxx.dwdm as "单位代码",
qryOut.SQL.Add(' tryjbxx.xm as "姓名",');
qryOut.SQL.Add(' tryjbxx.sfzh as "身份证号",');
qryOut.SQL.Add(' to_char(ttzxx.ltxsj,''yyyymm'') as "离退休时间",');
qryOut.SQL.Add(' to_char(ttzxx.qssj,''yyyymm'') as "起始时间",');
qryOut.SQL.Add(' to_char(ttzxx.jzsj,''yyyymm'') as "截止时间",');
qryOut.SQL.Add(' ttzxx.zfys as "支付月数",');
qryOut.SQL.Add(' ttzxx.zfhj as "支付合计",');
qryOut.SQL.Add(' ttzxx.hd_dyze as "核定待遇总额",');
qryOut.SQL.Add(' ttzxx.hd_jcylj as "核定基础养老金",');
qryOut.SQL.Add(' ttzxx.hd_gdxylj as "核定过渡性养老金",');
qryOut.SQL.Add(' ttzxx.hd_grzhylj as "核定个人帐户养老金",');
qryOut.SQL.Add(' ttzxx.hd_hygdxbt as "核定行业过渡性补贴" ,');
qryOut.SQL.Add(' ttzxx.hd_dfbclxdy as "核定地方补充离休待遇 ",');
qryOut.SQL.Add(' ttzxx.hd_hlf as "核定护理费",');
qryOut.SQL.Add(' ttzxx.hd_tzj as "核定调整金",');
qryOut.SQL.Add(' ttzxx.tz99_dyze as "99年调整待遇总额",');
qryOut.SQL.Add(' ttzxx.tz99_zj as "99年调整待遇增加",');
qryOut.SQL.Add(' ttzxx.tz99_jcylj as "99年调整基础养老金",');
qryOut.SQL.Add(' ttzxx.tz99_gdxylj as "99年调整过渡性养老金",');
qryOut.SQL.Add(' ttzxx.tz99_grzhylj as "99年调整个人帐户养老金 ",');
qryOut.SQL.Add(' ttzxx.tz99_hygdxbt as "99年调整行业过渡性补贴",');
qryOut.SQL.Add(' ttzxx.tz99_dfbclxdy as "99年调整地方补充离休待遇 ",');
qryOut.SQL.Add(' ttzxx.tz99_hlf as "99年调整护理费",');
qryOut.SQL.Add(' ttzxx.tz99_tzj as "99年调整调整金",');
qryOut.SQL.Add(' ttzxx.tz00_dyze as "2000年调整待遇总额",');
qryOut.SQL.Add(' ttzxx.tz00_zj as "2000年调整待遇增加",');
qryOut.SQL.Add(' ttzxx.tz00_jcylj as "2000年调整基础养老金",');
qryOut.SQL.Add(' ttzxx.tz00_gdxylj as "2000年调整过渡性养老金",');
qryOut.SQL.Add(' ttzxx.tz00_grzhylj as "2000年调整个人帐户养老金",');
qryOut.SQL.Add(' ttzxx.tz00_hygdxbt as "2000年调整行业过渡性补贴",');
qryOut.SQL.Add(' ttzxx.tz00_dfbclxdy as "2000年调整地方补充离休待遇",');
qryOut.SQL.Add(' ttzxx.tz00_hlf as "2000年调整护理费", ');
qryOut.SQL.Add(' ttzxx.tz00_tzj as "2000年调整调整金",');
qryOut.SQL.Add(' ttzxx.tz01_dyze as "2001年调整待遇总额",');
qryOut.SQL.Add(' ttzxx.tz01_zj as "2001年调整待遇增加",');
qryOut.SQL.Add(' ttzxx.tz01_jcylj as "2001年调整基础养老金",');
qryOut.SQL.Add(' ttzxx.tz01_gdxylj as "2001年调整过渡性养老金",');
qryOut.SQL.Add(' ttzxx.tz01_grzhylj as "2001年调整个人帐户养老金",');
qryOut.SQL.Add(' ttzxx.tz01_hygdxbt as "2001年调整行业过渡性补贴",');
qryOut.SQL.Add(' ttzxx.tz01_dfbclxdy as "2001年调整地方补充离休待遇",');
qryOut.SQL.Add(' ttzxx.tz01_hlf as "2001年调整护理费", ');
qryOut.SQL.Add(' ttzxx.tz01_tzj as "2001年调整调整金",');
qryOut.SQL.Add(' ttzxx.tz01_lxshbt as "2001年调整离休生活补贴"');
qryOut.SQL.Add('from ttzxx,tryjbxx');
qryOut.SQL.Add('where ttzxx.ryid=tryjbxx.ryid');
qryOut.SQL.Add(' and tryjbxx.dwid=''' + DWID + '''');
qryOut.SQL.Add('order by tryjbxx.ryid');
qryOut.Open;
QExport.Dataset := qryOut;
QExport.ColumnsWidth.Clear;
QExport.ColumnsWidth.Add('支付月数=5');
QExport.UserFormats.Clear;
QExport.UserFormats.Add('支付月数=#');
QExport.Execute;
//6.减员明细
QExport.FileName := path + FileName + '_减员明细.xls';
qryOut.Close;
qryOut.SQL.Clear;
qryOut.SQL.Add('SELECT ');
qryOut.SQL.Add(' to_char(ff.FFYF,''yyyymm'') "发放月份",');
qryOut.SQL.Add(' ry.xm "姓名",');
qryOut.SQL.Add(' ry.sfzh "身份证号",');
qryOut.SQL.Add(' dm.dmmc "减员原因", ');
qryOut.SQL.Add(' ff.GRZHYE "个人帐户余额",');
{
qryOut.SQL.Add(' ff.GRZHLX "个人帐户利息",');
qryOut.SQL.Add(' ff.YCXLNJT "一次性老年津贴",');
qryOut.SQL.Add(' ff.JCYLJ "基础养老金",');
qryOut.SQL.Add(' ff.GDXYLJ "过渡性养老金",');
qryOut.SQL.Add(' ff.HYGDXBT "行业过渡性补贴",');
qryOut.SQL.Add(' ff.GRZHYLJ "个人帐户养老金",');
qryOut.SQL.Add(' ff.HLF "护理费",');
qryOut.SQL.Add(' ff.DFBCLXDY "地方补充离休待遇",');
qryOut.SQL.Add(' ff.TZJE "调整金额",');
}
qryOut.SQL.Add(' ff.SZF "丧葬费",');
qryOut.SQL.Add(' ff.FXJ "抚恤金",');
qryOut.SQL.Add(' ff.JJF "救济费",');
qryOut.SQL.Add(' ff.TBJE "退补金额",');
qryOut.SQL.Add(' ff.DYZE "待遇总额"');
qryOut.SQL.Add('from tdyff ff,tdmb dm,tryjbxx ry');
qryOut.SQL.Add('where ff.ryzt=dm.dm and dm.zdbz=''TDYFF_RYZT'' and ry.ryid=ff.ryid');
qryOut.SQL.Add('and ff.ryzt in (5,6,7,8)');
qryOut.SQL.Add(' and ry.dwid=''' + DWID + '''');
qryOut.SQL.Add('order by "发放月份"');
qryOut.Open;
QExport.Dataset := qryOut;
QExport.ColumnsWidth.Clear;
QExport.ColumnsWidth.Add('发放月份=7');
QExport.UserFormats.Clear;
QExport.Execute;
//7 支付基金结算表
QExport.FileName := path + FileName + '_支付基金结算.xls';
qryOut.Close;
qryOut.SQL.Clear;
with qryOut do
begin
Sql.Add('SELECT ');
Sql.Add(' to_char(YJRQ,''yyyymm'') "发放月份",');
Sql.Add(' ');
Sql.Add(' ZJ_LTXRS "增加离退休人数",');
Sql.Add(' ZJ_JCYLJ "增加基础养老金",');
Sql.Add(' ZJ_GDXYLJ "增加过渡型养老金",');
Sql.Add(' ZJ_GRZHYLJ "增加个人帐户养老金",');
Sql.Add(' ZJ_SZFXJ "增加丧葬抚恤金",');
Sql.Add(' ZJ_TGRZH "增加退个人帐户",');
Sql.Add(' ');
Sql.Add(' JS_LTXRS "减少离退休人数",');
Sql.Add(' JS_JCYLJ "减少基础养老金",');
Sql.Add(' JS_GDXYLJ "减少过渡型养老金",');
Sql.Add(' JS_GRZHYLJ "减少个人帐户养老金",');
Sql.Add(' ');
Sql.Add(' ZF_LTXRS "实际支付离退休人数",');
Sql.Add(' ZF_JCYLJ "实际支付基础养老金",');
Sql.Add(' ZF_GDXYLJ "实际支付个人帐户养老金",');
Sql.Add(' ZF_SZFXJ "实际支付丧葬抚恤金",');
Sql.Add(' ZF_TGRZH "实际支付退个人帐户",');
Sql.Add(' ZF_HJ "实际支付合计支付"');
Sql.Add('from tREP_DWZFJJJS ');
SQL.Add(' WHERE dwid=''' + DWID + '''');
end;
qryOut.Open;
QExport.Dataset := qryOut;
QExport.ColumnsWidth.Clear;
QExport.ColumnsWidth.Add('发放月份=5');
QExport.UserFormats.Clear;
QExport.UserFormats.Add('发放月份=#');
QExport.UserFormats.Clear;
QExport.Execute;
//8 应发待遇记录
QExport.FileName := path + FileName + '_应发待遇合计.xls';
qryOut.Close;
qryOut.SQL.Clear;
with qryOut do
begin
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -