<%
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">
<%
Dim Rs30, Sql30
Dim NumeroS
NumeroS = Session.sessionid
Set Rs30 = server.CreateObject("ADODB.Recordset")
Sql30="Delete from Fremdtem where sestremd = "& Numeros &";"
Cn1.Execute Sql30
%>
<center>
<br><br>
<Form action="Fremadd.asp" name="FindCli" method='post'>
<TABLE border=0 cellspacing=0 cellpadding=0 class="normal">
<tr>
<td Class="Normalb">Clave:</td>
<td><input type=text class=normalb name="Clacli" size=14 onChange="javascript:this.value=this.value.toUpperCase();"></td>
</tr>
<tr>
<td Class="Normalb">Cliente:</td>
<td><input type=text class=normalb name="Nomcli" size=40 onChange="javascript:this.value=this.value.toUpperCase();"></td>
<td>  <input type="submit" value="Buscar" class=normalb></td>
</tr>
</table>
</form>
<hr>
<FORM action="Fremgpar.asp" name="Fremgpar" method='post'>
Agregar Una Remision:
<table cellspacing="2" cellpadding="2" border=0 align="center">
<tr>
<td class="normal">Remision:</td>
<td>
<select class="normal" name="Tiprem">
<option value="Fremped">Pedido
</select>
</td>
</tr>
<tr>
<td class="normal">Cliente</td>
<td class="normal">
<%
Dim rs5, sql5
set rs5 = server.CreateObject("ADODB.Recordset")
sql5="select clacli, nomcli From Clientes " &_
"where stacli = 'A' and Nomcli like '%" & UCase(Request("Nomcli")) & "%' " &_
"and Clacli like '%" & UCase(Request("Clacli")) & "%' order by nomcli asc;"
rs5.Open SQL5, cn1
'Move to the first record in the recordset
response.write "<SELECT NAME=Cliente class=normalb>"
while not rs5.EOF
response.write "<OPTION value='" & rs5("Clacli") & "'>" & rs5("clacli") & " - " & rs5("Nomcli") & "</option>"
rs5.MoveNext
wend
response.write "</select>"
%>
</td>
</tr>
<tr>
<td class="normal">Almacen</td>
<td class="normal">
<%
Dim rs6, sql6
set rs6 = server.CreateObject("ADODB.Recordset")
Sql6 ="select claalm, desalm from almacenes;"
rs6.Open SQL6, cn1
'Move to the first record in the recordset
response.write "<SELECT NAME=ALma class=normalb>"
while not rs6.EOF
response.write "<OPTION value='" & rs6("claalm") & "'>" & rs6("claalm") & " - " & rs6("desalm") & "</option>"
rs6.MoveNext
wend
response.write "</select>"
%>
</td>
</tr>
<tr>
<td class="normal">Moneda:</td>
<td class="normal">
<%
Dim rs7, sql7
set rs7 = server.CreateObject("ADODB.Recordset")
Sql7 ="select * from monedas;"
rs7.Open SQL7, cn1
response.write "<SELECT NAME=mone class=normalb>"
while not rs7.EOF
response.write "<OPTION value='" & rs7("cladiv") & "'>" & rs7("sigdiv") & " - " & rs7("desdiv") & " ( " & Formatcurrency(rs7("Tcadiv")) & " ) " & "</option>"
rs7.MoveNext
wend
response.write "</select>"
%>
</td>
</tr>
</tr>
<tr>
<td class="normal">Iva:</td>
<td class="normal">
<%
Dim rs8, sql8
set rs8 = server.CreateObject("ADODB.Recordset")
Sql8 ="select * from esquemaIva;"
rs8.Open SQL8, cn1
%>
<SELECT NAME=Esquema class=normalb>
<optgroup label=" Iva | Retencion">
<%
while not rs8.EOF
%>
<OPTION value="<%= rs8("regiva") %>">
Iva: <%= rs8("iva") %> %| Retencion:<%= rs8("retencion") %> %
</option>
<%
rs8.MoveNext
wend
response.write "</select>"
%>
</td>
</tr>
<tr>
<td>
</td>
<td>
<input type="submit" value="Aceptar" class=normalb>
</td>
</tr>
</table>
</form>
<hr>
</div>
<div class="normal" style="position:absolute; top:80px; left:1">
</div>
</body>
</html>
<%
End Sub
'Add the chosen course to the cart
Call AddUsuario()
'Display contents of electronic shopping cart
Call DisplayUsuario()
%>