<%
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/Modulo5.css" rel="stylesheet" />
<SCRIPT LANGUAGE="JavaScript">
<!-- Begin
function NewWindow(mypage, myname, w, h, scroll) {
var winl = (screen.width - w) / 2;
var wint = (screen.height - h) / 2;
winprops = 'height='+h+',width='+w+',top='+wint+',left='+winl+',scrollbars='+scroll+',resizable'
win = window.open(mypage, myname, winprops)
if (parseInt(navigator.appVersion) >= 4) { win.window.focus(); }
}
// End -->
</script>
</HEAD>
<BODY>
<%
'***** Variables a la base de datos ****
Dim Cn1
Dim Rs11
Dim Sql11
'***** 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
%>
<Header>
<%= Rs11("Nombre") %><br>
<%= Rs11("Direccion") %>, <%= Rs11("colonia") %><br>
<%= Rs11("Poblacion") %>
</header>
<SECTION>
<CENTER>
<Br><Br>
<%
Dim RFC
RFC = Request("RFC")
%>
<Form action="PedClientes.asp" method="post">
<Table Id="KardexTd">
<Tr>
<Td><input tabindex="1" type="text" placeholder="RFC" Title="RFC" name="RFC" Size="15" id="TablaOpc" value="<%= RFC %>" Size="7px" onChange="javascript:this.value=this.value.toUpperCase();"></td>
<Td><button tabindex="4" type="submit" name="Buscar" id="Buscar"/>Buscar</button></td>
<Td> </Td>
<Td>
<a Href="Cliadd.asp">
<Img Src="Image/PedClientes.gif">
</a>
</Td>
</Tr>
</table>
</Form>
<a href = "Help/Procedimiento Alta de Cliente Mostrador.pdf" onclick="NewWindow(this.href,'AltaCli','1024','600','yes');return false;">Procedimiento Alta de Cliente Mostrador</a>
<%
'**** VARIABLES PARA EMPRESAS ****
Dim Cn12
Dim Cn13, Cn14, Cn15
Dim Cn16, Cn17
Dim Cn18, Cn19, Cn20, Cn21
Dim Cn22
Dim Cn23, Cn24, Cn25, Cn26, Cn27
Dim Cn28, Cn29, cN30
Dim Rs12
Dim Rs13, Rs14, Rs15
Dim Rs16, Rs17
Dim Rs18, Rs19, Rs20, Rs21
Dim Rs22
Dim Rs23, Rs24, Rs25, Rs26, Rs27
Dim Rs28, Rs29, Rs30
Dim Sql12
Dim Sql13, Sql14, Sql15
Dim Sql16, Sql17
Dim Sql18, Sql19, Sql20, Sql21
Dim Sql22
Dim Sql23, Sql24, Sql25, Sql26, Sql27
Dim Sql28, Sql29, Sql30
%>
<%
'***** Conexion a la Base de Datos BAJIO *****
Set Cn12 = Server.CreateObject( "ADODB.Connection" )
Cn12.Open "DRIVER={SQL Server};SERVER=172.17.0.5;UID=USRVISOR;PWD=USGPO01;Database=BAJIO"
'***** Conexion A la Tabla Clientes ****
Set Rs12 = Server.CreateObject("ADODB.Recordset")
Sql12="Select * from Clientes Where RFCCli = '"& Trim(RFC) &"';"
Rs12.Open Sql12,Cn12,1,2
If Rs12.EOF Then
Else
%>
<BR><BR>
<Table Id="KardexTd" Width="1024px">
<Tr>
<Td Colspan="7" Id="Resultados"> BAJIO</Td>
</Tr>
<Tr>
<Td>Clave</Td>
<Td>Nombre</Td>
<Td>RFC</Td>
<Td>Status</Td>
<Td>Alta</Td>
<Td>U_compra</Td>
<Td>Saldo</Td>
<Td>Su Pesos</Td>
<Td>Su Dls</Td>
</Tr>
<%
Do While Not Rs12.EOF
%>
<Tr>
<Td><%= Rs12("ClaCli") %></Td>
<Td><%= Rs12("nomCli") %></Td>
<Td><%= Rs12("RFCCli") %></Td>
<Td><%= Rs12("Stacli") %></Td>
<Td><%= Rs12("Falcli") %></Td>
<Td><%= Rs12("Ucocli") %></Td>
<Td><%= Formatnumber(Rs12("Salcli")) %></Td>
<Td><%= Formatnumber(Rs12("Supesos")) %></Td>
<Td><%= Formatnumber(Rs12("Sudolares")) %></Td>
</Tr>
<%
Rs12.Movenext
Loop
%>
</Table>
<%
End If
%>
<%
'***** Conexion a la Base de Datos COATZA *****
Set Cn13 = Server.CreateObject( "ADODB.Connection" )
Cn13.Open "DRIVER={SQL Server};SERVER=172.17.0.5;UID=USRVISOR;PWD=USGPO01;Database=COATZA"
'***** Conexion A la Tabla Clientes ****
Set Rs13 = Server.CreateObject("ADODB.Recordset")
Sql13="Select * from Clientes Where RFCCli = '"& Trim(RFC) &"';"
Rs13.Open Sql13,Cn13,1,2
If Rs13.EOF Then
Else
%>
<BR><BR>
<Table Id="KardexTd" Width="1024px">
<Tr>
<Td Colspan="7" Id="Resultados"> COATZACOALCOS</Td>
</Tr>
<Tr>
<Td>Clave</Td>
<Td>Nombre</Td>
<Td>RFC</Td>
<Td>Status</Td>
<Td>Alta</Td>
<Td>U_compra</Td>
<Td>Saldo</Td>
<Td>Su Pesos</Td>
<Td>Su Dls</Td>
</Tr>
<%
Do While Not Rs13.EOF
%>
<Tr>
<Td><%= Rs13("ClaCli") %></Td>
<Td><%= Rs13("nomCli") %></Td>
<Td><%= Rs13("RFCCli") %></Td>
<Td><%= Rs13("Stacli") %></Td>
<Td><%= Rs13("Falcli") %></Td>
<Td><%= Rs13("Ucocli") %></Td>
<Td><%= Formatnumber(Rs13("Salcli")) %></Td>
<Td><%= Formatnumber(Rs13("Supesos")) %></Td>
<Td><%= Formatnumber(Rs13("Sudolares")) %></Td>
</Tr>
<%
Rs13.Movenext
Loop
%>
</Table>
<%
End If
%>
<%
'***** Conexion a la Base de Datos VILLAHERMOSA *****
Set Cn14 = Server.CreateObject( "ADODB.Connection" )
Cn14.Open "DRIVER={SQL Server};SERVER=172.17.0.5;UID=USRVISOR;PWD=USGPO01;Database=VILLAHERMOSA"
'***** Conexion A la Tabla Clientes ****
Set Rs14 = Server.CreateObject("ADODB.Recordset")
Sql14="Select * from Clientes Where RFCCli = '"& Trim(RFC) &"';"
Rs14.Open Sql14,Cn14,1,2
If Rs14.EOF Then
Else
%>
<BR><BR>
<Table Id="KardexTd" Width="1024px">
<Tr>
<Td Colspan="7" Id="Resultados"> VILLAHERMOSA</Td>
</Tr>
<Tr>
<Td>Clave</Td>
<Td>Nombre</Td>
<Td>RFC</Td>
<Td>Status</Td>
<Td>Alta</Td>
<Td>U_compra</Td>
<Td>Saldo</Td>
<Td>Su Pesos</Td>
<Td>Su Dls</Td>
</Tr>
<%
Do While Not Rs14.EOF
%>
<Tr>
<Td><%= Rs14("ClaCli") %></Td>
<Td><%= Rs14("nomCli") %></Td>
<Td><%= Rs14("RFCCli") %></Td>
<Td><%= Rs14("Stacli") %></Td>
<Td><%= Rs14("Falcli") %></Td>
<Td><%= Rs14("Ucocli") %></Td>
<Td><%= Formatnumber(Rs14("Salcli")) %></Td>
<Td><%= Formatnumber(Rs14("Supesos")) %></Td>
<Td><%= Formatnumber(Rs14("Sudolares")) %></Td>
</Tr>
<%
Rs14.Movenext
Loop
%>
</Table>
<%
End If
%>
<%
'***** Conexion a la Base de Datos PINTURAS *****
Set Cn15 = Server.CreateObject( "ADODB.Connection" )
Cn15.Open "DRIVER={SQL Server};SERVER=172.17.0.5;UID=USRVISOR;PWD=USGPO01;Database=PINTURAS"
'***** Conexion A la Tabla Clientes ****
Set Rs15 = Server.CreateObject("ADODB.Recordset")
Sql15="Select * from Clientes Where RFCCli = '"& Trim(RFC) &"';"
Rs15.Open Sql15,Cn15,1,2
If Rs15.EOF Then
Else
%>
<BR><BR>
<Table Id="KardexTd" Width="1024px">
<Tr>
<Td Colspan="7" Id="Resultados"> PINTURAS</Td>
</Tr>
<Tr>
<Td>Clave</Td>
<Td>Nombre</Td>
<Td>RFC</Td>
<Td>Status</Td>
<Td>Alta</Td>
<Td>U_compra</Td>
<Td>Saldo</Td>
<Td>Su Pesos</Td>
<Td>Su Dls</Td>
</Tr>
<%
Do While Not Rs15.EOF
%>
<Tr>
<Td><%= Rs15("ClaCli") %></Td>
<Td><%= Rs15("nomCli") %></Td>
<Td><%= Rs15("RFCCli") %></Td>
<Td><%= Rs15("Stacli") %></Td>
<Td><%= Rs15("Falcli") %></Td>
<Td><%= Rs15("Ucocli") %></Td>
<Td><%= Formatnumber(Rs15("Salcli")) %></Td>
<Td><%= Formatnumber(Rs15("Supesos")) %></Td>
<Td><%= Formatnumber(Rs15("Sudolares")) %></Td>
</Tr>
<%
Rs15.Movenext
Loop
%>
</Table>
<%
End If
%>
<%
'***** Conexion a la Base de Datos GUADALAJARA *****
Set Cn16 = Server.CreateObject( "ADODB.Connection" )
Cn16.Open "DRIVER={SQL Server};SERVER=172.17.0.5;UID=USRVISOR;PWD=USGPO01;Database=GUADALAJARA"
'***** Conexion A la Tabla Clientes ****
Set Rs16 = Server.CreateObject("ADODB.Recordset")
Sql16="Select * from Clientes Where RFCCli = '"& Trim(RFC) &"';"
Rs16.Open Sql16,Cn16,1,2
If Rs16.EOF Then
Else
%>
<BR><BR>
<Table Id="KardexTd" Width="1024px">
<Tr>
<Td Colspan="7" Id="Resultados"> GUADALAJARA</Td>
</Tr>
<Tr>
<Td>Clave</Td>
<Td>Nombre</Td>
<Td>RFC</Td>
<Td>Status</Td>
<Td>Alta</Td>
<Td>U_compra</Td>
<Td>Saldo</Td>
<Td>Su Pesos</Td>
<Td>Su Dls</Td>
</Tr>
<%
Do While Not Rs16.EOF
%>
<Tr>
<Td><%= Rs16("ClaCli") %></Td>
<Td><%= Rs16("nomCli") %></Td>
<Td><%= Rs16("RFCCli") %></Td>
<Td><%= Rs16("Stacli") %></Td>
<Td><%= Rs16("Falcli") %></Td>
<Td><%= Rs16("Ucocli") %></Td>
<Td><%= Formatnumber(Rs16("Salcli")) %></Td>
<Td><%= Formatnumber(Rs16("Supesos")) %></Td>
<Td><%= Formatnumber(Rs16("Sudolares")) %></Td>
</Tr>
<%
Rs16.Movenext
Loop
%>
</Table>
<%
End If
%>
<%
'***** Conexion a la Base de Datos MIGPINTURAS *****
Set Cn17 = Server.CreateObject( "ADODB.Connection" )
Cn17.Open "DRIVER={SQL Server};SERVER=172.17.0.5;UID=USRVISOR;PWD=USGPO01;Database=MIGPINTURAS"
'***** Conexion A la Tabla Clientes ****
Set Rs17 = Server.CreateObject("ADODB.Recordset")
Sql17="Select * from Clientes Where RFCCli = '"& Trim(RFC) &"';"
Rs17.Open Sql17,Cn17,1,2
If Rs17.EOF Then
Else
%>
<BR><BR>
<Table Id="KardexTd" Width="1024px">
<Tr>
<Td Colspan="7" Id="Resultados"> MIGPINTURAS</Td>
</Tr>
<Tr>
<Td>Clave</Td>
<Td>Nombre</Td>
<Td>RFC</Td>
<Td>Status</Td>
<Td>Alta</Td>
<Td>U_compra</Td>
<Td>Saldo</Td>
<Td>Su Pesos</Td>
<Td>Su Dls</Td>
</Tr>
<%
Do While Not Rs17.EOF
%>
<Tr>
<Td><%= Rs17("ClaCli") %></Td>
<Td><%= Rs17("nomCli") %></Td>
<Td><%= Rs17("RFCCli") %></Td>
<Td><%= Rs17("Stacli") %></Td>
<Td><%= Rs17("Falcli") %></Td>
<Td><%= Rs17("Ucocli") %></Td>
<Td><%= Formatnumber(Rs17("Salcli")) %></Td>
<Td><%= Formatnumber(Rs17("Supesos")) %></Td>
<Td><%= Formatnumber(Rs17("Sudolares")) %></Td>
</Tr>
<%
Rs17.Movenext
Loop
%>
</Table>
<%
End If
%>
<%
'***** Conexion a la Base de Datos MEXICO *****
Set Cn18 = Server.CreateObject( "ADODB.Connection" )
Cn18.Open "DRIVER={SQL Server};SERVER=172.17.0.5;UID=USRVISOR;PWD=USGPO01;Database=MEXICO"
'***** Conexion A la Tabla Clientes ****
Set Rs18 = Server.CreateObject("ADODB.Recordset")
Sql18="Select * from Clientes Where RFCCli = '"& Trim(RFC) &"';"
Rs18.Open Sql18,Cn18,1,2
If Rs18.EOF Then
Else
%>
<BR><BR>
<Table Id="KardexTd" Width="1024px">
<Tr>
<Td Colspan="7" Id="Resultados"> MEXICO</Td>
</Tr>
<Tr>
<Td>Clave</Td>
<Td>Nombre</Td>
<Td>RFC</Td>
<Td>Status</Td>
<Td>Alta</Td>
<Td>U_compra</Td>
<Td>Saldo</Td>
<Td>Su Pesos</Td>
<Td>Su Dls</Td>
</Tr>
<%
Do While Not Rs18.EOF
%>
<Tr>
<Td><%= Rs18("ClaCli") %></Td>
<Td><%= Rs18("nomCli") %></Td>
<Td><%= Rs18("RFCCli") %></Td>
<Td><%= Rs18("Stacli") %></Td>
<Td><%= Rs18("Falcli") %></Td>
<Td><%= Rs18("Ucocli") %></Td>
<Td><%= Formatnumber(Rs18("Salcli")) %></Td>
<Td><%= Formatnumber(Rs18("Supesos")) %></Td>
<Td><%= Formatnumber(Rs18("Sudolares")) %></Td>
</Tr>
<%
Rs18.Movenext
Loop
%>
</Table>
<%
End If
%>
<%
'***** Conexion a la Base de Datos TAMPICO *****
Set Cn20 = Server.CreateObject( "ADODB.Connection" )
Cn20.Open "DRIVER={SQL Server};SERVER=172.17.0.5;UID=USRVISOR;PWD=USGPO01;Database=TAMPICO"
'***** Conexion A la Tabla Clientes ****
Set Rs20 = Server.CreateObject("ADODB.Recordset")
Sql20="Select * from Clientes Where RFCCli = '"& Trim(RFC) &"';"
Rs20.Open Sql20,Cn20,1,2
If Rs20.EOF Then
Else
%>
<BR><BR>
<Table Id="KardexTd" Width="1024px">
<Tr>
<Td Colspan="7" Id="Resultados"> TAMPICO</Td>
</Tr>
<Tr>
<Td>Clave</Td>
<Td>Nombre</Td>
<Td>RFC</Td>
<Td>Status</Td>
<Td>Alta</Td>
<Td>U_compra</Td>
<Td>Saldo</Td>
<Td>Su Pesos</Td>
<Td>Su Dls</Td>
</Tr>
<%
Do While Not Rs20.EOF
%>
<Tr>
<Td><%= Rs20("ClaCli") %></Td>
<Td><%= Rs20("nomCli") %></Td>
<Td><%= Rs20("RFCCli") %></Td>
<Td><%= Rs20("Stacli") %></Td>
<Td><%= Rs20("Falcli") %></Td>
<Td><%= Rs20("Ucocli") %></Td>
<Td><%= Formatnumber(Rs20("Salcli")) %></Td>
<Td><%= Formatnumber(Rs20("Supesos")) %></Td>
<Td><%= Formatnumber(Rs20("Sudolares")) %></Td>
</Tr>
<%
Rs20.Movenext
Loop
%>
</Table>
<%
End If
%>
<%
'***** Conexion a la Base de Datos MEXPINTURAS *****
Set Cn21 = Server.CreateObject( "ADODB.Connection" )
Cn21.Open "DRIVER={SQL Server};SERVER=172.17.0.5;UID=USRVISOR;PWD=USGPO01;Database=MEXPINTURAS"
'***** Conexion A la Tabla Clientes ****
Set Rs21 = Server.CreateObject("ADODB.Recordset")
Sql21="Select * from Clientes Where RFCCli = '"& Trim(RFC) &"';"
Rs21.Open Sql21,Cn21,1,2
If Rs21.EOF Then
Else
%>
<BR><BR>
<Table Id="KardexTd" Width="1024px">
<Tr>
<Td Colspan="7" Id="Resultados"> MEXPINTURAS</Td>
</Tr>
<Tr>
<Td>Clave</Td>
<Td>Nombre</Td>
<Td>RFC</Td>
<Td>Status</Td>
<Td>Alta</Td>
<Td>U_compra</Td>
<Td>Saldo</Td>
<Td>Su Pesos</Td>
<Td>Su Dls</Td>
</Tr>
<%
Do While Not Rs21.EOF
%>
<Tr>
<Td><%= Rs21("ClaCli") %></Td>
<Td><%= Rs21("nomCli") %></Td>
<Td><%= Rs21("RFCCli") %></Td>
<Td><%= Rs21("Stacli") %></Td>
<Td><%= Rs21("Falcli") %></Td>
<Td><%= Rs21("Ucocli") %></Td>
<Td><%= Formatnumber(Rs21("Salcli")) %></Td>
<Td><%= Formatnumber(Rs21("Supesos")) %></Td>
<Td><%= Formatnumber(Rs21("Sudolares")) %></Td>
</Tr>
<%
Rs21.Movenext
Loop
%>
</Table>
<%
End If
%>
<%
'***** Conexion a la Base de Datos MIMTY *****
Set Cn22 = Server.CreateObject( "ADODB.Connection" )
Cn22.Open "DRIVER={SQL Server};SERVER=172.17.0.5;UID=USRVISOR;PWD=USGPO01;Database=MIMTY"
'***** Conexion A la Tabla Clientes ****
Set Rs22 = Server.CreateObject("ADODB.Recordset")
Sql22="Select * from Clientes Where RFCCli = '"& Trim(RFC) &"';"
Rs22.Open Sql22,Cn22,1,2
If Rs22.EOF Then
Else
%>
<BR><BR>
<Table Id="KardexTd" Width="1024px">
<Tr>
<Td Colspan="7" Id="Resultados"> MIMTY</Td>
</Tr>
<Tr>
<Td>Clave</Td>
<Td>Nombre</Td>
<Td>RFC</Td>
<Td>Status</Td>
<Td>Alta</Td>
<Td>U_compra</Td>
<Td>Saldo</Td>
<Td>Su Pesos</Td>
<Td>Su Dls</Td>
</Tr>
<%
Do While Not Rs22.EOF
%>
<Tr>
<Td><%= Rs22("ClaCli") %></Td>
<Td><%= Rs22("nomCli") %></Td>
<Td><%= Rs22("RFCCli") %></Td>
<Td><%= Rs22("Stacli") %></Td>
<Td><%= Rs22("Falcli") %></Td>
<Td><%= Rs22("Ucocli") %></Td>
<Td><%= Formatnumber(Rs22("Salcli")) %></Td>
<Td><%= Formatnumber(Rs22("Supesos")) %></Td>
<Td><%= Formatnumber(Rs22("Sudolares")) %></Td>
</Tr>
<%
Rs22.Movenext
Loop
%>
</Table>
<%
End If
%>
<%
'***** Conexion a la Base de Datos CANCUN *****
Set Cn23 = Server.CreateObject( "ADODB.Connection" )
Cn23.Open "DRIVER={SQL Server};SERVER=172.17.0.5;UID=USRVISOR;PWD=USGPO01;Database=CANCUN"
'***** Conexion A la Tabla Clientes ****
Set Rs23 = Server.CreateObject("ADODB.Recordset")
Sql23="Select * from Clientes Where RFCCli = '"& Trim(RFC) &"';"
Rs23.Open Sql23,Cn23,1,2
If Rs23.EOF Then
Else
%>
<BR><BR>
<Table Id="KardexTd" Width="1024px">
<Tr>
<Td Colspan="7" Id="Resultados"> CANCUN</Td>
</Tr>
<Tr>
<Td>Clave</Td>
<Td>Nombre</Td>
<Td>RFC</Td>
<Td>Status</Td>
<Td>Alta</Td>
<Td>U_compra</Td>
<Td>Saldo</Td>
<Td>Su Pesos</Td>
<Td>Su Dls</Td>
</Tr>
<%
Do While Not Rs23.EOF
%>
<Tr>
<Td><%= Rs23("ClaCli") %></Td>
<Td><%= Rs23("nomCli") %></Td>
<Td><%= Rs23("RFCCli") %></Td>
<Td><%= Rs23("Stacli") %></Td>
<Td><%= Rs23("Falcli") %></Td>
<Td><%= Rs23("Ucocli") %></Td>
<Td><%= Formatnumber(Rs23("Salcli")) %></Td>
<Td><%= Formatnumber(Rs23("Supesos")) %></Td>
<Td><%= Formatnumber(Rs23("Sudolares")) %></Td>
</Tr>
<%
Rs23.Movenext
Loop
%>
</Table>
<%
End If
%>
<%
'***** Conexion a la Base de Datos MERIDA *****
Set Cn24 = Server.CreateObject( "ADODB.Connection" )
Cn24.Open "DRIVER={SQL Server};SERVER=172.17.0.5;UID=USRVISOR;PWD=USGPO01;Database=MERIDA"
'***** Conexion A la Tabla Clientes ****
Set Rs24 = Server.CreateObject("ADODB.Recordset")
Sql24="Select * from Clientes Where RFCCli = '"& Trim(RFC) &"';"
Rs24.Open Sql24,Cn24,1,2
If Rs24.EOF Then
Else
%>
<BR><BR>
<Table Id="KardexTd" Width="1024px">
<Tr>
<Td Colspan="7" Id="Resultados"> MERIDA</Td>
</Tr>
<Tr>
<Td>Clave</Td>
<Td>Nombre</Td>
<Td>RFC</Td>
<Td>Status</Td>
<Td>Alta</Td>
<Td>U_compra</Td>
<Td>Saldo</Td>
<Td>Su Pesos</Td>
<Td>Su Dls</Td>
</Tr>
<%
Do While Not Rs24.EOF
%>
<Tr>
<Td><%= Rs24("ClaCli") %></Td>
<Td><%= Rs24("nomCli") %></Td>
<Td><%= Rs24("RFCCli") %></Td>
<Td><%= Rs24("Stacli") %></Td>
<Td><%= Rs24("Falcli") %></Td>
<Td><%= Rs24("Ucocli") %></Td>
<Td><%= Formatnumber(Rs24("Salcli")) %></Td>
<Td><%= Formatnumber(Rs24("Supesos")) %></Td>
<Td><%= Formatnumber(Rs24("Sudolares")) %></Td>
</Tr>
<%
Rs24.Movenext
Loop
%>
</Table>
<%
End If
%>
<%
'***** Conexion a la Base de Datos ORIZABA *****
Set Cn26 = Server.CreateObject( "ADODB.Connection" )
Cn26.Open "DRIVER={SQL Server};SERVER=172.17.0.5;UID=USRVISOR;PWD=USGPO01;Database=ORIZABA"
'***** Conexion A la Tabla Clientes ****
Set Rs26 = Server.CreateObject("ADODB.Recordset")
Sql26="Select * from Clientes Where RFCCli = '"& Trim(RFC) &"';"
Rs26.Open Sql26,Cn26,1,2
If Rs26.EOF Then
Else
%>
<BR><BR>
<Table Id="KardexTd" Width="1024px">
<Tr>
<Td Colspan="7" Id="Resultados"> ORIZABA</Td>
</Tr>
<Tr>
<Td>Clave</Td>
<Td>Nombre</Td>
<Td>RFC</Td>
<Td>Status</Td>
<Td>Alta</Td>
<Td>U_compra</Td>
<Td>Saldo</Td>
<Td>Su Pesos</Td>
<Td>Su Dls</Td>
</Tr>
<%
Do While Not Rs26.EOF
%>
<Tr>
<Td><%= Rs26("ClaCli") %></Td>
<Td><%= Rs26("nomCli") %></Td>
<Td><%= Rs26("RFCCli") %></Td>
<Td><%= Rs26("Stacli") %></Td>
<Td><%= Rs26("Falcli") %></Td>
<Td><%= Rs26("Ucocli") %></Td>
<Td><%= Formatnumber(Rs26("Salcli")) %></Td>
<Td><%= Formatnumber(Rs26("Supesos")) %></Td>
<Td><%= Formatnumber(Rs26("Sudolares")) %></Td>
</Tr>
<%
Rs26.Movenext
Loop
%>
</Table>
<%
End If
%>
<%
'***** Conexion a la Base de Datos PUEBLA *****
Set Cn27 = Server.CreateObject( "ADODB.Connection" )
Cn27.Open "DRIVER={SQL Server};SERVER=172.17.0.5;UID=USRVISOR;PWD=USGPO01;Database=PUEBLA"
'***** Conexion A la Tabla Clientes ****
Set Rs27 = Server.CreateObject("ADODB.Recordset")
Sql27="Select * from Clientes Where RFCCli = '"& Trim(RFC) &"';"
Rs27.Open Sql27,Cn27,1,2
If Rs27.EOF Then
Else
%>
<BR><BR>
<Table Id="KardexTd" Width="1024px">
<Tr>
<Td Colspan="7" Id="Resultados"> PUEBLA</Td>
</Tr>
<Tr>
<Td>Clave</Td>
<Td>Nombre</Td>
<Td>RFC</Td>
<Td>Status</Td>
<Td>Alta</Td>
<Td>U_compra</Td>
<Td>Saldo</Td>
<Td>Su Pesos</Td>
<Td>Su Dls</Td>
</Tr>
<%
Do While Not Rs27.EOF
%>
<Tr>
<Td><%= Rs27("ClaCli") %></Td>
<Td><%= Rs27("nomCli") %></Td>
<Td><%= Rs27("RFCCli") %></Td>
<Td><%= Rs27("Stacli") %></Td>
<Td><%= Rs27("Falcli") %></Td>
<Td><%= Rs27("Ucocli") %></Td>
<Td><%= Formatnumber(Rs27("Salcli")) %></Td>
<Td><%= Formatnumber(Rs27("Supesos")) %></Td>
<Td><%= Formatnumber(Rs27("Sudolares")) %></Td>
</Tr>
<%
Rs27.Movenext
Loop
%>
</Table>
<%
End If
%>
<%
'***** Conexion a la Base de Datos TOLUCA *****
Set Cn28 = Server.CreateObject( "ADODB.Connection" )
Cn28.Open "DRIVER={SQL Server};SERVER=172.17.0.5;UID=USRVISOR;PWD=USGPO01;Database=TOLUCA"
'***** Conexion A la Tabla Clientes ****
Set Rs28 = Server.CreateObject("ADODB.Recordset")
Sql28="Select * from Clientes Where RFCCli = '"& Trim(RFC) &"';"
Rs28.Open Sql28,Cn28,1,2
If Rs28.EOF Then
Else
%>
<BR><BR>
<Table Id="KardexTd" Width="1024px">
<Tr>
<Td Colspan="7" Id="Resultados"> TOLUCA</Td>
</Tr>
<Tr>
<Td>Clave</Td>
<Td>Nombre</Td>
<Td>RFC</Td>
<Td>Status</Td>
<Td>Alta</Td>
<Td>U_compra</Td>
<Td>Saldo</Td>
<Td>Su Pesos</Td>
<Td>Su Dls</Td>
</Tr>
<%
Do While Not Rs28.EOF
%>
<Tr>
<Td><%= Rs28("ClaCli") %></Td>
<Td><%= Rs28("nomCli") %></Td>
<Td><%= Rs28("RFCCli") %></Td>
<Td><%= Rs28("Stacli") %></Td>
<Td><%= Rs28("Falcli") %></Td>
<Td><%= Rs28("Ucocli") %></Td>
<Td><%= Formatnumber(Rs28("Salcli")) %></Td>
<Td><%= Formatnumber(Rs28("Supesos")) %></Td>
<Td><%= Formatnumber(Rs28("Sudolares")) %></Td>
</Tr>
<%
Rs28.Movenext
Loop
%>
</Table>
<%
End If
%>
<%
'***** Conexion a la Base de Datos TOLUCA *****
Set Cn29 = Server.CreateObject( "ADODB.Connection" )
Cn29.Open "DRIVER={SQL Server};SERVER=172.17.0.5;UID=USRVISOR;PWD=USGPO01;Database=SERELAP"
'***** Conexion A la Tabla Clientes ****
Set Rs29 = Server.CreateObject("ADODB.Recordset")
Sql29="Select * from Clientes Where RFCCli = '"& Trim(RFC) &"';"
Rs29.Open Sql29,Cn29,1,2
If Rs29.EOF Then
Else
%>
<BR><BR>
<Table Id="KardexTd" Width="1024px">
<Tr>
<Td Colspan="7" Id="Resultados"> SERELAP</Td>
</Tr>
<Tr>
<Td>Clave</Td>
<Td>Nombre</Td>
<Td>RFC</Td>
<Td>Status</Td>
<Td>Alta</Td>
<Td>U_compra</Td>
<Td>Saldo</Td>
<Td>Su Pesos</Td>
<Td>Su Dls</Td>
</Tr>
<%
Do While Not Rs29.EOF
%>
<Tr>
<Td><%= Rs29("ClaCli") %></Td>
<Td><%= Rs29("nomCli") %></Td>
<Td><%= Rs29("RFCCli") %></Td>
<Td><%= Rs29("Stacli") %></Td>
<Td><%= Rs29("Falcli") %></Td>
<Td><%= Rs29("Ucocli") %></Td>
<Td><%= Formatnumber(Rs29("Salcli")) %></Td>
<Td><%= Formatnumber(Rs29("Supesos")) %></Td>
<Td><%= Formatnumber(Rs29("Sudolares")) %></Td>
</Tr>
<%
Rs29.Movenext
Loop
%>
</Table>
<%
End If
%>
<%
'***** Conexion a la Base de Datos TOLUCA *****
Set Cn30 = Server.CreateObject( "ADODB.Connection" )
Cn30.Open "DRIVER={SQL Server};SERVER=172.17.0.5;UID=USRVISOR;PWD=USGPO01;Database=INDMEXMEXICO"
'***** Conexion A la Tabla Clientes ****
Set Rs30 = Server.CreateObject("ADODB.Recordset")
Sql30="Select * from Clientes Where RFCCli = '"& Trim(RFC) &"';"
Rs30.Open Sql30,Cn30,1,2
If Rs30.EOF Then
Else
%>
<BR><BR>
<Table Id="KardexTd" Width="1024px">
<Tr>
<Td Colspan="7" Id="Resultados"> INDMEX</Td>
</Tr>
<Tr>
<Td>Clave</Td>
<Td>Nombre</Td>
<Td>RFC</Td>
<Td>Status</Td>
<Td>Alta</Td>
<Td>U_compra</Td>
<Td>Saldo</Td>
<Td>Su Pesos</Td>
<Td>Su Dls</Td>
</Tr>
<%
Do While Not Rs30.EOF
%>
<Tr>
<Td><%= Rs30("ClaCli") %></Td>
<Td><%= Rs30("nomCli") %></Td>
<Td><%= Rs30("RFCCli") %></Td>
<Td><%= Rs30("Stacli") %></Td>
<Td><%= Rs30("Falcli") %></Td>
<Td><%= Rs30("Ucocli") %></Td>
<Td><%= Formatnumber(Rs30("Salcli")) %></Td>
<Td><%= Formatnumber(Rs30("Supesos")) %></Td>
<Td><%= Formatnumber(Rs30("Sudolares")) %></Td>
</Tr>
<%
Rs30.Movenext
Loop
%>
</Table>
<%
End If
%>
<BR><BR>
</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
%>