localforretireaccount.~pas

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

          close;
          parambyname('param1').AsString :=Flatcombobox2.Items[Flatcombobox1.itemindex];
          parambyname('param2').AsString :='1997';
          prepare;
          open;
          i:=round(1000*Fields[0].AsFloat/8386)/1000;
          if i>3 then j:=j+3 else j:=j+i;
        end;
    end;
  if ((industry='12') and (cmcpseno=1025)) then
    begin
     if (flatcombobox5.Items[flatcombobox6.ItemIndex]='1025') or (flatcombobox5.Items[flatcombobox6.ItemIndex]='4810') then
      with  DataShare_frm.Query4 do
        begin
          close;
          sql.Clear ;
          sql.Add('select case when months=0 then 0 else isnull((12*ttwage/isnull(months,1)),0) end from sbdu_pswgcase where psseno=:param1 and yearno=:param2');
          //sql.Add('select case when months=0 then 0 else isnull(12*stwg,0) end from sbdu_pswgcase where psseno=:param1 and yearno=:param2');

          parambyname('param1').AsString :=Flatcombobox2.Items[Flatcombobox1.itemindex];
          parambyname('param2').AsString :='1994';
          prepare;
          open;
          i:=round(1000*Fields[0].AsFloat/3932)/1000;
          if i>2 then j:=2 else j:=i;

          close;
          parambyname('param1').AsString :=Flatcombobox2.Items[Flatcombobox1.itemindex];
          parambyname('param2').AsString :='1995';
          prepare;
          open;
          i:=round(1000*Fields[0].AsFloat/5597)/1000;
          if i>2 then j:=j+2 else j:=j+i;

          close;
          parambyname('param1').AsString :=Flatcombobox2.Items[Flatcombobox1.itemindex];
          parambyname('param2').AsString :='1996';
          prepare;
          open;
          i:=round(1000*Fields[0].AsFloat/6619)/1000;
          if i>2 then j:=j+2 else j:=j+i;

          close;
          parambyname('param1').AsString :=Flatcombobox2.Items[Flatcombobox1.itemindex];
          parambyname('param2').AsString :='1997';
          prepare;
          open;
          i:=round(1000*Fields[0].AsFloat/7413)/1000;
          if i>3 then j:=j+3 else j:=j+i;

          close;
          parambyname('param1').AsString :=Flatcombobox2.Items[Flatcombobox1.itemindex];
          parambyname('param2').AsString :='1998';
          prepare;
          open;
          i:=round(1000*Fields[0].AsFloat/8386)/1000;
          if i>3 then j:=j+3 else j:=j+i;
        end else
        with DataShare_frm.Query4 do
        begin
          close;
          sql.Clear ;
          sql.Add('select case when months=0 then 0 else isnull((12*ttwage/isnull(months,1)),0) end from sbdu_pswgcase where psseno=:param1 and yearno=:param2');
          //sql.Add('select case when months=0 then 0 else isnull(12*stwg,0) end from sbdu_pswgcase where psseno=:param1 and yearno=:param2');

          parambyname('param1').AsString :=Flatcombobox2.Items[Flatcombobox1.itemindex];
          parambyname('param2').AsString :='1996';
          prepare;
          open;
          i:=round(1000*Fields[0].AsFloat/6619)/1000;
          if i>2 then j:=2 else j:=i;

          close;
          parambyname('param1').AsString :=Flatcombobox2.Items[Flatcombobox1.itemindex];
          parambyname('param2').AsString :='1997';
          prepare;
          open;
          i:=round(1000*Fields[0].AsFloat/7413)/1000;
          if i>3 then j:=j+2 else j:=j+i;

          close;
          parambyname('param1').AsString :=Flatcombobox2.Items[Flatcombobox1.itemindex];
          parambyname('param2').AsString :='1998';
          prepare;
          open;
          i:=round(1000*Fields[0].AsFloat/8386)/1000;
          if i>3 then j:=j+2 else j:=j+i;
        end;

    end;
  //------------------------------20041112---------------------------------
  //2004.7.30日新增,铁劳服属于铁路行业,但计算方法,与铁路计算不一到,真烦呀!
  if (industry='10') //or ((industry='12') and (cmcpseno<>4080)) //or (industry='05')    or (industry='06')
    then //or ((industry='01')  and (trim(Flatcombobox5.Items[Flatcombobox6.Itemindex])<>'1001'))
    begin
      with  DataShare_frm.Query4 do
        begin
          close;
          sql.Clear ;
          //sql.Add('select case when months=0 then 0 else isnull((12*ttwage/isnull(months,1)),0) end from sbdu_pswgcase where psseno=:param1 and yearno=:param2');
          sql.Add('select 12*rewage from  sbdu_pswgcase where psseno=:param1 and yearno=:param2');

          parambyname('param1').AsString :=Flatcombobox2.Items[Flatcombobox1.itemindex];
          parambyname('param2').AsString :='1993';
          prepare;
          open;
          i:=round(1000*Fields[0].AsFloat/3932)/1000;
          if i>2 then j:=2 else j:=i;

          close;
          sql.Clear ;
          sql.Add('select case when months=0 then 0 else isnull((12*ttwage/isnull(months,1)),0) end from sbdu_pswgcase where psseno=:param1 and yearno=:param2');
          parambyname('param1').AsString :=Flatcombobox2.Items[Flatcombobox1.itemindex];
          parambyname('param2').AsString :='1994';
          prepare;
          open;
          i:=round(1000*Fields[0].AsFloat/5597)/1000;
          if i>2 then j:=j+2 else j:=j+i;

          close;
          parambyname('param1').AsString :=Flatcombobox2.Items[Flatcombobox1.itemindex];
          parambyname('param2').AsString :='1995';
          prepare;
          open;
          i:=round(1000*Fields[0].AsFloat/6619)/1000;
          if i>2 then j:=j+2 else j:=j+i;

          close;
          parambyname('param1').AsString :=Flatcombobox2.Items[Flatcombobox1.itemindex];
          parambyname('param2').AsString :='1996';
          prepare;
          open;
          i:=round(1000*Fields[0].AsFloat/7413)/1000;
          if i>3 then j:=j+3 else j:=j+i;

          close;
          parambyname('param1').AsString :=Flatcombobox2.Items[Flatcombobox1.itemindex];
          parambyname('param2').AsString :='1997';
          prepare;
          open;
          i:=round(1000*Fields[0].AsFloat/8386)/1000;
          if i>3 then j:=j+3 else j:=j+i;
        end;
    end;
    if (industry='06')  then//20040812 电力的计算方式又不一样,真是烦,要以下一年的缴费来处理
    begin
      with  DataShare_frm.Query4 do
        begin
          close;
          sql.Clear ;
          sql.Add('select case when months=0 then 0 else isnull((12*ttwage/isnull(months,1)),0) end from sbdu_pswgcase where psseno=:param1 and yearno=:param2');

          parambyname('param1').AsString :=Flatcombobox2.Items[Flatcombobox1.itemindex];
          parambyname('param2').AsString :='1994';
          prepare;
          open;
          i:=round(1000*Fields[0].AsFloat/3932)/1000;
          if i>2 then j:=2 else j:=i;

          close;
          parambyname('param1').AsString :=Flatcombobox2.Items[Flatcombobox1.itemindex];
          parambyname('param2').AsString :='1995';
          prepare;
          open;
          i:=round(1000*Fields[0].AsFloat/5597)/1000;
          if i>2 then j:=j+2 else j:=j+i;

          close;
          parambyname('param1').AsString :=Flatcombobox2.Items[Flatcombobox1.itemindex];
          parambyname('param2').AsString :='1996';
          prepare;
          open;
          i:=round(1000*Fields[0].AsFloat/6619)/1000;
          if i>2 then j:=j+2 else j:=j+i;

          close;
          parambyname('param1').AsString :=Flatcombobox2.Items[Flatcombobox1.itemindex];
          parambyname('param2').AsString :='1997';
          prepare;
          open;
          i:=round(1000*Fields[0].AsFloat/7413)/1000;
          if i>3 then j:=j+3 else j:=j+i;

          close;
          parambyname('param1').AsString :=Flatcombobox2.Items[Flatcombobox1.itemindex];
          parambyname('param2').AsString :='1998';
          prepare;
          open;
          i:=round(1000*Fields[0].AsFloat/8386)/1000;
          if i>3 then j:=j+3 else j:=j+i;
        end;
    end;
    if ((industry='01')  and (trim(Flatcombobox5.Items[Flatcombobox6.Itemindex])<>'1001')) then
      begin
        with  DataShare_frm.Query4 do
        begin
          close;
          sql.Clear ;
          sql.Add('select case when months=0 then 0 else isnull((12*ttwage/isnull(months,1)),0) end from sbdu_pswgcase where psseno=:param1 and yearno=:param2');

          parambyname('param1').AsString :=Flatcombobox2.Items[Flatcombobox1.itemindex];
          parambyname('param2').AsString :='1993';
          prepare;
          open;    //3932
          i:=round(1000*Fields[0].AsFloat/2884)/1000;
          if i>2 then j:=2 else j:=i;

          close;
          parambyname('param1').AsString :=Flatcombobox2.Items[Flatcombobox1.itemindex];
          parambyname('param2').AsString :='1994';
          prepare;
          open;    //5597
          i:=round(1000*Fields[0].AsFloat/3932)/1000;
          if i>2 then j:=j+2 else j:=j+i;

          close;
          parambyname('param1').AsString :=Flatcombobox2.Items[Flatcombobox1.itemindex];
          parambyname('param2').AsString :='1995';
          prepare;
          open;  //6619
          i:=round(1000*Fields[0].AsFloat/5597)/1000;
          if i>2 then j:=j+2 else j:=j+i;

          close;
          parambyname('param1').AsString :=Flatcombobox2.Items[Flatcombobox1.itemindex];
          parambyname('param2').AsString :='1996';
          prepare;
          open;  //
          i:=round(1000*Fields[0].AsFloat/6619)/1000;
          if i>3 then j:=j+3 else j:=j+i;

          close;
          parambyname('param1').AsString :=Flatcombobox2.Items[Flatcombobox1.itemindex];
          parambyname('param2').AsString :='1997';
          prepare;
          open; //8386
          i:=round(1000*Fields[0].AsFloat/7413)/1000;
          if i>3 then j:=j+3 else j:=j+i;
        end;
      end;
    if ((industry='13') and (cmcpseno=1021)) then
      begin
        with  DataShare_frm.Query4 do
        begin
          close;
          sql.Clear ;
          sql.Add('select case when months=0 then 0 else isnull((12*ttwage/isnull(months,1)),0) end from sbdu_pswgcase where psseno=:param1 and yearno=:param2');

          parambyname('param1').AsString :=Flatcombobox2.Items[Flatcombobox1.itemindex];
          parambyname('param2').AsString :='1994';
          prepare;
          open;   //    2884
          i:=round(1000*Fields[0].AsFloat/3932 )/1000;
          if i>2 then j:=2 else j:=i;

          close;
          parambyname('param1').AsString :=Flatcombobox2.Items[Flatcombobox1.itemindex];
          parambyname('param2').AsString :='1995';
          prepare;
          open;      //    3932
          i:=round(1000*Fields[0].AsFloat/5597)/1000;
          if i>2 then j:=j+2 else j:=j+i;

          close;
          parambyname('param1').AsString :=Flatcombobox2.Items[Flatcombobox1.itemindex];
          parambyname('param2').AsString :='1996';
          prepare;
          open;       //   5597
          i:=round(1000*Fields[0].AsFloat/6619)/1000;
          if i>2 then j:=j+2 else j:=j+i;

          close;
          parambyname('param1').AsString :=Flatcombobox2.Items[Flatcombobox1.itemindex];
          parambyname('param2').AsString :='1997';
          prepare;
          open;      //  6619
          i:=round(1000*Fields[0].AsFloat/7413)/1000;
          if i>3 then j:=j+3 else j:=j+i;

          close;
          parambyname('param1').AsString :=Flatcombobox2.Items[Flatcombobox1.itemindex];
          parambyname('param2').AsString :='1998';
          prepare;
          open;  //  7413
          i:=round(1000*Fields[0].AsFloat/8386)/1000;
          if i>3 then j:=j+3 else j:=j+i;
        end;
      end;
    if ((industry='13') and (cmcpseno<>1021)) then
      begin
        with  DataShare_frm.Query4 do
        begin
          close;
          sql.Clear ;
          sql.Add('select case when months=0 then 0 else isnull((12*ttwage/isnull(months,1)),0) end from sbdu_pswgcase where psseno=:param1 and yearno=:param2');

          parambyname('param1').AsString :=Flatcombobox2.Items[Flatcombobox1.itemindex];
          parambyname('param2').AsString :='1993';
          prepare;
          open;   //    2884
          i:=round(1000*Fields[0].AsFloat/3932 )/1000;
          if i>2 then j:=2 else j:=i;

          close;
          parambyname('param1').AsString :=Flatcombobox2.Items[Flatcombobox1.itemindex];
          parambyname('param2').AsString :='1994';
          prepare;
          open;      //    3932
          i:=round(1000*Fields[0].AsFloat/5597)/1000;
          if i>2 then j:=j+2 else j:=j+i;

          close;
          parambyname('param1').AsString :=Flatcombobox2.Items[Flatcombobox1.itemindex];
          parambyname('param2').AsString :='1995';
          prepare;
          open;       //   5597
          i:=round(1000*Fields[0].AsFloat/6619)/1000;
          if i>2 then j:=j+2 else j:=j+i;

          close;
          parambyname('param1').AsString :=Flatcombobox2.Items[Flatcombobox1.itemindex];
          parambyname('param2').AsString :='1996';
          prepare;
          open;      //  6619
          i:=round(1000*Fields[0].AsFloat/7413)/1000;
          if i>3 then j:=j+3 else j:=j+i;

          close;
          parambyname('param1').AsString :=Flatcombobox2.Items[Flatcombobox1.itemindex];
          parambyname('param2').AsString :='1997';
          prepare;
          open;  //  7413
          i:=round(1000*Fields[0].AsFloat/8386)/1000;
          if i>3 then j:=j+3 else j:=j+i;
        end;
      end;                        //农银的计算办法又不一样，程序改的没完没了，什么时候才能完呀。
    if  (industry='02') and ((cmcpseno<>3000) and (cmcpseno<>3002) and (cmcpseno<>4101) and (cmcpseno<>4204) and (cmcpseno<>12108) and (cmcpseno<>12205) and (cmcpseno<>12305) and (cmcpseno<>12406) and (cmcpseno<>3101))   then     //or  (industry='09') or ((industry='01')  and (trim(Flatcombobox5.Items[Flatcombobox6.Itemindex])='1001'))
      begin
        with  DataShare_frm.Query4 do
        begin
          close;
          sql.Clear ;
          sql.Add('select case when months=0 then 0 else isnull((12*ttwage/isnull(months,1)),0) end from sbdu_pswgcase where psseno=:param1 and yearno=:param2');

          parambyname('param1').AsString :=Flatcombobox2.Items[Flatcombobox1.itemindex];
          parambyname('param2').AsString :='1994';
          prepare;
          open;
          i:=round(1000*Fields[0].AsFloat/5597)/1000;
          if i>2 then j:=2 else j:=i;

          close;
          parambyname('param1').AsString :=Flatcombobox2.Items[Flatcombobox1.itemindex];
          parambyname('param2').AsString :='1995';
          prepare;
          open;
          i:=round(1000*Fields[0].AsFloat/6619)/1000;
          if i>2 then j:=j+2 else j:=j+i;

          close;
          parambyname('param1').AsString :=Flatcombobox2.Items[Flatcombobox1.itemindex];
          parambyname('param2').AsString :='1996';