<%
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 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>
<%
Dim Cliente
Cliente = Request("Cliente")
%>
<center>
<br>
<B>***** BUSCA TU CLAVE DE CLIENTE DE SISTEMA MIM *****
<br><br>
</B>
<b>
<br><br>
<Form action="CLIMODSAP.asp" method="post">
<Table Id="CRMform">
<Tr>
<Td>Cliente</Td>
<Td>
<input tabindex="1" type="text" placeholder="Cliente" Title="Cliente" name="Cliente" id="Cliente" value="<%= Cliente %>" Size="5px" onChange="javascript:this.value=this.value.toUpperCase();">
</Td>
<Td>
<button tabindex="3" type="submit" name="Buscar" id="Buscar"/>Buscar</button>
</Td>
<Tr>
</Table>
</Form>
<%
'---- CONDICIONAL PARA SABER SI EXISTE LA Nota de Credito -----
If Cliente= "" Or Isnull(Cliente) Then
Else
Dim clavem
clavem = Request("clavem")
Set Rs12 = server.CreateObject("ADODB.Recordset")
Sql12="Select CLACLI,NOMCLI,CLISAP from clientes " &_
"Where CLACLI ='"& Cliente &"';"
Rs12.open Sql12,Cn1,1,2
'****** CONDICIONAL SI ES FIN DE ARCHIVO RECORDSET 12
If Rs12.Eof Then
'****** EN CASO QUE EXISTA ****
Else
%>
<br> <br>
<Form action="CLIMSAP.asp" name="NotaCr" method="POST">
<Table Id="Transfer">
<Tr>
<Td>Clave_MIM</Td> <Td>Nombre Cliente</Td> <Td>Clave_SAP</Td>
</Tr>
<Tr>
<Td><input tabindex="1" type="text" placeholder="Cliente" Title="Cliente" name="Cliente" id="Cliente" value="<%= Rs12("clacli") %>" Size="8px" onChange="javascript:this.value=this.value.toUpperCase();" readonly /></td>
<Td><input tabindex="2" type="text" placeholder="NOMBRE" Title="NOMBRE" name="NOMBRE" id="NOMBRE" value="<%= Rs12("nomcli") %>" Size="30px" onChange="javascript:this.value=this.value.toUpperCase();" readonly /></td>
<Td><input tabindex="3" type="text" placeholder="clavem" Title="clavem" name="clavem" id="clavem" value="<%= Rs12("clisap") %>" Size="8px" onChange="javascript:this.value=this.value.toUpperCase();" /></td>
</Tr>
</Table>
<Tr>
<Td Colspan="3" Align="Center"><input type="submit" value="ACTUALIZAR"> </Td>
</Tr>
</FORM>
<%
'******* FIN DE ARCHIVO RECORDSET 12
End If
'---- SE CIERRA LA CONDICIONAL PARA SABER SI EXISTE LA FACTURA ----
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
%>