Detalle: kardex.asp - MIM Portal

kardex.asp

Ir a la Página Volver a la Lista

Archivo ASP

kardex.asp

Página Razor

Inventarios/Kardex.cshtml

Módulo

Inventarios

Líneas de Código

178

Características

En Menú:	Sí
Formularios:	1 formulario(s)
Consultas SQL:	5 consulta(s)
Complejidad:	low
Bases de Datos:	Session DB

Tablas Utilizadas (2)

Almacenes Empresa

Consultas SQL (5)

SQL Original (ASP)

Select Claalm, Desalm

SQL Original (ASP)

Select Claalm, Desalm from Almacenes Where Staalm = 'A' and Claalm = "& Almacen &";

Tablas: Almacenes

SQL Original (ASP)

Select Claalm, Desalm from Almacenes Where Staalm = 'A' and Claalm =

Tablas: Almacenes

SQL Original (ASP)

Select * from Empresa;

Tablas: Empresa

SQL Original (ASP)

Select Claalm, Desalm  From Almacenes  Where Staalm = 'A'  Order by Claalm Asc

Tablas: Almacenes

Comentarios y Notas (0)

No hay comentarios aún

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

Archivo ASP	Tipo	Módulo	Estado	Página Razor
`kardexl.asp`	include	General	Pendiente	-
`default.asp`	redirect	General	Pendiente	-

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

No hay enlaces entrantes

<%  
	Option Explicit
	Session.LCID = 2058
'*****  SI NO HA INICIADO SESION ***
If 	Session("Mybussiness") = "" then
	Response.redirect("default.asp")
Else

Session.Timeout = 1200

'******* EN CASO DE ERROR ****
		Err.Clear
		On Error Resume Next	
'*** REMPLAZA
Function Sanea(Texto)
Sanea = Replace(Texto, "'", "''")
End Function
		
%> 
<!DOCTYPE html>
<HTML>
<HEAD>
    <meta charset="ISO-8859-1" />
	<TITLE>SISTEMA MIM <%= Session("Mybussiness")  %> USUARIO: <%= Session("MyName")  %></TITLE>
		<link href="css/Modulo5.css" rel="stylesheet" />
		
		<SCRIPT LANGUAGE="JavaScript">
		<!-- Begin
		function NewWindow(mypage, myname, w, h, scroll) {
		var winl = (screen.width - w) / 2;
		var wint = (screen.height - h) / 2;
		winprops = 'height='+h+',width='+w+',top='+wint+',left='+winl+',scrollbars='+scroll+',resizable'
		win = window.open(mypage, myname, winprops)
		if (parseInt(navigator.appVersion) >= 4) { win.window.focus(); }
		}
		//  End -->
		</script>
		
</HEAD>

<BODY>
<%
'***** Variables a la base de datos ****
Dim Cn1
Dim Rs11, Rs12, Rs13, Rs14, Rs15, Rs16
Dim Sql11, Sql12, Sql13, Sql14, Sql15, Sql16

'***** Conexion a la Base de Datos
Set Cn1 = Server.CreateObject( "ADODB.Connection" )
Cn1.Open "DRIVER={SQL Server};SERVER=172.17.0.5;UID="& Session("MyName") &";PWD="& Session("MyPass") &";Database="& Session("Mybussiness") &""

'***** Conexion A la Tabla Empresa ****
Set Rs11 = Server.CreateObject("ADODB.Recordset")
Sql11="Select * from Empresa;"
Rs11.Open Sql11,Cn1,1,2

%>

	<Header>

			<%= Rs11("Nombre") %><br>
			<%= Rs11("Direccion") %>, <%= Rs11("colonia") %><br>
			<%= Rs11("Poblacion") %>

	</header>


	<SECTION>
	<CENTER>
	<Br><Br>
	
<%
Dim Codigo, Descripcion, FechaInicial, FechaFinal, Almacen

	Codigo = request("Codigo")
	Descripcion = request("Descripcion")
	FechaInicial = request("FechaInicial")
	FechaFinal = request("FechaFinal")
	Almacen = request("Almacen")
	
	If Isnull(Almacen) or Almacen = "" Then 
		Almacen = 1
	Else 
		Almacen = Almacen
	End If 
	
'***** Conexion A la Tabla Almacenes ****
Set Rs12 = Server.CreateObject("ADODB.Recordset")
Sql12="Select Claalm, Desalm from Almacenes Where Staalm = 'A' and Claalm = "& Almacen &";"
Rs12.Open Sql12,Cn1,1,2	
	
%>	
<B>***** KARDEX *****</B>
<BR>
		<Form action="Kardex.asp" method="post">	
		<Table Id="TablaOpc">

			<Tr>
				<Td>
				<input tabindex="1" type="text" placeholder="Codigo" Title="Codigo" name="Codigo" Size="15" id="TablaOpc" value="<%= Codigo %>" Size="7px" onChange="javascript:this.value=this.value.toUpperCase();">
				</Td>	
				<Td>
				<input tabindex="2" type="text" placeholder="Descripcion" Title="Descripcion" name="Descripcion" Size="25" id="TablaOpc" value="<%= Descripcion %>" Size="7px" onChange="javascript:this.value=this.value.toUpperCase();">
				</Td>	
				<Td>
				<label for="FechaInicial">Fecha Inicial</label><br>
				<input tabindex="2" type="text" placeholder="dd/mm/aaaa" Title="FechaInicial" name="FechaInicial" Size="10" id="TablaOpc" value="<%= date()-365 %>" Size="7px" onChange="javascript:this.value=this.value.toUpperCase();">
				</Td>	
				<Td>
				<label for="FechaInicial">Fecha Final</label><br>
				<input tabindex="2" type="text" placeholder="dd/mm/aaaa" Title="FechaFinal" name="FechaFinal" Size="10" id="TablaOpc" value="<%= date() %>" Size="7px" onChange="javascript:this.value=this.value.toUpperCase();">
				</Td>					
				<Td>
						<%
						'******  TABLA DE ALAMCENES ****
						Set Rs13 = Server.CreateObject("ADODB.Recordset")
						Sql13="Select Claalm, Desalm " &_
						"From Almacenes " &_
						"Where Staalm = 'A' " &_
						"Order by Claalm Asc;"
						Rs13.Open Sql13,Cn1,1,2
						
						If Rs13.EOF Then
						
						Else
						%>
						<SELECT NAME="Almacen" tabindex="4" id="TablaOpc">
						<option value=<%= Rs12("Claalm") %> Selected><%= Rs12("Desalm") %></Option>
						<%
						Do While Not Rs13.EOF
						%>
						<OPTION value="<%= Rs13("Claalm") %>"> <%= Rs13("Desalm") %> </Option>
						<%
						Rs13.Movenext
						Loop
						%>
						</Select>
						<%
						End If
						%>			
				
				</Td>	
				
				<Td>
				<button  tabindex="4" type="submit" name="Buscar" id="Buscar"/>Buscar</button>
				</td>
			</Tr>
		</Table>
		</form>	
		
		<!--#include file="Kardexl.asp"-->
		
	</SECTION>
	
<%
		If Err.Number <> 0 Then
%>


<br><br>
NÃºmero de Error: <%= Err.Number %><BR>
DescripciÃ³n:  <%= Err.Description %><BR>		
Origen: <%= Err.Source %><BR>
Linea: <%= Err.Line %><BR>
<br>

<%
		Else
'****** FIN DE LOS ERRORES ***
	End If
%>			
</BODY>
</HTML>
<%
'FIN DE SESION
End If
%>

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 KardexModel : PageModel
    {
        private readonly MimDbContext _context;
        private const int PageSize = 25;

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

        [BindProperty(SupportsGet = true)]
        public string? Codigo { get; set; }

        [BindProperty(SupportsGet = true)]
        public string? Descripcion { get; set; }

        [BindProperty(SupportsGet = true)]
        public short? Linea { get; set; }

        [BindProperty(SupportsGet = true)]
        public string? Status { get; set; }

        [BindProperty(SupportsGet = true)]
        public bool? ConExistencia { get; set; }

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

        public List<INVENTARIOS> Productos { get; set; } = new();
        public List<LineaViewModel> Lineas { get; set; } = new();
        public int TotalCount { get; set; }
        public int TotalPages { get; set; }
        public int CurrentPage => PageNum;

        public async Task OnGetAsync()
        {
            var sucursal = HttpContext.Session.GetString("Sucursal") ?? "MERIDA";
            // Get distinct lineas for dropdown
            Lineas = await _context.INVENTARIOS
                .Where(i => i.LININV != null)
                .Select(i => i.LININV)
                .Distinct()
                .OrderBy(l => l)
                .Select(l => new LineaViewModel { LININV = l ?? 0, Nombre = "" })
                .ToListAsync();

            // Build query
            var query = _context.INVENTARIOS.Where(x => x.Sucursal == sucursal).AsQueryable();

            if (!string.IsNullOrEmpty(Codigo))
            {
                query = query.Where(p => p.CVEINV != null && p.CVEINV.Contains(Codigo));
            }

            if (!string.IsNullOrEmpty(Descripcion))
            {
                query = query.Where(p => p.NOMINV != null && p.NOMINV.Contains(Descripcion));
            }

            if (Linea.HasValue)
            {
                query = query.Where(p => p.LININV == Linea.Value);
            }

            if (!string.IsNullOrEmpty(Status))
            {
                query = query.Where(p => p.STAINV == Status);
            }

            if (ConExistencia == true)
            {
                query = query.Where(p => p.EXIINV > 0);
            }
            else if (ConExistencia == false)
            {
                query = query.Where(p => p.EXIINV == 0 || p.EXIINV == null);
            }

            // Order by code
            query = query.OrderBy(p => p.CVEINV);

            // Get total count
            TotalCount = await query.CountAsync();
            TotalPages = (int)Math.Ceiling(TotalCount / (double)PageSize);

            // Paginate
            Productos = await query
                .Skip((PageNum - 1) * PageSize)
                .Take(PageSize)
                .ToListAsync();
        }
    }

    public class LineaViewModel
    {
        public short LININV { get; set; }
        public string Nombre { get; set; } = "";
    }
}

@page
@model MimPortal.Pages.Inventarios.KardexModel
@{
    ViewData["Title"] = "Kardex";
}
<div id="page-content">
<div class="card">
    <div class="card-header d-flex justify-content-between align-items-center">
        <h5><i class="bi bi-box-seam"></i> Kardex de Inventarios</h5>
    </div>
    <div class="card-body">
        <form method="get" class="row g-3 mb-4">
            <div class="col-md-2">
                <label class="form-label">Código</label>
                <input type="text" class="form-control" name="Codigo" value="@Model.Codigo" placeholder="Código..." />
            </div>
            <div class="col-md-3">
                <label class="form-label">Descripción</label>
                <input type="text" class="form-control" name="Descripcion" value="@Model.Descripcion" placeholder="Descripción..." />
            </div>
            <div class="col-md-2">
                <label class="form-label">Línea</label>
                <select class="form-select" name="Linea">
                    <option value="">Todas</option>
                    @foreach (var linea in Model.Lineas)
                    {
                        <option value="@linea.LININV" selected="@(Model.Linea == linea.LININV)">@linea.LININV - @linea.Nombre</option>
                    }
                </select>
            </div>
            <div class="col-md-2">
                <label class="form-label">Status</label>
                <select class="form-select" name="Status">
                    <option value="">Todos</option>
                    <option value="A" selected="@(Model.Status == "A")">Activo</option>
                    <option value="I" selected="@(Model.Status == "I")">Inactivo</option>
                </select>
            </div>
            <div class="col-md-2">
                <label class="form-label">Con Existencia</label>
                <select class="form-select" name="ConExistencia">
                    <option value="">Todos</option>
                    <option value="1" selected="@(Model.ConExistencia == true)">Sí</option>
                    <option value="0" selected="@(Model.ConExistencia == false)">No</option>
                </select>
            </div>
            <div class="col-md-1 d-flex align-items-end">
                <button type="submit" class="btn btn-primary w-100">
                    <i class="bi bi-search"></i>
                </button>
            </div>
        </form>

        <div class="table-responsive">
            <table class="table table-sm table-striped table-hover">
                <thead class="table-dark">
                    <tr>
                        <th>Código</th>
                        <th>Descripción</th>
                        <th>UDM</th>
                        <th>Línea</th>
                        <th class="text-end">Existencia</th>
                        <th class="text-end">Apartado</th>
                        <th class="text-end">Disponible</th>
                        <th class="text-end">P. Lista</th>
                        <th>Status</th>
                        <th>Acciones</th>
                    </tr>
                </thead>
                <tbody>
                    @if (Model.Productos.Any())
                    {
                        @foreach (var prod in Model.Productos)
                        {
                            var disponible = (prod.EXIINV ?? 0) - (prod.APAINV ?? 0);
                            <tr>
                                <td><strong>@prod.CVEINV</strong></td>
                                <td>@prod.NOMINV</td>
                                <td>@prod.UDMINV</td>
                                <td>@prod.LININV</td>
                                <td class="text-end @(prod.EXIINV > 0 ? "text-success" : "text-muted")">@prod.EXIINV?.ToString("N2")</td>
                                <td class="text-end @(prod.APAINV > 0 ? "text-warning" : "")">@prod.APAINV?.ToString("N2")</td>
                                <td class="text-end @(disponible > 0 ? "text-primary fw-bold" : "text-danger")">@disponible.ToString("N2")</td>
                                <td class="text-end">@prod.PLAINV?.ToString("N2")</td>
                                <td>
                                    @if (prod.STAINV == "A")
                                    {
                                        <span class="badge bg-success">Activo</span>
                                    }
                                    else
                                    {
                                        <span class="badge bg-secondary">Inactivo</span>
                                    }
                                </td>
                                <td>
                                    <a href="/Inventarios/Producto/@prod.CVEINV" class="btn btn-sm btn-outline-primary" title="Ver Detalle">
                                        <i class="bi bi-eye"></i>
                                    </a>
                                    <a href="/Inventarios/Movimientos/@prod.CVEINV" class="btn btn-sm btn-outline-info" title="Movimientos">
                                        <i class="bi bi-arrow-left-right"></i>
                                    </a>
                                </td>
                            </tr>
                        }
                    }
                    else
                    {
                        <tr>
                            <td colspan="10" class="text-center text-muted py-4">
                                <i class="bi bi-inbox fs-1 d-block mb-2"></i>
                                No se encontraron productos. Ajuste los filtros de búsqueda.
                            </td>
                        </tr>
                    }
                </tbody>
            </table>
        </div>

        @if (Model.TotalPages > 1)
        {
            <nav class="mt-3">
                <ul class="pagination justify-content-center">
                    @for (int i = 1; i <= Math.Min(Model.TotalPages, 10); i++)
                    {
                        <li class="page-item @(i == Model.CurrentPage ? "active" : "")">
                            <a class="page-link" href="?Codigo=@Model.Codigo&Descripcion=@Model.Descripcion&Linea=@Model.Linea&Status=@Model.Status&ConExistencia=@Model.ConExistencia&PageNum=@i">@i</a>
                        </li>
                    }
                    @if (Model.TotalPages > 10)
                    {
                        <li class="page-item disabled"><span class="page-link">...</span></li>
                        <li class="page-item">
                            <a class="page-link" href="?Codigo=@Model.Codigo&Descripcion=@Model.Descripcion&Linea=@Model.Linea&Status=@Model.Status&ConExistencia=@Model.ConExistencia&PageNum=@Model.TotalPages">@Model.TotalPages</a>
                        </li>
                    }
                </ul>
            </nav>
        }

        <div class="text-muted text-center mt-2">
            Mostrando @Model.Productos.Count de @Model.TotalCount productos
        </div>
    </div>
</div>
</div>
<!-- Migrado desde: kardex.asp -->

MATERIALES INDUSTRIALES DE MEXICO

kardex.asp

Archivo ASP

Página Razor

Módulo

Líneas de Código

SELECT Select Claalm, Desalm

SQL Original (ASP)

SELECT Select Claalm, Desalm from Almacenes Where Staalm = 'A' and Claalm = "& Almacen ...

SQL Original (ASP)

SELECT Select Claalm, Desalm from Almacenes Where Staalm = 'A' and Claalm =

SQL Original (ASP)

SELECT Select * from Empresa;

SQL Original (ASP)

SELECT Select Claalm, Desalm From Almacenes Where Staalm = 'A' Order by Claalm Asc

SQL Original (ASP)