public void RefreshSummaryFields()
{
var LIndex = 0;
var Table_ListIndex = 0;
System.Data.DataSet rsSelected = null;
if (My.MyProject.Forms.frmIndicatorReportSetup.lstHeading.SelectedIndex == -1)
{
goto DoneRefreshSummaryFields;
}
//
//retrieve the list of Indicators
//
modGlobal.gv_sql = "Select * from vuSummaryFieldNames order by fieldname";
modGlobal.gv_rs = modGlobal.gv_cn.OpenResultset(modGlobal.gv_sql, RDO.ResultsetTypeConstants.rdOpenStatic);
//
//
//
modGlobal.gv_sql = "select * from vuDenominatorSummaryFields where SubGroupID = " + Microsoft.VisualBasic.Compatibility.VB6.Support.GetItemData(My.MyProject.Forms.frmIndicatorReportSetup.lstHeading, My.MyProject.Forms.frmIndicatorReportSetup.lstHeading.SelectedIndex);
rsSelected = modGlobal.gv_cn.OpenResultset(modGlobal.gv_sql, RDO.ResultsetTypeConstants.rdOpenStatic);
//
//fill the list box
//
lstSummaryFields.Items.Clear();
//UPGRADE_WARNING: Couldn't resolve default property of object Table_ListIndex. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
Table_ListIndex = -1;
//UPGRADE_WARNING: Couldn't resolve default property of object LIndex. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
LIndex = -1;
while (!modGlobal.gv_rs.EOF)
{
//UPGRADE_WARNING: Couldn't resolve default property of object LIndex. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
LIndex = LIndex + 1;
//UPGRADE_WARNING: Couldn't resolve default property of object LIndex. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
//UPGRADE_WARNING: Couldn't resolve default property of object Table_ListIndex. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
Table_ListIndex = LIndex;
lstSummaryFields.Items.Add(new Microsoft.VisualBasic.Compatibility.VB6.ListBoxItem(modGlobal.gv_rs.rdoColumns["FieldName"].Value + " (" + modGlobal.gv_rs.rdoColumns["SubGroupID"].Value + ")", modGlobal.gv_rs.rdoColumns["SubGroupID"].Value));
if (rsSelected.RowCount > 0)
{
rsSelected.MoveFirst();
while (!rsSelected.EOF)
{
if (Strings.Trim(rsSelected.rdoColumns["FieldName"].Value) == Strings.Trim(modGlobal.gv_rs.rdoColumns["FieldName"].Value))
{
//UPGRADE_ISSUE: ListBox property lstSummaryFields.NewIndex was not upgraded. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="F649E068-7137-45E5-AC20-4D80A3CC70AC"'
lstSummaryFields.SetItemChecked(lstSummaryFields.NewIndex, true);
}
rsSelected.MoveNext();
}
}
modGlobal.gv_rs.MoveNext();
}
rsSelected.Close();
// DoneRefreshSummaryFields:
}
private void cmdPrint_Click(System.Object eventSender, System.EventArgs eventArgs)
{
Printer Printer = new Printer();
short Index = 0;
int li_cnt = 0;
System.Data.DataSet rsTemp = null;
// Printer.Print MSRDCGroups.Resultset!CriteriaTitle
rsTemp = MSRDCGroups.Resultset;
rsTemp.MoveFirst();
while (!rsTemp.EOF)
{
Printer.Print(FileSystem.TAB(15), rsTemp.rdoColumns["CriteriaTitle"]);
rsTemp.MoveNext();
}
Printer.Print("End of Saved Logic List");
Printer.EndDoc();
}
private void RefreshParentCriteria()
{
string ls_display = null;
System.Data.DataSet rs_Criteria = null;
int li_SetCnt = 0;
short li_SetIndex = 0;
string ls_SetJoinOp = null;
int li_MaxSet = 0;
lstAnswerCriteria.Items.Clear();
modGlobal.gv_sql = "SELECT CMSParentAnswerCriteriaSet, JoinOperator FROM tbl_Setup_CMSParentAnswerCriteriaSet " + " WHERE CMSParentCDID = " + Microsoft.VisualBasic.Compatibility.VB6.Support.GetItemData(lstParents, lstParents.SelectedIndex) + " ORDER BY CMSParentAnswerCriteriaSet";
modGlobal.gv_rs = modGlobal.gv_cn.OpenResultset(modGlobal.gv_sql, RDO.ResultsetTypeConstants.rdOpenKeyset);
if (!modGlobal.gv_rs.EOF)
{
modGlobal.gv_rs.MoveLast();
li_MaxSet = modGlobal.gv_rs.RowCount;
modGlobal.gv_rs.MoveFirst();
while (!modGlobal.gv_rs.EOF)
{
ls_SetJoinOp = modGlobal.gv_rs.rdoColumns["JoinOperator"].Value;
modGlobal.gv_sql = "SELECT * FROM tbl_Setup_CMSParentAnswerCriteria " + " WHERE CMSParentCDID = " + Microsoft.VisualBasic.Compatibility.VB6.Support.GetItemData(lstParents, lstParents.SelectedIndex) + " AND CMSParentAnswerCriteriaSet = " + modGlobal.gv_rs.rdoColumns["CMSParentAnswerCriteriaSet"].Value + " ORDER BY CMSParentAnswerCriteriaSet, CMSParentAnswerCriteriaID";
rs_Criteria = modGlobal.gv_cn.OpenResultset(modGlobal.gv_sql, RDO.ResultsetTypeConstants.rdOpenKeyset);
rs_Criteria.MoveLast();
li_SetCnt = rs_Criteria.RowCount;
rs_Criteria.MoveFirst();
li_SetIndex = 0;
ls_display = "SET " + modGlobal.gv_rs.rdoColumns["CMSParentAnswerCriteriaSet"].Value + ": ( ";
while (!rs_Criteria.EOF)
{
li_SetIndex = li_SetIndex + 1;
ls_display = ls_display + " " + rs_Criteria.rdoColumns["CriteriaTitle"].Value;
if (li_SetCnt == li_SetIndex)
{
if (li_SetCnt == 1)
{
ls_display = ls_display + " (" + rs_Criteria.rdoColumns["JoinOperator"].Value + ") )";
}
else
{
ls_display = ls_display + " )";
}
}
else
{
ls_display = ls_display + " " + rs_Criteria.rdoColumns["JoinOperator"].Value + " ";
}
lstAnswerCriteria.Items.Add(new Microsoft.VisualBasic.Compatibility.VB6.ListBoxItem(ls_display, rs_Criteria.rdoColumns["CMSParentAnswerCriteriaID"].Value));
ls_display = "";
rs_Criteria.MoveNext();
}
rs_Criteria.Close();
if (modGlobal.gv_rs.rdoColumns["CMSParentAnswerCriteriaSet"].Value < li_MaxSet)
{
lstAnswerCriteria.Items.Add(ls_SetJoinOp);
}
modGlobal.gv_rs.MoveNext();
}
}
modGlobal.gv_rs.Close();
}
