<%
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, 'Nomcli', 'Nombre');
errors += checkText(formname, 'Calcli', 'Calle');
errors += checkText(formname, 'Colcli', 'Colonia');
errors += checkText(formname, 'Pobcli', 'Poblacion');
errors += checkText(formname, 'Cpcli', 'Codigo Postal');
errors += checkNum(formname, 'Cpcli', 'Codigo Postal');
errors += checkText(formname, 'RFCcli', 'RFC');
errors += checkText(formname, 'diacli', 'Dias de Credito');
errors += checkText(formname, 'concli', 'Compras');
checkThisForm(formname, submitbutton, errors);
}
//-->
</script>
</head>
<BODY>
<!--#INCLUDE FILE="BARRA.asp"-->
<div class="normalw" style="position:absolute; top:1px">
<center>
<!--#include file="empresa.asp"-->
<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:70px; left:15">
<%
Dim rs11, sql11
dim Cliente, Registro
Dim Aseguradora, msga
'Cliente= Request("Cliente")
Registro= Request("Registro")
set rs11 = server.CreateObject("ADODB.Recordset")
sql11 = "SELECT Clientes.*, VENDEDORES.nomvend, Cotizadores.NOMcot FROM" &_
"(Clientes INNER JOIN VENDEDORES ON Clientes.vencli = VENDEDORES.CVevend) INNER JOIN Cotizadores ON Clientes.cotcli = Cotizadores.cvecot " &_
"WHERE Regcli= " & Registro &";"
rs11.open sql11,cn1,1,2
If Rs11("Aseguradora") = 0 Then
msga =""
Else If Rs11("Aseguradora") = 1 Then
msga = "checked"
End If
End If
%>
<center>
<b>Modificaciones al Cliente: <%Response.Write rs11("nomcli")%><br>
<hr>
<Form action="Cliup.asp" name="Cliup" method='post'>
<TABLE border=0 cellspacing=1 cellpadding=1 class="normal">
<tr>
<td class="normal" width=100px>Clave:</td>
<td class="normal" width=400px><input type=Hidden class=normalb value="<%= rs11("Regcli") %>" name="Registro" size=5 onChange="javascript:this.value=this.value.toUpperCase();"><%= rs11("clacli") %></td>
</tr>
<tr>
<td class="normal" width=100px>Aseguradora:</td>
<td class="normal" width=400px>
<input type="checkbox" name="ASEGURADORA" value="1" <%= msga %>>
</td>
</tr>
<tr>
<td class="normal" width=100px>SUPLEMENTO PESOS</td>
<td class="normal" width=400px><input type=text class=normalb value="<%Response.Write rs11("SUPESOS")%>" name="SUPESOS" size=5 onChange="javascript:this.value=this.value.toUpperCase();"></td>
</tr>
<tr>
<td class="normal" width=100px>SUPLEMENTO DOLARES:</td>
<td class="normal" width=400px><input type=text class=normalb value="<%Response.Write rs11("SUDOLARES")%>" name="SUDOLARES" size=5 onChange="javascript:this.value=this.value.toUpperCase();"></td>
</tr>
<tr>
<td class="normal" width=100px>Nombre:</td>
<td class="normal" width=400px><input type=text class=normalb value="<%Response.Write rs11("nomcli")%>" name="Nomcli" size=70 onChange="javascript:this.value=this.value.toUpperCase();"></td>
</tr>
<tr>
<td class="normal" width=100px>Reg. Cap:</td>
<td class="normal" width=400px><input type=text class=normalb value="<%Response.Write rs11("RegCap")%>" name="RegCap" size=70 onChange="javascript:this.value=this.value.toUpperCase();"></td>
</tr>
<tr>
<td class="normal" width=100px>Calle:</td>
<td class="normal" width=400px><input type=text class=normalb value="<%Response.Write rs11("calcli")%>" name=Calcli size=50 onChange="javascript:this.value=this.value.toUpperCase();"></td>
</tr>
<tr>
<td class="normal" width=100px>Número:</td>
<td class="normal" width=400px><input type=text class=normalb value="<%Response.Write rs11("numcli")%>" name=numcli size=10 onChange="javascript:this.value=this.value.toUpperCase();"></td>
</tr>
<tr>
<td class="normal" width=100px>Número Int:</td>
<td class="normal" width=400px><input type=text class=normalb value="<%Response.Write rs11("numicli")%>" name=numicli size=10 onChange="javascript:this.value=this.value.toUpperCase();"></td>
</tr>
<tr>
<td class="normal" width=100px>Colonia:</td>
<td class="normal" width=400px><input type=text class=normalb value="<%Response.Write rs11("colcli")%>" name=Colcli size=70 onChange="javascript:this.value=this.value.toUpperCase();"></td>
</tr>
<tr>
<td class="normal" width=100px>Población:</td>
<td class="normal" width=400px><input type=text class=normalb value="<%Response.Write rs11("pobcli")%>" name=Pobcli size=40 onChange="javascript:this.value=this.value.toUpperCase();"></td>
</tr>
<tr>
<td class="normal" width=100px>Estado:</td>
<td class="normal" width=400px>
<%
Dim rs5, sql5
set rs5 = server.CreateObject("ADODB.Recordset")
Sql5 ="select * from Estados order by nomedo"
rs5.Open SQL5, cn1
'Move to the first record in the recordset
response.write "<SELECT NAME=Edocli class=normalb>"
response.write "<optgroup label=Seleccionado:>"
response.write "<option value='" & rs11("edocli") & "' Selected>" & rs11("edocli")
response.write "<optgroup label=Cambiar_Por:>"
while not rs5.EOF
response.write "<OPTION value='" & rs5("edoateb") & "'>" & rs5("NOMEDO") & "</option>"
rs5.MoveNext
wend
response.write "</select>"
%>
</td>
</tr>
<tr>
<td class="normal" width=100px>Cod. Postal:</td>
<td class="normal" width=400px><input type=text class=normalb value="<%Response.Write rs11("cpcli")%>" name=Cpcli size=5 onChange="javascript:this.value=this.value.toUpperCase();"></td>
</tr>
<tr>
<td class="normal" width=100px>R.F.C.:</td>
<td class="normal" width=400px><input type=text class=normalb value="<%Response.Write rs11("rfccli")%>" name=RFCcli size=14 onChange="javascript:this.value=this.value.toUpperCase();"></td>
</tr>
<tr>
<td class="normal" width=100px>REGIMEN FISCAL:</td>
<td class="normal" width=400px><input type=text class=normalb value="<%Response.Write rs11("RegimenFiscal")%>" name=RegimenFiscal size=14 onChange="javascript:this.value=this.value.toUpperCase();"></td>
</tr>
<tr>
<td class="normal" width=100px>Status:</td>
<td class="normal" width=400px><input type=text class=normalb value="<%Response.Write rs11("stacli")%>" name=stacli size=1 onChange="javascript:this.value=this.value.toUpperCase();"></td>
</tr>
<tr>
<td class="normal" width=100px>No. Proveedor:</td>
<td class="normal" width=400px><input type=text class=normalb value="<%Response.Write rs11("numpro")%>" name=numpro size=10 onChange="javascript:this.value=this.value.toUpperCase();"></td>
</tr>
<tr>
<td class="normal" width=100px>Vendedor:</td>
<td class="normal" width=400px>
<%
'Dim rs6, sql6
'set rs6 = server.CreateObject("ADODB.Recordset")
'Sql6 ="select * from vendedores"
'rs6.Open SQL6, cn1
'response.write "<SELECT NAME=vencli class=normalb>"
'response.write "<optgroup label=Vendedor:>"
'response.write "<option value='" & rs11("vencli") & "' selected>" & rs11("nomvend")
'response.write "<optgroup label=Cambiar_Por:>"
'while not rs6.EOF
'response.write "<OPTION value=" & rs6("cvevend") & ">" & rs6("nomvend")
'rs6.MoveNext
'wend
'response.write "</select>"
%>
( <%= rs11("vencli") %> ) <%= rs11("nomvend") %>
<input type=Hidden class=normalb value="<%Response.Write rs11("vencli")%>" name=vencli size=10 onChange="javascript:this.value=this.value.toUpperCase();">
</td>
</tr>
<tr>
<td class="normal" width=100px>Cotizador:</td>
<td class="normal" width=400px>
<%
'Dim rs7, sql7
'set rs7 = server.CreateObject("ADODB.Recordset")
'Sql7 ="select * from Cotizadores"
'rs7.Open SQL7, cn1
'response.write "<SELECT NAME=cotcli class=normalb>"
'response.write "<optgroup label=Seleccionado:>"
'response.write "<option value='" & rs11("cotcli") & "' Selected>" & rs11("nomcot")
'response.write "<optgroup label=Cambiar_Por:>"
'while not rs7.EOF
'response.write "<OPTION value=" & rs7("cvecot") & ">" & rs7("nomcot")
'rs7.MoveNext
'wend
'response.write "</select>"
%>
( <%= rs11("cotcli") %> ) <%= rs11("nomcot") %>
<input type=Hidden class=normalb value="<%Response.Write rs11("cotcli")%>" name=cotcli size=10 onChange="javascript:this.value=this.value.toUpperCase();">
</td>
</tr>
<tr>
<td class="normal" width=100px>Dias de Credito:</td>
<td class="normal" width=400px><input type=text class=normalb value="<%Response.Write rs11("diacli")%>" name=diacli size=5 onChange="javascript:this.value=this.value.toUpperCase();"></td>
</tr>
<tr>
<td class="normal" width=100px>Limite Credito MX:</td>
<td class="normal" width=400px><input type=text class=normalb value="<%Response.Write FormatCurrency(rs11("limcli"))%>" name=limcli size=14 onChange="javascript:this.value=this.value.toUpperCase();"></td>
</tr>
<tr>
<td class="normal" width=100px>Limite Credito USD:</td>
<td class="normal" width=400px><input type=text class=normalb value="<%Response.Write FormatCurrency(rs11("LimUSD"))%>" name="LimUSD" size=14 onChange="javascript:this.value=this.value.toUpperCase();"></td>
</tr>
<tr>
<td class="normal" width=100px>Descuento:</td>
<td class="normal" width=400px><input type=text class=normalb value="<%Response.Write FormatNumber(rs11("descli"))%>" name=descli size=5 onChange="javascript:this.value=this.value.toUpperCase();"> %</td>
</tr>
<tr>
<td class="normal" width=100px>Utilidad:</td>
<td class="normal" width=400px><input type=text class=normalb value="<%Response.Write FormatNumber(rs11("uticli"))%>" name=uticli size=5 onChange="javascript:this.value=this.value.toUpperCase();"> %</td>
</tr>
<tr>
<td class="normal" width=100px>Com. Vendedor:</td>
<td class="normal" width=400px><input type=text class=normalb value="<%Response.Write formatNumber(rs11("cvecli"))%>" name=cvecli size=5 onChange="javascript:this.value=this.value.toUpperCase();"> %</td>
</tr>
<tr>
<td class="normal" width=100px>Com. Cotizador:</td>
<td class="normal" width=400px><input type=text class=normalb value="<%Response.Write Formatnumber(rs11("ccocli"))%>" name=ccocli size=5 onChange="javascript:this.value=this.value.toUpperCase();"> %</td>
</tr>
<tr>
<td class="normal" width=100px>Tabla Precios:</td>
<td class="normal" width=400px><input type=text class=normalb value="<%Response.Write rs11("tpecli")%>" name=tpecli size=1 onChange="javascript:this.value=this.value.toUpperCase();"></td>
</tr>
<tr>
<td class="normal" width=100px></td>
<td class="normal" width=400px></td>
</tr>
<tr>
<td class="normal" width=100px>Cuenta Pago:</td>
<td class="normal" width=400px><input type=text class=normalb value="<%Response.Write rs11("ctapago")%>" name="cuenta" size=30 onChange="javascript:this.value=this.value.toUpperCase();"></td>
</tr>
<tr>
<td class="normal" width=100px>Forma Pago:</td>
<td class="normal" width=400px><input type=text class=normalb value="<%Response.Write rs11("formapago")%>" name="fpago" size=30 onChange="javascript:this.value=this.value.toUpperCase();"></td>
</tr>
<tr>
<td class="normal" width=100px>Cuenta Coi Pesos:</td>
<td class="normal" width=400px><input type=text class=normalb value="<%Response.Write rs11("coicli")%>" name=coicli size=12 onChange="javascript:this.value=this.value.toUpperCase();"></td>
</tr>
<tr>
<td class="normal" width=100px>Cuenta Coi Dolares:</td>
<td class="normal" width=400px><input type=text class=normalb value="<%Response.Write rs11("Coacli")%>" name="Coacli" size=12 onChange="javascript:this.value=this.value.toUpperCase();"></td>
</tr>
<tr>
<td class="normal" width=100px>REFERENCIA BANCARIA:</td>
<td class="normal" width=400px><input type=text class=normalb value="<%Response.Write rs11("REFERENCIA")%>" name="REFERENCIA" size=12 onChange="javascript:this.value=this.value.toUpperCase();" STYLE="TEXT-ALIGN:RIGHT"></td>
</tr>
<tr>
<td class="normal" width=100px>Dias Revisión:</td>
<td class="normal" width=400px><input type=text class=normalb value="<%Response.Write rs11("revcli")%>" name=revcli size=14 onChange="javascript:this.value=this.value.toUpperCase();"></td>
</tr>
<tr>
<td class="normal" width=100px>Dias Cobro:</td>
<td class="normal" width=400px><input type=text class=normalb value="<%Response.Write rs11("cobcli")%>" name=cobcli size=14 onChange="javascript:this.value=this.value.toUpperCase();"></td>
</tr>
<tr>
<td class="normal" width=100px>Ruta Entrega:</td>
<td class="normal" width=400px><input type=text class=normalb value="<%Response.Write rs11("rencli")%>" name=rencli size=1 onChange="javascript:this.value=this.value.toUpperCase();"></td>
</tr>
<tr>
<td class="normal" width=100px>Ruta cobro:</td>
<td class="normal" width=400px><input type=text class=normalb value="<%Response.Write rs11("rcocli")%>" name=rcocli size=1 onChange="javascript:this.value=this.value.toUpperCase();"></td>
</tr>
<tr>
<td class="normal" width=100px>Comprador:</td>
<td class="normal" width=400px><input type=text class=normalb value="<%Response.Write rs11("concli")%>" name=concli size=50 onChange="javascript:this.value=this.value.toUpperCase();"></td>
</tr>
<tr>
<td class="normal" width=100px>Telefonos:</td>
<td class="normal" width=400px><input type=text class=normalb value="<%Response.Write rs11("tcocli")%>" name=tcocli size=40 onChange="javascript:this.value=this.value.toUpperCase();"></td>
</tr>
<tr>
<td class="normal" width=100px>Faxes:</td>
<td class="normal" width=400px><input type=text class=normalb value="<%Response.Write rs11("fcocli")%>" name=fcocli size=40 onChange="javascript:this.value=this.value.toUpperCase();"></td>
</tr>
<tr>
<td class="normal" width=100px>E-mail:</td>
<td class="normal" width=400px><input type=text class=normalb value="<%Response.Write rs11("ecocli")%>" name=ecocli size=50 onChange="javascript:this.value=this.value.toLowerCase();"></td>
</tr>
<tr>
<td class="normal" width=100px>Pagos:</td>
<td class="normal" width=400px><input type=text class=normalb value="<%Response.Write rs11("cpacli")%>" name=cpacli size=50 onChange="javascript:this.value=this.value.toUpperCase();"></td>
</tr>
<tr>
<td class="normal" width=100px>Telefonos:</td>
<td class="normal" width=400px><input type=text class=normalb value="<%Response.Write rs11("tpacli")%>" name=tpacli size=40 onChange="javascript:this.value=this.value.toUpperCase();"></td>
</tr>
<tr>
<td class="normal" width=100px>Faxes:</td>
<td class="normal" width=400px><input type=text class=normalb value="<%Response.Write rs11("fpacli")%>" name=fpacli size=40 onChange="javascript:this.value=this.value.toUpperCase();"></td>
</tr>
<tr>
<td class="normal" width=100px>E-mail:</td>
<td class="normal" width=400px><input type=text class=normalb value="<%Response.Write rs11("epacli")%>" name=epacli size=50 onChange="javascript:this.value=this.value.toLowerCase();"></td>
</tr>
<tr>
<td class="normal" width=100px>Restricciones:</td>
<td class="normal" width=400px><input type=text class=normalb value="<%Response.Write rs11("rescli")%>" name=rescli size=60 onChange="javascript:this.value=this.value.toUpperCase();"></td>
</tr>
<tr>
<td class="normal" width=100px>H. Recepción:</td>
<td class="normal" width=400px><input type=text class=normalb value="<%Response.Write rs11("reccli")%>" name=reccli size=30 onChange="javascript:this.value=this.value.toUpperCase();"></td>
</tr>
<tr>
<td class="normal" width=100px>Observaciones:</td>
<td colspan=7><textarea class="normalb" name=obscli cols="70" rows="4" onChange="javascript:this.value=this.value.toUpperCase();"><%Response.Write rs11("Obscli")%></textarea></td>
</tr>
<tr>
<td colspan=2><center><input type="button" class="normalb" name="Submit" value="Aceptar" onClick="check('Cliup', this.name);"></td>
</tr>
</table>
<hr>
</center>
</div>
</body>
</html>
<%
End Sub
'Add the chosen course to the cart
Call AddUsuario()
'Display contents of electronic shopping cart
Call DisplayUsuario()
%>