Foros > ASP: inventario en asp

Responder Mensaje >

piter

Mensajes [1] - Enviado el Jueves 10 de Enero de 2008 a las 17:57hs

estoy haciendo un inventario que me de altas,bajas y modificaciones de marcas, modelos y dispositivos este es mi codigo me pueden orientar de que me falta soy nuevo en esto gracias.

</script>
<script language="JavaScript1.2" type="text/JavaScript1.2">
var message=" HOLA BIENVENIDOS "
var message=message+" "
i="0"
var temptitle=""
var speed="150"

function titler(){
if (!document.all&&!document.getElementById)
return
document.title=temptitle+message.charAt(i)
temptitle=temptitle+message.charAt(i)
i++
if(i==message.length)
{
i="0"
temptitle=""
}
setTimeout("titler()",speed)
}

window.onload=titler
</script>

<p><strong>La fecha actual es <%=date()%><br>
<%
'hora actual
Dim hora
hora = Hour(Time())
If hora > 6 and hora < 11 then
Response.Write ("</BR><center>Buenos Dias</B>, son las: " & Time())
ElseIf hora > 12 and hora < 18 then
Response.Write ("</BR><center>Buenas Tardes</B>, son las: "& Time())
ElseIf hora > 19 and hora < 24 then
Response.Write ("</BR><center>Buenas Noches</B>, son las: "& Time())
ElseIf hora >= 0 and hora < 7 then
Response.Write ("</BR><center>Buenas Noches</B>, son las: "& Time())
End If
%>
<%
'detectar el idioma de nuestros usuarios
Dim pais, idioma
pais = Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")
idioma = Left(pais, 2)
select case idioma
case "es"
idioma = "</BR><center>En Español: Bienvenido a nuestra pagina web"
case "pt"
idioma = "</BR><center>En Portugués Bem-vindo a nostra pagina web"
case "en"
idioma = "</BR><center>En Inglés: Welcome to your pages web"
end select
response.write idioma
%>
<%
'contador de visitas a la pagina
Application.Lock
Application("visitas") = Application("visitas")+1
Application.Unlock %>
<BR>
Eres el visitante numero<%= Application("visitas") %>
<%
'activacion de la pagina
if trim(Session("ActivoAlm"))<>"SI" then
Response.Write("<HTML><SCRIPT Language=JavaScript>")
Response.Write("alert ('HA SUPERADO EL TIEMPO INACTIVIDAD ');")
Response.Write("</SCRIPT></HTML>")
end if
%>
<SCRIPT LANGUAGE=JavaScript>
function Actualizar(){
history.go(0)
}
</script>

<%
dim pagina
dim marco
dim rs
dim marcamodelo
dim marcadispositivo
dim modelodispositivo
dim tipodispositivo
pagina="indexad.asp"
marco="_parent"

if trim(Request.Form("tipoequipo")) <>"" then
tipoequipo=Request.Form("tipoequipo")
end if

if trim(Request.Form ("id_marca")) <>"" then
id_marca=Request.Form("id_marca")
end if

if trim(Request.Form("marca")) <>"" then
tipomarca=Request.Form("marca")
end if

if trim(Request.Form("modelos") )<>"" then
tipomod=Request.Form("modelos")
end if

if trim(Request.Form("marcamodelo") )<>"" then
marcamon=Request.Form("marcamodelo")
if marcamodelo=0 then
marcamodelo=tipomarca
end if

else
marcamodelo=tipomarca
end if
if trim(Request.Form ("descripcion"))<>""then
descripcion=Request.Form("descripcion")
end if

if trim(Request.Form("dispositivo") )<>"" then
dispositivo=Request.Form("dispositivo")
end if

if trim(Request.Form("modelodispositivo"))<>""then
modelodispositivo=Request.Form("modelodispositivo")
end if

if trim(Request.Form("marcadispositivo"))<>"" then
marcadispositivo=Request.Form("marcadispositivo")
end if

if trim(Request.form("numeroserie"))<>"" then
numeroserie=Request.Form("numeroserie")
end if

if trim(Request.Form("tipodispositivo"))<>"" then
tipodispositivo=Request.Form("tipodispositivo")
end if

if trim(Request.Form("causa"))<>"" then
causa=Request.Form("causa")
end if

if trim(Request.Form("comentarios"))<>""then
comentarios=Request.Form("comentarios")
end if

if trim(Request.Form("espplataforma")) <>"" then
DatosForma=split(Request.Form("espplataforma"),",")
end if
tipoinventario=0

if trim(Request.Form("asignacion")) <>"" then
idasignacion=trim(Request.Form("asignacion"))
end if
if trim(Request.Form("funcion")) <>"" then
idfuncion=trim(Request.Form("funcion"))
end if
if trim(Request.Form("uso")) <>"" then
iduso=trim(Request.Form("uso"))
end if
%>
<style type="text/css">

</style>
<body bgcolor="#99CCFF">
<div align="right"></div>
<div align="justify">
<div align="right">
<input type="button" value="Salir" name="B1" onClick="window.close()"></p>
</div>
<p align="center"><a href="nueva.asp"><img src="images/menu11_b1.gif" width="62" height="21" border="0"></a><a href="nueva1.asp"><img src="images/menu13_b2.gif" width="62" height="21" border="0"></a><img src="images/menu13_b3.gif" name="consult" width="62" height="21" id="consult"><img src="images/menu13_b4.gif" width="62" height="21"></p>
<p align="center"><tt><strong><em><font color="#0000FF" size="+2" face="Arial, Helvetica, sans-serif">INVENTARIO
DE EQUIPO</font></em></strong></tt></p>

<table width="891" height="930" border="10" align="center" cellpadding="15" bordercolor="#0000FF">

<tr>
<td height="94" colspan="2">
<div align="center">
<p align="left"><strong><font color="#0000FF"><u>MARCAS</u></font></strong></p>

<p align="left"><strong><font color="#333333">ID_MARCA</font> </strong>
<%
'conexion con la base de datos
sqltxt="select id_marca from marca order by id_marca"
set rs=createobject("ADODB.Recordset")
rs.open sqltxt,Conn
%>
<select name="id_marca" id="select5">
<%
response.write "<option value=0 selected>°°°SELECCIONE LA CLAVE DE LA MARCA°°° "
response.write "<option value=200 selected>200"
Do while not rs.eof
completa=cstr(rs("id_marca"))
if len(completa)=1 then
completa="0"&completa
end if

Response.Write " <option value='" & completa & "' >" & rs("id_marca") &"</option>"
rs.movenext
completa=""
Loop
%>
</select>
<%
rs.close
set rs = nothing
%>
</p>
</div>
<td width="155"><div align="left"><strong>MARCA
<%
sqltxt="select marca from marca order by marca"
set rs=createobject("ADODB.Recordset")
rs.open sqltxt,Conn
%>
<select name="marca" id="select6">
<%
response.write "<option value=0 selected>°°°SELECCIONE UNA MARCA °°°"
response.write "<option value=1 selected > acer"
response.write "<option value=2 selected> olivetti"
response.write "<option value=hp selected> hp"

do while not rs.eof
completa=cstr(rs("marca"))
if len(completa)=1 then
completa="0"&completa
end if

Response.Write " <option value='" & completa & "' >" & rs("marca") &"</option>"
rs.movenext
completa=""
Loop
%>
</select>
<%
rs.close
set rs = nothing
%>
</strong></div></td>
<td colspan="2"><div align="center">
<p><strong>ACTIVO</strong>

<input type="checkbox" name="checkbox" value="checkbox">
</p>
<p>

<input type="submit" name="Submit" value="Agregar" onClick="vacio">
</p>
</div></td>
</tr>
<tr>
<td height="151" colspan="3">
<p align="left"><font color="#0000FF"><strong><u>MODELOS</u></strong></font></p>
<p align="left"><strong>MODELO:</strong>

<%
sqltxt="select * FROM modelo order by modelo"
set rs=createobject("ADODB.Recordset")
'abrir la base de datos
rs.open sqltxt,Conn

%>
<select name="modelo" id="select7">
<%
response.write "<option value=0 selected>°°°SELECCIONE UN MODELO °°°"

Do while not rs.eof
completa=cstr(rs("modelo"))
if len(completa)=1 then
completa="0"&completa
end if

Response.Write " <option value='" & completa & "' >" & rs("modelo") &"</option>"
rs.movenext
completa=""
Loop
%>
</select>
<%
rs.close
set rs = nothing
%>
</p>
<p></p>
<p> <strong>
<label></label>
</strong> </p>
<td width="161">
<div align="center">
<p align="left"><strong>MARCA:
<%
sqltxt="select marca from modelo order by modelo"
set rs=createobject("ADODB.Recordset")
rs.open sqltxt,Conn
%>
<select name="marca" id="select6">
<%
response.write "<option value=0 selected>°°°SELECCIONE UNA MARCA °°°"
Do while not rs.eof
completa=cstr(rs("marca"))
if len(completa)=1 then
completa="0"&completa
end if

Response.Write " <option value='" & completa & "' >" & rs("marca") &"</option>"
rs.movenext
completa=""
Loop
%>
</select>
<%
rs.close
set rs = nothing
%>
</strong></p>
<strong>
<label> </label>
</strong> </div>
<p align="center"><strong> </strong></p></td>
<td width="182" colspan="2"><div align="left"><strong> DESCRIPCION: </strong>
</div>
<p><strong>
<label>
<input name="descripcion" type="text" id="descripcion" size="30" maxlength="15">
</label>
</strong><strong>
<label></label>
</strong><strong> </strong></p>
<p align="center">
</p>
<p align="center">

<FORM NAME="aceButton"><INPUT TYPE="BUTTON" VALUE="agregar" onClick="vacio"></FORM>
<strong>
<label> </label>
</strong></p>
<div align="center"></div></td>
</tr>
<tr>

<td height="635" colspan="5" align="right">
<p align="left"><strong>
<label><font color="#0000FF"><u>DISPOSITIVOS</u></font></label>
</strong><u><strong>
<label></label>
</strong></u><strong>
<label></label>
</strong></p>
<p align="left"><strong>
<label>DISPOSITIVO </label>

<%
sqltxt="select * FROM dispositivo order by modelo"
'conexion con la base de datos
set rs=createobject("ADODB.Recordset")
rs.open sqltxt,Conn
%>
<select name="dispositivo" id="select8">
<%
response.write "<option value=0 selected>°°°SELECCIONE UN DISPOSITIVO°°°"
response.write "<option value=Router selected> Router"

Do while not rs.eof
completa=cstr(rs("dispositivo"))
if len(completa)=1 then
completa="0"&completa
end if

Response.Write " <option value='" & completa & "' >" & rs("dispositivo") &"</option>"
rs.movenext
completa=""
Loop
%>
</select>
<%
rs.close
set rs = nothing
%>
MODELO
<%
sqltxt="select modelo from dispositivo order by modelo"
set rs=createobject("ADODB.Recordset")
rs.open sqltxt,Conn
%>
<select name="modelo" id="select7">
<%
response.write "<option value=0 selected>°°°SELECCIONE UN MODELO DE DISPOSITIVO °°°"
response.write "<option value=2345 selected> 2345"
Do while not rs.eof
completa=cstr(rs("modelo"))
if len(completa)=1 then
completa="0"&completa
end if

Response.Write " <option value='" & completa & "' >" & rs("modelo") &"</option>"
rs.movenext
completa=""
Loop
%>
</select>
</strong><strong>
<%
rs.close
set rs = nothing
%>
</strong></p>
<p align="left"> </p>
<p align="left"><strong>MARCA
<%
sqltxt="select marca from dispositivo order by marca"
set rs=createobject("ADODB.Recordset")
rs.open sqltxt,Conn

%>
<select name="marca" id="select6">
<%
response.write "<option value=0 selected>°°°SELECCIONE LA MARCA DEL DISPOSITIVO °°°"
response.write "<option value=compaq selected>compaq"
response.write "<option value=dell selected>dell"

Do while not rs.eof
completa=cstr(rs("marca"))
if len(completa)=1 then
completa="0"&completa
end if

Response.Write " <option value='" & completa & "' >" & rs("marca") &"</option>"
rs.movenext
completa=""
Loop
%>
</select>
<%
rs.close
set rs = nothing
%>
NUMERO.SERIE
<input type="text" name="textfield">
</strong></p>
<p align="center"><strong>DESCRIPCION
<textarea name="textarea"></textarea>

<FORM NAME="aceButton"><INPUT TYPE="BUTTON" VALUE="agregar" onClick="vacio">
</strong></p>
<p align="center"><strong> </strong></p>
<p align="left"> </p>
<p align="left"><strong><u><font color="#0000FF">TIPOS DE DISPOSITIVOS</font></u></strong></p>
<p align="left"><strong>TIPO_ DISPOSITIVO
<%

sqltxt="select tipo_dispositivo from tipodispo"
set rs=createobject("ADODB.Recordset")
rs.open sqltxt,Conn
%>
<select name="tipo_dispositivo" id="select9">
<%
response.write "<option value=0 selected>°°°SELECCIONE UN TIPO DE DISPOSITIVO°°°"
Do while not rs.eof
completa=cstr(rs("tipo_dispositivo"))
if len(completa)=1 then
completa="0"&completa
end if

Response.Write " <option value='" & completa & "' >" & rs("tipo_dispositivo") &"</option>"
rs.movenext
completa=""
Loop
%>
</select>
<%
rs.close
set rs = nothing
%>
CAUSA</strong>
<%
sqltxt="select causa from tipodispo order by causa"
set rs=createobject("ADODB.Recordset")
rs.open sqltxt,Conn

%>
<select name="causa" id="select10">
<%
response.write "<option value=0 selected>°°°SELECCIONE LA CAUSA °°°"

Do while not rs.eof
completa=cstr(rs("causa"))
if len(completa)=1 then
completa="0"&completa
end if

Response.Write " <option value='" & completa & "' >" & rs("causa") &"</option>"
rs.movenext
completa=""
Loop
%>
</select>
<%
rs.close
set rs = nothing
%>
<strong> </strong> </p>
<p align="center"><strong><font face="Arial, Helvetica, sans-serif">COMENTARIOS</font>
</strong></p>
<p align="center"><strong>
<textarea name="textarea2"></textarea>
</strong><strong>
<label> </label>
<label> </label>
</strong></p>
<p align="center"><strong>
<FORM NAME="aceButton"><INPUT TYPE="BUTTON" VALUE="agregar" onClick="vacio"></FORM>
<label> </label></p>
<p align="right"><strong>
<input name="cancelar" type="button" id="cancelar2" value="Cancelar" onClick="window.open('<%=pagina%>','<%=marco%>')">
<input name="guardar" type="button" id="guardar2" value="Guardar Registro" onClick="validarreg()">
<label><br>
</label>
</strong></p></td>
</tr>
</table>
<p align="center"> </p>
<p align="center"><img src="images/logo_cpd.gif" width="125" height="77" align="right"></p>
<p align="right"><strong><font face="Arial, Helvetica, sans-serif"> CENTRO DE
PROCESAMIENTO DE DATOS</font></strong></p>
</form>
<script language="JavaScript">
Dim dp
dim nom
dim Fo
dim nivel
Fo=trim(<%=elfoco%>)
nivel=trim(<%=elnivel%>)

SELECT CASE Fo
case 0:
if nivel<>1 then
MandaF(14)
else
MandaF(1)
end if
case 20:
MandaF(0)

case 1:
//msgbox "1"
MandaF(1)
case 2:
// msgbox "2"
MandaF(2)
case 3:
// msgbox "3"
MandaF(3)
case 4:
// msgbox "3"
MandaF(4)
case 11:
// msgbox "3"
MandaF(11)
case 12:
// msgbox "3"
MandaF(12)

END SELECT

function Verificar ()
msgbox ""
end function

function Traspasar()
dim indice
dim longitud
dim indice2
dim indice3

if altasinventario.plataforma.value<>0 AND altasinventario.id_marca.value<>0 AND altasinventario.marca.value<>0 ""then
indice=document.altasinventario.plataforma.selectedindex
indice2=document.altasinventario.id_marca.selectedindex
indice3=document.altasinventario.marca.selectedindex

longitud= document.altasinventario.plataforma.length
set elemento=document.CreateElement("option")
document.altasinventario.plataforma.add elemento
set elemento= nothing
document.altasinventario.plataforma.item(longitud).value= cstr(altasinventario.id_marca.value & " " & altasinventario.marca.value& " " & altasinventario.id_marca.value)
document.altasinventario.plataforma.item(longitud).text =document.altasinventario.marca.item(indice2).text & " " & document.altasinventario.marca.item(indice3).text

document.altasinventario.id_marca.selectedindex=0
document.altasinventario.marca.selectedindex=0

TraspasarSerie

borrarId_Marca
borrarMarca
end if

altasinventario.marcas.focus()
end function

function Traspasar()
dim indice
dim longitud
dim indice2
dim indice3
dim indice4

if altasinventario.plataforma.value<>0 AND altasinventario.modelos.value<>0 AND altasinventario.marca.value<>0 AND altasinventario.descripcion.value<>0 ""then
indice=document.altasinventario.plataforma.selectedindex
indice2=document.altasinventario.modelo.selectedindex
indice3=document.altasinventario.marca.selectedindex
indice4=document.altasinventario.descripcion.selectedindex

longitud= document.altasinventario.plataforma.length
set elemento=document.CreateElement("option")
document.altasinventario.plataforma.add elemento
set elemento= nothing
document.altasinventario.plataforma.item(longitud).value= cstr(altasinventario.modelo.value & " " & altasinventario.modelo.value& " " & altasinventario.modelo.value)
document.altasinventario.plataforma.item(longitud).text =document.altasinventario.marca.item(indice2).text & " " & document.altasinventario.marca.item(indice3).text
document.altasinventario.plataforma.item(longitud).text =document.altasinventario.descripcion.item(indice3).text & " " & document.altasinventario.descripcion.item(indice4).text

document.altasinventario.modelo.selectedindex=0
document.altasinventario.marca.selectedindex=0
document.altasinventario.descripcion.selectedindex=0

TraspasarSerie

borrarModelo
borrarMarca
borrarDescripcion
end if

altasinventario.modelos.focus()
end function

function Traspasar()
dim indice
dim longitud
dim indice2
dim indice3
dim indice4
dim indice5
dim indice6

if altasinventario.plataforma.value<>0 AND altasinventario.dispositivo.value<>0 AND AND altasinventario.modelodispositivo.value<>0 AND altasinventario.marcadispositivo.value<>0 and trim(altasinventario.numeroserie.value)"" then
indice= document.altasinventario.plataforma.selectedindex
indice2=document.altasinventario.dispositivo.selectedindex
indice3=document.altasinventario.modelo.selectedindex
indice4=document.altasinventario.marca.selectedindex
indice5=document.altasinventario.numeroserie.selectedindex
indice6=document.altasinventario.descripcion.selectedindex

longitud = document.altasinventario.plataforma.length
Set elemento = document.CreateElement("option")
document.altasinventario.espplataforma.add elemento
set elemento = nothing
document.altasinventario.plataforma.item(longitud).value = cstr(altasinventario.dispositivo.value & " " & altasinventario.marcadispositivo.value & " " & altasinv.modelodispositivo.value & " " & altasinventario.numeroserie.value & " " & altasinventario.descripcion.value)
document.altasinventario.plataforma.item(longitud).text =document.altasinventario.dispositivo.item(indice2).text & " " & document.altasinv.marcadispo.item(indice3).text & " " & document.altasinventario.modelodispositivo.item(indice4).text & " " & document.altasinventario.numeroserie.item(indice5).text & " " & document.altasinventario.descripcion.item(indice6).text

document.altasinventario.plataforma.selectedindex=0
document.altasinventario.dispositivo.selectedindex=0
document.altasinventario.marcadispositivo.selectedindex=0
document.altasinventario.modelodispositivo.selectedindex=0
document.altasinventario.numeroserie.selectedindex=0
document.altasinventario.descripcion.selectedindex=0

TraspasarSerie

borrarplataforma
borrarDispositivo
borrarmarcadispositivo
borrarmodelodispositivo
borrarnumeroserie
borrardescripcion
end if

altasinventario.dispositivo.focus()
end function

function Traspasar()
dim indice
dim longitud
dim indice2
dim indice3

if altasinventario.tipo_dispositivo.value<>0 AND altasinventario.causa.value<>0 AND altasinventario.comentario.value<>0"" then
indice= document.altasinventario.tipo_dispositivo.selectedindex
indice2= document.altasinventario.causa.selectedindex
indice3 = document.altasinventario.comentario.selectedindex

longitud = document.altasinventario.comentarios.length

Set elemento = document.CreateElement("option")
document.altasinventario.comentario.add elemento
set elemento = nothing
document.altasinventario.comentario.item(longitud).value = cstr(altasinventario.tipo_dispositivo.value & "@"
document.altasinventario.comentario.item(longitud).text ="MARCA:" & document.altasinventario.tipo_dispositivo.item(indice2).text & " TIPO:" & document.altasinventario.causa.item(indice3).text

// document.altasinventario.tipo_dispositivo.selectedindex=0
// document.altasinventario.causa.selectedindex=0
// document.altasinventario.comentario.selectedindex=0

// TraspasarSerieCom
borrarTipodispositivo
borrarCausa
borrarComentario
end if

altasinventario.tipo_dispositivo.focus()
end function
function Mandar(opc)
dim cadena
dim tama
dim tama1
dim tama2
dim Equipo
dim ElTopo

Equipo=altasinventario.tipoequipo.value
tama = document.altasinventario.plataforma.length
for r=0 to tama-1
altasinventario.plataforma(r).selected=true
next

tama1 = document.altasinventario.serie.length
for r=0 to tama-1
altasinventario.serie(r).selected=true
next
ElTopo= <%=equipo%>
if cint(Equipo) =2 then

cadena= "inventario.asp?eq="+altasinventario.tipoequipo.value+"&mar="+altasinventario.marcas.value+"&mod="+altasinventario.modelos.value+"&eqdis="+altasinventario.dispositivos.value+"&mardis="+altasinv.marcadispositivo.value+"&moddis="+altasinv.modelodispositivo.value+"&idusuario="+altasinventario.tipodispositivo.value
else
if ElTopo =2 then
cadena= "inventario.asp?eq="+altasinventario.tipoequipo.value+"&mar="+altasinventario.marcas.value+"&mod="+altasinv.modelos.value+"&eqdis="+altasinv.dispositivo.value+"&mardis="+altasinventario.marcadispositivo.value+"&moddis="+altasinventario.modelodispositivo.value
else
cadena= "inventario.asp?eq="+altasinventario.tipoequipo.value+"&mar="+altasinventario.marcas.value+"&mod="+altasinventario.modelos.value+"&eqdis="+altasinventario.tipodispositivo.value+"&mardis="+altasinventario.marcadispositivo.value+"&moddis="+altasinventario.modelodispositivo.value
end if
end if

document.altasinventario.action = cadena
altasinventario.submit()
end function

function MandarDatos()
dim cadena
dim tama
dim tama1
dim tama2
dim Equipo
dim band
band=0

if (trim(altasinventario.id_marca.value)="" or trim(altasinventario.id_marca.value)="0") and band =0 then
band=1
msgbox "Seleccione la clave de la marca"
altasinventario.id_marca.focus()
end if
if (trim(altasinventario.marca.value)="" or trim(altasinventario.marca.value)="0") and band =0 then
band=1
msgbox "Seleccione la marca"
altasinventario.marca.focus()
end if
if (trim(altasinventario.modelo.value)="" or trim(altasinventario.modelo.value)="0") and band =0 then
band=1
msgbox "Seleccione el modelo"
altasinventario.modelo.focus()
end if
if (trim(altasinventario.marcamodelo.value)="" or trim(altasinventario.marcamodelo.value)=0) and band =0 then
band=1
msgbox "Seleccione la marca del modelo"
altasinventario.marcamodelo.focus()
end if

if (trim(altasinventario.descripcionmodelo.value)="" or trim(altasinventario.descripcionmodelo.value)=0) and band =0 then
band=1
msgbox "Complete la descripcion de cada modelo"
altasinventario.descripcionmodelo.focus()
end if

if (trim(altasinventario.dispositivo.value)="" or trim(altasinventario.dispositivo.value)=0) and band =0 then
band=1
msgbox "Seleccione el dispositivo"
altasinventario.dispositivo.focus()
end if

if (trim(altasinventario.modelodispositivo.value)="" or trim(altasinventario.modelodispositivo.value)="0") and band =0 then
band=1
msgbox "Seleccione el modelo del dispositivo"
altasinventario.modelodispositivo.focus()
end if

if (trim(altasinventario.marcadispositivo.value)="" or trim(altasinventario.marcadispositivo.value)="0") and band =0 then
band=1
msgbox "Seleccione la marca del dispositivo"
altasinventario.marcadispositivo.focus()
end if

if (trim(altasinventario.numeroserie.value)="" or trim(altasinventario.numeroserie.value)="0")and band=0 then
band=1
msgbox "Seleccione el numero de serie"
altasinventario.numeroserie.focus()
end if

if (trim(altasinventario.descripcion.value)="" or trim(altasinventario.descripcion.value)="0")and band=0 then
band=1
msgbox "complete la descripcion del dispositivo "
altasinventario.descripcion.focus()
end if

if (trim(altasinventario.tipo_dispositivo.value)="" or trim(altasinventario.tipo_dispositivo.value)="0")and band =0 then
band=1
msgbox "Seleccione el tipo de dispositivo"
altasinventario.tipo_dispositivo.focus()
end if

if (trim(altasinventario.causa.value)="" or trim(altasinventario.causa.value)="0") and band=0 then
band =1
msgbox "Seleccione la causa"
altasinventario.causa.focus()
end if

if (trim(altasinventario.comentarios.value)="" or trim(altasinventario.comentarios.value)="0") and band=0 then
band=1
msgbox "Por favor proporcione el comentario"
altasinventario.comentario.focus()
end if
//altasinventario.id_marca.value
//altasinventario.marca.value
//altasinventario.modelo.value
//altasinventario.marcamodelo.value
//altasinventario.descripcionmodelo.value
//altasinventario.dispositivo.value
//altasinventario.modelodispositivo.value
//altasinventario.marcadispositivo.value
//altasinventario.numeroserie.value
//altasinventario.descripcion.value
//altasinventario.tipo_dispositivo.value
//altasinventario.causa.value
//altasinventario.comentario.value
if band=0 then
Equipo=altasinventario.tipoequipo.value
tama = document.altasinventario.plataforma.length
for r=0 to tama-1
altasinventario.plataforma(r).selected=true
next

tama1 = document.altasinventario.serie.length
for r=0 to tama-1
altasinventario.serie(r).selected=true
next

cadena= "altainventario1.asp"
document.altasinventario.action = cadena

altasinventario.submit()
end if
end function

sub borrars()
dim indice
dim longitud
indice = document.altasinventario.plataforma.selectedindex
if indice>=0 then
document.altasinventario.plataforma.remove(indice)
document.altasinventario.serie.remove(indice)
else
msgbox "Seleccione un dispositivo para borrarlo"
end if
end sub

sub mandar()
MyVar = MsgBox ("Su información es correcta ?", 4, "Advertencia")
if myvar=6 then
altasreg.submit()
end if
end sub
sub SeleccionaReg()
dim indice
dim longitud
indice = document.altasinventario.plataforma.selectedindex
altasinventario.serie.selectedindex=indice
end sub
sub SeleccionaReg1()
dim indice
dim longitud

indice = document.altasinventario.serie.selectedindex
altasinventario.plataforma.selectedindex=indice
end sub

function MandaF(opc)
select case opc

case 0
altasinventario.id_marca.focus()
case 1
altasinventario.marca.focus()
case 2
altasinventario.modelo.focus()
case 3
altasinventario.marcamodelo.focus()
case 4
altasinv.descripcionmodelo.focus()
case 5
altasinventario.dispositivo.focus()
case 6
altasinventario.modelodispositivo.focus()
case 7
altasinventario.marcadispositivo.focus()
case 8
altasinventario.numeroserie.focus()

case 9 altasinventario.descripcion.focus()

case 10
altasinventario.tipo_dispositivo.focus()
case 11
altasinventario.causa.focus()
case 12
altasinventario.comentario.focus()
end select
end function
function MandaFtxt(opc)
dim num1
dim num2
if window.event.keyCode=13 then
select case opc
case 1
altasinventario.marca.focus()
case 2
altasinventario.modelo.focus()
case 3
altasinventario.dispositivo.focus()

case 4 altasinventario.tipo_dispositivo.focus()
end select
end if
end function

sub borrarMarcas()
dim r
r=document.altasinventario.marcas.length
Do while r>=0
document.altasinventario.marcas.remove(r)
r=r-1
msgbox("seleccione la marca para borrarla")
loop

end sub

sub borrarModelos()
dim r
r=document.altasinventario.modelos.length
Do while r>=0
document.altasinventario.modelos.remove(r)
r=r-1
msgbox("seleccione el modelo para borrarlo")
loop

end sub

sub borrarDispositivos()
dim r
r=document.altasinventario.dispositivos.length
Do while r>=0
document.altasinventario.dispositivos.remove(r)
r=r-1
msgbox("seleccione el dispositivo para borralo")
loop

end sub

sub borrarTipo_dispositivo()
dim r
r=document.altasinventario.tipo_dispositivo.length
Do while r>=0
document.altasinventario.tipo_dispositivo.remove(r)
r=r-1
msgbox("seleccione el tipo de dispositivo para borrarlo")
loop
end sub

sub modificarMarcas()
dim r
r=document.altasinventario.marcas.length
Do while r>=0
document.altasinventario.marcas.remove(r)
r=r-1
msgbox("seleccione la marca que desea modificar")
loop
end sub

sub ModificarModelos()
dim r
r=document.altasinventario.modelos.length
Do while r>=0
document.altasinventario.modelos.remove(r)
r=r-1
msgbox("seleccione el modelo que desea modificar")
loop
end sub

sub modificarDispositivos()
dim r
r=document.altasinventario.dispositivos.length
Do while r>=0
document.altasinventario.dispositivos.remove(r)
r=r-1
msgbox("seleccione el dispositivo que desea modificar")
loop
end sub

sub modificarTipos_dispositivo()
dim r
r=document.altasinventario.tipo_dispositivo.length
Do while r>=0
document.altasinventario.tipo_dispositivo.remove(r)
r=r-1
msgbox("seleccione el tipo de dispositivo que desea modificar")
loop
end sub
</script>

Foros > ASP: inventario en asp

Responder Mensaje >

responder