Volian/SourceCode
8
0
Fork 0
Code Issues Pull Requests 1 Projects Releases Wiki Activity

Better status messages during the retrieval of data for the report

Browse Source 
Improved the Select statement used to get RO data from the database
Status message added
This commit is contained in:
John Jenko 2015-04-17 16:51:51 +00:00
parent efd971ffec
commit f9992cd299
3 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
PROMS/ReferencedObjects/Exe/RefObj/CmpRpt/CmpRpt.cs
View File

@ -29,6 +29,7 @@ using System.Windows.Forms;
using System.IO;
using System.Data;
using RODBInterface;
using VlnStatus;
// CmpRpt reads data for the RO database and puts the data into the
@ -98,7 +99,6 @@ namespace CmpRpt
string recid=null;
string tbl=null;
RODB myrodb=null;
// the next two lists contain group headers for the reports.
ArrayList headers = new ArrayList();
ArrayList reversehdrs = new ArrayList();
@ -148,8 +148,13 @@ namespace CmpRpt
success = myrodb.RODB_GetRootGroups(rootXml);
if (success == false) return;
VlnStatusBar showStatBar = new VlnStatusBar("Complete Referenced Object Report");
showStatBar.BarMax = roIDList.Length;
showStatBar.StatMsg = "Retrieving RO Information";
int inc = 1;
foreach (string roid in roIDList)
{
showStatBar.BarValue = inc++;
Application.DoEvents();
tbl = roid.Substring(0, 4);
recid = (roid.Length > 4) ? roid.Substring(4, 8) : null;
@ -225,7 +230,7 @@ namespace CmpRpt
headers.Clear();
reversehdrs.Clear();
}// end foreach roid
showStatBar.Dispose();
}
private static string BuildROList(string[] args)

7
PROMS/ReferencedObjects/LibSource/RODBInterface/RODBInterface.cs
View File

@ -1638,14 +1638,15 @@ namespace RODBInterface
public VlnXmlElement RODB_ReadRO(string tbl, string recid)
{
VlnXmlElement retele = null;
string readstr = "SELECT ParentID, AccPageID, Info FROM " + tbl + " WHERE "+ ((recid==null)? "ParentID = '00000000'" : ("RecID = '" + recid + "'"));
string readstr = "SELECT ParentID, AccPageID, Info FROM " + tbl + " WHERE "+ ((recid==null)? "RecType=3 and ParentID = '00000000'" : ("RecID = '" + recid + "'"));
try
{
DBE.Command(readstr);
DBE.Reader();
if (recid == null)
DBE.Read(); // skip the first parentID record of 00000000
// With the additional check for a recid=null, in the WHERE statement (above), we now longer need to check and skip for a null recid - jsj 4-17-2015
//if (recid == null)
// DBE.Read(); // skip the first parentID record of 00000000
if (DBE.Read())
{

2
PROMS/ReferencedObjects/LibSource/RODBInterface/VlnXml.cs
View File

@ -1146,7 +1146,7 @@ namespace RODBInterface
if (chldnode is VlnXmlElement)
{
VlnXmlElement elem = (VlnXmlElement) chldnode;
// showStat.StatusMessage = elem.InnerText;
showStat.StatusMessage = elem.InnerText;
// if it's a group, recurse through it.
if (chldnode.Name == "vlnGroup")