<%@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 Cn1, Rs1, Sql1
Dim Empresa
Dim Cliente, Nombre, Status, TipoRep

TipoRep = request("TipoRep")
Empresa = request("Empresa")

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

Set Rs1 = server.CreateObject("ADODB.Recordset")
Sql1="Select * from Empresa"
Rs1.Open Sql1,Cn1,1,2

NombreE = Rs1("Nombre")

If TipoRep = 1 Then 

Set Rs2 = server.CreateObject("ADODB.Recordset")
Sql2="Select Cliente, Nomcli, Stacli from Clientess, Clientes where Clacli = cliente and stacli = 'S' ORDER BY NOMCLI;"
Rs2.Open Sql2,Cn1,1,2

Else If TipoRep = 2 Then 

Set Rs2 = server.CreateObject("ADODB.Recordset")
Sql2="Select Cliente, Nomcli, Stacli from Clientess, Clientes where Clacli = cliente and stacli = 'A' ORDER BY NOMCLI;"
Rs2.Open Sql2,Cn1,1,2

End If
End If

Set pdf=CreateJsObject("FPDF")
pdf.CreatePDF "P", "mm", "Letter"
pdf.SetPath("fpdf/")
pdf.SetFont "Arial","",7
pdf.SetFillColor 216,216,216
pdf.setAutoPagebreak true, 15
pdf.Open()
pdf.LoadModels("Clientes")
pdf.AddPage()
pdf.SetFont "Arial","",7

Do While Not(Rs2.EOF)

Cliente = Rs2("Cliente")
Nombre = Rs2("Nomcli")
Status = Rs2("Stacli")

pdf.Cell 20,4,Cliente,0,0,"L",Colorfila 
pdf.Cell 120,4,Nombre,0,0,"L",Colorfila 
pdf.Cell 20,4,Status,0,0,"C",Colorfila 
pdf.Cell 38,4,"",0,0,"C",Colorfila 
pdf.Ln(4)

Rs2.Movenext
Loop
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.Clientes
{
    public class ClientesuspModel : PageModel
    {
        private readonly MimDbContext _context;

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

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

        public List<CLIENTES> Clientes { get; set; } = new();

        public async Task OnGetAsync()
        {
            var sucursal = HttpContext.Session.GetString("Sucursal") ?? "MERIDA";
            var status = TipoRep == 1 ? "S" : "A";
            Clientes = await _context.CLIENTES
                .Where(c => c.STACLI == status)
                .OrderBy(c => c.NOMCLI)
                .ToListAsync();
        }
    }
}

@page
@model MimPortal.Pages.Clientes.ClientesuspModel
@{
    ViewData["Title"] = "Clientes Suspendidos";
}
<div id="page-content">

<div class="card">
    <div class="card-header d-flex justify-content-between align-items-center">
        <h5><i class="bi bi-person-x"></i> Clientes Suspendidos / Activos</h5>
    </div>
    <div class="card-body">
        <form method="get" class="row g-3 mb-4">
            <div class="col-md-3">
                <label class="form-label">Tipo de Reporte</label>
                <select class="form-select" name="TipoRep">
                    <option value="1" selected="@(Model.TipoRep == 1)">Suspendidos</option>
                    <option value="2" selected="@(Model.TipoRep == 2)">Activos</option>
                </select>
            </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>

        <div class="mb-3">
            <span class="badge bg-secondary">@Model.Clientes.Count registros</span>
        </div>

        <div class="table-responsive">
            <table class="table table-hover table-sm">
                <thead class="table-dark">
                    <tr>
                        <th>Cliente</th>
                        <th>Nombre</th>
                        <th>Status</th>
                    </tr>
                </thead>
                <tbody>
                    @foreach (var cli in Model.Clientes)
                    {
                        <tr>
                            <td>@cli.CLACLI</td>
                            <td>@cli.NOMCLI</td>
                            <td>
                                @if (cli.STACLI == "A")
                                {
                                    <span class="badge bg-success">Activo</span>
                                }
                                else if (cli.STACLI == "S")
                                {
                                    <span class="badge bg-danger">Suspendido</span>
                                }
                                else
                                {
                                    <span class="badge bg-secondary">@cli.STACLI</span>
                                }
                            </td>
                        </tr>
                    }
                </tbody>
            </table>
        </div>
    </div>
</div>
</div>