Detalle: gestionc.asp

gestionc.asp

Ir a la Página Volver a la Lista

Archivo ASP

gestionc.asp

Página Razor

Clientes/Gestionc.cshtml

Módulo

Clientes

Líneas de Código

206

Características

En Menú:	Sí
Formularios:	1 formulario(s)
Consultas SQL:	7 consulta(s)
Complejidad:	medium
Bases de Datos:	Session DB

Tablas Utilizadas (4)

Clientes Empresa GestoCM GestorC

Consultas SQL (7)

SQL Original (ASP)

SELECT Top(10) CligesC, FecGesc, HorGesC, NotgesC, UsugesC

SQL Original (ASP)

SELECT Clacli, Nomcli

SQL Original (ASP)

SELECT Top(10) CligesC, FecGesc, HorGesC, NotgesC, UsugesC  from GestorC   Where CligesC = '"& Clave &"'  Order by idgesc desc

Tablas: GestorC

SQL Original (ASP)

Select * from GestoCM where UsuGesCM = '"& Session("MyName") &"';

Tablas: GestoCM

SQL Original (ASP)

SELECT Clacli, Nomcli  from Clientes   Where Clacli = '"& Clave &"'

Tablas: Clientes

SQL Original (ASP)

Select * from GestoCM where UsuGesCM = '

Tablas: GestoCM

SQL Original (ASP)

Select * from Empresa;

Tablas: Empresa

Comentarios y Notas (0)

No hay comentarios aún

Enlaces Salientes (3) Páginas a las que esta página enlaza

Archivo ASP	Tipo	Módulo	Estado	Página Razor
`agregagc.asp`	form_action	General	Pendiente	-
`buscargc.asp`	link	General	Pendiente	-
`default.asp`	redirect	General	Pendiente	-

Enlaces Entrantes (0) Páginas que enlazan a esta página

No hay enlaces entrantes

<%  
	Option Explicit
	Session.LCID = 2058

'*****  SI NO HA INICIADO SESION ***
If 	Session("Mybussiness") = "" then
	Response.redirect("default.asp")
Else

'******* 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="utf-8" />
	<TITLE>SISTEMA MIM <%= Session("Mybussiness")  %> USUARIO: <%= Session("MyName")  %></TITLE>
		<link href="css/GestorC.css" rel="stylesheet" />
</HEAD>

<BODY>

<%
'***** Variables a la base de datos ****
Dim Cn1
Dim Rs11, Rs12, Rs13
Dim Sql11, Sql12, Sql13

'***** 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>
	<%
		'***** Conexion Al Menu del Gestor de Clientes ****
		Set Rs12 = Server.CreateObject("ADODB.Recordset")
		Sql12="Select * from GestoCM where UsuGesCM = '"& Session("MyName") &"';"
		Rs12.Open Sql12,Cn1,1,2	
		
		If Rs12.Eof Then
		
		Else
		%>
		<Table>
			<Tr>
			
			<%
			Do while Not Rs12.EOF
			%>
				<Td><a Href="<%= Rs12("ArcGesCm") %>.asp"><img src="Icon/<%= Rs12("IcoGesCm") %>.png" height="px"></a></Td>
		<%
		Rs12.Movenext
		Loop
		%>
			</Tr>
		</Table>
		<%
		End If
	%>
	</SECTION>

	<SECTION>	
	<%
	Dim Clave, NombreCli, VisualizaC
	Clave = Request("Clave")
	
	If Clave = "" Or IsNull(Clave) Then
		NombreCli = ""
		VisualizaC = "Hidden"
	Else
		'***** Conexion A la tabla de Clientes ****
		Set Rs13 = Server.CreateObject("ADODB.Recordset")
		Sql13="SELECT Clacli, Nomcli " &_
		"from Clientes  " &_
		"Where Clacli = '"& Clave &"';"
		Rs13.Open Sql13,Cn1,1,2	
		
		NombreCli = Rs13("Nomcli") 
		VisualizaC = "Text"
	End If
	%>
	<div id="page">
	<form action="AgregaGC.asp" method="post" name="AddGestor" id="AgregaGC">
		<Table Class="Tableneg">
			<Tr>
				<Td>Cliente:</Td>
			</Tr>
			<Tr>
				<Td>
				<input  tabindex="1" type="text" placeholder="Clave" Title="Clave del Cliente" name="Clave" size="10px" id="Clave" value="<%= Clave %>" Readonly required/>
				&nbsp;
				<input  tabindex="2" type="<%= VisualizaC %>" placeholder="Nombre del Cliente" Title="Nombre del Cliente" name="NombreC" size="70px" id="NombreC" value="<%= NombreCli %>" Readonly>
				<a href="BuscarGC.asp" Title="Buscar Un Cliente">
				<img src="icon/buscarC.png" height="30px">
				</a>
				</Td>
			</Tr>	
			<Tr>
				<Td>Comentarios:</Td>
			</Tr>
			<Tr>
				<Td><textarea tabindex="2" cols="30" rows="18" title="Comentarios"  placeholder="Comentarios" name="Comentarios"  id="Comentarios" required/></textarea></Td>
			</Tr>				
			<Tr>
				<Td align="center"><button  tabindex="3" type="submit" name="Grabar" id="Grabar"/>Grabar</button><br><br></Td>
			</Tr>				
		</Table>
	</form>
	
	</div>
	</SECTION>

	<SECTION Id="Resultados">	


	<%
	If Clave = "" Or ISnull(Clave) Then
	
	Else
		
		Dim Rs14
		Dim Sql14
		'***** Conexion A la tabla Gestor de Clientes ****
		Set Rs14 = Server.CreateObject("ADODB.Recordset")
		Sql14="SELECT Top(10) CligesC, FecGesc, HorGesC, NotgesC, UsugesC " &_
		"from GestorC  " &_
		"Where CligesC = '"& Clave &"' " &_
		"Order by idgesc desc;"
		Rs14.Open Sql14,Cn1,1,2	
		
	%>
	
		<%
		If Rs14.Eof Then
		
		Else
		
		Do While Not Rs14.Eof
		%>
		<br>
		<Table Class="TablaRes" Width="800px">	
			<Tr>
				<Td Width="200px"><%= Rs14("FecGesc") %> &nbsp;<%= Rs14("HorGesC") %></Td>

				<Td Align="Right" Width="600px"><%= Rs14("UsugesC") %></Td>
			</Tr>
			<Tr>
				<Td Colspan="2"><%= Rs14("NotgesC") %></Td>
			</Tr>	
		</Table>

		<%
		Rs14.Movenext
		Loop
		%>

	<%
		End IF
	End If
	%>
	</div>	
	</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
%>

using Microsoft.AspNetCore.Mvc.RazorPages;
namespace MimPortal.Pages.Clientes
{
    public class GestioncModel : PageModel
    {
        public void OnGet() { }
    }
}

@page
@model MimPortal.Pages.Clientes.GestioncModel
@{
    ViewData["Title"] = "Gestión de Clientes";
}
<div id="page-content">
<div class="card">
    <div class="card-header">
        <h5><i class="bi bi-people-fill"></i> Gestión de Clientes</h5>
    </div>
    <div class="card-body">
        <div class="row">
            <div class="col-md-4 mb-3">
                <div class="card h-100">
                    <div class="card-body">
                        <h6><i class="bi bi-person-plus"></i> Alta de Clientes</h6>
                        <p class="small text-muted">Registrar nuevos clientes en el sistema</p>
                        <a href="/Clientes" class="btn btn-sm btn-primary">Acceder</a>
                    </div>
                </div>
            </div>
            <div class="col-md-4 mb-3">
                <div class="card h-100">
                    <div class="card-body">
                        <h6><i class="bi bi-pencil-square"></i> Modificar Clientes</h6>
                        <p class="small text-muted">Actualizar información de clientes existentes</p>
                        <a href="/Clientes/Climod" class="btn btn-sm btn-primary">Acceder</a>
                    </div>
                </div>
            </div>
            <div class="col-md-4 mb-3">
                <div class="card h-100">
                    <div class="card-body">
                        <h6><i class="bi bi-person-dash"></i> Baja de Clientes</h6>
                        <p class="small text-muted">Dar de baja clientes del sistema</p>
                        <a href="/Clientes/Clidel" class="btn btn-sm btn-danger">Acceder</a>
                    </div>
                </div>
            </div>
            <div class="col-md-4 mb-3">
                <div class="card h-100">
                    <div class="card-body">
                        <h6><i class="bi bi-search"></i> Catálogo de Clientes</h6>
                        <p class="small text-muted">Consultar catálogo completo</p>
                        <a href="/Clientes/Clientes" class="btn btn-sm btn-info">Acceder</a>
                    </div>
                </div>
            </div>
            <div class="col-md-4 mb-3">
                <div class="card h-100">
                    <div class="card-body">
                        <h6><i class="bi bi-graph-up"></i> Dashboard Cliente</h6>
                        <p class="small text-muted">Ver estadísticas por cliente</p>
                        <a href="/Clientes/Clidash" class="btn btn-sm btn-success">Acceder</a>
                    </div>
                </div>
            </div>
            <div class="col-md-4 mb-3">
                <div class="card h-100">
                    <div class="card-body">
                        <h6><i class="bi bi-cash-stack"></i> Cuentas por Cobrar</h6>
                        <p class="small text-muted">Gestionar CXC de clientes</p>
                        <a href="/Clientes/Cxc" class="btn btn-sm btn-warning">Acceder</a>
                    </div>
                </div>
            </div>
        </div>
    </div>
</div>
</div>

MATERIALES INDUSTRIALES DE MEXICO

gestionc.asp

Archivo ASP

Página Razor

Módulo

Líneas de Código

SELECT SELECT Top(10) CligesC, FecGesc, HorGesC, NotgesC, UsugesC

SQL Original (ASP)

SELECT SELECT Clacli, Nomcli

SQL Original (ASP)

SELECT SELECT Top(10) CligesC, FecGesc, HorGesC, NotgesC, UsugesC from GestorC Where...

SQL Original (ASP)

SELECT Select * from GestoCM where UsuGesCM = '"& Session("MyName") &"';

SQL Original (ASP)

SELECT SELECT Clacli, Nomcli from Clientes Where Clacli = '"& Clave &"'

SQL Original (ASP)

SELECT Select * from GestoCM where UsuGesCM = '

SQL Original (ASP)

SELECT Select * from Empresa;

SQL Original (ASP)