var OpenWpje, xtra, ytra;
function sleepen(){
	if (event.button!=1) {
		return;
	}
	OpenWpje = eval("JanelaOpenW");
	temp1=OpenWpje.style.posLeft;
	temp2=OpenWpje.style.posTop;
	xpos=event.clientX;
	ypos=event.clientY;
	xtra = temp1-xpos;
	ytra = temp2-ypos;
	document.onmousemove=plaats;
}
function plaats(){
	if (event.button==1){
		OpenWpje.style.pixelLeft=event.clientX+xtra;
		OpenWpje.style.pixelTop=event.clientY+ytra;
		return false;
	}
}
function closeOpenW(){
	JanelaOpenW.style.visibility="hidden";
}
function OpenW(Titulo,URL,JanelaLarg,JanelaAlt,BarraRol,PosicaoX,PosicaoY){

	if (PosicaoX==0) {
		ClienteWidth	= document.body.clientWidth;
		PosicaoX		= (ClienteWidth-JanelaLarg)/2;
	}
	if (PosicaoY==0) {
		ClienteHeight	= document.body.clientHeight;
		PosicaoY		= (ClienteHeight-JanelaAlt)/2;
	}
	if (PosicaoX<=0) {
		PosicaoX	=	20;
	}
	if (PosicaoY<=0) {
		PosicaoY	=	20;
	}
	TitutoFonte		=	"Tahoma, Verdana, Arial";
	TituloCor		=	"white";
	TituloTamanho	=	"1";
	TituloFundo		=	"blue"; 						
	BotaoClose		=	"close_d.gif";
	BotaoCloseOver	=	"close_o.gif";
	BordaTamanho	=	"1";
	BordaCor		=	"Blue";

	if (BarraRol==0) {
		BarraRol	=	"no";
	} else {
		BarraRol	=	"yes";
	}

	URL = "<iframe frameborder=0 name=\"ConteudoJanela\" width="+(JanelaLarg)+" height="+(JanelaAlt)+" src=\""+URL+"\" scrolling=\""+BarraRol+"\"  marginHeight=\"0\" marginWidth=\"0\" frameBorder=\"0\"></iframe>";

	var thisspan = eval("JanelaOpenW.style");
	thisspan.pixelLeft = PosicaoX;		
	thisspan.pixelTop =  PosicaoY;
	thisspan.visibility="visible";
	output = "<table cellpadding='0' cellspacing='0' width='" + JanelaLarg + "' height='" + JanelaAlt + "' class='CDXTabela'><tr>";
	output += "<td onmousedown='sleepen()' style='cursor:hand' onmouseup='JavaScript:document.onmousemove=\"\"' width ='" + JanelaLarg + "' class='CDXTabTitulo'>"+Titulo+"</td><td align='center' valign='middle' class='CDXTabTitulo'>";
	output += "<input type='image' alt=\"Fechar\" onmouseover='this.src=\""+DirSetup+BotaoCloseOver+"\"' onmouseout='this.src=\""+DirSetup+BotaoClose+"\"'onclick='closeOpenW()' src='"+DirSetup+BotaoClose+"'></td></tr>";
	output += "<tr><td width='100%' colspan='2' class='CDXConteudo'><table width='100%' height='100%'><tr><td height='100%' width='100%'>"+ URL+"</td></tr></table></td></tr>";
	JanelaOpenW.innerHTML = output;
}