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

📄 personalaccount.~pas

📁 企业端数据申报系统：单位管理模块 单位查询. 业务申报模块 在线数据下载 在线数据上传 在线业务申核 申报业务查询 磁盘数据导出 磁盘数据导入 在线业务模块 在线业务
💻 ~PAS
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
    end;
    DataShare_frm.Dbs.Commit ;
    except
      DataShare_frm.Dbs.Rollback ;
      application.MessageBox('增加记录出现异常!','恩普软件',mb_iconerror+mb_ok);
      exit;
    end;
  end;
  //----------------------------------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 ;
   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----

  //------------------------20040803----------------------------------
    //RMD.First ;
    //------------------20040928--------------------------------- 从RMD里找出修改(添加,删除)的最小年份)
    RMD.First ;
    DataShare_frm.Query2.First ;
      with  DataShare_frm.Query2 do
        begin
        while (not RMD.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 //只修改下半年月缴费基数,则不会更新sbdz_pswgcase;
          begin  //----------------------------------20040929-----铁路增加按月缴费基数计算并轨养老金---无奈这样程序只能越写越烂--

   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 :='1';
      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 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 :='1'; //  /*上传标志，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-----------------------------------
      {if (RMD.State=dsEdit) then
    begin
      RMD.First ;
      DataShare_frm.Query2.First ; }
      DataShare_frm.Query2.Close ;
      //with  DataShare_frm.Query2 do
       // begin
       { while (formatfloat('0.00',RMD.Fields[4].AsFloat)=formatfloat('0.00',Fields[1].asfloat)) and (RMD.Fields[5].AsInteger=Fields[2].AsInteger) do
          begin
            RMD.Next ;
            next;
          end;
          if eof then exit; }
          //if  application.MessageBox('数据已改动,是否保存?','恩普软件',mb_iconquestion+mb_okcancel)=id_cancel then  exit;
          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.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 :='1'; //  /*上传标志，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
                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;
                 cyftcpfd:=Fieldbyname('cyftcpfd').AsFloat;
                 lycypsints:=Fieldbyname('lycypsints').AsFloat;
                 lycycpints:=Fieldbyname('lycycpints').AsFloat;
               end;
            end;
            lypsprin:=lypsprin+cypsarac;
            lycpprin:=lycpprin+cyftcpfd;
            lypsints:=lypsints+cypsints+lycypsints;
            lycpints:=lycpints+cycpints+lycycpints;
12345

⌨️ 快捷键说明

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