Detalle: proord.asp - MIM Portal

proord.asp

Ir a la Página Volver a la Lista

Archivo ASP

proord.asp

Página Razor

Proveedores/Proord.cshtml

Módulo

Proveedores

Líneas de Código

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 (5) Páginas a las que esta página enlaza

Archivo ASP	Tipo	Módulo	Estado	Página Razor
`barra.asp`	include	General	Pendiente	-
`empresa.asp`	include	General	Pendiente	-
`general.asp`	include	General	Pendiente	-
`mpro.asp`	include	General	Pendiente	-
`user.asp`	include	General	Pendiente	-

Enlaces Entrantes (1) Páginas que enlazan a esta página

Archivo ASP	Tipo	Módulo	Estado	Página Razor
`ordenmodi.asp`	form_action	Compras	Portada	Compras/Ordenmodi.cshtml

<%  
Option Explicit 
Session.LCID = 2058
%>
<!--#include file="User.asp"-->
<!--#include file="general.asp"-->
<html>
<head>
<title>Grupo MIM</title>
<link rel=stylesheet href="vista.css">

</head>
<BODY>
<!--#INCLUDE FILE="BARRA.asp"-->
<div class="normalw" style="position:absolute; top:1px">
<center>
<!--#include file="empresa.asp"--><br>
<hr>
</center>
</div>
<div class="normalw" style="position:absolute; top:1px;">
Bienvenido: <%= nombre %>. <br>
Hora Actual: <%= time %>
</div>
<div class="normalw" style="position:absolute; top:34px; left:1">
<!--#include file="mpro.asp"-->
</div>

<div class="normal" style="position:absolute; top:80px; left:15">
<hr>
<%
Dim Rs11, Sql11, Rs12, Sql12
Dim Provee, Norden, Miprovee
Dim LetrasP, LetrasM, LetrasF

Provee = Request("Provee")
Norden = Request("Norden")

LetrasP = Len(Provee)
LetrasM = 8
LetrasF = Cdbl(LetrasM) - Cdbl(LetrasP)

Miprovee = string(LetrasF,"0")+ Provee

Set Rs11 = server.CreateObject("ADODB.Recordset")
Sql11 = "Select Cveprv, Nomprv from Proveedores where Cveprv = '"& Provee&"' AND STAPRV = 'A';"
Rs11.open Sql11,cn1,1,2

If Rs11.Eof then
%>
Lo sentimos el Proveedor no existe, Favor de verificar
<%
Else
Set Rs12 = server.CreateObject("ADODB.Recordset")
Sql12 = "Update Cordenc set Proore = '"& Provee &"' where numore = "& Norden &";"
Cn1.Execute Sql12
response.Redirect("Ordenmodi.asp?numord="& Norden &"&Empresa="& Negocio &"")
End If
%>

<center>
</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.Proveedores
{
    public class ProordModel : PageModel
    {
        private readonly MimDbContext _context;
        public ProordModel(MimDbContext context) { _context = context; }

        [BindProperty(SupportsGet = true)] public string? Proveedor { get; set; }
        [BindProperty(SupportsGet = true)] public DateTime? FechaDesde { get; set; }
        [BindProperty(SupportsGet = true)] public DateTime? FechaHasta { get; set; }
        public List<CORDENC> Ordenes { get; set; } = new();

        public async Task OnGetAsync()
        {
            var sucursal = HttpContext.Session.GetString("Sucursal") ?? "MERIDA";
            if (string.IsNullOrEmpty(Proveedor)) return;
            var query = _context.CORDENC.Where(x => x.Sucursal == sucursal).Where(o => o.PROORE != null && o.PROORE.Contains(Proveedor.ToUpper()));
            if (FechaDesde.HasValue) query = query.Where(o => o.FECORE >= FechaDesde);
            if (FechaHasta.HasValue) query = query.Where(o => o.FECORE <= FechaHasta);
            Ordenes = await query.OrderByDescending(o => o.FECORE).Take(200).ToListAsync();
        }
    }
}

@page
@model MimPortal.Pages.Proveedores.ProordModel
@{
    ViewData["Title"] = "Órdenes por Proveedor";
}
<div id="page-content">
<div class="card">
    <div class="card-header"><h5><i class="bi bi-file-text"></i> Órdenes por Proveedor</h5></div>
    <div class="card-body">
        <form method="get" class="row g-3 mb-4">
            <div class="col-md-4">
                <label class="form-label">Proveedor</label>
                <input type="text" class="form-control" name="Proveedor" value="@Model.Proveedor" placeholder="Nombre o clave" />
            </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.Ordenes.Any())
        {
            <div class="mb-2"><strong>Total: @Model.Ordenes.Sum(o => o.TOTORE ?? 0).ToString("C")</strong></div>
            <div class="table-responsive">
                <table class="table table-hover table-sm">
                    <thead class="table-dark">
                        <tr><th>Orden</th><th>Proveedor</th><th>Fecha</th><th>Total</th><th>Status</th></tr>
                    </thead>
                    <tbody>
                        @foreach (var o in Model.Ordenes)
                        {
                            <tr>
                                <td><a href="/Compras/Ordendet?id=@o.Id">@o.NUMORE</a></td>
                                <td>@o.PROORE</td>
                                <td>@o.FECORE.ToString("dd/MM/yyyy")</td>
                                <td class="text-end">@o.TOTORE?.ToString("N2")</td>
                                <td>@o.STAORE</td>
                            </tr>
                        }
                    </tbody>
                </table>
            </div>
        }
    </div>
</div>
</div>

MATERIALES INDUSTRIALES DE MEXICO

proord.asp

Archivo ASP

Página Razor

Módulo

Líneas de Código