Detalle: cxcrepaplixls.asp

cxcrepaplixls.asp

Ir a la Página Volver a la Lista
Archivo ASP

cxcrepaplixls.asp
Página Razor

cxcrepaplixls
Módulo

CXC
Líneas de Código

955
Características
En Menú:	No
Formularios:	Ninguno
Consultas SQL:	Ninguna
Complejidad:	high
Bases de Datos:	Session DB
Tablas Utilizadas (0)
No se detectaron tablas
Comentarios y Notas (0)
No hay comentarios aún
Enlaces Salientes (2) Páginas a las que esta página enlaza
Archivo ASP	Tipo	Módulo	Estado	Página Razor
`general.asp`	include	General	Pendiente	-
`user.asp`	include	General	Pendiente	-
Enlaces Entrantes (0) Páginas que enlazan a esta página
No hay enlaces entrantes
<%  
Option Explicit
%>
<%
Session.LCID = 2058
Response.Buffer = True
Response.ContentType = "application/vnd.ms-excel" 
%>
<!--#include file="User.asp"-->
<!--#include file="general.asp"-->
<html>
<head>
<title>Grupo MIM</title>
<link rel=stylesheet href="view.css">
</head>
<BODY>

<div style="position:absolute; top:1px; left:10">

<%
Dim  Rs11, sql11, Rs12, Sql12, Rs13, Sql13
Dim Empresa, Saldos, Title, Head, ClaveV
Dim ClaveC, NombreC, SaldoT, SaldoV, SaldoC, Treinta, Sesenta, Noventa, Doce, Dieciocho, Masdieciocho, Quince, Cuarenta, Masnoventa, Vendedor
Dim TsaldoT, TsaldoV, TSaldoC, TTreinta, TSesenta, TNoventa, Tdoce, TDieciocho, TMDieciocho, Movi, Fecha, Importe, Factura, SaldoD, Tquince
Dim Tcuarenta, TMasnoventa, TsaldoD, Fecha0, Fecha15, Fecha30, Fecha45, Fecha60, Fecha90, Fecha91, Fecha120, Fecha180, Fecha181

Empresa = Request.Form("Empresa")
Saldos = Request("Saldos")

set rs11 = server.CreateObject("ADODB.Recordset")
SQL11="SELECT * FROM EMPRESA"
rs11.open sql11,cn1,1,2

If Cdbl(Saldos) = 0 then

set rs12 = server.CreateObject("ADODB.Recordset")
SQL12="SELECT * FROM SaldosNeRo"
rs12.open sql12,cn1,1,2

Title = "ANTIGUEDAD DE SALDOS" 
%>
<Table border="0">
<tr>
<Td colspan="10" align="center" class="Encabc">
<%= Rs11("Nombre") %><br>
</td>
<tr>
<Td colspan="10" align="center" class="Encabc">
<%= Title %><br>
</td>
</tr>
<Tr align="center" class="Encab" >
<Td>Clave</Td>
<Td>Nombre Cliente</Td>
<Td>Saldo <br>Total</Td>
<Td>Saldo <br>Vencido</Td>
<Td>Saldo <br>Corriente</Td>
<Td>A 30 Días</Td>
<Td>A 60 Días</Td>
<Td>A 90 Días</Td>
<Td>A 120 Días</Td>
<Td>A 180 Días</Td>
<Td>+ 180 Días</Td>
</tr>
<%Do while Not(RS12.EOF)

ClaveC = rs12("Clacli")
NombreC = rs12("Nomcli")
SaldoC = rs12("Fecha0")
Treinta = rs12("Fecha30")
Sesenta = rs12("Fecha60")
Noventa = rs12("Fecha90")
Doce = rs12("Fecha120")
Dieciocho = rs12("Fecha180")
Masdieciocho = rs12("Fecha181")
SaldoT = cdbl(SaldoC)+cdbl(Treinta)+cdbl(Sesenta)+cdbl(Noventa)+cdbl(Doce)+cdbl(Dieciocho)+cdbl(Masdieciocho)
SaldoV = cdbl(Treinta)+cdbl(Sesenta)+cdbl(Noventa)+cdbl(Doce)+cdbl(Dieciocho)+cdbl(Masdieciocho)
%>
<Tr class="Encaa">
<Td><%= ClaveC %> </td>
<Td><%= left(NombreC,35) %> </td>
<td><%= Formatnumber(SaldoT) %> </td>
<td><%= Formatnumber(SaldoV) %> </td>
<td><%= Formatnumber(SaldoC) %> </td>
<td><%= Formatnumber(Treinta) %> </td>
<td><%= Formatnumber(Sesenta) %> </td>
<td><%= Formatnumber(Noventa) %> </td>
<td><%= Formatnumber(Doce) %> </td>
<td><%= Formatnumber(Dieciocho) %> </td>
<td><%= Formatnumber(Masdieciocho) %> </td>
</Tr>
<%
Tsaldot = cdbl(TsaldoT) + cdbl(SaldoT)
Tsaldov = cdbl(Tsaldov) + cdbl(SaldoV)
Tsaldoc = cdbl(Tsaldoc) + cdbl(Saldoc)
TTreinta = cdbl(TTreinta) + cdbl(Treinta)
TSesenta = cdbl(TSesenta) + cdbl(Sesenta)
TNoventa = cdbl(TNoventa) + cdbl(Noventa)
TDoce = cdbl(TDoce) + cdbl(Doce)
TDieciocho = cdbl(TDieciocho) + cdbl(Dieciocho)
TMDieciocho = cdbl(TMDieciocho) + cdbl(MasDieciocho)

rs12.Movenext
loop
%>
<Tr>
</Tr>
<Tr class="Encaa">
<td></td>
<td></td>
<td><b>Saldo Por<br>Cobrar</td>
<td><b>Saldo<br>Vencido</td>
</tr>
<tr class="Encaa">
<Td Colspan=3><b><%= Formatnumber(TSaldoT) %> </td>
<Td><b><%= Formatnumber(TSaldoV) %> </td>
<Td><b><%= Formatnumber(TSaldoC) %> </td>
<Td><b><%= Formatnumber(TTreinta) %> </td>
<Td><b><%= Formatnumber(TSesenta) %> </td>
<Td><b><%= Formatnumber(TNoventa) %> </td>
<Td><b><%= Formatnumber(TDoce) %> </td>
<Td><b><%= Formatnumber(TDieciocho) %> </td>
<Td><b><%= Formatnumber(TMDieciocho) %> </td>
</tr>
</table>

<%
Rs12.Close
Else if Cdbl(Saldos) = 1 then

set rs12 = server.CreateObject("ADODB.Recordset")
SQL12="SELECT * FROM SaldosR"
rs12.open sql12,cn1,1,2

Title = "ANTIGUEDAD DE SALDOS EN ROJOS" 
%>
<Table border="0">
<tr>
<Td colspan="10" align="center" class="Encabc">
<%= Rs11("Nombre") %><br>
</td>
<tr>
<Td colspan="10" align="center" class="Encabc">
<%= Title %><br>
</td>
</tr>
<Tr align="center" class="Encab" >
<Td>Clave</Td>
<Td>Nombre Cliente</Td>
<Td>Saldo <br>Total</Td>
<Td>Saldo <br>Vencido</Td>
<Td>Saldo <br>Corriente</Td>
<Td>A 30 Días</Td>
<Td>A 60 Días</Td>
<Td>A 90 Días</Td>
<Td>A 120 Días</Td>
<Td>A 180 Días</Td>
<Td>+ 180 Días</Td>
</tr>
<%Do while Not(RS12.EOF)

ClaveC = rs12("Clacli")
NombreC = rs12("Nomcli")
SaldoC = rs12("Fecha0")
Treinta = rs12("Fecha30")
Sesenta = rs12("Fecha60")
Noventa = rs12("Fecha90")
Doce = rs12("Fecha120")
Dieciocho = rs12("Fecha180")
Masdieciocho = rs12("Fecha181")
SaldoT = cdbl(SaldoC)+cdbl(Treinta)+cdbl(Sesenta)+cdbl(Noventa)+cdbl(Doce)+cdbl(Dieciocho)+cdbl(Masdieciocho)
SaldoV = cdbl(Treinta)+cdbl(Sesenta)+cdbl(Noventa)+cdbl(Doce)+cdbl(Dieciocho)+cdbl(Masdieciocho)
%>
<Tr class="Encaa">
<Td><%= ClaveC %> </td>
<Td><%= left(NombreC,35) %> </td>
<td><%= Formatnumber(SaldoT) %> </td>
<td><%= Formatnumber(SaldoV) %> </td>
<td><%= Formatnumber(SaldoC) %> </td>
<td><%= Formatnumber(Treinta) %> </td>
<td><%= Formatnumber(Sesenta) %> </td>
<td><%= Formatnumber(Noventa) %> </td>
<td><%= Formatnumber(Doce) %> </td>
<td><%= Formatnumber(Dieciocho) %> </td>
<td><%= Formatnumber(Masdieciocho) %> </td>
</Tr>
<%
Tsaldot = cdbl(TsaldoT) + cdbl(SaldoT)
Tsaldov = cdbl(Tsaldov) + cdbl(SaldoV)
Tsaldoc = cdbl(Tsaldoc) + cdbl(Saldoc)
TTreinta = cdbl(TTreinta) + cdbl(Treinta)
TSesenta = cdbl(TSesenta) + cdbl(Sesenta)
TNoventa = cdbl(TNoventa) + cdbl(Noventa)
TDoce = cdbl(TDoce) + cdbl(Doce)
TDieciocho = cdbl(TDieciocho) + cdbl(Dieciocho)
TMDieciocho = cdbl(TMDieciocho) + cdbl(MasDieciocho)

rs12.Movenext
loop
%>
<Tr>
</Tr>
<Tr class="Encaa">
<td></td>
<td></td>
<td><b>Saldo Por<br>Cobrar</td>
<td><b>Saldo<br>Vencido</td>
</tr>
<tr class="Encaa">
<Td Colspan=3><b><%= Formatnumber(TSaldoT) %> </td>
<Td><b><%= Formatnumber(TSaldoV) %> </td>
<Td><b><%= Formatnumber(TSaldoC) %> </td>
<Td><b><%= Formatnumber(TTreinta) %> </td>
<Td><b><%= Formatnumber(TSesenta) %> </td>
<Td><b><%= Formatnumber(TNoventa) %> </td>
<Td><b><%= Formatnumber(TDoce) %> </td>
<Td><b><%= Formatnumber(TDieciocho) %> </td>
<Td><b><%= Formatnumber(TMDieciocho) %> </td>
</tr>
</table>
<%
Rs12.Close

Else if Cdbl(Saldos) = 2 then

set rs12 = server.CreateObject("ADODB.Recordset")
SQL12="select clicxcg, nomcli "&_
" from clientes inner join cxcgen on "&_
" clacli = clicxcg "&_
" where ( salcxcg * tcacxcg >= 1 or salcxcg * tcacxcg <= -1) "&_
" group by clicxcg, nomcli "&_
" order by nomcli "
rs12.open sql12,cn1,1,2

Title = "ANTIGUEDAD DE SALDOS POR CLIENTE"  
%>
<Table border="0">
<tr>
<Td colspan="10" align="center" class="Encabc">
<%= Rs11("Nombre") %><br>
</td>
<tr>
<Td colspan="10" align="center" class="Encabc">
<%= Title %><br>
</td>
</tr>
<Tr align="center" class="Encab" >
<Td colspan=2 align=center>Documento</Td>
<Td>Fecha <br>Emisión</Td>
<Td>Importe <br>Documento</Td>
<Td>Saldo <br>Documento</Td>
<Td>Saldo <br>Corriente</Td>
<Td>A 30 Días</Td>
<Td>A 60 Días</Td>
<Td>A 90 Días</Td>
<Td>A 120 Días</Td>
<Td>A 180 Días</Td>
<Td>+ 180 Días</Td>
</tr>
<%
Do while Not(RS12.EOF)

ClaveC = rs12("Clicxcg")
NombreC = rs12("Nomcli")
%>
<Tr class="Encaa">
<Td><%= ClaveC %> </td>
<Td colspan=3><%= left(NombreC,35) %> </td>
<%
set rs13 = server.CreateObject("ADODB.Recordset")
SQL13="select * from SaldosNR where clacli = '"& ClaveC &"' ORDER BY NOMCLI"
rs13.open sql13,cn1,1,2
%>
</Tr>
<%
TsaldoD = 0
Fecha0 = 0
Fecha30 = 0
Fecha60 = 0 
Fecha90 = 0
Fecha120 = 0 
Fecha180 = 0
Fecha181 = 0
Do while Not(RS13.EOF)
Movi = rs13("Descxcc")
Factura = rs13("Nfacxcg")
Fecha = cstr(rs13("Frecxcg"))
SaldoD = rs13("Saldo")
Importe = rs13("impo")
SaldoC = rs13("Fecha0")
Treinta = rs13("Fecha30")
Sesenta = rs13("Fecha60")
Noventa = rs13("Fecha90")
Doce = rs13("Fecha120")
Dieciocho = rs13("Fecha180")
Masdieciocho = rs13("Fecha181")
%>
<tr class="Encaa">
<td><%=Movi%></td>
<td><%=Factura%></td>
<td><%=Fecha%></td>
<td><%=formatnumber(Importe)%></td>
<td><%=formatnumber(SaldoD)%></td>
<td><%=formatnumber(SaldoC)%></td>
<td><%= Formatnumber(Treinta) %> </td>
<td><%= Formatnumber(Sesenta) %> </td>
<td><%= Formatnumber(Noventa) %> </td>
<td><%= Formatnumber(Doce) %> </td>
<td><%= Formatnumber(Dieciocho) %> </td>
<td><%= Formatnumber(Masdieciocho) %> </td>
</tr>
<%
TSaldoD = cdbl(TsaldoD) + cdbl(SaldoD)
Fecha0 = cdbl(Fecha0) + cdbl(SaldoC)
Fecha30 = cdbl(Fecha30) + cdbl(Treinta)
Fecha60 = cdbl(Fecha60) + cdbl(Sesenta)
Fecha90 = cdbl(Fecha90) + cdbl(Noventa)
Fecha120 = cdbl(Fecha120) + cdbl(Doce)
Fecha180 = cdbl(Fecha180) + cdbl(Dieciocho)
Fecha181 = cdbl(Fecha181) + cdbl(Masdieciocho)

Tsaldov = cdbl(Tsaldov) + cdbl(SaldoD)
Tsaldoc = cdbl(Tsaldoc) + cdbl(Saldoc)
TTreinta = cdbl(TTreinta) + cdbl(Treinta)
TSesenta = cdbl(TSesenta) + cdbl(Sesenta)
TNoventa = cdbl(TNoventa) + cdbl(Noventa)
TDoce = cdbl(TDoce) + cdbl(Doce)
TDieciocho = cdbl(TDieciocho) + cdbl(Dieciocho)
TMDieciocho = cdbl(TMDieciocho) + cdbl(MasDieciocho)
rs13.Movenext
loop
%>
<tr class="Encaa">
<td></td>
<td></td>
<td></td>
<td></td>
<td><%=formatnumber(TsaldoD)%></td>
<td><%=formatnumber(Fecha0)%></td>
<td><%=formatnumber(Fecha30)%></td>
<td><%=formatnumber(Fecha60)%></td>
<td><%=formatnumber(Fecha90)%></td>
<td><%=formatnumber(Fecha120)%></td>
<td><%=formatnumber(Fecha180)%></td>
<td><%=formatnumber(Fecha181)%></td>
</tr>
<tr></tr>
<%
rs12.Movenext
loop
%>
<Tr class="Encaa">
<td></td>
<td></td>
<td></td>
<td></td>
<td colspan=3><b>Saldo Total<br>Por Cobrar</td>
</tr>
<tr class="Encaa">
<Td></td>
<Td></td>
<Td></td>
<Td></td>
<Td><b><%= Formatnumber(TSaldoV) %> </td>
<Td><b><%= Formatnumber(TSaldoC) %> </td>
<Td><b><%= Formatnumber(TTreinta) %> </td>
<Td><b><%= Formatnumber(TSesenta) %> </td>
<Td><b><%= Formatnumber(TNoventa) %> </td>
<Td><b><%= Formatnumber(TDoce) %> </td>
<Td><b><%= Formatnumber(TDieciocho) %> </td>
<Td><b><%= Formatnumber(TMDieciocho) %> </td>
</tr>
</table>
<%
Rs12.Close

Else if Cdbl(Saldos) = 3 then

set rs12 = server.CreateObject("ADODB.Recordset")
SQL12="select * from SaldosN order by nomcli asc"
rs12.open sql12,cn1,1,2

Title = "ANTIGUEDAD DE SALDOS EN ROJOS" 
Head = "(Ordenado por Nombre del Cliente)"
%>
<Table border="0">
<tr>
<Td colspan="11" align="center" class="Encabc">
<%= Rs11("Nombre") %><br>
</td>
</tr>
<tr>
<Td colspan="11" align="center" class="Encabc">
<%= Title %><br>
</td>
</tr>
<tr>
<Td colspan="11" align="center" class="Encabc">
<%= Head %><br>
</td>
</tr>
<Tr align="center" class="Encab" >
<Td>Clave</Td>
<Td>Nombre Cliente</Td>
<Td>Saldo <br>Total</Td>
<Td>Saldo <br>Vencido</Td>
<Td>Saldo <br>Corriente</Td>
<Td>A 15 Días</Td>
<Td>A 30 Días</Td>
<Td>A 45 Días</Td>
<Td>A 60 Días</Td>
<Td>A 90 Días</Td>
<Td>+ 90 Días</Td>
</tr>
<%Do while Not(RS12.EOF)

ClaveC = rs12("Clacli")
NombreC = rs12("Nomcli")
SaldoC = rs12("Fecha0")
Quince = rs12("Fecha15")
Treinta = rs12("Fecha30")
Cuarenta = rs12("Fecha45")
Sesenta = rs12("Fecha60")
Noventa = rs12("Fecha90")
MasNoventa = rs12("Fecha91")
SaldoT = cdbl(SaldoC)+cdbl(Quince)+cdbl(Treinta)+cdbl(Cuarenta)+cdbl(Sesenta)+cdbl(Noventa)+cdbl(MasNoventa)
SaldoV = cdbl(Quince)+cdbl(Treinta)+cdbl(Cuarenta)+cdbl(Sesenta)+cdbl(Noventa)+cdbl(MasNoventa)
%>
<Tr class="Encaa">
<Td><%= ClaveC %> </td>
<Td><%= left(NombreC,35) %> </td>
<td><%= Formatnumber(SaldoT) %> </td>
<td><%= Formatnumber(SaldoV) %> </td>
<td><%= Formatnumber(SaldoC) %> </td>
<td><%= Formatnumber(Quince) %> </td>
<td><%= Formatnumber(Treinta) %> </td>
<td><%= Formatnumber(cuarenta) %> </td>
<td><%= Formatnumber(Sesenta) %> </td>
<td><%= Formatnumber(Noventa) %> </td>
<td><%= Formatnumber(MasNoventa) %> </td>
</Tr>
<%
Tsaldot = cdbl(TsaldoT) + cdbl(SaldoT)
Tsaldov = cdbl(Tsaldov) + cdbl(SaldoV)
Tsaldoc = cdbl(Tsaldoc) + cdbl(Saldoc)
Tquince = cdbl(Tquince) + cdbl(Quince)
TTreinta = cdbl(TTreinta) + cdbl(Treinta)
TCuarenta = cdbl(TCuarenta) + cdbl(Cuarenta)
TSesenta = cdbl(TSesenta) + cdbl(Sesenta)
TNoventa = cdbl(TNoventa) + cdbl(Noventa)
TMasnoventa = cdbl(TMasnoventa) + cdbl(Masnoventa)

rs12.Movenext
loop
%>
<Tr>
</Tr>
<Tr class="Encaa">
<td></td>
<td></td>
<td><b>Saldo Por<br>Cobrar</td>
<td><b>Saldo<br>Vencido</td>
</tr>
<tr class="Encaa">
<Td Colspan=3><b><%= Formatnumber(TSaldoT) %> </td>
<Td><b><%= Formatnumber(TSaldoV) %> </td>
<Td><b><%= Formatnumber(TSaldoC) %> </td>
<Td><b><%= Formatnumber(TQuince) %> </td>
<Td><b><%= Formatnumber(TTreinta) %> </td>
<Td><b><%= Formatnumber(TCuarenta) %> </td>
<Td><b><%= Formatnumber(TSesenta) %> </td>
<Td><b><%= Formatnumber(TNoventa) %> </td>
<Td><b><%= Formatnumber(TMasNoventa) %> </td>
</tr>
</table>
<%
Rs12.Close

Else if Cdbl(Saldos) = 4 then

set rs12 = server.CreateObject("ADODB.Recordset")
SQL12="select * from SaldosN order by Saldo desc"
rs12.open sql12,cn1,1,2

Title = "ANTIGUEDAD DE SALDOS EN NEGRO" 
Head = "(Ordenado por el Saldo Total)"
%>
<Table border="0">
<tr>
<Td colspan="11" align="center" class="Encabc">
<%= Rs11("Nombre") %><br>
</td>
</tr>
<tr>
<Td colspan="11" align="center" class="Encabc">
<%= Title %><br>
</td>
</tr>
<tr>
<Td colspan="11" align="center" class="Encabc">
<%= Head %><br>
</td>
</tr>
<Tr align="center" class="Encab" >
<Td>Clave</Td>
<Td>Nombre Cliente</Td>
<Td>Saldo <br>Total</Td>
<Td>Saldo <br>Vencido</Td>
<Td>Saldo <br>Corriente</Td>
<Td>A 15 Días</Td>
<Td>A 30 Días</Td>
<Td>A 45 Días</Td>
<Td>A 60 Días</Td>
<Td>A 90 Días</Td>
<Td>+ 90 Días</Td>
</tr>
<%Do while Not(RS12.EOF)

ClaveC = rs12("Clacli")
NombreC = rs12("Nomcli")
SaldoC = rs12("Fecha0")
Quince = rs12("Fecha15")
Treinta = rs12("Fecha30")
Cuarenta = rs12("Fecha45")
Sesenta = rs12("Fecha60")
Noventa = rs12("Fecha90")
MasNoventa = rs12("Fecha91")
SaldoT = cdbl(SaldoC)+cdbl(Quince)+cdbl(Treinta)+cdbl(Cuarenta)+cdbl(Sesenta)+cdbl(Noventa)+cdbl(MasNoventa)
SaldoV = cdbl(Quince)+cdbl(Treinta)+cdbl(Cuarenta)+cdbl(Sesenta)+cdbl(Noventa)+cdbl(MasNoventa)
%>
<Tr class="Encaa">
<Td><%= ClaveC %> </td>
<Td><%= left(NombreC,35) %> </td>
<td><%= Formatnumber(SaldoT) %> </td>
<td><%= Formatnumber(SaldoV) %> </td>
<td><%= Formatnumber(SaldoC) %> </td>
<td><%= Formatnumber(Quince) %> </td>
<td><%= Formatnumber(Treinta) %> </td>
<td><%= Formatnumber(cuarenta) %> </td>
<td><%= Formatnumber(Sesenta) %> </td>
<td><%= Formatnumber(Noventa) %> </td>
<td><%= Formatnumber(MasNoventa) %> </td>
</Tr>
<%
Tsaldot = cdbl(TsaldoT) + cdbl(SaldoT)
Tsaldov = cdbl(Tsaldov) + cdbl(SaldoV)
Tsaldoc = cdbl(Tsaldoc) + cdbl(Saldoc)
Tquince = cdbl(Tquince) + cdbl(Quince)
TTreinta = cdbl(TTreinta) + cdbl(Treinta)
TCuarenta = cdbl(TCuarenta) + cdbl(Cuarenta)
TSesenta = cdbl(TSesenta) + cdbl(Sesenta)
TNoventa = cdbl(TNoventa) + cdbl(Noventa)
TMasnoventa = cdbl(TMasnoventa) + cdbl(Masnoventa)

rs12.Movenext
loop
%>
<Tr>
</Tr>
<Tr class="Encaa">
<td></td>
<td></td>
<td><b>Saldo Por<br>Cobrar</td>
<td><b>Saldo<br>Vencido</td>
</tr>
<tr class="Encaa">
<Td Colspan=3><b><%= Formatnumber(TSaldoT) %> </td>
<Td><b><%= Formatnumber(TSaldoV) %> </td>
<Td><b><%= Formatnumber(TSaldoC) %> </td>
<Td><b><%= Formatnumber(TQuince) %> </td>
<Td><b><%= Formatnumber(TTreinta) %> </td>
<Td><b><%= Formatnumber(TCuarenta) %> </td>
<Td><b><%= Formatnumber(TSesenta) %> </td>
<Td><b><%= Formatnumber(TNoventa) %> </td>
<Td><b><%= Formatnumber(TMasNoventa) %> </td>
</tr>
</table>
<%
Rs12.Close

Else if Cdbl(Saldos) = 6 then

set rs12 = server.CreateObject("ADODB.Recordset")
SQL12="select * from SaldosN where vencli = 63"
rs12.open sql12,cn1,1,2

Title = "ANTIGUEDAD DE SALDOS EN NEGRO" 
Head = "(Solo Clientes)"
%>
<Table border="0">
<tr>
<Td colspan="11" align="center" class="Encabc">
<%= Rs11("Nombre") %><br>
</td>
</tr>
<tr>
<Td colspan="11" align="center" class="Encabc">
<%= Title %><br>
</td>
</tr>
<tr>
<Td colspan="11" align="center" class="Encabc">
<%= Head %><br>
</td>
</tr>
<Tr align="center" class="Encab" >
<Td>Clave</Td>
<Td>Nombre Cliente</Td>
<Td>Saldo <br>Total</Td>
<Td>Saldo <br>Vencido</Td>
<Td>Saldo <br>Corriente</Td>
<Td>A 15 Días</Td>
<Td>A 30 Días</Td>
<Td>A 45 Días</Td>
<Td>A 60 Días</Td>
<Td>A 90 Días</Td>
<Td>+ 90 Días</Td>
</tr>
<%Do while Not(RS12.EOF)

ClaveC = rs12("Clacli")
NombreC = rs12("Nomcli")
SaldoC = rs12("Fecha0")
Quince = rs12("Fecha15")
Treinta = rs12("Fecha30")
Cuarenta = rs12("Fecha45")
Sesenta = rs12("Fecha60")
Noventa = rs12("Fecha90")
MasNoventa = rs12("Fecha91")
SaldoT = cdbl(SaldoC)+cdbl(Quince)+cdbl(Treinta)+cdbl(Cuarenta)+cdbl(Sesenta)+cdbl(Noventa)+cdbl(MasNoventa)
SaldoV = cdbl(Quince)+cdbl(Treinta)+cdbl(Cuarenta)+cdbl(Sesenta)+cdbl(Noventa)+cdbl(MasNoventa)
%>
<Tr class="Encaa">
<Td><%= ClaveC %> </td>
<Td><%= left(NombreC,35) %> </td>
<td><%= Formatnumber(SaldoT) %> </td>
<td><%= Formatnumber(SaldoV) %> </td>
<td><%= Formatnumber(SaldoC) %> </td>
<td><%= Formatnumber(Quince) %> </td>
<td><%= Formatnumber(Treinta) %> </td>
<td><%= Formatnumber(cuarenta) %> </td>
<td><%= Formatnumber(Sesenta) %> </td>
<td><%= Formatnumber(Noventa) %> </td>
<td><%= Formatnumber(MasNoventa) %> </td>
</Tr>
<%
Tsaldot = cdbl(TsaldoT) + cdbl(SaldoT)
Tsaldov = cdbl(Tsaldov) + cdbl(SaldoV)
Tsaldoc = cdbl(Tsaldoc) + cdbl(Saldoc)
Tquince = cdbl(Tquince) + cdbl(Quince)
TTreinta = cdbl(TTreinta) + cdbl(Treinta)
TCuarenta = cdbl(TCuarenta) + cdbl(Cuarenta)
TSesenta = cdbl(TSesenta) + cdbl(Sesenta)
TNoventa = cdbl(TNoventa) + cdbl(Noventa)
TMasnoventa = cdbl(TMasnoventa) + cdbl(Masnoventa)

rs12.Movenext
loop
%>
<Tr>
</Tr>
<Tr class="Encaa">
<td></td>
<td></td>
<td><b>Saldo Por<br>Cobrar</td>
<td><b>Saldo<br>Vencido</td>
</tr>
<tr class="Encaa">
<Td Colspan=3><b><%= Formatnumber(TSaldoT) %> </td>
<Td><b><%= Formatnumber(TSaldoV) %> </td>
<Td><b><%= Formatnumber(TSaldoC) %> </td>
<Td><b><%= Formatnumber(TQuince) %> </td>
<Td><b><%= Formatnumber(TTreinta) %> </td>
<Td><b><%= Formatnumber(TCuarenta) %> </td>
<Td><b><%= Formatnumber(TSesenta) %> </td>
<Td><b><%= Formatnumber(TNoventa) %> </td>
<Td><b><%= Formatnumber(TMasNoventa) %> </td>
</tr>
</table>
<%
Rs12.Close

Else if Cdbl(Saldos) = 5 then

set rs12 = server.CreateObject("ADODB.Recordset")
SQL12="select * from SaldosN where vencli <> 63 order by saldo desc"
rs12.open sql12,cn1,1,2

Title = "ANTIGUEDAD DE SALDOS EN NEGRO" 
Head = "(Solo Filiales)"
%>
<Table border="0">
<tr>
<Td colspan="11" align="center" class="Encabc">
<%= Rs11("Nombre") %><br>
</td>
</tr>
<tr>
<Td colspan="11" align="center" class="Encabc">
<%= Title %><br>
</td>
</tr>
<tr>
<Td colspan="11" align="center" class="Encabc">
<%= Head %><br>
</td>
</tr>
<Tr align="center" class="Encab" >
<Td>Clave</Td>
<Td>Nombre Cliente</Td>
<Td>Saldo <br>Total</Td>
<Td>Saldo <br>Vencido</Td>
<Td>Saldo <br>Corriente</Td>
<Td>A 15 Días</Td>
<Td>A 30 Días</Td>
<Td>A 45 Días</Td>
<Td>A 60 Días</Td>
<Td>A 90 Días</Td>
<Td>+ 90 Días</Td>
</tr>
<%Do while Not(RS12.EOF)

ClaveC = rs12("Clacli")
NombreC = rs12("Nomcli")
SaldoC = rs12("Fecha0")
Quince = rs12("Fecha15")
Treinta = rs12("Fecha30")
Cuarenta = rs12("Fecha45")
Sesenta = rs12("Fecha60")
Noventa = rs12("Fecha90")
MasNoventa = rs12("Fecha91")
SaldoT = cdbl(SaldoC)+cdbl(Quince)+cdbl(Treinta)+cdbl(Cuarenta)+cdbl(Sesenta)+cdbl(Noventa)+cdbl(MasNoventa)
SaldoV = cdbl(Quince)+cdbl(Treinta)+cdbl(Cuarenta)+cdbl(Sesenta)+cdbl(Noventa)+cdbl(MasNoventa)
%>
<Tr class="Encaa">
<Td><%= ClaveC %> </td>
<Td><%= left(NombreC,35) %> </td>
<td><%= Formatnumber(SaldoT) %> </td>
<td><%= Formatnumber(SaldoV) %> </td>
<td><%= Formatnumber(SaldoC) %> </td>
<td><%= Formatnumber(Quince) %> </td>
<td><%= Formatnumber(Treinta) %> </td>
<td><%= Formatnumber(cuarenta) %> </td>
<td><%= Formatnumber(Sesenta) %> </td>
<td><%= Formatnumber(Noventa) %> </td>
<td><%= Formatnumber(MasNoventa) %> </td>
</Tr>
<%
Tsaldot = cdbl(TsaldoT) + cdbl(SaldoT)
Tsaldov = cdbl(Tsaldov) + cdbl(SaldoV)
Tsaldoc = cdbl(Tsaldoc) + cdbl(Saldoc)
Tquince = cdbl(Tquince) + cdbl(Quince)
TTreinta = cdbl(TTreinta) + cdbl(Treinta)
TCuarenta = cdbl(TCuarenta) + cdbl(Cuarenta)
TSesenta = cdbl(TSesenta) + cdbl(Sesenta)
TNoventa = cdbl(TNoventa) + cdbl(Noventa)
TMasnoventa = cdbl(TMasnoventa) + cdbl(Masnoventa)

rs12.Movenext
loop
%>
<Tr>
</Tr>
<Tr class="Encaa">
<td></td>
<td></td>
<td><b>Saldo Por<br>Cobrar</td>
<td><b>Saldo<br>Vencido</td>
</tr>
<tr class="Encaa">
<Td Colspan=3><b><%= Formatnumber(TSaldoT) %> </td>
<Td><b><%= Formatnumber(TSaldoV) %> </td>
<Td><b><%= Formatnumber(TSaldoC) %> </td>
<Td><b><%= Formatnumber(TQuince) %> </td>
<Td><b><%= Formatnumber(TTreinta) %> </td>
<Td><b><%= Formatnumber(TCuarenta) %> </td>
<Td><b><%= Formatnumber(TSesenta) %> </td>
<Td><b><%= Formatnumber(TNoventa) %> </td>
<Td><b><%= Formatnumber(TMasNoventa) %> </td>
</tr>
</table>
<%
Rs12.Close

Else if Cdbl(Saldos) = 7 then

set rs12 = server.CreateObject("ADODB.Recordset")
SQL12="select vencli, nomvend "&_
" from clientes inner join cxcgen on "&_
" 	clacli = clicxcg inner join cxccon on "&_
"	movcxcg = numcxcc inner join vendedores on "&_
" 	vencli = cvevend "&_
"   where (salcxcg * tcacxcg >= 1) and vencli <> 63 "&_
"   group by vencli, nomvend "&_
"   order by nomvend"
rs12.open sql12,cn1,1,2

Title = "ANTIGUEDAD DE SALDOS EN NEGRO" 
Head = "Por Vendedor"
%>
<Table border="0">
<tr>
<Td colspan="11" align="center" class="Encabc">
<%= Rs11("Nombre") %><br>
</td>
<tr>
<Td colspan="11" align="center" class="Encabc">
<%= Title %><br>
</td>
</tr>
<tr>
<Td colspan="11" align="center" class="Encabc">
<%= Head %><br>
</td>
</tr>
<Tr align="center" class="Encab" >
<Td>Clave</Td>
<Td>Nombre Cliente</Td>
<Td>Saldo <br>Total</Td>
<Td>Saldo <br>Vencido</Td>
<Td>Saldo <br>Corriente</Td>
<Td>A 15 Días</Td>
<Td>A 30 Días</Td>
<Td>A 45 Días</Td>
<Td>A 60 Días</Td>
<Td>A 90 Días</Td>
<Td>+ 90 Días</Td>
</tr>
<%
Do while Not(RS12.EOF)
ClaveV = rs12("vencli")
Vendedor = rs12("nomvend")
%>
<Tr class="Encaa">
<Td><%= left(Vendedor,20) %> </td>
<%
set rs13 = server.CreateObject("ADODB.Recordset")
SQL13="select * from SaldosN where vencli = "& ClaveV &" and vencli <> 63"
rs13.open sql13,cn1,1,2
%>
</Tr>
<%
TsaldoD = 0
Fecha0 = 0
Fecha15 = 0 
Fecha30 = 0
Fecha45 = 0 
Fecha60 = 0 
Fecha90 = 0
Fecha91 = 0
Do while Not(RS13.EOF)
ClaveC = rs13("Clacli")
NombreC = rs13("Nomcli")
SaldoC = rs13("Fecha0")
Quince = rs13("Fecha15")
Treinta = rs13("Fecha30")
Cuarenta = rs13("Fecha45")
Sesenta = rs13("Fecha60")
Noventa = rs13("Fecha90")
MasNoventa = rs13("Fecha91")
SaldoT = cdbl(SaldoC)+cdbl(Quince)+cdbl(Treinta)+cdbl(Cuarenta)+cdbl(Sesenta)+cdbl(Noventa)+cdbl(MasNoventa)
SaldoV = cdbl(Quince)+cdbl(Treinta)+cdbl(Cuarenta)+cdbl(Sesenta)+cdbl(Noventa)+cdbl(MasNoventa)
%>
<Tr class="Encaa">
<Td><%= ClaveC %> </td>
<Td><%= left(NombreC,35) %> </td>
<td><%= Formatnumber(SaldoT) %> </td>
<td><%= Formatnumber(SaldoV) %> </td>
<td><%= Formatnumber(SaldoC) %> </td>
<td><%= Formatnumber(Quince) %> </td>
<td><%= Formatnumber(Treinta) %> </td>
<td><%= Formatnumber(cuarenta) %> </td>
<td><%= Formatnumber(Sesenta) %> </td>
<td><%= Formatnumber(Noventa) %> </td>
<td><%= Formatnumber(MasNoventa) %> </td>
</Tr>
<%
TSaldoD = cdbl(TsaldoD) + cdbl(SaldoV)
Fecha0 = cdbl(Fecha0) + cdbl(SaldoC)
Fecha15 = cdbl(Fecha15) + cdbl(quince)
Fecha30 = cdbl(Fecha30) + cdbl(Treinta)
Fecha45 = cdbl(Fecha45) + cdbl(Cuarenta)
Fecha60 = cdbl(Fecha60) + cdbl(Sesenta)
Fecha90 = cdbl(Fecha90) + cdbl(Noventa)
Fecha91 = cdbl(Fecha91) + cdbl(MasNoventa)

Tsaldov = cdbl(Tsaldov) + cdbl(SaldoV)
Tsaldoc = cdbl(Tsaldoc) + cdbl(Saldoc)
TQuince = cdbl(TQuince) + cdbl(Quince)
TTreinta = cdbl(TTreinta) + cdbl(Treinta)
TCuarenta = cdbl(TCuarenta) + cdbl(Cuarenta)
TSesenta = cdbl(TSesenta) + cdbl(Sesenta)
TNoventa = cdbl(TNoventa) + cdbl(Noventa)
TMasnoventa = cdbl(TMasnoventa) + cdbl(Masnoventa)
rs13.Movenext
loop
%>
<tr class="Encaa">
<td></td>
<td></td>
<td></td>
<td><%=formatnumber(TsaldoD)%></td>
<td><%=formatnumber(Fecha0)%></td>
<td><%=formatnumber(Fecha15)%></td>
<td><%=formatnumber(Fecha30)%></td>
<td><%=formatnumber(Fecha45)%></td>
<td><%=formatnumber(Fecha60)%></td>
<td><%=formatnumber(Fecha90)%></td>
<td><%=formatnumber(Fecha91)%></td>
</tr>
<tr></tr>
<%
rs12.Movenext
loop
%>
<Tr class="Encaa">
<td></td>
<td></td>
<td></td>
<td></td>
<td colspan=3><b>Saldo Total<br>Por Cobrar</td>
</tr>
<tr class="Encaa">
<Td></td>
<Td></td>
<Td></td>
<Td><b><%= Formatnumber(TSaldoV) %> </td>
<Td><b><%= Formatnumber(TSaldoC) %> </td>
<Td><b><%= Formatnumber(TQuince) %> </td>
<Td><b><%= Formatnumber(TTreinta) %> </td>
<Td><b><%= Formatnumber(TSesenta) %> </td>
<Td><b><%= Formatnumber(TCuarenta) %> </td>
<Td><b><%= Formatnumber(TNoventa) %> </td>
<Td><b><%= Formatnumber(TMasnoventa) %> </td>
</tr>
</table>
<%
End IF
End If
End If
End If
End If
End If
End If
End If 
%>

<%  
End Sub 
'Add the chosen course to the cart
 Call AddUsuario() 
'Display contents of electronic shopping cart
 Call DisplayUsuario()
%>
MATERIALES INDUSTRIALES DE MEXICO

cxcrepaplixls.asp

Archivo ASP

Página Razor

Módulo

Líneas de Código
