📄 sbp_psagacct_tielao.~pas

📁 企业端数据申报系统：单位管理模块单位查询. 业务申报模块在线数据下载在线数据上传在线业务申核申报业务查询磁盘数据导出磁盘数据导入在线业务模块在线业务
💻 ~PAS
📖 第 1 页 / 共 2 页
字号:
上一页 12
         ls_ftnotes :=fillchar('★',ln_ms+Fieldbyname('months').asinteger)+fillchar('-',12-Fieldbyname('months').asinteger-ln_ms);
         {edit;
         Fieldbyname('months').AsInteger  :=Fieldbyname('months').AsInteger+6;
         post;}
         months:=Fieldbyname('months').asinteger+6;
        
      end ;
end   else
begin
      if Fieldbyname('months').AsInteger>6 then
      begin
         ln_cypsfd :=trunc(Fieldbyname('ttwage').AsFloat/12*10*0.04)*12/10;
         ln_cycpfd :=trunc(Fieldbyname('ttwage').AsFloat/12*10*0.07)*12/10;
         //--ln_cypsfd := ceil(ln_cypsfd*10)/10;
         //--ln_cycpfd := ceil(ln_cycpfd*10)/10;
         ln_cypsints :=trunc(Fieldbyname('rewage').AsFloat*0.04*10)/10*0.05/12*(Fieldbyname('months').AsInteger+Fieldbyname('months').AsInteger*Fieldbyname('months').AsInteger)/2;
         ln_cycpints :=trunc(Fieldbyname('rewage').AsFloat*0.07*10)/10*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 :=trunc(ln_rewage*0.04*10)/10*ln_ms+trunc(Fieldbyname('ttwage').AsFloat*0.04*10/6)/10*6;
         ln_cycpfd :=trunc(ln_rewage*0.07*10)/10*ln_ms+trunc(Fieldbyname('ttwage').AsFloat*0.07*10/6)/10*6;
         ln_cypsints :=trunc(ln_rewage*0.04*10)/10*0.05/12*((ln_ms+ln_ms*ln_ms)/2+ln_ms*6)+
trunc(Fieldbyname('rewage').AsFloat*0.04*10)/10*0.05/12*(Fieldbyname('months').AsInteger+Fieldbyname('months').AsInteger*Fieldbyname('months').AsInteger)/2;
         ln_cycpints :=trunc(ln_rewage*0.07*10)/10*0.05/12*((ln_ms+ln_ms*ln_ms)/2+ln_ms*6)+
trunc(Fieldbyname('rewage').AsFloat*0.07*10)/10*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; }
         months:=Fieldbyname('months').AsInteger+6;
         
     end  ;
end   ;
end;
if Fieldbyname('yearno').AsInteger=2000 then
begin
         ln_cypsfd :=trunc(Fieldbyname('ttwage').AsFloat/12*10*0.05)*12/10;
         ln_cycpfd :=trunc(Fieldbyname('ttwage').AsFloat/12*10*0.06)*12/10;
        // --ln_cypsfd := ceil(ln_cypsfd*10)/10;
         //--ln_cycpfd := ceil(ln_cycpfd*10)/10;
psints_tielao(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 :=trunc(Fieldbyname('rewage').AsFloat*0.05*10)/10*0.05/12*(25*Fieldbyname('months').AsInteger -Fieldbyname('months').AsInteger*Fieldbyname('months').AsInteger)/2;
     ln_cycpints :=trunc(Fieldbyname('rewage').AsFloat*0.06*10)/10*0.05/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 :=trunc(Fieldbyname('rewage').AsFloat*0.05*10)/10*0.05/12*(Fieldbyname('months').AsInteger+Fieldbyname('months').AsInteger*Fieldbyname('months').AsInteger)/2;
     ln_cycpints :=trunc(Fieldbyname('rewage').AsFloat*0.06*10)/10*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 :=trunc(Fieldbyname('ttwage').AsFloat/12*10*0.06)*12/10;
         ln_cycpfd :=trunc(Fieldbyname('ttwage').AsFloat/12*10*0.05)*12/10;
         //--ln_cypsfd := ceil(ln_cypsfd*10)/10;
         //--ln_cycpfd := ceil(ln_cycpfd*10)/10;
psints_tielao(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 :=trunc(Fieldbyname('rewage').AsFloat*0.06*10)/10*0.035/12*(25*Fieldbyname('months').AsInteger-Fieldbyname('months').AsInteger*Fieldbyname('months').AsInteger)/2;
     ln_cycpints :=trunc(Fieldbyname('rewage').AsFloat*0.05*10)/10*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 :=trunc(Fieldbyname('rewage').AsFloat*0.06*10)/10*0.035/12*(Fieldbyname('months').AsInteger+Fieldbyname('months').AsInteger*Fieldbyname('months').AsInteger)/2;
     ln_cycpints :=trunc(Fieldbyname('rewage').AsFloat*0.05*10)/10*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 :=formatfloat('0',ln_months+Fieldbyname('months').AsFloat);
   if Query.Fieldbyname('yearno').asinteger=1999 then
  temp.parambyname('param9').asinteger:=months
  else  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(trim(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 ;
{--update SBDA_PSAGACCT set LYCPPRIN=ln_lycpfd,LYPSPRIN=ln_lypsfd,LYCPINTS=ln_lycpints,LYPSINTS=ln_lypsints,CYREWG=c_pswgcase.ttwage
   -- where psseno=c_pswgcase.psseno and yearno=c_pswgcase.yearno;
       

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_tielao(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 ;
     end;
   if an_yearno=1997 then
an_lycypsints :=an_lycypsints*0.0712;
//--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 + -