Detalle: pagos.asp - MIM Portal

pagos.asp

Ir a la Página Volver a la Lista

Archivo ASP

pagos.asp

Página Razor

Proveedores/Pagos.cshtml

Módulo

Proveedores

Líneas de Código

146

Características

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

Tablas Utilizadas (3)

Empresa PagoTipo Pagos

Consultas SQL (3)

SQL Original (ASP)

Select * from Empresa;

Tablas: Empresa

SQL Original (ASP)

Select *

SQL Original (ASP)

Select *  " &_  from Pagos  Left Join PagoTipo on TipoPago = IdPTipo

Tablas: PagoTipo Pagos

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
`pagosm.asp`	include	General	Pendiente	-
`default.asp`	redirect	General	Pendiente	-

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

Archivo ASP	Tipo	Módulo	Estado	Página Razor
`pagosdoc.asp`	link	General	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, "'", "''")
Sanea2 = 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" />
<!-- Scripts para las graficas -->
<script src="RGraph/RGraph.common.core.js"></script>
<script src="RGraph/RGraph.pie.js"></script>


		
<!-- JavaScript para enviar a una pagina emergente -->
	
		<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, Rs15, Rs16, Rs17, Rs18
Dim Sql11, Sql12, Sql13, Sql14, Sql15, Sql16, Sql17, Sql18

'***** 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>
<!--#INCLUDE FILE="Pagosm.asp"-->

<br>
<%
	'***** Conexion A la Tabla Empresa ****
	Set Rs12 = Server.CreateObject("ADODB.Recordset")
	Sql12="Select *  " &_ 
	"from Pagos " &_
	"Left Join PagoTipo on TipoPago = IdPTipo;"
	Rs12.Open Sql12,Cn1,1,2

	If Rs12.EOF Then
	
	Else
%>
<Table Id="TablaOpc" Border="1">

	<Tr>
		<Td Id="TdLineaHeader">Tipo </Td>
		<Td Id="TdLineaHeader">Descripcion </Td>
		<Td Id="TdLineaHeader">Monto USD </Td>
		<Td Id="TdLineaHeader">Monto MX </Td>
		<Td Id="TdLineaHeader">Fecha Pago </Td>
		<Td Id="TdLineaHeader">Documento </Td>
	</Tr>
	
	<%
		Do While Not Rs12.EOF
		
	%>
	<Tr onmouseover="this.className = 'selecta'" onmouseout="this.className = null" bgcolor="<%= Rs12("ColorPTipo") %>">
		<Td Id="TdLineaLeft"><%= Rs12("DesPTipo") %> </Td>
		<Td Id="TdLineaLeft"><%= Rs12("DesPago") %> </Td>
		<Td Id="TdLineaRight"><%= Formatnumber(Rs12("UsdPago")) %> </Td>
		<Td Id="TdLineaRight"><%= Formatnumber(Rs12("MNPago")) %> </Td>
		<Td Id="TdLineaLeft"><%= (Rs12("FechaPago")) %> </Td>
	</Tr>	
	<%
		Rs12.Movenext
		Loop
		
	%>
</Table>
<%
	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 System.Diagnostics;

namespace MimPortal.Pages.Proveedores
{
    public class PagosModel : PageModel
    {
        private readonly MimDbContext _context;
        private const int PageSize = 25;

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

        [BindProperty(SupportsGet = true)]
        public int? NumPago { get; set; }

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

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

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

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

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

        public List<PagoViewModel> Pagos { get; set; } = new();
        public int TotalCount { get; set; }
        public int TotalPages { get; set; }
        public int CurrentPage => PageNum;
        public long ElapsedMs { get; set; }

        public async Task OnGetAsync()
        {
            var sucursal = HttpContext.Session.GetString("Sucursal") ?? "MERIDA";
            var sw = Stopwatch.StartNew();

            var query = from p in _context.PAGOSP
                        where p.Sucursal == sucursal
                        join prov in _context.PROVEEDORES on p.PrvPag equals prov.CVEPRV into provJoin
                        from proveedor in provJoin.DefaultIfEmpty()
                        select new PagoViewModel
                        {
                            IdPag = p.IdPag,
                            PrvPag = p.PrvPag,
                            ProveedorNombre = proveedor.NOMPRV ?? p.PrvPag,
                            FecPag = p.FecPag,
                            FolPag = p.FolPag,
                            TipPag = p.TipPag,
                            DocPag = p.DocPag,
                            ImpPag = p.ImpPag,
                            ObsPag = p.ObsPag,
                            MonPag = p.MonPag,
                            TcaPag = p.TcaPag,
                            UsrPag = p.UsrPag
                        };

            // Apply filters
            if (NumPago.HasValue)
            {
                query = query.Where(p => p.IdPag == NumPago.Value);
            }

            if (!string.IsNullOrEmpty(Proveedor))
            {
                query = query.Where(p => p.ProveedorNombre != null && p.ProveedorNombre.Contains(Proveedor));
            }

            if (!string.IsNullOrEmpty(TipoPago) && int.TryParse(TipoPago, out int tipoInt))
            {
                query = query.Where(p => p.TipPag == tipoInt);
            }

            if (FechaDesde.HasValue)
            {
                query = query.Where(p => p.FecPag >= FechaDesde.Value);
            }

            if (FechaHasta.HasValue)
            {
                query = query.Where(p => p.FecPag <= FechaHasta.Value);
            }

            // Order by pago ID descending
            query = query.OrderByDescending(p => p.IdPag);

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

            // Paginate
            Pagos = await query
                .Skip((PageNum - 1) * PageSize)
                .Take(PageSize)
                .ToListAsync();

            sw.Stop();
            ElapsedMs = sw.ElapsedMilliseconds;
        }
    }

    public class PagoViewModel
    {
        public int IdPag { get; set; }
        public string? PrvPag { get; set; }
        public string? ProveedorNombre { get; set; }
        public DateTime? FecPag { get; set; }
        public int? FolPag { get; set; }
        public int? TipPag { get; set; }
        public int? DocPag { get; set; }
        public decimal? ImpPag { get; set; }
        public string? ObsPag { get; set; }
        public int? MonPag { get; set; }
        public decimal? TcaPag { get; set; }
        public string? UsrPag { get; set; }
    }
}

@page
@model MimPortal.Pages.Proveedores.PagosModel
@{
    ViewData["Title"] = "Pagos a Proveedores";
}
<div id="page-content">
    <div class="container-fluid">
        <div class="d-flex justify-content-between align-items-center mb-4">
            <div>
                <h1 class="h3 mb-0"><i class="bi bi-credit-card"></i> Pagos a Proveedores</h1>
                <nav aria-label="breadcrumb">
                    <ol class="breadcrumb mb-0">
                        <li class="breadcrumb-item"><a href="/">Inicio</a></li>
                        <li class="breadcrumb-item"><a href="/Proveedores">Proveedores</a></li>
                        <li class="breadcrumb-item active">Pagos</li>
                    </ol>
                </nav>
            </div>
            <a href="/Proveedores/Pagoadd" class="btn btn-success">
                <i class="bi bi-plus-circle"></i> Nuevo Pago
            </a>
        </div>

        <div class="card mb-4">
            <div class="card-header">
                <h5 class="card-title mb-0"><i class="bi bi-funnel"></i> Filtros de Búsqueda</h5>
            </div>
            <div class="card-body">
                <form method="get" class="row g-3">
                    <div class="col-md-2">
                        <label class="form-label">No. Pago</label>
                        <input type="number" class="form-control" name="NumPago" value="@Model.NumPago" placeholder="Número" />
                    </div>
                    <div class="col-md-3">
                        <label class="form-label">Proveedor</label>
                        <input type="text" class="form-control" name="Proveedor" value="@Model.Proveedor" placeholder="Nombre proveedor" />
                    </div>
                    <div class="col-md-2">
                        <label class="form-label">Fecha Desde</label>
                        <input type="date" class="form-control" name="FechaDesde" value="@Model.FechaDesde?.ToString("yyyy-MM-dd")" />
                    </div>
                    <div class="col-md-2">
                        <label class="form-label">Fecha Hasta</label>
                        <input type="date" class="form-control" name="FechaHasta" value="@Model.FechaHasta?.ToString("yyyy-MM-dd")" />
                    </div>
                    <div class="col-md-2">
                        <label class="form-label">Tipo</label>
                        <select class="form-select" name="TipoPago">
                            <option value="">Todos</option>
                            <option value="1" selected="@(Model.TipoPago == "1")">Cheque</option>
                            <option value="2" selected="@(Model.TipoPago == "2")">Transferencia</option>
                            <option value="3" selected="@(Model.TipoPago == "3")">Efectivo</option>
                        </select>
                    </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>
            </div>
        </div>

        <div class="card">
            <div class="card-header d-flex justify-content-between align-items-center">
                <h5 class="card-title mb-0">Listado de Pagos</h5>
                <div>
                    <span class="badge bg-primary">@Model.TotalCount registros</span>
                    <span class="badge bg-info">@Model.ElapsedMs ms</span>
                </div>
            </div>
            <div class="card-body">
                <div class="table-responsive">
                    <table class="table table-hover">
                        <thead class="table-light">
                            <tr>
                                <th>Pago</th>
                                <th>Fecha</th>
                                <th>Proveedor</th>
                                <th>Tipo</th>
                                <th>Folio</th>
                                <th>Documento</th>
                                <th class="text-end">Importe</th>
                                <th>Moneda</th>
                                <th>Observaciones</th>
                                <th>Acciones</th>
                            </tr>
                        </thead>
                        <tbody>
                            @if (Model.Pagos != null && Model.Pagos.Any())
                            {
                                @foreach (var pago in Model.Pagos)
                                {
                                    <tr>
                                        <td><strong>@pago.IdPag</strong></td>
                                        <td>@pago.FecPag?.ToString("dd/MM/yyyy")</td>
                                        <td>@pago.ProveedorNombre</td>
                                        <td>
                                            @switch (pago.TipPag)
                                            {
                                                case 1:
                                                    <span class="badge bg-info">Cheque</span>
                                                    break;
                                                case 2:
                                                    <span class="badge bg-success">Transferencia</span>
                                                    break;
                                                case 3:
                                                    <span class="badge bg-warning">Efectivo</span>
                                                    break;
                                                default:
                                                    <span class="badge bg-secondary">@pago.TipPag</span>
                                                    break;
                                            }
                                        </td>
                                        <td>@pago.FolPag</td>
                                        <td>@pago.DocPag</td>
                                        <td class="text-end"><strong>@pago.ImpPag?.ToString("N2")</strong></td>
                                        <td>@(pago.MonPag == 1 ? "MXN" : "USD")</td>
                                        <td>@(pago.ObsPag?.Length > 30 ? pago.ObsPag.Substring(0, 30) + "..." : pago.ObsPag)</td>
                                        <td>
                                            <a href="/Proveedores/Pagodet/@pago.IdPag" class="btn btn-sm btn-outline-primary" title="Ver Detalle">
                                                <i class="bi bi-eye"></i>
                                            </a>
                                            <a href="/Proveedores/Pagoimp/@pago.IdPag" class="btn btn-sm btn-outline-secondary" title="Imprimir">
                                                <i class="bi bi-printer"></i>
                                            </a>
                                        </td>
                                    </tr>
                                }
                            }
                            else
                            {
                                <tr>
                                    <td colspan="10" class="text-center text-muted py-4">
                                        <i class="bi bi-inbox fs-1"></i>
                                        <p class="mt-2">No se encontraron pagos con los criterios especificados</p>
                                    </td>
                                </tr>
                            }
                        </tbody>
                    </table>
                </div>

@{
                    var paginationModel = new MimPortal.Pages.Shared.PaginationModel 
                    { 
                        CurrentPage = Model.CurrentPage, 
                        TotalPages = Model.TotalPages, 
                        BaseUrl = "/Proveedores/Pagos", 
                        QueryParams = new Dictionary<string, string> 
                        { 
                            { "NumPago", Model.NumPago?.ToString() ?? "" }, 
                            { "Proveedor", Model.Proveedor ?? "" }, 
                            { "TipoPago", Model.TipoPago?.ToString() ?? "" } 
                        } 
                    };
                }
                <partial name="_Pagination" model="paginationModel" />
            </div>
        </div>
    </div>
</div>
<!-- Migrado desde: pagos.asp -->

MATERIALES INDUSTRIALES DE MEXICO

pagos.asp

Archivo ASP

Página Razor

Módulo

Líneas de Código

SELECT Select * from Empresa;

SQL Original (ASP)

SELECT Select *

SQL Original (ASP)

SELECT Select * " &_ from Pagos Left Join PagoTipo on TipoPago = IdPTipo

SQL Original (ASP)