var cNDIG_PROC = 13;

function naoexibirfonte()
{
  //if(event.button==2)
  //{
   // window.alert('TJMG - SISCOM - Informações Processuais');
  //}
}

function doSubmit()
{
  var vForm = document.frm_andamento_processual;
  var vComrCod = vForm.comrCodigo.value;
  var vSelect = vForm.cbo_nome_comarca;

  if (! setComrCodigo())
  {
    if (vForm.comrCodigo.value)
    {
      alert('O número da comarca não é válido ou a comarca está temporariamente indisponível para consulta.');
      vSelect.focus();
    }
    else
    {
      alert('Por favor escolha uma comarca.');
      vForm.comrCodigo.focus();
    }
    return false;
  }

  vComrCod = '0000'.substring(1,5-vComrCod.length) + vComrCod;
  vForm.comrCodigo.value = vComrCod;
  vForm.numero.value = "1";

  return true;
} // doSubmit

/////////////////////////////////////////////////////////////////////

function doLoad()
{
  document.frm_andamento_processual.comrCodigo.focus();
//!!!!!  document.onmousedown=naoexibirfonte;
} // doLoad

////////////////////////////////////////////////////////////////////

function setComrCodigo()
{
  var vForm = document.frm_andamento_processual;
  var vComrCodigo = vForm.comrCodigo.value;
  var vSelect = vForm.cbo_nome_comarca;
  var vTotal = vForm.cbo_nome_comarca.options.length;
  var vOk, i;
  i = 0;

  if (vComrCodigo) {
    num = parseInt(vComrCodigo, 10).toString();
    if (num=='NaN') {
      vSelect.selectedIndex = 0;
      return false;
    }
    while (num.length<vComrCodigo.length) num='0'+num;
    if (vComrCodigo!=''+num) {
      vSelect.selectedIndex = 0;
      return false;
    }
    //Verifica se existe comarca. O vOk define isso.
    while (( i < vTotal) && (parseInt(vComrCodigo, 10) != parseInt(vSelect.options[i].value, 10))) i++;
    vOk = ( i < vTotal);
    if (! vOk) {
      i = 0;
    }
	// Tratamento específico para BHE1 (5) e BHE5 (6)
	if ( (vSelect.selectedIndex != i) && ! ((vSelect.selectedIndex == 6) && (i == 5)) )
	  vSelect.selectedIndex = i;
    return vOk;
  } else {
    vSelect.selectedIndex = 0;
    return false;
  }
} // comrCodigo

function clearComrCodigo()
{
  var vForm = document.frm_andamento_processual;
  var vComrCodigo = vForm.comrCodigo.value;
  var vSelect = vForm.cbo_nome_comarca;

  if (vComrCodigo == '-') {
      vSelect.selectedIndex = 0;
      vForm.comrCodigo.value = "";
  }
  
  return true;
}


//////////////////////////////////////////////////////////////////////

function nomeComarca()
{
  var vForm = document.frm_andamento_processual;
  var vSelect = vForm.cbo_nome_comarca;
  var vCodigoComarca;

  if (vSelect.selectedIndex > 0)
  {
    // vSelect.value nao funciona no Netscape (4.75)
    vCodigoComarca = vSelect.options[vSelect.selectedIndex].value;
    document.frm_andamento_processual.comrCodigo.value = vCodigoComarca;
  }
  else
  {
    vForm.comrCodigo.focus();
    document.frm_andamento_processual.comrCodigo.value = '';
  }
} // nomeComarca

function OnClickRDB()
{
  var vForm = document.frm_andamento_processual;
  vForm.cbo_nome_comarca.selectedIndex = 0;
  vForm.comrCodigo.value = "";
}

function dv10(pNumProc)
{
  var vForm = document.frm_andamento_processual;
  var vDigito;
  var vSoma = 0;
  var vTamanho;
  var j;
  var vParcela;
  var vMultiplicador; // 1 ou 2

  v1NumProc = pNumProc.substring(0,12);

  if (! v1NumProc) {
    return 0;
  }

  vTamanho = v1NumProc.length;
  vMultiplicador = (vTamanho % 2) + 1; // 1 se par, 2 se impar

  for (j = 0; j < vTamanho; j++)
  {
    vParcela = (v1NumProc.substring(j,j+1)) * vMultiplicador;
    if (vParcela >= 10) {
      vParcela = (vParcela % 10) + 1;
    }
    vMultiplicador = 3 - vMultiplicador; // Alterna entre 1 e 2
    vSoma += vParcela;
  }
  vDigito = (10 - (vSoma % 10)) % 10;
  return vDigito;
} // dv10
