Detalle: clifacxmespe.asp

clifacxmespe.asp

Ir a la Página Volver a la Lista

Archivo ASP

clifacxmespe.asp

Página Razor

Clientes/Clifacxmespe.cshtml

Módulo

Clientes

Líneas de Código

108

Características

En Menú:	No
Formularios:	Ninguno
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 (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.ContentType = "application/vnd.ms-excel" 
%>
<!--#include file="User.asp"-->
<!--#include file="general.asp"-->
<html>
<head>
<title>Grupo MIM</title>

</head>
<BODY>

<div class="normalw" style="position:absolute; top:1px">
<center>


</center>
</div>
<div class="normalw" style="position:absolute; top:1px;">

</div>
<div class="normalw" style="position:absolute; top:34px; left:1">

</div>

<div class="normal" style="position:absolute; top:70px; left:15">
<%
Dim Finicial,Ffinal,clientei,clientef
Dim rs11, sql11,sql12,rs12

finicial = request("fechai")
ffinal = request("fechaf")
clientei = request("clientei")
clientef = request("clientef")

Set Rs11 = server.CreateObject("ADODB.Recordset")
SQL11="select nfaffacd, cliffacd, fecfface, nomcli, ucofface as Costo, (subfface*tcafface) as Subtotal, "&_
" (ivtfface*tcafface) as Iva, (totfface*tcafface) as total, stafface, (antifface * Tcafface) as Anticipo " &_
"from ffacdet, ffacenc, clientes where numfface=nfaffacd AND CODFFACD <> 'ANTICIPO'"&_
" and clacli = cliffacd and fecfface between '"& Finicial &"' and '"& Ffinal &"' and Clacli between '"& ClienteI &"' and '"& ClienteF &"' " &_
"group by nfaffacd, fecfface, cliffacd, nomcli, "&_
" ucofface, subfface, ivtfface, totfface, tcafface, stafface, antifface order by fecfface asc"
Rs11.Open Sql11,cnl,1,2

Set Rs12 = server.CreateObject("ADODB.Recordset")
SQL12="select * from subfac where fecfface between '"& Finicial &"' and '"& Ffinal &"' order by fecfface asc"
Rs12.Open Sql12,cn1,1,2
%>
<Table border=0 cellspacing=0 cellpadding=1 bordecolor=#000000>
<TR>
<TD width="120" align="Left" class="normalw"><b>FACTURA</b></td>
<TD width="70" align="Left" class="normalw"><b>CLIENTE</b></td>
<TD width="70" align="Left" class="normalw"><b>FECHA</b></td>
<TD width="70" align="Left" class="normalw"><b>NOMBRE CLIENTE</b></td>
<TD width="50" align="Left" class="normalw"><b>COSTO</b></td>
<TD width="100" align="right" class="normalw"><b>SUBTOTAL</b></td>
<TD width="100" align="Center" class="normalw"><b>IVA</b></td>
<TD width="100" align="Center" class="normalw"><b>TOTAL</b></td>
<TD width="100" align="Center" class="normalw"><b>STATUS</b></td>
<TD width="100" align="Center" class="normalw"><b>ANTICIPO</b></td>
</tr>
<%
do until rs11.eof
Dim Color, Colorfila
if colorfila = 0 then
Color= "#d8d8d8"
Colorfila = 1
else
Color= "#ffffff"
Colorfila = 0
end if
%>
<TR>
<TD width="120" align="Left" class="normal" bgcolor=white><%= rs11("NUMNCR")%></td>
<TD width="120" align="Left" class="normal" bgcolor=white><%Response.Write rs11("FECNCR")%></td>
<TD width="120" align="Left" class="normal" bgcolor=white><%Response.Write rs11("NUMNCR")%></td>
<TD width="120" align="Left" class="normal" bgcolor=white><%Response.Write rs11("COICLI")%></td>
<TD width="120" align="Left" class="normal" bgcolor=white><%Response.Write rs11("NOMCLI")%></td>
<TD width="120" align="Left" class="normal" bgcolor=white><%Response.Write rs11("NOTNCR")%></td>
<TD width="120" align="Left" class="normal" bgcolor=white><%Response.Write rs11("UCOSTO")%></td>
<TD width="120" align="Left" class="normal" bgcolor=white><%Response.Write rs11("ANTNCR")%></td>
<TD width="120" align="Left" class="normal" bgcolor=white><%Response.Write rs11("SUBNCR")%></td>
<TD width="120" align="Left" class="normal" bgcolor=white><%Response.Write rs11("IVTNCR")%></td>
<TD width="120" align="Left" class="normal" bgcolor=white><%Response.Write rs11("IMPNCR")%></td>
</Tr>
<%
RS11.MOVENEXT
LOOP
%>


</table>
<%
RS11.CLOSE
%>

<%  
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;

namespace MimPortal.Pages.Clientes
{
    public class ClifacxmespeModel : PageModel
    {
        private readonly MimDbContext _context;

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

        [BindProperty(SupportsGet = true)]
        public int Anio { get; set; } = DateTime.Now.Year;

        [BindProperty(SupportsGet = true)]
        public int Mes { get; set; } = DateTime.Now.Month;

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

        public List<FacturaItem> Facturas { get; set; } = new();

        public async Task OnGetAsync()
        {
            var sucursal = HttpContext.Session.GetString("Sucursal") ?? "MERIDA";
            var query = from e in _context.FFACENC
                        where e.Sucursal == sucursal
                        join c in _context.CLIENTES on e.CLIFFACE equals c.CLACLI
                        where e.FECFFACE != null && e.FECFFACE.Value.Year == Anio && e.FECFFACE.Value.Month == Mes
                        select new { e, c };

            if (!string.IsNullOrEmpty(Cliente))
            {
                query = query.Where(x => x.e.CLIFFACE == Cliente);
            }

            Facturas = await query
                .Select(x => new FacturaItem
                {
                    NumFactura = x.e.NUMFFACE ?? 0,
                    Cliente = x.e.CLIFFACE ?? "",
                    NombreCliente = x.c.NOMCLI ?? "",
                    Fecha = x.e.FECFFACE ?? DateTime.MinValue,
                    Subtotal = (x.e.SUBFFACE ?? 0) * (x.e.TCAFFACE ?? 1),
                    Iva = (x.e.IVTFFACE ?? 0) * (x.e.TCAFFACE ?? 1),
                    Total = (x.e.TOTFFACE ?? 0) * (x.e.TCAFFACE ?? 1),
                    Status = x.e.STAFFACE ?? ""
                })
                .OrderBy(f => f.Fecha)
                .ToListAsync();
        }

        public class FacturaItem
        {
            public int NumFactura { get; set; }
            public string Cliente { get; set; } = "";
            public string NombreCliente { get; set; } = "";
            public DateTime Fecha { get; set; }
            public decimal Subtotal { get; set; }
            public decimal Iva { get; set; }
            public decimal Total { get; set; }
            public string Status { get; set; } = "";
        }
    }
}

@page
@model MimPortal.Pages.Clientes.ClifacxmespeModel
@{
    ViewData["Title"] = "Facturas por Período";
}
<div id="page-content">

<div class="card">
    <div class="card-header">
        <h5><i class="bi bi-calendar-range"></i> Facturas por Período</h5>
    </div>
    <div class="card-body">
        <form method="get" class="row g-3 mb-4">
            <div class="col-md-2">
                <label class="form-label">Año</label>
                <input type="number" class="form-control" name="Anio" value="@Model.Anio" min="2000" max="2099" />
            </div>
            <div class="col-md-2">
                <label class="form-label">Mes</label>
                <select class="form-select" name="Mes">
                    @for (int i = 1; i <= 12; i++)
                    {
                        <option value="@i" selected="@(Model.Mes == i)">@System.Globalization.CultureInfo.CurrentCulture.DateTimeFormat.GetMonthName(i)</option>
                    }
                </select>
            </div>
            <div class="col-md-3">
                <label class="form-label">Cliente</label>
                <input type="text" class="form-control" name="Cliente" value="@Model.Cliente" placeholder="Clave cliente" />
            </div>
            <div class="col-md-2 d-flex align-items-end">
                <button type="submit" class="btn btn-primary"><i class="bi bi-search"></i> Filtrar</button>
            </div>
        </form>

        @if (Model.Facturas.Any())
        {
            <div class="table-responsive">
                <table class="table table-hover table-sm">
                    <thead class="table-dark">
                        <tr>
                            <th>Factura</th>
                            <th>Cliente</th>
                            <th>Nombre</th>
                            <th>Fecha</th>
                            <th class="text-end">Subtotal</th>
                            <th class="text-end">IVA</th>
                            <th class="text-end">Total</th>
                            <th>Status</th>
                        </tr>
                    </thead>
                    <tbody>
                        @foreach (var fac in Model.Facturas)
                        {
                            <tr>
                                <td>@fac.NumFactura</td>
                                <td>@fac.Cliente</td>
                                <td>@fac.NombreCliente</td>
                                <td>@fac.Fecha.ToString("dd/MM/yyyy")</td>
                                <td class="text-end">@fac.Subtotal.ToString("N2")</td>
                                <td class="text-end">@fac.Iva.ToString("N2")</td>
                                <td class="text-end">@fac.Total.ToString("N2")</td>
                                <td>@fac.Status</td>
                            </tr>
                        }
                    </tbody>
                    <tfoot class="table-secondary fw-bold">
                        <tr>
                            <td colspan="4">TOTALES</td>
                            <td class="text-end">@Model.Facturas.Sum(f => f.Subtotal).ToString("N2")</td>
                            <td class="text-end">@Model.Facturas.Sum(f => f.Iva).ToString("N2")</td>
                            <td class="text-end">@Model.Facturas.Sum(f => f.Total).ToString("N2")</td>
                            <td></td>
                        </tr>
                    </tfoot>
                </table>
            </div>
        }
        else
        {
            <div class="alert alert-info">No hay facturas en el período seleccionado.</div>
        }
    </div>
</div>
</div>

MATERIALES INDUSTRIALES DE MEXICO

clifacxmespe.asp

Archivo ASP

Página Razor

Módulo

Líneas de Código