internal void OKButton_Click(Object eventSender, System.EventArgs eventArgs)
{
using (var async1 = this.Async(true))
{
//Store filename & path in global variable gExcelPath
UpgradeHelpers.Helpers.DialogResult Response = (UpgradeHelpers.Helpers.DialogResult) 0;
string FilePath = modGlobal.Clean(ViewModel.txtFileName.Text);
if (FilePath == "" || FilePath == "*.xls")
{
ViewManager.ShowMessage("Please indicate FileName", "Error Message", UpgradeHelpers.Helpers.BoxButtons.OK, UpgradeHelpers.Helpers.BoxIcons.Error);
ViewManager.SetCurrent(ViewModel.txtFileName);
this.Return();
return;
}
//Load File Path
if (ViewModel.Dir1.Path.Substring(Math.Max(ViewModel.Dir1.Path.Length - 1, 0)) == "\\")
{
FilePath = ViewModel.Dir1.Path + FilePath;
}
else
{
FilePath = ViewModel.Dir1.Path + "\\" + FilePath;
}
//Check for existing file with selected name
Object FSO = new System.Object();
if (File.Exists(FilePath))
{
async1.Append <UpgradeHelpers.Helpers.DialogResult>(() => ViewManager.ShowMessage("File exists - Overwrite?", "TFD Stats - Excel Export", UpgradeHelpers.Helpers.BoxButtons.YesNo));
async1.Append <UpgradeHelpers.Helpers.DialogResult, UpgradeHelpers.Helpers.DialogResult>(tempNormalized0 => tempNormalized0);
async1.Append <UpgradeHelpers.Helpers.DialogResult>(tempNormalized1 =>
{
Response = tempNormalized1;
});
async1.Append(() =>
{
if (Response == UpgradeHelpers.Helpers.DialogResult.No)
{
this.Return();
return;
}
else
{
File.Delete(FilePath);
FSO = null;
}
});
}
async1.Append(() =>
{
modGlobal.Shared.gExcelPath = FilePath;
ViewManager.DisposeView(this);
});
}
}
internal void cmdRemove_Click(Object eventSender, System.EventArgs eventArgs)
{
using (var async1 = this.Async(true))
{
//Remove currently selected employee from
//currently selected Promotion list
DbCommand oCmd = UpgradeHelpers.DB.AdoFactoryManager.GetFactory().CreateCommand();
string PromoCode = "";
UpgradeHelpers.Helpers.DialogResult Response = (UpgradeHelpers.Helpers.DialogResult) 0;
try
{
{
async1.Append <UpgradeHelpers.Helpers.DialogResult>(() =>
ViewManager.ShowMessage("This will permanently delete all record of this Promotion!" + "\r" + "Do you wish to continue?",
"Delete Promotion Record", UpgradeHelpers.Helpers.BoxButtons.YesNo, UpgradeHelpers.Helpers.BoxIcons.Question));
async1.Append <UpgradeHelpers.Helpers.DialogResult, UpgradeHelpers.Helpers.DialogResult>(tempNormalized0 => tempNormalized0);
async1.Append <UpgradeHelpers.Helpers.DialogResult>(tempNormalized1 =>
{
//Warn user on delete request
Response = tempNormalized1;
});
async1.Append(() =>
{
if (Response == UpgradeHelpers.Helpers.DialogResult.No)
{
this.Return();
return;
}
oCmd.Connection = modGlobal.oConn;
oCmd.CommandType = CommandType.StoredProcedure;
oCmd.CommandText = "spDeletePromotion";
oCmd.ExecuteNonQuery(new object[] { ViewModel.CurrPromoID });
ClearForm();
ViewModel.lbAction.Visible = true;
ViewModel.lbAction.Text = "Promotion Record Removed";
//Refresh Promotion List
PromoCode = Conversion.Str(ViewModel.cboPromotion.GetItemData(ViewModel.cboPromotion.SelectedIndex)).Trim();
LoadList(PromoCode);
});
}
}
catch
{
if (modGlobal.ErrorControl() == modGlobal.eFATALERROR)
{
this.Return();
return;
}
}
}
}
internal void cmdClose_Click(Object eventSender, System.EventArgs eventArgs)
{
using (var async1 = this.Async(true))
{
UpgradeHelpers.Helpers.DialogResult Response = (UpgradeHelpers.Helpers.DialogResult) 0;
if (ViewModel.UpdateFlag != 0)
{
//Update Fields
}
if (UpgradeHelpers.Helpers.StringsHelper.ToDoubleSafe(Convert.ToString(ViewModel.cmdNotes.Tag)) == 1 && ViewModel.txtNote.Text != "")
{
async1.Append <UpgradeHelpers.Helpers.DialogResult>(() => ViewManager
.ShowMessage("The Schedule Notes have not been saved." + "\n" + "\n" + "Did you want to exit now?", "Add Employee Schedule Notes", UpgradeHelpers.Helpers.BoxButtons.YesNo));
async1.Append <UpgradeHelpers.Helpers.DialogResult, UpgradeHelpers.Helpers.DialogResult>(tempNormalized0 => tempNormalized0);
async1.Append <UpgradeHelpers.Helpers.DialogResult>(tempNormalized1 =>
{
Response = tempNormalized1;
});
async1.Append(() =>
{
if (Response == UpgradeHelpers.Helpers.DialogResult.No)
{
ViewManager.SetCurrent(ViewModel.cmdNotes);
this.Return();
return;
}
});
}
async1.Append(() =>
{
ViewManager.DisposeView(this);
});
}
}
internal void cmdInactivate_Click(Object eventSender, System.EventArgs eventArgs)
{
using (var async1 = this.Async(true))
{
PTSProject.clsScheduler cTransfer = Container.Resolve <clsScheduler>();
UpgradeHelpers.Helpers.DialogResult resp = (UpgradeHelpers.Helpers.DialogResult) 0;
ViewModel.cmdInactivate.Enabled = false;
if (ViewModel.CurrPosition == 0)
{
this.Return();
return;
}
if (cTransfer.GetTransferPositionByID(ViewModel.CurrPosition) != 0)
{
async1.Append <UpgradeHelpers.Helpers.DialogResult>(()
=> ViewManager.ShowMessage("Are you sure you want to Inactivate this Posted Position?", "Inactivate Posted Position", UpgradeHelpers.Helpers.BoxButtons.YesNo));
async1.Append <UpgradeHelpers.Helpers.DialogResult, UpgradeHelpers.Helpers.DialogResult>(tempNormalized0 => tempNormalized0);
async1.Append <UpgradeHelpers.Helpers.DialogResult>(tempNormalized1 =>
{
resp = tempNormalized1;
});
async1.Append(() =>
{
if (resp != UpgradeHelpers.Helpers.DialogResult.Yes)
{
//UPGRADE_ISSUE: (2064) FPSpreadADO.fpSpread method sprPositions.ClearSelection was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx
ViewModel.sprPositions.ClearSelection();
ViewModel.CurrPosition = 0;
this.Return();
return;
}
});
}
else
{
ViewManager.ShowMessage("Ooooops! There was a problem finding the record in the database. Try Again", "Find Position Record", UpgradeHelpers.Helpers.BoxButtons.OK);
//UPGRADE_ISSUE: (2064) FPSpreadADO.fpSpread method sprPositions.ClearSelection was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx
ViewModel.sprPositions.ClearSelection();
ViewModel.CurrPosition = 0;
this.Return();
return;
}
async1.Append(() =>
{
//If you're here... then procede in updating the record and refreshing the list...
cTransfer.TransferPositionActiveFlag = "N";
cTransfer.TransferPositionStatusChanged = DateTime.Now.ToString("M/d/yyyy HH:mm:ss");
cTransfer.TransferPositionChangedBy = modGlobal.Shared.gUser;
if (cTransfer.UpdateTransferPosition())
{
//success!!
}
else
{
ViewManager.ShowMessage("Ooooops! Something went wrong updating the Position Record!", "Update Position Record", UpgradeHelpers.Helpers.BoxButtons.OK);
}
ViewModel.cboReqNameList.SelectedIndex = -1;
ViewModel.FilterEmployee = "";
ViewModel.cboReqPositionList.SelectedIndex = -1;
//UPGRADE_ISSUE: (2064) FPSpreadADO.fpSpread method sprPositions.ClearSelection was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx
ViewModel.sprPositions.ClearSelection();
ViewModel.CurrPosition = 0;
RefreshPositionLists();
FillGrids();
});
}
}
internal void cmdAdd_Click(Object eventSender, System.EventArgs eventArgs)
{
using (var async1 = this.Async(true))
{
dynamic txtExceptDay = null;
//Add New Employee Record
//Form data is checked for required fields and field lengths
//SQLServer spInsertPersonnel stored procedure is called to insert record
DbCommand oCmd = UpgradeHelpers.DB.AdoFactoryManager.GetFactory().CreateCommand();
ADORecordSetHelper oRec = null;
string strSQL = "";
string NameWork = "";
byte Status = 0;
int ArcID = 0;
string LeaveStatus = "";
System.DateTime TestDate = DateTime.FromOADate(0);
string str1 = "", str2 = "";
int i = 0;
UpgradeHelpers.Helpers.DialogResult Response = (UpgradeHelpers.Helpers.DialogResult) 0;
string TYear = "";
int iPersID = 0;
try
{
{
oCmd.Connection = modGlobal.oConn;
oCmd.CommandType = CommandType.Text;
//Edits
//SAP Employee ID number
double dbNumericTemp = 0;
if (!Double.TryParse(ViewModel.txtSAPEmpID.Text, NumberStyles.Float, CultureInfo.CurrentCulture.NumberFormat, out dbNumericTemp))
{
ViewManager.ShowMessage("Invalid Employee Id", "Add New Employee Error", UpgradeHelpers.Helpers.BoxButtons.OK);
ViewManager.SetCurrent(ViewModel.txtSAPEmpID);
ViewModel.txtSAPEmpID.SelectionStart = 0;
ViewModel.txtSAPEmpID.SelectionLength = Strings.Len(ViewModel.txtSAPEmpID.Text);
this.Return();
return;
}
else
{
//check for existing employee_id
if (Convert.ToString(ViewModel.cmdSwitch.Tag) == "1")
{
strSQL = "spSelect_SAPConversionBySapID " + ViewModel.txtSAPEmpID.Text + " ";
oCmd.CommandText = strSQL;
oRec = ADORecordSetHelper.Open(oCmd, "");
if (!oRec.EOF)
{
ViewManager.ShowMessage("Duplicate Employee Id", "Add New Employee Error", UpgradeHelpers.Helpers.BoxButtons.OK);
ViewManager.SetCurrent(ViewModel.txtSAPEmpID);
ViewModel.txtSAPEmpID.SelectionStart = 0;
ViewModel.txtSAPEmpID.SelectionLength = Strings.Len(ViewModel.txtSAPEmpID.Text);
this.Return();
return;
}
}
else
{
ArcID = GetNewID(ViewModel.txtSAPEmpID.Text);
}
}
//TFD Employee ID number
// If Not IsNumeric(txtEmpID) Then
// MsgBox "Invalid Employee Id", vbOKOnly, "Add New Employee Error"
// txtEmpID.SetFocus
// txtEmpID.SelStart = 0
// txtEmpID.SelLength = Len(txtEmpID.Text)
// Exit Sub
// Else
if (Strings.Len(ViewModel.txtEmpID.Text) != 5)
{
ViewManager.ShowMessage("Invalid Employee Id", "Add New Employee Error", UpgradeHelpers.Helpers.BoxButtons.OK);
ViewManager.SetCurrent(ViewModel.txtEmpID);
ViewModel.txtEmpID.SelectionStart = 0;
ViewModel.txtEmpID.SelectionLength = Strings.Len(ViewModel.txtEmpID.Text);
this.Return();
return;
}
else
{
//check for existing employee_id
if (Convert.ToString(ViewModel.cmdSwitch.Tag) == "1")
{
strSQL = "spSelect_PersonnelByEmpID '" + ViewModel.txtEmpID.Text + "'";
oCmd.CommandText = strSQL;
oRec = ADORecordSetHelper.Open(oCmd, "");
if (!oRec.EOF)
{
ViewManager.ShowMessage("Duplicate Employee Id", "Add New Employee Error", UpgradeHelpers.Helpers.BoxButtons.OK);
ViewManager.SetCurrent(ViewModel.txtEmpID);
ViewModel.txtEmpID.SelectionStart = 0;
ViewModel.txtEmpID.SelectionLength = Strings.Len(ViewModel.txtEmpID.Text);
this.Return();
return;
}
}
else
{
ArcID = GetNewID(ViewModel.txtEmpID.Text);
}
}
//Name Fields
if (modGlobal.Clean(ViewModel.txtFName.Text) == "")
{
ViewManager.ShowMessage("First Name must be entered", "Add New Employee Error", UpgradeHelpers.Helpers.BoxButtons.OK);
ViewManager.SetCurrent(ViewModel.txtFName);
ViewModel.txtFName.SelectionStart = 0;
ViewModel.txtFName.SelectionLength = Strings.Len(ViewModel.txtFName.Text);
this.Return();
return;
}
if (modGlobal.Clean(ViewModel.txtLName.Text) == "")
{
ViewManager.ShowMessage("Last Name must be entered", "Add New Employee Error", UpgradeHelpers.Helpers.BoxButtons.OK);
ViewManager.SetCurrent(ViewModel.txtLName);
ViewModel.txtLName.SelectionStart = 0;
ViewModel.txtLName.SelectionLength = Strings.Len(ViewModel.txtLName.Text);
this.Return();
return;
}
//job code
if (ViewModel.cboJobCode.SelectedIndex < 0)
{
ViewManager.ShowMessage("Please select a Job Title/Code from the list.", "Add New Employee Error", UpgradeHelpers.Helpers.BoxButtons.OK);
ViewManager.SetCurrent(ViewModel.cboJobCode);
this.Return();
return;
}
//Sex
if (ViewModel.txtSex.Text == "M" || ViewModel.txtSex.Text == "F")
{
//sex entered correctly
}
else
{
ViewManager.ShowMessage("Sex must be M or F", "Add New Employee Error", UpgradeHelpers.Helpers.BoxButtons.OK);
ViewManager.SetCurrent(ViewModel.txtSex);
ViewModel.txtSex.SelectionStart = 0;
ViewModel.txtSex.SelectionLength = Strings.Len(ViewModel.txtSex.Text);
this.Return();
return;
}
ViewModel.txtNameKnownBy.Text = modGlobal.Clean(ViewModel.txtNameKnownBy.Text);
//Exception Days
double dbNumericTemp2 = 0;
if (!Double.TryParse(ViewModel.txtException.Text, NumberStyles.Float, CultureInfo.CurrentCulture.NumberFormat, out dbNumericTemp2))
{
//UPGRADE_WARNING: (1049) Use of Null/IsNull() detected. More Information: http://www.vbtonet.com/ewis/ewi1049.aspx
if (Convert.IsDBNull(ViewModel.txtException.Text) || ViewModel.txtException.Text == "")
{
ViewModel.txtException.Text = "0";
}
else
{
ViewManager.ShowMessage("Exception Days must be numeric", "Add New Employee Error", UpgradeHelpers.Helpers.BoxButtons.OK);
ViewManager.SetCurrent(ViewModel.txtException);
ViewModel.txtException.SelectionStart = 0;
//UPGRADE_TODO: (1067) Member Text is not defined in type Variant. More Information: http://www.vbtonet.com/ewis/ewi1067.aspx
ViewModel.txtException.SelectionLength = Strings.Len(Convert.ToString(txtExceptDay.Text));
this.Return();
return;
}
}
//Date Fields
if (Information.IsDate(ViewModel.txtBDay.Text))
{
TestDate = DateTime.Parse(DateTime.Parse(ViewModel.txtBDay.Text).ToString("M/d/yyyy"));
if (TestDate > DateTime.Now)
{
async1.Append <UpgradeHelpers.Helpers.DialogResult>(() =>
ViewManager.ShowMessage("The Birthdate is in the future. Is this correct?", "Add New Personnel", UpgradeHelpers.Helpers.BoxButtons.YesNo));
async1.Append <UpgradeHelpers.Helpers.DialogResult, UpgradeHelpers.Helpers.DialogResult>(tempNormalized0 => tempNormalized0);
async1.Append <UpgradeHelpers.Helpers.DialogResult>(tempNormalized1 =>
{
Response = tempNormalized1;
});
async1.Append(() =>
{
if (Response == UpgradeHelpers.Helpers.DialogResult.No)
{
ViewManager.ShowMessage("Please Correct the Birthdate using 4 digit Year", "Add New Personnel", UpgradeHelpers.Helpers.BoxButtons.OK);
ViewManager.SetCurrent(ViewModel.txtCOT);
ViewModel.txtCOT.SelectionStart = 0;
ViewModel.txtCOT.SelectionLength = Strings.Len(ViewModel.txtBDay.Text);
this.Return();
return;
}
});
}
else
{
//Birthdate OK
ViewModel.txtBDay.Text = DateTime.Parse(ViewModel.txtBDay.Text).ToString("M/d/yyyy");
}
}
else
{
ViewManager.ShowMessage("Birthday is invalid", "Add New Employee Error", UpgradeHelpers.Helpers.BoxButtons.OK);
ViewManager.SetCurrent(ViewModel.txtBDay);
ViewModel.txtBDay.SelectionStart = 0;
ViewModel.txtBDay.SelectionLength = Strings.Len(ViewModel.txtBDay.Text);
this.Return();
return;
}
if (Information.IsDate(ViewModel.txtCOT.Text))
{
TestDate = DateTime.Parse(DateTime.Parse(ViewModel.txtCOT.Text).ToString("M/d/yyyy"));
if (TestDate > DateTime.Now)
{
async1.Append <UpgradeHelpers.Helpers.DialogResult>(() =>
ViewManager.ShowMessage("COT Service Date is in the future. Is this correct?", "Add New Personnel", UpgradeHelpers.Helpers.BoxButtons.YesNo));
async1.Append <UpgradeHelpers.Helpers.DialogResult, UpgradeHelpers.Helpers.DialogResult>(tempNormalized2 => tempNormalized2);
async1.Append <UpgradeHelpers.Helpers.DialogResult>(tempNormalized3 =>
{
Response = tempNormalized3;
});
async1.Append(() =>
{
using (var async2 = this.Async())
{
if (Response == UpgradeHelpers.Helpers.DialogResult.No)
{
ViewManager.ShowMessage("Please Correct COT Service Date using 4 digit Year", "Add New Personnel", UpgradeHelpers.Helpers.BoxButtons.OK);
ViewManager.SetCurrent(ViewModel.txtCOT);
ViewModel.txtCOT.SelectionStart = 0;
ViewModel.txtCOT.SelectionLength = Strings.Len(ViewModel.txtCOT.Text);
this.Return();
return;
}
TYear = DateTime.Parse(ViewModel.txtCOT.Text).ToString("yyyy");
if (Strings.Len(TYear) == 2)
{
TYear = "20" + TYear;
TYear = DateTime.Parse(ViewModel.txtCOT.Text).ToString("M/d/") + TYear;
ViewModel.txtCOT.Text = TYear;
async2.Append <UpgradeHelpers.Helpers.DialogResult>((
) => ViewManager.ShowMessage("COT Service Date Corrected for 4 digit Year, Keep Correction?", "Add New Personnel", UpgradeHelpers.Helpers.BoxButtons.YesNo));
async2.Append <UpgradeHelpers.Helpers.DialogResult, UpgradeHelpers.Helpers.DialogResult>(tempNormalized4 => tempNormalized4);
async2.Append <UpgradeHelpers.Helpers.DialogResult>(tempNormalized5 =>
{
Response = tempNormalized5;
});
async2.Append(() =>
{
if (Response == UpgradeHelpers.Helpers.DialogResult.No)
{
ViewManager.ShowMessage("Please Correct COT Service Date using 4 digit Year", "Add New Personnel", UpgradeHelpers.Helpers.BoxButtons.OK);
ViewManager.SetCurrent(ViewModel.txtCOT);
ViewModel.txtCOT.SelectionStart = 0;
ViewModel.txtCOT.SelectionLength = Strings.Len(ViewModel.txtCOT.Text);
this.Return();
return;
}
});
}
}
});
}
else
{
//COT Service date OK
ViewModel.txtCOT.Text = DateTime.Parse(ViewModel.txtCOT.Text).ToString("M/d/yyyy");
}
}
else
{
ViewManager.ShowMessage("COT Service Date is invalid", "Add New Employee Error", UpgradeHelpers.Helpers.BoxButtons.OK);
ViewManager.SetCurrent(ViewModel.txtCOT);
ViewModel.txtCOT.SelectionStart = 0;
ViewModel.txtCOT.SelectionLength = Strings.Len(ViewModel.txtCOT.Text);
this.Return();
return;
}
if (Information.IsDate(ViewModel.txtTFD.Text))
{
TestDate = DateTime.Parse(DateTime.Parse(ViewModel.txtTFD.Text).ToString("M/d/yyyy"));
if (TestDate > DateTime.Now)
{
async1.Append <UpgradeHelpers.Helpers.DialogResult>(() =>
ViewManager.ShowMessage("TFD Hire Date is in the future. Is this correct?", "Add New Personnel", UpgradeHelpers.Helpers.BoxButtons.YesNo));
async1.Append <UpgradeHelpers.Helpers.DialogResult, UpgradeHelpers.Helpers.DialogResult>(tempNormalized6 => tempNormalized6);
async1.Append <UpgradeHelpers.Helpers.DialogResult>(tempNormalized7 =>
{
Response = tempNormalized7;
});
async1.Append(() =>
{
if (Response == UpgradeHelpers.Helpers.DialogResult.No)
{
ViewManager.ShowMessage("Please Correct TFD Hire Date using 4 digit Year", "Add New Personnel", UpgradeHelpers.Helpers.BoxButtons.OK);
ViewManager.SetCurrent(ViewModel.txtCOT);
ViewModel.txtCOT.SelectionStart = 0;
ViewModel.txtCOT.SelectionLength = Strings.Len(ViewModel.txtTFD.Text);
this.Return();
return;
}
});
}
else
{
//TFD hire date OK
ViewModel.txtTFD.Text = DateTime.Parse(ViewModel.txtTFD.Text).ToString("M/d/yyyy");
}
}
else
{
ViewManager.ShowMessage("TFD Hire Date is invalid", "Add New Employee Error", UpgradeHelpers.Helpers.BoxButtons.OK);
ViewManager.SetCurrent(ViewModel.txtTFD);
ViewModel.txtTFD.SelectionStart = 0;
ViewModel.txtTFD.SelectionLength = Strings.Len(ViewModel.txtTFD.Text);
this.Return();
return;
}
if (Convert.ToString(ViewModel.cmdSwitch.Tag) == "2")
{
//Adding New Archived Employee
if (Information.IsDate(ViewModel.txtExit.Text))
{
TestDate = DateTime.Parse(DateTime.Parse(ViewModel.txtExit.Text).ToString("M/d/yyyy"));
if (TestDate > DateTime.Now)
{
async1.Append <UpgradeHelpers.Helpers.DialogResult>(() =>
ViewManager.ShowMessage("Exit Date is in the future. Is this correct?", "Add New Personnel", UpgradeHelpers.Helpers.BoxButtons.YesNo));
async1.Append <UpgradeHelpers.Helpers.DialogResult, UpgradeHelpers.Helpers.DialogResult>(tempNormalized8 => tempNormalized8);
async1.Append <UpgradeHelpers.Helpers.DialogResult>(tempNormalized9 =>
{
Response = tempNormalized9;
});
async1.Append(() =>
{
if (Response == UpgradeHelpers.Helpers.DialogResult.No)
{
ViewManager.ShowMessage("Please Correct Exit Date using 4 digit Year", "Add New Personnel", UpgradeHelpers.Helpers.BoxButtons.OK);
ViewManager.SetCurrent(ViewModel.txtCOT);
ViewModel.txtCOT.SelectionStart = 0;
ViewModel.txtCOT.SelectionLength = Strings.Len(ViewModel.txtExit.Text);
this.Return();
return;
}
});
}
else
{
//TFD hire date OK
ViewModel.txtExit.Text = DateTime.Parse(ViewModel.txtExit.Text).ToString("M/d/yyyy");
}
}
else
{
ViewManager.ShowMessage("TFD Exit Date is invalid", "Add New Employee Error", UpgradeHelpers.Helpers.BoxButtons.OK);
ViewManager.SetCurrent(ViewModel.txtTFD);
ViewModel.txtTFD.SelectionStart = 0;
ViewModel.txtTFD.SelectionLength = Strings.Len(ViewModel.txtExit.Text);
this.Return();
return;
}
async1.Append(() =>
{
switch (ViewModel.cboExitType.Text)
{
case "Retirement":
LeaveStatus = "RT";
break;
case "Transfer":
LeaveStatus = "TR";
break;
case "Resignation":
LeaveStatus = "QT";
break;
case "Termination":
LeaveStatus = "TM";
break;
default:
LeaveStatus = "";
break;
}
while ((ViewModel.txtExitComments.Text.IndexOf('\'') + 1) != 0)
{
i = (ViewModel.txtExitComments.Text.IndexOf('\'') + 1);
str1 = ViewModel.txtExitComments.Text.Substring(0, Math.Min(i - 1, ViewModel.txtExitComments.Text.Length));
str2 = ViewModel.txtExitComments.Text.Substring(Math.Max(ViewModel.txtExitComments.Text.Length - (Strings.Len(ViewModel.txtExitComments.Text) - i), 0));
ViewModel.txtExitComments.Text = str1 + "-" + str2;
}
;
ViewModel.txtExitComments.Text = ViewModel.txtExitComments.Text.Substring(0, Math.Min(255, ViewModel.txtExitComments.Text.Length));
});
}
else
{
//Adding New Regular Employee
double dbNumericTemp3 = 0;
if (!Double.TryParse(ViewModel.txtStep.Text, NumberStyles.Float, CultureInfo.CurrentCulture.NumberFormat, out dbNumericTemp3))
{
ViewManager.ShowMessage("Invalid Step", "Add New Employee Error", UpgradeHelpers.Helpers.BoxButtons.OK, UpgradeHelpers.Helpers.BoxIcons.Error);
ViewManager.SetCurrent(ViewModel.txtStep);
ViewModel.txtStep.SelectionStart = 0;
ViewModel.txtStep.SelectionLength = Strings.Len(ViewModel.txtStep.Text);
this.Return();
return;
}
if (((int)ViewModel.chkStatus.CheckState) == ((int)UpgradeHelpers.Helpers.CheckState.Checked))
{
Status = 1;
}
else
{
Status = 0;
}
}
async1.Append(() =>
{
//Format name_full field
NameWork = modGlobal.Clean(modGlobal.ProofSQLString(ViewModel.txtLName.Text));
if (modGlobal.Clean(ViewModel.txtSName.Text) != "")
{
NameWork = NameWork + " " + modGlobal.Clean(ViewModel.txtSName.Text);
}
NameWork = NameWork + ", " + modGlobal.Clean(modGlobal.ProofSQLString(ViewModel.txtFName.Text));
if (modGlobal.Clean(ViewModel.txtMName.Text) != "")
{
NameWork = NameWork + " " + modGlobal.Clean(ViewModel.txtMName.Text) + ".";
}
//Edits ok, insert record
if (Convert.ToString(ViewModel.cmdSwitch.Tag) == "1")
{
strSQL = "spInsertPersonnel '" + modGlobal.Clean(ViewModel.txtEmpID.Text) + "',0,'" + modGlobal.Clean(ViewModel.lbJobCode.Text) + "'," + Conversion.Val(ViewModel.txtStep.Text).ToString() + ",'";
strSQL = strSQL + modGlobal.Clean(NameWork) + "','" + modGlobal.Clean(modGlobal.ProofSQLString(ViewModel
.txtLName.Text)) + "','" + modGlobal.Clean(modGlobal.ProofSQLString(ViewModel.txtFName.Text)) + "','";
strSQL = strSQL + modGlobal.Clean(ViewModel.txtMName.Text) + "','" + modGlobal.Clean(ViewModel.txtSName.Text) + "','" + ViewModel.txtSex.Text + "','";
strSQL = strSQL + ViewModel.txtSSN.Text + "','" + ViewModel.txtUnion.Text + "','" + ViewModel.cboBenefit.Text + "','";
strSQL = strSQL + ViewModel.txtAddress.Text + "','" + ViewModel.txtCity.Text + "','" + ViewModel.txtState.Text + "','" + ViewModel.txtZip.Text + "','";
strSQL = strSQL + ViewModel.txtPhone.Text + "','" + ViewModel.txtBDay.Text + "','" + ViewModel.txtCOT.Text + "','";
strSQL = strSQL + ViewModel.txtTFD.Text + "'," + Conversion.Val(ViewModel.txtException.Text).ToString() + ",'" + DateTime.Now.ToString("M/d/yyyy");
strSQL = strSQL + "'," + Status.ToString() + ",'" + ViewModel.txtNameKnownBy.Text + "'";
}
else
{
strSQL = "spInsertArcPersonnel " + ArcID.ToString() + ",'" + modGlobal.Clean(ViewModel.txtEmpID.Text) + "','" + modGlobal.Clean(ViewModel.lbJobCode.Text) + "','";
strSQL = strSQL + modGlobal.Clean(NameWork) + "','" + modGlobal.Clean(modGlobal.ProofSQLString(ViewModel
.txtLName.Text)) + "','" + modGlobal.Clean(modGlobal.ProofSQLString(ViewModel.txtFName.Text)) + "','";
strSQL = strSQL + modGlobal.Clean(ViewModel.txtMName.Text) + "','" + modGlobal.Clean(ViewModel.txtSName.Text) + "','" + ViewModel.txtSex.Text + "','";
strSQL = strSQL + ViewModel.txtSSN.Text + "','" + ViewModel.cboBenefit.Text + "','";
strSQL = strSQL + ViewModel.txtAddress.Text + "','" + ViewModel.txtCity.Text + "','" + ViewModel.txtState.Text + "','" + ViewModel.txtZip.Text + "','";
strSQL = strSQL + ViewModel.txtPhone.Text + "','" + ViewModel.txtBDay.Text + "','" + ViewModel.txtCOT.Text + "','";
strSQL = strSQL + ViewModel.txtTFD.Text + "','" + ViewModel.txtExit.Text + "','" + LeaveStatus + "'," + Conversion.Val(ViewModel.txtException.Text).ToString();
strSQL = strSQL + ",'" + ViewModel.txtExitComments.Text + "'";
}
oCmd.CommandType = CommandType.Text;
oCmd.CommandText = strSQL;
oCmd.ExecuteNonQuery();
//Vacation Balance record for new employee
oCmd.CommandText = "spInsertVacationBalance '" + ViewModel.txtEmpID.Text + "',0,'" + UpgradeHelpers.Helpers.DateTimeHelper.ToString(DateTime.Now) + "'";
oCmd.ExecuteNonQuery();
if (Convert.ToString(ViewModel.cmdSwitch.Tag) == "1")
{
modGlobal.Shared.gAssignID = ViewModel.txtEmpID.Text;
ViewModel.cmdAssign.Enabled = true;
NameWork = modGlobal.Clean(ViewModel.txtLName.Text) + ", " + modGlobal.Clean(ViewModel.txtFName.Text);
ViewManager.ShowMessage(NameWork + " successfully Added", "Add New Employee", UpgradeHelpers.Helpers.BoxButtons.OK);
ViewManager.SetCurrent(ViewModel.cmdAssign);
}
else
{
NameWork = modGlobal.Clean(ViewModel.txtLName.Text) + ", " + modGlobal.Clean(ViewModel.txtFName.Text);
ViewManager.ShowMessage(NameWork + " successfully Added to Archived Personnel", "Add New Archived Employee", UpgradeHelpers.Helpers.BoxButtons.OK);
ClearForm();
}
//Add SAPConversion Record
if (Convert.ToString(ViewModel.cmdSwitch.Tag) == "1")
{
strSQL = "spSelect_PersonnelSystemIDByEmpID '" + ViewModel.txtEmpID.Text + "' ";
oCmd.CommandType = CommandType.Text;
oCmd.CommandText = strSQL;
oRec = ADORecordSetHelper.Open(oCmd, "");
if (!oRec.EOF)
{
//UPGRADE_WARNING: (1068) GetVal() of type Variant is being forced to int. More Information: http://www.vbtonet.com/ewis/ewi1068.aspx
iPersID = Convert.ToInt32(modGlobal.GetVal(oRec["per_sys_id"]));
//UPGRADE_WARNING: (1068) GetVal() of type Variant is being forced to string. More Information: http://www.vbtonet.com/ewis/ewi1068.aspx
strSQL = "spInsertSAPConversion " + iPersID.ToString() + ", " + Convert.ToString(modGlobal.GetVal(ViewModel.txtSAPEmpID.Text)) + " ";
oCmd.CommandType = CommandType.Text;
oCmd.CommandText = strSQL;
oCmd.ExecuteNonQuery();
}
}
});
}
}
catch
{
if (modGlobal.ErrorControl() == modGlobal.eFATALERROR)
{
this.Return();
return;
}
}
}
}
internal void OKButton_Click(Object eventSender, System.EventArgs eventArgs)
{
using (var async1 = this.Async(true))
{
UpgradeHelpers.Helpers.DialogResult resp = (UpgradeHelpers.Helpers.DialogResult) 0;
string sName = "";
//Do some editing and check for delete...
//UPGRADE_WARNING: (1068) GetVal(lbRecordID.Caption) of type Variant is being forced to double. More Information: http://www.vbtonet.com/ewis/ewi1068.aspx
if (Convert.ToDouble(modGlobal.GetVal(ViewModel.lbRecordID.Text)) != 0 && modGlobal.Clean(ViewModel.
cboShift.Text) == "" && modGlobal.Clean(ViewModel.cboNumber.Text) == "" && modGlobal.Clean(ViewModel.cboDebitGroup.Text) == "")
{
async1.Append <UpgradeHelpers.Helpers.DialogResult>(() =>
ViewManager.ShowMessage("Do you want to Delete the Callback # for this Employee?", "Delete Callback Number", UpgradeHelpers.Helpers.BoxButtons.YesNo));
async1.Append <UpgradeHelpers.Helpers.DialogResult, UpgradeHelpers.Helpers.DialogResult>(tempNormalized0 => tempNormalized0);
async1.Append <UpgradeHelpers.Helpers.DialogResult>(tempNormalized1 =>
{
resp = tempNormalized1;
});
async1.Append(() =>
{
if (resp == UpgradeHelpers.Helpers.DialogResult.No)
{
this.Return();
return;
}
else
{
//UPGRADE_WARNING: (1068) GetVal() of type Variant is being forced to int. More Information: http://www.vbtonet.com/ewis/ewi1068.aspx
if (cScheduler.DeletePersonnelCallBackNumber(Convert.ToInt32(modGlobal.GetVal(ViewModel.lbRecordID.Text))) != 0)
{
//success
ViewManager.DisposeView(this);
this.Return();
return;
}
else
{
ViewManager.ShowMessage("Oooops! There was a problem deleting CallBackNumber.", "Delete Callback Number Error", UpgradeHelpers.Helpers.BoxButtons.OK);
this.Return();
return;
}
}
});
}
async1.Append(() =>
{
using (var async2 = this.Async())
{
if (modGlobal.Clean(ViewModel.cboShift.Text) == "")
{
ViewManager.ShowMessage("Please select a Shift... or Click Cancel to Exit.", "Edit Callback Number Error", UpgradeHelpers.Helpers.BoxButtons.OK);
this.Return();
return;
}
if (modGlobal.Clean(ViewModel.cboNumber.Text) == "")
{
ViewManager.ShowMessage("Please select a Number... or Click Cancel to Exit.", "Edit Callback Number Error", UpgradeHelpers.Helpers.BoxButtons.OK);
this.Return();
return;
}
//UPGRADE_WARNING: (1068) GetVal(cboNumber.Text) of type Variant is being forced to int. More Information: http://www.vbtonet.com/ewis/ewi1068.aspx
if (cScheduler.CheckCallBackNumberInUse(modGlobal.Clean(ViewModel.cboShift.Text), Convert.ToInt32(modGlobal.GetVal(ViewModel.cboNumber.Text)), modGlobal.Clean(ViewModel.sEmpID)) != 0)
{
if (!cScheduler.PersonnelCallBackNumber.EOF)
{
sName = modGlobal.Clean(cScheduler.PersonnelCallBackNumber["name_full"]);
async2.Append <UpgradeHelpers.Helpers.DialogResult>(() => ViewManager.ShowMessage("This Callback # currently belongs to " + sName + "." + "\r" +
"Do you want to continue anyway?", "Check Callback Number In Use", UpgradeHelpers.Helpers.BoxButtons.YesNo));
async2.Append <UpgradeHelpers.Helpers.DialogResult, UpgradeHelpers.Helpers.DialogResult>(tempNormalized2 => tempNormalized2);
async2.Append <UpgradeHelpers.Helpers.DialogResult>(tempNormalized3 =>
{
resp = tempNormalized3;
});
async2.Append(() =>
{
if (resp == UpgradeHelpers.Helpers.DialogResult.Yes)
{
//continue...
}
else
{
this.Return();
return;
}
});
}
}
async2.Append(() =>
{
ChangeCallbackNumber();
ViewManager.DisposeView(this);
});
}
});
}
}
internal void cmdUpdate_Click(Object eventSender, System.EventArgs eventArgs)
{
using (var async1 = this.Async(true))
{
int str1 = 0;
DbCommand oCmd = UpgradeHelpers.DB.AdoFactoryManager.GetFactory().CreateCommand();
UpgradeHelpers.Helpers.DialogResult Response = (UpgradeHelpers.Helpers.DialogResult) 0;
//DbCommand oRec = null;
//string strl = "";
string str2 = "";
int i = 0;
//Edit Fields
ViewModel.txtAddress.Text = ViewModel.txtAddress.Text.Trim();
if (ViewModel.txtAddress.Text == "")
{
ViewManager.ShowMessage("You must enter a Address !!", "Insert New Address", UpgradeHelpers.Helpers.BoxButtons.OK, UpgradeHelpers.Helpers.BoxIcons.Error);
ViewManager.SetCurrent(ViewModel.txtAddress);
this.Return();
return;
}
ViewModel.cboType.Text = ViewModel.cboType.Text.Trim();
if (ViewModel.cboType.Text == "")
{
async1.Append <UpgradeHelpers.Helpers.DialogResult>(() => ViewManager
.ShowMessage("No Address Type was selected. Default to 'Unknown' " + "?? ", "Insert New Address", UpgradeHelpers.Helpers.BoxButtons.OKCancel));
async1.Append <UpgradeHelpers.Helpers.DialogResult, UpgradeHelpers.Helpers.DialogResult>(tempNormalized0 => tempNormalized0);
async1.Append <UpgradeHelpers.Helpers.DialogResult>(tempNormalized1 =>
{
Response = tempNormalized1;
});
async1.Append(() =>
{
if (Response == UpgradeHelpers.Helpers.DialogResult.Cancel)
{
ViewManager.SetCurrent(ViewModel.cboType);
this.Return();
return;
}
else
{
ViewModel.cboType.Text = "Unknown";
}
});
}
async1.Append(() =>
{
ViewModel.txtCity.Text = ViewModel.txtCity.Text.Trim();
if (ViewModel.txtCity.Text == "")
{
ViewManager.ShowMessage("You must enter a City !!", "Insert New Address", UpgradeHelpers.Helpers.BoxButtons.OK, UpgradeHelpers.Helpers.BoxIcons.Error);
ViewManager.SetCurrent(ViewModel.txtCity);
this.Return();
return;
}
ViewModel.txtState.Text = ViewModel.txtState.Text.Trim();
if (ViewModel.txtState.Text == "")
{
ViewManager.ShowMessage("You must enter a State !!", "Insert New Address", UpgradeHelpers.Helpers.BoxButtons.OK, UpgradeHelpers.Helpers.BoxIcons.Error);
ViewManager.SetCurrent(ViewModel.txtState);
this.Return();
return;
}
ViewModel.txtZip.Text = ViewModel.txtZip.Text.Trim();
if (ViewModel.txtCity.Text == "")
{
ViewManager.ShowMessage("You must enter a Zip Code !!", "Insert New Address", UpgradeHelpers.Helpers.BoxButtons.OK, UpgradeHelpers.Helpers.BoxIcons.Error);
ViewManager.SetCurrent(ViewModel.txtZip);
this.Return();
return;
}
string CommStr = ViewModel.txtComment.Text.Trim();
while ((CommStr.IndexOf('\'') + 1) != 0)
{
i = (CommStr.IndexOf('\'') + 1);
str1 = Convert.ToInt32(Double.Parse(CommStr.Substring(0, Math.Min(i - 1, CommStr.Length))));
str2 = CommStr.Substring(Math.Max(CommStr.Length - (Strings.Len(CommStr) - i), 0));
CommStr = str1.ToString() + "-" + str2;
}
;
ViewModel.txtComment.Text = CommStr.Substring(0, Math.Min(255, CommStr.Length));
//Execute spUpdatePersonnelAddress
oCmd.Connection = modGlobal.oConn;
oCmd.CommandType = CommandType.Text;
oCmd.CommandText = "spUpdatePersonnelAddress '" + ViewModel.lbAddressID.Text + "','" + ViewModel.lbEmpID.Text + "','" + Strings.Replace
(ViewModel.txtAddress.Text, "'", "''", 1, -1, CompareMethod.Binary) + "','" +
ViewModel.txtCity.Text + "','" + ViewModel.txtZip.Text + "','" + ViewModel.txtComment.Text + "','" + ViewModel.cboType.Text + "','" + ViewModel.txtState.Text + "'";
oCmd.ExecuteNonQuery();
//Refresh Screen
LoadAddressList();
});
}
}
internal void cmdAdd_Click(Object eventSender, System.EventArgs eventArgs)
{
using (var async1 = this.Async(true))
{
int str1 = 0;
DbCommand oCmd = UpgradeHelpers.DB.AdoFactoryManager.GetFactory().CreateCommand();
UpgradeHelpers.Helpers.DialogResult Response = (UpgradeHelpers.Helpers.DialogResult) 0;
//DbCommand oRec = null;
//string strl = "";
string str2 = "";
int i = 0;
//Check cmdAdd.Tag to see if fields need cleared...
if (UpgradeHelpers.Helpers.StringsHelper.ToDoubleSafe(Convert.ToString(ViewModel.cmdAdd.Tag)) == 1)
{
//Unselect row in the Address List Box
for (i = 0; i <= ViewModel.lstAddress.Items.Count - 1; i++)
{
UpgradeHelpers.Helpers.ListBoxHelper.SetSelected(ViewModel.lstAddress, i, false);
}
// Clear fields
ViewModel.txtAddress.Text = "";
ViewModel.txtCity.Text = "";
ViewModel.txtState.Text = "";
ViewModel.txtZip.Text = "";
ViewModel.txtComment.Text = "";
ViewModel.cboType.Text = "";
// Reset buttons...
ViewModel.cmdAdd.Tag = "2";
ViewModel.cmdAdd.Text = "&Add New Address";
ViewModel.cmdDelete.Visible = false;
ViewModel.cmdUpdate.Visible = false;
//Set Focus
ViewManager.SetCurrent(
//Set Focus
ViewModel.txtAddress);
this.Return();
return;
}
//Edit Fields
ViewModel.txtAddress.Text = ViewModel.txtAddress.Text.Trim();
if (ViewModel.txtAddress.Text == "")
{
ViewManager.ShowMessage("You must enter a Address !!", "Insert New Address", UpgradeHelpers.Helpers.BoxButtons.OK, UpgradeHelpers.Helpers.BoxIcons.Error);
ViewManager.SetCurrent(ViewModel.txtAddress);
this.Return();
return;
}
ViewModel.cboType.Text = ViewModel.cboType.Text.Trim();
if (ViewModel.cboType.Text == "")
{
async1.Append <UpgradeHelpers.Helpers.DialogResult>(() => ViewManager
.ShowMessage("No Address Type was selected. Default to 'Unknown' " + "?? ", "Insert New Address", UpgradeHelpers.Helpers.BoxButtons.OKCancel));
async1.Append <UpgradeHelpers.Helpers.DialogResult, UpgradeHelpers.Helpers.DialogResult>(tempNormalized0 => tempNormalized0);
async1.Append <UpgradeHelpers.Helpers.DialogResult>(tempNormalized1 =>
{
Response = tempNormalized1;
});
async1.Append(() =>
{
if (Response == UpgradeHelpers.Helpers.DialogResult.Cancel)
{
ViewManager.SetCurrent(ViewModel.cboType);
this.Return();
return;
}
else
{
ViewModel.cboType.Text = "Unknown";
}
});
}
async1.Append(() =>
{
ViewModel.txtCity.Text = ViewModel.txtCity.Text.Trim();
if (ViewModel.txtCity.Text == "")
{
ViewManager.ShowMessage("You must enter a City !!", "Insert New Address", UpgradeHelpers.Helpers.BoxButtons.OK, UpgradeHelpers.Helpers.BoxIcons.Error);
ViewManager.SetCurrent(ViewModel.txtCity);
this.Return();
return;
}
ViewModel.txtState.Text = ViewModel.txtState.Text.Trim();
if (ViewModel.txtState.Text == "")
{
ViewManager.ShowMessage("You must enter a State !!", "Insert New Address", UpgradeHelpers.Helpers.BoxButtons.OK, UpgradeHelpers.Helpers.BoxIcons.Error);
ViewManager.SetCurrent(ViewModel.txtState);
this.Return();
return;
}
ViewModel.txtZip.Text = ViewModel.txtZip.Text.Trim();
if (ViewModel.txtCity.Text == "")
{
ViewManager.ShowMessage("You must enter a Zip Code !!", "Insert New Address", UpgradeHelpers.Helpers.BoxButtons.OK, UpgradeHelpers.Helpers.BoxIcons.Error);
ViewManager.SetCurrent(ViewModel.txtZip);
this.Return();
return;
}
string CommStr = ViewModel.txtComment.Text.Trim();
while ((CommStr.IndexOf('\'') + 1) != 0)
{
i = (CommStr.IndexOf('\'') + 1);
str1 = Convert.ToInt32(Double.Parse(CommStr.Substring(0, Math.Min(i - 1, CommStr.Length))));
str2 = CommStr.Substring(Math.Max(CommStr.Length - (Strings.Len(CommStr) - i), 0));
CommStr = str1.ToString() + "-" + str2;
}
;
ViewModel.txtComment.Text = CommStr.Substring(0, Math.Min(255, CommStr.Length));
//Execute spInsertPersonnelAddress
oCmd.Connection = modGlobal.oConn;
oCmd.CommandType = CommandType.Text;
oCmd.CommandText = "spInsertPersonnelAddress '" + ViewModel.lbEmpID.Text + "','" + ViewModel.txtAddress.Text +
"','" + ViewModel.txtCity.Text + "','" + ViewModel.txtZip.Text + "','" + ViewModel.txtComment.Text + "','" + ViewModel.cboType.Text + "','" + ViewModel.txtState.Text + "'";
oCmd.ExecuteNonQuery();
//Refresh Screen
LoadAddressList();
});
}
}
public void CreateNewSchedule()
{
using (var async1 = this.Async(true))
{
//Create REG, DDF and ROV
//Schedule records for selected date range
UpgradeHelpers.Helpers.DialogResult Response = (UpgradeHelpers.Helpers.DialogResult) 0;
DbConnection oConUtil = UpgradeHelpers.DB.AdoFactoryManager.GetFactory().CreateConnection();
string strCon = "";
DbCommand oCmd = UpgradeHelpers.DB.AdoFactoryManager.GetFactory().CreateCommand();
ViewModel.cmdExit.Visible = false;
string sStartDate = DateTime.Parse(ViewModel.calStart.Text).ToString("M/d/yyyy");
System.DateTime dtStartDate = DateTime.Parse(DateTime.Parse(ViewModel.calStart.Text).ToString("M/d/yyyy"));
string sEndDate = DateTime.Parse(ViewModel.calEnd.Text).ToString("M/d/yyyy");
System.DateTime dtEndDate = DateTime.Parse(DateTime.Parse(ViewModel.calEnd.Text).ToString("M/d/yyyy"));
if (modGlobal.Shared.gTestMode != 0)
{
strCon = "Provider=SQLOLEDB; Data Source=TFDSQL1; Initial Catalog=PTSTestBackup; Integrated Security=SSPI";
}
else
{
strCon = "Provider=SQLOLEDB; Data Source=TFDSQL1; Initial Catalog=PTSData; Integrated Security=SSPI";
}
// strCon = "Provider=SQLOLEDB; Data Source=TFDSQL2; Initial Catalog=PTSData; Integrated Security=SSPI"
//UPGRADE_TODO: (7010) The connection string must be verified to fullfill the .NET data provider connection string requirements. More Information: http://www.vbtonet.com/ewis/ewi7010.aspx
oConUtil.ConnectionString = strCon;
oConUtil.Open();
while ((oConUtil.State == ConnectionState.Connecting))
{
//Debug.Print "Connecting to SQL Server....."
}
oCmd.Connection = oConUtil;
oCmd.CommandType = CommandType.Text;
oCmd.CommandText = "sp_LastSchedDate";
ADORecordSetHelper oRec = ADORecordSetHelper.Open(oCmd, "");
System.DateTime LastDate = Convert.ToDateTime(oRec["last_date"]);
if (dtStartDate >= dtEndDate)
{
ViewManager.ShowMessage("End Date must be greater than Start Date", "Create New Schedule", UpgradeHelpers.Helpers.BoxButtons.OK, UpgradeHelpers.Helpers.BoxIcons.Error);
this.Return();
return;
}
if (LastDate > dtStartDate)
{
async1.Append <UpgradeHelpers.Helpers.DialogResult>(()
=> ViewManager.ShowMessage("Delete Current Schedule Records occuring after selected Start Date?", "Create New Schedule", UpgradeHelpers.Helpers.BoxButtons.YesNoCancel));
async1.Append <UpgradeHelpers.Helpers.DialogResult, UpgradeHelpers.Helpers.DialogResult>(tempNormalized0 => tempNormalized0);
async1.Append <UpgradeHelpers.Helpers.DialogResult>(tempNormalized1 =>
{
Response = tempNormalized1;
});
async1.Append(() =>
{
if (Response == UpgradeHelpers.Helpers.DialogResult.No)
{
dtStartDate = LastDate.AddDays(1);
sStartDate = dtStartDate.ToString("M/d/yyyy");
}
else if (Response == UpgradeHelpers.Helpers.DialogResult.Cancel)
{
this.Return();
return;
}
else
{
//Delete Overlapping Schedule Records
oCmd.CommandText = "spClearSchedule '" + sStartDate + "','" + LastDate.AddDays(1).ToString("M/d/yyyy") + "'";
oCmd.ExecuteNonQuery();
}
});
}
async1.Append(() =>
{
ViewModel.lbStatus.Visible = true;
ViewModel.pb1.Visible = true;
//Create REG Schedule Records
ViewModel.lbStatus.Text = "Creating New REG Schedule Records";
ViewModel.pb1.Value = 0;
int RecFactor = ((int)DateAndTime.DateDiff("d", dtStartDate, dtEndDate, FirstDayOfWeek.Sunday, FirstWeekOfYear.Jan1)) * 164;
int i = 0;
oCmd.CommandText = "spCreateSchedREG '" + sStartDate + "','" + sEndDate + "'";
// oCmd.CommandText = "spCreateSchedREG_OneTime '" & sStartDate & "','" & sEndDate & "'"
oRec = ADORecordSetHelper.Open(oCmd, "");
while (!oRec.EOF)
{
oCmd.CommandText = "spInsertSchedule '" + Convert.ToString(oRec["shift_start"]) + "','" + Convert.ToString(oRec["employee_id"]) + "'," + Convert.ToString(oRec["ass_id"]) + ",'REG',0,'" + Convert.ToString(oRec["job_code"]) + "'," + Convert.ToString(oRec["step"]) + ",'" +
DateTime.Now.ToString("M/d/yyyy") + "','" + modGlobal.Shared.gUser + "'";
oCmd.ExecuteNonQuery();
//UPGRADE_ISSUE: (2064) ADODB.Command property oCmd.State was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx
while ((oCmd.getState() == ((int)ConnectionState.Executing)))
{
//Debug.Print "Executing Insert... " & I
}
oRec.MoveNext();
i++;
if ((i / RecFactor) * 100 > 100)
{
ViewModel.pb1.Value = 100;
}
else
{
ViewModel.pb1.Value = (i / RecFactor) * 100;
}
ViewModel.lbStatus.Text = "Creating New REG Schedule Records - " + ViewModel.pb1.Value.ToString() + "% Complete";
}
;
ViewModel.lbStatus.Text = "Creation of New REG Schedule Records Complete";
//UPGRADE_WARNING: (6021) Casting 'int' to Enum may cause different behaviour. More Information: http://www.vbtonet.com/ewis/ewi6021.aspx
for (Response = UpgradeHelpers.Helpers.DialogResult.OK; ((int)Response) <= 10000; Response = (UpgradeHelpers.Helpers.DialogResult)(((int)Response) + 1))
{
}
//Create ROV Schedule Records (position ROV181 & ROV182 & ROV183)
ViewModel.lbStatus.Text = "Creating New Batt 1 ROV Schedule Records";
ViewModel.pb1.Value = 0;
RecFactor = ((int)DateAndTime.DateDiff("d", dtStartDate, dtEndDate, FirstDayOfWeek.Sunday, FirstWeekOfYear.Jan1)) * 11;
i = 0;
oCmd.CommandText = "spCreateSchedROV '" + sStartDate + "','" + sEndDate + "','1'";
oRec = ADORecordSetHelper.Open(oCmd, "");
while (!oRec.EOF)
{
oCmd.CommandText = "spInsertSchedule '" + Convert.ToString(oRec["shift_start"]) + "','" + Convert.ToString(oRec["employee_id"]) + "',559,'REG',0,'" + Convert.ToString(oRec["job_code"]) + "'," + Convert.ToString(oRec["step"]) + ",'" +
DateTime.Now.ToString("M/d/yyyy") + "','" + modGlobal.Shared.gUser + "'";
oCmd.ExecuteNonQuery();
//UPGRADE_ISSUE: (2064) ADODB.Command property oCmd.State was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx
while ((oCmd.getState() == ((int)ConnectionState.Executing)))
{
//Debug.Print "Executing Insert... " & I
}
oRec.MoveNext();
i++;
if ((i / RecFactor) * 100 > 100)
{
ViewModel.pb1.Value = 100;
}
else
{
ViewModel.pb1.Value = (i / RecFactor) * 100;
}
ViewModel.lbStatus.Text = "Creating New Batt 1 ROV Schedule Records - " + ViewModel.pb1.Value.ToString() + "% Complete";
}
;
ViewModel.lbStatus.Text = "Creating New Batt 2 ROV Schedule Records";
ViewModel.pb1.Value = 0;
RecFactor = ((int)DateAndTime.DateDiff("d", dtStartDate, dtEndDate, FirstDayOfWeek.Sunday, FirstWeekOfYear.Jan1)) * 12;
i = 0;
oCmd.CommandText = "spCreateSchedROV '" + sStartDate + "','" + sEndDate + "','2'";
oRec = ADORecordSetHelper.Open(oCmd, "");
while (!oRec.EOF)
{
oCmd.CommandText = "spInsertSchedule '" + Convert.ToString(oRec["shift_start"]) + "','" + Convert.ToString(oRec["employee_id"]) + "',560,'REG',0,'" + Convert.ToString(oRec["job_code"]) + "'," + Convert.ToString(oRec["step"]) + ",'" +
DateTime.Now.ToString("M/d/yyyy") + "','" + modGlobal.Shared.gUser + "'";
oCmd.ExecuteNonQuery();
//UPGRADE_ISSUE: (2064) ADODB.Command property oCmd.State was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx
while ((oCmd.getState() == ((int)ConnectionState.Executing)))
{
//Debug.Print "Executing Insert... " & I
}
oRec.MoveNext();
i++;
if ((i / RecFactor) * 100 > 100)
{
ViewModel.pb1.Value = 100;
}
else
{
ViewModel.pb1.Value = (i / RecFactor) * 100;
}
ViewModel.lbStatus.Text = "Creating New Batt 2 ROV Schedule Records - " + ViewModel.pb1.Value.ToString() + "% Complete";
}
;
ViewModel.lbStatus.Text = "Creating New Batt 3 ROV Schedule Records";
ViewModel.pb1.Value = 0;
RecFactor = ((int)DateAndTime.DateDiff("d", dtStartDate, dtEndDate, FirstDayOfWeek.Sunday, FirstWeekOfYear.Jan1)) * 12;
i = 0;
oCmd.CommandText = "spCreateSchedROV '" + sStartDate + "','" + sEndDate + "','3'";
oRec = ADORecordSetHelper.Open(oCmd, "");
while (!oRec.EOF)
{
oCmd.CommandText = "spInsertSchedule '" + Convert.ToString(oRec["shift_start"]) + "','" + Convert.ToString(oRec["employee_id"]) + "',1283,'REG',0,'" + Convert.ToString(oRec["job_code"]) + "'," + Convert.ToString(oRec["step"]) + ",'" +
DateTime.Now.ToString("M/d/yyyy") + "','" + modGlobal.Shared.gUser + "'";
oCmd.ExecuteNonQuery();
//UPGRADE_ISSUE: (2064) ADODB.Command property oCmd.State was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx
while ((oCmd.getState() == ((int)ConnectionState.Executing)))
{
//Debug.Print "Executing Insert... " & I
}
oRec.MoveNext();
i++;
if ((i / RecFactor) * 100 > 100)
{
ViewModel.pb1.Value = 100;
}
else
{
ViewModel.pb1.Value = (i / RecFactor) * 100;
}
ViewModel.lbStatus.Text = "Creating New Batt 3 ROV Schedule Records - " + ViewModel.pb1.Value.ToString() + "% Complete";
}
;
ViewModel.lbStatus.Text = "Creation of ROV Schedule Records Complete";
//UPGRADE_WARNING: (6021) Casting 'int' to Enum may cause different behaviour. More Information: http://www.vbtonet.com/ewis/ewi6021.aspx
for (Response = UpgradeHelpers.Helpers.DialogResult.OK; ((int)Response) <= 10000; Response = (UpgradeHelpers.Helpers.DialogResult)(((int)Response) + 1))
{
}
//Create DDF Schedule Records (position DBT181 & DBT182 & DBT183)
ViewModel.lbStatus.Text = "Creating New Batt 1 DDF Schedule Records";
ViewModel.pb1.Value = 0;
RecFactor = ((int)DateAndTime.DateDiff("d", dtStartDate, dtEndDate, FirstDayOfWeek.Sunday, FirstWeekOfYear.Jan1)) * 6;
i = 0;
oCmd.CommandText = "spCreateSchedDDF '" + sStartDate + "','" + sEndDate + "','1'";
oRec = ADORecordSetHelper.Open(oCmd, "");
while (!oRec.EOF)
{
oCmd.CommandText = "spInsertSchedule '" + Convert.ToString(oRec["shift_start"]) + "','" + Convert.ToString(oRec["employee_id"]) + "',561,'DDF',0,'" + Convert.ToString(oRec["job_code"]) + "'," + Convert.ToString(oRec["step"]) + ",'" +
DateTime.Now.ToString("M/d/yyyy") + "','" + modGlobal.Shared.gUser + "'";
oCmd.ExecuteNonQuery();
//UPGRADE_ISSUE: (2064) ADODB.Command property oCmd.State was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx
while ((oCmd.getState() == ((int)ConnectionState.Executing)))
{
//Debug.Print "Executing Insert... " & I
}
oRec.MoveNext();
i++;
if ((i / RecFactor) * 100 > 100)
{
ViewModel.pb1.Value = 100;
}
else
{
ViewModel.pb1.Value = (i / RecFactor) * 100;
}
ViewModel.lbStatus.Text = "Creating New Batt 1 DDF Schedule Records - " + ViewModel.pb1.Value.ToString() + "% Complete";
}
;
ViewModel.lbStatus.Text = "Creating New Batt 2 DDF Schedule Records";
ViewModel.pb1.Value = 0;
i = 0;
oCmd.CommandText = "spCreateSchedDDF '" + sStartDate + "','" + sEndDate + "','2'";
oRec = ADORecordSetHelper.Open(oCmd, "");
while (!oRec.EOF)
{
oCmd.CommandText = "spInsertSchedule '" + Convert.ToString(oRec["shift_start"]) + "','" + Convert.ToString(oRec["employee_id"]) + "',562,'DDF',0,'" + Convert.ToString(oRec["job_code"]) + "'," + Convert.ToString(oRec["step"]) + ",'" +
DateTime.Now.ToString("M/d/yyyy") + "','" + modGlobal.Shared.gUser + "'";
oCmd.ExecuteNonQuery();
//UPGRADE_ISSUE: (2064) ADODB.Command property oCmd.State was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx
while ((oCmd.getState() == ((int)ConnectionState.Executing)))
{
//Debug.Print "Executing Insert... " & I
}
oRec.MoveNext();
i++;
if ((i / RecFactor) * 100 > 100)
{
ViewModel.pb1.Value = 100;
}
else
{
ViewModel.pb1.Value = (i / RecFactor) * 100;
}
ViewModel.lbStatus.Text = "Creating New Batt 2 DDF Schedule Records - " + ViewModel.pb1.Value.ToString() + "% Complete";
}
;
ViewModel.lbStatus.Text = "Creating New Batt 3 DDF Schedule Records";
ViewModel.pb1.Value = 0;
i = 0;
oCmd.CommandText = "spCreateSchedDDF '" + sStartDate + "','" + sEndDate + "','3'";
oRec = ADORecordSetHelper.Open(oCmd, "");
while (!oRec.EOF)
{
oCmd.CommandText = "spInsertSchedule '" + Convert.ToString(oRec["shift_start"]) + "','" + Convert.ToString(oRec["employee_id"]) + "',1284,'DDF',0,'" + Convert.ToString(oRec["job_code"]) + "'," + Convert.ToString(oRec["step"]) + ",'" +
DateTime.Now.ToString("M/d/yyyy") + "','" + modGlobal.Shared.gUser + "'";
oCmd.ExecuteNonQuery();
//UPGRADE_ISSUE: (2064) ADODB.Command property oCmd.State was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx
while ((oCmd.getState() == ((int)ConnectionState.Executing)))
{
//Debug.Print "Executing Insert... " & I
}
oRec.MoveNext();
i++;
if ((i / RecFactor) * 100 > 100)
{
ViewModel.pb1.Value = 100;
}
else
{
ViewModel.pb1.Value = (i / RecFactor) * 100;
}
ViewModel.lbStatus.Text = "Creating New Batt 3 DDF Schedule Records - " + ViewModel.pb1.Value.ToString() + "% Complete";
}
;
ViewModel.lbStatus.Text = "Creation of DDF Schedule Records Complete";
//UPGRADE_WARNING: (6021) Casting 'int' to Enum may cause different behaviour. More Information: http://www.vbtonet.com/ewis/ewi6021.aspx
for (Response = UpgradeHelpers.Helpers.DialogResult.OK; ((int)Response) <= 10000; Response = (UpgradeHelpers.Helpers.DialogResult)(((int)Response) + 1))
{
}
//Create DDF Schedule Records (position DBT181 & DBT182 & DBT183) for
//Special Non-Paramedic Personnel in Paramedic positions
ViewModel.lbStatus.Text = "Creating Special Batt 1 DDF Schedule Records";
ViewModel.pb1.Value = 0;
RecFactor = ((int)DateAndTime.DateDiff("d", dtStartDate, dtEndDate, FirstDayOfWeek.Sunday, FirstWeekOfYear.Jan1)) * 6;
i = 0;
oCmd.CommandText = "spCreateSchedDDF_2 '" + sStartDate + "','" + sEndDate + "','1'";
oRec = ADORecordSetHelper.Open(oCmd, "");
while (!oRec.EOF)
{
oCmd.CommandText = "spInsertSchedule '" + Convert.ToString(oRec["shift_start"]) + "','" + Convert.ToString(oRec["employee_id"]) + "',561,'DDF',0,'" + Convert.ToString(oRec["job_code"]) + "'," + Convert.ToString(oRec["step"]) + ",'" +
DateTime.Now.ToString("M/d/yyyy") + "','" + modGlobal.Shared.gUser + "'";
oCmd.ExecuteNonQuery();
//UPGRADE_ISSUE: (2064) ADODB.Command property oCmd.State was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx
while ((oCmd.getState() == ((int)ConnectionState.Executing)))
{
//Debug.Print "Executing Insert... " & I
}
oRec.MoveNext();
i++;
if ((i / RecFactor) * 100 > 100)
{
ViewModel.pb1.Value = 100;
}
else
{
ViewModel.pb1.Value = (i / RecFactor) * 100;
}
ViewModel.lbStatus.Text = "Creating Special Batt 1 DDF Schedule Records - " + ViewModel.pb1.Value.ToString() + "% Complete";
}
;
ViewModel.lbStatus.Text = "Creating Special Batt 2 DDF Schedule Records";
ViewModel.pb1.Value = 0;
i = 0;
oCmd.CommandText = "spCreateSchedDDF_2 '" + sStartDate + "','" + sEndDate + "','2'";
oRec = ADORecordSetHelper.Open(oCmd, "");
while (!oRec.EOF)
{
oCmd.CommandText = "spInsertSchedule '" + Convert.ToString(oRec["shift_start"]) + "','" + Convert.ToString(oRec["employee_id"]) + "',562,'DDF',0,'" + Convert.ToString(oRec["job_code"]) + "'," + Convert.ToString(oRec["step"]) + ",'" +
DateTime.Now.ToString("M/d/yyyy") + "','" + modGlobal.Shared.gUser + "'";
oCmd.ExecuteNonQuery();
//UPGRADE_ISSUE: (2064) ADODB.Command property oCmd.State was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx
while ((oCmd.getState() == ((int)ConnectionState.Executing)))
{
//Debug.Print "Executing Insert... " & I
}
oRec.MoveNext();
i++;
if ((i / RecFactor) * 100 > 100)
{
ViewModel.pb1.Value = 100;
}
else
{
ViewModel.pb1.Value = (i / RecFactor) * 100;
}
ViewModel.lbStatus.Text = "Creating Special Batt 2 DDF Schedule Records - " + ViewModel.pb1.Value.ToString() + "% Complete";
}
;
ViewModel.lbStatus.Text = "Creating Special Batt 3 DDF Schedule Records";
ViewModel.pb1.Value = 0;
i = 0;
oCmd.CommandText = "spCreateSchedDDF_2 '" + sStartDate + "','" + sEndDate + "','3'";
oRec = ADORecordSetHelper.Open(oCmd, "");
while (!oRec.EOF)
{
oCmd.CommandText = "spInsertSchedule '" + Convert.ToString(oRec["shift_start"]) + "','" + Convert.ToString(oRec["employee_id"]) + "',1284,'DDF',0,'" + Convert.ToString(oRec["job_code"]) + "'," + Convert.ToString(oRec["step"]) + ",'" +
DateTime.Now.ToString("M/d/yyyy") + "','" + modGlobal.Shared.gUser + "'";
oCmd.ExecuteNonQuery();
//UPGRADE_ISSUE: (2064) ADODB.Command property oCmd.State was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx
while ((oCmd.getState() == ((int)ConnectionState.Executing)))
{
//Debug.Print "Executing Insert... " & I
}
oRec.MoveNext();
i++;
if ((i / RecFactor) * 100 > 100)
{
ViewModel.pb1.Value = 100;
}
else
{
ViewModel.pb1.Value = (i / RecFactor) * 100;
}
ViewModel.lbStatus.Text = "Creating Special Batt 3 DDF Schedule Records - " + ViewModel.pb1.Value.ToString() + "% Complete";
}
;
ViewModel.lbStatus.Text = "Creation of Special DDF Schedule Records Complete";
//UPGRADE_WARNING: (6021) Casting 'int' to Enum may cause different behaviour. More Information: http://www.vbtonet.com/ewis/ewi6021.aspx
for (Response = UpgradeHelpers.Helpers.DialogResult.OK; ((int)Response) <= 10000; Response = (UpgradeHelpers.Helpers.DialogResult)(((int)Response) + 1))
{
}
//Create Payroll Signoff records for new scheduling Period
//Check for existing SignOff Records for requested date span
oCmd.CommandText = "sp_LastSignOffDate";
oRec = ADORecordSetHelper.Open(oCmd, "");
LastDate = Convert.ToDateTime(oRec["last_date"]);
if (LastDate > dtStartDate)
{
//Delete Overlapping Schedule Records
oCmd.CommandText = "spClearSignOff '" + sStartDate + "','" + LastDate.AddDays(1).ToString("M/d/yyyy") + "'";
oCmd.ExecuteNonQuery();
}
else
{
dtStartDate = LastDate;
sStartDate = dtStartDate.ToString("M/d/yyyy");
}
//Create SignOff Records
ViewModel.lbStatus.Text = "Creating New PayRoll SignOff Records";
oCmd.CommandText = "sp_GetSignOffYear '" + sStartDate + "','" + sEndDate + "'";
oRec = ADORecordSetHelper.Open(oCmd, "");
ViewModel.pb1.Value = 0;
RecFactor = (int)DateAndTime.DateDiff("d", DateTime.Parse(sStartDate), DateTime.Parse(sEndDate), FirstDayOfWeek.Sunday, FirstWeekOfYear.Jan1);
i = 0;
while (!oRec.EOF)
{
oCmd.CommandText = "spCreateSignOff " + Convert.ToString(oRec["calendar_year"]) + ",'" + sStartDate + "','" + sEndDate + "','" + modGlobal.Shared.gUser + "','1'";
oCmd.ExecuteNonQuery();
oCmd.CommandText = "spCreateSignOff " + Convert.ToString(oRec["calendar_year"]) + ",'" + sStartDate + "','" + sEndDate + "','" + modGlobal.Shared.gUser + "','2'";
oCmd.ExecuteNonQuery();
oCmd.CommandText = "spCreateSignOff " + Convert.ToString(oRec["calendar_year"]) + ",'" + sStartDate + "','" + sEndDate + "','" + modGlobal.Shared.gUser + "','3'";
oCmd.ExecuteNonQuery();
oRec.MoveNext();
i++;
if ((i / RecFactor) * 100 > 100)
{
ViewModel.pb1.Value = 100;
}
else
{
ViewModel.pb1.Value = (i / RecFactor) * 100;
}
ViewModel.lbStatus.Text = "Creating New PayRoll SignOff Records - " + ViewModel.pb1.Value.ToString() + "% Complete";
}
;
ViewModel.lbStatus.Text = "Creation of PayRoll SignOff Records Complete";
//UPGRADE_WARNING: (6021) Casting 'int' to Enum may cause different behaviour. More Information: http://www.vbtonet.com/ewis/ewi6021.aspx
for (Response = UpgradeHelpers.Helpers.DialogResult.OK; ((int)Response) <= 30000; Response = (UpgradeHelpers.Helpers.DialogResult)(((int)Response) + 1))
{
}
ViewModel.lbStatus.Visible = false;
ViewModel.pb1.Value = 0;
ViewModel.pb1.Visible = false;
oRec.Close();
oRec = null;
oCmd = null;
UpgradeHelpers.DB.TransactionManager.DeEnlist(oConUtil);
oConUtil.Close();
oConUtil = null;
ViewModel.cmdExit.Visible = true;
});
}
}
