<%
Option Explicit
Session.LCID = 2058
%>
<!--#include file="User.asp"-->
<!--#include file="general.asp"-->
<html>
<head>
<title>Grupo MIM</title>
<link rel="stylesheet" href="vista.css">
<script type="text/javascript" src="validacion.js"></script>
<script type="text/javascript">
<!--
function check(formname, submitbutton) {
var errors = '';
;
errors += checkText(formname, 'Numcert', 'Certificado');
errors += checkText(formname, 'Numcol', 'Colada');
errors += checkText(formname, 'Cantidad', 'Cantidad');
errors += checkNum(formname, 'Cantidad', 'Cantidad');
errors += checkText(formname, 'Numrecep', 'Compra');
errors += checkNum(formname, 'Numrecep', 'Compra');
checkThisForm(formname, submitbutton, errors);
}
//-->
</script>
</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="normal" style="position:absolute; top:60px; left:10">
<center>
<b> ***** Modificar Un Certificado *****
<hr>
<%
Dim Rs11, Sql11, Rs12, Sql12, Rs13, Sql13
Dim CveProv, NomPrv, Code, DesPro
Dim Folio
Dim Proveedor, CveProd, Numrecep, Numcert, Numcol, Cantidad, Carpeta, Comentarios
Folio = Request("Folio")
CveProv = Request("Cveprov")
Code = Request("Code")
Set Rs13 = server.CreateObject("ADODB.Recordset")
Sql13 = "Select * From Certificados where Folio = "& Folio &";"
Rs13.Open Sql13,cn1,1,2
Proveedor = Rs13("Proveedor")
CveProd = Rs13("CveProd")
NumRecep = Rs13("NumRecep")
Numcert = Rs13("Numcert")
Numcol = Rs13("Numcol")
Cantidad = Rs13("Cantidad")
Carpeta = Rs13("Carpeta")
Comentarios = Rs13("Comentarios")
If CveProv = "" or Isnull(CveProv) or CveProv = "00000000" Then
CveProv = Proveedor
Else
CveProv = Cveprov
End If
Set Rs11 = server.CreateObject("ADODB.Recordset")
Sql11 = "Select Cveprv, Nomprv From Proveedores where Cveprv = '"& CveProv &"';"
Rs11.Open Sql11,cn1,1,2
NomPrv = Rs11("Nomprv")
If Code = "" or Isnull(Code) or Code = "00000000" Then
Code = Cveprod
Else
Code = Code
End If
Set Rs12 = server.CreateObject("ADODB.Recordset")
Sql12 = "Select Cveinv, Nominv From Inventarios Where Cveinv = '"& Code &"';"
Rs12.Open Sql12,cn1,1,2
Despro = Rs12("Nominv")
%>
<Form action="Caltip2.asp" name="Caltip2" method="Post">
<Table border="0" cellspacing="0" cellpadding="0">
<tr bgcolor="#336699">
<td><font class="n_verdana">Clave </td>
<td><font class="n_verdana">Proveedor </td>
<td><font class="n_verdana">Codigo </td>
<td Colspan="2"><font class="n_verdana">Descripcion </td>
</TR>
<Tr>
<td align="Center"><font class="n_verdana_simple"><a Href="BuscaPrvCerb.asp?Cveprov=<%= CveProv %>&Code=<%= Code %>&Folio=<%= Folio %>"><%= Proveedor %></font></td>
<td align="left"><font class="n_verdana_simple"><%= NomPrv %> </font></td>
<td align="Center"><font class="n_verdana_simple"><a Href="BuscaCodeCerb.asp?Cveprov=<%= CveProv %>&Code=<%= Code %>&Folio=<%= Folio %>"><%= CveProd %></font></td>
<td align="left" Colspan="2"><font class="n_verdana_simple"><%= DesPro %> </font></td>
</Tr>
<tr bgcolor="#336699">
<td><font class="n_verdana">Entrada </td>
<td><font class="n_verdana">Certificado </td>
<td><font class="n_verdana">Colada </td>
<td><font class="n_verdana">Cantidad </td>
<td><font class="n_verdana">Carpeta </td>
</TR>
<Tr>
<td align="left"><font class="n_verdana_simple">
<Input type="Hidden" class="normalb" name="Proveedor" Value="<%= CveProv %>" Size="12" onChange="javascript:this.value=this.value.toUpperCase();">
<Input type="Hidden" class="normalb" name="Cveprod" Value="<%= Code %> "Size="12" onChange="javascript:this.value=this.value.toUpperCase();">
<Input type="Hidden" class="normalb" name="Folio" Value="<%= Folio %> "Size="12" onChange="javascript:this.value=this.value.toUpperCase();">
<Input type="Text" class="normalb" name="Numrecep" Size="12" Value="<%= Numrecep %>" style="Text-Align:Right;" onChange="javascript:this.value=this.value.toUpperCase();">
</td>
<td align="left"><font class="n_verdana_simple">
<Input type="Text" class="normalb" name="Numcert" Size="20" Value="<%= Numcert %>" onChange="javascript:this.value=this.value.toUpperCase();">
</td>
<td align="left"><font class="n_verdana_simple">
<Input type="Text" class="normalb" name="Numcol" Size="20" Value="<%= Numcol %>" onChange="javascript:this.value=this.value.toUpperCase();">
</td>
<td align="Center"><font class="n_verdana_simple">
<Input type="Text" class="normalb" name="Cantidad" Size="12" Value="<%= Cantidad %>" style="Text-Align:Right;"onChange="javascript:this.value=this.value.toUpperCase();">
</td>
<td align="Center"><font class="n_verdana_simple">
<Input type="Text" class="normalb" name="Carpeta" Size="20" Value="<%= Carpeta %>" onChange="javascript:this.value=this.value.toUpperCase();">
</td>
</Tr>
<tr bgcolor="#336699">
<td Colspan="5"><font class="n_verdana">Observaciones </td>
</TR>
<Tr>
<td align="Center" Colspan="5">
<Textarea Class="normalb" Name="Comentarios" cols="100" rows="6" onChange="javascript:this.value=this.value.toUpperCase();">
<%= Comentarios %>
</Textarea>
</td>
</Tr>
<Tr>
<td align="Center" Colspan="5"><font class="n_verdana_simple">
Archivo Anexo:
<input type="radio" name="File" value="1" Class="Normal" Checked> SI
<input type="radio" name="File" value="0" Class="Normal">NO
</font></td>
</Tr>
<Tr>
<td align="Center" Colspan="5">
<input type="button" class="normalb" name="Submit" value="Aceptar" onClick="check('Caltip2', this.name);">
</td>
</Tr>
</Table>
</Form>
</div>
</body>
</html>
<%
End Sub
'Add the chosen course to the cart
Call AddUsuario()
'Display contents of electronic shopping cart
Call DisplayUsuario()
%>