📄 sbp_psagacct_youdian.pas

📁 企业端数据申报系统：单位管理模块单位查询. 业务申报模块在线数据下载在线数据上传在线业务申核申报业务查询磁盘数据导出磁盘数据导入在线业务模块在线业务
💻 PAS
📖 第 1 页 / 共 2 页
字号:
上一页 12
  temp.ParamByName('param20').AsFloat  :=ln_cypsfd;
  temp.ParamByName('param21').AsInteger :=0;
  temp.ParamByName('param22').AsInteger :=0;
  temp.ParamByName('param23').AsInteger :=0;
  temp.ParamByName('param24').AsFloat:=ln_CYCPINTS;
  temp.ParamByName('param25').AsFloat :=ln_CYPSINTS;
  temp.ParamByName('param26').AsInteger :=0;
  temp.ParamByName('param27').AsInteger :=0;
  temp.ParamByName('param28').AsInteger :=0;
  temp.ParamByName('param29').AsInteger :=0;
  temp.ParamByName('param30').AsInteger :=0;
  temp.ParamByName('param31').AsInteger :=0;
  temp.ParamByName('param32').AsInteger :=0;
  temp.ParamByName('param33').AsDate :=strtodate(trim(Fieldbyname('yearno').AsString)+'-12-31');
  temp.ParamByName('param34').AsInteger :=9;
  temp.ParamByName('param35').AsInteger :=0;
  temp.ParamByName('param36').AsInteger :=0;
  temp.ParamByName('param37').AsInteger :=0;
  temp.ParamByName('param38').AsFloat :=ln_lycpcyints;
  temp.ParamByName('param39').AsFloat :=ln_lypscyints;
  temp.ParamByName('param40').AsInteger  :=0;
  temp.ParamByName('param41').AsString :=ls_wgnotes;
  temp.ParamByName('param42').AsString :=ls_ftnotes;  }

  
  temp.ParamByName('param1').AsString :=Query.Fieldbyname('PSSENO').AsString ;
  temp.ParamByName('param2').AsString :=Query.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 :=Query.fieldbyname('ttwage').AsString ;
  temp.ParamByName('param8').AsString :=inttostr(ln_months + fieldbyname('months').AsInteger);
  temp.ParamByName('param9').AsString :=Query.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,
   --                    WGNOTES=ls_wgnotes,FTNOTES=ls_ftnotes
    --                  where psseno=c_pswg.psseno and yearno=c_pswg.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_pswg.PSSENO,c_pswg.yearno,ln_lycpfd,ln_lypsfd,ln_lycpints,ln_lypsints,c_pswg.ttwage,
								ln_months + c_pswg.months,c_pswg.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_pswg.yearno ||'-12-31','YYYY-MM-DD'),'9',0,0,0,ln_lycpcyints,ln_lypscyints,0,ls_wgnotes,ls_ftnotes);
-- dbms_output.put_line(ls_ftnotes);   }



next;

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

//procedure psints_youdian(an_ps  ,an_yearno :integer;var an_lypsprin,an_lypsints ,an_lycpprin,an_lycpints,an_lycycpints ,an_lycypsints ,an_months :Double;Db:TDatabase);
procedure psints_youdian(an_ps  ,an_yearno :integer;var an_lypsprin,an_lypsints ,an_lycpprin,an_lycpints,an_lycycpints ,an_lycypsints: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(LYCPPRIN,0) + isnull(LYCPINTS,0) + isnull(CYFTCPFD,0) + isnull(CYCPINTS,0) + isnull(lycycpints,0),');
      sql.Add('isnull(lypsprin,0) + isnull(lypsints,0) + isnull(cypsarac,0) + isnull(cypsints,0) + isnull(lycypsints,0),');
      sql.Add('isnull(lycpprin,0) + isnull(cyftcpfd,0),isnull(lypsprin,0) + isnull(cypsarac,0),isnull(lycpints,0) + isnull(cycpints,0) + isnull(lycycpints,0),');
      sql.Add('isnull(lypsints,0) + isnull(cypsints,0) + isnull(lycypsints,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_lycycpints:=Fields[0].AsFloat ;
      an_lycypsints:=Fields[1].AsFloat ;
      an_lycpprin:=Fields[2].AsFloat ;
      an_lypsprin:=Fields[3].AsFloat ;
      an_lycpints:=Fields[4].AsFloat ;
      an_lypsints:=Fields[5].AsFloat ;
      an_months:=Fields[6].AsInteger ;
  {SELECT isnull(LYCPPRIN,0) + isnull(LYCPINTS,0) + isnull(CYFTCPFD,0) + isnull(CYCPINTS,0) + isnull(lycycpints,0),
      isnull(lypsprin,0) + isnull(lypsints,0) + isnull(cypsarac,0) + isnull(cypsints,0) + isnull(lycypsints,0),
      isnull(lycpprin,0) + isnull(cyftcpfd,0),
      isnull(lypsprin,0) + isnull(cypsarac,0),
      isnull(lycpints,0) + isnull(cycpints,0) + isnull(lycycpints,0),
      isnull(lypsints,0) + isnull(cypsints,0) + isnull(lycypsints,0),
      isnull(months,0) into an_lycycpints,an_lycypsints,an_lycpprin,an_lypsprin,
      an_lycpints,an_lypsints,an_months
FROM SBDA_PSAGACCT WHERE PSSENO=AN_PS and yearno=an_yearno - 1;}
    end;
     if an_yearno =1998 then
     begin
   an_lycycpints := an_lycycpints * 0.09;
   an_lycypsints := an_lycypsints * 0.09;
  end   ;
  if an_yearno =1999 then
  begin
   an_lycycpints := an_lycycpints * 0.05;
   an_lycypsints := an_lycypsints * 0.05;
  end   ;
  if an_yearno =2000 then
  begin
   an_lycycpints := an_lycycpints * 0.05;
   an_lycypsints := an_lycypsints * 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 + -