  function init() {
    //usada em pelo processo de mostrar uma janela de selecao
    var ObjToFocus;
  }
  
//--------------------------------

  function CreateJanToSelect() {
    document.write('<div id="divJanToSelect" visible="false" style="visibility=hidden; height:16;  position: absolute; left: 30px; top: 150px; background-color:red;">');
    document.write('<select name="selJanToSelect" multiple style="background: lightyellow" onkeydown="ekdShowJanToSelect()">');
    document.write('</select>');
    document.write('</div>');
  }

  function ShowJanToSelect(divParRel,inpParRel,selOptions){
    divJanToSelect.outerHTML='<div id="divJanToSelect" visible="true" style="position: absolute; left: '+divParRel.style.left+'; top: '+divParRel.style.top+';">'+selJanToSelect.outerHTML+'</div>';

    selJanToSelect.options.length=0;

    for (x=0;x<selOptions.options.length;x++){
      selJanToSelect.options[x]= new Option(selOptions.options[x].text,"");
    }
    
    
    selJanToSelect.focus();

    ObjToFocus=inpParRel;
    //alert('vg.name:'+vg.name+' <------->'+'oPar.name:'+iPar.name);
    etop=divParRel.style.top;
    //alert('iPar.height:'+iPar.width);
    eleft=divParRel.style.left;
    divJanToSelect.active=true;
    if (divJanToSelect.active) {
      divJanToSelect.style.top=etop;
      divJanToSelect.style.left=eleft;
    } else {
      alert('ShowJanToSelect, layer não ativo');
    }
  }

  function ekdShowJanToSelect(){
    //alert('nkd');

    if (event.keyCode==13) {

    //alert(vg.name);
    selJanToSelect.blur();
    divJanToSelect.style.visibility='hidden';
    ObjToFocus.value=selJanToSelect.options[selJanToSelect.options.selectedIndex].text;
    ObjToFocus.focus();
    }
  }

//----------------------------------------------------

//  Entrada :   sCPF --------> Cpf em variavel caracter
//  Retorno :    OK  --------> Variavel logica com .T. ou .F.
//  Exemplo: lRet=vCPF("12345678912")

function vCPF(sCPF) {
  var A,B,C,D,E,F,G,H,I,Dig,S1; // LongInt;
  var Q,R,J,S2,K;//:Real;
  var Ok;// :Boolean;
  //sCpf=Trim(sCpf);
  
  //alert(String(sCPF).substring(00,02));
  
  A=parseInt(String(sCPF).substring(00,01));
  B=parseInt(String(sCPF).substring(01,02));
  C=parseInt(String(sCPF).substring(02,03));
  D=parseInt(String(sCPF).substring(03,04));
  E=parseInt(String(sCPF).substring(04,05));
  F=parseInt(String(sCPF).substring(05,06));
  G=parseInt(String(sCPF).substring(06,07));
  H=parseInt(String(sCPF).substring(07,08));
  I=parseInt(String(sCPF).substring(08,09));
  DIG=parseInt(String(sCPF).substring(09,11));
  
  //alert(String(A)+String(B)+String(C)+String(D)+String(E)+String(F)+String(G)+String(H)+String(I)+String(DIG));
  
  S1=(A*10) + (B*9) + (C*8) + (D*7) + (E*6) + (F*5) + (G*4)+ (H*3) + (I*2);
  Q=parseInt(S1/11);
  R=(S1-Q*11);
  if ((R==1) || (R==0)) { R=11 };
  J=11-R;
  S2=A*11 + B*10 + C*9 + D*8 + E*7 + F*6 + G*5+ H*4 + I*3+ J*2;
  Q=parseInt(S2/11);
  R=S2-Q*11;
  if ((R==1) || (R==0)) { R=11};
  K=11-R;
  //alert(((J*10)+K)+'Dig'+Dig);
  if ((J*10)+K != DIG) {
    Ok=false}
  else {
    Ok=true};
  return Ok;
}

