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

📄 breakinfo.pas

📁 企业端数据申报系统：单位管理模块 单位查询. 业务申报模块 在线数据下载 在线数据上传 在线业务申核 申报业务查询 磁盘数据导出 磁盘数据导入 在线业务模块 在线业务
💻 PAS
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
            parambyname('param2').AsString:=FlatCombobox2.Items[index];
            parambyname('param3').AsString:=Add_Record.fieldbyname('yearno').AsString ;
            parambyname('param4').AsString:=formatfloat('0.00',Add_Record.fieldbyname('cpsum').AsFloat);
            parambyname('param5').AsString:=Add_Record.fieldbyname('cymonths').AsString ;
            if Add_Record.FieldByName('cymonths').AsInteger=0 then
            parambyname('param6').AsInteger:=0 else
            parambyname('param6').AsString:=formatfloat('0.00',Add_Record.fieldbyname('cpsum').AsFloat/Add_Record.fieldbyname('cymonths').AsInteger);
            parambyname('param7').AsString:=datetimetostr(now);
            parambyname('param8').AsString:=main_frm.user.OPNAME;
            prepare;
            execsql;
          end;
    Add_Record.Next ;       
    end;
    DataShare_frm.Dbs.Commit ;
    except
      DataShare_frm.Dbs.Rollback ;
      application.MessageBox('增加记录出现异常!','恩普软件',mb_iconerror+mb_ok);
      exit;
    end;
  end;
  //------------------------20040803----------------------------------
  //----------------------------------20040929-----铁路增加按月缴费基数计算并轨养老金---无奈这样程序只能越写越烂--
   with DataShare_frm.Query11 do
     begin
       close;
       sql.Clear ;
       sql.Add('update sbdu_pswgcase set stwg=:p1 where psseno=:p2 and yearno=:p3');
     end;
   RMD.First;
   DataShare_frm.Query2.First ;
   try
   DataShare_frm.Dbs.StartTransaction ;
   {//---------------------------20041101--------------------
    with DataShare_frm.Query12 do
    begin
      close;
      sql.Clear ;
      sql.Add('delect from sbdz_pswgcase where psseno=:p1 and upflag=:p2 and PROCFLG=:p3 ');
      parambyname('p1').AsString :=rmd.fieldbyname('psseno').AsString ;
      parambyname('p2').AsString :='2';
      parambyname('p3').AsString :='1';
      prepare;
      execsql;

      close;
      sql.Clear ;
      sql.Add('delete from sbdz_psagacct where psseno=:p1 and PROCFLG=:p2' );
      parambyname('p1').AsString :=rmd.fieldbyname('psseno').AsString ;
      parambyname('p2').AsString :='1';
      prepare;
      execsql;
    end;
    //---------------------------20041101----------------------------------------   }
   while not RMD.Eof do
     if (RMD.Fields[3].AsInteger<1999) and (RMD.Fields[3].AsInteger=DataShare_frm.Query2.Fields[3].AsInteger) and
       (formatfloat('0.00',RMD.Fields[7].AsFloat)=formatfloat('0.00',DataShare_frm.Query2.fields[7].AsFloat)) then
        begin
          DataShare_frm.Query2.Next ;
          RMD.Next ;
        end else
       with DataShare_frm.Query11 do
         begin
           close;
           parambyname('p1').AsString  :=formatfloat('0.00',RMD.Fields[7].AsFloat);
           parambyname('p2').AsString :=RMD.fields[2].AsString ;
           parambyname('p3').AsInteger :=RMD.Fields[3].AsInteger ;
           prepare;
           execsql;
           DataShare_frm.Query2.Next ;
           RMD.Next ;
         end;
   DataShare_frm.Dbs.Commit ;
   except
     DataShare_frm.Dbs.Rollback ;
     application.MessageBox('更新月缴费基数出现异常!','恩普软件',mb_iconerror+mb_ok);
     exit;
   end;
  //----------------------------------20040929----
  //RMD.First ;
  //------------------20040928---------------------------------
  RMD.First ;
  DataShare_frm.Query2.First ;
  with  DataShare_frm.Query2 do
    begin
        while (not eof ) and (formatfloat('0.00',RMD.Fields[4].AsFloat)=formatfloat('0.00',Fields[4].asfloat)) and (RMD.Fields[5].AsInteger=Fields[5].AsInteger) and (RMD.Fields[3].AsInteger=Fields[3].AsInteger) do
          begin
            RMD.Next ;
            next;
          end;
          if ( eof) and (RMD.Eof)  then
             begin  //----------------------------------20040929-----铁路增加按月缴费基数计算并轨养老金---无奈这样程序只能越写越烂--
   RMD.First;
   DataShare_frm.Query2.First ;
   try
   DataShare_frm.Dbs.StartTransaction ;
   while not RMD.Eof do
     if (RMD.Fields[3].AsInteger<1999) and (RMD.Fields[3].AsInteger=DataShare_frm.Query2.Fields[3].AsInteger) and
       (formatfloat('0.00',RMD.Fields[7].AsFloat)=formatfloat('0.00',DataShare_frm.Query2.fields[7].AsFloat)) then
        begin
          DataShare_frm.Query2.Next ;
          RMD.Next ;
        end else if (RMD.Fields[3].AsInteger<1999) then
         begin
          DataShare_frm.Query4.Close ;  //写入上传表sbdz_pswgcase记录
          DataShare_frm.Query4.SQL.Clear ;
          DataShare_frm.Query4.SQL.Add('insert into sbdz_pswgcase(psseno,psname,iscode,yearno,months,rewage,ttwage,upflag,opcode,opdate,PROCFLG,stwg)');
          DataShare_frm.Query4.SQL.Add('values(:param1,:param2,:param3,:param4,:param5,:param6,:param7,:param8,:param9,:param10,:param11,:param12)');
          DataShare_frm.Query4.ParamByName('param1').AsString :=RMD.Fields[2].AsString ;  // /*人员内码*/
          DataShare_frm.Query4.ParamByName('param2').AsString :=RMD.Fields[1].AsString ;  // /*姓名*/
          DataShare_frm.Query4.ParamByName('param3').AsString :=RMD.Fields[0].AsString ;  // /*社会保障号*/
          DataShare_frm.Query4.ParamByName('param4').AsString :=RMD.Fields[3].AsString ;  // /*年份*/
          DataShare_frm.Query4.ParamByName('param5').AsString :=RMD.Fields[5].AsString ;  //   /*缴费月数 */
          if RMD.Fields[5].AsInteger=0 then
            DataShare_frm.Query4.ParamByName('param6').AsString :='0'
          else
            DataShare_frm.Query4.ParamByName('param6').AsString :=formatfloat('0.00',RMD.Fields[4].AsFloat/RMD.Fields[5].AsInteger);//   /*月缴费工资*/
          DataShare_frm.Query4.ParamByName('param7').AsString :=RMD.Fields[4].AsString ; //  /*年缴费工资*/
          DataShare_frm.Query4.ParamByName('param8').AsString :='2'; //  /*上传标志，1个人帐户数据整理，2固定职工和合同制职工缴费后建帐前数据，3原异地转入人员数据未处理，4原异地转入人员数据已处理*/
          DataShare_frm.Query4.ParamByName('param9').AsString :=main_frm.user.OPNAME ;
          DataShare_frm.Query4.ParamByName('param10').AsString :=datetimetostr(now);
          DataShare_frm.Query4.ParamByName('param11').AsString :='1';//审核标志 1待审报，2已申报 4 申报通过 6不通过
          DataShare_frm.Query4.parambyname('param12').asstring :=formatfloat('0.00',RMD.fieldbyname('nextyearjs').asfloat);
          DataShare_frm.Query4.Prepare ;
          DataShare_frm.Query4.ExecSQL ;

          DataShare_frm.Query2.Next ;
          RMD.Next ;
         end else
         begin
          DataShare_frm.Query2.Next ;
          RMD.Next ;
         end;;
   DataShare_frm.Dbs.Commit ;
   except
     DataShare_frm.Dbs.Rollback ;
     application.MessageBox('更新月缴费基数出现异常!','恩普软件',mb_iconerror+mb_ok);
     exit;
    end;
    exit;
    end;
   end;
  //------------------20040928---------------------------------
  DataShare_frm.Query2.Close ;
  with DataShare_frm.Common_Query do
    begin
      close;
      sql.Clear ;                                                      //---------20040607 REWAGE=:param5
      sql.Add('update  sbdu_pswgcase set TTWAGE=:param1,MONTHS=:param2,REWAGE=:param5 where PSSENO=:param3 and yearno=:param4');
    end;
          try
          DataShare_frm.Dbs.StartTransaction ;

          DataShare_frm.Common_Query.Close ;
          DataShare_frm.Common_Query.ParamByName('param1').AsFloat :=RMD.Fields[4].AsFloat ;     //本年缴费总额
          DataShare_frm.Common_Query.ParamByName('param2').AsInteger :=RMD.Fields[5].AsInteger ; //缴费月数
          DataShare_frm.Common_Query.ParamByName('param3').AsInteger :=RMD.Fields[2].AsInteger ; //人员编号
          DataShare_frm.Common_Query.ParamByName('param4').AsInteger :=Rmd.Fields[3].AsInteger ; //年份
          if  RMD.Fields[5].AsInteger>0 then                                                     //月平均缴费数据
            DataShare_frm.Common_Query.ParamByName('param5').AsString :=formatfloat('0.00',RMD.Fields[4].AsFloat/RMD.Fields[5].AsInteger)
          else
            DataShare_frm.Common_Query.ParamByName('param5').AsString :='0';
          DataShare_frm.Common_Query.Prepare ;
          DataShare_frm.Common_Query.ExecSQL ;

          {DataShare_frm.Query3.Close ;  //清除上传表sbdz_pswgcase的相应记录
          DataShare_frm.Query3.SQL.Clear ;
          DataShare_frm.Query3.SQL.Add('delete from sbdz_pswgcase where PSSENO=:param' );
          DataShare_frm.Query3.ParamByName('param').AsString :=RMD.Fields[2].AsString ;
          DataShare_frm.Query3.Prepare ;
          DataShare_frm.Query3.ExecSQL ;}

          DataShare_frm.Query4.Close ;  //写入上传表sbdz_pswgcase记录
          DataShare_frm.Query4.SQL.Clear ;
          DataShare_frm.Query4.SQL.Add('insert into sbdz_pswgcase(psseno,psname,iscode,yearno,months,rewage,ttwage,upflag,opcode,opdate,PROCFLG,stwg)');
          DataShare_frm.Query4.SQL.Add('values(:param1,:param2,:param3,:param4,:param5,:param6,:param7,:param8,:param9,:param10,:param11,:param12)');
          DataShare_frm.Query4.ParamByName('param1').AsString :=RMD.Fields[2].AsString ;  // /*人员内码*/
          DataShare_frm.Query4.ParamByName('param2').AsString :=RMD.Fields[1].AsString ;  // /*姓名*/
          DataShare_frm.Query4.ParamByName('param3').AsString :=RMD.Fields[0].AsString ;  // /*社会保障号*/
          DataShare_frm.Query4.ParamByName('param4').AsString :=RMD.Fields[3].AsString ;  // /*年份*/
          DataShare_frm.Query4.ParamByName('param5').AsString :=RMD.Fields[5].AsString ;  //   /*缴费月数 */
          if RMD.Fields[5].AsInteger=0 then
             DataShare_frm.Query4.ParamByName('param6').AsString :='0'
          else
            DataShare_frm.Query4.ParamByName('param6').AsString :=formatfloat('0.00',RMD.Fields[4].AsFloat/RMD.Fields[5].AsInteger);//   /*月缴费工资*/
          DataShare_frm.Query4.ParamByName('param7').AsString :=RMD.Fields[4].AsString ; //  /*年缴费工资*/
          DataShare_frm.Query4.ParamByName('param8').AsString :='2'; //  /*上传标志，1个人帐户数据整理，2固定职工和合同制职工缴费后建帐前数据，3原异地转入人员数据未处理，4原异地转入人员数据已处理*/
          DataShare_frm.Query4.ParamByName('param9').AsString :=main_frm.user.OPNAME ;
          DataShare_frm.Query4.ParamByName('param10').AsString :=datetimetostr(now);
          DataShare_frm.Query4.ParamByName('param11').AsString :='1';//审核标志 1待审报，2已申报 4 申报通过 6不通过
          DataShare_frm.Query4.parambyname('param12').asstring :=formatfloat('0.00',RMD.fieldbyname('nextyearjs').asfloat);
          DataShare_frm.Query4.Prepare ;
          DataShare_frm.Query4.ExecSQL ;

          with DataShare_frm.Query5 do
            begin
              close;
              sql.Clear ;
              params.Clear ;
              sql.Add('update sbda_psagacct  set siinter=:param1,lycycpints=:param2,lycypsints=:param3,');
              sql.Add('lypsprin=:param6,lycpprin=:param7,lypsints=:param8,lycpints=:param9 ');
              sql.Add(' where yearno=:param4 and psseno=:param5');
            end;

          with DataShare_frm.Query7 do
            begin
              close;
              sql.Clear ;
              params.Clear ;
              sql.Add('select lypsprin,lypsints,cypsints,');
              sql.Add('lycpprin,lycpints,cycpints,cypsarac,');
              sql.Add('cyftcpfd,lycypsints,lycycpints from sbda_psagacct ');
              sql.Add('where psseno=:param1 and yearno=:param2');
            end;
       //---------------20020607,读取利率----------------------
         with DataShare_frm.Query8 do
         begin
           close;
           sql.Clear ;
           sql.Add('select siinter from sbds_inancons where industry=:param1 and yearno=:param2');
        end;
       //---------------20020607,读取利率----------------------

          if RMD.Fields[3].AsInteger<2002 then
            psagacct_all(RMD.Fields[2].AsInteger,RMD.Fields[3].AsInteger,DataShare_frm.Dbs)  //2001年以前结息
          else
          begin
            lypsprin:=0;lypsints:=0;cypsints:=0;lypsints:=0;lycycpints:=0;cypsarac:=0;//个人部分
            lycpprin:=0;lycpints:=0;cycpints:=0;lycpints:=0;lycypsints:=0;cyftcpfd:=0;//企业部分
           //----------------------20040607----------------
            with DataShare_frm.Query8 do
              begin
                close;
                parambyname('param1').AsString :=Flatcombobox6.Items[index];
                parambyname('param2').AsInteger :=RMD.Fields[3].AsInteger;
                prepare;
                open;
                if recordcount>0 then interest:=Fields[0].AsFloat else  interest:=0;
              end;
           //----------------------20040607----------------
            //interest:=RMD.fieldbyname('siinter').AsFloat;
            with DataShare_frm.Query7 do
            begin
              close;
              ParamByName('param1').AsString :=RMD.Fields[2].AsString ;
              ParamByName('param2').AsInteger:=RMD.Fields[3].AsInteger-1 ;  //上一年数据
              Prepare ;
              Open ;
            if RecordCount>0 then
               begin
                 lypsprin:=Fieldbyname('lypsprin').AsFloat;
                 cypsints:=Fieldbyname('cypsints').AsFloat;
                 lypsints:=Fieldbyname('lypsints').AsFloat;
                 lycpprin:=Fieldbyname('lycpprin').AsFloat;
                 lycpints:=Fieldbyname('lycpints').AsFloat;
                 cycpints:=Fieldbyname('cycpints').AsFloat;
                 cypsarac:=Fieldbyname('cypsarac').AsFloat;
12345

⌨️ 快捷键说明

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