📄 breakinfo.~pas
字号:
DataShare_frm.Query4.ParamByName('param11').AsString :='1';//审核标志 1待审报，2已申报 4 申报通过 6不通过
DataShare_frm.Query4.parambyname('param12').asstring :=formatfloat('0.00',RMD.fieldbyname('nextyearjs').asfloat);
DataShare_frm.Query4.Prepare ;
DataShare_frm.Query4.ExecSQL ;
with DataShare_frm.Query5 do
begin
close;
sql.Clear ;
params.Clear ;
sql.Add('update sbda_psagacct set siinter=:param1,lycycpints=:param2,lycypsints=:param3,');
sql.Add('lypsprin=:param6,lycpprin=:param7,lypsints=:param8,lycpints=:param9 ');
sql.Add(' where yearno=:param4 and psseno=:param5');
end;
with DataShare_frm.Query7 do
begin
close;
sql.Clear ;
params.Clear ;
//20040509
//sql.Add('select lypsprin,lypsints,cypsints,lycpprin,lycpints,cycpints,cypsarac,cyftcpfd from sbda_psagacct ');
sql.Add('select lypsprin,lypsints,cypsints,');
sql.Add('lycpprin,lycpints,cycpints,cypsarac,');
sql.Add('cyftcpfd,lycypsints,lycycpints from sbda_psagacct ');
sql.Add('where psseno=:param1 and yearno=:param2');
end;
//---------------20020610,读取利率----------------------
with DataShare_frm.Query8 do
begin
close;
sql.Clear ;
sql.Add('select siinter from sbds_inancons where industry=:param1 and yearno=:param2');
end;
//---------------20020610,读取利率----------------------
if RMD.Fields[3].AsInteger<2002 then
psagacct_all(RMD.Fields[2].AsInteger,RMD.Fields[3].AsInteger,DataShare_frm.Dbs) //结息
else
begin
lypsprin:=0;lypsints:=0;cypsints:=0;lypsints:=0;lycycpints:=0;cyftcpfd:=0;//个人部分
lycpprin:=0;lycpints:=0;cycpints:=0;lycpints:=0;lycypsints:=0;cypsarac:=0;//企业部分
//----------------------20040610----------------
with DataShare_frm.Query8 do
begin
close;
parambyname('param1').AsString :=Flatcombobox11.Items[ndx]; //Flatcombobox11存放的是行业代号
parambyname('param2').AsInteger :=RMD.Fields[3].AsInteger;
prepare;
open;
if recordcount>0 then interest:=Fields[0].AsFloat else interest:=0;
end;
//----------------------20040610----------------
//interest:=RMD.fieldbyname('siinter').AsFloat;
with DataShare_frm.Query7 do
begin
close;
ParamByName('param1').AsString :=RMD.Fields[2].AsString ;
ParamByName('param2').AsInteger:=RMD.Fields[3].AsInteger-1 ; //上一年数据
Prepare ;
Open ;
if RecordCount>0 then
begin
lypsprin:=Fieldbyname('lypsprin').AsFloat;
cypsints:=Fieldbyname('cypsints').AsFloat;
lypsints:=Fieldbyname('lypsints').AsFloat;
lycpprin:=Fieldbyname('lycpprin').AsFloat;
lycpints:=Fieldbyname('lycpints').AsFloat;
cycpints:=Fieldbyname('cycpints').AsFloat;
cypsarac:=Fieldbyname('cypsarac').AsFloat;
cyftcpfd:=Fieldbyname('cyftcpfd').AsFloat;
lycypsints:=Fieldbyname('lycypsints').AsFloat;
lycycpints:=Fieldbyname('lycycpints').AsFloat;
end;
end;
lypsprin:=lypsprin+cypsarac;
lycpprin:=lycpprin+cyftcpfd;
lypsints:=lypsints+cypsints+lycypsints;
lycpints:=lycpints+cycpints+lycycpints;
//lypsints:=lypsints+cypsints;
//lycpints:=lycpints+cycpints;
//------200405-------
lycycpints:=(lycpprin+lycpints)*interest;
lycypsints:=(lypsprin+lypsints)*interest;
{lycycpints:=(RMD.fieldbyname('lycpprin').AsFloat+RMD.fieldbyname('lycpints').AsFloat)*interest;
lycypsints:=(RMD.fieldbyname('lypsprin').AsFloat+RMD.fieldbyname('lypsints').AsFloat)*interest; }
{lycypsints:=(lypsprin+lypsints)*interest;//+cypsints+lypsints ;
lycycpints:=(lycpprin+lycpints)*interest;//+cycpints+lycpints ;}
with DataShare_frm.Query5 do
begin
close;
ParamByName('param1').AsString:=formatfloat('0.0000',interest);
ParamByName('param2').AsString :=formatfloat('0.00',lycycpints);
ParamByName('param3').AsString :=formatfloat('0.00',lycypsints);
paramByname('param4').AsInteger:=RMD.Fields[3].AsInteger ;
parambyname('param5').AsString :=RMD.Fields[2].AsString ;
parambyname('param6').AsString :=formatfloat('0.00',lypsprin);
parambyname('param7').AsString :=formatfloat('0.00',lycpprin);
parambyname('param8').AsString :=formatfloat('0.00',lypsints);
parambyname('param9').AsString :=formatfloat('0.00',lycpints);
RMD.Next ;
prepare;
execsql;
end;
end;
RMD.Next;
//next; RMD.Next ;
while not RMD.Eof do
begin
DataShare_frm.Common_Query.ParamByName('param1').AsFloat :=RMD.Fields[4].AsFloat ;
DataShare_frm.Common_Query.ParamByName('param2').AsInteger :=RMD.Fields[5].AsInteger ;
DataShare_frm.Common_Query.ParamByName('param3').AsInteger :=RMD.Fields[2].AsInteger ;
DataShare_frm.Common_Query.ParamByName('param4').AsInteger :=Rmd.Fields[3].AsInteger ;
//-----------------20040610-----------------------
if RMD.Fields[5].AsInteger>0 then //月平均缴费数据
DataShare_frm.Common_Query.ParamByName('param5').AsString :=formatfloat('0.00',RMD.Fields[4].AsFloat/RMD.Fields[5].AsInteger)
else
DataShare_frm.Common_Query.ParamByName('param5').AsString :='0';
//----------------20040610----------------------------
DataShare_frm.Common_Query.Prepare ;
DataShare_frm.Common_Query.ExecSQL ;
DataShare_frm.Query4.ParamByName('param1').AsString :=RMD.Fields[2].AsString ; // /*人员内码*/
DataShare_frm.Query4.ParamByName('param2').AsString :=RMD.Fields[1].AsString ; // /*姓名*/
DataShare_frm.Query4.ParamByName('param3').AsString :=RMD.Fields[0].AsString ; // /*社会保障号*/
DataShare_frm.Query4.ParamByName('param4').AsString :=RMD.Fields[3].AsString ; // /*年份*/
DataShare_frm.Query4.ParamByName('param5').AsString :=RMD.Fields[5].AsString ; // /*缴费月数 */
if RMD.Fields[5].AsInteger=0 then
DataShare_frm.Query4.ParamByName('param6').AsString :='0'
else
DataShare_frm.Query4.ParamByName('param6').AsString :=formatfloat('0.00',RMD.Fields[4].AsFloat/RMD.Fields[5].AsInteger);// /*月缴费工资*/
DataShare_frm.Query4.ParamByName('param7').AsString :=RMD.Fields[4].AsString ; // /*年缴费工资*/
DataShare_frm.Query4.ParamByName('param8').AsString :='2'; // /*上传标志，1个人帐户数据整理，2固定职工和合同制职工缴费后建帐前数据，3原异地转入人员数据未处理，4原异地转入人员数据已处理*/
DataShare_frm.Query4.ParamByName('param9').AsString :=main_frm.user.OPNAME ;
DataShare_frm.Query4.ParamByName('param10').AsString :=datetimetostr(now);
DataShare_frm.Query4.ParamByName('param11').AsString :='1';//审核标志 1待审报，2已申报 4 申报通过 6不通过
DataShare_frm.Query4.Prepare ;
DataShare_frm.Query4.ExecSQL ;
if RMD.Fields[3].AsInteger<2002 then
psagacct_all(RMD.Fields[2].AsInteger,RMD.Fields[3].AsInteger,DataShare_frm.Dbs) //结息
else
begin
lypsprin:=0;lypsints:=0;cypsints:=0;lypsints:=0;lycycpints:=0;cypsarac:=0;//个人部分
lycpprin:=0;lycpints:=0;cycpints:=0;lycpints:=0;lycypsints:=0;cyftcpfd:=0;//企业部分
//----------------------20040610----------------
with DataShare_frm.Query8 do
begin
close;
parambyname('param1').AsString :=Flatcombobox11.Items[ndx]; //Flatcombobox11存放的是行业代号
parambyname('param2').AsInteger :=RMD.Fields[3].AsInteger;
prepare;
open;
if recordcount>0 then interest:=Fields[0].AsFloat else interest:=0;
end;
//----------------------20040610----------------
//interest:=RMD.fieldbyname('siinter').AsFloat;
with DataShare_frm.Query7 do
begin
close;
ParamByName('param1').AsString :=RMD.Fields[2].AsString ;
ParamByName('param2').AsInteger:=RMD.Fields[3].AsInteger-1 ; //上一年数据
Prepare ;
Open ;
if RecordCount>0 then
begin
lypsprin:=Fieldbyname('lypsprin').AsFloat;
cypsints:=Fieldbyname('cypsints').AsFloat;
lypsints:=Fieldbyname('lypsints').AsFloat;
lycpprin:=Fieldbyname('lycpprin').AsFloat;
lycpints:=Fieldbyname('lycpints').AsFloat;
cycpints:=Fieldbyname('cycpints').AsFloat;
cypsarac:=Fieldbyname('cypsarac').AsFloat;
cyftcpfd:=Fieldbyname('cyftcpfd').AsFloat;
lycypsints:=Fieldbyname('lycypsints').AsFloat;
lycycpints:=Fieldbyname('lycycpints').AsFloat;
end;
end;
lypsprin:=lypsprin+cypsarac;
lycpprin:=lycpprin+cyftcpfd;
lypsints:=lypsints+cypsints+lycypsints;
lycpints:=lycpints+cycpints+lycycpints;
//lypsints:=lypsints+cypsints;
//lycpints:=lycpints+cycpints;
//------200405-------
lycycpints:=(lycpprin+lycpints)*interest;
lycypsints:=(lypsprin+lypsints)*interest;
{lycycpints:=(RMD.fieldbyname('lycpprin').AsFloat+RMD.fieldbyname('lycpints').AsFloat)*interest;
lycypsints:=(RMD.fieldbyname('lypsprin').AsFloat+RMD.fieldbyname('lypsints').AsFloat)*interest; }
{lycypsints:=(lypsprin+lypsints)*interest;//+cypsints+lypsints ;
lycycpints:=(lycpprin+lycpints)*interest;//+cycpints+lycpints ; }
with DataShare_frm.Query5 do
begin
close;
ParamByName('param1').AsString:=formatfloat('0.0000',interest);
ParamByName('param2').AsString :=formatfloat('0.00',lycycpints);
ParamByName('param3').AsString :=formatfloat('0.00',lycypsints);
paramByname('param4').AsInteger:=RMD.Fields[3].AsInteger ;
parambyname('param5').AsString :=RMD.Fields[2].AsString ;
parambyname('param6').AsString :=formatfloat('0.00',lypsprin);
parambyname('param7').AsString :=formatfloat('0.00',lycpprin);
parambyname('param8').AsString :=formatfloat('0.00',lypsints);
parambyname('param9').AsString :=formatfloat('0.00',lycpints);
RMD.Next ;
prepare;
execsql;
end;
end;
RMD.Next;
//psagacct_all(RMD.Fields[2].AsInteger,RMD.Fields[3].AsInteger,DataShare_frm.Dbs); //结息
//next;RMD.Next ;
end;
{DataShare_frm.Query3.Close ; //清除上传表sbdz_psagacct的相应记录
DataShare_frm.Query3.SQL.Clear ;
DataShare_frm.Query3.SQL.Add('delete from sbdz_psagacct where PSSENO=:param' );
DataShare_frm.Query3.ParamByName('param').AsString :=RMD.Fields[2].AsString ;
DataShare_frm.Query3.Prepare ;
DataShare_frm.Query3.ExecSQL ; }
DataShare_frm.PersonalAccount_Query.Close ; //写入上传表sbdz_psagacct记录
Datashare_frm.PersonalAccount_Query.SQL.Clear ;
//DataShare_frm.PersonalAccount_Query.SQL.Add('insert into sbdz_psagacct select * from sbda_psagacct where PSSENO=:param' );
DataShare_frm.PersonalAccount_Query.SQL.Add('insert into sbdz_psagacct(');
DataShare_frm.PersonalAccount_Query.SQL.Add('PSSENO,YEARNO,LYCPPRIN,LYPSPRIN,LYCPINTS,LYPSINTS,CYREWG,MONTHS,CYMONTHS,');
DataShare_frm.PersonalAccount_Query.SQL.Add('PAYIDX,LYMONTHS,LYREMONTHS,CYARCPFD,CYRELYCPFD,CYARPSFD,CYRELYPSFD,CYFTCPFD,');
DataShare_frm.PersonalAccount_Query.SQL.Add('CYRELYCPAC,SPLYCPFD,CYCPACMONS,CYPSARAC,CYRELYPSARAC,CYRELYPSAC,CYPSACMONS,');
DataShare_frm.PersonalAccount_Query.SQL.Add('CYCPINTS,CYPSINTS,ACCPINUPINTS,ACCPINUP,ACPSWGINUP,ACPSWGINUPINTS,WGMONUP,');
DataShare_frm.PersonalAccount_Query.SQL.Add('DBCPFD,DBPSFD,CYDATE,PFLAG,DBFD,WGNOTES,FTNOTES,TOTFD,TOTPSFD,LYCYCPINTS,');
DataShare_frm.PersonalAccount_Query.SQL.Add('LYCYPSINTS,NOTES,CYACMONS,PSRATE,CPRATE,SIINTER,OPCODE,OPDATE,PROCFLG)');
DataShare_frm.PersonalAccount_Query.SQL.Add('select PSSENO,YEARNO,LYCPPRIN,LYPSPRIN,LYCPINTS,LYPSINTS,CYREWG,MONTHS,CYMONTHS,');
DataShare_frm.PersonalAccount_Query.SQL.Add('PAYIDX,LYMONTHS,LYREMONTHS,CYARCPFD,CYRELYCPFD,CYARPSFD,CYRELYPSFD,CYFTCPFD,');
DataShare_frm.PersonalAccount_Query.SQL.Add('CYRELYCPAC,SPLYCPFD,CYCPACMONS,CYPSARAC,CYRELYPSARAC,CYRELYPSAC,CYPSACMONS,');
DataShare_frm.PersonalAccount_Query.SQL.Add('CYCPINTS,CYPSINTS,ACCPINUPINTS,ACCPINUP,ACPSWGINUP,ACPSWGINUPINTS,WGMONUP,');
DataShare_frm.PersonalAccount_Query.SQL.Add('DBCPFD,DBPSFD,CYDATE,PFLAG,DBFD,WGNOTES,FTNOTES,TOTFD,TOTPSFD,LYCYCPINTS,');
DataShare_frm.PersonalAccount_Query.SQL.Add('LYCYPSINTS,NOTES,CYACMONS,PSRATE,CPRATE,SIINTER,');
DataShare_frm.PersonalAccount_Query.SQL.Add(Quotedstr(main_frm.user.OPNAME)+','+Quotedstr(datetimetostr(now))+',1'+' from sbda_psagacct where PSSENO=:param' );
DataShare_frm.PersonalAccount_Query.ParamByName('param').AsString :=RMD.Fields[2].AsString ;
DataShare_frm.PersonalAccount_Query.Prepare ;
DataShare_frm.PersonalAccount_Query.ExecSQL ;
DataShare_frm.Dbs.Commit ;
except
DataShare_frm.Dbs.Rollback ;
application.MessageBox('数据更新异常!','恩普软件',mb_iconerror+mb_ok);
end;
//end;
// end;
end;
procedure TBreakinfo_frm.init;
var
i:integer;
begin
flatcombobox6.ItemIndex:=-1;
flatcombobox7.ItemIndex :=-1;
flatcombobox8.ItemIndex :=-1;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -