<%@LANGUAGE="VBSCRIPT"%> 

<!--#include file="Connections/entradas.asp" -->

<%

' *** Restrict Access To Page: Grant or deny access to this page

MM_authorizedUsers="ADMIN"

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

%>

<%

' *** Edit Operations: declare variables


MM_editAction = CStr(Request("URL"))

If (Request.QueryString <> "") Then

  MM_editAction = MM_editAction & "?" & Request.QueryString

End If


' boolean to abort record edit

MM_abortEdit = false


' query string to execute

MM_editQuery = ""

%>

<%

' *** Update Record: set variables


If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> "") Then


  MM_editConnection = MM_entradas_STRING

  MM_editTable = "NIVEL_ACCESO"

  MM_editColumn = "IDACCESS"

  MM_recordId = "" + Request.Form("MM_recordId") + ""

  MM_editRedirectUrl = "nivel.asp"

  MM_fieldsStr  = "DESCR|value|COMENTARIO|value|EXTERNO|value|ACTIVO|value"

  MM_columnsStr = "DESCR|',none,''|COMENTARIO|',none,''|EXTERNO|none,1,0|ACTIVO|none,1,0"


  ' create the MM_fields and MM_columns arrays

  MM_fields = Split(MM_fieldsStr, "|")

  MM_columns = Split(MM_columnsStr, "|")

  
  ' set the form values

  For i = LBound(MM_fields) To UBound(MM_fields) Step 2

    MM_fields(i+1) = CStr(Request.Form(MM_fields(i)))

  Next


End If

%>

<%

' *** Delete Record: declare variables


if (CStr(Request("MM_delete")) <> "" And CStr(Request("MM_recordId")) <> "") Then


  MM_editConnection = MM_entradas_STRING

  MM_editTable = "NIVEL_ACCESO"

  MM_editColumn = "IDACCESS"

  MM_recordId = "" + Request("MM_recordId") + ""

  MM_editRedirectUrl = "nivel.asp"

  
End If

%>

<%

' *** Insert Record: set variables


If (CStr(Request("MM_insert")) <> "") Then


  MM_editConnection = MM_entradas_STRING

  MM_editTable = "NIVEL_ACCESO"

  MM_editRedirectUrl = ""

  MM_fieldsStr  = "DESCR|value|COMENTARIO|value|EXTERNO|value|ACTIVO|value"

  MM_columnsStr = "DESCR|',none,''|COMENTARIO|',none,''|EXTERNO|none,1,0|ACTIVO|none,1,0"


  ' create the MM_fields and MM_columns arrays

  MM_fields = Split(MM_fieldsStr, "|")

  MM_columns = Split(MM_columnsStr, "|")

  
  ' set the form values

  For i = LBound(MM_fields) To UBound(MM_fields) Step 2

    MM_fields(i+1) = CStr(Request.Form(MM_fields(i)))

  Next


End If

%>

<%

' *** Update Record: construct a sql update statement and execute it


If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> "") Then


  ' create the sql update statement

  MM_editQuery = "update " & MM_editTable & " set "

  For i = LBound(MM_fields) To UBound(MM_fields) Step 2

    FormVal = MM_fields(i+1)

    MM_typeArray = Split(MM_columns(i+1),",")

    Delim = MM_typeArray(0)

    If (Delim = "none") Then Delim = ""

    AltVal = MM_typeArray(1)

    If (AltVal = "none") Then AltVal = ""

    EmptyVal = MM_typeArray(2)

    If (EmptyVal = "none") Then EmptyVal = ""

    If (FormVal = "") Then

      FormVal = EmptyVal

    Else

      If (AltVal <> "") Then

        FormVal = AltVal

      ElseIf (Delim = "'") Then  ' escape quotes

        FormVal = "'" & strreplace(FormVal,"'","''") & "'"

      Else

        FormVal = Delim + FormVal + Delim

      End If

    End If

    If (i <> LBound(MM_fields)) Then

      MM_editQuery = MM_editQuery & ","

    End If

    MM_editQuery = MM_editQuery & MM_columns(i) & " = " & FormVal

  Next

  MM_editQuery = MM_editQuery & " where " & MM_editColumn & " = " & MM_recordId


  If (Not MM_abortEdit) Then

    ' execute the update

    Set MM_editCmd = Server.CreateObject("ADODB.Command")

    MM_editCmd.ActiveConnection = MM_editConnection

    MM_editCmd.CommandText = MM_editQuery

    MM_editCmd.Execute

    MM_editCmd.ActiveConnection.Close


    If (MM_editRedirectUrl <> "") Then

      Response.Redirect(MM_editRedirectUrl)

    End If

  End If


End If

%>

<%

' *** Delete Record: construct a sql delete statement and execute it


If (CStr(Request("MM_delete")) <> "" And CStr(Request("MM_recordId")) <> "") Then


  ' create the sql delete statement

  MM_editQuery = "delete from " & MM_editTable & " where " & MM_editColumn & " = " & MM_recordId


  If (Not MM_abortEdit) Then

    ' execute the delete

    Set MM_editCmd = Server.CreateObject("ADODB.Command")

    MM_editCmd.ActiveConnection = MM_editConnection

    MM_editCmd.CommandText = MM_editQuery

    MM_editCmd.Execute

    MM_editCmd.ActiveConnection.Close


    If (MM_editRedirectUrl <> "") Then

      Response.Redirect(MM_editRedirectUrl)

    End If

  End If


End If

%>

<%

' *** Insert Record: construct a sql insert statement and execute it


If (CStr(Request("MM_insert")) <> "") Then


  ' create the sql insert statement

  MM_tableValues = ""

  MM_dbValues = ""

  For i = LBound(MM_fields) To UBound(MM_fields) Step 2

    FormVal = MM_fields(i+1)

    MM_typeArray = Split(MM_columns(i+1),",")

    Delim = MM_typeArray(0)

    If (Delim = "none") Then Delim = ""

    AltVal = MM_typeArray(1)

    If (AltVal = "none") Then AltVal = ""

    EmptyVal = MM_typeArray(2)

    If (EmptyVal = "none") Then EmptyVal = ""

    If (FormVal = "") Then

      FormVal = EmptyVal

    Else

      If (AltVal <> "") Then

        FormVal = AltVal

      ElseIf (Delim = "'") Then  ' escape quotes

        FormVal = "'" & strreplace(FormVal,"'","''") & "'"

      Else

        FormVal = Delim + FormVal + Delim

      End If

    End If

    If (i <> LBound(MM_fields)) Then

      MM_tableValues = MM_tableValues & ","

      MM_dbValues = MM_dbValues & ","

    End if

    MM_tableValues = MM_tableValues & MM_columns(i)

    MM_dbValues = MM_dbValues & FormVal

  Next

  MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"


  If (Not MM_abortEdit) Then

    ' execute the insert

    Set MM_editCmd = Server.CreateObject("ADODB.Command")

    MM_editCmd.ActiveConnection = MM_editConnection

    MM_editCmd.CommandText = MM_editQuery

    MM_editCmd.Execute

    MM_editCmd.ActiveConnection.Close


    If (MM_editRedirectUrl <> "") Then

      Response.Redirect(MM_editRedirectUrl)

    End If

  End If


End If

%>

<%

set nv = Server.CreateObject("ADODB.Recordset")

nv.ActiveConnection = MM_entradas_STRING

nv.Source = "SELECT *  FROM  NIVEL_ACCESO  "

nv.CursorType = 0

nv.CursorLocation = 2

nv.LockType = 3

nv.Open()

nv_numRows = 0

%>

<%

Dim Repeat1__numRows

Repeat1__numRows = -1

Dim Repeat1__index

Repeat1__index = 0

nv_numRows = nv_numRows + Repeat1__numRows

%>

<html>

<head>

<title>www.promad.com.mx</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<link rel="stylesheet" href="styles/regular.css" type="text/css">

<script type=text/javascript>

function noe() {

  return !(window.event && window.event.keyCode == 13); }


function calcpzo(plazo) {

	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=sf.PLAZO.options[sf.PLAZO.selectedIndex].text;

	sf.INT.value=eval(lbor)+eval(sf.LIBOR.value);

	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) {

	 		sf.c1.value=cfin*0.01*1.15;

			
	}	else sf.c1.value=575;

	sf.c2.value=sf.c1.value;

	sf.c3.value=450

	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);

	
	//sf.c1.value=eval

}


function precioc(idp,nam) {

pre=MM_findObj('PRECIO');

uix=MM_findObj(nam);

//alert(uix.checked);

sf.ULP.value=idp;

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

function callToServer(busq,tabla) {

	if (!document.createElement) {return true};

	var IFrameDoc;

	
	// We'll build our URL by checking which state

	// has been selected in the drop down menu

	var stateEl = sf.Busqueda

	var theState = busq

	theFormName='sf'

	if (theState=='') {return false}; // no state has been selected

	var URL = "data.asp?src="+theState + "&TABLA=" + tabla

	sf.DEMQ.value=sf.COMBOS.options[sf.COMBOS.selectedIndex].text;

	sf.PRECIO.value=sf.PRX.options[sf.COMBOS.selectedIndex].value

	//alert(URL);

	
	//provide a "loading" message

	var responseMessage = document.getElementById('responseMessage');

	responseMessage.style.display = 'inline';

	responseMessage.innerHTML = 'cargando datos...';

	
	if (!IFrameObj && document.createElement) {

		// create the IFrame and assign a reference to the

		// object to our global variable IFrameObj.

		// this will only happen the first time 

		// callToServer() is called

		try {

			var tempIFrame=document.createElement('iframe');

			tempIFrame.setAttribute('id','RSIFrame');

			tempIFrame.style.border='0px';

			tempIFrame.style.width='0px';

			tempIFrame.style.height='0px';

			IFrameObj = document.body.appendChild(tempIFrame);

			
			if (document.frames) {

				// this is for IE5 Mac, because it will only

				// allow access to the document object

				// of the IFrame if we access it through

				// the document.frames array

				IFrameObj = document.frames['RSIFrame'];

			}

		} catch(exception) {

			// This is for IE5 PC, which does not allow dynamic creation

			// and manipulation of an iframe object. Instead, we'll fake

			// it up by creating our own objects.

			iframeHTML='<iframe id="RSIFrame" style="';

			iframeHTML+='border:0px;';

			iframeHTML+='width:0px;';

			iframeHTML+='height:0px;';

			iframeHTML+='"><\/iframe>';

			document.body.innerHTML+=iframeHTML;

			IFrameObj = new Object();

			IFrameObj.document = new Object();

			IFrameObj.document.location = new Object();

			IFrameObj.document.location.iframe = document.getElementById('RSIFrame');

			IFrameObj.document.location.replace = function(location) {

				this.iframe.src = location;

			}

		}

	}

	
	if (navigator.userAgent.indexOf('Gecko') !=-1 && !IFrameObj.contentDocument) {

		// we have to give NS6 a fraction of a second

		// to recognize the new IFrame

		setTimeout('callToServer("'+theFormName+'")',10);

		return false;

	}

	
	if (IFrameObj.contentDocument) {

		// For NS6

		IFrameDoc = IFrameObj.contentDocument; 

	} else if (IFrameObj.contentWindow) {

		// For IE5.5 and IE6

		IFrameDoc = IFrameObj.contentWindow.document;

	} else if (IFrameObj.document) {

		// For IE5

		IFrameDoc = IFrameObj.document;

	} else {

		return true;

	}

	
	IFrameDoc.location.replace(URL);

	return false;

}


// handleResponse is passed two parameters when called from the onload

// event of the pages loaded in the hidden IFRAME:

//	st: a string indicating which state is being loaded

//	doc: the document object of the page loaded in the IFRAME

function handleResponse(st, doc,obj) {

	// get a reference to the multiple select list, which we will populate

	// with the data from the document loaded in the IFRAME

	var namesEl = MM_findObj(obj)

	
	// clear earlier records from the multiple select list

	namesEl.length = 0

	opts.innerHTML='';

	
	// get a reference to the DIV containing the data for this state

	var dataEl = doc.getElementById(st)

	
	// get a reference to the collection of the children elements of

	// our DIV containing the data (this collection is the DIVs containing

	// the actual zip names)

	namesColl = dataEl.childNodes

	
	// for easy scripting, assign the number of ZIP names for this state

	// to a variable

	var numNames = namesColl.length

	
	// iterate through the collection of zip Names and

	// create an option element for each one

	for (var q=0; q<numNames; q++) {

		if (namesColl[q].nodeType!=1) continue; // it's not an element node, let's skedaddle

		var str = '' // used to store the text we'll use in the new option

		var strv=''

		strv+= namesColl[q].id 

		
		// get a reference to the collection of the children elements of

		// this DIV (this collection contains the zip codes that fall under this zip name)

		
		var zipsColl = doc.getElementById(namesColl[q].id).childNodes

		//alert(zipsColl.length);

		var numZips = zipsColl.length

		var u

		// iterate through this collection of zips and each one to the string

		for (var r=0; r<numZips; r++) {

			if (zipsColl[r].nodeType!=1) continue; // it's not an element node, let's skedaddle

			str += zipsColl[r].id + ' '

			
			}

			um=doc.getElementById(zipsColl[0].id).childNodes //Lee elemento interno de Precio agerga check

			opts.innerHTML=opts.innerHTML+'<input type="checkbox" name="z'+strv+ '" value="'+ um[0].id +'" onClick="precioc(this.value,this.name)">'+ str+ '<br>'

			
		}

	
	//Escribe mensaje de exito, (Ocultar layer de espere

	var responseMessage = document.getElementById('responseMessage');

	responseMessage.style.display ='none';

}

</script>

<script language="JavaScript">

<!--

<!--

function MM_reloadPage(init) {  //reloads the window if Nav4 resized

  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {

    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}

  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();

}

MM_reloadPage(true);


function MM_findObj(n, d) { //v4.0

  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {

    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}

  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];

  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);

  if(!x && document.getElementById) x=document.getElementById(n); return x;

}

// -->


function MM_goToURL() { //v3.0

  var i, args=MM_goToURL.arguments; document.MM_returnValue = false;

  for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location='"+args[i+1]+"'");

}

//-->

</script>

</head>

<body bgcolor="#FFFFFF" text="#000000" leftMargin=0 topMargin=0 marginheight="0" marginwidth="0">

<table width="100%" border="0" cellspacing="0" cellpadding="0" leftMargin=0 topMargin=0 marginheight="0" marginwidth="0">

  <tr> 

    <td> 

      <!--#include file="menu.asp" -->

    </td>

  </tr>

  <tr> 

    <td>&nbsp; </td>

  </tr>

  <tr> 

    <td> 

      <table width="681" border="0" cellspacing="0" cellpadding="0" height="208">

        <tr> 

          <td class="grbllines" width="486" valign="top"> 

            <DIV id=theFormDiv> 

              <table width="528" border="0" cellspacing="10" cellpadding="0" align="center" class="arialsmall">

                <tr valign="top"> 

                  <td colspan="2" class="inset">Creacion de Perfiles de Acceso 

                    al Sistema de pedidos</td>

                </tr>

                <tr> 

                  <td colspan="2"> En esta ventana usted podr&aacute; crear perfiles 

                    para el acceso al Sistema de Libro de Entradas.<br>

                    <br>

                    a)Para crear un nuevo perfil Escriba una Corta Descripci&oacute;n, 

                    un Comentario que detalle el tipo de acceso que representa 

                    este tipo de Usuario. Seleccione la casilla de Externo y Activo 

                    para Mostrar el Tipo de usuario que accesa y si el perfil 

                    esta Activo Actualmente. Una vez seleccionadas las opciones 

                    deseadas presione el bot&oacute;n de &quot;Nuevo&quot;<br>

                    <br>

                    Para seleccionar los campos de la base de datos presione sobre 

                    el bot&oacute;n de &quot;Campos-&gt;&quot;, en la siguiente 

                    ventana usted seleccionar&aacute; las columnas que el perfil 

                    peude ver y que tipo de acceso tendra (Consulta o Edici&oacute;n)<br>

                    <br>

                    b)Para Editar un Perfil Existente corriga en esta ventana 

                    las casillas que desea cambiar en el Renglon correspondiente 

                    y presione &quot;Cambiar&quot;. Si desea editar los campos 

                    de acceso de un perfil existente presione sobre el Bot&oacute;n 

                    de &quot;Campos -&gt;&quot;<br>

                    <br>
                    c)Para Eliminar un Perfil de Accesion Presione sobre &quot;x&quot;<br>
                    <br>
                    **Nuevos Registros: <b>Permite al usuario agregar nuevos resgistros</b><br>

                    <form name="form1" method="POST" action="<%=MM_editAction%>">

                      <table width="100%" border="0" cellspacing="1" cellpadding="1">

                        <tr> 

                          <td align="left" class="header2"><b>&nbsp;DESCR</b></td>

                          <td align="left" class="header2"><b>&nbsp;COMENTARIO</b></td>

                          <td align="left" class="header2"><b>&nbsp;EXTERNO</b></td>

                          <td align="left" class="header2"><b>Nuevos <br>
                            Registros**<br>
                            </b></td>

                        </tr>

                        <tr> 

                          <td align="left" valign="top"> 

                            <input type="text" name="DESCR" class="arialsmall" size="20" maxlength="50">

                          </td>

                          <td align="left"> 

                            <textarea name="COMENTARIO" class="arialsmall" cols="30" rows="3"></textarea>

                          </td>

                          <td align="left"> 

                            <input type="checkbox" name="EXTERNO" value="1">

                          </td>

                          <td align="left"> 

                            <input type="checkbox" name="ACTIVO" value="1">

                            <input type="submit" name="Submit" value="Nuevo" class="arialsmall">

                          </td>

                        </tr>

                      </table>

                      <input type="hidden" name="MM_insert" value="true">

                    </form>

                    <p>&nbsp; </p>

                  </td>

                </tr>

                <tr> 

                  <td colspan="2" class="inset"> 

                    <table width="100%" border="0" cellspacing="1" cellpadding="1" class="arialsmall">

                      <tr> 

                        <td align="left" class="header2">Descripci&oacute;n</td>

                        <td align="left" class="header2">Comentario</td>

                        <td align="left" class="header2">Externo</td>

                        <td align="left" class="header2">Nuevos<br>
                          Registros</td>

                        <td align="left" class="header2">&nbsp;</td>

                      </tr>

                      <% 

While ((Repeat1__numRows <> 0) AND (NOT nv.EOF)) 

%>

                      <form name="upd<%=Repeat1__numRows %>" method="POST" action="<%=MM_editAction%>">

                        <tr bgcolor="<%

If (Repeat1__numRows Mod 2) Then

	Response.Write("#DDDDDD")

Else

	Response.Write("#FFFFFF")

End IF

%>"> 

                          <td align="left" valign="top"> 

                            <input type="text" name="DESCR" value="<%=(nv.Fields.Item("DESCR").Value)%>" size="20" class="arialsmall" maxlength="50">

                          </td>

                          <td align="left"> 

                            <textarea class="arialsmall" name="COMENTARIO" cols="30" rows="3"><%=(nv.Fields.Item("COMENTARIO").Value)%></textarea>

                          </td>

                          <td align="left"> 

                            <input <%If (CStr(nv.Fields.Item("EXTERNO").Value) = CStr("1")) Then Response.Write("CHECKED") : Response.Write("")%> type="checkbox" name="EXTERNO" value="1">

                          </td>

                          <td align="left"> 

                            <input <%If (CStr(nv.Fields.Item("ACTIVO").Value) = CStr("1")) Then Response.Write("CHECKED") : Response.Write("")%> type="checkbox" name="ACTIVO" value="1">

                          </td>

                          <td align="left"> 

                            <input type="submit" name="Submit2" value="Cambiar" class="arialsmall">

                            <input type="button" name="Submit3" value="x" class="arialsmall" onClick="MM_goToURL('parent','nivel.asp?MM_delete=true&amp;MM_recordId=<%=(nv.Fields.Item("IDACCESS").Value)%>');return document.MM_returnValue">

                            <br>

                            <input type="button" name="Submit4" value="Campos -&gt;" class="arialsmall" onClick="MM_goToURL('parent','fields.asp?IDACCESS=<%=(nv.Fields.Item("IDACCESS").Value)%>');return document.MM_returnValue">

                          </td>

                        </tr>

                        <input type="hidden" name="MM_update" value="true">

                        <input type="hidden" name="MM_recordId" value="<%= nv.Fields.Item("IDACCESS").Value %>">

                      </form>

                      <% 

  Repeat1__index=Repeat1__index+1

  Repeat1__numRows=Repeat1__numRows-1

  nv.MoveNext()

Wend

%>

                    </table>

                  </td>

                </tr>

                <tr> 

                  <td colspan="2"> 

                    <p>&nbsp; </p>

                  </td>

                </tr>

                <tr> 

                  <td colspan="2">&nbsp;</td>

                </tr>

                <tr> 

                  <td width="150">&nbsp;</td>

                  <td width="348"> 

                    <div align="right"> 

                      <form name="form2" method="POST" action="<%=MM_editAction%>">

                      </form>

                    </div>

                  </td>

                </tr>

              </table>

            </div>

          </td>

          <td bgcolor="#000000" width="150" valign="top" align="center"> 

            <div align="center"><br>

              &nbsp;&nbsp;<img src="images/solocat.gif" width="132" height="85"></div>

          </td>

        </tr>

      </table>

    </td>

  </tr>

  <tr> 

    <td>&nbsp;</td>

  </tr>

  <tr> 

    <td>&nbsp;</td>

  </tr>

</table>

</body>

</html>

<%

nv.Close()

%>