var apos;
var ipos;

function initinfo(){
  ipos=parseInt(info.style.top);
}

function positioninfo(){
  var sct=document.body.scrollTop;
  if(sct>ipos){
    info.style.top=sct;
  }else{
    info.style.top=ipos;
  }
}

function finddoc(recno){
  apos=recno;
  try{
    tableTDC.recordset.AbsolutePosition=apos;
    positioninfo();
    info.style.visibility="visible";
  }
  catch(e){
  }
}

function showinfo(level){
  if(level==0){
    apos=event.srcElement.parentElement.recordNumber;
  }else{
    apos=event.srcElement.parentElement.parentElement.recordNumber;
  }
  try{
    tableTDC.recordset.AbsolutePosition=apos;
    positioninfo();
    info.style.visibility="visible";
  }
  catch(e){
  }
}


function navdoc(btn){
  var newpos;
  var rs = tableTDC.recordset;
  if(rs.recordCount){
    apos=rs.AbsolutePosition;
    switch(btn){
      case "--":
        rs.MoveFirst();
        newpos=locatedoc(rs,"","+");
        break;
      case "-":
        rs.MovePrevious();
        if(rs.BOF)rs.MoveFirst();
        newpos=locatedoc(rs,"","-");
        break;
      case "+":
        rs.MoveNext();
        if(rs.EOF)rs.MoveLast();
        newpos=locatedoc(rs,"","+");
        break;
      case "++":
        rs.MoveLast();
        newpos=locatedoc(rs,"","-");
        break;
    }
    if(newpos!=0){
      info.style.visibility="visible";
    }else{
      info.style.visibility="hidden";
    }
  }
}

function locatedoc(rs, key, dir){
  while(!rs.BOF && !rs.EOF){
    if((key == "" || rs.fields('cSortRef')==key) && rs.fields('coltype')=="1") break;
    if(dir=="+"){
      rs.moveNext();
    }else{
      rs.movePrevious();
    }
  }
  if(rs.EOF || rs.BOF){
    rs.AbsolutePosition=apos;
    if(rs.fields('coltype')!=1) apos=0;
    return apos;
  }else{
    return -1;
  }
}