<%@language=vbscript%>
<%
Response.Buffer=True

If Session("ID")=0 then
	Response.Redirect("http://www.grupo-mim.com")
	Response.End
Else
%>
<!--#include file="fpdf/numeros.asp"-->

<%Session.LCID=2058%> 

<!--#include file="fpdf.asp"-->

<%
Dim Empresa, ffacnum
Dim Cn1,rs2, Sql2, rs3, sql3, rs4, sql4, rs5, sql5, RS6, SQL6

Empresa = Cstr(Request.querystring("Empresa"))
ffacnum = request.querystring("ffacnum")

Set Cn1 = Server.CreateObject( "ADODB.Connection" )
Cn1.Open "DRIVER={SQL Server};SERVER=172.17.0.5;UID=ADMIMSIS;PWD=ST2108GP;Database=" & Empresa &""

set rs2 = server.CreateObject("ADODB.Recordset")
SQL2="select * from ffacenc, clientes, monedas, vendedores, ffacdet, users " &_
"where numfface = "& ffacnum &" and clacli = clifface and cladiv = monfface " &_
"and vencli = cvevend and numfface = nfaffacd and usufface = clausr;"
rs2.open sql2,cn1,1,2

set rs3 = server.CreateObject("ADODB.Recordset")
SQL3="select * from ffacadd " &_ 
"where nfaffacd = "& ffacnum &" order by secffacd asc;"
rs3.open sql3,cn1,1,2

E1= Empresa
Nomdoc = ffacnum

Fe1=rs2("Clifface")
Fe2=rs2("Nomcli")
Fe3=rs2("calcli")
Fe4=rs2("colcli")
Fe5=rs2("Pobcli")
Fe6=rs2("Edocli")
Fe7=rs2("Cpcli")
Fe8=rs2("rfccli")
Fe9=Cstr(rs2("numfface"))
Fe10=Cstr(rs2("Fecfface"))
Fe11=cstr(rs2("vencli"))
Fe12=rs2("obsfface")
If rs2("Stafface") = "C" Then
Fe12 = " FACTURA CANCELADA POR PROCESO "
Else
fe12 = fe12
End If
Fe24=rs2("revcli")

Fe13=rs2("desdiv")
Fe14=FormatNUMBER(rs2("tcafface"),4)
Fe16=rs2("ABRdiv")
Fe17=Formatnumber(rs2("Totfface"))
Fe19=Formatnumber(rs2("ivtfface"),2)
Fe18=Formatnumber(rs2("SUBfface"))
FEAN=Formatnumber(rs2("antifface"))
Fe20=rs2("LABFface")
Fe21=rs2("EMBFFACE")
Fe22=rs2("numfFACE")
Fe23=rs2("EMBFFACE")

neto=fe17 - fean
Neto = Formatnumber(Neto,2)

Set pdf=CreateJsObject("FPDF")
pdf.CreatePDF "P", "mm", "Letter"
pdf.SetPath("fpdf/")
pdf.SetFont "Arial","",7
PDF.OPEN()
pdf.LoadModels("Faccon")
pdf.SetLeftMargin(3.0)
pdf.AddPage()
pdf.SetFont "Arial","",7.5
'pdf.SetFillColor 197,229,213


Do while Not(rs3.EOF)

Fd1=Formatnumber(rs3("secffacd"),0)
Fd2=rs3("codffacd")
Fd3=Formatnumber(rs3("cantffacd"))
Fd4=rs3("UDMINV")
Fd5=rs3("nominv")
fd6=FormatNumber(rs3("uniffacd"))
fd7=FormatNumber(Fd6 * Fd3)
Fd8=rs3("obsffacd")
Fd9=rs3("monffacd")
Fd10=rs3("abrdiv")

if fd9 = 1 then
msg = fd9
msg = "" 
else
msg = "U.S."
end if

pdf.Cell 8,4,Fd1,0,0,"L",0
pdf.Cell 20,4,Fd2,0,0,"L",0 
pdf.Cell 16,4,Fd3,0,0,"R",0 
pdf.Cell 11,4,Fd4,0,0,"L",0 
pdf.Cell 90,4,Fd5,0,0,"L",0
pdf.Cell 20,4,"$" & Fd6,0,0,"R",0 
pdf.Cell 8,4,msg,0,0,"L",0
pdf.Cell 26,4,"$" & Formatnumber(Fd7),0,0,"R",0
pdf.Ln(4)

rs3.Movenext
loop

pdf.Cell 174,4,"Subtotal:",0,0,"R",0
pdf.Cell 35,4,"$" & FE18,0,0,"R",0
pdf.Ln(4)

pdf.Cell 174,4,"Iva:",0,0,"R",0
pdf.Cell 35,4,"$" & FE19,0,0,"R",0
pdf.Ln(4)

pdf.Cell 174,4,"Total:",0,0,"R",0
pdf.Cell 35,4,"$" & Fe17,0,0,"R",0
pdf.Ln(10)

pdf.Cell 174,4,"Anticipo:",0,0,"R",0
pdf.Cell 35,4,"$" & Fean,0,0,"R",0
pdf.Ln(10)

pdf.Cell 174,4,"Neto a Pagar:",0,0,"R",0
pdf.Cell 35,4,"$" & neto,0,0,"R",0
pdf.Ln(4)

if fd9 = 1 then
nota = fd9
nota = " "
nota2 = " "
nota3 = " "
else
nota = "CONSULTA DE FACTURA"
nota2 = "DOCUMENTO SIN VALOR FISCAL"
end if

pdf.Cell 150,4,nota,0,0,"C",0
pdf.Ln(4)
pdf.Cell 150,4,nota2,0,0,"C",0
pdf.Ln(4)

Call CONVERTIR(neto)
Fd40=Session("valor")
pdf.Ln(4)

pdf.output()
End If
%> 

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

namespace MimPortal.Pages.Facturas
{
    public class FacconModel : PageModel
    {
        private readonly MimDbContext _context;
        private const int PageSize = 25;
        public FacconModel(MimDbContext context) { _context = context; }

        [BindProperty(SupportsGet = true)] public string? Factura { get; set; }
        [BindProperty(SupportsGet = true)] public string? Cliente { get; set; }
        [BindProperty(SupportsGet = true)] public DateTime? FechaDesde { get; set; }
        [BindProperty(SupportsGet = true)] public DateTime? FechaHasta { get; set; }
        [BindProperty(SupportsGet = true)] public int CurrentPage { get; set; } = 1;
        public List<FFACENC> Facturas { 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.FFACENC.Where(x => x.Sucursal == sucursal).AsQueryable();
            if (!string.IsNullOrEmpty(Factura)) query = query.Where(f => f.NUMFFACE.ToString().Contains(Factura));
            if (!string.IsNullOrEmpty(Cliente)) query = query.Where(f => f.CLIFFACE != null && f.CLIFFACE.Contains(Cliente.ToUpper()));
            if (FechaDesde.HasValue) query = query.Where(f => f.FECFFACE >= FechaDesde);
            if (FechaHasta.HasValue) query = query.Where(f => f.FECFFACE <= FechaHasta);
            
            TotalRecords = await query.CountAsync();
            TotalPages = (int)Math.Ceiling(TotalRecords / (double)PageSize);
            Facturas = await query.OrderByDescending(f => f.FECFFACE).Skip((CurrentPage - 1) * PageSize).Take(PageSize).ToListAsync();
        }
    }
}

@page
@model MimPortal.Pages.Facturas.FacconModel
@{
    ViewData["Title"] = "Consulta de Facturas";
}
<div id="page-content">
<div class="card">
    <div class="card-header"><h5><i class="bi bi-search"></i> Consulta de Facturas</h5></div>
    <div class="card-body">
        <form method="get" class="row g-3 mb-4">
            <div class="col-md-2">
                <label class="form-label">Factura</label>
                <input type="text" class="form-control" name="Factura" value="@Model.Factura" />
            </div>
            <div class="col-md-3">
                <label class="form-label">Cliente</label>
                <input type="text" class="form-control" name="Cliente" value="@Model.Cliente" />
            </div>
            <div class="col-md-2">
                <label class="form-label">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">Hasta</label>
                <input type="date" class="form-control" name="FechaHasta" value="@Model.FechaHasta?.ToString("yyyy-MM-dd")" />
            </div>
            <div class="col-md-2 d-flex align-items-end">
                <button type="submit" class="btn btn-primary"><i class="bi bi-search"></i> Buscar</button>
            </div>
        </form>
        @if (Model.Facturas.Any())
        {
            <div class="mb-2">
                <strong>Total: @Model.Facturas.Sum(f => f.TOTFFACE ?? 0).ToString("C")</strong>
                <span class="badge bg-info ms-2">@Model.TotalRecords registros</span>
            </div>
            <div class="table-responsive">
                <table class="table table-hover table-sm">
                    <thead class="table-dark">
                        <tr><th>Factura</th><th>Cliente</th><th>Fecha</th><th>Subtotal</th><th>IVA</th><th>Total</th><th>Status</th></tr>
                    </thead>
                    <tbody>
                        @foreach (var f in Model.Facturas)
                        {
                            <tr>
                                <td><a href="/Facturas/Ffacdet?id=@f.Id">@f.NUMFFACE</a></td>
                                <td>@f.CLIFFACE</td>
                                <td>@f.FECFFACE?.ToString("dd/MM/yyyy")</td>
                                <td class="text-end">@f.SUBFFACE?.ToString("N2")</td>
                                <td class="text-end">@f.IVTFFACE?.ToString("N2")</td>
                                <td class="text-end">@f.TOTFFACE?.ToString("N2")</td>
                                <td>@f.STAFFACE</td>
                            </tr>
                        }
                    </tbody>
                </table>
            </div>
        }
    </div>
</div>
</div>