Detalle: clidet.asp - MIM Portal

clidet.asp

Ir a la Página Volver a la Lista

Archivo ASP

clidet.asp

Página Razor

Clientes/Clidet.cshtml

Módulo

Clientes

Líneas de Código

192

Características

En Menú:	No
Formularios:	1 formulario(s)
Consultas SQL:	Ninguna
Complejidad:	low
Bases de Datos:	Session DB

Tablas Utilizadas (0)

No se detectaron tablas

Comentarios y Notas (0)

No hay comentarios aún

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

Archivo ASP	Tipo	Módulo	Estado	Página Razor
`barra.asp`	include	General	Pendiente	-
`empresa.asp`	include	General	Pendiente	-
`general.asp`	include	General	Pendiente	-
`mpro.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
%> 
<!--#include file="User.asp"-->
<!--#include file="general.asp"-->
<html>
<head>
<title>Grupo MIM</title>
<link rel=stylesheet href="vista.css">
<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>
<!--#INCLUDE FILE="BARRA.asp"-->

<div class="normalw" style="position:absolute; top:1px">
<center>
<!--#include file="empresa.asp"--><br>
<hr>
</center>
</div>

<div class="normalw" style="position:absolute; top:1px;">
Bienvenido: <%= nombre %>. <br>
Hora Actual: <%= time %>
</div>
<div class="normalw" style="position:absolute; top:34px; left:1">
<!--#include file="mpro.asp"-->
</div>

<div class="normal" style="position:absolute; top:80px; left:10">

<center>

Detalles del Cliente
<Form action="Clidet.asp" name="CLimod" method='post'>
<TABLE border=0 cellspacing=0 cellpadding=0 class="normal">
<tr>
<td Class="Normalb">Clave: &nbsp;</td>
<td><input type=text class=normalb name="Clacli" size=14 onChange="javascript:this.value=this.value.toUpperCase();"></td>
</tr>
<tr>
<td Class="Normalb">Cliente:</td>
<td><input type=text class=normalb name="Nomcli" size=40 onChange="javascript:this.value=this.value.toUpperCase();"></td>
<td>&nbsp <input type="submit" value="Buscar" class=normalb></td>
</tr>
</table>
</form>
<%
Dim Rs11, Sql11
Dim num_registros, num_campos, Campo, registros_mostrados

Clacli = Cstr(request("Clacli"))
Nomcli = request("Nomcli")

Dim Clacli
Clacli = request.Form("Clacli")
If Clacli = "" Then
Clacli = request.Querystring("Clacli")
else
Clacli = Clacli
end if

Dim  Nomcli
Nomcli = request.Form("Nomcli")
If Nomcli = "" Then
Nomcli = request.Querystring("Nomcli")
else
Nomcli = Nomcli
end if

'Numero de Paginas
If Request.QueryString("pag")<>"" Then
   Session("pagina")=Request.QueryString("pag")
Else
   Session("pagina")=1
End If


set rs11 = server.CreateObject("ADODB.Recordset")
SQL11="SELECT regcli as Registro, Clacli As Clave, Nomcli as Nombre, Stacli as Status from Clientes " &_
"where Clacli like '%" & UCase(Request("Clacli")) & "%' " &_
"and Nomcli like '%" & UCase(Request("Nomcli")) & "%';"
rs11.open sql11,cn1,1,2

If rs11.Eof then
Response.Write("No Exiten Registros bajo esa busqueda")
Else

If Clacli = "" and Nomcli = "" then
Response.Write("Buscar Cliente")
else
'Registros por Pagina
num_registros = 25

'Dimensionamos las paginas y determinamos la pagina actual
RS11.PageSize=num_registros
RS11.AbsolutePage=Session("pagina")
%>
<hr>
Pagina  <b><%=Session("pagina")%></b> De <b><%=RS11.PageCount%></b>
<br>
Registros Encontrados: <b><%=RS11.RecordCount%></b>
<br><br>
<TABLE border=1 cellspacing=1 cellpadding=2 bordercolor=#c0c0c0>
<tr>
<td align="Center" class="normal" bgcolor="#d8d8d8">Clave</td>
<td align="Center" class="normal" bgcolor="#d8d8d8">Nombre</td>
<td align="Center" class="normal" bgcolor="#d8d8d8">Status</td>
<td align="Center" class="normal" bgcolor="#d8d8d8">Doc</td>
</tr>
<%

registros_mostrados = 0
Dim Color, Colorfila, status
While (Not RS11.eof And registros_mostrados < num_registros)
   registros_mostrados = registros_mostrados +1
   
if colorfila = 0 then
Color= "#d8d8d8"
Colorfila = 1
else
Color= "#ffffff"
Colorfila = 0
end if   

If Rs11("Status") = "A" then
Status = "Activo" 
else
Status = "Suspendido"
end If   
   
%> 
   <tr>
<td class="normal" align="Left" bgcolor=<%=Color%>><%= rs11("Clave") %></td>
<td class="normal" align="Left" bgcolor=<%=Color%>><%= rs11("Nombre") %></td>
<td class="normal" align="Center" bgcolor=<%=Color%>><%= Status %></td>
<td class="normal" align="right" bgcolor=<%=Color%>>
<a href="Clideta.asp?Registro=<%=rs11("Registro")%>&Empresa=<%= Negocio %>" onclick="NewWindow(this.href,'Pedido','790','470','yes');return false;">
<img src="image/detalles.gif" border="0" Alt="CLIENTE: <%= rs11("Nombre") %>" height=16px>
</td>

</tr>
<%
   RS11.MoveNext
Wend

%>
<tr>
<td colspan="4" align="center">
<%
   i=0
While i<RS11.PageCount 
   i=i+1
%>
   <b><a href="Clidet.asp?Mod=Clientes&pag=<%=i%>&Nomcli=<%= Nomcli %>&Clacli=<%= Clacli %>"><%=i%></a></b>
<%
Wend
%>
</td>
</tr>
</table>
<%
End If
End If
RS11.Close
%>
<br>
<HR>
</div>
</body>
</html>
<%  
End Sub 
'Add the chosen course to the cart
 Call AddUsuario() 
'Display contents of electronic shopping cart
 Call DisplayUsuario()
%>

using Microsoft.AspNetCore.Mvc;
using Microsoft.AspNetCore.Mvc.RazorPages;
using Microsoft.EntityFrameworkCore;
using MimPortal.Data;
using MimPortal.Data.Entities;

namespace MimPortal.Pages.Clientes
{
    public class ClidetModel : PageModel
    {
        private readonly MimDbContext _context;
        private const int PageSize = 50;

        public ClidetModel(MimDbContext context)
        {
            _context = context;
        }

        [BindProperty(SupportsGet = true)]
        public string? Clacli { get; set; }

        [BindProperty(SupportsGet = true)]
        public string? Nomcli { get; set; }

        [BindProperty(SupportsGet = true)]
        public int CurrentPage { get; set; } = 1;

        public List<CLIENTES> Clientes { get; set; } = new();
        public int TotalRecords { get; set; }
        public int TotalPages { get; set; }

        public async Task OnGetAsync()
        {
            var sucursal = HttpContext.Session.GetString("Sucursal") ?? "MERIDA";
            var query = _context.CLIENTES.Where(x => x.Sucursal == sucursal).AsQueryable();

            if (!string.IsNullOrEmpty(Clacli))
                query = query.Where(c => c.CLACLI != null && c.CLACLI.Contains(Clacli.ToUpper()));

            if (!string.IsNullOrEmpty(Nomcli))
                query = query.Where(c => c.NOMCLI != null && c.NOMCLI.Contains(Nomcli.ToUpper()));

            TotalRecords = await query.CountAsync();
            TotalPages = (int)Math.Ceiling(TotalRecords / (double)PageSize);

            if (CurrentPage < 1) CurrentPage = 1;
            if (CurrentPage > TotalPages && TotalPages > 0) CurrentPage = TotalPages;

            Clientes = await query
                .OrderBy(c => c.NOMCLI)
                .Skip((CurrentPage - 1) * PageSize)
                .Take(PageSize)
                .ToListAsync();
        }
    }
}

@page
@model MimPortal.Pages.Clientes.ClidetModel
@{
    ViewData["Title"] = "Detalles del Cliente";
}
<div id="page-content">

<div class="card">
    <div class="card-header">
        <h5><i class="bi bi-person-lines-fill"></i> Detalles del Cliente</h5>
    </div>
    <div class="card-body">
        <form method="get" class="row g-3 mb-4">
            <div class="col-md-3">
                <label class="form-label">Clave</label>
                <input type="text" class="form-control" name="Clacli" value="@Model.Clacli" placeholder="Clave" />
            </div>
            <div class="col-md-5">
                <label class="form-label">Cliente</label>
                <input type="text" class="form-control" name="Nomcli" value="@Model.Nomcli" placeholder="Nombre del cliente" />
            </div>
            <div class="col-md-2 d-flex align-items-end">
                <button type="submit" class="btn btn-primary w-100"><i class="bi bi-search"></i> Buscar</button>
            </div>
        </form>

        @if (Model.Clientes.Any())
        {
            <div class="mb-3">
                <span class="badge bg-primary">Página @Model.CurrentPage de @Model.TotalPages</span>
                <span class="badge bg-secondary">@Model.TotalRecords registros</span>
            </div>

            <div class="table-responsive">
                <table class="table table-hover table-sm">
                    <thead class="table-dark">
                        <tr>
                            <th>Clave</th>
                            <th>Nombre</th>
                            <th>Status</th>
                            <th>Acciones</th>
                        </tr>
                    </thead>
                    <tbody>
                        @foreach (var cli in Model.Clientes)
                        {
                            <tr>
                                <td><strong>@cli.CLACLI</strong></td>
                                <td>@cli.NOMCLI</td>
                                <td>
                                    @if (cli.STACLI == "A")
                                    {
                                        <span class="badge bg-success">Activo</span>
                                    }
                                    else
                                    {
                                        <span class="badge bg-secondary">@cli.STACLI</span>
                                    }
                                </td>
                                <td>
                                    <a href="/Clientes/Clideta?Registro=@cli.Id" class="btn btn-sm btn-outline-primary" title="Ver Detalle">
                                        <i class="bi bi-eye"></i>
                                    </a>
                                    <a href="/Clientes/Clidetg?Registro=@cli.Id" class="btn btn-sm btn-outline-info" title="Imprimir" target="_blank">
                                        <i class="bi bi-printer"></i>
                                    </a>
                                </td>
                            </tr>
                        }
                    </tbody>
                </table>
            </div>

            @if (Model.TotalPages > 1)
            {
                <nav>
                    <ul class="pagination justify-content-center">
                        @for (int i = 1; i <= Math.Min(Model.TotalPages, 20); i++)
                        {
                            <li class="page-item @(i == Model.CurrentPage ? "active" : "")">
                                <a class="page-link" href="?CurrentPage=@i&Clacli=@Model.Clacli&Nomcli=@Model.Nomcli">@i</a>
                            </li>
                        }
                    </ul>
                </nav>
            }
        }
        else if (!string.IsNullOrEmpty(Model.Clacli) || !string.IsNullOrEmpty(Model.Nomcli))
        {
            <div class="alert alert-warning">No existen registros bajo esa búsqueda.</div>
        }
    </div>
</div>
</div>

MATERIALES INDUSTRIALES DE MEXICO

clidet.asp

Archivo ASP

Página Razor

Módulo

Líneas de Código