Detalle: autped.asp - MIM Portal

autped.asp

Ir a la Página Volver a la Lista

Archivo ASP

autped.asp

Página Razor

Facturas/Autped.cshtml

Módulo

Facturas

Líneas de Código

218

Características

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

Tablas Utilizadas (3)

Autorizaciones Empresa Fpedenc

Consultas SQL (8)

SQL Original (ASP)

select Numfpede, Fecfpede, Fenfpede, Feafpede, Clifpede, Nomcli, Stafpede, Divvend, USUFPEDE, Eautoriza, Stacli, Subfpede, desdiv, RECOGE

SQL Original (ASP)

select Numfpede, Fecfpede, Fenfpede, Feafpede, Clifpede, Nomcli, Stafpede, Divvend, USUFPEDE, Eautoriza, Stacli, Subfpede, desdiv, RECOGE  from Fpedenc, Clientes, Vendedores, monedas  Where Clifpede = Clacli and Eautoriza = 1 and Vencli = Cvevend and Fdvfpede is null  and (Divvend = 'IPRIVADA' Or  Divvend = 'CASA' or Divvend = 'FILIALES' OR Divvend = 'CONST' OR Divvend = 'MOST' OR Divvend = 'PEMEX' Or  Divvend = 'GOBIERNO' Or  Divvend = 'PROYECTOS') AND STAFPEDE <> 'C' and Cladiv = Monfpede " & _ Order by Numfpede

Tablas: Fpedenc

SQL Original (ASP)

select Numfpede, Fecfpede, Fenfpede, Feafpede, Clifpede, Nomcli, Stafpede, Divvend, USUFPEDE, Eautoriza, Stacli, Subfpede, desdiv, RECOGE  from Fpedenc, Clientes, Vendedores, monedas  Where Clifpede = Clacli and Vencli = Cvevend and Fdvfpede is null  AND STAFPEDE <> 'C' and Cladiv = Monfpede  Order by Numfpede desc

Tablas: Fpedenc

SQL Original (ASP)

select Numfpede, Fecfpede, Fenfpede, Feafpede, Clifpede, Nomcli, Stafpede, Divvend, USUFPEDE, Eautoriza, Stacli, Subfpede, desdiv, RECOGE  from Fpedenc, Clientes, Vendedores, monedas  Where Clifpede = Clacli and Eautoriza = 1 and Vencli = Cvevend and Fdvfpede is null " &_  and (Divvend = 'PROYECTOS') AND STAFPEDE <> 'C' and Cladiv = Monfpede " & _ Order by Numfpede desc

Tablas: Fpedenc

SQL Original (ASP)

Select Usuaut, ModAut, Monto, Margen

SQL Original (ASP)

Select * from Empresa;

Tablas: Empresa

SQL Original (ASP)

select Numfpede, Fecfpede, Fenfpede, Feafpede, Clifpede, Nomcli, Stafpede, Divvend, USUFPEDE, Eautoriza, Stacli, Subfpede, desdiv, RECOGE  from Fpedenc, Clientes, Vendedores, monedas  Where Clifpede = Clacli and (Eautoriza = 1 or Eautoriza = 2) " &_  and (Divvend = 'IPRIVADA' Or  Divvend = 'CASA' or Divvend = 'FILIALES' OR Divvend = 'CONST' OR Divvend = 'MOST' OR Divvend = 'PEMEX' Or  Divvend = 'GOBIERNO' Or  Divvend = 'PROYECTOS' Or  Divvend = 'MINAS') " &_  and Vencli = Cvevend and Fdvfpede is null  AND STAFPEDE <> 'C' and Cladiv = Monfpede " & _ Order by Numfpede desc

Tablas: Fpedenc

SQL Original (ASP)

Select Usuaut, ModAut, Monto, Margen  From Autorizaciones  Where Usuaut = '"& Session("MyName") &"'

Tablas: Autorizaciones

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
`fpedm.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/Modulos.css" rel="stylesheet" />
		<link href="css/Buscador.css" rel="stylesheet" />
		
</HEAD>

<BODY>
<%
Response.Expires = 0
Response.Buffer = True
'la siguiente linea escribe el encabezado... produciendo el refresh. 
Response.AddHeader "Refresh", "5"
%>

<%
'***** Variables a la base de datos ****
Dim Cn1
Dim Rs11, Rs12, Rs13, Rs14, Rs15, Rs16, rs17, Rs18, Rs19, Rs20
Dim Sql11, Sql12, Sql13, Sql14, Sql15, Sql16, Sql17, Sql18, Sql19, Sql20

'***** 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
		
%>



	<SECTION Class="HeaderGes">
			<div Id="DivHeadGes">
			<%= Rs11("Nombre") %><br>
			<%= Rs11("Direccion") %>, <%= Rs11("colonia") %><br>
			<%= Rs11("Poblacion") %>
			</div>
		

	</SECTION>
	
	<SECTION>
	<!--#include file="Fpedm.asp"-->
	</SECTION>	
	
	<SECTION>
	
		<center>

<%
Dim TipoA, Monto, Margen

Set Rs12 = server.CreateObject("ADODB.Recordset")
Sql12 = "Select Usuaut, ModAut, Monto, Margen " &_
"From Autorizaciones " &_
"Where Usuaut = '"& Session("MyName") &"';"
Rs12.Open Sql12,cn1,1,2

	TipoA = Rs12("Modaut")
	Monto = Rs12("Monto")
	Margen = Rs12("Margen")


If TipoA = "ADMINISTRADOR" Then

	Set Rs13 = server.CreateObject("ADODB.Recordset")
	Sql13 = "select Numfpede, Fecfpede, Fenfpede, Feafpede, Clifpede, Nomcli, Stafpede, Divvend, USUFPEDE, Eautoriza, Stacli, Subfpede, desdiv, RECOGE " &_
	"from Fpedenc, Clientes, Vendedores, monedas " &_
	"Where Clifpede = Clacli and Vencli = Cvevend and Fdvfpede is null  AND STAFPEDE <> 'C' and Cladiv = Monfpede " &_
	"Order by Numfpede desc;"
	Rs13.Open Sql13, Cn1,1,2

Else If TipoA = "DIRECTORV" Then

	Set Rs13 = server.CreateObject("ADODB.Recordset")
	Sql13 = "select Numfpede, Fecfpede, Fenfpede, Feafpede, Clifpede, Nomcli, Stafpede, Divvend, USUFPEDE, Eautoriza, Stacli, Subfpede, desdiv, RECOGE " &_
	"from Fpedenc, Clientes, Vendedores, monedas " &_
	"Where Clifpede = Clacli and (Eautoriza = 1 or Eautoriza = 2) " &_ 
	"and (Divvend = 'IPRIVADA' Or  Divvend = 'CASA' or Divvend = 'FILIALES' OR Divvend = 'CONST' OR Divvend = 'MOST' OR Divvend = 'PEMEX' Or  Divvend = 'GOBIERNO' Or  Divvend = 'PROYECTOS' Or  Divvend = 'MINAS') " &_ 
	"and Vencli = Cvevend and Fdvfpede is null  AND STAFPEDE <> 'C' and Cladiv = Monfpede " & _
	"Order by Numfpede desc;"
	Rs13.Open Sql13, Cn1,1,2

Else If TipoA = "GERENTEIP" or TipoA = "OPERACIONES" Then

	Set Rs13 = server.CreateObject("ADODB.Recordset")
	Sql13 = "select Numfpede, Fecfpede, Fenfpede, Feafpede, Clifpede, Nomcli, Stafpede, Divvend, USUFPEDE, Eautoriza, Stacli, Subfpede, desdiv, RECOGE " &_
	"from Fpedenc, Clientes, Vendedores, monedas " &_
	"Where Clifpede = Clacli and Eautoriza = 1 and Vencli = Cvevend and Fdvfpede is null " &_
	"and (Divvend = 'IPRIVADA' Or  Divvend = 'CASA' or Divvend = 'FILIALES' OR Divvend = 'CONST' OR Divvend = 'MOST' OR Divvend = 'PEMEX' Or  Divvend = 'GOBIERNO' Or  Divvend = 'PROYECTOS') AND STAFPEDE <> 'C' and Cladiv = Monfpede " & _
	"Order by Numfpede;"
	Rs13.Open Sql13,Cn1,1,2

Else If TipoA = "GERENTEP" Then

Set Rs13 = server.CreateObject("ADODB.Recordset")
Sql13 = "select Numfpede, Fecfpede, Fenfpede, Feafpede, Clifpede, Nomcli, Stafpede, Divvend, USUFPEDE, Eautoriza, Stacli, Subfpede, desdiv, RECOGE " &_
"from Fpedenc, Clientes, Vendedores, monedas " &_
"Where Clifpede = Clacli and Eautoriza = 1 and Vencli = Cvevend and Fdvfpede is null " &_ 
"and (Divvend = 'PROYECTOS') AND STAFPEDE <> 'C' and Cladiv = Monfpede " & _
"Order by Numfpede desc;"
Rs13.Open Sql13,Cn1,1,2
	
End If
End If
End If
End If
	
%>
		<br>
		<b> ****** AUTORIZACION DE PEDIDOS (VENTAS) - Tipo: (<%= TipoA %>)*****</B>
		<BR><BR>
		
<%
	If Rs13.Eof Then
	Else
%>	
	<Table>
		<Tr Class="Tableneg">
			<Td>PEDIDO</Td>
			<Td>FECHA</Td>
			<Td>FEC. ENV. AUT.</Td>
			<Td>FECHA ENT.</Td>
			<Td>STATUS_PED</Td>
			<Td>NOMBRE</Td>
			<Td>STATUS_CLI</Td>
			<Td>DIVISION</Td>
			<Td>VENDEDOR</Td>
			<Td>STATUS_AUT</Td>
			<Td>SUBTOTAL</Td>
			<Td>MONEDA</Td>
			
		</Tr>
<%
	Do While Not Rs13.Eof
	Dim RecogeC, ColorLinea
RecogeC = Rs13("RECOGE")
	
If RecogeC = true THEN
	ColorLinea ="#FF5733"
Else
	ColorLinea ="#ffffff"
End If
%>
		<Tr>
			<Td Align="Right" bgcolor="<%= ColorLinea %>">
			<a Href="Autpedet.asp?Pedido=<%= Rs13("Numfpede") %>"><%= Rs13("Numfpede") %></A>
			</td>
			<Td bgcolor="<%= ColorLinea %>"><%= Rs13("Fecfpede") %></td>
			<Td bgcolor="<%= ColorLinea %>"><%= Rs13("Feafpede") %></td>
			<Td bgcolor="<%= ColorLinea %>"><%= Rs13("Fenfpede") %></td>
			<Td bgcolor="<%= ColorLinea %>" Align="Center"><%= Rs13("Stafpede") %></td>
			<Td bgcolor="<%= ColorLinea %>"><%= Rs13("Nomcli") %></td>
			<Td bgcolor="<%= ColorLinea %>" Align="Center"><%= Rs13("Stacli") %></td>
			<Td bgcolor="<%= ColorLinea %>" Align="Left"><%= Rs13("Divvend") %></td>
			<Td bgcolor="<%= ColorLinea %>" Align="Left"><%= Rs13("USUFPEDE") %></td>
			<Td bgcolor="<%= ColorLinea %>" Align="Center"><%= Rs13("Eautoriza") %></td>
			<Td bgcolor="<%= ColorLinea %>" Align="Right"><%= Formatnumber(Rs13("Subfpede")) %></td>
			<Td bgcolor="<%= ColorLinea %>" Align="Center"><%= Rs13("desdiv") %></td>
		</Tr>  
<%
	Rs13.Movenext
	Loop
%>
	</Table>
<%
End If
%>	
			</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.Facturas
{
    public class AutpedModel : PageModel
    {
        private readonly MimDbContext _context;
        public AutpedModel(MimDbContext context) { _context = context; }

        [BindProperty(SupportsGet = true)] public DateTime? FechaDesde { get; set; }
        [BindProperty(SupportsGet = true)] public DateTime? FechaHasta { get; set; }
        public List<FPEDENC> Pedidos { get; set; } = new();

        public async Task OnGetAsync()
        {
            var sucursal = HttpContext.Session.GetString("Sucursal") ?? "MERIDA";
            var query = _context.FPEDENC.Where(x => x.Sucursal == sucursal).Where(p => p.STAFPEDE == "P");
            if (FechaDesde.HasValue) query = query.Where(p => p.FECFPEDE >= FechaDesde);
            if (FechaHasta.HasValue) query = query.Where(p => p.FECFPEDE <= FechaHasta);
            Pedidos = await query.OrderByDescending(p => p.FECFPEDE).Take(100).ToListAsync();
        }
    }
}

@page
@model MimPortal.Pages.Facturas.AutpedModel
@{
    ViewData["Title"] = "Autorización de Pedidos";
}
<div id="page-content">
<div class="card">
    <div class="card-header"><h5><i class="bi bi-check-square"></i> Autorización de Pedidos</h5></div>
    <div class="card-body">
        <form method="get" class="row g-3 mb-4">
            <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.Pedidos.Any())
        {
            <div class="table-responsive">
                <table class="table table-hover table-sm">
                    <thead class="table-dark">
                        <tr><th>Pedido</th><th>Cliente</th><th>Fecha</th><th>Total</th><th>Status</th><th>Acciones</th></tr>
                    </thead>
                    <tbody>
                        @foreach (var p in Model.Pedidos)
                        {
                            <tr>
                                <td>@p.NUMFPEDE</td>
                                <td>@p.CLIFPEDE</td>
                                <td>@p.FECFPEDE.ToString("dd/MM/yyyy")</td>
                                <td class="text-end">@p.TOTFPEDE?.ToString("N2")</td>
                                <td>@p.STAFPEDE</td>
                                <td>
                                    <a href="/Facturas/Fpeddet?id=@p.Id" class="btn btn-sm btn-outline-info"><i class="bi bi-eye"></i></a>
                                    <a href="/Facturas/Autpedap?id=@p.Id" class="btn btn-sm btn-success"><i class="bi bi-check"></i></a>
                                </td>
                            </tr>
                        }
                    </tbody>
                </table>
            </div>
        }
    </div>
</div>
</div>

MATERIALES INDUSTRIALES DE MEXICO

autped.asp

Archivo ASP

Página Razor

Módulo

Líneas de Código

SELECT select Numfpede, Fecfpede, Fenfpede, Feafpede, Clifpede, Nomcli, Stafpede, Divve...

SQL Original (ASP)

SELECT select Numfpede, Fecfpede, Fenfpede, Feafpede, Clifpede, Nomcli, Stafpede, Divve...

SQL Original (ASP)

SELECT select Numfpede, Fecfpede, Fenfpede, Feafpede, Clifpede, Nomcli, Stafpede, Divve...

SQL Original (ASP)

SELECT select Numfpede, Fecfpede, Fenfpede, Feafpede, Clifpede, Nomcli, Stafpede, Divve...

SQL Original (ASP)

SELECT Select Usuaut, ModAut, Monto, Margen

SQL Original (ASP)

SELECT Select * from Empresa;

SQL Original (ASP)

SELECT select Numfpede, Fecfpede, Fenfpede, Feafpede, Clifpede, Nomcli, Stafpede, Divve...

SQL Original (ASP)

SELECT Select Usuaut, ModAut, Monto, Margen From Autorizaciones Where Usuaut = '"& Se...

SQL Original (ASP)