<%
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">
</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>
Captura de Remisiones
<hr>
<%
Dim Remision
Dim Rs11, Sql11, Rs12, Sql12
Dim InspeS, CertEs
Remision = Request("Remision")
If Remision = "" or Isnull(Remision) then
Remision = "000000"
else
Remision = Remision
End If
%>
<Form action="Remcer.asp" name="Remision" method='post'>
<TABLE border=0 cellspacing=0 cellpadding=0 class="normal">
<tr>
<td Class="Normalb">Remision: </td>
<td><input type=text class=normalb name="Remision" value="<%= Remision %>" size="7"></td>
<td><input type="submit" value="Buscar" name="Buscar" class="normalb"></td>
</tr>
</table>
</form>
<br>
<%
If Remision = "" or Isnull(Remision) then
%>
Buscar Un Numero de Remision <br>
<%
Else
Set Rs11 = server.CreateObject("ADODB.Recordset")
Sql11 ="Select Numfreme, Fecfreme, FecIns, Inspeccionado, EntregaC, Nomcli " &_
"From Fremenc, Clientes where Numfreme = "& Remision &" and Clifreme = clacli;"
Rs11.Open Sql11, cn1
If Rs11.Eof then
%>
No Existe la Remision: <%= Remision %>
<%
else
If Rs11("Inspeccionado") = 0 Then
Inspes = "No"
Else
Inspes = "Si"
end If
If Rs11("entregaC") = 0 Then
Certes = "No"
Else If Rs11("entregaC") = 1 Then
Certes = "Si"
Else
Certes = "NR"
end If
end If
%>
<Form action="Remcerg.asp" name="Remision" method='post'>
<TABLE border=1 cellspacing=1 cellpadding=0 class="normal">
<tr>
<td Class="Normalb">Remision: </td>
<td Class="Normalb">Fecha: </td>
<td Class="Normalb">Cliente: </td>
</tr>
<Tr>
<td Class="Normaln" align="right"><%= Rs11("Numfreme") %> </td>
<td Class="Normaln" align="center"><%= Rs11("fecfreme") %> </td>
<td Class="Normaln" align="left"><%= Rs11("nomcli") %> </td>
</tr>
<tr>
<td Class="Normalb">Inspeccionado: </td>
<td Class="Normalb">Fecha Inspeccion: </td>
<td Class="Normalb">Certificado Entregado: </td>
</tr>
<Tr>
<td Class="Normaln" align="center">
<input type="radio" name="Inspe" value=1 checked>Si
<input type="radio" name="Inspe" value=0>No
</td>
<td Class="Normaln" align="center"><%= Date()%> </td>
<td Class="Normaln" align="center">
<input type="radio" name="CerEnt" value=1 checked>Si
<input type="radio" name="CerEnt" value=0>No
<input type="radio" name="CerEnt" value=2>NR
<input type=Hidden class=normalb name="Remision" value="<%= Remision %>" size="7">
</td>
</tr>
<Tr>
<Td Colspan="3" Align="Center">
<input type="submit" value="Agregar" class="normalb">
</td>
</tr>
</table>
</form>
<hr>
Remision <%= Remision %> Actual <br>
<TABLE border=1 cellspacing=1 cellpadding=0 class="normal">
<tr>
<td Class="Normalb">Remision: </td>
<td Class="Normalb">Fecha: </td>
<td Class="Normalb">Cliente: </td>
</tr>
<Tr>
<td Class="Normaln" align="right"><%= Rs11("Numfreme") %> </td>
<td Class="Normaln" align="center"><%= Rs11("fecfreme") %> </td>
<td Class="Normaln" align="left"><%= Rs11("nomcli") %> </td>
</tr>
<tr>
<td Class="Normalb">Inspeccionado: </td>
<td Class="Normalb">Fecha Inspeccion: </td>
<td Class="Normalb">Certificado Entregado: </td>
</tr>
<Tr>
<td Class="Normaln" align="center"><%= Inspes %> </td>
<td Class="Normaln" align="center"><%= Rs11("fecins") %> </td>
<td Class="Normaln" align="center"><%= Certes %> </td>
</tr>
</table>
<%
End If
End If
%>
</div>
</body>
</html>
<%
End Sub
'Add the chosen course to the cart
Call AddUsuario()
'Display contents of electronic shopping cart
Call DisplayUsuario()
%>