Detalle: facrev.asp - MIM Portal

facrev.asp

Ir a la Página Volver a la Lista

Archivo ASP

facrev.asp

Página Razor

Facturas/Facrev.cshtml

Módulo

Facturas

Líneas de Código

163

Características

En Menú:	No
Formularios:	Ninguno
Consultas SQL:	Ninguna
Complejidad:	low
Bases de Datos:	Session DB

Tablas Utilizadas (0)

No se detectaron tablas

Comentarios y Notas (0)

No hay comentarios aún

Enlaces Salientes (5) 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	-
`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">
</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">
<%
Dim Rs11, Sql11, Rs12, Sql12
Dim Fcap, ClienteC
Dim DiaR, DiaC, DiaN, DiaNo, DiaCo, DiaReal, DiaCob, SumaD, DiaGr
Dim FolioF, Revcli, RevWeek, Diarev

Fcap = date()
FolioF = Request("Ffacnum")

set rs11 = server.CreateObject("ADODB.Recordset")
Sql11 ="select numfface, clacli, nomcli, diacli, cobcli, revcli " &_
"from clientes, ffacenc where numfface = "& FolioF &" and clifface = clacli;"
rs11.Open SQL11, cn1, 1, 2

Revcli = Rs11("revcli")
If Revcli = "DOMINGO" then
DiaRev = 1
Else If Revcli = "LUNES" then
DiaRev = 2
Else If Revcli = "MARTES" then
DiaRev = 3
Else If Revcli = "MIERCOLES" then
DiaRev = 4
Else If Revcli = "JUEVES" then
DiaRev = 5
Else If Revcli = "VIERNES" then
DiaRev = 6
Else If Revcli = "SABADO" then
DiaRev = 7
Else If Revcli = "INDEFINIDO" then
DiaRev = Weekday(date())
End If
End IF
End IF
End IF
End IF
End IF
End IF
End IF

RevWeek = Weekday(date())

If Revweek < DiaRev Then
                DiaR = Fcap + Diarev - Revweek
Else If Revweek = Diarev Then
                DiaR = Fcap + 7
Else If Revweek > Diarev Then 
                DiaR = Fcap + 7 - Revweek + Diarev
End If
End If
End If

Response.write(Diar & "<br>")

DiaC = DiaR + rs11("diacli")
DiaN = Weekday(DiaC)
DiaNo = WeekdayName(DiaN)
DiaCo = Rs11("Cobcli")

Response.write(DiaC & "<br>")


If diaCo = "DOMINGO" then
diaCob = 1
Else If Diaco = "LUNES" then
diaCob = 2
Else If Diaco = "MARTES" then
diaCob = 3
Else If Diaco = "MIERCOLES" then
diaCob = 4
Else If Diaco = "JUEVES" then
diaCob = 5
Else If Diaco = "VIERNES" then
diaCob = 6
Else If Diaco = "SABADO" then
diaCob = 7
Else If Diaco = "INDEFINIDO" then
DiaCob = DiaN
End If
End IF
End IF
End IF
End IF
End IF
End IF
End IF


Response.write(Dian & "<br>")

If Diacob < DiaN then
DiaReal = DiaC + 7 + diaCob - DiaN
Else If DiaCob = DiaN then
DiaReal = DiaC
Else If Diacob > DiaN then
Diareal = DiaC + Diacob - DiaN
End If
End If
End If


Response.write(Diareal & "<br>")

set rs12 = server.CreateObject("ADODB.Recordset")
sql12="Update cxcgen set frevision = '"& DiaR &"', " &_
"Fcaprev = '"& Fcap &"', Fpacxcg = '"& DiaReal &"', usucxc = '"& Nombre &"' " &_
"where Nfacxcg = "& folioF &" and Movcxcg = 1;"
Cn1.Execute sql12

Response.redirect("Tranfermod.asp?Factura="& foliof &"&Empresa="& Negocio &"")


%>
<br>
<%= Year(date()) %>
</div>

<div style="position:absolute; top:140; width:760">
</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.Facturas
{
    public class FacrevModel : PageModel
    {
        private readonly MimDbContext _context;
        public FacrevModel(MimDbContext context) { _context = context; }

        [BindProperty(SupportsGet = true)] public DateTime? FechaDesde { get; set; }
        [BindProperty(SupportsGet = true)] public DateTime? FechaHasta { get; set; }
        [BindProperty(SupportsGet = true)] public string? Status { get; set; }
        public List<FFACENC> Facturas { get; set; } = new();

        public async Task OnGetAsync()
        {
            var sucursal = HttpContext.Session.GetString("Sucursal") ?? "MERIDA";
            var query = _context.FFACENC.Where(x => x.Sucursal == sucursal).AsQueryable();
            if (FechaDesde.HasValue) query = query.Where(f => f.FECFFACE >= FechaDesde);
            if (FechaHasta.HasValue) query = query.Where(f => f.FECFFACE <= FechaHasta);
            if (!string.IsNullOrEmpty(Status)) query = query.Where(f => f.STAFFACE == Status);
            Facturas = await query.OrderByDescending(f => f.FECFFACE).Take(200).ToListAsync();
        }
    }
}

@page
@model MimPortal.Pages.Facturas.FacrevModel
@{
    ViewData["Title"] = "Revisión de Facturas";
}
<div id="page-content">
<div class="card">
    <div class="card-header"><h5><i class="bi bi-check2-circle"></i> Revisión de Facturas</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">
                <label class="form-label">Status</label>
                <select class="form-select" name="Status">
                    <option value="">Todos</option>
                    <option value="P" selected="@(Model.Status == "P")">Pendiente</option>
                    <option value="F" selected="@(Model.Status == "F")">Facturado</option>
                    <option value="C" selected="@(Model.Status == "C")">Cancelado</option>
                </select>
            </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.Facturas.Any())
        {
            <div class="table-responsive">
                <table class="table table-hover table-sm">
                    <thead class="table-dark">
                        <tr><th>Factura</th><th>Cliente</th><th>Fecha</th><th>Total</th><th>Status</th></tr>
                    </thead>
                    <tbody>
                        @foreach (var f in Model.Facturas)
                        {
                            <tr>
                                <td><a href="/Facturas/Ffacdet?id=@f.Id">@f.NUMFFACE</a></td>
                                <td>@f.CLIFFACE</td>
                                <td>@f.FECFFACE?.ToString("dd/MM/yyyy")</td>
                                <td class="text-end">@f.TOTFFACE?.ToString("N2")</td>
                                <td>@f.STAFFACE</td>
                            </tr>
                        }
                    </tbody>
                </table>
            </div>
        }
    </div>
</div>
</div>

MATERIALES INDUSTRIALES DE MEXICO

facrev.asp

Archivo ASP

Página Razor

Módulo

Líneas de Código