Detalle: caladd.asp - MIM Portal

caladd.asp

Ir a la Página Volver a la Lista

Archivo ASP

caladd.asp

Página Razor

Calidad/Caladd.cshtml

Módulo

Calidad

Líneas de Código

168

Características

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

Tablas Utilizadas (2)

Inventarios Proveedores

Consultas SQL (4)

SQL Original (ASP)

Select Cveinv, Nominv From Inventarios Where Cveinv = '

Tablas: Inventarios

SQL Original (ASP)

Select Cveprv, Nomprv From Proveedores where Cveprv = '

Tablas: Proveedores

SQL Original (ASP)

Select Cveprv, Nomprv From Proveedores where Cveprv = '"& CveProv &"';

Tablas: Proveedores

SQL Original (ASP)

Select Cveinv, Nominv From Inventarios Where Cveinv = '"& Code &"';

Tablas: Inventarios

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
`caltip.asp`	form_action	Calidad	Pendiente	-
`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
`caltip.asp`	redirect	Calidad	Pendiente	-

<%  
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 type="text/javascript" src="validacion.js"></script>
<script type="text/javascript">
<!--
function check(formname, submitbutton) {
  var errors = '';
;
  errors += checkText(formname, 'Numcert', 'Certificado');
  errors += checkText(formname, 'Numcol', 'Colada');
  errors += checkText(formname, 'Cantidad', 'Cantidad');
  errors += checkNum(formname, 'Cantidad', 'Cantidad');
  errors += checkText(formname, 'Numrecep', 'Compra');
  errors += checkNum(formname, 'Numrecep', 'Compra');
  checkThisForm(formname, submitbutton, errors);
}
//-->
</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 class="normalw" style="position:absolute; top:34px; left:1">
<!--#include file="mpro.asp"-->
</div>

<div class="normal" style="position:absolute; top:60px; left:10">
<center>
<b> ***** Dar de Alta Un Certificado *****
<hr>

<%
Dim Rs11, Sql11, Rs12, Sql12
Dim CveProv, NomPrv, Code, DesPro

CveProv = Request("Cveprov")
Code = Request("Code")

If CveProv = "" or Isnull(CveProv) or CveProv = "00000000" Then
CveProv = "00000000"
NomPrv = "Buscar un Proveedor"
Else
CveProv = Cveprov

Set Rs11 = server.CreateObject("ADODB.Recordset")
Sql11 = "Select Cveprv, Nomprv From Proveedores where Cveprv = '"& CveProv &"';"
Rs11.Open Sql11,cn1,1,2

NomPrv = Rs11("Nomprv")
End If

If Code = "" or Isnull(Code) or Code = "00000000" Then
Code = "00000000"
Despro = "Buscar un Producto"
Else
Code = Code

Set Rs12 = server.CreateObject("ADODB.Recordset")
Sql12 = "Select Cveinv, Nominv From Inventarios Where Cveinv = '"& Code &"';"
Rs12.Open Sql12,cn1,1,2

Despro = Rs12("Nominv")
End If
%>
<Form action="Caltip.asp" name="Caltip" method="Post">
<Table border="0" cellspacing="0" cellpadding="0">
<tr bgcolor="#336699">

<td><font class="n_verdana">Clave &nbsp;</td>
<td><font class="n_verdana">Proveedor &nbsp;</td>
<td><font class="n_verdana">Codigo &nbsp;</td>
<td Colspan="2"><font class="n_verdana">Descripcion &nbsp;</td>
</TR>

<Tr>
<td align="Center"><font class="n_verdana_simple"><a Href="BuscaPrvCer.asp?Cveprov=<%= CveProv %>&Code=<%= Code %>"><%= CveProv %></font></td>
<td align="left"><font class="n_verdana_simple"><%= NomPrv %>&nbsp; &nbsp;</font></td>
<td align="Center"><font class="n_verdana_simple"><a Href="BuscaCodeCer.asp?Cveprov=<%= CveProv %>&Code=<%= Code %>"><%= Code %></font></td>
<td align="left" Colspan="2"><font class="n_verdana_simple"><%= DesPro %>&nbsp; &nbsp;</font></td>
</Tr>

<tr bgcolor="#336699">
<td><font class="n_verdana">Entrada &nbsp;</td>
<td><font class="n_verdana">Certificado &nbsp;</td>
<td><font class="n_verdana">Colada &nbsp;</td>
<td><font class="n_verdana">Cantidad &nbsp;</td>
<td><font class="n_verdana">Carpeta &nbsp;</td>
</TR>

<Tr>
<td align="left"><font class="n_verdana_simple">
<Input type="Hidden" class="normalb" name="Proveedor" Value="<%= CveProv %>" Size="12" onChange="javascript:this.value=this.value.toUpperCase();"> &nbsp;
<Input type="Hidden" class="normalb" name="Cveprod" Value="<%= Code %> "Size="12" onChange="javascript:this.value=this.value.toUpperCase();"> &nbsp;
<Input type="Text" class="normalb" name="Numrecep" Size="12"  style="Text-Align:Right;" onChange="javascript:this.value=this.value.toUpperCase();"> &nbsp;
</td>
<td align="left"><font class="n_verdana_simple">
<Input type="Text" class="normalb" name="Numcert" Size="20" onChange="javascript:this.value=this.value.toUpperCase();"> &nbsp;
</td>
<td align="left"><font class="n_verdana_simple">
<Input type="Text" class="normalb" name="Numcol" Size="20" onChange="javascript:this.value=this.value.toUpperCase();"> &nbsp;
</td>
<td align="Center"><font class="n_verdana_simple">
<Input type="Text" class="normalb" name="Cantidad" Size="12" style="Text-Align:Right;"onChange="javascript:this.value=this.value.toUpperCase();"> &nbsp;
</td>
<td align="Center"><font class="n_verdana_simple">
<Input type="Text" class="normalb" name="Carpeta" Size="20" onChange="javascript:this.value=this.value.toUpperCase();"> &nbsp;
</td>

</Tr>

<tr bgcolor="#336699">
<td Colspan="5"><font class="n_verdana">Observaciones &nbsp;</td>
</TR>

<Tr>
<td align="Center" Colspan="5">
<Textarea Class="normalb" Name="Comentarios" cols="100" rows="6" onChange="javascript:this.value=this.value.toUpperCase();"></Textarea>
</td>
</Tr>

<Tr>
<td align="Center" Colspan="5"><font class="n_verdana_simple">
Archivo Anexo:&nbsp; &nbsp;
<input type="radio" name="File" value="1" Class="Normal" Checked> SI
<input type="radio" name="File" value="0" Class="Normal">NO
</font></td>
</Tr>

<Tr>
<td align="Center" Colspan="5">
<input type="button" class="normalb" name="Submit" value="Aceptar" onClick="check('Caltip', this.name);">

</td>
</Tr>
</Table>
</Form>
</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.Calidad
{
    public class CaladdModel : PageModel
    {
        private readonly MimDbContext _context;
        public CaladdModel(MimDbContext context) { _context = context; }

        [BindProperty(SupportsGet = true)] public string? Recepcion { get; set; }
        [BindProperty(SupportsGet = true)] public string? Producto { get; set; }
        public List<CRECENC> Recepciones { get; set; } = new();

        public async Task OnGetAsync()
        {
            var sucursal = HttpContext.Session.GetString("Sucursal") ?? "MERIDA";
            var query = _context.CRECENC.Where(x => x.Sucursal == sucursal).AsQueryable();
            if (!string.IsNullOrEmpty(Recepcion)) query = query.Where(r => r.NUMRENC.ToString().Contains(Recepcion));
            Recepciones = await query.OrderByDescending(r => r.FECRENC).Take(50).ToListAsync();
        }
    }
}

@page
@model MimPortal.Pages.Calidad.CaladdModel
@{ ViewData["Title"] = "Alta de Certificado"; }
<div id="page-content">
<div class="card">
    <div class="card-header"><h5><i class="bi bi-plus-circle"></i> Alta de Certificado de Calidad</h5></div>
    <div class="card-body">
        <form method="get" class="row g-3 mb-4">
            <div class="col-md-3">
                <label class="form-label">Recepción</label>
                <input type="text" class="form-control" name="Recepcion" value="@Model.Recepcion" />
            </div>
            <div class="col-md-3">
                <label class="form-label">Producto</label>
                <input type="text" class="form-control" name="Producto" value="@Model.Producto" />
            </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.Recepciones.Any())
        {
            <div class="table-responsive">
                <table class="table table-hover table-sm">
                    <thead class="table-dark">
                        <tr><th>Recepción</th><th>Fecha</th><th>Proveedor</th><th>Acción</th></tr>
                    </thead>
                    <tbody>
                        @foreach (var r in Model.Recepciones)
                        {
                            <tr>
                                <td>@r.NUMRENC</td>
                                <td>@r.FECRENC?.ToString("dd/MM/yyyy")</td>
                                <td>@r.PRORENC</td>
                                <td><a href="/Calidad/Caladddet?recepcion=@r.Id" class="btn btn-sm btn-success"><i class="bi bi-plus"></i> Crear Certificado</a></td>
                            </tr>
                        }
                    </tbody>
                </table>
            </div>
        }
    </div>
</div>
</div>

MATERIALES INDUSTRIALES DE MEXICO

caladd.asp

Archivo ASP

Página Razor

Módulo

Líneas de Código

SELECT Select Cveinv, Nominv From Inventarios Where Cveinv = '

SQL Original (ASP)

SELECT Select Cveprv, Nomprv From Proveedores where Cveprv = '

SQL Original (ASP)

SELECT Select Cveprv, Nomprv From Proveedores where Cveprv = '"& CveProv &"';

SQL Original (ASP)

SELECT Select Cveinv, Nominv From Inventarios Where Cveinv = '"& Code &"';

SQL Original (ASP)