private void cboSecondary_TextChanged(Object eventSender, System.EventArgs eventArgs)
{
if (ViewModel.cboSecondary.Clicked)
{
PTSProject.clsTraining TrainCL = Container.Resolve <clsTraining>();
if (ViewModel.FirstTime)
{
return;
}
if (ViewModel.cboSecondary.ListIndex == -1)
{
return;
}
ViewModel.lstSpecific.Items.Clear();
//UPGRADE_ISSUE: (2064) LpADOLib.fpComboAdo property cboSecondary.ItemData was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx
TrainCL.GetSpecificCodesBySecondary(ViewModel.cboSecondary.ItemData(ViewModel.cboSecondary.ListIndex));
while (!TrainCL.TrainingSpecificCode.EOF)
{
//UPGRADE_WARNING: (2081) AddItem has a new behavior. More Information: http://www.vbtonet.com/ewis/ewi2081.aspx
ViewModel.lstSpecific.Items.Add(modGlobal.Clean(TrainCL.TrainingSpecificCode["description"]));
//UPGRADE_ISSUE: (2064) LpADOLib.fpListAdo property lstSpecific.NewIndex was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx
//UPGRADE_ISSUE: (2064) LpADOLib.fpListAdo property lstSpecific.ItemData was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx
ViewModel.lstSpecific.setItemData(Convert.ToInt32(TrainCL.TrainingSpecificCode["trn_specific_code"]), ViewModel.lstSpecific.getNewIndex());
TrainCL.TrainingSpecificCode.MoveNext();
}
;
// RefreshEmployeeList
}
ViewModel.cboSecondary.Clicked = false;
}
internal void cboUnitList_SelectionChangeCommitted(Object eventSender, System.EventArgs eventArgs)
{
//Get Staff for Selected Unit / Date
string ListString = "";
PTSProject.clsUnit UnitCL = Container.Resolve <clsUnit>();
PTSProject.clsTraining TrainCL = Container.Resolve <clsTraining>();
if (ViewModel.cboUnitList.SelectedIndex == -1)
{
return;
}
string TrainUnit = ViewModel.cboUnitList.Text;
string TrainDate = ViewModel.calTrainDate.SelectionRange.Start.ToString("MM/dd/yyyy") + " 8:00AM";
// ClearScreen
if (UnitCL.GetPTSPersonnel(TrainUnit, TrainDate) != 0)
{
while (!UnitCL.UnitPersonnel.EOF)
{
ListString = modGlobal.Clean(UnitCL.UnitPersonnel["emp_id"]);
if (TrainCL.GetEmployee(ListString) != 0)
{
ListString = modGlobal.Clean(TrainCL.Employee["name_full"]) + " :" + Convert.ToString(TrainCL.Employee["employee_id"]);
ViewModel.lstUnitStaff.AddItem(ListString);
}
UnitCL.UnitPersonnel.MoveNext();
}
;
}
// CheckForSave
}
internal void chkApproved_CheckStateChanged(Object eventSender, System.EventArgs eventArgs)
{
PTSProject.clsTraining TrainCL = Container.Resolve <clsTraining>();
string sEmployeeName = "";
if (!ViewModel.bAllowUpdate)
{
return;
}
if (ViewModel.chkApproved.CheckState == UpgradeHelpers.Helpers.CheckState.Checked)
{
if (TrainCL.GetEmployee(modGlobal.Shared.gUser) != 0)
{
sEmployeeName = modGlobal.Clean(TrainCL.Employee["name_full"]);
ViewModel.chkApproved.Text = "PPE Item was cleared for use by " + sEmployeeName +
" on " + DateTime.Now.ToString("M/d/yyyy HH:mm:ss");
ViewModel.cmdEdit.Enabled = true;
}
else
{
ViewManager.ShowMessage("Oooops! You cannot be found in the database", "Personnel Record not found!", UpgradeHelpers.Helpers.BoxButtons.OK);
}
}
else
{
ViewModel.chkApproved.Text = "PPE Item is ready for Use?";
ViewModel.cmdEdit.Enabled = false;
}
}
internal void calTrainDate_MouseUp(Object eventSender, UpgradeHelpers.Events.MouseEventArgs eventArgs)
{
//Get Staff for Selected Unit / Date
string ListString = "";
PTSProject.clsUnit UnitCL = Container.Resolve <clsUnit>();
PTSProject.clsTraining TrainCL = Container.Resolve <clsTraining>();
string TrainDate = UpgradeHelpers.Helpers.DateTimeHelper.ToString(ViewModel.calTrainDate.SelectionRange.Start);
TrainDate = TrainDate + " 8:00AM";
if (ViewModel.cboUnitList.SelectedIndex == -1)
{
return;
}
string TrainUnit = modGlobal.Clean(ViewModel.cboUnitList.Text);
ViewModel.lstUnitStaff.Items.Clear();
if (UnitCL.GetPTSPersonnel(TrainUnit, TrainDate) != 0)
{
while (!UnitCL.UnitPersonnel.EOF)
{
ListString = modGlobal.Clean(UnitCL.UnitPersonnel["emp_id"]);
if (TrainCL.GetEmployee(ListString) != 0)
{
ListString = modGlobal.Clean(TrainCL.Employee["name_full"]) + " :" + Convert.ToString(TrainCL.Employee["employee_id"]);
ViewModel.lstUnitStaff.AddItem(ListString);
}
UnitCL.UnitPersonnel.MoveNext();
}
;
}
}
public void FillLists()
{
PTSProject.clsTraining TrainCL = Container.Resolve <clsTraining>();
PTSProject.clsUnit UnitCL = Container.Resolve <clsUnit>();
ViewModel.cboUnit.Clear();
UnitCL.TFDUnitListRS();
//cboUnit.ADDItem "CSRD"
while (!UnitCL.Unit.EOF)
{
ViewModel.cboUnit.AddItem(modGlobal.Clean(UnitCL.Unit["unit_code"]));
UnitCL.Unit.MoveNext();
}
;
ViewModel.cboPrimary.Clear();
TrainCL.GetPrimaryCodes();
while (!TrainCL.TrainingPrimaryCode.EOF)
{
ViewModel.cboPrimary.AddItem(modGlobal.Clean(TrainCL.TrainingPrimaryCode["description"]));
//UPGRADE_ISSUE: (2064) LpADOLib.fpComboAdo property cboPrimary.NewIndex was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx
//UPGRADE_ISSUE: (2064) LpADOLib.fpComboAdo property cboPrimary.ItemData was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx
ViewModel.cboPrimary.setItemData(Convert.ToInt32(TrainCL.TrainingPrimaryCode["trn_primary_code"]), ViewModel.cboPrimary.getNewIndex());
TrainCL.TrainingPrimaryCode.MoveNext();
}
;
}
private void LoadLists()
{
//Load Lists
DbCommand oCmd = UpgradeHelpers.DB.AdoFactoryManager.GetFactory().CreateCommand();
string strName = "";
PTSProject.clsTraining TrainCL = Container.Resolve <clsTraining>();
PTSProject.clsUnit UnitCL = Container.Resolve <clsUnit>();
ViewModel.cboUnitList.Items.Clear();
UnitCL.TFDUnitListRS();
// cboUnitList.ADDItem "OPER"
while (!UnitCL.Unit.EOF)
{
ViewModel.cboUnitList.AddItem(modGlobal.Clean(UnitCL.Unit["unit_code"]));
UnitCL.Unit.MoveNext();
}
;
ViewModel.cboAllStaff.Items.Clear();
oCmd.Connection = modGlobal.oConn;
oCmd.CommandType = CommandType.Text;
if (modGlobal.Shared.gSecurity != "ADM")
{
oCmd.CommandText = "spOpNameListForField";
}
else
{
// oCmd.CommandText = "spOpNameList"
oCmd.CommandText = "spFullNameList";
}
ADORecordSetHelper oRec = ADORecordSetHelper.Open(oCmd, "");
while (!oRec.EOF)
{
strName = Convert.ToString(oRec["name_full"]).Trim() + " :" + Convert.ToString(oRec["employee_id"]);
this.ViewModel.cboAllStaff.AddItem(strName);
oRec.MoveNext();
}
;
ViewModel.cboPrimary.Clear();
TrainCL.GetPrimaryCodesForField();
while (!TrainCL.TrainingPrimaryCode.EOF)
{
ViewModel.cboPrimary.AddItem(modGlobal.Clean(TrainCL.TrainingPrimaryCode["description"]));
//UPGRADE_ISSUE: (2064) LpADOLib.fpComboAdo property cboPrimary.NewIndex was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx
//UPGRADE_ISSUE: (2064) LpADOLib.fpComboAdo property cboPrimary.ItemData was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx
ViewModel.cboPrimary.setItemData(Convert.ToInt32(TrainCL.TrainingPrimaryCode["trn_primary_code"]), ViewModel.cboPrimary.getNewIndex());
TrainCL.TrainingPrimaryCode.MoveNext();
}
;
}
internal void chkMedicFlag_CheckStateChanged(Object eventSender, System.EventArgs eventArgs)
{
PTSProject.clsTraining clMedicFlag = Container.Resolve <clsTraining>();
bool AddNewRecord = false;
if (ViewModel.CurrPersID == 0)
{
return;
}
if (ViewModel.FirstTime)
{
return;
}
AddNewRecord = !(clMedicFlag.GetPersonnelWorkAsParamedicByID(ViewModel.CurrPersID) != 0);
clMedicFlag.WAMPerSysID = ViewModel.CurrPersID;
if (ViewModel.chkMedicFlag.CheckState == UpgradeHelpers.Helpers.CheckState.Checked)
{
clMedicFlag.WAMInactivateDate = "";
}
else
{
clMedicFlag.WAMInactivateDate = DateTime.Now.ToString("MM/dd/yyyy");
}
clMedicFlag.WAMUpdateDate = DateTime.Now.ToString("MM/dd/yyyy HH:mm:ss");
clMedicFlag.WAMUpdateBy = modGlobal.Shared.gUser;
if (AddNewRecord)
{
if (clMedicFlag.AddPersonnelWorkAsParamedic() != 0)
{
//All is well
}
else
{
ViewManager.ShowMessage("Oooops! Something went wrong with the Insert.", "Insert Medic Flag", UpgradeHelpers.Helpers.BoxButtons.OK);
}
}
else
{
if (clMedicFlag.UpdatePersonnelWorkAsParamedic() != 0)
{
//All is well
}
else
{
ViewManager.ShowMessage("Oooops! Something went wrong with the Update.", "Update Medic Flag", UpgradeHelpers.Helpers.BoxButtons.OK);
}
}
}
public void LoadLists()
{
PTSProject.clsTraining TrainCL = Container.Resolve <clsTraining>();
ViewModel.cboYear.Items.Clear();
if (TrainCL.GetTrainingStandardYearList() != 0)
{
while (!TrainCL.TrainingRecord.EOF)
{
ViewModel.cboYear.AddItem(modGlobal.Clean(TrainCL.TrainingRecord["trn_year"]));
TrainCL.TrainingRecord.MoveNext();
}
;
}
}
internal void lstSpecific_Click(Object eventSender, System.EventArgs eventArgs)
{
PTSProject.clsTraining TrainCL = Container.Resolve <clsTraining>();
//If lstSpecific.ListIndex = -1 Then Exit Sub
ViewModel.chkProvider.CheckState = UpgradeHelpers.Helpers.CheckState.Unchecked;
ViewModel.chkInstructor.CheckState = UpgradeHelpers.Helpers.CheckState.Unchecked;
ViewModel.OptCat1.Checked = false;
ViewModel.OptCat2.Checked = false;
ViewModel.OptCat3.Checked = false;
ViewModel.OptCat4.Checked = false;
ViewModel.frmCategories.Visible = false;
ViewModel.frmProvInst.Visible = false;
ViewModel.frmPassFail.Visible = false;
//UPGRADE_ISSUE: (2064) LpADOLib.fpListAdo property lstSpecific.ItemData was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx
if (TrainCL.GetSpecificCodeByID(ViewModel.lstSpecific.ItemData(ViewModel.lstSpecific.SelectedIndex)) != 0)
{
//continue
}
else
{
return;
}
if (!TrainCL.TrainingSpecificCode.EOF)
{
if (Convert.ToDouble(TrainCL.TrainingSpecificCode["display_box"]) == 0)
{
if (Convert.ToDouble(TrainCL.TrainingSpecificCode["display_score"]) == 0)
{
if (Convert.ToDouble(TrainCL.TrainingSpecificCode["display_cat"]) != 0)
{
ViewModel.frmCategories.Visible = true;
}
}
else
{
ViewModel.frmPassFail.Visible = true;
ViewModel.optPass.Checked = true;
}
}
else
{
ViewModel.frmProvInst.Visible = true;
}
}
CheckForSave();
}
public void FormatHeadings()
{
PTSProject.clsTraining TrainCL = Container.Resolve <clsTraining>();
if (ViewModel.FirstTime)
{
return;
}
ViewModel.sprReport.Row = 6;
ViewModel.sprReport.Row2 = ViewModel.sprReport.MaxRows;
ViewModel.sprReport.Col = 1;
ViewModel.sprReport.Col2 = ViewModel.sprReport.MaxCols;
ViewModel.sprReport.BlockMode = true;
ViewModel.sprReport.Text = "";
ViewModel.sprReport.BlockMode = false;
string sHeading = "Annual Paramedic Base Station Report For ";
sHeading = sHeading + ViewModel.CurrYear.ToString();
ViewModel.sprReport.Row = 2;
ViewModel.sprReport.Col = 1;
ViewModel.sprReport.Text = sHeading;
sHeading = "Base Station Reporting For Paramedics Only ";
if (ViewModel.CurrBatt == "")
{
sHeading = sHeading + "\\ All Battalions ";
}
else
{
sHeading = sHeading + "\\ Battalion " + ViewModel.CurrBatt + " ";
}
if (ViewModel.CurrShift == "")
{
sHeading = sHeading + "\\ All Shifts ";
}
else
{
sHeading = sHeading + "\\ Shift " + ViewModel.CurrShift + " ";
}
if (ViewModel.CurrGroup != 0)
{
sHeading = sHeading + "\\ Group " + ViewModel.CurrGroup.ToString();
}
ViewModel.sprReport.Row = 3;
ViewModel.sprReport.Col = 1;
ViewModel.sprReport.Text = sHeading;
}
private void cboSecondary_TextChanged(Object eventSender, System.EventArgs eventArgs)
{
if (ViewModel.cboSecondary.Clicked)
{
//Load lst combobox
PTSProject.clsTraining TrainCL = Container.Resolve <clsTraining>();
if (ViewModel.cboSecondary.ListIndex == -1)
{
return;
}
ViewModel.lstSpecific.Items.Clear();
ViewModel.frmProvInst.Visible = false;
ViewModel.chkInstructor.CheckState = UpgradeHelpers.Helpers.CheckState.Unchecked;
ViewModel.chkProvider.CheckState = UpgradeHelpers.Helpers.CheckState.Unchecked;
ViewModel.frmCategories.Visible = false;
ViewModel.OptCat1.Checked = false;
ViewModel.OptCat2.Checked = false;
ViewModel.OptCat3.Checked = false;
ViewModel.OptCat4.Checked = false;
ViewModel.frmPassFail.Visible = false;
ViewModel.optPass.Checked = false;
ViewModel.optFail.Checked = false;
if (ViewModel.FieldOnly)
{
//UPGRADE_ISSUE: (2064) LpADOLib.fpComboAdo property cboSecondary.ItemData was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx
if (TrainCL.GetSpecificCodesForField(ViewModel.cboSecondary.ItemData(ViewModel.cboSecondary.ListIndex)) != 0)
{
//continue
}
else
{
return;
}
}
else
{
//UPGRADE_ISSUE: (2064) LpADOLib.fpComboAdo property cboSecondary.ItemData was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx
if (TrainCL.GetSpecificCodesBySecondary(ViewModel.cboSecondary.ItemData(ViewModel.cboSecondary.ListIndex)) != 0)
{
//continue
}
else
{
return;
}
}
while (!TrainCL.TrainingSpecificCode.EOF)
{
//UPGRADE_WARNING: (2081) AddItem has a new behavior. More Information: http://www.vbtonet.com/ewis/ewi2081.aspx
ViewModel.lstSpecific.Items.Add(modGlobal.Clean(TrainCL.TrainingSpecificCode["description"]));
//UPGRADE_ISSUE: (2064) LpADOLib.fpListAdo property lstSpecific.NewIndex was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx
//UPGRADE_ISSUE: (2064) LpADOLib.fpListAdo property lstSpecific.ItemData was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx
ViewModel.lstSpecific.setItemData(Convert.ToInt32(TrainCL.TrainingSpecificCode["trn_specific_code"]), ViewModel.lstSpecific.getNewIndex());
TrainCL.TrainingSpecificCode.MoveNext();
}
;
//UPGRADE_ISSUE: (2064) LpADOLib.fpComboAdo property cboSecondary.ItemData was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx
TrainCL.CheckForAffirmationDisplay(ViewModel.cboSecondary.ItemData(ViewModel.cboSecondary.ListIndex));
if (!TrainCL.TrainingSpecificCode.EOF)
{
//UPGRADE_ISSUE: (2064) LpADOLib.fpComboAdo property cboSecondary.ItemData was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx
modGlobal
.Shared.gSecondaryID = ViewModel.cboSecondary.ItemData(ViewModel.cboSecondary.ListIndex);
modGlobal.Shared.gMessageText = modGlobal.Clean(TrainCL.TrainingSpecificCode["message_txt"]);
}
else
{
modGlobal.Shared.gSecondaryID = 0;
modGlobal.Shared.gMessageText = "";
}
//UPGRADE_ISSUE: (2064) LpADOLib.fpComboAdo property cboSecondary.ItemData was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx
TrainCL.GetSecondaryCodeByID(ViewModel.cboSecondary.ItemData(ViewModel.cboSecondary.ListIndex));
if (!TrainCL.TrainingSpecificCode.EOF)
{
if (Convert.ToDouble(TrainCL.TrainingSpecificCode["track_hours_flag"]) == 0)
{
ViewModel.cboHours.Visible = false;
ViewModel.cboHours.SelectedIndex = -1;
ViewModel.lbHours.Visible = false;
}
else
{
ViewModel.cboHours.Visible = true;
ViewModel.lbHours.Visible = true;
}
}
else
{
ViewModel.cboHours.Visible = true;
ViewModel.lbHours.Visible = true;
}
CheckForSave();
}
ViewModel.cboSecondary.Clicked = false;
}
//*************************************************************
// Training Annual OTEP Reporting
// Filtered by Year, Battalion/Shift
//*************************************************************
public void FormatReport()
{
PTSProject.clsTraining TrainCL = Container.Resolve <clsTraining>();
if (ViewModel.FirstTime)
{
return;
}
ViewModel.sprReport.Row = 7;
ViewModel.sprReport.Row2 = ViewModel.sprReport.MaxRows;
ViewModel.sprReport.Col = 1;
ViewModel.sprReport.Col2 = ViewModel.sprReport.MaxCols;
ViewModel.sprReport.BlockMode = true;
ViewModel.sprReport.Text = "";
ViewModel.sprReport.BlockMode = false;
int iGroup = ViewModel.CurrGroup;
if (ViewModel.optPM.Checked)
{
if (TrainCL.GetPMTrainingAnnualOTEPReport(ViewModel.CurrYear, ViewModel.CurrBatt, ViewModel.CurrShift, iGroup) != 0)
{
//continue
}
else
{
ViewManager.ShowMessage("There are no Paramedic/Training Records to report for Year!", "Training Annual OTEPReport", UpgradeHelpers.Helpers.BoxButtons.OK);
return;
}
}
else
{
if (TrainCL.GetTrainingAnnualOTEPReport(ViewModel.CurrYear, ViewModel.CurrBatt, ViewModel.CurrShift, iGroup) != 0)
{
//continue
}
else
{
ViewManager.ShowMessage("There are no Employee/Training Records to report for Year!", "Training Annual OTEPReport", UpgradeHelpers.Helpers.BoxButtons.OK);
return;
}
}
string sEmployeeName = "";
int iCodeRow = 6;
int iCurrRow = 7;
int iCurrCol = 1;
while (!TrainCL.TrainingRecord.EOF)
{
ViewModel.sprReport.Row = iCurrRow;
ViewModel.sprReport.Col = iCurrCol;
if (sEmployeeName == "")
{ //first time
sEmployeeName = modGlobal.Clean(TrainCL.TrainingRecord["name_full"]);
ViewModel.sprReport.Text = sEmployeeName;
ViewModel.sprReport.Col = iCurrCol + 1;
ViewModel.sprReport.Text = modGlobal.Clean(TrainCL.TrainingRecord["state_number"]);
ViewModel.sprReport.Col = iCurrCol + 2;
ViewModel.sprReport.Text = modGlobal.Clean(TrainCL.TrainingRecord["unit_code"]) + "-" + modGlobal.Clean(TrainCL.TrainingRecord["shift_code"]);
ViewModel.sprReport.Col = iCurrCol + 3;
//UPGRADE_WARNING: (1068) GetVal(TrainCL.TrainingRecord(group_number)) of type Variant is being forced to double. More Information: http://www.vbtonet.com/ewis/ewi1068.aspx
if (modGlobal.Clean(TrainCL.TrainingRecord["group_number"]) == "")
{
ViewModel.sprReport.Text = "";
}
else if (Convert.ToDouble(modGlobal.GetVal(TrainCL.TrainingRecord["group_number"])) > 0)
{
//UPGRADE_WARNING: (1068) GetVal() of type Variant is being forced to string. More Information: http://www.vbtonet.com/ewis/ewi1068.aspx
ViewModel.sprReport.Text = Convert.ToString(modGlobal.GetVal(TrainCL.TrainingRecord["group_number"]));
}
else
{
ViewModel.sprReport.Text = "";
}
if (modGlobal.Clean(TrainCL.TrainingRecord["report_column"]) != "")
{
ViewModel.sprReport.Row = iCodeRow;
int tempForVar = ViewModel.sprReport.MaxCols;
for (int i = 5; i <= tempForVar; i++)
{
ViewModel.sprReport.Col = i;
if (modGlobal.Clean(TrainCL.TrainingRecord["report_column"]) == modGlobal.Clean(ViewModel.sprReport.Text))
{
ViewModel.sprReport.Col = i;
ViewModel.sprReport.Row = iCurrRow;
if (modGlobal.Clean(TrainCL.TrainingRecord["training_date"]) != "")
{
if (modGlobal.Clean(TrainCL.TrainingRecord["pass_fail"]) == "F")
{
}
else
{
}
ViewModel.sprReport.Text = Convert.ToDateTime(TrainCL.TrainingRecord["training_date"]).ToString("MM/dd");
ViewModel.sprReport.Col = i + 1;
if (modGlobal.Clean(TrainCL.TrainingRecord["pass_fail"]) == "F")
{
}
else
{
}
ViewModel.sprReport.Text = modGlobal.Clean(TrainCL.TrainingRecord["comments"]);
}
break;
}
}
}
}
else if (sEmployeeName == modGlobal.Clean(TrainCL.TrainingRecord["name_full"]))
{
if (modGlobal.Clean(TrainCL.TrainingRecord["report_column"]) != "")
{
ViewModel.sprReport.Row = iCodeRow;
int tempForVar2 = ViewModel.sprReport.MaxCols;
for (int i = 5; i <= tempForVar2; i++)
{
ViewModel.sprReport.Col = i;
if (modGlobal.Clean(TrainCL.TrainingRecord["report_column"]) == modGlobal.Clean(ViewModel.sprReport.Text))
{
ViewModel.sprReport.Col = i;
ViewModel.sprReport.Row = iCurrRow;
if (modGlobal.Clean(TrainCL.TrainingRecord["training_date"]) != "")
{
if (modGlobal.Clean(TrainCL.TrainingRecord["pass_fail"]) == "F")
{
}
else
{
}
ViewModel.sprReport.Text = Convert.ToDateTime(TrainCL.TrainingRecord["training_date"]).ToString("MM/dd");
ViewModel.sprReport.Col = i + 1;
if (modGlobal.Clean(TrainCL.TrainingRecord["pass_fail"]) == "F")
{
}
else
{
}
ViewModel.sprReport.Text = modGlobal.Clean(TrainCL.TrainingRecord["comments"]);
}
break;
}
}
}
}
else
{
iCurrRow++;
ViewModel.sprReport.Row = iCurrRow;
sEmployeeName = modGlobal.Clean(TrainCL.TrainingRecord["name_full"]);
ViewModel.sprReport.Text = sEmployeeName;
ViewModel.sprReport.Col = iCurrCol + 1;
ViewModel.sprReport.Text = modGlobal.Clean(TrainCL.TrainingRecord["state_number"]);
ViewModel.sprReport.Col = iCurrCol + 2;
ViewModel.sprReport.Text = modGlobal.Clean(TrainCL.TrainingRecord["unit_code"]) + "-" + modGlobal.Clean(TrainCL.TrainingRecord["shift_code"]);
ViewModel.sprReport.Col = iCurrCol + 3;
//UPGRADE_WARNING: (1068) GetVal(TrainCL.TrainingRecord(group_number)) of type Variant is being forced to double. More Information: http://www.vbtonet.com/ewis/ewi1068.aspx
if (modGlobal.Clean(TrainCL.TrainingRecord["group_number"]) == "")
{
ViewModel.sprReport.Text = "";
}
else if (Convert.ToDouble(modGlobal.GetVal(TrainCL.TrainingRecord["group_number"])) > 0)
{
//UPGRADE_WARNING: (1068) GetVal() of type Variant is being forced to string. More Information: http://www.vbtonet.com/ewis/ewi1068.aspx
ViewModel.sprReport.Text = Convert.ToString(modGlobal.GetVal(TrainCL.TrainingRecord["group_number"]));
}
else
{
ViewModel.sprReport.Text = "";
}
if (modGlobal.Clean(TrainCL.TrainingRecord["report_column"]) != "")
{
ViewModel.sprReport.Row = iCodeRow;
int tempForVar3 = ViewModel.sprReport.MaxCols;
for (int i = 5; i <= tempForVar3; i++)
{
ViewModel.sprReport.Col = i;
if (modGlobal.Clean(TrainCL.TrainingRecord["report_column"]) == modGlobal.Clean(ViewModel.sprReport.Text))
{
ViewModel.sprReport.Col = i;
ViewModel.sprReport.Row = iCurrRow;
if (modGlobal.Clean(TrainCL.TrainingRecord["training_date"]) != "")
{
if (modGlobal.Clean(TrainCL.TrainingRecord["pass_fail"]) == "F")
{
}
else
{
}
ViewModel.sprReport.Text = Convert.ToDateTime(TrainCL.TrainingRecord["training_date"]).ToString("MM/dd");
if (modGlobal.Clean(TrainCL.TrainingRecord["pass_fail"]) == "F")
{
}
else
{
}
ViewModel.sprReport.Col = i + 1;
ViewModel.sprReport.Text = modGlobal.Clean(TrainCL.TrainingRecord["comments"]);
}
break;
}
}
}
}
TrainCL.TrainingRecord.MoveNext();
}
;
}
public void FormatHeadings()
{
PTSProject.clsTraining TrainCL = Container.Resolve <clsTraining>();
if (ViewModel.FirstTime)
{
return;
}
ViewModel.sprReport.Row = 3;
ViewModel.sprReport.Row2 = ViewModel.sprReport.MaxRows;
ViewModel.sprReport.Col = 1;
ViewModel.sprReport.Col2 = ViewModel.sprReport.MaxCols;
ViewModel.sprReport.BlockMode = true;
ViewModel.sprReport.Text = "";
// sprReport.BackColor = WHITE
ViewModel.sprReport.BlockMode = false;
string sHeading = "Annual OTEP Modules For ";
sHeading = sHeading + ViewModel.CurrYear.ToString();
ViewModel.sprReport.Row = 2;
ViewModel.sprReport.Col = 1;
ViewModel.sprReport.Text = sHeading;
sHeading = "OTEP Module Reporting For ";
if (ViewModel.optPM.Checked)
{
if (ViewModel.CurrShift == "")
{
sHeading = sHeading + "Paramedics Only \\ All Shifts";
}
else
{
sHeading = sHeading + "Paramedics Only \\ Shift " + ViewModel.CurrShift;
}
if (ViewModel.CurrGroup != 0)
{
sHeading = sHeading + " \\ Group " + ViewModel.CurrGroup.ToString();
}
}
else
{
if (ViewModel.CurrBatt == "")
{
if (ViewModel.CurrShift == "")
{
sHeading = sHeading + "All Battalions \\ Shifts";
}
else
{
sHeading = sHeading + "All Battalions \\ Shift " + ViewModel.CurrShift;
}
if (ViewModel.CurrGroup != 0)
{
sHeading = sHeading + " \\ Group " + ViewModel.CurrGroup.ToString();
}
}
else
{
sHeading = sHeading + "Battalion " + ViewModel.CurrBatt + " ";
if (ViewModel.CurrShift == "")
{
sHeading = sHeading + "\\ All Shifts";
}
else
{
sHeading = sHeading + "\\ Shift " + ViewModel.CurrShift;
}
if (ViewModel.CurrGroup != 0)
{
sHeading = sHeading + " \\ Group " + ViewModel.CurrGroup.ToString();
}
}
}
ViewModel.sprReport.Row = 3;
ViewModel.sprReport.Col = 1;
ViewModel.sprReport.Text = sHeading;
ViewModel.sprReport.Row = 5;
ViewModel.sprReport.Col = 1;
ViewModel.sprReport.Text = "Name";
ViewModel.sprReport.Col = 2;
ViewModel.sprReport.Text = "Cert #";
ViewModel.sprReport.Col = 3;
ViewModel.sprReport.Text = "Unit";
ViewModel.sprReport.Col = 4;
ViewModel.sprReport.Text = "Grp";
ViewModel.sprReport.Col = 5;
ViewModel.sprReport.Text = "Date";
ViewModel.sprReport.Col = 6;
ViewModel.sprReport.Text = "Skills";
ViewModel.sprReport.Col = 7;
ViewModel.sprReport.Text = "Date";
ViewModel.sprReport.Col = 8;
ViewModel.sprReport.Text = "Skills";
ViewModel.sprReport.Col = 9;
ViewModel.sprReport.Text = "Date";
ViewModel.sprReport.Col = 10;
ViewModel.sprReport.Text = "Skills";
ViewModel.sprReport.Col = 11;
ViewModel.sprReport.Text = "Date";
ViewModel.sprReport.Col = 12;
ViewModel.sprReport.Text = "Skills";
ViewModel.sprReport.Col = 13;
ViewModel.sprReport.Text = "Date";
ViewModel.sprReport.Col = 14;
ViewModel.sprReport.Text = "Skills";
ViewModel.sprReport.Col = 15;
ViewModel.sprReport.Text = "Date";
ViewModel.sprReport.Col = 16;
ViewModel.sprReport.Text = "Skills";
ViewModel.sprReport.Col = 17;
ViewModel.sprReport.Text = "Date";
ViewModel.sprReport.Col = 18;
ViewModel.sprReport.Text = "Skills";
ViewModel.sprReport.Col = 19;
ViewModel.sprReport.Text = "Date";
ViewModel.sprReport.Col = 20;
ViewModel.sprReport.Text = "Skills";
ViewModel.sprReport.Col = 21;
ViewModel.sprReport.Text = "Date";
ViewModel.sprReport.Col = 22;
ViewModel.sprReport.Text = "Skills";
ViewModel.sprReport.Col = 23;
ViewModel.sprReport.Text = "Date";
ViewModel.sprReport.Col = 24;
ViewModel.sprReport.Text = "Skills";
ViewModel.sprReport.Col = 25;
ViewModel.sprReport.Text = "Date";
ViewModel.sprReport.Col = 26;
ViewModel.sprReport.Text = "Skills";
ViewModel.sprReport.Col = 27;
ViewModel.sprReport.Text = "Date";
ViewModel.sprReport.Col = 28;
ViewModel.sprReport.Text = "Skills";
if (TrainCL.GetTrainingSchedOTEPByYear(ViewModel.CurrYear) != 0)
{
//continue
}
else
{
ViewManager.ShowMessage("Oh No! There are no Training Scheduled OTEP Modules set up for Year!", "Training Annual OTEP Report", UpgradeHelpers.Helpers.BoxButtons.OK);
return;
}
int iCurrRow = 3;
int iCurrCol = 5;
int iCodeRow = 6;
string sSubHeading = "";
string sModuleName = "";
int iReportColumn = 1;
while (!TrainCL.TrainingRecord.EOF)
{
ViewModel.sprReport.Row = iCurrRow;
ViewModel.sprReport.Col = iCurrCol;
//UPGRADE_WARNING: (1068) GetVal(TrainCL.TrainingRecord(sched_month)) of type Variant is being forced to int. More Information: http://www.vbtonet.com/ewis/ewi1068.aspx
switch (Convert.ToInt32(modGlobal.GetVal(TrainCL.TrainingRecord["sched_month"])))
{
case 1:
sSubHeading = "January";
break;
case 2:
sSubHeading = "February";
break;
case 3:
sSubHeading = "March";
break;
case 4:
sSubHeading = "April";
break;
case 5:
sSubHeading = "May";
break;
case 6:
sSubHeading = "June";
break;
case 7:
sSubHeading = "July";
break;
case 8:
sSubHeading = "August";
break;
case 9:
sSubHeading = "September";
break;
case 10:
sSubHeading = "October";
break;
case 11:
sSubHeading = "November";
break;
case 12:
sSubHeading = "December";
break;
default:
sSubHeading = "";
break;
}
ViewModel.sprReport.Text = sSubHeading;
ViewModel.sprReport.Row = iCurrRow + 1;
sModuleName = modGlobal.Clean(TrainCL.TrainingRecord["description"]);
ViewModel.sprReport.Text = sModuleName;
ViewModel.sprReport.Row = iCodeRow;
//UPGRADE_WARNING: (1068) GetVal() of type Variant is being forced to int. More Information: http://www.vbtonet.com/ewis/ewi1068.aspx
iReportColumn = Convert.ToInt32(modGlobal.GetVal(TrainCL.TrainingRecord["report_column"]));
ViewModel.sprReport.Text = iReportColumn.ToString();
iCurrCol += 2;
TrainCL.TrainingRecord.MoveNext();
}
;
}
private void sprLaunderGrid_CellClick(object eventSender, Stubs._FarPoint.Win.Spread.CellClickEventArgs eventArgs)
{
int Col = eventArgs.Column;
int Row = eventArgs.Row;
PTSProject.clsUniform UniformCL = Container.Resolve <clsUniform>();
PTSProject.clsTraining TrainCL = Container.Resolve <clsTraining>();
if (Row == 0)
{
return;
}
ViewModel.iCurrRow = Row;
ViewModel.sprLaunderGrid.Row = ViewModel.iCurrRow;
//ViewModel.sprLaunderGrid.SetSelection(1, ViewModel.iCurrRow, ViewModel.sprLaunderGrid.MaxCols, ViewModel.iCurrRow);
ViewModel.sprLaunderGrid.Col = 4;
if (modGlobal.Clean(ViewModel.sprLaunderGrid.Text) == "")
{
return;
}
else
{
//UPGRADE_WARNING: (1068) GetVal() of type Variant is being forced to string. More Information: http://www.vbtonet.com/ewis/ewi1068.aspx
ViewModel.lbLaunderID.Text = Convert.ToString(modGlobal.GetVal(ViewModel.sprLaunderGrid.Text));
}
ViewModel.bAllowUpdate = false;
//UPGRADE_WARNING: (1068) GetVal() of type Variant is being forced to int. More Information: http://www.vbtonet.com/ewis/ewi1068.aspx
if (UniformCL.GetUniformLaunderInfoByID(Convert.ToInt32(modGlobal.GetVal(ViewModel.lbLaunderID.Text))) != 0)
{
//continue
}
else
{
ViewManager.ShowMessage("Oooops! No Uniform Laundry/Cleaning ecord was found!", "Get Laundry/Cleaning Record", UpgradeHelpers.Helpers.BoxButtons.OK);
return;
}
ViewModel.lbLaunderID.Text = UniformCL.UniformLaunderID.ToString();
if (UniformCL.UniformLaunderDateFlagged == "")
{
ViewManager.ShowMessage("Ooooops! Something is wrong! Call Debra Lewandowsky x5068.", "Missing Flagged Date!!", UpgradeHelpers.Helpers.BoxButtons.OK);
return;
}
else
{
ViewModel.chkFlagged.CheckState = UpgradeHelpers.Helpers.CheckState.Checked;
ViewModel.dteDateFlagged.Text = UniformCL.UniformLaunderDateFlagged;
ViewModel.dteDateFlagged.Visible = true;
}
if (UniformCL.UniformLaunderDateCleaned == "")
{
ViewModel.chkCleaned.CheckState = UpgradeHelpers.Helpers.CheckState.Unchecked;
ViewModel.dteDateCleaned.Visible = false;
ViewModel.chkVendor.CheckState = UpgradeHelpers.Helpers.CheckState.Unchecked;
ViewModel.cboFlaggedBy.Visible = true;
ViewModel.bAllowUpdate = true;
}
else
{
ViewModel.chkCleaned.CheckState = UpgradeHelpers.Helpers.CheckState.Checked;
ViewModel.dteDateCleaned.Text = UniformCL.UniformLaunderDateCleaned;
ViewModel.dteDateCleaned.Visible = true;
}
for (int i = 0; i <= ViewModel.cboFlaggedBy.Items.Count - 1; i++)
{
if (ViewModel.cboFlaggedBy.GetListItem(i).Substring(Math.Max(ViewModel.cboFlaggedBy.GetListItem(i).Length - 5, 0)) == UniformCL.UniformLaunderFlaggedBy)
{
ViewModel.cboFlaggedBy.Text = ViewModel.cboFlaggedBy.GetListItem(i);
break;
}
}
if (UniformCL.UniformLaunderVendorCleaned == "N")
{
for (int i = 0; i <= ViewModel.cboCleanedBy.Items.Count - 1; i++)
{
if (ViewModel.cboCleanedBy.GetListItem(i).Substring(Math.Max(ViewModel.cboCleanedBy.GetListItem(i).Length - 5, 0)) == UniformCL.UniformLaunderCleanedBy)
{
ViewModel.cboCleanedBy.Text = ViewModel.cboCleanedBy.GetListItem(i);
break;
}
}
}
else
{
ViewModel.chkVendor.CheckState = UpgradeHelpers.Helpers.CheckState.Checked;
ViewModel.cboCleanedBy.Visible = false;
}
ViewModel.txtComment.Text = UniformCL.UniformLaunderComment;
ViewModel.txtLaundryComment.Text = UniformCL.UniformLaunderCleaningComments;
string sEmployeeName = "";
if (UniformCL.UniformLaunderApprovedBy != "")
{
if (TrainCL.GetEmployee(UniformCL.UniformLaunderApprovedBy) != 0)
{
sEmployeeName = modGlobal.Clean(TrainCL.Employee["name_full"]);
}
}
if (UniformCL.UniformLaunderDateApproved != "")
{
if (sEmployeeName != "")
{
ViewModel.chkApproved.Text = "PPE Item was cleared for use by " + sEmployeeName +
" on " + UniformCL.UniformLaunderDateApproved;
ViewModel.chkApproved.CheckState = UpgradeHelpers.Helpers.CheckState.Checked;
}
else
{
ViewModel.chkApproved.Text = "PPE Item was cleared for use on " + UniformCL.UniformLaunderDateApproved;
ViewModel.chkApproved.CheckState = UpgradeHelpers.Helpers.CheckState.Checked;
}
}
else
{
ViewModel.bAllowUpdate = true;
ViewModel.chkApproved.Text = "PPE Item is ready for Use?";
ViewModel.chkApproved.CheckState = UpgradeHelpers.Helpers.CheckState.Unchecked;
}
if (ViewModel.bAllowUpdate)
{
ViewModel.cmdEdit.Enabled = true;
ViewModel.cmdEdit.Text = "Update";
ViewModel.cmdEdit.Tag = "0";
}
else
{
ViewModel.cmdEdit.Enabled = false;
ViewModel.cmdEdit.Text = "Update";
ViewModel.cmdEdit.Tag = "0";
}
}
//*************************************************************
//Training Query Screen
// Filtered by Battalion/Shift/Unit
// Primary/Secondary/Specific Traing Codes
// Employee Name (like statement)
//
//*************************************************************
public void RefreshEmployeeList()
{
PTSProject.clsTraining TrainCL = Container.Resolve <clsTraining>();
int iPrimary = 0;
int lSecondary = 0;
int lSpecific = 0;
string sUnit = "";
byte sFlag = 0;
if (ViewModel.FirstTime)
{
return;
}
if (ViewModel.SkipLogic)
{
return;
}
int CurrRow = 0;
ViewModel.sprReport.MaxRows = 500000;
string sStartDate = DateTime.Parse(ViewModel.dtStart.Text).ToString("M/d/yyyy");
string sEndDate = DateTime.Parse(ViewModel.dtEnd.Text).AddDays(1).ToString("M/d/yyyy");
ViewModel.sHeadingFilter = "Displaying ";
if (ViewModel.optPM.Checked)
{
ViewModel.sHeadingFilter = ViewModel.sHeadingFilter + "Paramedic ";
}
string sName = modGlobal.Clean(Strings.Replace(ViewModel.txtNameSearch.Text, "'", "''", 1, -1, CompareMethod.Binary));
string sComment = modGlobal.Clean(Strings.Replace(ViewModel.txtCommentSearch.Text, "'", "''", 1, -1, CompareMethod.Binary));
if (ViewModel.OptYes.Checked)
{
sFlag = 1;
ViewModel.sHeadingFilter = ViewModel.sHeadingFilter + "Training Attended; ";
}
else
{
sFlag = 0;
ViewModel.sHeadingFilter = ViewModel.sHeadingFilter + "Training Not Attended; ";
}
if (ViewModel.CurrBatt != "")
{
if (ViewModel.CurrShift != "")
{
ViewModel.sHeadingFilter = ViewModel.sHeadingFilter + "for Batt\\Shift= " + ViewModel.CurrBatt + "\\" + ViewModel.CurrShift + "; ";
}
}
else if (ViewModel.CurrShift != "")
{
ViewModel.sHeadingFilter = ViewModel.sHeadingFilter + "for Shift= " + ViewModel.CurrShift + "; ";
}
if (ViewModel.cboUnit.ListIndex == -1)
{
sUnit = "";
}
else
{
sUnit = modGlobal.Clean(ViewModel.cboUnit.Text);
ViewModel.sHeadingFilter = ViewModel.sHeadingFilter + "Unit = " + ViewModel.cboUnit.Text + "; ";
}
ViewModel.sHeadingFilter = ViewModel.sHeadingFilter + "from " + sStartDate + " To " + sEndDate + "; ";
if (ViewModel.cboPrimary.ListIndex == -1)
{
iPrimary = 0;
}
else
{
//UPGRADE_ISSUE: (2064) LpADOLib.fpComboAdo property cboPrimary.ItemData was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx
iPrimary = ViewModel.cboPrimary.ItemData(ViewModel.cboPrimary.ListIndex);
ViewModel.sHeadingFilter = ViewModel.sHeadingFilter + ViewModel.cboPrimary.Text + "; ";
}
if (ViewModel.cboSecondary.ListIndex == -1)
{
lSecondary = 0;
}
else
{
//UPGRADE_ISSUE: (2064) LpADOLib.fpComboAdo property cboSecondary.ItemData was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx
lSecondary = ViewModel.cboSecondary.ItemData(ViewModel.cboSecondary.ListIndex);
ViewModel.sHeadingFilter = ViewModel.sHeadingFilter + ViewModel.cboSecondary.Text + "; ";
}
if (ViewModel.lstSpecific.SelectedIndex == -1)
{
lSpecific = 0;
}
else
{
for (int i = 0; i <= ViewModel.lstSpecific.Items.Count - 1; i++)
{
if (ViewModel.lstSpecific.SelectedIndices.Contains(i))
{
//UPGRADE_ISSUE: (2064) LpADOLib.fpListAdo property lstSpecific.ItemData was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx
lSpecific = ViewModel.lstSpecific.ItemData(i);
ViewModel.sHeadingFilter = ViewModel.sHeadingFilter + ViewModel.cboSecondary.Text + "; ";
}
}
}
//UPGRADE_ISSUE: (2064) FPSpreadADO.fpSpread method sprReport.ClearRange was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx
ViewModel.sprReport.ClearRange(1, 1, ViewModel.sprReport.MaxCols, ViewModel.sprReport.MaxRows, false);
if (ViewModel.optPM.Checked)
{
if (TrainCL.GetPMTrainingQueryFiltered(sStartDate, sEndDate, iPrimary, lSecondary, lSpecific, ViewModel.CurrShift, sUnit, ViewModel.CurrBatt, sName, sComment, sFlag) != 0)
{
//continue
}
else
{
ViewManager.ShowMessage("There were no records returned. Try changing the filters.", "New PTS Training Query", UpgradeHelpers.Helpers.BoxButtons.OK);
return;
}
}
else if (modGlobal.Shared.gSecurity == "ADM")
{
if (TrainCL.GetTrainingQueryFiltered(sStartDate, sEndDate, iPrimary, lSecondary, lSpecific, ViewModel.CurrShift, sUnit, ViewModel.CurrBatt, sName, sComment, sFlag) != 0)
{
//continue
}
else
{
ViewManager.ShowMessage("There were no records returned. Try changing the filters.", "New PTS Training Query", UpgradeHelpers.Helpers.BoxButtons.OK);
return;
}
}
else
{
if (TrainCL.GetTrainingQueryFilteredForField(sStartDate, sEndDate, iPrimary, lSecondary, lSpecific, ViewModel.CurrShift, sUnit, ViewModel.CurrBatt, sName, sComment, sFlag) != 0)
{
//continue
}
else
{
ViewManager.ShowMessage("There were no records returned. Try changing the filters.", "New PTS Training Query", UpgradeHelpers.Helpers.BoxButtons.OK);
return;
}
}
while (!TrainCL.TrainingRecord.EOF)
{
CurrRow++;
ViewModel.sprReport.Row = CurrRow;
ViewModel.sprReport.Col = 1;
ViewModel.sprReport.Text = modGlobal.Clean(TrainCL.TrainingRecord["name_full"]);
ViewModel.sprReport.Col = 2;
ViewModel.sprReport.Text = modGlobal.Clean(TrainCL.TrainingRecord["shift_code"]);
ViewModel.sprReport.Col = 3;
ViewModel.sprReport.Text = modGlobal.Clean(TrainCL.TrainingRecord["unit_code"]);
ViewModel.sprReport.Col = 4;
ViewModel.sprReport.Text = modGlobal.Clean(TrainCL.TrainingRecord["battalion_code"]);
ViewModel.sprReport.Col = 5;
ViewModel.sprReport.Text = modGlobal.Clean(TrainCL.TrainingRecord["primary_code"]);
ViewModel.sprReport.Col = 6;
ViewModel.sprReport.Text = modGlobal.Clean(TrainCL.TrainingRecord["secondary_code"]);
ViewModel.sprReport.Col = 7;
ViewModel.sprReport.Text = modGlobal.Clean(TrainCL.TrainingRecord["specific_code"]);
//comment
if (modGlobal.Clean(TrainCL.TrainingRecord["comments"]) != "")
{
ViewModel.sprReport.TextTip = FarPoint.ViewModels.TextTipPolicy.Floating;
ViewModel.sprReport.Col = 7;
ViewModel.sprReport.CellNoteIndicator = true;
//UPGRADE_ISSUE: (2064) FPSpreadADO.fpSpread property sprReport.CellNote was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx
ViewModel.sprReport.CellNote = modGlobal.Clean(TrainCL.TrainingRecord["comments"]);
}
ViewModel.sprReport.Col = 8;
if (modGlobal.Clean(TrainCL.TrainingRecord["training_date"]) == "")
{
ViewModel.sprReport.Text = "";
}
else if (Convert.ToDateTime(TrainCL.TrainingRecord["training_date"]).ToString("M/d/yyyy") == "1/1/1900")
{
ViewModel.sprReport.Text = "";
}
else
{
ViewModel.sprReport.Text = Convert.ToDateTime(TrainCL.TrainingRecord["training_date"]).ToString("M/d/yyyy");
}
//comment
if (modGlobal.Clean(TrainCL.TrainingRecord["FlagComment"]) != "")
{
ViewModel.sprReport.TextTip = FarPoint.ViewModels.TextTipPolicy.Floating;
ViewModel.sprReport.Col = 8;
ViewModel.sprReport.CellNoteIndicator = true;
//UPGRADE_ISSUE: (2064) FPSpreadADO.fpSpread property sprReport.CellNote was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx
ViewModel.sprReport.CellNote = modGlobal.Clean(TrainCL.TrainingRecord["FlagComment"]);
}
ViewModel.sprReport.Col = 9;
if (modGlobal.Clean(TrainCL.TrainingRecord["training_hours"]) == "")
{
ViewModel.sprReport.Text = "";
}
else if (modGlobal.Clean(TrainCL.TrainingRecord["training_hours"]) == "0")
{
ViewModel.sprReport.Text = "";
}
else
{
//UPGRADE_WARNING: (1068) GetVal() of type Variant is being forced to string. More Information: http://www.vbtonet.com/ewis/ewi1068.aspx
ViewModel.sprReport.Text = Convert.ToString(modGlobal.GetVal(TrainCL.TrainingRecord["training_hours"]));
}
if (modGlobal.Clean(TrainCL.TrainingRecord["pass_fail"]) == "F")
{
ViewModel.sprReport.Col = 1;
ViewModel.sprReport.Col2 = ViewModel.sprReport.MaxCols;
ViewModel.sprReport.Row = CurrRow;
ViewModel.sprReport.Row2 = CurrRow;
ViewModel.sprReport.BlockMode = true;
ViewModel.sprReport.BlockMode = false;
}
else
{
ViewModel.sprReport.Col = 1;
ViewModel.sprReport.Col2 = ViewModel.sprReport.MaxCols;
ViewModel.sprReport.Row = CurrRow;
ViewModel.sprReport.Row2 = CurrRow;
ViewModel.sprReport.BlockMode = true;
ViewModel.sprReport.BlockMode = false;
}
TrainCL.TrainingRecord.MoveNext();
}
;
ViewModel.lbCount.Text = "Total Count: " + ViewModel.sprReport.DataRowCnt.ToString();
ViewModel.sprReport.MaxRows = ViewModel.sprReport.DataRowCnt;
}
//********************************************************
// TFD Training Individual Paramedic ALS Procedures
// By Employee, Begin Date thru End Date
//********************************************************
public void FillGrid()
{
PTSProject.clsTraining TrainCL = Container.Resolve <clsTraining>();
string sSSN = "";
ClearGrid();
if (TrainCL.GetEmployeePMRecertInfoByID(ViewModel.CurrEmp) != 0)
{
//continue
}
else
{
ViewManager.ShowMessage("Oooops! Not able to find Employee Information!", "Employee Paramedic Recert Info", UpgradeHelpers.Helpers.BoxButtons.OK);
return;
}
string sReportInfo = "";
string sCertExpDate = "";
if (!TrainCL.Employee.EOF)
{
sReportInfo = "Name: " + modGlobal.Clean(TrainCL.Employee["name_full"]) + " ";
sReportInfo = sReportInfo + "SS#: ";
if (modGlobal.Clean(TrainCL.Employee["social_security_nbr"]) == "")
{
sReportInfo = sReportInfo + " ";
}
else
{
sSSN = modGlobal.Clean(TrainCL.Employee["social_security_nbr"]);
sReportInfo = sReportInfo + "*******" + sSSN.Substring(Math.Max(sSSN.Length - 4, 0));
}
sReportInfo = sReportInfo + " Expiration Date: ";
if (modGlobal.Clean(TrainCL.Employee["recert_date"]) == "")
{
sReportInfo = sReportInfo + " ";
}
else
{
sCertExpDate = Convert.ToDateTime(TrainCL.Employee["recert_date"]).ToString("M/d/yyyy");
sReportInfo = sReportInfo + sCertExpDate;
}
ViewModel.sprReport.Row = 3;
ViewModel.sprReport.Col = 1;
ViewModel.sprReport.Text = sReportInfo;
// If sCertExpDate = "" Then
// dtStart.Text = Format$("01/01/" & Year(Now()) - 2, "mm/dd/yyyy")
// dtEnd.Text = Format$(Now(), "mm/dd/yyyy")
// Else
// dtStart.Text = Format$(TrainCL.Employee("StartDate"), "mm/dd/yyyy")
// dtEnd.Text = DateAdd("d", -1, DateAdd("yyyy", 3, dtStart.Text))
// End If
sReportInfo = "";
sReportInfo = "Period Begins: " + ViewModel.dtStart.Text + " ";
sReportInfo = sReportInfo + "Period Ends: " + ViewModel.dtEnd.Text;
ViewModel.sprReport.Row = 4;
ViewModel.sprReport.Col = 1;
ViewModel.sprReport.Text = sReportInfo;
}
//Get ALS Procedures from IRS...
if (TrainCL.GetEmployeeALSProceduresForPMRecert(ViewModel.CurrEmp, ViewModel.dtStart.Text, ViewModel.dtEnd.Text) != 0)
{
//continue
}
else
{
return;
}
int ProcedureCount = 0;
string sSubHeading = "";
int CurrRow = 7;
while (!TrainCL.TrainingRecord.EOF)
{
if (sSubHeading == "")
{ //First Time
ViewModel.sprReport.Row = CurrRow;
ViewModel.sprReport.Col = 1;
ViewModel.sprReport.TypeHAlign = FarPoint.ViewModels.CellHorizontalAlignment.Center;
ViewModel.sprReport.Text = "ALS Procedures (IRS)";
ViewModel.sprReport.Col = 3;
ViewModel.sprReport.TypeHAlign = FarPoint.ViewModels.CellHorizontalAlignment.Center;
ViewModel.sprReport.Text = "DateTime";
ViewModel.sprReport.Col = 4;
ViewModel.sprReport.TypeHAlign = FarPoint.ViewModels.CellHorizontalAlignment.Center;
ViewModel.sprReport.Text = "Incident #";
ViewModel.sprReport.BlockMode = true;
ViewModel.sprReport.Col = 1;
ViewModel.sprReport.Col2 = ViewModel.sprReport.MaxCols;
ViewModel.sprReport.Row = CurrRow;
ViewModel.sprReport.Row2 = CurrRow;
ViewModel.sprReport.BackColor = modGlobal.Shared.PARCHMENT;
ViewModel.sprReport.BlockMode = false;
CurrRow++;
ViewModel.sprReport.Row = CurrRow;
ViewModel.sprReport.Col = 1;
ViewModel.sprReport.TypeHAlign = FarPoint.ViewModels.CellHorizontalAlignment.Left;
sSubHeading = modGlobal.Clean(TrainCL.TrainingRecord["description"]);
ViewModel.sprReport.Text = sSubHeading;
ViewModel.sprReport.Col = 3;
ViewModel.sprReport.TypeHAlign = FarPoint.ViewModels.CellHorizontalAlignment.Left;
if (modGlobal.Clean(TrainCL.TrainingRecord["date_incident_created"]) == "")
{
ViewModel.sprReport.Text = "";
}
else
{
ViewModel.sprReport.Text = Convert.ToDateTime(TrainCL.TrainingRecord["date_incident_created"]).ToString("M/d/yyyy H:mm:ss");
}
ViewModel.sprReport.Col = 4;
ViewModel.sprReport.TypeHAlign = FarPoint.ViewModels.CellHorizontalAlignment.Left;
if (modGlobal.Clean(TrainCL.TrainingRecord["incident_number"]) == "")
{
ViewModel.sprReport.Text = "";
}
else
{
//UPGRADE_WARNING: (1068) GetVal() of type Variant is being forced to string. More Information: http://www.vbtonet.com/ewis/ewi1068.aspx
ViewModel.sprReport.Text = Convert.ToString(modGlobal.GetVal(TrainCL.TrainingRecord["incident_number"]));
}
ProcedureCount++;
}
else if (modGlobal.Clean(TrainCL.TrainingRecord["description"]) == sSubHeading)
{
CurrRow++;
ViewModel.sprReport.Row = CurrRow;
ViewModel.sprReport.Col = 1;
ViewModel.sprReport.TypeHAlign = FarPoint.ViewModels.CellHorizontalAlignment.Left;
ViewModel.sprReport.Text = modGlobal.Clean(TrainCL.TrainingRecord["description"]);
ViewModel.sprReport.Col = 3;
ViewModel.sprReport.TypeHAlign = FarPoint.ViewModels.CellHorizontalAlignment.Left;
if (modGlobal.Clean(TrainCL.TrainingRecord["date_incident_created"]) == "")
{
ViewModel.sprReport.Text = "";
}
else
{
ViewModel.sprReport.Text = Convert.ToDateTime(TrainCL.TrainingRecord["date_incident_created"]).ToString("M/d/yyyy H:mm:ss");
}
ViewModel.sprReport.Col = 4;
ViewModel.sprReport.TypeHAlign = FarPoint.ViewModels.CellHorizontalAlignment.Left;
if (modGlobal.Clean(TrainCL.TrainingRecord["incident_number"]) == "")
{
ViewModel.sprReport.Text = "";
}
else
{
//UPGRADE_WARNING: (1068) GetVal() of type Variant is being forced to string. More Information: http://www.vbtonet.com/ewis/ewi1068.aspx
ViewModel.sprReport.Text = Convert.ToString(modGlobal.GetVal(TrainCL.TrainingRecord["incident_number"]));
}
ProcedureCount++;
}
else
{
//Add logic for subtotaling...
CurrRow++;
ViewModel.sprReport.Row = CurrRow;
ViewModel.sprReport.Col = 1;
ViewModel.sprReport.TypeHAlign = FarPoint.ViewModels.CellHorizontalAlignment.Right;
ViewModel.sprReport.Text = "Total For " + modGlobal.Clean(sSubHeading) + ": ";
ViewModel.sprReport.BlockMode = true;
ViewModel.sprReport.Col = 1;
ViewModel.sprReport.Col2 = ViewModel.sprReport.MaxCols;
ViewModel.sprReport.Row = CurrRow;
ViewModel.sprReport.Row2 = CurrRow;
ViewModel.sprReport.BackColor = UpgradeHelpers.Helpers.ColorTranslator.FromOle(modGlobal.LT_BLUE);
ViewModel.sprReport.FontBold = true;
ViewModel.sprReport.BlockMode = false;
ViewModel.sprReport.Col = 3;
ViewModel.sprReport.TypeHAlign = FarPoint.ViewModels.CellHorizontalAlignment.Center;
ViewModel.sprReport.Text = ProcedureCount.ToString();
ViewModel.sprReport.Col = 4;
ViewModel.sprReport.Text = "";
//continue
ProcedureCount = 0;
CurrRow += 2;
ViewModel.sprReport.Row = CurrRow;
ViewModel.sprReport.Col = 1;
ViewModel.sprReport.TypeHAlign = FarPoint.ViewModels.CellHorizontalAlignment.Left;
sSubHeading = modGlobal.Clean(TrainCL.TrainingRecord["description"]);
ViewModel.sprReport.Text = sSubHeading;
ViewModel.sprReport.Col = 3;
ViewModel.sprReport.TypeHAlign = FarPoint.ViewModels.CellHorizontalAlignment.Left;
if (modGlobal.Clean(TrainCL.TrainingRecord["date_incident_created"]) == "")
{
ViewModel.sprReport.Text = "";
}
else
{
ViewModel.sprReport.Text = Convert.ToDateTime(TrainCL.TrainingRecord["date_incident_created"]).ToString("M/d/yyyy H:mm:ss");
}
ViewModel.sprReport.Col = 4;
ViewModel.sprReport.TypeHAlign = FarPoint.ViewModels.CellHorizontalAlignment.Left;
if (modGlobal.Clean(TrainCL.TrainingRecord["incident_number"]) == "")
{
ViewModel.sprReport.Text = "";
}
else
{
//UPGRADE_WARNING: (1068) GetVal() of type Variant is being forced to string. More Information: http://www.vbtonet.com/ewis/ewi1068.aspx
ViewModel.sprReport.Text = Convert.ToString(modGlobal.GetVal(TrainCL.TrainingRecord["incident_number"]));
}
ProcedureCount++;
}
TrainCL.TrainingRecord.MoveNext();
}
;
// Now do Total Hours for LAST row...
if (ProcedureCount > 0)
{
CurrRow++;
ViewModel.sprReport.Row = CurrRow;
ViewModel.sprReport.Col = 1;
ViewModel.sprReport.TypeHAlign = FarPoint.ViewModels.CellHorizontalAlignment.Right;
ViewModel.sprReport.Text = "Total For " + modGlobal.Clean(sSubHeading) + ": ";
ViewModel.sprReport.BlockMode = true;
ViewModel.sprReport.Col = 1;
ViewModel.sprReport.Col2 = ViewModel.sprReport.MaxCols;
ViewModel.sprReport.Row = CurrRow;
ViewModel.sprReport.Row2 = CurrRow;
ViewModel.sprReport.BackColor = UpgradeHelpers.Helpers.ColorTranslator.FromOle(modGlobal.LT_BLUE);
ViewModel.sprReport.FontBold = true;
ViewModel.sprReport.BlockMode = false;
ViewModel.sprReport.Col = 3;
ViewModel.sprReport.TypeHAlign = FarPoint.ViewModels.CellHorizontalAlignment.Center;
ViewModel.sprReport.Text = ProcedureCount.ToString();
ViewModel.sprReport.Col = 4;
ViewModel.sprReport.Text = "";
}
}
private int DetermineSecurity()
{
int result = 0;
PTSProject.clsTraining TrainCL = Container.Resolve <clsTraining>();
//Opening up to everyone...
result = -1;
ViewModel.NoLimitUpdate = true;
ViewModel.PreventionOnly = false;
ViewModel.FieldOnly = false;
if (modGlobal.Shared.gSecurity == "ADM")
{
// NoLimitUpdate = True
// DetermineSecurity = True
// Exit Function
if (ViewModel.FirstTime)
{
ViewModel.cboPrimary.AddItem("Formal Training");
//UPGRADE_ISSUE: (2064) LpADOLib.fpComboAdo property cboPrimary.NewIndex was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx
//UPGRADE_ISSUE: (2064) LpADOLib.fpComboAdo property cboPrimary.ItemData was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx
ViewModel.cboPrimary.setItemData(1, ViewModel.cboPrimary.getNewIndex());
ViewModel.cboPrimary.AddItem("Paramedic Additional Training");
//UPGRADE_ISSUE: (2064) LpADOLib.fpComboAdo property cboPrimary.NewIndex was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx
//UPGRADE_ISSUE: (2064) LpADOLib.fpComboAdo property cboPrimary.ItemData was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx
ViewModel.cboPrimary.setItemData(16, ViewModel.cboPrimary.getNewIndex());
ViewModel.cboPrimary.AddItem("Prevention and Preparedness Bureau");
//UPGRADE_ISSUE: (2064) LpADOLib.fpComboAdo property cboPrimary.NewIndex was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx
//UPGRADE_ISSUE: (2064) LpADOLib.fpComboAdo property cboPrimary.ItemData was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx
ViewModel.cboPrimary.setItemData(10, ViewModel.cboPrimary.getNewIndex());
}
return(result);
}
// If TrainCL.GetTrainingInfoForSecurity(gUser, Format$(calTrainDate.Value, "m/d/yyyy")); Then
if (TrainCL.GetTrainingInfoForSecurity(modGlobal.Shared.gUser, ViewModel.calTrainDate.SelectionRange.Start.ToString("M/d/yyyy")) != 0)
{
if (modGlobal.Clean(TrainCL.TrainingRecord["AssignPosition"]) == "DFM" || modGlobal.Clean(TrainCL.TrainingRecord["CurrPosition"]) == "DFM")
{
ViewModel.PreventionOnly = true;
// DetermineSecurity = True
if (ViewModel.FirstTime)
{
// cboPrimary.Clear
ViewModel.cboPrimary.AddItem("Prevention and Preparedness Bureau");
//UPGRADE_ISSUE: (2064) LpADOLib.fpComboAdo property cboPrimary.NewIndex was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx
//UPGRADE_ISSUE: (2064) LpADOLib.fpComboAdo property cboPrimary.ItemData was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx
ViewModel.cboPrimary.setItemData(10, ViewModel.cboPrimary.getNewIndex());
}
}
else if (modGlobal.Clean(TrainCL.TrainingRecord["AssignUnit"]) == "TRN" || modGlobal.Clean(TrainCL.TrainingRecord["CurrUnit"]) == "TRN")
{
// NoLimitUpdate = True
// DetermineSecurity = True
if (ViewModel.FirstTime)
{
// cboPrimary.Clear
ViewModel.cboPrimary.AddItem("Formal Training");
//UPGRADE_ISSUE: (2064) LpADOLib.fpComboAdo property cboPrimary.NewIndex was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx
//UPGRADE_ISSUE: (2064) LpADOLib.fpComboAdo property cboPrimary.ItemData was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx
ViewModel.cboPrimary.setItemData(1, ViewModel.cboPrimary.getNewIndex());
ViewModel.cboPrimary.AddItem("Paramedic Additional Training");
//UPGRADE_ISSUE: (2064) LpADOLib.fpComboAdo property cboPrimary.NewIndex was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx
//UPGRADE_ISSUE: (2064) LpADOLib.fpComboAdo property cboPrimary.ItemData was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx
ViewModel.cboPrimary.setItemData(16, ViewModel.cboPrimary.getNewIndex());
}
}
else
{
// ElseIf Clean(TrainCL.TrainingRecord("AssignUnit"]) = Clean(cboUnitList) Or _
//' Clean(TrainCL.TrainingRecord("CurrUnit"]) = Clean(cboUnitList) Then
ViewModel.FieldOnly = true;
// DetermineSecurity = True
// Else
// DetermineSecurity = False
// Exit Function
}
}
else
{
// DetermineSecurity = False
return(result);
}
return(result);
}
public void FormatReport()
{
PTSProject.clsTraining TrainCL = Container.Resolve <clsTraining>();
if (ViewModel.FirstTime)
{
return;
}
ViewModel.sprReport.Row = 7;
ViewModel.sprReport.Row2 = ViewModel.sprReport.MaxRows;
ViewModel.sprReport.Col = 1;
ViewModel.sprReport.Col2 = ViewModel.sprReport.MaxCols;
ViewModel.sprReport.BlockMode = true;
ViewModel.sprReport.Text = "";
ViewModel.sprReport.BlockMode = false;
if (TrainCL.GetTrainingFCCQuarterlyStandardReport(ViewModel.CurrYear, ViewModel.CurrQuarter, ViewModel.CurrShift) != 0)
{
//continue
}
else
{
ViewManager.ShowMessage("There are no Employee/Training Records to report for Year/Quarter!", "Training Quarterly Report", UpgradeHelpers.Helpers.BoxButtons.OK);
return;
}
string sEmployeeName = "";
int iCodeRow = 6;
int iCurrRow = 7;
int iCurrCol = 1;
while (!TrainCL.TrainingRecord.EOF)
{
ViewModel.sprReport.Row = iCurrRow;
ViewModel.sprReport.Col = iCurrCol;
if (sEmployeeName == "")
{ //first time
sEmployeeName = modGlobal.Clean(TrainCL.TrainingRecord["name_full"]);
ViewModel.sprReport.Text = sEmployeeName;
ViewModel.sprReport.Col = iCurrCol + 1;
ViewModel.sprReport.Text = modGlobal.Clean(TrainCL.TrainingRecord["unit_code"]);
ViewModel.sprReport.Col = iCurrCol + 2;
ViewModel.sprReport.Text = modGlobal.Clean(TrainCL.TrainingRecord["shift_code"]);
ViewModel.sprReport.Col = iCurrCol + 3;
ViewModel.sprReport.Text = modGlobal.Clean(TrainCL.TrainingRecord["battalion_code"]);
if (modGlobal.Clean(TrainCL.TrainingRecord["report_column"]) != "")
{
ViewModel.sprReport.Row = iCodeRow;
for (int i = 5; i <= 18; i++)
{
ViewModel.sprReport.Col = i;
if (modGlobal.Clean(TrainCL.TrainingRecord["report_column"]) == modGlobal.Clean(ViewModel.sprReport.Text))
{
ViewModel.sprReport.Col = i;
ViewModel.sprReport.Row = iCurrRow;
//UPGRADE_WARNING: (1068) GetVal() of type Variant is being forced to string. More Information: http://www.vbtonet.com/ewis/ewi1068.aspx
ViewModel.sprReport.Text = Convert.ToString(modGlobal.GetVal(TrainCL.TrainingRecord["total_occurances"]));
break;
}
}
}
}
else if (sEmployeeName == modGlobal.Clean(TrainCL.TrainingRecord["name_full"]))
{
if (modGlobal.Clean(TrainCL.TrainingRecord["report_column"]) != "")
{
ViewModel.sprReport.Row = iCodeRow;
for (int i = 5; i <= 18; i++)
{
ViewModel.sprReport.Col = i;
if (modGlobal.Clean(TrainCL.TrainingRecord["report_column"]) == modGlobal.Clean(ViewModel.sprReport.Text))
{
ViewModel.sprReport.Col = i;
ViewModel.sprReport.Row = iCurrRow;
//UPGRADE_WARNING: (1068) GetVal() of type Variant is being forced to string. More Information: http://www.vbtonet.com/ewis/ewi1068.aspx
ViewModel.sprReport.Text = Convert.ToString(modGlobal.GetVal(TrainCL.TrainingRecord["total_occurances"]));
break;
}
}
}
}
else
{
iCurrRow++;
ViewModel.sprReport.Row = iCurrRow;
sEmployeeName = modGlobal.Clean(TrainCL.TrainingRecord["name_full"]);
ViewModel.sprReport.Text = sEmployeeName;
ViewModel.sprReport.Col = iCurrCol + 1;
ViewModel.sprReport.Text = modGlobal.Clean(TrainCL.TrainingRecord["unit_code"]);
ViewModel.sprReport.Col = iCurrCol + 2;
ViewModel.sprReport.Text = modGlobal.Clean(TrainCL.TrainingRecord["shift_code"]);
ViewModel.sprReport.Col = iCurrCol + 3;
ViewModel.sprReport.Text = modGlobal.Clean(TrainCL.TrainingRecord["battalion_code"]);
if (modGlobal.Clean(TrainCL.TrainingRecord["report_column"]) != "")
{
ViewModel.sprReport.Row = iCodeRow;
for (int i = 5; i <= 18; i++)
{
ViewModel.sprReport.Col = i;
if (modGlobal.Clean(TrainCL.TrainingRecord["report_column"]) == modGlobal.Clean(ViewModel.sprReport.Text))
{
ViewModel.sprReport.Col = i;
ViewModel.sprReport.Row = iCurrRow;
//UPGRADE_WARNING: (1068) GetVal() of type Variant is being forced to string. More Information: http://www.vbtonet.com/ewis/ewi1068.aspx
ViewModel.sprReport.Text = Convert.ToString(modGlobal.GetVal(TrainCL.TrainingRecord["total_occurances"]));
break;
}
}
}
}
TrainCL.TrainingRecord.MoveNext();
}
;
}
internal void cmdSave_Click(Object eventSender, System.EventArgs eventArgs)
{
using (var async1 = this.Async(true))
{
//Save Training Record
PTSProject.clsTraining cTraining = Container.Resolve <clsTraining>();
if (ViewModel.lSpecificID == 0)
{
ViewManager.ShowMessage("Please Select Specific Training Type.", "Save Training Record(s)", UpgradeHelpers.Helpers.BoxButtons.OK);
this.Return();
return;
}
ViewModel.cmdSave.Enabled = false;
if (modGlobal.Shared.gSecondaryID != 0)
{
async1.Append(() =>
{
ViewManager.NavigateToView(
dlgMessage.DefInstance, true);
});
async1.Append(() =>
{
if (modGlobal.Shared.gMessageText == "")
{
ViewModel.cmdSave.Enabled = false;
ClearScreen();
this.Return();
return;
}
});
}
async1.Append(() =>
{
if (modGlobal.Clean(ViewModel.txtComments.Text) == "")
{
cTraining.RecordComments = "";
}
else
{
cTraining.RecordComments = modGlobal.Clean(modGlobal.ProofSQLString(ViewModel.txtComments.Text));
}
cTraining.RecordSpecificCode = ViewModel.lSpecificID;
cTraining.RecordTrainingDate = DateTime.Parse(ViewModel.calTrainDate.SelectionRange.Start.ToString("M/d/yyyy"));
if (ViewModel.cboHours.Visible)
{
cTraining.RecordHours = (float)Double.Parse(ViewModel.cboHours.Text);
}
else
{
cTraining.RecordHours = 0;
}
cTraining.RecordCreateBy = modPTSPayroll.Shared.gUserSAPid;
cTraining.RecordProviderFlag = 0;
cTraining.RecordInstructorFlag = 0;
if (ViewModel.frmProvInst.Visible)
{
if (ViewModel.chkProvider.CheckState == UpgradeHelpers.Helpers.CheckState.Checked)
{
cTraining.RecordProviderFlag = 1;
}
}
if (ViewModel.frmProvInst.Visible)
{
if (ViewModel.chkInstructor.CheckState == UpgradeHelpers.Helpers.CheckState.Checked)
{
cTraining.RecordInstructorFlag = 1;
}
}
cTraining.RecordPassFail = "";
if (ViewModel.frmPassFail.Visible)
{
if (ViewModel.optPass.Checked)
{
cTraining.RecordPassFail = "P";
}
else if (ViewModel.optFail.Checked)
{
cTraining.RecordPassFail = "F";
}
}
if (ViewModel.frmCategories.Visible)
{
if (ViewModel.OptCat1.Checked)
{
cTraining.RecordCategoryID = 1;
}
else if (ViewModel.OptCat2.Checked)
{
cTraining.RecordCategoryID = 2;
}
else if (ViewModel.OptCat3.Checked)
{
cTraining.RecordCategoryID = 3;
}
else if (ViewModel.OptCat4.Checked)
{
cTraining.RecordCategoryID = 4;
}
else
{
cTraining.RecordCategoryID = 0;
}
}
else
{
cTraining.RecordCategoryID = 0;
}
//will need to loop through the lstTrainStaff
for (int i = 0; i <= ViewModel.lstTrainStaff.Items.Count - 1; i++)
{
cTraining.RecordEmployeeID = ViewModel.lstTrainStaff.GetListItem(i).Substring(Math.Max(ViewModel.lstTrainStaff.GetListItem(i).Length - 5, 0));
if (~cTraining.AddTrainingRecord() != 0)
{
ViewManager.ShowMessage("Ooops! Something is wrong!! Training Record was not saved.", "Add New Training Record", UpgradeHelpers.Helpers.BoxButtons.OK);
ViewModel.cmdSave.Enabled = true;
}
}
ViewModel.lbSaveMsg.Visible = true;
UpgradeSolution1Support.PInvoke.SafeNative.kernel32.Sleep(1500);
ViewModel.lbSaveMsg.Visible = false;
ViewModel.cmdSave.Enabled = false;
});
}
}
public void FormatHeadings()
{
PTSProject.clsTraining TrainCL = Container.Resolve <clsTraining>();
if (ViewModel.FirstTime)
{
return;
}
ViewModel.sprReport.Row = 4;
ViewModel.sprReport.Row2 = ViewModel.sprReport.MaxRows;
ViewModel.sprReport.Col = 1;
ViewModel.sprReport.Col2 = ViewModel.sprReport.MaxCols;
ViewModel.sprReport.BlockMode = true;
ViewModel.sprReport.Text = "";
ViewModel.sprReport.BackColor = modGlobal.Shared.WHITE;
ViewModel.sprReport.BlockMode = false;
//Set colors...
//Green
ViewModel.sprReport.Row = 4;
ViewModel.sprReport.Row2 = ViewModel.sprReport.MaxRows;
ViewModel.sprReport.Col = 5;
ViewModel.sprReport.Col2 = 6;
ViewModel.sprReport.BlockMode = true;
ViewModel.sprReport.BackColor = UpgradeHelpers.Helpers.ColorTranslator.FromOle(modGlobal.TrainingGreen);
ViewModel.sprReport.BlockMode = false;
//Blue
ViewModel.sprReport.Row = 4;
ViewModel.sprReport.Row2 = ViewModel.sprReport.MaxRows;
ViewModel.sprReport.Col = 7;
ViewModel.sprReport.Col2 = 9;
ViewModel.sprReport.BlockMode = true;
ViewModel.sprReport.BackColor = UpgradeHelpers.Helpers.ColorTranslator.FromOle(modGlobal.TrainingBlue);
ViewModel.sprReport.BlockMode = false;
//Yellow
ViewModel.sprReport.Row = 4;
ViewModel.sprReport.Row2 = ViewModel.sprReport.MaxRows;
ViewModel.sprReport.Col = 10;
ViewModel.sprReport.Col2 = 12;
ViewModel.sprReport.BlockMode = true;
ViewModel.sprReport.BackColor = UpgradeHelpers.Helpers.ColorTranslator.FromOle(modGlobal.TrainingYellow);
ViewModel.sprReport.BlockMode = false;
//Peach
ViewModel.sprReport.Row = 4;
ViewModel.sprReport.Row2 = ViewModel.sprReport.MaxRows;
ViewModel.sprReport.Col = 13;
ViewModel.sprReport.Col2 = 15;
ViewModel.sprReport.BlockMode = true;
ViewModel.sprReport.BackColor = UpgradeHelpers.Helpers.ColorTranslator.FromOle(modGlobal.TrainingPeach);
ViewModel.sprReport.BlockMode = false;
string sHeading = "";
sHeading = ViewModel.CurrYear.ToString() + " - ";
switch (ViewModel.CurrQuarter)
{
case 4:
sHeading = sHeading + "4th Quarter Report";
break;
case 3:
sHeading = sHeading + "3rd Quarter Report";
break;
case 2:
sHeading = sHeading + "2nd Quarter Report";
break;
default:
sHeading = sHeading + "1st Quarter Report";
break;
}
ViewModel.sprReport.Row = 2;
ViewModel.sprReport.Col = 1;
ViewModel.sprReport.Text = sHeading;
sHeading = "FCC Minimum Standard Drills For ";
if (ViewModel.CurrShift == "")
{
sHeading = sHeading + "All Shifts";
}
else
{
sHeading = sHeading + "Shift " + ViewModel.CurrShift;
}
ViewModel.sprReport.Row = 3;
ViewModel.sprReport.Col = 1;
ViewModel.sprReport.Text = sHeading;
ViewModel.sprReport.Row = 5;
ViewModel.sprReport.Col = 1;
ViewModel.sprReport.Text = "Name";
ViewModel.sprReport.Col = 2;
ViewModel.sprReport.Text = "Unit";
ViewModel.sprReport.Col = 3;
ViewModel.sprReport.Text = "Shift";
ViewModel.sprReport.Col = 4;
ViewModel.sprReport.Text = "Batt";
if (TrainCL.GetTrainingFCCDrillsByYearQuarter(ViewModel.CurrYear, ViewModel.CurrQuarter) != 0)
{
//continue
}
else
{
ViewManager.ShowMessage("Oh No! There are no Training FCC Standard Drills set up for Year/Quarter!", "Training Quarterly Report", UpgradeHelpers.Helpers.BoxButtons.OK);
return;
}
int iCurrRow = 4;
int iCurrCol = 5;
string sSubHeading = "";
int iReportColumn = 1;
while (!TrainCL.TrainingRecord.EOF)
{
ViewModel.sprReport.Row = iCurrRow;
ViewModel.sprReport.Col = iCurrCol;
if (sSubHeading == "")
{ //first time
sSubHeading = modGlobal.Clean(TrainCL.TrainingRecord["standard_description"]);
ViewModel.sprReport.Text = sSubHeading;
//UPGRADE_WARNING: (1068) GetVal() of type Variant is being forced to int. More Information: http://www.vbtonet.com/ewis/ewi1068.aspx
iReportColumn = Convert.ToInt32(modGlobal.GetVal(TrainCL.TrainingRecord["report_column"]));
ViewModel.sprReport.Row = iCurrRow + 1;
ViewModel.sprReport.Text = modGlobal.Clean(TrainCL.TrainingRecord["description"]);
ViewModel.sprReport.Row = iCurrRow + 2;
ViewModel.sprReport.Text = iReportColumn.ToString();
iCurrCol++;
}
else if (sSubHeading == modGlobal.Clean(TrainCL.TrainingRecord["standard_description"]))
{
ViewModel.sprReport.Row = iCurrRow + 1;
//UPGRADE_WARNING: (1068) GetVal(TrainCL.TrainingRecord(report_column)) of type Variant is being forced to double. More Information: http://www.vbtonet.com/ewis/ewi1068.aspx
if (iReportColumn == Convert.ToDouble(modGlobal.GetVal(TrainCL.TrainingRecord["report_column"])))
{
ViewModel.sprReport.Col = iReportColumn + 4;
ViewModel.sprReport.Text = modGlobal.Clean(ViewModel.sprReport.Text) + " / " + modGlobal.Clean(TrainCL.TrainingRecord["description"]);
}
else
{
//UPGRADE_WARNING: (1068) GetVal() of type Variant is being forced to int. More Information: http://www.vbtonet.com/ewis/ewi1068.aspx
iReportColumn = Convert.ToInt32(modGlobal.GetVal(TrainCL.TrainingRecord["report_column"]));
ViewModel.sprReport.Text = modGlobal.Clean(TrainCL.TrainingRecord["description"]);
ViewModel.sprReport.Row = iCurrRow + 2;
ViewModel.sprReport.Text = iReportColumn.ToString();
// sprReport.Text = Clean(TrainCL.TrainingRecord("trn_specific_code"])
iCurrCol++;
}
}
else
{
sSubHeading = modGlobal.Clean(TrainCL.TrainingRecord["standard_description"]);
//UPGRADE_WARNING: (1068) GetVal() of type Variant is being forced to int. More Information: http://www.vbtonet.com/ewis/ewi1068.aspx
iReportColumn = Convert.ToInt32(modGlobal.GetVal(TrainCL.TrainingRecord["report_column"]));
ViewModel.sprReport.Text = sSubHeading;
ViewModel.sprReport.Row = iCurrRow + 1;
ViewModel.sprReport.Text = modGlobal.Clean(TrainCL.TrainingRecord["description"]);
ViewModel.sprReport.Row = iCurrRow + 2;
ViewModel.sprReport.Text = iReportColumn.ToString();
iCurrCol++;
}
TrainCL.TrainingRecord.MoveNext();
}
;
}
private void cboPrimary_TextChanged(Object eventSender, System.EventArgs eventArgs)
{
if (ViewModel.cboPrimary.Clicked)
{
//Load cboSecondary combobox
PTSProject.clsTraining TrainCL = Container.Resolve <clsTraining>();
if (ViewModel.cboPrimary.ListIndex == -1)
{
return;
}
ViewModel.cboHours.Text = "";
ViewModel.frmProvInst.Visible = false;
ViewModel.chkInstructor.CheckState = UpgradeHelpers.Helpers.CheckState.Unchecked;
ViewModel.chkProvider.CheckState = UpgradeHelpers.Helpers.CheckState.Unchecked;
ViewModel.frmCategories.Visible = false;
ViewModel.OptCat1.Checked = false;
ViewModel.OptCat2.Checked = false;
ViewModel.OptCat3.Checked = false;
ViewModel.OptCat4.Checked = false;
ViewModel.frmPassFail.Visible = false;
ViewModel.optPass.Checked = false;
ViewModel.optFail.Checked = false;
ViewModel.cboSecondary.ListIndex = -1;
ViewModel.cboSecondary.Clear();
ViewModel.lstSpecific.Items.Clear();
if (ViewModel.FieldOnly)
{
//UPGRADE_ISSUE: (2064) LpADOLib.fpComboAdo property cboPrimary.ItemData was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx
if (TrainCL.GetSecondaryCodesForField(ViewModel.cboPrimary.ItemData(ViewModel.cboPrimary.ListIndex)) != 0)
{
//continue
}
else
{
return;
}
}
else
{
//UPGRADE_ISSUE: (2064) LpADOLib.fpComboAdo property cboPrimary.ItemData was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx
if (TrainCL.GetSecondaryCodesByPrimary(ViewModel.cboPrimary.ItemData(ViewModel.cboPrimary.ListIndex)) != 0)
{
//continue
}
else
{
return;
}
}
while (!TrainCL.TrainingSecondaryCode.EOF)
{
ViewModel.cboSecondary.AddItem(modGlobal.Clean(TrainCL.TrainingSecondaryCode["description"]));
//UPGRADE_ISSUE: (2064) LpADOLib.fpComboAdo property cboSecondary.NewIndex was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx
//UPGRADE_ISSUE: (2064) LpADOLib.fpComboAdo property cboSecondary.ItemData was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx
ViewModel.cboSecondary.setItemData(Convert.ToInt32(TrainCL.TrainingSecondaryCode["trn_secondary_code"]), ViewModel.cboSecondary.getNewIndex());
TrainCL.TrainingSecondaryCode.MoveNext();
}
;
CheckForSave();
}
ViewModel.cboPrimary.Clicked = false;
}
public void RefreshEmployeeGrid()
{
PTSProject.clsTraining clEmployee = Container.Resolve <clsTraining>();
int iGroup = 0;
int iYear = 0;
//Clear Employee Grid
ViewModel.sprEmployeeList.MaxRows = 500;
ViewModel.sprEmployeeList.Row = 1;
ViewModel.sprEmployeeList.Row2 = ViewModel.sprEmployeeList.MaxRows;
ViewModel.sprEmployeeList.Col = 1;
ViewModel.sprEmployeeList.Col2 = ViewModel.sprEmployeeList.MaxCols;
ViewModel.sprEmployeeList.BlockMode = true;
ViewModel.sprEmployeeList.Text = "";
ViewModel.sprEmployeeList.BackColor = modGlobal.Shared.WHITE;
ViewModel.sprEmployeeList.BlockMode = false;
//UPGRADE_ISSUE: (2064) FPSpreadADO.fpSpread method sprEmployeeList.ClearSelection was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx
ViewModel.sprEmployeeList.ClearSelection();
// 'Fill Employee Grid
if (ViewModel.cboYear.SelectedIndex == -1)
{
iYear = 0;
}
else
{
//UPGRADE_WARNING: (1068) GetVal() of type Variant is being forced to int. More Information: http://www.vbtonet.com/ewis/ewi1068.aspx
iYear = Convert.ToInt32(modGlobal.GetVal(ViewModel.cboYear.Text));
}
if (ViewModel.optFGrp[0].Checked)
{
iGroup = 0;
}
else if (ViewModel.optFGrp[1].Checked)
{
iGroup = 1;
}
else if (ViewModel.optFGrp[2].Checked)
{
iGroup = 2;
}
else if (ViewModel.optFGrp[3].Checked)
{
iGroup = 3;
}
else
{
iGroup = 0;
}
if (clEmployee.GetParamedicList(iGroup, iYear) != 0)
{
}
else
{
ViewManager.ShowMessage("Oooops! There were no Paramedics retrieved.", "No Paramedics ??", UpgradeHelpers.Helpers.BoxButtons.OK);
return;
}
int GridRow = 0;
while (!clEmployee.Employee.EOF)
{
GridRow++;
ViewModel.sprEmployeeList.MaxRows = GridRow;
ViewModel.sprEmployeeList.Row = GridRow;
ViewModel.sprEmployeeList.Col = 1;
ViewModel.sprEmployeeList.Lock = true;
ViewModel.sprEmployeeList.TypeHAlign = FarPoint.ViewModels.CellHorizontalAlignment.Center;
ViewModel.sprEmployeeList.Text = modGlobal.Clean(clEmployee.Employee["sap_id"]);
ViewModel.sprEmployeeList.Col = 2;
ViewModel.sprEmployeeList.Lock = true;
ViewModel.sprEmployeeList.Text = modGlobal.Clean(clEmployee.Employee["name_full"]);
ViewModel.sprEmployeeList.Col = 3;
ViewModel.sprEmployeeList.Lock = true;
ViewModel.sprEmployeeList.TypeHAlign = FarPoint.ViewModels.CellHorizontalAlignment.Center;
//UPGRADE_WARNING: (1068) GetVal(clEmployee.Employee(group_number)) of type Variant is being forced to double. More Information: http://www.vbtonet.com/ewis/ewi1068.aspx
if (modGlobal.Clean(clEmployee.Employee["group_number"]) == "")
{
ViewModel.sprEmployeeList.Text = "";
}
else if (Convert.ToDouble(modGlobal.GetVal(clEmployee.Employee["group_number"])) == 0)
{
ViewModel.sprEmployeeList.Text = "";
}
else
{
//UPGRADE_WARNING: (1068) GetVal() of type Variant is being forced to string. More Information: http://www.vbtonet.com/ewis/ewi1068.aspx
ViewModel.sprEmployeeList.Text = Convert.ToString(modGlobal.GetVal(clEmployee.Employee["group_number"]));
}
ViewModel.sprEmployeeList.Col = 4;
ViewModel.sprEmployeeList.Lock = true;
ViewModel.sprEmployeeList.TypeHAlign = FarPoint.ViewModels.CellHorizontalAlignment.Center;
ViewModel.sprEmployeeList.Text = modGlobal.Clean(clEmployee.Employee["unit_code"]);
ViewModel.sprEmployeeList.Col = 5;
ViewModel.sprEmployeeList.Lock = true;
ViewModel.sprEmployeeList.TypeHAlign = FarPoint.ViewModels.CellHorizontalAlignment.Center;
ViewModel.sprEmployeeList.Text = modGlobal.Clean(clEmployee.Employee["shift_code"]);
ViewModel.sprEmployeeList.Col = 6;
ViewModel.sprEmployeeList.Lock = true;
ViewModel.sprEmployeeList.TypeHAlign = FarPoint.ViewModels.CellHorizontalAlignment.Center;
ViewModel.sprEmployeeList.Text = modGlobal.Clean(clEmployee.Employee["position_code"]);
ViewModel.sprEmployeeList.Col = 7;
ViewModel.sprEmployeeList.Lock = true;
ViewModel.sprEmployeeList.TypeHAlign = FarPoint.ViewModels.CellHorizontalAlignment.Center;
if (modGlobal.Clean(clEmployee.Employee["recert_date"]) == "")
{
ViewModel.sprEmployeeList.Text = "";
}
else
{
ViewModel.sprEmployeeList.Text = Convert.ToDateTime(clEmployee.Employee["recert_date"]).ToString("M/d/yyyy");
}
ViewModel.sprEmployeeList.Col = 8;
//UPGRADE_WARNING: (1068) GetVal() of type Variant is being forced to string. More Information: http://www.vbtonet.com/ewis/ewi1068.aspx
ViewModel.sprEmployeeList.Text = Convert.ToString(modGlobal.GetVal(clEmployee.Employee["per_sys_id"]));
clEmployee.Employee.MoveNext();
}
;
if (GridRow > 0)
{
ViewModel.sprEmployeeList.MaxRows = GridRow;
}
else
{
ViewModel.sprEmployeeList.MaxRows = 1;
}
ViewModel.lbCount.Text = "List Count: " + GridRow.ToString();
ViewModel.sprEmployeeList.Protect = true;
ViewModel.CurrPersID = 0;
ViewModel.SelectedEmpRow = 0;
ViewModel.RecordExists = false;
}
private void FormatHeadings()
{
PTSProject.clsTraining TrainCL = Container.Resolve< clsTraining>();
if ( ViewModel.FirstTime)
{
return;
}
ViewModel.sprReport2.Row = 3;
ViewModel.sprReport2.Row2 = 5;
ViewModel.sprReport2.Col = 1;
ViewModel.sprReport2.Col2 = ViewModel.sprReport2.MaxCols;
ViewModel.sprReport2.BlockMode = true;
ViewModel.sprReport2.Text = "";
ViewModel.sprReport2.BlockMode = false;
string sHeading = "Paramedic Recertification Report From ";
sHeading = sHeading + ViewModel.dtStart.Text + " Thru " + ViewModel.dtEnd.Text;
ViewModel.sprReport2.Row = 2;
ViewModel.sprReport2.Col = 1;
ViewModel.sprReport2.Text = sHeading;
ViewModel.sprReport2.Row = 3;
ViewModel.sprReport2.Col = 1;
ViewModel.sprReport2.Text = "Name";
ViewModel.sprReport2.Col = 2;
ViewModel.sprReport2.Text = "Unit Shift";
ViewModel.sprReport2.Col = 3;
ViewModel.sprReport2.Text = "Grp";
ViewModel.sprReport2.Col = 4;
ViewModel.sprReport2.Text = "Certification Expiration";
//ACLS
ViewModel.sprReport2.Row = 4;
ViewModel.sprReport2.Col = 5;
ViewModel.sprReport2.Text = "Year";
ViewModel.sprReport2.Col = 6;
ViewModel.sprReport2.Text = "Hrs";
//Airway - PAM
ViewModel.sprReport2.Col = 7;
ViewModel.sprReport2.Text = "Year";
ViewModel.sprReport2.Col = 8;
ViewModel.sprReport2.Text = "Hrs";
//Airway - R1
ViewModel.sprReport2.Col = 9;
ViewModel.sprReport2.Text = "Year";
ViewModel.sprReport2.Col = 10;
ViewModel.sprReport2.Text = "Hrs";
//Airway - R2
ViewModel.sprReport2.Col = 11;
ViewModel.sprReport2.Text = "Year";
ViewModel.sprReport2.Col = 12;
ViewModel.sprReport2.Text = "Hrs";
//PHTLS
ViewModel.sprReport2.Col = 13;
ViewModel.sprReport2.Text = "Year";
ViewModel.sprReport2.Col = 14;
ViewModel.sprReport2.Text = "Hrs";
//Trauma
ViewModel.sprReport2.Col = 15;
ViewModel.sprReport2.Text = "Year";
ViewModel.sprReport2.Col = 16;
ViewModel.sprReport2.Text = "Hrs";
//AMLS
ViewModel.sprReport2.Col = 17;
ViewModel.sprReport2.Text = "Year";
ViewModel.sprReport2.Col = 18;
ViewModel.sprReport2.Text = "Hrs";
//Medical
ViewModel.sprReport2.Col = 19;
ViewModel.sprReport2.Text = "Year";
ViewModel.sprReport2.Col = 20;
ViewModel.sprReport2.Text = "Hrs";
//PALS
ViewModel.sprReport2.Col = 21;
ViewModel.sprReport2.Text = "Year";
ViewModel.sprReport2.Col = 22;
ViewModel.sprReport2.Text = "Hrs";
//Pediatrics
ViewModel.sprReport2.Col = 23;
ViewModel.sprReport2.Text = "Year";
ViewModel.sprReport2.Col = 24;
ViewModel.sprReport2.Text = "Hrs";
if (TrainCL.GetTrainingParamedicRecertClasses() != 0)
{
//continue
}
else
{
ViewManager.ShowMessage("Oh No! There are no Training Paramedic Recertification Class for Report!", "Training Annual OTEP Report", UpgradeHelpers.Helpers.BoxButtons.OK);
return;
}
int iCurrRow = 3;
int iCodeRow = 5;
int iReportColumn = 1;
while(!TrainCL.TrainingRecord.EOF)
{
//UPGRADE_WARNING: (1068) GetVal() of type Variant is being forced to int. More Information: http://www.vbtonet.com/ewis/ewi1068.aspx
iReportColumn = Convert.ToInt32(modGlobal.GetVal(TrainCL.TrainingRecord["report_column"]));
ViewModel.sprReport2.Row = iCurrRow;
ViewModel.sprReport2.Col = iReportColumn;
ViewModel.sprReport2.Text = modGlobal.Clean(TrainCL.TrainingRecord["description"]);
ViewModel.sprReport2.Row = iCodeRow;
ViewModel.sprReport2.Text = iReportColumn.ToString();
ViewModel.sprReport2.Col = iReportColumn + 1;
ViewModel.sprReport2.Text = modGlobal.Clean(TrainCL.TrainingRecord["number_of_cols"]);
TrainCL.TrainingRecord.MoveNext();
}
;
}
//*************************************************************
// TFD Training Paramedic Recertification
// Paramedics Filtered by DateRane, Battalion/Shift
//*************************************************************
private void FormatReport()
{
PTSProject.clsTraining TrainCL = Container.Resolve< clsTraining>();
bool bDisplay = false;
if ( ViewModel.FirstTime)
{
return;
}
ViewModel.sprReport2.Row = 6;
ViewModel.sprReport2.Row2 = ViewModel.sprReport2.MaxRows;
ViewModel.sprReport2.Col = 1;
ViewModel.sprReport2.Col2 = ViewModel.sprReport2.MaxCols;
ViewModel.sprReport2.BlockMode = true;
ViewModel.sprReport2.Text = "";
ViewModel.sprReport2.BlockMode = false;
if (TrainCL.GetTrainingPMRecertificationReport(ViewModel.dtStart.Text, ViewModel.dtEnd.Text, ViewModel.CurrBatt, ViewModel.CurrShift, ViewModel.CurrGroup) != 0)
{
//continue
}
else
{
ViewManager.ShowMessage("There are no Employee/Training Records to report!", "Training Paramedic Recertification", UpgradeHelpers.Helpers.BoxButtons.OK);
return;
}
string sEmployeeName = "";
int iCodeRow = 5;
int iCurrRow = 6;
int iCurrCol = 1;
while(!TrainCL.TrainingRecord.EOF)
{
ViewModel.sprReport2.Row = iCurrRow;
ViewModel.sprReport2.Col = iCurrCol;
bDisplay = false;
if (sEmployeeName == "")
{ //first time
sEmployeeName = modGlobal.Clean(TrainCL.TrainingRecord["name_full"]);
ViewModel.sprReport2.Text = sEmployeeName;
ViewModel.sprReport2.Col = iCurrCol + 1;
if (modGlobal.Clean(TrainCL.TrainingRecord["shift_code"]) == "")
{
ViewModel.sprReport2.Text = modGlobal.Clean(TrainCL.TrainingRecord["unit_code"]);
}
else if (modGlobal.Clean(TrainCL.TrainingRecord["shift_code"]) == "*")
{
ViewModel.sprReport2.Text = modGlobal.Clean(TrainCL.TrainingRecord["unit_code"]);
}
else
{
ViewModel.sprReport2.Text = modGlobal.Clean(TrainCL.TrainingRecord["unit_code"]) + " " +
modGlobal.Clean(TrainCL.TrainingRecord["shift_code"]);
}
ViewModel.sprReport2.Col = iCurrCol + 2;
ViewModel.sprReport2.Text = modGlobal.Clean(TrainCL.TrainingRecord["group_number"]);
ViewModel.sprReport2.Col = iCurrCol + 3;
if (modGlobal.Clean(TrainCL.TrainingRecord["recert_date"]) == "")
{
ViewModel.sprReport2.Text = "";
}
else
{
ViewModel.sprReport2.Text = Convert.ToDateTime(TrainCL.TrainingRecord["recert_date"]).ToString("M/d/yyyy");
}
if (modGlobal.Clean(TrainCL.TrainingRecord["report_column"]) != "")
{
ViewModel.sprReport2.Row = iCodeRow;
int tempForVar = ViewModel.sprReport2.MaxCols;
for (int i = 5; i <= tempForVar; i++)
{
ViewModel.sprReport2.Col = i;
if (modGlobal.Clean(TrainCL.TrainingRecord["report_column"]) == modGlobal.Clean(ViewModel.sprReport2.Text))
{
ViewModel.sprReport2.Col = i + 1;
//UPGRADE_WARNING: (1068) GetVal(sprReport2.Text) of type Variant is being forced to double. More Information: http://www.vbtonet.com/ewis/ewi1068.aspx
if (Convert.ToDouble(modGlobal.GetVal(ViewModel.sprReport2.Text)) == 3)
{
bDisplay = true;
}
ViewModel.sprReport2.Col = i;
ViewModel.sprReport2.Row = iCurrRow;
if (modGlobal.Clean(TrainCL.TrainingRecord["LatestDate"]) != "")
{
ViewModel.sprReport2.Text = modGlobal.Clean(TrainCL.TrainingRecord["LatestDate"]);
ViewModel.sprReport2.Col = i + 1;
ViewModel.sprReport2.Text = modGlobal.Clean(TrainCL.TrainingRecord["TotalHours"]);
// If bDisplay Then
// sprReport2.Col = i + 2
// sprReport2.Text = Clean(TrainCL.TrainingRecord("FlagComment"])
// End If
}
break;
}
}
}
}
else if (sEmployeeName == modGlobal.Clean(TrainCL.TrainingRecord["name_full"]))
{
if (modGlobal.Clean(TrainCL.TrainingRecord["report_column"]) != "")
{
ViewModel.sprReport2.Row = iCodeRow;
int tempForVar2 = ViewModel.sprReport2.MaxCols;
for (int i = 5; i <= tempForVar2; i++)
{
ViewModel.sprReport2.Col = i;
if (modGlobal.Clean(TrainCL.TrainingRecord["report_column"]) == modGlobal.Clean(ViewModel.sprReport2.Text))
{
ViewModel.sprReport2.Col = i + 1;
//UPGRADE_WARNING: (1068) GetVal(sprReport2.Text) of type Variant is being forced to double. More Information: http://www.vbtonet.com/ewis/ewi1068.aspx
if (Convert.ToDouble(modGlobal.GetVal(ViewModel.sprReport2.Text)) == 3)
{
bDisplay = true;
}
ViewModel.sprReport2.Col = i;
ViewModel.sprReport2.Row = iCurrRow;
if (modGlobal.Clean(TrainCL.TrainingRecord["LatestDate"]) != "")
{
ViewModel.sprReport2.Text = modGlobal.Clean(TrainCL.TrainingRecord["LatestDate"]);
ViewModel.sprReport2.Col = i + 1;
ViewModel.sprReport2.Text = modGlobal.Clean(TrainCL.TrainingRecord["TotalHours"]);
// If bDisplay Then
// sprReport2.Col = i + 2
// sprReport2.Text = Clean(TrainCL.TrainingRecord("FlagComment"])
// End If
}
break;
}
}
}
}
else
{
iCurrRow++;
ViewModel.sprReport2.Row = iCurrRow;
sEmployeeName = modGlobal.Clean(TrainCL.TrainingRecord["name_full"]);
ViewModel.sprReport2.Text = sEmployeeName;
ViewModel.sprReport2.Col = iCurrCol + 1;
if (modGlobal.Clean(TrainCL.TrainingRecord["shift_code"]) == "")
{
ViewModel.sprReport2.Text = modGlobal.Clean(TrainCL.TrainingRecord["unit_code"]);
}
else if (modGlobal.Clean(TrainCL.TrainingRecord["shift_code"]) == "*")
{
ViewModel.sprReport2.Text = modGlobal.Clean(TrainCL.TrainingRecord["unit_code"]);
}
else
{
ViewModel.sprReport2.Text = modGlobal.Clean(TrainCL.TrainingRecord["unit_code"]) + " " +
modGlobal.Clean(TrainCL.TrainingRecord["shift_code"]);
}
ViewModel.sprReport2.Col = iCurrCol + 2;
if (modGlobal.Clean(TrainCL.TrainingRecord["group_number"]) == "0")
{
ViewModel.sprReport2.Text = "";
}
else
{
ViewModel.sprReport2.Text = modGlobal.Clean(TrainCL.TrainingRecord["group_number"]);
}
ViewModel.sprReport2.Col = iCurrCol + 3;
if (modGlobal.Clean(TrainCL.TrainingRecord["recert_date"]) == "")
{
ViewModel.sprReport2.Text = "";
}
else
{
ViewModel.sprReport2.Text = Convert.ToDateTime(TrainCL.TrainingRecord["recert_date"]).ToString("M/d/yyyy");
}
if (modGlobal.Clean(TrainCL.TrainingRecord["report_column"]) != "")
{
ViewModel.sprReport2.Row = iCodeRow;
int tempForVar3 = ViewModel.sprReport2.MaxCols;
for (int i = 5; i <= tempForVar3; i++)
{
ViewModel.sprReport2.Col = i;
if (modGlobal.Clean(TrainCL.TrainingRecord["report_column"]) == modGlobal.Clean(ViewModel.sprReport2.Text))
{
ViewModel.sprReport2.Col = i + 1;
//UPGRADE_WARNING: (1068) GetVal(sprReport2.Text) of type Variant is being forced to double. More Information: http://www.vbtonet.com/ewis/ewi1068.aspx
if (Convert.ToDouble(modGlobal.GetVal(ViewModel.sprReport2.Text)) == 3)
{
bDisplay = true;
}
ViewModel.sprReport2.Col = i;
ViewModel.sprReport2.Row = iCurrRow;
if (modGlobal.Clean(TrainCL.TrainingRecord["LatestDate"]) != "")
{
ViewModel.sprReport2.Text = modGlobal.Clean(TrainCL.TrainingRecord["LatestDate"]);
ViewModel.sprReport2.Col = i + 1;
ViewModel.sprReport2.Text = modGlobal.Clean(TrainCL.TrainingRecord["TotalHours"]);
if (bDisplay)
{
ViewModel.sprReport2.Col = i + 2;
ViewModel.sprReport2.Text = modGlobal.Clean(TrainCL.TrainingRecord["FlagComment"]);
}
}
break;
}
}
}
}
TrainCL.TrainingRecord.MoveNext();
}
;
}
