<%
Option Explicit
%>
<!--#include file="User.asp"-->
<!--#include file="general.asp"-->
<%
Session.LCID = 2058
%>
<%
Dim rs33, sql33
Dim Codigo
Codigo= Cstr(Request.Form("cveinv"))
set rs33 = server.CreateObject("ADODB.Recordset")
sql33 = "Select * from inventarios where cveinv = '" & Codigo & "';"
rs33.open sql33,cn1,1,2
If rs33.EOF then
%>
<%
Dim rs11, sql11
Dim Descripcion, Description, Unidad, Unit, Linea, Slinea, Factor
Dim Precioa, Preciob, Precioc, Moneda, Crp1, Crp2, preoinv
Dim Minimo, Maximo, tep1, tep2, Uventa, Ucompra, Peso, Tipo
Dim Provee1, Prol1, Provee2, prol2, Status, Imagen, Observaciones
Descripcion= cSTR(Request.Form("Nominv"))
Description= cSTR(server.HtmlEncode(Request.Form("nomiinv")))
Unidad=cstr(Request.Form("udminv"))
Unit= cstr(Request.Form("udmiinv"))
Linea= cstr(Request.Form("lininv"))
Slinea= cstr(Request.Form("slininv"))
Factor= Cdbl(0.00)
Precioa= Cdbl(Request.Form("plainv"))
Preciob= Cdbl(Request.Form("plbinv"))
Precioc= Cdbl(Request.Form("plcinv"))
Moneda= server.HtmlEncode(Request.Form("mplinv"))
Crp1= 0.00
Crp2= 0.00
Minimo= Cdbl(Request.Form("Smininv"))
Maximo= Cdbl(Request.Form("Smaxinv"))
preoinv= Cdbl(Request.Form("preoinv"))
tep1= Cdbl(Request.Form("tep1inv"))
tep2= Cdbl(Request.Form("tep2inv"))
Peso= Cdbl(Request.Form("pesoinv"))
Provee1= server.HtmlEncode(Request.Form("prv1inv"))
Crp1= Cdbl(Request.Form("crp1inv"))
Provee2= server.HtmlEncode(Request.Form("prv2inv"))
Crp2= Cdbl(Request.Form("crp2inv"))
Tipo = cSTR(Request.Form("Tipo"))
Status= "A"
Imagen= server.HtmlEncode(Request.Form("imainv"))
Observaciones= cstr(Request.Form("obsinv"))
sql11="insert into Inventarios" & _
"(Cveinv, nominv, Udminv, nomiinv, udmiinv, lininv, slininv, facpinv, plainv, plbinv, plcinv, mplinv," &_
"smininv, smaxinv, preoinv, pesoinv, prv1inv, crp1inv, tep1inv," &_
"prv2inv, crp2inv, tep2inv, stainv, imainv, obsinv, tipinv, exiinv, exirinv, apainv, cominv, cpinv, ultcinv, codeant)" &_
"values ('" & Codigo & "', '" & Descripcion & "', '" & Unidad & "', '" & Description & "', '" & Unit & "'," &_
"" & Linea & ", " & Slinea & ", " & Factor & ", " & precioa & ", " & Preciob & ", " & Precioc & "," &_
"" & Moneda & ", " & Minimo & ", " & Maximo & ", " & preoinv & ", " & Peso & "," &_
"'" & Provee1 & "', " & Crp1 & ", " & tep1 & ", '" & Provee2 & "', " & Crp2 & ", " & tep2 & ", '" & status & "', " &_
"'" & Imagen & "', '" & Observaciones & "', "& Tipo &", 0, 0, 0, 0, 0, 0, '" & Codigo & "')"
Cn1.Execute sql11
Response.Redirect("Invalm.asp?prod=" & Codigo & "&Descri="& Descripcion &"")
%>
<%
Else
%>
<html>
<head>
<title>Grupo MIM</title>
<link rel=stylesheet href="vista.css">
</head>
<BODY>
<!--#INCLUDE FILE="BARRA.asp"-->
<div class="normalw" style="position:absolute; top:1px">
<center>
<!--#include file="empresa.asp"--><br>
<hr>
</center>
</div>
<div class="normalw" style="position:absolute; top:1px;">
Bienvenido: <%= nombre %>. <br>
Hora Actual: <%= time %>
</div>
<div class="normalw" style="position:absolute; top:34px; left:1">
<!--#include file="mpro.asp"-->
</div>
<div class="normalw" style="position:absolute; top:1px;">
Bienvenido: <%= nombre %>. <br>
Hora Actual: <%= time %>
</div>
<div class="normalw" style="position:absolute; top:34px; left:1">
<!--#include file="mpro.asp"-->
</div>
<div style="position:absolute; top:80px; left:10">
<%
Response.Write("Este Codigo ya existe = "& Codigo &"")
%>
</div>
</body>
<%
End If
End Sub
'Add the chosen course to the cart
Call AddUsuario()
'Display contents of electronic shopping cart
Call DisplayUsuario()
%>