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

If Session("ID")=0 then
	Response.Redirect("http://www.grupo-mim.com")
	Response.End
Else
%>


<%Session.LCID=2058%> 

<!--#include file="fpdf.asp"-->
<%
Dim Empresa, Ndevo
Dim Cn1,rs2, Sql2, rs3, sql3, rs4, sql4, rs5, sql5, RS6, SQL6

Empresa = Cstr(Request.querystring("Empresa"))
Ndevo = Request("ndevo")

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 Clacli, Nomcli, CALcli, colcli, pobcli, edocli, cpcli, rfccli, vencli, " &_
"antffacd, nfaffacd, confface, numfdeve, fecfdeve, Monfdeve, desdiv, abrdiv, " &_
"Subfdeve, ivtfdeve, imrfdeve, totfdeve " &_
"from clientes, ffacdet, ffacenc,fdevenc, fdevdet, Monedas " &_
"where numfdeve = "& Ndevo &" and numfdeve = numfdevd and clifdeve = clacli " &_
"and ranfdevd = regffacd and numfface = nfaffacd and cladiv = monfdeve " &_
"group by Clacli, Nomcli, CALcli, colcli, pobcli, edocli, cpcli, rfccli, vencli, "&_ 
"antffacd, nfaffacd, confface, numfdeve, fecfdeve, Monfdeve, desdiv, abrdiv, "&_
"Subfdeve, ivtfdeve, imrfdeve, totfdeve ;"
rs2.open sql2,cn1,1,2

set rs3 = server.CreateObject("ADODB.Recordset")
SQL3="select secfdevd, codfdevd, canfdevd, unifdevd, nominv, udminv " &_
"from fdevdet, inventarios where numfdevd = "& Ndevo &" and codfdevd = cveinv;"
rs3.open sql3,cn1,1,2

%>



<% 

E1= Empresa
Nomdoc = ffacnum

Fe1=rs2("Clacli")
Fe2=rs2("Nomcli")
Fe3=rs2("CALcli")
Fe4=rs2("colcli")
Fe5=rs2("Pobcli")
Fe6=rs2("Edocli")
Fe7=rs2("Cpcli")
Fe8=rs2("rfccli")
Fe9=Cstr(rs2("numfdeve"))
Fe10=Cstr(rs2("Fecfdeve"))
Fe11=cstr(rs2("vencli"))

Fe13=rs2("desdiv")
Fe16=rs2("ABRdiv")
Fe17=Formatnumber(rs2("Totfdeve"))
Fe19=Formatnumber(rs2("ivtfdeve"),2)
Fe18=Formatnumber(rs2("Subfdeve"))
Fe22=rs2("Numfdeve")

neto=fe17

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


Do while Not(rs3.EOF)

Fd1=Formatnumber(rs3("secfdevd"),0)
Fd2=rs3("codfdevd")
Fd3=Formatnumber(rs3("canfdevd"))
Fd4=rs3("UDMINV")
Fd5=rs3("nominv")
fd6=FormatNumber(rs3("unifdevd"))
fd7=FormatNumber(Fd6 * Fd3)

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 100,4,Fd5,0,0,"L",0
pdf.Cell 20,4,"$" & Fd6,0,0,"R",0 
pdf.Cell 8,4," ",0,0,"L",0
pdf.Cell 26,4,"$" & 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(8)



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 FacdevModel : PageModel
    {
        private readonly MimDbContext _context;
        public FacdevModel(MimDbContext context) { _context = context; }

        [BindProperty(SupportsGet = true)] public string? Factura { get; set; }
        [BindProperty(SupportsGet = true)] public string? Cliente { get; set; }
        public List<FFACENC> Facturas { get; set; } = new();

        public async Task OnGetAsync()
        {
            var sucursal = HttpContext.Session.GetString("Sucursal") ?? "MERIDA";
            if (string.IsNullOrEmpty(Factura) && string.IsNullOrEmpty(Cliente)) return;
            var query = _context.FFACENC.Where(x => x.Sucursal == sucursal).Where(f => f.STAFFACE == "F");
            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()));
            Facturas = await query.OrderByDescending(f => f.FECFFACE).Take(100).ToListAsync();
        }
    }
}

@page
@model MimPortal.Pages.Facturas.FacdevModel
@{
    ViewData["Title"] = "Devoluciones de Facturas";
}
<div id="page-content">
<div class="card">
    <div class="card-header"><h5><i class="bi bi-arrow-return-left"></i> Devoluciones 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 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="table-responsive">
                <table class="table table-hover table-sm">
                    <thead class="table-dark">
                        <tr><th>Factura</th><th>Cliente</th><th>Fecha</th><th>Total</th><th>Status</th><th>Acciones</th></tr>
                    </thead>
                    <tbody>
                        @foreach (var f in Model.Facturas)
                        {
                            <tr>
                                <td>@f.NUMFFACE</td>
                                <td>@f.CLIFFACE</td>
                                <td>@f.FECFFACE?.ToString("dd/MM/yyyy")</td>
                                <td class="text-end">@f.TOTFFACE?.ToString("N2")</td>
                                <td>@f.STAFFACE</td>
                                <td><a href="/Facturas/Facdevdet?id=@f.Id" class="btn btn-sm btn-warning"><i class="bi bi-arrow-return-left"></i></a></td>
                            </tr>
                        }
                    </tbody>
                </table>
            </div>
        }
    </div>
</div>
</div>