<%
Option Explicit
Session.LCID = 2058
'***** SI NO HA INICIADO SESION ***
If Session("Mybussiness") = "" then
Response.redirect("default.asp")
Else
Session.Timeout = 1200
'******* EN CASO DE ERROR ****
Err.Clear
On Error Resume Next
'*** REMPLAZA
Function Sanea(Texto)
Sanea = Replace(Texto, "'", "''")
End Function
%>
<!DOCTYPE html>
<HTML>
<HEAD>
<meta charset="ISO-8859-1" />
<TITLE>SISTEMA MIM <%= Session("Mybussiness") %> USUARIO: <%= Session("MyName") %></TITLE>
<link href="css/Modulos.css" rel="stylesheet" />
<link href="css/Buscador.css" rel="stylesheet" />
</HEAD>
<BODY>
<%
'***** Variables a la base de datos ****
Dim Cn1
Dim Cn14, Cn15, Cn16, Cn17, Cn18, Cn19, Cn20, Cn21, Cn22, Cn23, Cn24, Cn25, Cn26, Cn27, Cn28, Cn29
Dim Rs11, Rs12, Rs13, Rs14, Rs15, Rs16, Rs17, Rs18, Rs19, Rs20, Rs21, Rs22, Rs23, Rs24, Rs25, Rs26, Rs27, Rs28, Rs29, Rs30
Dim Sql11, Sql12, Sql13, Sql14, Sql15, Sql16, Sql17, Sql18, Sql19, Sql20, Sql21, Sql22, Sql23, Sql24, Sql25, Sql26, Sql27, Sql28, Sql29, Sql30
'***** Conexion a la Base de Datos
Set Cn1 = Server.CreateObject( "ADODB.Connection" )
Cn1.Open "DRIVER={SQL Server};SERVER=172.17.0.5;UID="& Session("MyName") &";PWD="& Session("MyPass") &";Database="& Session("Mybussiness") &""
'***** Conexion A la Tabla Empresa ****
Set Rs11 = Server.CreateObject("ADODB.Recordset")
Sql11="Select * from Empresa;"
Rs11.Open Sql11,Cn1,1,2
%>
<SECTION Class="HeaderGes">
<div Id="DivHeadGes">
<%= Rs11("Nombre") %><br>
<%= Rs11("Direccion") %>, <%= Rs11("colonia") %><br>
<%= Rs11("Poblacion") %>
</div>
</SECTION>
<SECTION>
<center>
<br>
<B>***** ALTA DE CLIENTES *****</B>
<br><br>
<%
Dim Clave, Nombre, Calle, Numero, Interior, Colonia, Poblacion, Estado, Pais, CPostal, RFC
Dim Status, Vendedor, Cotizador, Clasificacion, DiasC, Limite, LimiteUSD, Maniobra, Descuento, Utilidad
Dim ComVendedor, ComCotizador, Lista, CuentaCOI, CuentaACoi, AnticipoCoi, AnticipoACoi, Saldo
Dim Referencia, Revision, Cobro, RutaE, RutaC, Falta
Dim Contacto, Email, Telefono, ContactoC, EmailC, TelefonoC
Dim Restricciones, HRecibo, Observaciones, UsuarioA, Proveedor, CuentaPago, FormaPago
Dim Addenda, TipoCliente, Aseguradora, Supesos, Sudolares, RegimenFiscal, RegCap
Clave = Request("Clave")
Nombre = Request("Nombre")
Calle = Request("Calle")
Numero = Request("Numero")
Interior = Request("Interior")
Colonia = Request("Colonia")
Poblacion = Request("Poblacion")
Estado = Request("Estado")
Pais = Request("Pais")
Cpostal = Request("Cpostal")
RFC = Request("RFC")
Status = Request("Status")
Vendedor = 34
Cotizador = 34
Clasificacion = ""
DiasC = 0
Limite = 0
LimiteUSD = 0
Maniobra = 0
Descuento = Request("Descuento")
Utilidad = 0
ComVendedor = 0
ComCotizador = 0
Lista = 1
CuentaCOI = "0000-000-000"
CuentaACoi = "0000-000-000"
AnticipoCoi = "0000-000-000"
AnticipoACoi = "0000-000-000"
Saldo = 0
Referencia = 0
Revision = "INDEFINIDO"
Cobro = "INDEFINIDO"
RutaE = 0
RutaC = 0
Falta = Date()
Contacto = Request("Contacto")
Telefono = Request("Telefono")
Email = Request("Email")
ContactoC = ""
TelefonoC = ""
EmailC = ""
Restricciones = ""
HRecibo = ""
Observaciones = ""
UsuarioA = Session("MyName")
Proveedor = ""
CuentaPago = "NO APLICA"
FormaPago = "99"
Addenda = 0
TipoCliente = "C"
Aseguradora = 0
Supesos = 0
Sudolares = 0
RegimenFiscal = Request("RegimenFiscal")
RegCap = Request("RegCap")
'***** Conexion A la Tabla Empresa ****
Set Rs12 = Server.CreateObject("ADODB.Recordset")
Sql12="Select * from Clientes " &_
"Where Clacli = '"& Clave &"';"
Rs12.Open Sql12,Cn1,1,2
If Rs12.EOF Then
Set Rs13 = Server.CreateObject("ADODB.Recordset")
Sql13="Insert Into Clientes " &_
"(CLACLI, CLAANT, NOMCLI, CALCLI, NUMCLI, NUMICLI, COLCLI, POBCLI, EDOCLI, PAIS, CPCLI, RFCCLI, STACLI, " &_
"VENCLI, COTCLI, CLSCLI, DIACLI, LIMCLI, LIMUSD, MANCLI, DESCLI, UTICLI, CVECLI, CCOCLI, TPECLI, COICLI, " &_
"COACLI, ANTCOI, ANTECOI, SALCLI, REFERENCIA, REVCLI, COBCLI, RENCLI, RCOCLI, FALCLI, CONCLI, TCOCLI, " &_
"FCOCLI, ECOCLI, CPACLI, TPACLI, FPACLI, EPACLI, RESCLI, RECCLI, OBSCLI, USUCLI, NUMPRO, CTAPAGO, FORMAPAGO, " &_
"ADDECLI, TIPOCLI, ASEGURADORA, SUPESOS, SUDOLARES, RegimenFiscal, RegCap) " &_
"Values('"& Sanea(Clave) &"', '"& Sanea(Clave) &"', '"& Sanea(Nombre) &"', '"& Sanea(Calle) &"', '"& Sanea(Numero) &"', '"& Sanea(Interior) &"', '"& Sanea(Colonia) &"', " &_
"'"& Sanea(Poblacion) &"', '"& Sanea(Estado) &"', '"& Sanea(Pais) &"', '"& Sanea(Cpostal) &"', '"& Sanea(RFC) &"', '"& Status &"', " &_
""& Vendedor &", "& Cotizador &", '"& Clasificacion &"', "& DiasC &", "& Limite &", "& LimiteUSD &", "& Maniobra &", " &_
""& Descuento &", "& Utilidad &", "& ComVendedor &", "& ComCotizador &", "& Lista &", '"& CuentaCoi &"', '"& CuentaACoi &"', " &_
"'"& AnticipoCoi &"', '"& AnticipoACoi &"', "& Saldo &", "& Referencia &", '"& Revision &"', '"& Cobro &"', " &_
""& RutaE &", "& RutaC &", '"& Falta &"', '"& Sanea(Contacto) &"', '"& Sanea(Telefono) &"', '', '"& Sanea(Email) &"', " &_
"'"& ContactoC &"', '"& TelefonoC &"', '', '"& EmailC &"', '"& Restricciones &"', '"& Hrecibo &"', '"& Observaciones &"', " &_
"'"& UsuarioA &"', '"& Proveedor &"', '"& CuentaPago &"', '"& FormaPago &"', "& Addenda &", '"& TipoCliente &"', " &_
""& Aseguradora &", "& Supesos &", "& Sudolares &", '"& RegimenFiscal &"', '"& RegCap &"');"
Cn1.Execute Sql13
Response.redirect("Cliadd.asp")
Else
%>
<b>La clave <%= Clave %> Ya existe y corresponde al cliente <%= Rs12("Nomcli") %></b>
<br><br>
<form>
<input type="button" value="Regresar" name="Back2" onclick="history.back()" />
</div>
</form>
<%
End If
%>
</SECTION>
<%
If Err.Number <> 0 Then
%>
<br><br>
Número de Error: <%= Err.Number %><BR>
Descripción: <%= Err.Description %><BR>
Origen: <%= Err.Source %><BR>
Linea: <%= Err.Line %><BR>
<br>
<%
Else
'****** FIN DE LOS ERRORES ***
End If
%>
</BODY>
</HTML>
<%
'FIN DE SESION
End If
%>