sbp_psagacct_minhang.~pas

企业端数据申报系统：单位管理模块 单位查询. 业务申报模块 在线数据下载 在线数据上传 在线业务申核 申报业务查询 磁盘数据导出 磁盘数据导入 在线业务模块 在线业务

     ls_ftnotes:=ls_ftnotes+'★';
     for i:=1 to 12-Fieldbyname('months').AsInteger do
     ls_ftnotes:=ls_ftnotes+'-';}
     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';
     {for i:=1 to 12-Fieldbyname('months').AsInteger do
     ls_ftnotes:=ls_ftnotes+'-';
     for i:=1 to Fieldbyname('months').AsInteger do
     ls_ftnotes:=ls_ftnotes+'★'; }
     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_minhang(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:='';
     for i:=1 to Fieldbyname('months').AsInteger do
     ls_ftnotes:=ls_ftnotes+'★';
     for I:=1 to 12-Fieldbyname('months').AsInteger do
     ls_ftnotes:=ls_ftnotes+'-'; }
     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:='';
     for i:=1 to 12-Fieldbyname('months').AsInteger do
     ls_ftnotes:=ls_ftnotes+'-';
     for i:=1 to Fieldbyname('months').AsInteger do
     ls_ftnotes:=ls_ftnotes+'★'; }
     ls_ftnotes :=fillchar('-',12-Fieldbyname('months').AsInteger)+fillchar('★',Fieldbyname('months').AsInteger);
     end ;
end ;
  s:='';
  for i:=0 to Query.FieldCount-1 do
   s:=Fields[i].fieldname;

  with temp do
    begin
      parambyname('param1').AsString :=Query.fieldbyname('psseno').AsString ;
      parambyname('param2').AsString :=Query.fieldbyname('yearno').AsString ;
      parambyname('param3').AsString :=formatfloat('0.00',ln_lycpfd);//Query.fieldbyname('psseno').AsString ;
      parambyname('param4').AsString :=formatfloat('0.00',ln_lypsfd);//Query.fieldbyname('psseno').AsString ;
      parambyname('param5').AsString :=formatfloat('0.00',ln_lycpints);//Query.fieldbyname('psseno').AsString ;
      parambyname('param6').AsString :=formatfloat('0.00',ln_lypsints);//Query.fieldbyname('psseno').AsString ;
      parambyname('param7').AsString :=Query.fieldbyname('ttwage').AsString ; 
      parambyname('param8').AsString :=formatfloat('0.00',ln_months+Query.Fieldbyname('months').AsFloat );//Query.fieldbyname('psseno').AsString ;
      parambyname('param9').AsString :=Query.fieldbyname('months').AsString ;
      parambyname('param10').AsString :='0';//Query.fieldbyname('psseno').AsString ;
      parambyname('param11').AsString :='0';//Query.fieldbyname('psseno').AsString ;
      parambyname('param12').AsString :=formatfloat('0.00',ln_cycpfd);//Query.fieldbyname('psseno').AsString ;
      parambyname('param13').AsString :='0';//Query.fieldbyname('psseno').AsString ;
      parambyname('param14').AsString :=formatfloat('0.00',ln_cypsfd);//Query.fieldbyname('psseno').AsString ;
      parambyname('param15').AsString :='0';//Query.fieldbyname('psseno').AsString ;
      parambyname('param16').AsString :=formatfloat('0.00',ln_cycpfd);//Query.fieldbyname('psseno').AsString ;
      parambyname('param17').AsString :='0';//Query.fieldbyname('psseno').AsString ;
      parambyname('param18').AsString :='0';//Query.fieldbyname('psseno').AsString ;
      parambyname('param19').AsString :='0';//Query.fieldbyname('psseno').AsString ;
      parambyname('param20').AsString :=formatfloat('0.00',ln_cypsfd);//Query.fieldbyname('psseno').AsString ;
      parambyname('param21').AsString :='0';//Query.fieldbyname('psseno').AsString ;
      parambyname('param22').AsString :='0';//Query.fieldbyname('psseno').AsString ;
      parambyname('param23').AsString :='0';//Query.fieldbyname('psseno').AsString ;
      parambyname('param24').AsString :=formatfloat('0.00',ln_cycpints);//Query.fieldbyname('psseno').AsString ;
      parambyname('param25').AsString :=formatfloat('0.00',ln_cypsints);//Query.fieldbyname('psseno').AsString ;
      parambyname('param26').AsString :='0';//Query.fieldbyname('psseno').AsString ;
      parambyname('param27').AsString :='0';//Query.fieldbyname('psseno').AsString ;
      parambyname('param28').AsString :='0';//Query.fieldbyname('psseno').AsString ;
      parambyname('param29').AsString :='0';//Query.fieldbyname('psseno').AsString ;
      parambyname('param30').AsString :='0';//Query.fieldbyname('psseno').AsString ;
      parambyname('param31').AsString :='0';//Query.fieldbyname('psseno').AsString ;
      parambyname('param32').AsString :='0';//Query.fieldbyname('psseno').AsString ;
      parambyname('param33').AsString :=trim(Query.fieldbyname('yearno').AsString)+'-12-31';
      parambyname('param34').AsString :='9';//Query.fieldbyname('psseno').AsString ;
      parambyname('param35').AsString :='0';//Query.fieldbyname('psseno').AsString ;
      parambyname('param36').AsString :='0';//Query.fieldbyname('psseno').AsString ;
      parambyname('param37').AsString :='0';//Query.fieldbyname('psseno').AsString ;
      parambyname('param38').AsString :=formatfloat('0.00',ln_lycpcyints);//Query.fieldbyname('psseno').AsString ;
      parambyname('param39').AsString :=formatfloat('0.00',ln_lypscyints);//Query.fieldbyname('psseno').AsString ;
      parambyname('param40').AsString :='0';//Query.fieldbyname('psseno').AsString ;
      parambyname('param41').AsString :=ls_wgnotes;//Query.fieldbyname('psseno').AsString ;
      parambyname('param42').AsString :=ls_ftnotes;//Query.fieldbyname('psseno').AsString ;
      ExecSQL ;
    end;

{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);}

//end;
next;
end;
end;
{Db.Commit ;
except
Db.Rollback ;
end; }
end;
//民航各年的利息系数
//procedure psints_minhang(an_ps ,an_yearno:integer;var an_lypsprin ,an_lypsints ,an_lycypsints,an_lycpprin,an_lycpints ,an_lycycpints ,an_months :double;db:Tdatabase);
procedure psints_minhang(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);
 Query.DatabaseName :=Db.DatabaseName ;
 Query.SQL.Add('select isnull(lypsprin,0)+isnull(cypsarac,0) ,isnull(lypsints,0)+isnull(cypsints,0)+isnull(lycypsints,0) ,');
 Query.SQL.Add('isnull(lycpprin,0)+isnull(cyftcpfd,0) ,isnull(lycpints,0)+isnull(cycpints,0)+isnull(lycycpints,0) ,');
 Query.SQL.Add('isnull(lypsprin,0)+isnull(cypsarac,0)+isnull(lypsints,0)+isnull(cypsints,0)+isnull(lycypsints,0) ,');
 Query.SQL.Add('isnull(lycpprin,0)+isnull(cyftcpfd,0)+isnull(lycpints,0)+isnull(cycpints,0)+isnull(lycycpints,0) ,isnull(months,0) ');
 Query.SQL.Add('from sbda_psagacct where psseno='+inttostr(an_ps)+' and yearno='+inttostr(an_yearno-1));
{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; }
 Query.Prepare ;
 Query.Open ;
 an_lypsprin:=Query.Fields[0].AsFloat ;
 an_lypsints:=Query.Fields[1].AsFloat ;
 an_lycpprin:=Query.Fields[2].AsFloat ;
 an_lycpints:=query.Fields[3].AsFloat ;
 an_lycypsints:=Query.Fields[4].AsFloat ;
 an_lycycpints:=Query.Fields[5].AsFloat ;
 an_months:=Query.Fields[6].AsInteger ;

if an_yearno=1997 then

an_lycypsints :=an_lycypsints*0.0747;
//--an_lycycpints :=an_lycycpints*0.0747;

if an_yearno=1998 then
an_lycypsints :=an_lycypsints*0.06;
//--an_lycycpints :=an_lycycpints*0.06;

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.