; ; @Temp = ShowSearchBox("ApplicationBillSearch","NODEPOT","tbNo",tbNo.CValue); if(@Temp != StringEmpty()) { tbNo.CValue = @Temp; UpdateForm(false, ""); if(Search("SearchApplicationBillWithNo", tbNo.CValue)) { ChangeMode("View"); } } UpdateForm(false, "cbDepart"); Search("SearchDepartment"); UpdateForm(true, "cbDepart"); UpdateForm(false, "cbApplicant"); Search("SearchApplicant",cbDepart.SelectedValue1); UpdateForm(true, "cbApplicant"); UpdateForm(false, "cbApplicationType"); Search("SearchApplicationType"); UpdateForm(true, "cbApplicationType"); UpdateForm(false, "cbApplicationItem"); Search("SearchApplicationItem",cbApplicationType.Text); UpdateForm(true, "cbApplicationItem"); @SetFlag=1; @temp = ShowSearchBox("EmployeeSearch","INFOMATION",#ApplicationBillEmployee.No_Employee); @SetFlag=0; if(Search("SearchApplicationBillFirst")) { ChangeMode("View"); } if(Search("SearchApplicationBillPrevious", tbNo.CValue)) { ChangeMode("View"); } if(Search("SearchApplicationBillNext", tbNo.CValue)) { ChangeMode("View"); } if(Search("SearchApplicationBillLast")) { ChangeMode("View"); } @NextNo = GetNextAutoNumber(true); if (!Equals(@NextNo, "")) { ChangeMode("New"); #ApplicationBill.No_ApplicationBill = @NextNo; UpdateForm(true, "tbNo"); } ChangeMode("Search"); ChangeMode("Modify"); Delete(); ChangeMode("Search"); PrintReport(); BeginAudit(); #ApplicationBill.ID_Assessor = GetLoginUserID(); #ApplicationBill.Name_Assessor = GetCurrentUser(); #ApplicationBill.AssessDate_ApplicationBill = DateTimeNow(); Audit(); ChangeMode("View"); EndAudit(); BeginUnAudit(); #ApplicationBill.ID_Assessor = DBNull(); #ApplicationBill.Name_Assessor = ""; UnAudit(); ChangeMode("View"); EndUnAudit(); ; ; ; ; if(@SetFlag==0) { return; } if(Search("GetEmployeeNameByNo",#ApplicationBillEmployee.No_Employee)) { #ApplicationBillEmployee.Name_Employee=#Employee.Name_Employee; #ApplicationBillEmployee.ID_Employee=#Employee.ID_Employee; if(!Equals(#Employee.SuspendDate_Employee,DBNull())) MessageBox("该员工已停用！",@Title); } else { MessageBox("该员工不存在！",@Title); #ApplicationBillEmployee.Name_Employee=""; #ApplicationBillEmployee.ID_Employee=GuidEmpty(); @temp = ShowSearchBox("EmployeeSearch","INFOMATION",#ApplicationBillEmployee.No_Employee); if(@temp != "") { ResumeColumnEvent("#ApplicationBillEmployee.No_Employee"); #ApplicationBillEmployee.No_Employee = @temp; ClearColumnEvent(); } } Empty(); NewInstance(); tbNo.ReadOnly=false; timeMake.Enabled=false; cbDepart.Enabled=false; cbApplicant.Enabled=false; cbApplicationType.Enabled=false; cbApplicationItem.Enabled=false; StartDate.Enabled=false; EndDate.Enabled=false; txtComment.ReadOnly=true; dgEmployee.ReadOnly=true; toolBar.EnableNew = true; toolBar.EnableSubmit=false; toolBar.EnableModify=false; toolBar.EnableDelete=false; toolBar.EnablePrint=false; toolBar.EnableAudit = false; toolBar.EnableUnAudit = false; #ApplicationBill.ID_Creator=DBNull(); #ApplicationBill.Name_Creator=DBNull(); #ApplicationBill.LastModUser_ApplicationBill=DBNull(); #ApplicationBill.LastModUserName=DBNull(); #ApplicationBill.LastModDate_ApplicationBill=DBNull(); #ApplicationBill.ID_Assessor = DBNull(); #ApplicationBill.Name_Assessor = DBNull(); #ApplicationBill.AssessDate_ApplicationBill = DBNull(); UpdateForm(true, ""); tbNo.Focus(); @Status=0; Empty(); NewInstance(); tbNo.ReadOnly=true; timeMake.Enabled=true; cbDepart.Enabled=true; cbApplicant.Enabled=true; cbApplicationType.Enabled=true; cbApplicationItem.Enabled=true; StartDate.Enabled=true; EndDate.Enabled=true; txtComment.ReadOnly=false; dgEmployee.ReadOnly=false; toolBar.EnableNew = false; toolBar.EnableSubmit=true; toolBar.EnableModify=false; toolBar.EnableDelete=false; toolBar.EnablePrint=false; toolBar.EnableAudit = false; toolBar.EnableUnAudit = false; if(Search("SearchEmployeeInfo",GetLoginUserID())) { if(!Equals(#EmployeeInfo.OnStuffOne,DBNull())) { @Now=DateTimeNow(); #ApplicationBill.StartDate_ApplicationBill=AddDatePart(AddDatePart(@Now,"HOUR",(DatePart(#EmployeeInfo.OnStuffOne,"HOUR")-DatePart(@Now,"HOUR"))),"MINUTE",(DatePart(#EmployeeInfo.OnStuffOne,"MINUTE")-DatePart(@Now,"MINUTE"))); #ApplicationBill.EndDate_ApplicationBill=AddDatePart(AddDatePart(@Now,"HOUR",(DatePart(#EmployeeInfo.OffStuffTwo,"HOUR")-DatePart(@Now,"HOUR"))),"MINUTE",(DatePart(#EmployeeInfo.OffStuffTwo,"MINUTE")-DatePart(@Now,"MINUTE"))); } #ApplicationBill.ID_Department=#EmployeeInfo.ID_Department; #ApplicationBill.No_Department=#EmployeeInfo.No_Department; #ApplicationBill.Name_Department=#EmployeeInfo.Name_Department; #ApplicationBill.ID_Applicant=#EmployeeInfo.ID_Employee; #ApplicationBill.No_Applicant=#EmployeeInfo.No_Employee; #ApplicationBill.Name_Applicant=#EmployeeInfo.Name_Employee; } #ApplicationBill.ID_ApplicationBill = NewGuid(); #ApplicationBill.ID_Creator=GetLoginUserID(); #ApplicationBill.Name_Creator=GetCurrentUser(); #ApplicationBill.LastModUser_ApplicationBill=DBNull(); #ApplicationBill.LastModUserName=DBNull(); #ApplicationBill.LastModDate_ApplicationBill=DBNull(); #ApplicationBill.ID_Assessor = DBNull(); #ApplicationBill.Name_Assessor = DBNull(); #ApplicationBill.AssessDate_ApplicationBill = DBNull(); UpdateForm(true, ""); tbNo.Focus(); @Status=1; tbNo.ReadOnly=false; timeMake.Enabled=false; cbDepart.Enabled=false; cbApplicant.Enabled=false; cbApplicationType.Enabled=false; cbApplicationItem.Enabled=false; StartDate.Enabled=false; EndDate.Enabled=false; txtComment.ReadOnly=true; dgEmployee.ReadOnly=true; toolBar.EnableSubmit=false; if(Equals(#ApplicationBill.ID_Assessor,DBNull())) { toolBar.EnableModify = GetRight(@Title,"修改"); toolBar.EnableDelete = GetRight(@Title,"删除"); toolBar.EnableAudit = GetRight(@Title,"审核"); toolBar.EnableUnAudit = false; } else { toolBar.EnableAudit = false; toolBar.EnableModify = false; toolBar.EnableDelete = false; toolBar.EnableUnAudit = GetRight(@Title,"取消审核"); } toolBar.EnablePrint = GetRight(@Title,"打印"); UpdateForm(true, ""); tbNo.Focus(); @Status=2; tbNo.ReadOnly=true; timeMake.Enabled=true; cbDepart.Enabled=true; cbApplicant.Enabled=true; cbApplicationType.Enabled=true; cbApplicationItem.Enabled=true; StartDate.Enabled=true; EndDate.Enabled=true; txtComment.ReadOnly=false; dgEmployee.ReadOnly=false; toolBar.EnableNew = false; toolBar.EnableSubmit=true; toolBar.EnableModify=false; toolBar.EnableDelete=false; toolBar.EnablePrint=false; toolBar.EnableAudit = false; toolBar.EnableUnAudit = false; #ApplicationBill.LastModUser_ApplicationBill = GetLoginUserID(); #ApplicationBill.LastModUserName = GetCurrentUser(); #ApplicationBill.LastModDate_ApplicationBill = DateTimeNow(); UpdateForm(true, ""); tbNo.Focus(); @Status=3; =EndDate.Value) { MessageBox("开始时间不得大于等于结束时间！",@Title); cbApplicant.Focus(); return; } if (RowCount("#ApplicationBillEmployee") == 0) { MessageBox("请假员工不能为空！",@Title); dgEmployee.Focus(); return; } UpdateForm(false, ""); SuspendLayout(); for (@i=0;@i