<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers="ADMIN,VENDEDOR,GERENTE"
MM_authFailedURL="login.asp"
MM_grantAccess=false
If Session("MM_Username") <> "" Then
  If (false Or CStr(Session("MM_UserAuthorization"))="") Or _
         (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then
    MM_grantAccess = true
  End If
End If
If Not MM_grantAccess Then
  MM_qsChar = "?"
  If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"
  MM_referrer = Request.ServerVariables("URL")
  if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
  MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
  Response.Redirect(MM_authFailedURL)
End If
%>
function noe() {
  return !(window.event && window.event.keyCode == 13); }

function calcpzo(plazo,wr) {
	valmp=1
	cdl=eval(sf.DOLAR.value)

	if (wr!='1') {
	cval2=eval(sf.PRX.options[sf.COMBOS.selectedIndex].value)
	sf.DEMQ.value=sf.COMBOS.options[sf.COMBOS.selectedIndex].text;
	sf.PRECIO.value=cval2
	//alert(sf.MONEDA[1].checked);
	};
		if (sf.MONEDA[1].checked==true) { 
			valmp=eval(sf.DOLAR.value)
			cdl=1
			}
	cval2=cval2*valmp;
	lbor=sf.PRE.options[sf.PLAZO.selectedIndex].text;
	cval=eval(sf.PRECIO.value);
	ceng=(eval(sf.PRE.options[sf.PLAZO.selectedIndex].value)/100);
	cfin=cval-(cval*ceng);
	sf.FIN.value=cfin;
	nper=0;
	if (sf.PLAZO.options[sf.PLAZO.selectedIndex].text!='CONTADO') nper=sf.PLAZO.options[sf.PLAZO.selectedIndex].text;

	sf.INT.value=sf.TASAP.value; //Valor en pesos
	if (sf.MONEDA[1].checked==true) sf.INT.value=eval(lbor)+eval(sf.LIBOR.value); //Valor en Dolares
	if (eval(lbor)==0) 	sf.INT.value=0;
	tmen=(eval(sf.INT.value)/12)/100;
	sf.ENG.value=cval*ceng*1.15
	if (cfin>50000*cdl) {
	 		sf.c1.value=cfin*0.01*1.15;
			
	}	else sf.c1.value=eval(sf.STDFIN.value)*cdl;
	sf.c2.value=sf.c1.value;
	sf.c3.value=eval(sf.STDLEG.value)*cdl
	parcial=1-(Math.pow((1+tmen),-nper))
	sf.c7.value=(cfin*tmen)/parcial //
	if (parcial==0) sf.c7.value=cfin/nper;
	sf.c4.value=sf.c7.value
	sf.c5.value=cval*.012*1.15
	
	pper=eval(sf.ENG.value)+eval(sf.c1.value)+eval(sf.c2.value)
	sf.c6.value=pper+eval(sf.c3.value)+eval(sf.c4.value)+eval(sf.c5.value);
	
		if (nper==0) {
			sf.INT.value=0
			sf.FIN.value=0
			sf.ENG.value=0
			sf.c1.value=0
			sf.c2.value=0
			sf.c3.value=0
			sf.c4.value=0
			sf.c5.value=0
			sf.c6.value=sf.PRECIO.value*cdl
			sf.c7.value=0
	}
	//sf.c1.value=eval
}

function precioc(idp,nam) {
pre=MM_findObj('PRECIO');
uix=MM_findObj(nam);
//alert(uix.checked);
sf.ULP.value=idp;
pre.blur;
if (uix.checked==true) {
wl=eval(pre.value)+eval(idp);

} 
else {
wl=eval(pre.value)-eval(idp);
} 
pre.value=wl;


}

var IFrameObj; // our IFrame object