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; }); } }