Detalle: crecges.asp

crecges.asp

Ir a la Página Volver a la Lista

Archivo ASP

crecges.asp

Página Razor

Compras/Crecges.cshtml

Módulo

Compras

Líneas de Código

222

Características

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

Tablas Utilizadas (2)

CRecEnc crecm

Consultas SQL (4)

SQL Original (ASP)

select * from crecm where Crecu = '" & nombre & "' order by Creco;

Tablas: crecm

SQL Original (ASP)

select Numrenc, prorenc, Nomprv, FECRENC  From CRecEnc, PROVEEDORES  where cveprv = PRORENC and Numrenc = "& Nrecepcion &

Tablas: CRecEnc

SQL Original (ASP)

select * from crecm where Crecu = '

Tablas: crecm

SQL Original (ASP)

select Numrenc, prorenc, Nomprv, FECRENC

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
`barra.asp`	include	General	Pendiente	-
`empresa.asp`	include	General	Pendiente	-
`general.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
`staremges.asp`	form_action	General	Pendiente	-

<%@LANGUAGE="VBSCRIPT"%>

<%  
Option Explicit
Session.LCID = 2058
%> 
<!--#include file="User.asp"-->
<!--#include file="general.asp"-->

<html>
<head>
    <meta charset="utf-8"/>
<title>::: Sistema 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>
<center>
<!--#include file="empresa.asp"--><br>
<!--#INCLUDE FILE="BARRA.asp"-->


<div class="normalw" style="position:absolute; top:1px;">
Bienvenido: <%= nombre %>. <br>
Hora Actual: <%= time %>
</div>


<div class="normal" style="position:absolute; top:60px; left:10">
<%
Dim Rs5
Dim Sql5
set Rs5 = server.CreateObject("ADODB.Recordset")
Sql5 = "select * from crecm where Crecu = '" & nombre & "' order by Creco;"
Rs5.Open Sql5,Cn1,1,2
%>

<%
Do while Not Rs5.EOF
%>
<a href="<%= Rs5("Crecm") %>.asp"><img src="Image/<%= Rs5("Crecn") %>.gif" border=0 alt="<%= Rs5("Crecn") %>" Title="<%= Rs5("Crecn") %>"></a>
<%
Rs5.MoveNext
Loop
%>

</div>

<div class="normal" style="position:Relative; top:110px; left:1">
<center>
<hr>
Gestor de Recepciones

<HR>

<Table border=0 cellspacing=1 cellpadding=1 class="normal">
<Form action="Crecges.asp" name="Crecges" method="Post">

<Tr>
<TD align="Left" class="normalw" bgcolor="#006699">Recepcion</td>
<TD align="Left" class="normalw" bgcolor="#006699">
<input type="text" class="normalb" Value="0" name="NRecepcion" size="7" style="text-align:right;" onChange="javascript:this.value=this.value.toUpperCase();">
</td>
</tr>

<Tr>
<TD align="Center" class="normalw" bgcolor="#006699" Colspan="2">
<input type="submit" value="Buscar" class="normalc">
</td>
</tr>
</form>
</Table>
<%
'*******  BUSCAMOS LA RECEPCION ******
Dim NRecepcion, FolioR
Dim Rs11, Rs12
Dim Sql11, Sql12

NRecepcion = Request("NRecepcion")

'*****  VERIFICA QUE EL NUMERO DE RECEPCION NO SEA NULO, VACIO O CERO ****
If NRecepcion = "" or Isnull(NRecepcion) or NRecepcion = 0 Then

Else

Set Rs11 = server.CreateObject("ADODB.Recordset")
Sql11 = "select Numrenc, prorenc, Nomprv, FECRENC " &_
"From CRecEnc, PROVEEDORES " &_
"where cveprv = PRORENC and Numrenc = "& Nrecepcion &";"
Rs11.Open Sql11,cn1,1,2
	If Rs11.EOF Then
	
	Else	
	
	%>
	<br>
	<Table border=0 cellspacing=1 cellpadding=1 class="normal">

<Tr>
	<Td>
	<a Href="CrecgesUp.asp?NRecepcion=<%= NRecepcion %>&Usuario=<%= nombre %>">
	<img src="Image/upload.gif" Alt="Subir Archivo" Title="Subir Archivo" Height="40px">
	</a>
	</Td>
	<Td Colspan="3">
	<b>	Cargar Archivo.</a>
	</td>
</Tr>	
	
	<Tr>
		<TD align="Left" class="normalw" bgcolor="#006699">Recepcion</td>
		<TD align="Left" class="normalw" bgcolor="#006699">Clave</td>
		<TD align="Left" class="normalw" bgcolor="#006699">Proveedor</td>
		<TD align="Left" class="normalw" bgcolor="#006699">Fecha</td>
	</Tr>
	<%
	Do While Not Rs11.EOF
	%>
	<Tr>
		<TD align="Right" class="normal"><%= Rs11("Numrenc") %></td>
		<TD align="Right" class="normal"><%= Rs11("prorenc") %></td>
		<TD align="Left" class="normal"><%= Rs11("Nomprv") %></td>
		<TD align="Left" class="normal"><%= Rs11("FECRENC") %></td>
	</Tr>	
	
	
		<%
	Dim fso
	Dim Carpetas, Carpeta
	Dim fol
	Dim A 
	Set fso = Server.CreateObject("scripting.fileSystemObject")
	
	
	
	
	' Comprobamos  si existe la carpeta. Si no existe la creamos
	if (Not fso.FolderExists(server.MapPath("/mexico/2415D4D216DB33FED730E5BA1934C97F063DC6BF/"& Nrecepcion &""))) then
		Set fol = fso.CreateFolder(server.MapPath("/mexico/2415D4D216DB33FED730E5BA1934C97F063DC6BF/"& Nrecepcion &""))
	end if
 Set Carpeta = fso.GetFolder(server.MapPath("/mexico/2415D4D216DB33FED730E5BA1934C97F063DC6BF/"& Nrecepcion &""))
 
	%>

<Tr>
<td ColspaN="4">
<hr>



	<Table border=0 cellspacing=1 cellpadding=1 class="normal" width="600px">
	
		<Tr>
		<TD align="Left" class="normalw" bgcolor="#006699">Nombre</td>
		<TD align="Left" class="normalw" bgcolor="#006699">Fecha_ModificaciÃ³n</td>
		<TD align="Left" class="normalw" bgcolor="#006699">Tipo</td>
		<TD align="Left" class="normalw" bgcolor="#006699">TamaÃ±o</td>
	</Tr>
	
	
	<%
for each A in Carpeta.files
%>
	<Tr>
		<td>
		<a href="2415D4D216DB33FED730E5BA1934C97F063DC6BF/<%= Nrecepcion %>/<%= A.name %>" onclick="NewWindow(this.href,'GestorImp','1024','800','yes');return false;">
		<%= A.name %></a>
		</td>
		<td><%= A.DateLastModified %></td>
		<td><%= A.Type %></td>
		<td Align="Right"><%= formatnumber((A.Size/1024),0) %> KB</td>
	</Tr>
<%
next
%>
</table>



</td>
</tr>
	
	<%
	Rs11.MoveNext
	Loop
	%>
	
	</Table>
	
	<hr>
	

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

        [BindProperty(SupportsGet = true)] public string? Recepcion { get; set; }
        [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<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));
            if (!string.IsNullOrEmpty(Proveedor)) query = query.Where(r => r.PRORENC != null && r.PRORENC.Contains(Proveedor.ToUpper()));
            if (FechaDesde.HasValue) query = query.Where(r => r.FECRENC >= FechaDesde);
            if (FechaHasta.HasValue) query = query.Where(r => r.FECRENC <= FechaHasta);
            Recepciones = await query.OrderByDescending(r => r.FECRENC).Take(200).ToListAsync();
        }
    }
}

@page
@model MimPortal.Pages.Compras.CrecgesModel
@{
    ViewData["Title"] = "Gestión de Recepciones";
}
<div id="page-content">
<div class="card">
    <div class="card-header"><h5><i class="bi bi-box-seam"></i> Gestión de Recepciones</h5></div>
    <div class="card-body">
        <form method="get" class="row g-3 mb-4">
            <div class="col-md-2">
                <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">Proveedor</label>
                <input type="text" class="form-control" name="Proveedor" value="@Model.Proveedor" />
            </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.Recepciones.Any())
        {
            <div class="table-responsive">
                <table class="table table-hover table-sm">
                    <thead class="table-dark">
                        <tr><th>Recepción</th><th>Proveedor</th><th>Fecha</th><th>Orden</th><th>Total</th><th>Status</th></tr>
                    </thead>
                    <tbody>
                        @foreach (var r in Model.Recepciones)
                        {
                            <tr>
                                <td><a href="/Compras/Recepciondet?id=@r.Id">@r.NUMRENC</a></td>
                                <td>@r.PRORENC</td>
                                <td>@r.FECRENC?.ToString("dd/MM/yyyy")</td>
                                <td>@r.OCORENC</td>
                                <td class="text-end">@r.TOTRENC?.ToString("N2")</td>
                                <td>@r.STARENC</td>
                            </tr>
                        }
                    </tbody>
                </table>
            </div>
        }
    </div>
</div>
</div>

MATERIALES INDUSTRIALES DE MEXICO

crecges.asp

Archivo ASP

Página Razor

Módulo

Líneas de Código

SELECT select * from crecm where Crecu = '" & nombre & "' order by Creco;

SQL Original (ASP)

SELECT select Numrenc, prorenc, Nomprv, FECRENC From CRecEnc, PROVEEDORES where cvepr...

SQL Original (ASP)

SELECT select * from crecm where Crecu = '

SQL Original (ASP)

SELECT select Numrenc, prorenc, Nomprv, FECRENC

SQL Original (ASP)