//********************************************************
// 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 = "";
}
}