Detalle: lprecios.asp

lprecios.asp

Ir a la Página Volver a la Lista

Archivo ASP

lprecios.asp

Página Razor

Inventarios/Lprecios.cshtml

Módulo

General

Líneas de Código

215

Características

En Menú:	No
Formularios:	2 formulario(s)
Consultas SQL:	Ninguna
Complejidad:	medium
Bases de Datos:	Session DB

Tablas Utilizadas (0)

No se detectaron tablas

Comentarios y Notas (0)

No hay comentarios aún

Enlaces Salientes (4) Páginas a las que esta página enlaza

Archivo ASP	Tipo	Módulo	Estado	Página Razor
`lpreciosup.asp`	form_action	General	Pendiente	-
`barra.asp`	include	General	Pendiente	-
`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

<%@Language="VBScript"%>

<%  
Option Explicit
Dim Code, Desc, Linea, Sublinea
Code = request("Code")
Desc = request("Desc")
Linea = request("Linea")
subLinea = request("subLinea")

%>
<%
Session.LCID = 2058
%> 
<!--#include file="User.asp"-->
<!--#include file="general.asp"-->
<html>
<head>
<title>Grupo MIM</title>
<link rel=stylesheet href="vista.css">
<script type="text/javascript" src="Java/Precios.js"></script>
</head>
<BODY>
<!--#INCLUDE FILE="BARRA.asp"-->

<div class="normal" style="position:absolute; top:60px; left:10">
<Center>
<b>*****  LISTA DE PRECIOS *****</b>
<hr>
<%
Dim Rs11, Sql11, Rs12, Sql12, Rs13, Sql13, Rs14, Sql14
Dim Count, bg_color
Dim msa, msb
%>

<Form action="Lprecios.asp" name="BuscaMov" method='POST'>

<TABLE border=0 cellspacing=0 cellpadding=2 class="normal">

<Tr>
<TD align="Left" class="normalw" bgcolor="#006699">Codigo</td>
<TD align="Left" class="normalw" bgcolor="#006699">Descripcion</td>
<TD align="Left" class="normalw" bgcolor="#006699">Linea</td>
<TD align="Left" class="normalw" bgcolor="#006699">Sublinea</td>
</tr>

<tr>
<Td align="center" class="normal">
<input type="text" class="normalb" Value="<%= Code %>" name="Code" size="12" style="text-align:right;" onChange="javascript:this.value=this.value.toUpperCase();"></td>
<Td align="center" class="normal">
<input type="text" class="normalb" Value="<%= Desc %>" name="Desc" size="30" style="text-align:right;" onChange="javascript:this.value=this.value.toUpperCase();"></td>
<Td align="center" class="normal">
<%
Set Rs11 = server.CreateObject("ADODB.Recordset")
Sql11 ="select Clalin, Deslin from Lineas;"
Rs11.Open Sql11, Cn1
%>
<SELECT NAME="Linea" class="normalb">
<OPTION value="">Todas</option>

<%
Do While Not Rs11.EOF
%>
<OPTION value="<%= Rs11("Clalin") %>"><%= Rs11("Deslin") %></option>
<%
Rs11.MoveNext
Loop
%>
</Select>
</td>
<Td align="center" class="normal">
<%
Set Rs13 = server.CreateObject("ADODB.Recordset")
Sql13 ="select Clasli, Dessli from subLineas;"
Rs13.Open Sql13, Cn1
%>
<SELECT NAME="SubLinea" class="normalb">
<OPTION value="">Todas</option>

<%
Do While Not Rs13.EOF
%>
<OPTION value="<%= Rs13("Clasli") %>"><%= Rs13("Dessli") %></option>
<%
Rs13.MoveNext
Loop
%>
</Select>
</tr>

<Tr>
<td Colspan="4" Align="Center"> <input type="submit" value="Buscar" class="normalc"></td>
</tr>
</Table>
</form>


<%

If Linea = "" then
msa = ""
Else
msa = " And Lininv = "& Linea &" "
End If

If Code = "" and Desc = "" Then

Else
Set Rs12 = server.CreateObject("ADODB.Recordset")
Sql12 = "select Reginv, Cveinv, NomInv, Udminv, Mplinv, Ateb, Plainv, Preoinv " &_
"From Inventarios, Monedas where Cveinv like '%"& Code &"%' and Nominv like '%"& Desc &"%' " &_
"and Mplinv = cladiv " & msa & " order by cveinv;"
Rs12.Open Sql12,cn1,1,2

If Rs12.Eof then

else
%>

<FORM action="Lpreciosup.asp" name="frm" method='post'>
<input type="Hidden" class="normalb" Value="<%= code %>" name="Code" size="12" style="text-align:right;" onChange="javascript:this.value=this.value.toUpperCase();">
<input type="Hidden" class="normalb" Value="<%= desc %>" name="Desc" size="12" style="text-align:right;" onChange="javascript:this.value=this.value.toUpperCase();">
<table border="0" cellspacing="0" cellpadding="2">
<tr bgcolor="#336699">
<td align="center">
<input type="checkbox"  name="chkMain" onClick="JavaScript:chk_all(document.frm,<%=rs12.recordcount%>)">
</td>
<td class="Normalw">Codigo</td>
<td class="Normalw">Descripcion</td>
<td class="Normalw">UDM</td>
<td class="Normalw">Moneda</td>
<td class="Normalw">Prec. List.</td>
<td class="Normalw">Prec. Rep.</td>

</tr>
<%
count = 0
For i = 0 to Rs12.RecordCount - 1
if (count Mod 2= 0) then 
bg_color="#ffffff" 
Else 
bg_color="#EFF5F3" 
End if

%>

<tr bgcolor="<%=bg_color%>" >
<td align="center" >
<input type="checkbox"  name="chk" value="<%=i%>" onClick="JavaScript:en_dis(document.frm,<%=Rs12.recordcount%>,'txt_<%=i%>')">
</td>
<td align="left" Class="Normal"><%=  Rs12("Cveinv") %></td>
<td align="left" Class="Normal"><%=  Rs12("Nominv") %></td>
<td align="left" Class="Normal"><%=  Rs12("UDMinv") %></td>
<td align="left" Class="Normal">
<%
Set Rs14 = server.CreateObject("ADODB.Recordset")
Sql14 ="select Cladiv, Ateb from Monedas;"
Rs14.Open Sql14, Cn1
%>
<SELECT NAME="Mon_<%=i%>" class="normalb">
<OPTION value="<%= Rs12("Mplinv") %>"><%= Rs12("Ateb") %></option>

<%
Do While Not Rs14.EOF
%>
<OPTION value="<%= Rs14("Cladiv") %>"><%= Rs14("Ateb") %></option>
<%
Rs14.MoveNext
Loop
%>
</Select>

</td>
<td align="left" Class="Normal">
<input type="text" class="normalb" name="Pla_<%=i%>" size="7" Value="<%= Rs12("Plainv") %>" style="Text-align:Right">
</td>
<td align="left" Class="Normal">
<input type="text" class="normalb" name="Plb_<%=i%>" size="7" Value="<%= Rs12("Preoinv") %>" style="Text-align:Right">
</td>
<td>
<input type="Hidden" name="txt_<%=i%>" value="<% = Rs12("reginv")%>" size="7" disabled style="border:1px; text-align:Right; solid:#000000;background:<%=bg_color%>" class="n_verdana_simple">
</td>

</tr>
<%
Rs12.Movenext
count=count+1
Next
%>

<tr>
<td colspan="7" align=center>
<input value="Aceptar" type="button" class="normalc" onclick="frm_submit(document.frm,<%=Rs12.recordcount%>)" id=bt name=bt>
</td>
</tr>

</table>
<br>
</form>

<%
End If
End If
%>
</div>
</body>
</html>
<%  
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;
using MimPortal.Data.Entities;

namespace MimPortal.Pages.Inventarios
{
    public class LpreciosModel : PageModel
    {
        private readonly MimDbContext _context;
        private const int PageSize = 50;

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

        [BindProperty(SupportsGet = true)] public string? Code { get; set; }
        [BindProperty(SupportsGet = true)] public string? Desc { get; set; }
        [BindProperty(SupportsGet = true)] public int? Linea { get; set; }
        [BindProperty(SupportsGet = true)] public int? Sublinea { get; set; }
        [BindProperty(SupportsGet = true)] public int PageNum { get; set; } = 1;

        public List<LINEAS> Lineas { get; set; } = new();
        public List<SUBLINEAS> Sublineas { get; set; } = new();
        public List<ProductoPrecioViewModel> Productos { get; set; } = new();
        public int TotalCount { get; set; }
        public int TotalPages { get; set; }

        public async Task OnGetAsync()
        {
            var sucursal = HttpContext.Session.GetString("Sucursal") ?? "MERIDA";
            Lineas = await _context.LINEAS.Where(x => x.Sucursal == sucursal).OrderBy(l => l.DesLin).ToListAsync();
            Sublineas = await _context.SUBLINEAS.Where(x => x.Sucursal == sucursal).OrderBy(s => s.DesSli).ToListAsync();

            if (string.IsNullOrEmpty(Code) && string.IsNullOrEmpty(Desc)) return;

            var query = from i in _context.INVENTARIOS
                        where i.Sucursal == sucursal
                        join m in _context.MONEDAS on i.MPLINV equals m.ClaDiv into monJoin
                        from mon in monJoin.DefaultIfEmpty()
                        select new ProductoPrecioViewModel
                        {
                            Id = i.Id,
                            CVEINV = i.CVEINV,
                            NOMINV = i.NOMINV,
                            UDMINV = i.UDMINV,
                            MPLINV = i.MPLINV,
                            MonedaNombre = mon.Sigdiv ?? "MXN",
                            PLAINV = i.PLAINV,
                            PREOINV = i.PREOINV,
                            LININV = i.LININV
                        };

            if (!string.IsNullOrEmpty(Code)) query = query.Where(p => p.CVEINV != null && p.CVEINV.Contains(Code));
            if (!string.IsNullOrEmpty(Desc)) query = query.Where(p => p.NOMINV != null && p.NOMINV.Contains(Desc));
            if (Linea.HasValue) query = query.Where(p => p.LININV == Linea.Value);

            query = query.OrderBy(p => p.CVEINV);
            TotalCount = await query.CountAsync();
            TotalPages = (int)Math.Ceiling(TotalCount / (double)PageSize);
            Productos = await query.Skip((PageNum - 1) * PageSize).Take(PageSize).ToListAsync();
        }
    }

    public class ProductoPrecioViewModel
    {
        public Guid Id { get; set; }
        public string? CVEINV { get; set; }
        public string? NOMINV { get; set; }
        public string? UDMINV { get; set; }
        public int? MPLINV { get; set; }
        public string? MonedaNombre { get; set; }
        public decimal? PLAINV { get; set; }
        public decimal? PREOINV { get; set; }
        public int? LININV { get; set; }
    }
}

@page
@model MimPortal.Pages.Inventarios.LpreciosModel
@{
    ViewData["Title"] = "Lista de Precios";
}
<div id="page-content">
    <div class="d-flex justify-content-between align-items-center mb-4">
        <h4><i class="bi bi-currency-dollar"></i> Lista de Precios</h4>
        <a href="/Inventarios" class="btn btn-outline-secondary"><i class="bi bi-arrow-left"></i> Volver</a>
    </div>
    <div class="card mb-4">
        <div class="card-body">
            <form method="get" class="row g-3">
                <div class="col-md-2">
                    <label class="form-label">Código</label>
                    <input type="text" name="Code" class="form-control" value="@Model.Code">
                </div>
                <div class="col-md-4">
                    <label class="form-label">Descripción</label>
                    <input type="text" name="Desc" class="form-control" value="@Model.Desc">
                </div>
                <div class="col-md-2">
                    <label class="form-label">Línea</label>
                    <select name="Linea" class="form-select" asp-items="@(new SelectList(Model.Lineas, "ClaLin", "DesLin"))">
                        <option value="">-- Todas --</option>
                    </select>
                </div>
                <div class="col-md-2">
                    <label class="form-label">Sub-Línea</label>
                    <select name="Sublinea" class="form-select" asp-items="@(new SelectList(Model.Sublineas, "ClaSli", "DesSli"))">
                        <option value="">-- Todas --</option>
                    </select>
                </div>
                <div class="col-md-2 d-flex align-items-end">
                    <button type="submit" class="btn btn-primary w-100"><i class="bi bi-search"></i> Buscar</button>
                </div>
            </form>
        </div>
    </div>
    @if (Model.Productos.Any())
    {
        <div class="card">
            <div class="card-header"><i class="bi bi-list"></i> Productos (@Model.TotalCount registros)</div>
            <div class="card-body p-0">
                <div class="table-responsive">
                    <table class="table table-hover table-striped mb-0">
                        <thead class="table-dark"><tr><th>Código</th><th>Descripción</th><th>UDM</th><th>Moneda</th><th class="text-end">Precio Lista</th><th class="text-end">Precio Rep.</th></tr></thead>
                        <tbody>
                            @foreach (var prod in Model.Productos)
                            {
                                <tr><td><strong>@prod.CVEINV</strong></td><td>@prod.NOMINV</td><td>@prod.UDMINV</td><td>@prod.MonedaNombre</td><td class="text-end">@prod.PLAINV?.ToString("N2")</td><td class="text-end">@prod.PREOINV?.ToString("N2")</td></tr>
                            }
                        </tbody>
                    </table>
                </div>
            </div>
        </div>
        <partial name="_Pagination" model="@(new MimPortal.Pages.Shared.PaginationModel { CurrentPage = Model.PageNum, TotalPages = Model.TotalPages, BaseUrl = $"/Inventarios/Lprecios?Code={Model.Code}&Desc={Model.Desc}&Linea={Model.Linea}&Sublinea={Model.Sublinea}" })" />
    }
    else if (!string.IsNullOrEmpty(Model.Code) || !string.IsNullOrEmpty(Model.Desc))
    {
        <div class="alert alert-warning"><i class="bi bi-exclamation-triangle"></i> No se encontraron productos.</div>
    }
    else
    {
        <div class="alert alert-info"><i class="bi bi-info-circle"></i> Ingrese criterios de búsqueda.</div>
    }
</div>

MATERIALES INDUSTRIALES DE MEXICO

lprecios.asp

Archivo ASP

Página Razor

Módulo

Líneas de Código