📄 sbp_psagacct_shangtieshi.~pas

📁 企业端数据申报系统：单位管理模块单位查询. 业务申报模块在线数据下载在线数据上传在线业务申核申报业务查询磁盘数据导出磁盘数据导入在线业务模块在线业务
💻 ~PAS
📖 第 1 页 / 共 2 页
字号:
上一页 12
         edit;
         Fieldbyname('months').asinteger :=Fieldbyname('months').asinteger+6;
      end ;
end else
begin
      if Fieldbyname('months').asinteger>6 then
      begin
         ln_cypsfd :=Fieldbyname('ttwage').asfloat*0.05;
         ln_cycpfd :=Fieldbyname('ttwage').asfloat*0.06;
         ln_cypsints :=Fieldbyname('rewage').asfloat*0.05*0.05/12*(Fieldbyname('months').asinteger+Fieldbyname('months').asinteger*Fieldbyname('months').asinteger)/2;
         ln_cycpints :=Fieldbyname('rewage').asfloat*0.06*0.05/12*(Fieldbyname('months').asinteger+Fieldbyname('months').asinteger*Fieldbyname('months').asinteger)/2;
         ls_wgnotes :=Fieldbyname('rewage').asstring+':'+inttostr(13-Fieldbyname('months').asinteger)+'-12';
         ls_ftnotes :=fillchar('-',12-Fieldbyname('months').asinteger)+fillchar('★',Fieldbyname('months').asinteger);
      end else
      begin
         ln_rewage :=returnrewage(Fieldbyname('psseno').asinteger,1999,db);
         ln_ms :=returnmonth(Fieldbyname('psseno').asinteger,1999,db);
         ln_cypsfd :=ln_rewage*ln_ms*0.05+Fieldbyname('ttwage').asfloat*0.05;
         ln_cycpfd :=ln_rewage*ln_ms*0.06+Fieldbyname('ttwage').asfloat*0.06;
         ln_cypsints :=ln_rewage*0.05*0.05/12*((ln_ms+ln_ms*ln_ms)/2+ln_ms*6)+
Fieldbyname('rewage').asfloat*0.05*0.05/12*(Fieldbyname('months').asinteger+Fieldbyname('months').asinteger*Fieldbyname('months').asinteger)/2;
         ln_cycpints :=ln_rewage*0.06*0.05/12*((ln_ms+ln_ms*ln_ms)/2+ln_ms*6)+
Fieldbyname('rewage').asfloat*0.06*0.05/12*(Fieldbyname('months').asinteger+Fieldbyname('months').asinteger*Fieldbyname('months').asinteger)/2;
         ls_wgnotes :=formatfloat('0.00',ln_rewage)+':'+inttostr(7-ln_ms)+'-6----'+fieldbyname('rewage').asstring+':'+inttostr(13-Fieldbyname('months').asinteger)+'-12';
         ls_ftnotes :=fillchar('-',12-Fieldbyname('months').asinteger-ln_ms)+fillchar('★',ln_ms+Fieldbyname('months').AsInteger);
         edit;
         Fieldbyname('months').AsInteger :=Fieldbyname('months').AsInteger+6;
         post;
     end  ;
end;
end  ;
if Fieldbyname('yearno').asinteger=2000 then
begin
ln_cypsfd :=Fieldbyname('ttwage').asfloat*0.05;
ln_cycpfd :=Fieldbyname('ttwage').asfloat*0.06;
psints_huban(Fieldbyname('psseno').asinteger,2000,ln_lypsfd,ln_lypsints,ln_lypscyints,ln_lycpfd,ln_lycpints,ln_lycpcyints,ln_months,db);
     if ln_months>0 then
     begin
     ln_cypsints :=Fieldbyname('rewage').asfloat*0.05*0.05/12*(25*Fieldbyname('months').asinteger-Fieldbyname('months').asinteger*Fieldbyname('months').asinteger)/2;
     ln_cycpints :=Fieldbyname('rewage').asfloat*0.06*0.05/12*(25*Fieldbyname('months').asinteger-Fieldbyname('months').asinteger*Fieldbyname('months').asinteger)/2;
     ls_wgnotes :=formatfloat('0.00',Fieldbyname('rewage').AsFloat)+':1-'+fieldbyname('months').asstring;
     ls_ftnotes :=fillchar('★',Fieldbyname('months').asinteger)+fillchar('-',12-Fieldbyname('months').asinteger);
     end else
     begin
     ln_cypsints :=Fieldbyname('rewage').asfloat*0.05*0.05/12*(Fieldbyname('months').asinteger+Fieldbyname('months').asinteger*Fieldbyname('months').asinteger)/2;
     ln_cycpints :=Fieldbyname('rewage').asfloat*0.06*0.05/12*(Fieldbyname('months').asinteger+Fieldbyname('months').asinteger*Fieldbyname('months').asinteger)/2;
     ls_wgnotes :=Fieldbyname('rewage').asstring+':'+inttostr(13-Fieldbyname('months').asinteger)+'-12';
     ls_ftnotes :=fillchar('-',12-Fieldbyname('months').asinteger)+fillchar('★',Fieldbyname('months').asinteger);
     end  ;
end  ;
if Fieldbyname('yearno').asinteger=2001 then
begin
ln_cypsfd :=Fieldbyname('ttwage').asfloat*0.06;
ln_cycpfd :=Fieldbyname('ttwage').asfloat*0.05;
psints_huban(Fieldbyname('psseno').AsInteger,2001,ln_lypsfd,ln_lypsints,ln_lypscyints,ln_lycpfd,ln_lycpints,ln_lycpcyints,ln_months,db);
     if ln_months>0 then
     begin
     ln_cypsints :=Fieldbyname('rewage').asfloat*0.06*0.035/12*(25*Fieldbyname('months').asinteger-Fieldbyname('months').asinteger*Fieldbyname('months').asinteger)/2;
     ln_cycpints :=Fieldbyname('rewage').asfloat*0.05*0.035/12*(25*Fieldbyname('months').asinteger-Fieldbyname('months').asinteger*Fieldbyname('months').asinteger)/2;
     ls_wgnotes :=Fieldbyname('rewage').asstring+':1-'+Fieldbyname('months').asstring;
     ls_ftnotes :=fillchar('★',Fieldbyname('months').asinteger)+fillchar('-',12-Fieldbyname('months').asinteger);
     end else
     begin
     ln_cypsints :=Fieldbyname('rewage').asfloat*0.06*0.035/12*(Fieldbyname('months').asinteger+Fieldbyname('months').asinteger*Fieldbyname('months').asinteger)/2;
     ln_cycpints :=Fieldbyname('rewage').asfloat*0.05*0.035/12*(Fieldbyname('months').asinteger+Fieldbyname('months').asinteger*Fieldbyname('months').asinteger)/2;
     ls_wgnotes :=Fieldbyname('rewage').asstring+':'+inttostr(13-Fieldbyname('months').asinteger)+'-12';
     ls_ftnotes :=fillchar('-',12-Fieldbyname('months').asinteger)+fillchar('★',Fieldbyname('months').asinteger);
     end  ;
end  ;
  temp.parambyname('param1').asstring:=Fieldbyname('psseno').asstring;
  temp.parambyname('param2').asstring:=Fieldbyname('yearno').asstring;
  temp.parambyname('param3').asstring:=formatfloat('0.00',ln_lycpfd);
  temp.parambyname('param4').asstring:=formatfloat('0.00',ln_lypsfd);
  temp.parambyname('param5').asstring:=formatfloat('0.00',ln_lycpints);
  temp.parambyname('param6').asstring:=formatfloat('0.00',ln_lypsints);
  temp.parambyname('param7').asstring:=Fieldbyname('ttwage').asstring;
  temp.parambyname('param8').asstring:=inttostr(ln_months+Fieldbyname('months').asinteger);
  temp.parambyname('param9').asstring:=Fieldbyname('months').asstring;
  temp.parambyname('param10').asstring:='0';
  temp.parambyname('param11').asstring:='0';
  temp.parambyname('param12').asstring:=formatfloat('0.00',ln_cycpfd);
  temp.parambyname('param13').asstring:='0';
  temp.parambyname('param14').asstring:=formatfloat('0.00',ln_cypsfd);
  temp.parambyname('param15').asstring:='0';
  temp.parambyname('param16').asstring:=formatfloat('0.00',ln_cycpfd);
  temp.parambyname('param17').asstring:='0';
  temp.parambyname('param18').asstring:='0';
  temp.parambyname('param19').asstring:='0';
  temp.parambyname('param20').asstring:=formatfloat('0.00',ln_cypsfd);
  temp.parambyname('param21').asstring:='0';
  temp.parambyname('param22').asstring:='0';
  temp.parambyname('param23').asstring:='0';
  temp.parambyname('param24').asstring:=formatfloat('0.00',ln_cycpints);
  temp.parambyname('param25').asstring:=formatfloat('0.00',ln_cypsints);
  temp.parambyname('param26').asstring:='0';
  temp.parambyname('param27').asstring:='0';
  temp.parambyname('param28').asstring:='0';
  temp.parambyname('param29').asstring:='0';
  temp.parambyname('param30').asstring:='0';
  temp.parambyname('param31').asstring:='0';
  temp.parambyname('param32').asstring:='0';
  temp.parambyname('param33').asdate:=strtodate(Fieldbyname('yearno').asstring+'-12-31');
  temp.parambyname('param34').asstring:='9';
  temp.parambyname('param35').asstring:='0';
  temp.parambyname('param36').asstring:='0';
  temp.parambyname('param37').asstring:='0';
  temp.parambyname('param38').asstring:=formatfloat('0.00',ln_lycpcyints);
  temp.parambyname('param39').asstring:=formatfloat('0.00',ln_lypscyints);
  temp.parambyname('param40').asstring:='0';
  temp.parambyname('param41').asstring:=ls_wgnotes;
  temp.parambyname('param42').asstring:=ls_ftnotes;
  temp.prepare;
  temp.execSQl;
{INSERT INTO SBDA_PSAGACCT (PRSENO,PSSENO,YEARNO,LYCPPRIN,LYPSPRIN,LYCPINTS,LYPSINTS,CYREWG,
        MONTHS,CYMONTHS,LYMONTHS,LYREMONTHS,CYARCPFD,CYRELYCPFD,CYARPSFD,CYRELYPSFD,
        CYFTCPFD,CYRELYCPAC,SPLYCPFD,CYCPACMONS,CYPSARAC,CYRELYPSARAC,CYRELYPSAC,CYPSACMONS,
        CYCPINTS,CYPSINTS,ACCPINUP,ACPSWGINUP,ACCPINUPINTS,ACPSWGINUPINTS,WGMONUP,DBCPFD,DBPSFD,
        CYDATE,PFLAG,DBFD,TOTFD,TOTPSFD,LYCYCPINTS,LYCYPSINTS,PAYIDX,WGNOTES,FTNOTES)
 values(sb_prseno.nextval,c_pswgcase.psseno,c_pswgcase.yearno,ln_lycpfd,ln_lypsfd,ln_lycpints,ln_lypsints,c_pswgcase.ttwage,
               ln_months+c_pswgcase.months,c_pswgcase.months,0,0,ln_cycpfd,0,ln_cypsfd,0,
                        ln_cycpfd,0,0,0,ln_cypsfd,0,0,0,
                        ln_cycpints,ln_cypsints,0,0,0,0,0,0,0,
                        to_date(c_pswgcase.yearno||'-12-31','yyyy-mm-dd'),'9',0,
                        0,0,ln_lycpcyints,ln_lypscyints,0,ls_wgnotes,ls_ftnotes); }

 

next;
end;
end ;
{Db.Commit ;
except
Db.Rollback ;
end; }
  ///////////////////////////
end;

procedure psints_huban(an_ps  ,an_yearno :integer;var an_lypsprin ,an_lypsints ,an_lycypsints ,an_lycpprin ,an_lycpints ,an_lycycpints:double;var an_months :integer;Db:Tdatabase);
var
  Query:TQuery;
begin
  ///////////////////////////////////////////
  try
  Query:=TQuery.create(nil);
  with Query do
    begin
      Databasename:=db.databasename;
      sql.add('select isnull(lypsprin,0)+isnull(cypsarac,0),isnull(lypsints,0)+isnull(cypsints,0)+isnull(lycypsints,0),');
      sql.add('isnull(lycpprin,0)+isnull(cyftcpfd,0),isnull(lycpints,0)+isnull(cycpints,0)+isnull(lycycpints,0),');
      sql.add('isnull(lypsprin,0)+isnull(cypsarac,0)+isnull(lypsints,0)+isnull(cypsints,0)+isnull(lycypsints,0),');
      sql.add('isnull(lycpprin,0)+isnull(cyftcpfd,0)+isnull(lycpints,0)+isnull(cycpints,0)+isnull(lycycpints,0),isnull(months,0)');
      sql.add('from sbda_psagacct where psseno=:param1 and yearno=:param2');
      parambyname('param1').asinteger:=an_ps;
      parambyname('param2').asinteger:=an_yearno-1;
      prepare;
      open;
      an_lypsprin:=Fields[0].asfloat;
      an_lypsints:=Fields[1].asfloat;
      an_lycpprin:=Fields[2].asfloat;
      an_lycpints:=Fields[3].asfloat;
      an_lycypsints:=Fields[4].asfloat;
      an_lycycpints:=Fields[5].asfloat;
      an_months:=Fields[6].asinteger;
     {select isnull(lypsprin,0)+isnull(cypsarac,0),isnull(lypsints,0)+isnull(cypsints,0)+isnull(lycypsints,0),
   isnull(lycpprin,0)+isnull(cyftcpfd,0),isnull(lycpints,0)+isnull(cycpints,0)+isnull(lycycpints,0),
  isnull(lypsprin,0)+isnull(cypsarac,0)+isnull(lypsints,0)+isnull(cypsints,0)+isnull(lycypsints,0),
  isnull(lycpprin,0)+isnull(cyftcpfd,0)+isnull(lycpints,0)+isnull(cycpints,0)+isnull(lycycpints,0),
  isnull(months,0)
into an_lypsprin,an_lypsints,an_lycpprin,an_lycpints,an_lycypsints,an_lycycpints,an_months
from sbda_psagacct where psseno=an_ps and yearno=an_yearno-1;}

    end;
    if an_yearno=1997 then
an_lycypsints :=an_lycypsints*0.0747;
//--an_lycycpints :=an_lycycpints*0.0747;

if an_yearno=1998 then
begin
an_lycypsints :=an_lycypsints*0.06;
an_lycycpints :=an_lycycpints*0.06;
end  ;
if an_yearno=1999 then
begin
an_lycypsints :=an_lycypsints*0.05;
an_lycycpints :=an_lycycpints*0.05;
end  ;
if an_yearno=2000 then
begin
an_lycypsints :=an_lycypsints*0.05;
an_lycycpints :=an_lycycpints*0.05;
end  ;
if an_yearno=2001 then
begin
an_lycypsints :=an_lycypsints*0.035;
an_lycycpints :=an_lycycpints*0.035;
end  ;
except
    an_lypsprin :=0;
    an_lypsints :=0;
    an_lycpprin :=0;
    an_lycpints :=0;
    an_lycypsints :=0;
    an_lycycpints :=0;
    an_months :=0;
end;
  //////////////////////////////////////////
end;

end.
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -