/* Copyright 2002-2007, Apprise Consulting @ Versão 2007.05 @ */  function troca() { document.all.frmFoto.foto.src = document.all.frmFoto.comboFotos.value; }  function primeira() { document.all.frmFoto.foto.src = document.all.frmFoto.comboFotos[0].value; document.all.frmFoto.comboFotos.selectedIndex = 0; }  function ultima() { widx = document.all.frmFoto.comboFotos.length - 1; document.all.frmFoto.foto.src = document.all.frmFoto.comboFotos[widx].value; document.all.frmFoto.comboFotos.selectedIndex = widx; }  function proxima() { widx = document.all.frmFoto.comboFotos.selectedIndex + 1; if (widx < document.all.frmFoto.comboFotos.length)     {     document.all.frmFoto.foto.src = document.all.frmFoto.comboFotos[widx].value;     document.all.frmFoto.comboFotos.selectedIndex = widx;     } else     {     primeira();     } }  function anterior() { widx = document.all.frmFoto.comboFotos.selectedIndex - 1; if (widx >= 0)     {     document.all.frmFoto.foto.src = document.all.frmFoto.comboFotos[widx].value;     document.all.frmFoto.comboFotos.selectedIndex = widx;     } else     {     ultima();     } }  function ap() { wtxt = document.all.frmFoto.botaoAuto.value; document.all.frmFoto.botaoAuto.value = (wtxt == "Parar auto") ? "Iniciar auto" : "Parar auto"; auto(document.all.frmFoto.comboFotos.selectedIndex); }  function auto(wposini) { if  (document.all.frmFoto.botaoAuto.value == "Parar auto")      {     widx = document.all.frmFoto.comboFotos.selectedIndex;     widx = (widx == (document.all.frmFoto.comboFotos.length - 1) ) ? 0 : (widx + 1);     document.all.frmFoto.foto.src = document.all.frmFoto.comboFotos[widx].value;     document.all.frmFoto.comboFotos.selectedIndex = widx;     if  (widx == wposini)         {         alert('Todas as fotos já foram apresentadas!');         ap();         return;         }     waux = 'auto(' + wposini + ')';     window.setTimeout(waux, 8000);     } }  function fotoInteira() { walt = window.screen.height; wlrg = window.screen.width; wfot = document.all.frmFoto.comboFotos.value; if  (wfot == 'img/FotoDefault.jpg')     {     waux = 'RtyPsqImvFichaFotoInteira.asp?foto=' + wfot;     } else     {     waux = 'RtyPsqImvFichaFotoInteira.asp?foto=db&' + wfot.substr(40, wfot.length);     } wintfot = window.open(waux,'Foto','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,width=640,height=480,top='+((walt-480)/2)+',left='+((wlrg-640)/2)); wintfot.focus(); }