inesiiscontinue.~pas

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

unit InEsiisContinue;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BASEWIN, XPMenu, Menus, ActnList, ImgList, TFlatButtonUnit,
  ExtCtrls, Grids, DBGrids, StdCtrls, Mask, ToolEdit, TFlatGroupBoxUnit,
  TFlatEditUnit, TFlatComboBoxUnit, TFlatSpeedButtonUnit, DB, RxMemDS;

type
  TInEsiisContinue_frm = class(Tbasewin_frm)
    Panel4: TPanel;
    Label31: TLabel;
    Label32: TLabel;
    FlatSpeedButton1: TFlatSpeedButton;
    Label7: TLabel;
    Del_Record: TFlatComboBox;
    FlatComboBox6: TFlatComboBox;
    FlatComboBox1: TFlatComboBox;
    FlatEdit30: TFlatEdit;
    FlatComboBox2: TFlatComboBox;
    FlatComboBox4: TFlatComboBox;
    FlatComboBox5: TFlatComboBox;
    FlatComboBox3: TFlatComboBox;
    FlatGroupBox1: TFlatGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label9: TLabel;
    Label13: TLabel;
    Label17: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label35: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    Label8: TLabel;
    FlatEdit1: TFlatEdit;
    FlatEdit2: TFlatEdit;
    FlatEdit3: TFlatEdit;
    FlatEdit5: TFlatEdit;
    FlatEdit6: TFlatEdit;
    FlatEdit12: TFlatEdit;
    FlatEdit7: TFlatEdit;
    FlatEdit8: TFlatEdit;
    FlatEdit13: TFlatEdit;
    FlatEdit10: TFlatEdit;
    FlatEdit9: TFlatEdit;
    FlatEdit11: TFlatEdit;
    DateEdit1: TDateEdit;
    DateEdit2: TDateEdit;
    FlatEdit4: TFlatEdit;
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    Panel2: TPanel;
    Panel3: TPanel;
    FlatButton1: TFlatButton;
    FlatButton2: TFlatButton;
    FlatButton5: TFlatButton;
    FlatButton6: TFlatButton;
    FlatButton7: TFlatButton;
    GroupBox3: TGroupBox;
    Label11: TLabel;
    DateEdit3: TDateEdit;
    FlatEdit14: TFlatEdit;
    Label15: TLabel;
    Label18: TLabel;
    FlatEdit15: TFlatEdit;
    Label21: TLabel;
    FlatEdit16: TFlatEdit;
    Label12: TLabel;
    FlatEdit17: TFlatEdit;
    Label16: TLabel;
    FlatEdit18: TFlatEdit;
    RMD: TRxMemoryData;
    RMDiscode: TStringField;
    RMDpsname: TStringField;
    RMDpsseno: TIntegerField;
    RMDyearno: TIntegerField;
    RMDcpsum: TFloatField;
    RMDcymonths: TIntegerField;
    RMDcypj: TFloatField;
    DataSource1: TDataSource;
    ADD_Record: TRxMemoryData;
    StringField3: TStringField;
    StringField4: TStringField;
    IntegerField4: TIntegerField;
    IntegerField5: TIntegerField;
    FloatField21: TFloatField;
    IntegerField6: TIntegerField;
    FloatField22: TFloatField;
    RMDnextyearjs: TFloatField;
    RMDindustry: TIntegerField;
    ADD_Recordnextyearjs: TFloatField;
    ADD_Recordindustry: TIntegerField;
    procedure FormCreate(Sender: TObject);
    procedure FlatComboBox3Change(Sender: TObject);
    procedure FlatComboBox1Change(Sender: TObject);
    procedure FlatSpeedButton1Click(Sender: TObject);
    procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure DateEdit1Change(Sender: TObject);
    procedure FlatButton7Click(Sender: TObject);
    procedure FlatButton2Click(Sender: TObject);
    procedure FlatButton5Click(Sender: TObject);
    procedure FlatButton6Click(Sender: TObject);
    procedure FlatButton1Click(Sender: TObject);
    procedure FlatEdit30KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
    date_change,Add_Delete:boolean;
    index0,index1:integer;//flatcombobox1.itemindex;flatcombobox3.itemindex;
    procedure init;
    procedure ShowData;
    procedure Save_sbdb_psarch;
    procedure Save_sbdz_InEsiis;
    function Validate_Data:boolean;
    procedure SaveData;
  public
    { Public declarations }
  end;

var
  InEsiisContinue_frm: TInEsiisContinue_frm;

implementation

uses Main, datashare, AddRecord, ChectCount, sbp_psagacct_all;

{$R *.dfm}
procedure TInEsiisContinue_frm.init ;
begin
   FlatEdit1.Text :='';
   FlatEdit2.Text :='';
   FlatEdit3.Text :='';
   FlatEdit4.Text :='';
   FlatEdit5.Text :='';
   FlatEdit6.Text :='';
   FlatEdit12.Text :='';
   FlatEdit7.Text :='';
   FlatEdit8.Text :='';
   FlatEdit13.Text:='';
   FlatEdit10.Text:='';
   FlatEdit9.Text :='';
   FlatEdit11.Text:='';
   FlatEdit14.Text :='';
   FlatEdit15.Text :='';
   FlatEdit16.Text :='';
   FlatEdit17.Text :='';
   FlatEdit18.Text :='';
   flatedit30.Text :='';
   DateEdit1.Date :=0;
   DateEdit2.Date :=0;
   DateEdit3.Date :=0;
   Date_change:=false;
   RMD.Close ;
end;
procedure TInEsiisContinue_frm.Save_sbdb_psarch ;
begin
  with DataShare_frm.Query10 do
    begin
      close;
      sql.Clear ;
      sql.Add('update  sbdb_psarch set wkdate=:param1,joindate=:param2');
      sql.Add(' where psseno=:param3') ;
      ParamByName('param3').AsString:=Flatcombobox2.Items[index1];
      paramByname('param1').AsDateTime :=Dateedit1.Date ;
      parambyname('param2').AsDateTime :=Dateedit2.Date ;
      prepare;
      execsql;
    end;
end;

procedure TInEsiisContinue_frm.Save_sbdz_InEsiis ;
begin
  {psseno,cpseno,iscode,agcardno,
psname,sex,bdate,household,wkattr,identify,
pflg,wkdate,joindate,bfidyears,bfrpyears,status,pskind,
notes,dept,nacade,bgjfdate,months,psdate,address,tel,zip,} //upflag, opcode,opdate
  with DataShare_frm.Query6 do
    begin
      close;
      sql.Clear ;
      sql.Add('insert into sbdz_InEsiis(psseno,cpseno,iscode,agcardno,psname,sex,bdate,household,wkattr,identity,');
      sql.Add('pflg,wkdate,joindate,bfidyears,bfrpyears,status,pskind,');
      sql.Add('notes,dept,nacode,bgjfdate,months,psdate,address,tel,zip,upflag,procflg, opcode,opdate)');
      sql.Add('  select psseno,cpseno,iscode,agcardno,psname,sex,bdate,household,wkattr,identity,');
      sql.Add('pflg,wkdate,joindate,bfidyears,bfrpyears,status,pskind,');
      sql.Add('notes,dept,nacode,bgjfdate,months,psdate,address,tel,zip,4,1,1,20040808');
      sql.Add(' from sbdb_psarch where psseno=:param');
      parambyname('param').AsString :=Flatcombobox2.Items[index0];
      prepare;
      execsql;
    end;
  with DataShare_frm.Query5 do
    begin
      close;
      sql.Clear ;
      sql.Add('update sbdz_InEsiis set opcode=:p1, opdate=:p2,indate=:p3,');
      sql.Add('tot=:p4,t2tot=:p5,t2ps=:p6,t2cp=:p7,ly=:p10,');
      sql.Add('lyps=:p11,lycp=:p12') ;
      sql.Add('  where psseno=:param');
      parambyname('p1').AsString :=main_frm.user.OPNAME ;
      parambyname('p2').AsDateTime :=now;
      parambyname('p3').AsDateTime :=Dateedit3.Date ;
      parambyname('p4').AsString :=formatfloat('0.00',strtofloat(flatedit14.Text));
      parambyname('p5').AsString :=formatfloat('0.00',strtofloat(flatedit15.Text));
      parambyname('p6').AsString :=formatfloat('0.00',strtofloat(flatedit16.Text));
      parambyname('p7').AsString :=formatfloat('0.00',strtofloat(flatedit15.Text)-strtofloat(flatedit16.Text));
      //parambyname('p8').AsString :=formatfloat('0.00',strtofloat(flatedit19.Text));
      //parambyname('p9').AsInteger :=strtoint(flatedit20.Text);
      parambyname('p10').AsString :=formatfloat('0.00',strtofloat(flatedit17.Text));
      parambyname('p11').AsString :=formatfloat('0.00',strtofloat(flatedit18.Text));
      parambyname('p12').AsString :=formatfloat('0.00',strtofloat(flatedit17.Text)-strtofloat(flatedit18.Text));

      parambyname('param').AsString :=Flatcombobox2.Items[index0];
      prepare;
      execsql;
    end;
end;

function  TInEsiisContinue_frm.Validate_Data :boolean;
var
  i,j:double;
begin
  Result:=true;
  if Dateedit3.Date<=0 then
    begin
      application.MessageBox('转入时间没有正确选择!','恩普软件',mb_iconerror+mb_ok);
      Result:=false;
      exit;
    end;
  if trim(flatedit14.Text)='' then  flatedit14.Text :='0';
  if trim(flatedit15.Text)='' then  flatedit15.Text :='0';
  if trim(flatedit16.Text)='' then  flatedit16.Text :='0';
  if trim(flatedit17.Text)='' then  flatedit17.Text :='0';
  if trim(flatedit18.Text)='' then  flatedit18.Text :='0';

  if not trystrtofloat(flatedit14.Text,i) then
    begin
      application.MessageBox('输入转入总金额非法!','恩普软件',mb_iconerror+mb_ok);
      Result:=false;
      exit;
    end;
  if not trystrtofloat(flatedit15.Text,i) then
    begin
      application.MessageBox('输入调整金额非法!','恩普软件',mb_iconerror+mb_ok);
      Result:=false;
      exit;
    end;
  if not trystrtofloat(flatedit16.Text,i) then
    begin
      application.MessageBox('输入调整金额个人部分非法!','恩普软件',mb_iconerror+mb_ok);
      Result:=false;
      exit;
    end;
  if not trystrtofloat(flatedit17.Text,i) then
    begin
      application.MessageBox('输入转入上年末累计储存额非法!','恩普软件',mb_iconerror+mb_ok);
      Result:=false;
      exit;
    end;
  if not trystrtofloat(flatedit18.Text,i) then
    begin
      application.MessageBox('输入转入上年末累计储存额个人部分非法!','恩普软件',mb_iconerror+mb_ok);
      Result:=false;
      exit;
    end;
  if strtofloat(flatedit15.Text)<strtofloat(flatedit16.Text) then
    begin
      application.MessageBox('调整金额比须大于调整金额个人部分!','恩普软件',mb_iconerror+mb_ok);
      Result:=false;
      exit;
    end;
  if strtofloat(flatedit17.Text)<strtofloat(flatedit18.Text) then
    begin
      application.MessageBox('转入上年末累计储存额比须大于调整金额个人部分!','恩普软件',mb_iconerror+mb_ok);
      Result:=false;
      exit;
    end;
end;

procedure TInEsiisContinue_frm.ShowData ;
var
  interest:double;  //利率
  lysum,lyints:double; //历年缴费总额,历年利息
  lycycpints,lycypsints:double;//上年末单位划转部分本息本年利息,上年末个人划转部分本息本年利息
begin
  RMD.Close ;
  RMD.Active :=true;
  Dbgrid1.Columns[4].ReadOnly :=false;
  Dbgrid1.Columns[5].ReadOnly :=false;
  Add_Record.Close ;
  Add_Record.Open ;
  Del_Record.Items.Clear ;
  index0:=Flatcombobox1.ItemIndex ;
  
  with DataShare_frm.Query1 do
    begin
      close;
      Params.Clear ;
      sql.Clear ;                   //decode(sex,'+Quotedstr('0')+','+Quotedstr('女')+','+Quotedstr('1')+','+Quotedstr('男')+') as TT
      sql.Add('select psseno,psname,sex,nacode,bdate,iscode,identity,wkdate,wkattr,household,status,joindate,notes from sbdb_psarch ');
      sql.Add(' where psseno=:param') ;
      ParamByName('param').AsString:=Flatcombobox2.Items[Flatcombobox1.itemindex];
      prepare;
      open;

      Flatedit1.Text :=Fieldbyname('psseno').AsString ; Flatedit2.Text :=Fieldbyname('psname').AsString ;
      
      if trim(Fieldbyname('sex').AsString)='0' then   Flatedit3.Text :='女' else Flatedit3.Text:='男' ; //[0 女 1男]

      if trim(Fieldbyname('identity').AsString)='1' then Flatedit12.Text:='企业长期和合同工（一年以上）'   //1企业长期和合同工（一年以上）2企业短期合同工（一年以下）3个体工商户4自由职业者5机关事业职工6机关事业职工参加企业7军转文职参加企业9其他
      else if trim(Fieldbyname('identity').AsString)='2'  then Flatedit12.Text:='企业短期合同工（一年以下）'
      else if trim(Fieldbyname('identity').AsString)='3'  then Flatedit12.Text:='个体工商户'
      else if trim(Fieldbyname('identity').AsString)='4'  then Flatedit12.Text:='自由职业者'
      else if trim(Fieldbyname('identity').AsString)='5'  then Flatedit12.Text:='机关事业职工'
      else if trim(Fieldbyname('identity').AsString)='6'  then Flatedit12.Text:='机关事业职工参加企业'
      else if trim(Fieldbyname('identity').AsString)='7'  then Flatedit12.Text:='军转文职参加企业'
      else if trim(Fieldbyname('identity').AsString)='9'  then Flatedit12.Text:='其他'  ;

      if trim(Fieldbyname('wkattr').AsString)='0' then     Flatedit8.Text :='固定工'    //[0 固定工.1 合同工.2 临时工.3 农民工]
      else if trim(Fieldbyname('wkattr').AsString)='1' then     Flatedit8.Text :='合同工'
      else if trim(Fieldbyname('wkattr').AsString)='2' then     Flatedit8.Text :='临时工'
      else if trim(Fieldbyname('wkattr').AsString)='3' then     Flatedit8.Text :='农民工';

      if trim(Fieldbyname('household').AsString)='0' then   Flatedit9.Text :='城镇'    //[0 城镇.1 农村]
      else  Flatedit9.Text :='农村';

      if trim(Fieldbyname('status').AsString)='1' then Flatedit13.Text :='在保'      //[1在保.2中断.3终止.4离退休退职.5异地转出.6工伤退休.7工伤转正常退休.8养老死亡.9工伤死亡]
      else if trim(Fieldbyname('status').AsString)='2' then Flatedit13.Text:='中断'
      else if trim(Fieldbyname('status').AsString)='3' then Flatedit13.Text:='终止'
      else if trim(Fieldbyname('status').AsString)='4' then Flatedit13.Text:='离退休退职'
      else if trim(Fieldbyname('status').AsString)='5' then Flatedit13.Text:='异地转出'
      else if trim(Fieldbyname('status').AsString)='6' then Flatedit13.Text:='工伤退休'
      else if trim(Fieldbyname('status').AsString)='7' then Flatedit13.Text:='工伤转正常退休'
      else if trim(Fieldbyname('status').AsString)='8' then Flatedit13.Text:='养老死亡'
      else if trim(Fieldbyname('status').AsString)='9' then Flatedit13.Text:='工伤死亡';

      Flatedit5.Text :=Fieldbyname('bdate').AsString ;    Flatedit6.Text :=Fieldbyname('iscode').AsString ;
      if  not Fieldbyname('wkdate').IsNull then
      DateEdit1.Date :=Fieldbyname('wkdate').AsDateTime ;
      if not Fieldbyname('joindate').IsNull then
      DateEdit2.Date :=Fieldbyname('joindate').AsDateTime ;