ywwizard.pas

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

unit ywwizard;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, basepop, StdCtrls, TFlatButtonUnit, TFlatEditUnit,
  TFlatComboBoxUnit, ComCtrls, jpeg, ExtCtrls, Mask, TFlatMaskEditUnit, DB,
  DBTables, fcTreeView, fcCombo, fctreecombo,DateUtils, XPMenu,
  TFlatMemoUnit, ToolEdit, DBCtrls, ActnList;

type
  Tywwizard_form = class(Tbasepop_form)
    Panel1: TPanel;
    Image1: TImage;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    GroupBox3: TGroupBox;
    FB_previous: TFlatButton;
    FB_next: TFlatButton;
    FB_cancel: TFlatButton;
    FB_help: TFlatButton;
    FCB_iscode: TFlatComboBox;
    Label1: TLabel;
    Label2: TLabel;
    RB_newinsure: TRadioButton;
    RB_reinsure: TRadioButton;
    RB_in: TRadioButton;
    RB_pause: TRadioButton;
    RB_stop: TRadioButton;
    RB_out: TRadioButton;
    RB_loctran: TRadioButton;
    TabSheet2: TTabSheet;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    L_chgtime: TLabel;
    L_chgreason: TLabel;
    Query1: TQuery;
    fcTreeView1: TfcTreeView;
    fcTC_othchg_upreason: TfcTreeCombo;
    TC_othchg: TTabControl;
    TC_new: TTabControl;
    Label3: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    E_othchg_iscode: TEdit;
    E_othchg_agcardno: TEdit;
    E_othchg_psname: TEdit;
    E_othchg_sex: TEdit;
    M_othchg_notes: TMemo;
    fcTC_new_organ: TfcTreeCombo;
    E_new_psname: TEdit;
    E_new_iscode: TEdit;
    fcTC_new_sex: TfcTreeCombo;
    fcTC_new_identity: TfcTreeCombo;
    fcTC_new_household: TfcTreeCombo;
    fcTC_new_wkattr: TfcTreeCombo;
    E_new_rewage: TEdit;
    fcTC_new_upreason: TfcTreeCombo;
    fcTC_new_itcode: TfcTreeCombo;
    E_new_bfidyears: TEdit;
    M_new_notes: TMemo;
    DE_othchg_cgdate: TDateEdit;
    DE_new_bdate: TDateEdit;
    DE_new_wkdate: TDateEdit;
    DE_new_joindate: TDateEdit;
    DE_new_cgdate: TDateEdit;
    TC_loctran: TTabControl;
    Label24: TLabel;
    Label25: TLabel;
    fcTC_loctran_neworgan: TfcTreeCombo;
    fcTC_loctran_oriorgan: TfcTreeCombo;
    fcTC_loctran_upreason: TfcTreeCombo;
    DE_loctran_cgdate: TDateEdit;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    E_loctran_rewage: TEdit;
    fcTC_loctran_itcode: TfcTreeCombo;
    Label30: TLabel;
    E_loctran_iscode: TEdit;
    Label31: TLabel;
    E_loctran_agcardno: TEdit;
    Label32: TLabel;
    E_loctran_psname: TEdit;
    Label33: TLabel;
    E_loctran_sex: TEdit;
    M_loctran_notes: TMemo;
    Label34: TLabel;
    TabSheet3: TTabSheet;
    Label35: TLabel;
    M_info: TFlatMemo;
    ActionList1: TActionList;
    help_but: TAction;
    procedure FormCreate(Sender: TObject);
    procedure FB_nextClick(Sender: TObject);
    procedure FB_cancelClick(Sender: TObject);
    procedure FB_previousClick(Sender: TObject);
    procedure fcTC_loctran_neworganChange(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
    procedure help_butExecute(Sender: TObject);
  private
    { Private declarations }
    uptype,iscode:string;
    minrewage,maxrewage:real;
    function DateCheck(Sour:string):boolean;
    function UptypeSelcected():string;
    function AccessRight(iscode:string):boolean;
    function QueryCodeName(code:String;codetype:string):string;
    function QueryName(queryname:string;table:string;where:string):string;
    function OthchgCheck():boolean;
    function NewCheck():boolean;
    function LoctranCheck():boolean;
    //function UptypeCanDo(status:string;uptype:string):boolean;
  public
    { Public declarations }
  end;

var
  ywwizard_form: Tywwizard_form;

implementation
uses datashare,JoinSoci, main,hh,commlist;

{$R *.dfm}

function Tywwizard_form.OthchgCheck():boolean;
var
  ls_cgdate,ls_cgdate2:string;
begin
  if fcTC_othchg_upreason.Text='' then
  begin
    application.MessageBox('请选择变动原因！','恩普软件',MB_OK+MB_IconInformation+MB_SystemModal);
    result:=false;
    exit;
  end;
  ls_cgdate:=trim(DE_othchg_cgdate.Text);
  if ls_cgdate='-  -' then
  begin
    application.MessageBox('请输入变动日期！','恩普软件',MB_OK+MB_IconInformation+MB_SystemModal);
    result:=false;
    exit;
  end;
  if not DateCheck(ls_cgdate) then
  begin
    application.MessageBox('变动日期不合法！','恩普软件',MB_OK+MB_IconInformation+MB_SystemModal);
    result:=false;
    exit;
  end;
  if strtodatetime(ls_cgdate)>today then
  begin
    application.MessageBox('变动日期不能晚于当前日期！','恩普软件',MB_OK+MB_IconInformation+MB_SystemModal);
    result:=false;
    exit;
  end;

  with datashare_form.Query1 do
  begin
    close;
    sql.Clear;
    sql.Add('select max(a.cgdate) cgdate from psupcase a,psarch b where a.manid=b.manid and a.procflg='+#39+'4'+#39+' and trim(b.iscode)='+#39+iscode+#39);
    prepare;
    open;
    ls_cgdate2:=fieldbyname('cgdate').AsString;
    if ls_cgdate2<>'' then
    begin
      if strtodatetime(ls_cgdate)<strtodatetime(ls_cgdate2) then
      begin
        application.MessageBox('变动日期不能早于上次变动日期！','恩普软件',MB_OK+MB_IconInformation+MB_SystemModal);
        result:=false;
        exit;
      end;
    end;
    close;
  end;

  result:=true;
end;

function Tywwizard_form.NewCheck():boolean;
var
  ls_psname,ls_bdate,ls_wkdate,ls_joindate,ls_cgdate,ls_cgdate2:string;
  ls_rewage,ls_bfidyears:string;
  lr_rewage,lr_bfidyears:real;
begin
  ls_psname:=trim(E_new_psname.Text);
  ls_bdate:=trim(DE_new_bdate.Text);
  ls_wkdate:=trim(DE_new_wkdate.Text);
  ls_joindate:=trim(DE_new_joindate.Text);
  ls_cgdate:=trim(DE_new_cgdate.Text);
  ls_rewage:=trim(E_new_rewage.Text);
  ls_bfidyears:=trim(E_new_bfidyears.Text);
  if ls_bfidyears='' then
    ls_bfidyears:='0.00';

  if fcTC_new_organ.Text='' then
  begin
    application.MessageBox('请选择单位或部门！','恩普软件',MB_OK+MB_IconInformation+MB_SystemModal);
    result:=false;
    exit;
  end;
  if ls_psname='' then
  begin
    application.MessageBox('请输入姓名！','恩普软件',MB_OK+MB_IconInformation+MB_SystemModal);
    result:=false;
    exit;
  end;
  //showmessage(ls_bdate);
  if ls_bdate='-  -' then
  begin
    application.MessageBox('请输入出生日期！','恩普软件',MB_OK+MB_IconInformation+MB_SystemModal);
    result:=false;
    exit;
  end;
  if fcTC_new_sex.Text='' then
  begin
    application.MessageBox('请选择性别！','恩普软件',MB_OK+MB_IconInformation+MB_SystemModal);
    result:=false;
    exit;
  end;
  if fcTC_new_identity.Text='' then
  begin
    application.MessageBox('请选择身份！','恩普软件',MB_OK+MB_IconInformation+MB_SystemModal);
    result:=false;
    exit;
  end;
  if fcTC_new_household.Text='' then
  begin
    application.MessageBox('请选择户籍关系！','恩普软件',MB_OK+MB_IconInformation+MB_SystemModal);
    result:=false;
    exit;
  end;
  if ls_wkdate='-  -' then
  begin
    application.MessageBox('请输入参加工作时间！','恩普软件',MB_OK+MB_IconInformation+MB_SystemModal);
    result:=false;
    exit;
  end;
  if fcTC_new_wkattr.Text='' then
  begin
    application.MessageBox('请选择用工性质！','恩普软件',MB_OK+MB_IconInformation+MB_SystemModal);
    result:=false;
    exit;
  end;
  if ls_joindate='-  -' then
  begin
    application.MessageBox('请输入首次参保时间！','恩普软件',MB_OK+MB_IconInformation+MB_SystemModal);
    result:=false;
    exit;
  end;
  if ls_cgdate='-  -' then
  begin
    application.MessageBox('请输入本次应保时间！','恩普软件',MB_OK+MB_IconInformation+MB_SystemModal);
    result:=false;
    exit;
  end;
  if ls_rewage='' then
  begin
    application.MessageBox('请输入缴费基数！','恩普软件',MB_OK+MB_IconInformation+MB_SystemModal);
    result:=false;
    exit;
  end;
  if fcTC_new_upreason.Text='' then
  begin
    application.MessageBox('请选择参保原因！','恩普软件',MB_OK+MB_IconInformation+MB_SystemModal);
    result:=false;
    exit;
  end;
  if fcTC_new_itcode.Text='' then
  begin
    application.MessageBox('请选择补缴档次！','恩普软件',MB_OK+MB_IconInformation+MB_SystemModal);
    result:=false;
    exit;
  end;

  try
    lr_rewage:=strtofloat(ls_rewage);
  except
    application.MessageBox('缴费基数不合法！','恩普软件',MB_OK+MB_IconInformation+MB_SystemModal);
    result:=false;
    exit;
  end;
  if (lr_rewage<minrewage) or (lr_rewage>maxrewage) then
  begin
    application.MessageBox(pchar('缴费基数必须在'+FormatFloat('#0.00',minrewage)+'至'+FormatFloat('#0.00',maxrewage)+'之间'),'恩普软件',MB_OK+MB_IconInformation+MB_SystemModal);
    result:=false;
    exit;
  end;

  try
    lr_bfidyears:=strtofloat(ls_bfidyears);
  except
    application.MessageBox('视同缴费年限不合法！','恩普软件',MB_OK+MB_IconInformation+MB_SystemModal);
    result:=false;
    exit;
  end;
  if ((round(lr_bfidyears*100)) mod 100)>12 then
  begin
    application.MessageBox('视同缴费年限不合理！'+#10#13+'整数部分为年数，小数部门为月数，不足两位的前面补0，例如9年8个月应写为9.08。','恩普软件',MB_OK+MB_IconInformation+MB_SystemModal);
    result:=false;
    exit;
  end;

  if not DateCheck(ls_bdate) then
  begin
    application.MessageBox('出生日期不合法！','恩普软件',MB_OK+MB_IconInformation+MB_SystemModal);
    result:=false;
    exit;
  end;
  if not DateCheck(ls_wkdate) then
  begin
    application.MessageBox('参加工作时间不合法！','恩普软件',MB_OK+MB_IconInformation+MB_SystemModal);
    result:=false;
    exit;
  end;
  if not DateCheck(ls_joindate) then