⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 sbp_psagacct_tielao_tl.pas

📁 企业端数据申报系统：单位管理模块 单位查询. 业务申报模块 在线数据下载 在线数据上传 在线业务申核 申报业务查询 磁盘数据导出 磁盘数据导入 在线业务模块 在线业务
💻 PAS
📖 第 1 页 / 共 3 页
字号:
🔍
123 
  case  temp_i of
    1: ln_yjs1:=7;
    2: ln_yjs1:=15;
    3: ln_yjs1:=24;
    4: ln_yjs1:=34;
    5: ln_yjs1:=45;
    6: ln_yjs1:=57;
  end;
{select decode(c_pswgcase.months - 6,1,1,2,3,3,6,4,10,5,15) into ln_yjs from dual;
select decode(c_pswgcase.months - 6,1,7,2,15,3,24,4,34,5,45,6,57) into ln_yjs1 from dual;  }
ln_cypsints :=Fieldbyname('rewage').AsFloat*0.05*0.0712/(Fieldbyname('months').AsInteger - 6)*ln_yjs+ln_re*0.05*0.0712/(ln_mon - 6)*ln_yjs1;
ls_wgnotes :=formatfloat('0.00',ln_re)+':1-'+inttostr(ln_mon - 6)+'----'+Fieldbyname('rewage').AsString+':'+inttostr(19 - Fieldbyname('months').AsInteger)+'-12';
ls_ftnotes :=fillchar('★',ln_mon - 6)+fillchar('-',12 - ln_mon)+fillchar('-',12 - Fieldbyname('months').AsInteger)+fillchar('★',Fieldbyname('months').AsInteger - 6);
ln_months1 :=Fieldbyname('months').AsInteger - 6 + ln_mon - 6;
end else if (Fieldbyname('months').AsInteger>=1) and (Fieldbyname('months').AsInteger<7) then
begin
	  ln_cypsfd :=ceil((Fieldbyname('ttwage').AsFloat)*0.05*10)/10 + ceil(ln_re*(ln_mon - 6)*0.05*10)/10;
    temp_i:=Fieldbyname('months').AsInteger ;
    case temp_i of
      1: ln_yjs:=1;
      2: ln_yjs:=3;
      3: ln_yjs:=6;
      4: ln_yjs:=10;
      5: ln_yjs:=15;
    end;
    case temp_i of
      1: ln_yjs1:=7;
      2: ln_yjs1:=15;
      3: ln_yjs1:=24;
      4: ln_yjs1:=34;
      5: ln_yjs1:=45;
      6: ln_yjs1:=57;
    end;
         { select decode(c_pswgcase.months - 6,1,1,2,3,3,6,4,10,5,15) into ln_yjs from dual;
          select decode(c_pswgcase.months - 6,1,7,2,15,3,24,4,34,5,45,6,57) into ln_yjs1 from dual;}
          ln_cypsints :=Fieldbyname('rewage').AsFloat*0.05*0.0712/(Fieldbyname('months').AsInteger)*ln_yjs+ln_re*0.05*0.0712/(ln_mon - 6)*ln_yjs1;
	  ls_wgnotes :=formatfloat('0.00',ln_re)+':1-'+inttostr(ln_mon - 6)+'----'+Fieldbyname('rewage').AsString+':'+inttostr(13 - Fieldbyname('months').AsInteger)+'-12';
          ls_ftnotes :=fillchar('★',ln_mon - 6)+fillchar('-', 12 - ln_mon)+fillchar('-',6 - Fieldbyname('months').asinteger)+fillchar('★',Fieldbyname('months').asinteger);
          ln_months1 :=Fieldbyname('months').asinteger + ln_mon - 6;
end ;
end else
if Fieldbyname('months').AsInteger=12 then
begin
ln_cypsfd :=ceil(Fieldbyname('ttwage').AsFloat/2*0.05*10)/10+ceil(ln_tt*0.05*10)/10;
   case ln_mon of
     1: ln_yjs:=7;
     2: ln_yjs:=15;
     3: ln_yjs:=24;
     4: ln_yjs:=34;
     5: ln_yjs:=45;
     6: ln_yjs:=57;
   end;
{select decode(ln_mon,1,7,2,15,3,24,4,34,5,45,6,57) into ln_yjs from dual; }
ln_cypsints :=Fieldbyname('rewage').AsFloat*0.05*0.0712/6*21+ln_re*0.05*0.0712/ln_mon*ln_yjs;
ls_wgnotes :=formatfloat('0.00',ln_re)+':'+inttostr(7 - ln_mon)+'-6----'+Fieldbyname('rewage').AsString+':7-12';
ls_ftnotes :=fillchar('-',6 - ln_mon)+fillchar('★',6 + ln_mon);
ln_months1 :=6 + ln_mon;
end else if (Fieldbyname('months').AsInteger>6) and (Fieldbyname('months').AsInteger<12) then
begin
ln_cypsfd :=ceil((Fieldbyname('ttwage').AsFloat - Fieldbyname('rewage').AsFloat*6)*0.05*10)/10;
temp_i:=Fieldbyname('months').AsInteger-6 ;
  case temp_i  of
    1: ln_yjs:=1;
    2: ln_yjs:=3;
    3: ln_yjs:=6;
    4: ln_yjs:=10;
    5: ln_yjs:=15;
  end;
{select decode(c_pswgcase.months - 6,1,1,2,3,3,6,4,10,5,15) into ln_yjs from dual;}
ln_cypsints :=Fieldbyname('rewage').AsFloat*0.05*0.0712/(Fieldbyname('months').AsInteger - 6)*ln_yjs;
ls_wgnotes :=Fieldbyname('rewage').AsString+':'+inttostr(19 - Fieldbyname('months').AsInteger)+'-12';
ls_ftnotes :=fillchar('-',18 - Fieldbyname('months').asinteger)+fillchar('★',Fieldbyname('months').asinteger - 6);
ln_months1 :=Fieldbyname('months').AsInteger - 6;
end ;
end ;

//-----------因为累积缴费从98起算，置ln_months:=0
if Fieldbyname('yearno').AsInteger=1998 then
begin
psints_tielu(Fieldbyname('psseno').AsInteger,1998,ln_lypsfd,ln_lypsints,ln_lypscyints,ln_lycpfd,ln_lycpints,ln_lycpcyints,ln_months,db);
Qry.Close ;
Qry.SQL.Clear ;
Qry.SQL.Add('select rewage,ttwage,months  from sbdu_pswgcase   where psseno=:param1 and yearno=:param2');
{select rewage,ttwage,months into ln_re,ln_tt,ln_mon from sbdu_pswgcase
          where psseno=c_pswgcase.psseno  and yearno=1997;}
Qry.ParamByName('param1').AsInteger:=Fieldbyname('psseno').AsInteger;
Qry.ParamByName('param2').AsInteger:=1997;
Qry.Prepare ;
Qry.Open ;
ln_re:=Qry.Fields[0].AsFloat ;
ln_tt:=Qry.Fields[1].AsFloat ;
ln_mon:=Qry.Fields[2].AsInteger ;

    if ln_mon>6 then
    begin
	  if Fieldbyname('months').AsInteger=12 then
    begin
	  ln_cypsfd :=ceil(Fieldbyname('ttwage').AsFloat*0.05*10)/10+ceil(ln_re*6*0.05*10)/10;
	  ln_cycpfd :=Fieldbyname('ttwage').AsFloat*0.06+ln_re*6*0.06;
	  ln_cypsints :=Fieldbyname('rewage').AsFloat*0.05*0.06/6*21+ln_re*0.05*0.06/6*57;
    ln_cycpints :=Fieldbyname('rewage').AsFloat*0.06*0.06/6*21+ln_re*0.06*0.06/6*57;
	  ls_wgnotes :=formatfloat('0.00',ln_re)+':1-6----'+Fieldbyname('rewage').AsString+':7-12';
	  ls_ftnotes :=fillchar('★',12);
	  ln_months1 :=12;
	  end else if (Fieldbyname('months').AsInteger>6) and (Fieldbyname('months').AsInteger<12) then
    begin
	  ln_cypsfd :=ceil((Fieldbyname('ttwage').AsFloat - Fieldbyname('rewage').AsFloat*6)*0.05*10)/10 + ceil(ln_re*(ln_mon - 6)*0.05*10)/10;

	  ln_cycpfd :=(Fieldbyname('ttwage').AsFloat - Fieldbyname('rewage').AsFloat*6)*0.06 + ln_re*(ln_mon - 6)*0.06;
    temp_i:=Fieldbyname('months').AsInteger-6;
    case  temp_i of
      1: ln_yjs:=1;
      2: ln_yjs:=3;
      3: ln_yjs:=6;
      4: ln_yjs:=10;
      5: ln_yjs:=15;
    end;
    case temp_i of
      1: ln_yjs1:=7;
      2: ln_yjs1:=15;
      3: ln_yjs1:=24;
      4: ln_yjs1:=34;
      5: ln_yjs1:=45;
      6: ln_yjs1:=57;
    end;
     {select decode(c_pswgcase.months - 6,1,1,2,3,3,6,4,10,5,15) into ln_yjs from dual;
     select decode(c_pswgcase.months - 6,1,7,2,15,3,24,4,34,5,45,6,57) into ln_yjs1 from dual; }
     ln_cypsints :=Fieldbyname('rewage').AsFloat*0.05*0.06/(Fieldbyname('months').AsInteger - 6)*ln_yjs+ln_re*0.05*0.06/(ln_mon - 6)*ln_yjs1;
	  ln_cycpints :=Fieldbyname('rewage').AsFloat*0.06*0.06/(Fieldbyname('months').AsInteger - 6)*ln_yjs+ln_re*0.06*0.06/(ln_mon - 6)*ln_yjs1;
	  ls_wgnotes :=formatfloat('0.00',ln_re)+':1-'+inttostr(ln_mon - 6)+'----'+Fieldbyname('rewage').AsString+':'+inttostr(19 - Fieldbyname('months').AsInteger)+'-12';
     ls_ftnotes :=fillchar('★',ln_mon - 6)+fillchar('-',12 - ln_mon)+fillchar('-',12 - Fieldbyname('months').asinteger)+fillchar('★',Fieldbyname('months').asinteger - 6);
     ln_months1 :=Fieldbyname('months').AsInteger - 6 + ln_mon - 6;

	  end else if (Fieldbyname('months').AsInteger>=1) and (Fieldbyname('months').AsInteger<7) then
    begin
	  ln_cypsfd :=ceil(Fieldbyname('ttwage').AsFloat*0.05*10)/10 + ceil(ln_re*(ln_mon - 6)*0.05*10)/10;

	  ln_cycpfd :=(Fieldbyname('ttwage').AsFloat)*0.06 + ln_re*(ln_mon - 6)*0.06;
    temp_i:=Fieldbyname('months').AsInteger-6;
    case temp_i of
      1: ln_yjs:=1;
      2: ln_yjs:=3;
      3: ln_yjs:=6;
      4: ln_yjs:=10;
      5: ln_yjs:=15;
    end;
    case temp_i of
      1: ln_yjs1:=7;
      2: ln_yjs1:=15;
      3: ln_yjs1:=24;
      4: ln_yjs1:=34;
      5: ln_yjs1:=45;
      6: ln_yjs1:=57;
    end;
          {select decode(c_pswgcase.months - 6,1,1,2,3,3,6,4,10,5,15) into ln_yjs from dual;
          select decode(c_pswgcase.months - 6,1,7,2,15,3,24,4,34,5,45,6,57) into ln_yjs1 from dual; }
          ln_cypsints :=Fieldbyname('rewage').AsFloat*0.05*0.06/(Fieldbyname('months').AsInteger)*ln_yjs+ln_re*0.05*0.06/(ln_mon - 6)*ln_yjs1;
	  ln_cycpints :=Fieldbyname('rewage').AsFloat*0.06*0.06/(Fieldbyname('months').AsInteger)*ln_yjs+ln_re*0.06*0.06/(ln_mon - 6)*ln_yjs1;
	  ls_wgnotes :=formatfloat('0.00',ln_re)+':1-'+inttostr(ln_mon - 6)+'----'+Fieldbyname('rewage').AsString+':'+inttostr(13 - Fieldbyname('months').AsInteger)+'-12';
          ls_ftnotes :=fillchar('★',ln_mon - 6)+fillchar('-',12 - ln_mon)+fillchar('-',6 - Fieldbyname('months').asinteger)+fillchar('★',Fieldbyname('months').asinteger);
          ln_months1 :=Fieldbyname('months').AsInteger + ln_mon - 6;
	  end

	  else
    if Fieldbyname('months').AsInteger=12 then
    begin
	  ln_cypsfd :=ceil(Fieldbyname('ttwage').AsFloat*0.05*10)/10+ceil(ln_re*ln_mon*0.05*10)/10;
	  ln_cycpfd :=Fieldbyname('ttwage').AsInteger*0.06+ln_re*6*0.06;
    case ln_mon of
      1: ln_yjs:=7;
      2: ln_yjs:=15;
      3: ln_yjs:=24;
      4: ln_yjs:=34;
      5: ln_yjs:=45;
      6: ln_yjs:=57;
    end;
    {select decode(ln_mon,1,7,2,15,3,24,4,34,5,45,6,57) into ln_yjs from dual;  }
	  ln_cypsints :=Fieldbyname('rewage').AsFloat*0.05*0.06/6*21+ln_re*0.05*0.06/ln_mon*ln_yjs;
    ln_cycpints :=Fieldbyname('rewage').AsFloat*0.06*0.06/6*21+ln_re*0.06*0.06/ln_mon*ln_yjs;
	  ls_wgnotes :=formatfloat('0.00',ln_re)+':'+inttostr(7 - ln_mon)+'-6----'+Fieldbyname('rewage').AsString+':7-12';
	  ls_ftnotes :=fillchar('-',6 - ln_mon)+fillchar('★',6 + ln_mon);
	  ln_months1 :=6 + ln_mon;
	  end else if (Fieldbyname('months').AsInteger>6) and (Fieldbyname('months').AsInteger<12) then
    begin
	  ln_cypsfd :=ceil((Fieldbyname('ttwage').AsFloat - Fieldbyname('rewage').AsFloat*6)*0.05*10)/10;
	  ln_cycpfd :=Fieldbyname('ttwage').AsFloat*0.06;
    temp_i:=Fieldbyname('months').AsInteger-6;
    case temp_i of
      1: ln_yjs:=1;
      2: ln_yjs:=3;
      3: ln_yjs:=6;
      4: ln_yjs:=10;
      5: ln_yjs:=15;
    end;
    {select decode(c_pswgcase.months - 6,1,1,2,3,3,6,4,10,5,15) into ln_yjs from dual;}
	  ln_cypsints :=Fieldbyname('rewage').AsFloat*0.05*0.06/(Fieldbyname('months').AsInteger - 6)*ln_yjs;
    ln_cycpints :=Fieldbyname('rewage').AsFloat*0.06*0.06/(Fieldbyname('months').AsInteger - 6)*ln_yjs;
	  ls_wgnotes :=Fieldbyname('rewage').AsString+':'+inttostr(19 - Fieldbyname('months').AsInteger)+'-12';
	  ls_ftnotes :=fillchar('-',18 - Fieldbyname('months').asinteger)+fillchar('★',Fieldbyname('months').asinteger - 6);
	  ln_months1 :=Fieldbyname('months').AsInteger - 6;
	  end  ;
    end;
ln_months :=0;
end  ;


if Fieldbyname('yearno').AsInteger=1999 then
begin
psints_tielao(Fieldbyname('psseno').AsInteger,1999,ln_lypsfd,ln_lypsints,ln_lypscyints,ln_lycpfd,ln_lycpints,ln_lycpcyints,ln_months,db);
123

⌨️ 快捷键说明

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