Detalle: cxc.asp - MIM Portal

cxc.asp

Ir a la Página Volver a la Lista

Archivo ASP

cxc.asp

Página Razor

Clientes/Cxc.cshtml

Módulo

Clientes

Líneas de Código

149

Características

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

Tablas Utilizadas (1)

Empresa

Consultas SQL (1)

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
`clilist.asp`	include	Clientes	Pendiente	-
`cxcm.asp`	include	CXC	Pendiente	-
`default.asp`	redirect	General	Pendiente	-

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

Archivo ASP	Tipo	Módulo	Estado	Página Razor
`cxc - copy.asp`	form_action	CXC	Pendiente	-
`cxc - copy.asp`	link	CXC	Pendiente	-

<%  
	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" />
		<link href="css/Buscador.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, Rs12, Rs13, Rs14
Dim Sql11, Sql12, Sql13, Sql14

'***** 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>
	<!--#include file="cxcm.asp"-->
	</SECTION>
	<SECTION>
	<CENTER>
	<b>*** CATALOGO DE CLIENTES ***</B>
	<br>
	<br>

	

	<%
Dim num_registros, num_campos, Campo, registros_mostrados
Dim Clave, Nombre
Dim Interactivo

	
	Clave = Request("Clave")
	Nombre = Request("Nombre")

%>	
		<Form action="Cxc.asp" method="post">	
		<Table Id="TablaOpc">
			<Tr>
				<Td>
				<input tabindex="1" type="text" placeholder="Clave" Title="Clave" name="Clave" Size="15" id="TablaOpc" value="<%= Clave %>" Size="7px" onChange="javascript:this.value=this.value.toUpperCase();">
				</Td>	
				<Td>
				<input tabindex="2" type="text" placeholder="Nombre" Title="Nombre" name="Nombre" Size="15" id="TablaOpc" value="<%= Nombre %>" Size="7px" onChange="javascript:this.value=this.value.toUpperCase();">
				<input tabindex="3" type="Hidden" placeholder="Modulo" Title="Modulo" name="Modulo" Size="25" id="TablaOpc" value="Clientes" Size="7px" onChange="javascript:this.value=this.value.toUpperCase();">
				</Td>					
				<Td>
				<button  tabindex="8" type="submit" name="Buscar" id="Buscar"/>Buscar</button>
				</td>				
			</Tr>
		</Table>
		</Form>
		
<%
	If (Isnull(Clave) or Clave = "") and (Isnull(Nombre) or Nombre = "")  Then

	Else
%>		
<br>
		<!--#include file="Clilist.asp"-->
<%
	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
%>

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 CxcModel : PageModel
    {
        private readonly MimDbContext _context;
        private const int PageSize = 25;

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

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

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

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

        [BindProperty(SupportsGet = true)]
        public DateTime? FechaInicio { get; set; }

        [BindProperty(SupportsGet = true)]
        public DateTime? FechaFinal { get; set; }

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

        public List<CxcViewModel> Cuentas { get; set; } = new();
        public int TotalCount { get; set; }
        public int TotalPages { get; set; }
        public int CurrentPage => PageNum;
        
        public decimal TotalImporte { get; set; }
        public decimal TotalPagado { get; set; }
        public decimal TotalSaldo { get; set; }

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

            if (!string.IsNullOrEmpty(Cliente))
            {
                query = query.Where(c => c.CLICXCG != null && c.CLICXCG.Contains(Cliente));
            }

            if (!string.IsNullOrEmpty(Factura))
            {
                if (int.TryParse(Factura, out int facNum))
                {
                    query = query.Where(c => c.NFACXCG == facNum);
                }
            }

            if (!string.IsNullOrEmpty(Status))
            {
                if (Status == "P") // Pendiente
                {
                    query = query.Where(c => c.SALCXCG > 0 && (c.FVECXCG == null || c.FVECXCG >= DateTime.Now));
                }
                else if (Status == "C") // Cobrado
                {
                    query = query.Where(c => c.SALCXCG == 0 || c.SALCXCG == null);
                }
                else if (Status == "V") // Vencido
                {
                    query = query.Where(c => c.SALCXCG > 0 && c.FVECXCG < DateTime.Now);
                }
            }

            if (FechaInicio.HasValue)
            {
                query = query.Where(c => c.FRECXCG >= FechaInicio.Value);
            }

            if (FechaFinal.HasValue)
            {
                query = query.Where(c => c.FRECXCG <= FechaFinal.Value);
            }

            // Get totals
            TotalImporte = await query.SumAsync(c => c.IMPCXCG ?? 0);
            TotalPagado = await query.SumAsync(c => c.PAGCXCG ?? 0);
            TotalSaldo = await query.SumAsync(c => c.SALCXCG ?? 0);

            // Order by date descending
            query = query.OrderByDescending(c => c.FRECXCG);

            // Get total count
            TotalCount = await query.CountAsync();
            TotalPages = (int)Math.Ceiling(TotalCount / (double)PageSize);

            // Get paginated data
            var cxcData = await query
                .Skip((PageNum - 1) * PageSize)
                .Take(PageSize)
                .ToListAsync();

            // Get client names - use raw SQL to avoid EF Core translation issues
            var clienteIds = cxcData.Select(c => c.CLICXCG).Where(c => c != null).Distinct().ToList();
            var clientesList = await _context.CLIENTES
                .Where(c => c.CLACLI != null)
                .Select(c => new { c.CLACLI, c.NOMCLI })
                .ToListAsync();
            var clientes = clientesList
                .Where(c => c.CLACLI != null && clienteIds.Contains(c.CLACLI))
                .ToDictionary(c => c.CLACLI ?? "", c => c.NOMCLI ?? "");

            // Map to view model
            Cuentas = cxcData.Select(c => new CxcViewModel
            {
                Id = c.Id,
                MOVCXCG = c.MOVCXCG,
                CLICXCG = c.CLICXCG,
                ClienteNombre = c.CLICXCG != null && clientes.ContainsKey(c.CLICXCG) ? clientes[c.CLICXCG] : "",
                NFACXCG = c.NFACXCG,
                DOCCXCG = c.DOCCXCG,
                FRECXCG = c.FRECXCG,
                FVECXCG = c.FVECXCG,
                IMPCXCG = c.IMPCXCG,
                PAGCXCG = c.PAGCXCG,
                SALCXCG = c.SALCXCG
            }).ToList();
        }

        // Handler for client autocomplete suggestions
        public async Task<IActionResult> OnGetSuggestionsAsync(string? Buscar)
        {
            var sucursal = HttpContext.Session.GetString("Sucursal") ?? "MERIDA";
            if (string.IsNullOrEmpty(Buscar) || Buscar.Length < 2)
            {
                return Content("");
            }

            var suggestions = await _context.CLIENTES
                .Where(c => 
                    (c.CLACLI != null && c.CLACLI.Contains(Buscar)) ||
                    (c.NOMCLI != null && c.NOMCLI.Contains(Buscar)) ||
                    (c.RFCCLI != null && c.RFCCLI.Contains(Buscar))
                )
                .OrderBy(c => c.NOMCLI)
                .Take(8)
                .Select(c => new { c.CLACLI, c.NOMCLI, c.RFCCLI, c.STACLI })
                .ToListAsync();

            if (!suggestions.Any())
            {
                return Content("<div class='dropdown-item text-muted'><i class='bi bi-info-circle me-2'></i>No se encontraron clientes</div>");
            }

            var html = string.Join("", suggestions.Select(s => $@"
                <a href='/Clientes/Cxc?Cliente={s.CLACLI}' class='dropdown-item suggestion-item'>
                    <div class='d-flex justify-content-between align-items-center'>
                        <div>
                            <span class='badge bg-dark me-2'>{s.CLACLI}</span>
                            <strong>{s.NOMCLI}</strong>
                        </div>
                        <span class='badge {(s.STACLI == "A" ? "bg-success" : "bg-secondary")}'>{(s.STACLI == "A" ? "Activo" : s.STACLI)}</span>
                    </div>
                    <small class='text-muted'><i class='bi bi-file-text me-1'></i>{s.RFCCLI}</small>
                </a>
            "));

            return Content(html, "text/html");
        }
    }

    public class CxcViewModel
    {
        public Guid Id { get; set; }
        public int MOVCXCG { get; set; }
        public string? CLICXCG { get; set; }
        public string? ClienteNombre { get; set; }
        public int? NFACXCG { get; set; }
        public string? DOCCXCG { get; set; }
        public DateTime? FRECXCG { get; set; }
        public DateTime? FVECXCG { get; set; }
        public decimal? IMPCXCG { get; set; }
        public decimal? PAGCXCG { get; set; }
        public decimal? SALCXCG { get; set; }
    }
}

@page
@model MimPortal.Pages.Clientes.CxcModel
@{
    ViewData["Title"] = "Cuentas por Cobrar";
}
<div id="page-content">
<div class="card">
    <div class="card-header d-flex justify-content-between align-items-center">
        <h5 class="mb-0"><i class="bi bi-cash-stack"></i> Cuentas por Cobrar (CXC)</h5>
        <a href="/Clientes/Cxcadd" class="btn btn-success btn-sm">
            <i class="bi bi-plus-circle"></i> Agregar CXC
        </a>
    </div>
    <div class="card-body">
        <form method="get" class="row g-3 mb-4">
            <div class="col-md-3">
                <label class="form-label">Cliente</label>
                <div class="search-container">
                    <i class="bi bi-search search-icon"></i>
                    <input type="text" 
                           id="cliente-input"
                           class="form-control" 
                           name="Cliente" 
                           value="@Model.Cliente" 
                           placeholder="Buscar cliente..."
                           autocomplete="off" />
                    <div id="cliente-dropdown" class="autocomplete-dropdown"></div>
                </div>
            </div>
            <div class="col-md-2">
                <label class="form-label">Factura</label>
                <input type="text" class="form-control" name="Factura" value="@Model.Factura" placeholder="# Factura..." />
            </div>
            <div class="col-md-2">
                <label class="form-label">Status</label>
                <select class="form-select" name="Status">
                    <option value="">Todos</option>
                    <option value="P" selected="@(Model.Status == "P")">Pendiente</option>
                    <option value="C" selected="@(Model.Status == "C")">Cobrado</option>
                    <option value="V" selected="@(Model.Status == "V")">Vencido</option>
                </select>
            </div>
            <div class="col-md-2">
                <label class="form-label">Desde</label>
                <input type="date" class="form-control" name="FechaInicio" value="@Model.FechaInicio?.ToString("yyyy-MM-dd")" />
            </div>
            <div class="col-md-2">
                <label class="form-label">Hasta</label>
                <input type="date" class="form-control" name="FechaFinal" value="@Model.FechaFinal?.ToString("yyyy-MM-dd")" />
            </div>
            <div class="col-md-1 d-flex align-items-end">
                <button type="submit" class="btn btn-primary w-100">
                    <i class="bi bi-search"></i>
                </button>
            </div>
        </form>

        <!-- Summary Cards -->
        <div class="row mb-4">
            <div class="col-md-3">
                <div class="card bg-primary text-white">
                    <div class="card-body text-center py-2">
                        <h6 class="mb-1">Total Documentos</h6>
                        <h4 class="mb-0">@Model.TotalCount.ToString("N0")</h4>
                    </div>
                </div>
            </div>
            <div class="col-md-3">
                <div class="card bg-warning text-dark">
                    <div class="card-body text-center py-2">
                        <h6 class="mb-1">Total Importe</h6>
                        <h4 class="mb-0">@Model.TotalImporte.ToString("C2")</h4>
                    </div>
                </div>
            </div>
            <div class="col-md-3">
                <div class="card bg-success text-white">
                    <div class="card-body text-center py-2">
                        <h6 class="mb-1">Total Pagado</h6>
                        <h4 class="mb-0">@Model.TotalPagado.ToString("C2")</h4>
                    </div>
                </div>
            </div>
            <div class="col-md-3">
                <div class="card bg-danger text-white">
                    <div class="card-body text-center py-2">
                        <h6 class="mb-1">Saldo Pendiente</h6>
                        <h4 class="mb-0">@Model.TotalSaldo.ToString("C2")</h4>
                    </div>
                </div>
            </div>
        </div>

        <div class="table-responsive">
            <table class="table table-sm table-striped table-hover">
                <thead class="table-dark">
                    <tr>
                        <th>Mov</th>
                        <th>Cliente</th>
                        <th>Factura</th>
                        <th>Documento</th>
                        <th>F. Registro</th>
                        <th>F. Vencimiento</th>
                        <th class="text-end">Importe</th>
                        <th class="text-end">Pagado</th>
                        <th class="text-end">Saldo</th>
                        <th>Status</th>
                        <th>Acciones</th>
                    </tr>
                </thead>
                <tbody>
                    @if (Model.Cuentas.Any())
                    {
                        @foreach (var cxc in Model.Cuentas)
                        {
                            var vencido = cxc.FVECXCG.HasValue && cxc.FVECXCG < DateTime.Now && (cxc.SALCXCG ?? 0) > 0;
                            <tr class="@(vencido ? "table-danger" : "")">
                                <td>@cxc.MOVCXCG</td>
                                <td>
                                    <a href="/Clientes/Detalle/@cxc.CLICXCG" class="text-decoration-none">
                                        <strong>@cxc.CLICXCG</strong>
                                    </a>
                                    <br /><small class="text-muted">@cxc.ClienteNombre</small>
                                </td>
                                <td>@cxc.NFACXCG</td>
                                <td>@cxc.DOCCXCG</td>
                                <td>@cxc.FRECXCG?.ToString("dd/MM/yyyy")</td>
                                <td>
                                    @cxc.FVECXCG?.ToString("dd/MM/yyyy")
                                    @if (vencido)
                                    {
                                        var diasVencido = (DateTime.Now - cxc.FVECXCG.Value).Days;
                                        <br /><small class="text-danger">(@diasVencido días)</small>
                                    }
                                </td>
                                <td class="text-end">@cxc.IMPCXCG?.ToString("N2")</td>
                                <td class="text-end text-success">@cxc.PAGCXCG?.ToString("N2")</td>
                                <td class="text-end @((cxc.SALCXCG ?? 0) > 0 ? "text-danger fw-bold" : "text-success")">
                                    @cxc.SALCXCG?.ToString("N2")
                                </td>
                                <td>
                                    @if ((cxc.SALCXCG ?? 0) == 0)
                                    {
                                        <span class="badge bg-success">Cobrado</span>
                                    }
                                    else if (vencido)
                                    {
                                        <span class="badge bg-danger">Vencido</span>
                                    }
                                    else
                                    {
                                        <span class="badge bg-warning text-dark">Pendiente</span>
                                    }
                                </td>
                                <td>
                                    <a href="/Clientes/CxcDetalle/@cxc.Id" class="btn btn-sm btn-outline-primary" title="Ver Detalle">
                                        <i class="bi bi-eye"></i>
                                    </a>
                                    @if ((cxc.SALCXCG ?? 0) > 0)
                                    {
                                        <a href="/Clientes/CxcPago/@cxc.Id" class="btn btn-sm btn-outline-success" title="Registrar Pago">
                                            <i class="bi bi-cash"></i>
                                        </a>
                                    }
                                </td>
                            </tr>
                        }
                    }
                    else
                    {
                        <tr>
                            <td colspan="11" class="text-center text-muted py-4">
                                <i class="bi bi-inbox fs-1 d-block mb-2"></i>
                                No se encontraron cuentas por cobrar. Ajuste los filtros de búsqueda.
                            </td>
                        </tr>
                    }
                </tbody>
            </table>
        </div>

        @if (Model.TotalPages > 1)
        {
            <nav class="mt-3">
                <ul class="pagination justify-content-center">
                    @for (int i = 1; i <= Math.Min(Model.TotalPages, 10); i++)
                    {
                        <li class="page-item @(i == Model.CurrentPage ? "active" : "")">
                            <a class="page-link" href="?Cliente=@Model.Cliente&Factura=@Model.Factura&Status=@Model.Status&FechaInicio=@Model.FechaInicio?.ToString("yyyy-MM-dd")&FechaFinal=@Model.FechaFinal?.ToString("yyyy-MM-dd")&PageNum=@i">@i</a>
                        </li>
                    }
                    @if (Model.TotalPages > 10)
                    {
                        <li class="page-item disabled"><span class="page-link">...</span></li>
                        <li class="page-item">
                            <a class="page-link" href="?Cliente=@Model.Cliente&Factura=@Model.Factura&Status=@Model.Status&FechaInicio=@Model.FechaInicio?.ToString("yyyy-MM-dd")&FechaFinal=@Model.FechaFinal?.ToString("yyyy-MM-dd")&PageNum=@Model.TotalPages">@Model.TotalPages</a>
                        </li>
                    }
                </ul>
            </nav>
        }

        <div class="text-muted text-center mt-2">
            Mostrando @Model.Cuentas.Count de @Model.TotalCount documentos
        </div>
    </div>
</div>
</div>

@section Scripts {
<script>
    MimAutocomplete.init({
        inputId: 'cliente-input',
        dropdownId: 'cliente-dropdown',
        suggestionsUrl: '/Clientes/Cxc?handler=Suggestions',
        paramName: 'Buscar',
        minChars: 2,
        debounceMs: 150
    });
</script>
}