Detalle: ajuste.asp - MIM Portal

ajuste.asp

Ir a la Página Volver a la Lista

Archivo ASP

ajuste.asp

Página Razor

Inventarios/Ajuste.cshtml

Módulo

Inventarios

Líneas de Código

206

Características

En Menú:	Sí
Formularios:	2 formulario(s)
Consultas SQL:	4 consulta(s)
Complejidad:	medium
Bases de Datos:	Session DB

Tablas Utilizadas (3)

Movcon almacenes multialmacen

Consultas SQL (4)

SQL Original (ASP)

Select Claalm, desalm from almacenes where Staalm = 'A';

Tablas: almacenes

SQL Original (ASP)

Select * from Movcon where cvecim = 12 or Cvecim = 55;

Tablas: Movcon

SQL Original (ASP)

SELECT artmul, Desmul, cpmul from multialmacen  where artmul like '%" & UCase(Request("Code")) & "%'  and desmul like '%" & UCase(Request("NomInv")) & "%'

Tablas: multialmacen

SQL Original (ASP)

SELECT artmul, Desmul, cpmul from multialmacen

Tablas: multialmacen

Comentarios y Notas (0)

No hay comentarios aún

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

Archivo ASP	Tipo	Módulo	Estado	Página Razor
`ajusteadd.asp`	form_action	General	Pendiente	ajusteadd
`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 (0) Páginas que enlazan a esta página

No hay enlaces entrantes

<%  
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">

<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>
<!--#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 style="position:absolute; top:34px; left:1">
<!--#include file="mpro.asp"-->
</div>

<div class="normal" style="position:absolute; top:80px; left:10">
<center>
<Form action="Ajuste.asp" name="Bajuste" method='post'>
<TABLE border=0 cellspacing=0 cellpadding=0 class="normal">
<tr>
<td Class="Normalb">Codigo: &nbsp;	</td>
<td><input type="Text" class="Normalb" name="Code" size="20" onChange="javascript:this.value=this.value.toUpperCase();"></td>
</tr>
<tr>
<td Class="Normalb">Descripcion: &nbsp;	</td>
<td><input type="text" class="Normalb" name="Nominv" size="40" onChange="javascript:this.value=this.value.toUpperCase();"></td>
<td>&nbsp <input type="submit" value="Buscar" class=normalb></td>
</tr>
</table>
</form>

<hr>

<%
Dim Rs11, Sql11, Rs12, Sql12, Rs13, Sql13, Rs14, Sql14
Dim Rsc, SqlC

Dim Code, Nominv
Dim TipoMo
Code = Request("Code")
NomInv = Request("Nominv")

Set Rs11 = server.CreateObject("ADODB.Recordset")
Sql11="SELECT artmul, Desmul, cpmul from multialmacen " &_
"where artmul like '%" & UCase(Request("Code")) & "%' " &_
"and desmul like '%" & UCase(Request("NomInv")) & "%';"
Rs11.open Sql11,cn1,1,2

If Rs11.Eof then
%>
<b> El Producto No existe</b>
<br>
<%
Else
%>

<Form action="AjusteAdd.asp" name="Aajuste" method='post'>
<TABLE border=0 cellspacing=0 cellpadding=0 class="normal">
<tr>
<td Class="Normalb">Movimiento: &nbsp;	</td>
<td Class="Normalb">
<%
Set Rs12 = server.CreateObject("ADODB.Recordset")
Sql12="Select * from Movcon where cvecim = 12 or Cvecim = 55;"
Rs12.open Sql12,cn1,1,2

%>
<SELECT NAME="TipoM" class="Normalb">"
<optgroup label="Tipo de Ajuste":>
<%
while not Rs12.EOF
If Rs12("tipcim") = "E" then
TipoMo = "ENTRADA"
else If Rs12("tipcim") = "S" then
TipoMo = "SALIDA"
End If
End If
%>
<OPTION value="<%= Rs12("cvecim") %>"><%= TipoMo %> - <%= Rs12("dcocim") %> </option>"	
<%
Rs12.MoveNext
Wend
%>
</select>
</td>
</Tr>

<tr>
<td Class="Normalb">Almacen: &nbsp;	</td>
<td Class="Normalb">
<%
Set Rs13 = server.CreateObject("ADODB.Recordset")
Sql13="Select Claalm, desalm from almacenes where Staalm = 'A';"
Rs13.open Sql13,cn1,1,2

%>


<SELECT NAME="Almacen" class="Normalb">"
<optgroup label="Seleccione Un almacen":>
<%
while not Rs13.EOF
%>
<OPTION value="<%= Rs13("claalm") %>"><%= Rs13("desalm") %> </option>"	
<%
Rs13.MoveNext
Wend
%>

</select>
</td>
</Tr>

<tr>
<td Class="Normalb">Producto: &nbsp;	</td>
<td Class="Normalb">

<SELECT NAME="Codigo" class="Normalb">"
<optgroup label="Seleccione Un Producto":>
<%
If Code = "" and Nominv = "" then
%>
<OPTION value="">Seleccione un producto </option>"	
<% else %>

<%

while not Rs11.EOF
%>
<OPTION value="<%= Rs11("artmul") %>"><%= Rs11("artmul") %> - <%= Rs11("desmul") %> - <%= Rs11("cpmul") %></option>"	
<%
Rs11.MoveNext

Wend
%>
<%end if %>

</select>
</td>
</Tr>

<tr>
<td Class="Normalb">Cantidad: &nbsp;	</td>
<td Class="Normalb">
<input type="Text" class="Normalb" value="0.00" name="Cantidad" size="10">
</td>
</Tr>


<tr>
<td Class="Normalb">Costo: &nbsp;	</td>
<td Class="Normalb">
<input type="Text" class="Normalb" value="0.00" name="Costo" size="10">
</td>
</Tr>

<tr>
<td Class="Normalb" Colspan="2" Align="Center">
<input type="submit" value="Agregar" class="Normalb">
</td>
</Tr>

</Table>

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

        [BindProperty(SupportsGet = true)] public string? Codigo { get; set; }
        [BindProperty(SupportsGet = true)] public string? Descripcion { get; set; }
        public List<INVENTARIOS> Productos { get; set; } = new();

        public async Task OnGetAsync()
        {
            var sucursal = HttpContext.Session.GetString("Sucursal") ?? "MERIDA";
            if (string.IsNullOrEmpty(Codigo) && string.IsNullOrEmpty(Descripcion)) return;
            var query = _context.INVENTARIOS.Where(x => x.Sucursal == sucursal).Where(i => i.STAINV == "A");
            if (!string.IsNullOrEmpty(Codigo)) query = query.Where(i => i.CVEINV != null && i.CVEINV.Contains(Codigo.ToUpper()));
            if (!string.IsNullOrEmpty(Descripcion)) query = query.Where(i => i.NOMINV != null && i.NOMINV.Contains(Descripcion.ToUpper()));
            Productos = await query.OrderBy(i => i.CVEINV).Take(100).ToListAsync();
        }
    }
}

@page
@model MimPortal.Pages.Inventarios.AjusteModel
@{
    ViewData["Title"] = "Ajuste de Inventario";
}
<div id="page-content">
<div class="card">
    <div class="card-header"><h5><i class="bi bi-sliders"></i> Ajuste de Inventario</h5></div>
    <div class="card-body">
        <form method="get" class="row g-3 mb-4">
            <div class="col-md-3">
                <label class="form-label">Código</label>
                <input type="text" class="form-control" name="Codigo" value="@Model.Codigo" />
            </div>
            <div class="col-md-4">
                <label class="form-label">Descripción</label>
                <input type="text" class="form-control" name="Descripcion" value="@Model.Descripcion" />
            </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.Productos.Any())
        {
            <div class="table-responsive">
                <table class="table table-hover table-sm">
                    <thead class="table-dark">
                        <tr><th>Código</th><th>Descripción</th><th>UDM</th><th>Existencia</th><th>Acciones</th></tr>
                    </thead>
                    <tbody>
                        @foreach (var p in Model.Productos)
                        {
                            <tr>
                                <td>@p.CVEINV</td>
                                <td>@p.NOMINV</td>
                                <td>@p.UDMINV</td>
                                <td class="text-end">@p.EXIINV?.ToString("N2")</td>
                                <td><a href="/Inventarios/Ajustedet?id=@p.Id" class="btn btn-sm btn-warning"><i class="bi bi-pencil"></i> Ajustar</a></td>
                            </tr>
                        }
                    </tbody>
                </table>
            </div>
        }
    </div>
</div>
</div>

MATERIALES INDUSTRIALES DE MEXICO

ajuste.asp

Archivo ASP

Página Razor

Módulo

Líneas de Código

SELECT Select Claalm, desalm from almacenes where Staalm = 'A';

SQL Original (ASP)

SELECT Select * from Movcon where cvecim = 12 or Cvecim = 55;

SQL Original (ASP)

SELECT SELECT artmul, Desmul, cpmul from multialmacen where artmul like '%" & UCase(Re...

SQL Original (ASP)

SELECT SELECT artmul, Desmul, cpmul from multialmacen

SQL Original (ASP)