function BuildQry()
{
 //Loop through the QueryTrgDIV and get objects
 var qDiv = document.getElementById("QueryTrgDIV");
 var tags = qDiv.getElementsByTagName('*');
 var qStr = '';
 var objvalue = '';
 var strremove = '';
 var DoQry = 'No';
 var operchk = '';
 var ajax = 'Run' + document.getElementById('px').value
 for (i=0; i<tags.length; i++)
  {
   switch (tags[i].tagName)
    {
     case 'INPUT':  
      switch (tags[i].type)
       {
        case 'text':
        if (tags[i].value != "")
         {
                DoQry = "Yes";
         break;
         }
        default:
       }
       break;
     case 'SELECT':
      operchk = tags[i].id.substring(0,9)
       if (tags[i].options[tags[i].selectedIndex].index > 0 && operchk != 'OPERATOR-')
        {
         DoQry = "Yes";
         break;
        }
       default:
     }
     if (DoQry == "Yes")
      {
       objvalue = tags[i].value;
       wObj = 'WEB-' + tags[i].id;
       wTyp = document.getElementById(wObj).value;
       if (wTyp == 'DVAL') 
        {
         strremove = '/';
         for (var j=0;j<strremove.length; j++)
          {
           var re = new RegExp("[" + strremove.charAt(j) + "]", "g");
           objvalue = objvalue.replace(re, "");
           }
        }
        fObj = 'TYPE-' + tags[i].id;
        fTyp = document.getElementById(fObj).value;
        qObj = 'OPERATOR-' + tags[i].id;
        qOpr = document.getElementById(qObj).value;
        rObj = 'RECORD-' + tags[i].id;
        rFld = document.getElementById(rObj).value;
        if (qStr != '' && fTyp == 'A' && qOpr != 'One Of') qStr = qStr + 'and ' + '.' + rFld + ' ' + qOpr + ' "' + objvalue + '"';
        if (qStr == '' && fTyp == 'A' && qOpr != 'One Of') qStr = 'where .' + rFld + ' ' + qOpr + ' "' + objvalue + '"';
        if (qStr != '' && (fTyp == 'N' || qOpr == 'One Of')) qStr = qStr + 'and ' + '.' + rFld + ' ' + qOpr + ' ' + objvalue;
        if (qStr == '' && (fTyp == 'N' || qOpr == 'One Of')) qStr = 'where .' + rFld + ' ' + qOpr + ' ' + objvalue;
        DoQry = "No"
     }
   }
  document.getElementById('querystr').value = qStr
  
        //Run the AJAX call
        eval(ajax + "('MainSrcDIV','DataTrgDIV','GETDATA')")
}

function BuildSrt()
{
  // Check Value 1
        var srt1 = document.getElementById('SRTVal1').value
  if (srt1 != "")
  {
        document.getElementById('SRTVal2').disabled = false
  }
  else
  {
        document.getElementById('SRTDir2A').checked = true
        document.getElementById('SRTVal2').value = ""
        document.getElementById('SRTVal2').disabled = true
  }
  
  // Check Value 2
        var srt2 = document.getElementById('SRTVal2').value
  if (srt2 != "")
  {
        document.getElementById('SRTVal3').disabled = false
  }
  else
  {
        document.getElementById('SRTDir3A').checked = true
        document.getElementById('SRTVal3').value = ""
        document.getElementById('SRTVal3').disabled = true
  }
  
  // Check Value 3
        var srt3 = document.getElementById('SRTVal3').value
  if (srt3 != "")
  {
        document.getElementById('SRTVal4').disabled = false
  }
  else
  {
        document.getElementById('SRTDir4A').checked = true
        document.getElementById('SRTVal4').value = ""
        document.getElementById('SRTVal4').disabled = true
  }
}

function PrintContent(ContentsOf)
{
 var DocContainer = document.getElementById(ContentsOf);
 var WinObj = window.open('', "ContentToPrint","width=940,height=325,top=200,left=250,toolbars=no,scrollbars=yes,status=no,resizable=no");
 WinObj.document.writeln(DocContainer.innerHTML);
 WinObj.document.close();
 WinObj.focus();
 WinObj.print();
 WinObj.close();
}

function IMGcontrol(imgbutton,action)
{
 // Get the button current status
 var imgtxtval = imgbutton + "txt"
 var imgstatusstr = document.getElementById(imgtxtval).value
 var altmsg = ""
 var imgbtn = 'btn' + imgbutton
 var imgext = imgbutton + 'ext'
 var ext = document.getElementById(imgext).value
 var imgdir = document.getElementById('pximg').value
 var ajax = 'Run' + document.getElementById('px').value

 // Enable a button
 if (action == "enable")
  {
   if (imgbutton == "sav") altmsg = "Save Values"
   if (imgbutton == "exp") altmsg = "Export Data to a Spreadsheet"
   if (imgbutton == "prn") altmsg = "Print a Report"
   if (imgbutton == "ftr") altmsg = "Search the Data"
   if (imgbutton == "res") altmsg = "Clear Fields"
   if (imgbutton == "bld") altmsg = "Admin Mode"
   if (imgbutton == "rep") altmsg = "Return to Query Mode"
   if (imgbutton == "new") altmsg = "Create a new Collection"
   if (imgbutton == "del") altmsg = "Delete"
   document.getElementById(imgbtn).src = imgdir + "on_" + imgbutton + ext
   document.getElementById(imgtxtval).value = "enabled"
   document.getElementById(imgbtn).title = altmsg
   document.getElementById(imgbtn).alt = altmsg
  }

 // Disable a button
 if (action == "disable")
  {
   altmsg = "Button is Disabled"
   document.getElementById(imgbtn).src = imgdir + "off_" + imgbutton + ext
   document.getElementById(imgtxtval).value = "disabled"
   document.getElementById(imgbtn).title = altmsg
   document.getElementById(imgbtn).alt = altmsg
  }

 // Mouse Over Action
 if (action == "over" && imgstatusstr == "enabled")
  {
   document.getElementById(imgbtn).src = imgdir + "over_" + imgbutton + ext
  }

 // Mouse Out Action
 if (action == "out" && imgstatusstr == "enabled")
  {
   document.getElementById(imgbtn).src = imgdir + "on_" + imgbutton + ext
  }

 // Click Action
 if (action == "click" && imgstatusstr != "disabled" && imgbutton == "prn")
  {
   PrintContent('DataTrgDIV')
  }
 if(action == "click" && imgstatusstr != "disabled" && imgbutton == "sav")
  {
   var pxmode = document.getElementById('pxmode').value
   if(pxmode == 'query') eval(ajax + "('MainSrcDIV','MsgTrgDIV','SAVREP')")
   if(pxmode == 'edit') eval(ajax + "('MainSrcDIV','MsgTrgDIV','SAVQRY')")
  }
 if(action == "click" && imgstatusstr != "disabled" && imgbutton == "del")
  {
   var pxmode = document.getElementById('pxmode').value
   if(pxmode == 'query') eval(ajax + "('MainSrcDIV','MsgTrgDIV','DELREP')")
   if(pxmode == 'edit') eval(ajax + "('MainSrcDIV','MsgTrgDIV','DELCOL')")
  }
 if(action == "click" && imgstatusstr != "disabled" && imgbutton == "exp")
  {
   eval(ajax + "('MainSrcDIV','MsgTrgDIV','EXPDTA')")
  }
 if(action == "click" && imgstatusstr != "disabled" && imgbutton == "ftr")
  {
   BuildQry()
  }
 if(action == "click" && imgstatusstr != "disabled" && imgbutton == "res")
  {
   ResFlds()
  }
 if(action == "click" && imgstatusstr != "disabled" && imgbutton == "bld")
  {
   EditMode()
   document.getElementById('DataTrgDIV').innerHTML = '<img id="pxquery" src="' +
 imgdir + 'pxquery.gif" style="margin-left: 5px; margin-top: 5px;" />'
   document.getElementById('MsgTrgDIV').innerHTML = ''
  }
 if(action == "click" && imgstatusstr != "disabled" && imgbutton == "rep")
  {
   QryMode()
  }
 if(action == "click" && imgstatusstr != "disabled" && imgbutton == "new")
  {
        eval(ajax + "('MainSrcDIV','EdtColTrgDIV','NEWCOL')")
        //EditMode()
  }
}

function QrySav()
{
 //Make sure we have a valid File Name
 var fnme = document.getElementById('savereport').value
 var ferr = "NO"
 if(fnme == '') ferr = "The report name can not be left blank."
 if (fnme.indexOf("'")!=-1) ferr = "The report name can not contain an apostrophe."
 if (fnme.indexOf('"')!=-1) ferr = "The report name can not contain a quote."
 var ajax = 'Run' + document.getElementById('px').value
 if(ferr != "NO")
  {
        alert('An invalid report name was entered. ' + ferr)
    document.getElementById('savereport').focus()
    return false;
  }
  
 //Loop through the QueryTrgDIV and get objects
 var qDiv = document.getElementById("QueryTrgDIV");
 var tags = qDiv.getElementsByTagName('*');
 var sCmd = ''
 var sCnt = 1
 for (i=0; i<tags.length; i++)
  {
   tNme = tags[i].tagName;
   nTyp = tags[i].type
   operchk = tags[i].id.substring(0,9)
   if((tNme == 'INPUT' && nTyp == 'text') || (tNme == 'SELECT' && operchk != 'OPERATOR-'))
       {
         qRec = tags[i].id;
         oobj = 'OPERATOR-' + qRec
         oval = document.getElementById(oobj).value
         sCmd = qRec + '/record/blankok ".defval=' + tags[i].value + ',.operator=' + oval + '"';
         objval = 'objcmd' + sCnt;
         document.getElementById(objval).value = sCmd;
         sCnt = sCnt + 1;
       }
   }
 
 //Loop through the FieldsTrgDIV and get objects
 var fDiv = document.getElementById("FieldsTrgDIV");
 var tags = fDiv.getElementsByTagName('*');
 var sCmd = ''
 var sCnt = 1
 for (i=0; i<tags.length; i++)
  {
   tNme = tags[i].tagName;
   nTyp = tags[i].type
   if(tNme == 'INPUT' && nTyp == 'checkbox')
       {
         fRec = tags[i].id;
         var fval = ""
         if (document.getElementById(fRec).checked == true) fval = "Y";
         fobj = "fld" + fRec.substr(3,fRec.length);
         fnme = document.getElementById(fobj).value;
         dobj = "disporder" + fRec.substr(3,fRec.length);
         dor = document.getElementById(dobj).value;
         sCmd = fnme + '/blankok ".repchk=' + fval + ', .displayorder=' + dor + '"';
         objval = 'fldcmd' + sCnt;
         document.getElementById(objval).value = sCmd;
         sCnt = sCnt + 1;
       }
   }
   
   //Run the Ajax Call
   eval(ajax + "('MainSrcDIV','MsgTrgDIV','SAVDTA')")
}

function CalCall(divstr,objstr,ancstr)
{
  var cal1 = new CalendarPopup(divstr);
  cal1.showYearNavigation();
  cal1.offsetX = 40;
  cal1.offsetY = 0;
  cal1.select(document.getElementById(objstr),ancstr,'MM/dd/yyyy');
  return false;
}

function ResFlds()
{
 //Loop through the QueryTrgDIV
 var qDiv = document.getElementById("QueryTrgDIV");
 var tags = qDiv.getElementsByTagName('*');
 for (i=0; i<tags.length; i++)
  {
   tNme = tags[i].tagName;
   nTyp = tags[i].type
   if((tNme == 'INPUT' && nTyp == 'text') || tNme == 'SELECT')
    {
      qRec = tags[i].id;
      document.getElementById(qRec).value = ''
     }
   if(tNme == 'INPUT' && nTyp == 'checkbox')
    {
      fRec = tags[i].id;
      document.getElementById(fRec).checked = false
     }
  }
  
 //Loop through the FieldsTrg DIV
 var fDiv = document.getElementById("FieldsTrgDIV");
 var tags = fDiv.getElementsByTagName('*');
 for (i=0; i<tags.length; i++)
  {
   tNme = tags[i].tagName;
   nTyp = tags[i].type
   if(tNme == 'INPUT' && nTyp == 'checkbox')
    {
      fRec = tags[i].id;
      document.getElementById(fRec).checked = false
     }
  }
  
  //Reset the Sort Fields
  document.getElementById('SRTVal1').value = ''
        document.getElementById('SRTDir1A').checked = true
  BuildSrt()
}

function EditMode()
{
        //Set up the look and feel to edit mode
        document.getElementById('ModeTrgSPAN').innerHTML = 'Admin Mode'
        document.getElementById('pxmode').value = "edit"
  var ajax = 'Run' + document.getElementById('px').value
        IMGcontrol('bld','disable')
  IMGcontrol('rep','enable')
  IMGcontrol('new','enable')
  IMGcontrol('sav','disable')
  IMGcontrol('exp','disable')
  IMGcontrol('res','disable')
  IMGcontrol('prn','disable')
  IMGcontrol('del','disable')
  document.getElementById('btnfilter').style.visibility = "hidden"
  document.getElementById('module').disabled = false
  document.getElementById('RepSpan').innerHTML = "&nbsp;"
  document.getElementById('RepTrgDIV').innerHTML = "&nbsp;"
  eval(ajax + "('MainSrcDIV','QryTrgDIV','EDIT_SETUP')")
}

function QryMode()
{
        //Set up the look and feel to query mode
        document.getElementById('ModeTrgSPAN').innerHTML = 'Query Mode'
        document.getElementById('pxmode').value = "query"
        var ajax = 'Run' + document.getElementById('px').value
        IMGcontrol('bld','enable')
  IMGcontrol('rep','disable')
  IMGcontrol('new','disable')
  IMGcontrol('sav','disable')
  IMGcontrol('exp','disable')
  IMGcontrol('res','disable')
  IMGcontrol('prn','disable')
  IMGcontrol('del','disable')
  document.getElementById('btnfilter').style.visibility = "visible"
  document.getElementById('module').disabled = false
  document.getElementById('RepSpan').innerHTML = "<b>My Reports: </b>&nbsp;"
  eval(ajax + "('MainSrcDIV','QryTrgDIV','QUERY_SETUP','none')")
  eval(ajax + "('MainSrcDIV','ColTrgDIV','COLLIST','none')")
}

function RemoveField(rec)
{
        document.getElementById('recnum').value = rec
        var ajax = 'Run' + document.getElementById('px').value
        eval(ajax + "('MainSrcDIV','MsgTrgDIV','DELFIELD')")
}

function chgRow(movement,rec)
{
        // Current row and display order values and Adjust for Header Row
        var rowobj = 'row' + rec;
        var Dorder = 'disporder' + rec;
        var rowval = document.getElementById(rowobj).rowIndex;
  var imgdir = document.getElementById('pximg').value;

  // Get total Rows
        var tags = document.getElementById('tblfields').getElementsByTagName('tr');
        var lastrow = tags.length

        // Prior or Next Row
        if(movement == 'up') rindx = rowval - 1;
        if(movement == 'down') rindx = rowval + 1;
        if(movement == 'first') rindx = 1;
        if(movement == 'last') rindx = lastrow - 1;

        // Check to make sure we aren't inserting at the beginning or the end
        if(rindx == 0 || rindx == lastrow) return true;

        // Get the inserted row and display order values
        var otherrow = tags[rindx].id;
        var Oorder = 'disporder' + otherrow.substring(3);

        // Move the rows and reset the display order values so they can be saved
        if(movement == 'up') document.getElementById('tblrows').insertBefore(document.getElementById(rowobj), document.getElementById(otherrow));
        if(movement == 'down') document.getElementById('tblrows').insertBefore(document.getElementById(otherrow), document.getElementById(rowobj));
  if(movement == 'first') document.getElementById('tblrows').insertBefore(document.getElementById(rowobj), document.getElementById(otherrow));
  if(movement == 'last') 
   { 
        document.getElementById('tblrows').insertBefore(document.getElementById(rowobj), document.getElementById(otherrow));
        document.getElementById('tblrows').insertBefore(document.getElementById(otherrow), document.getElementById(rowobj));
   }
   
  //Reorder rows when moving up or down
  var temp;
  if(movement == 'up')
  {
        temp = posCollArr[rowval]
        posCollArr[rowval] = posCollArr[rowval - 1];
        posCollArr[rowval - 1] = temp;
  }
  if(movement == 'down')
   {
                        temp = posCollArr[rowval];
                        posCollArr[rowval] = posCollArr[rowval/1 + 1];
          posCollArr[rowval/1 + 1] = temp;                
         }
         if(movement == 'first')
         {
                for (var x=rowval;x>rindx;x--)
                {
                        posCollArr[x] = posCollArr[x-1];
                }
                posCollArr[rindx] = rec;
         }
         
         if(movement == 'last')
         {
                for(var x=rowval;x<rindx;x++)
                {
                        posCollArr[x] = posCollArr[x/1 + 1];
                }
                posCollArr[rindx] = rec;
         }
         
        // Make sure the arrow graphics are set right
        var msg = "";
        for (i=1; i<lastrow; i++)
         {
                var upobj = 'upimg' + i;
                var downobj = 'downimg' + i;
                var fsobj = 'fsimg' + i;
                var lsobj = 'lsimg' + i;
          document.getElementById(upobj).src = imgdir + "grayup.gif";
          document.getElementById(downobj).src = imgdir + "graydown.gif";
          document.getElementById(fsobj).src = imgdir + "grayupFirst.gif";
          document.getElementById(lsobj).src = imgdir + "graydownLast.gif";
          //reset values of hidden text boxes
          document.getElementById('disporder' + posCollArr[i]).value = i;
          msg += document.getElementById('disporder' + posCollArr[i]).id + ' = ' + document.getElementById('disporder' + posCollArr[i]).value + '\n';
         }
}

function CancelAction()
{
document.getElementById('DisDIV').style.visibility = "hidden"
document.getElementById('InfoDIV').style.visibility = "hidden"
}

function initFldCount(fldcount)
{
        for (var i=1;i<fldcount+1;i++)
        {
          posCollArr[i] = i;
        } 
}