Detalle: fremcer.asp

fremcer.asp

Ir a la Página Volver a la Lista

Archivo ASP

fremcer.asp

Página Razor

Facturas/Fremcer.cshtml

Módulo

Facturas

Líneas de Código

213

Características

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

Tablas Utilizadas (3)

Fpedm Fremdet fremcer

Consultas SQL (6)

SQL Original (ASP)

select Regrcer, Regrem, Regcer, Numcert, Numcol, cveprod

SQL Original (ASP)

Select Regfremd, Nrefremd, secfremd, Canfremd, codfremd, Nominv

SQL Original (ASP)

select * from Fpedm where usuario = '" & nombre & "' order by npedm;

Tablas: Fpedm

SQL Original (ASP)

select Regrcer, Regrem, Regcer, Numcert, Numcol, cveprod  from fremcer, certificados  where regcer = folio and Regrem = "& FolioR &" order by Numcol

Tablas: fremcer

SQL Original (ASP)

select * from Fpedm where usuario = '

Tablas: Fpedm

SQL Original (ASP)

Select Regfremd, Nrefremd, secfremd, Canfremd, codfremd, Nominv  from Fremdet, Inventarios  where nrefremd = "& Nremision &" and Codfremd = cveinv  order by secfremd

Tablas: Fremdet

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 (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>
<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, sql5
set rs5 = server.CreateObject("ADODB.Recordset")
sql5 = "select * from Fpedm where usuario = '" & nombre & "' order by npedm;"
rs5.open sql5,cn1,1,2
%>

<%
do while not rs5.EOF
%>
<a href="<%=rs5.fields("Fpedm")%>.asp"><img src="Image/<%=rs5.fields("fpedn")%>.gif" border=0 alt="<%=rs5.fields("fpedn")%>"></a>
<%
rs5.MoveNext
loop
%>

</div>

<div class="Docs" style="position:relative; top:50px;">

<center>
<hr>
Captura Certificados de Calidad en Remisiones

<HR>

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

<Tr>
<TD align="Left" class="normalw" bgcolor="#006699">Remision</td>
<TD align="Left" class="normalw" bgcolor="#006699">
<input type="text" class="normalb" Value="0" name="Nremision" 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>
<hr>

<%
'*******  BUSCAMOS LA REMISION ******
Dim Nremision, FolioR
Dim Rs11, Rs12
Dim Sql11, Sql12

Nremision = Request("Nremision")

'*****  VERIFICA QUE EL NUMERO DE REMISION NO SEA NULO, VACIO O CERO ****

If Nremision = "" or Isnull(Nremision) or Nremision = 0 Then

Else
'************  BUSCAMOS LAS PARTIDAS DE LA REMISION *****

Set Rs11 = server.CreateObject("ADODB.Recordset")
Sql11 = "Select Regfremd, Nrefremd, secfremd, Canfremd, codfremd, Nominv " &_
"from Fremdet, Inventarios " &_
"where nrefremd = "& Nremision &" and Codfremd = cveinv " &_
"order by secfremd;"
Rs11.Open Sql11,cn1,1,2

'*************  SI ES FIN DE ARCHIVO
	If Rs11.Eof Then
	
	Else
%>

<Table border=0 cellspacing=1 cellpadding=1 class="normal">

<Tr>
<TD align="Left" class="normalw" bgcolor="#006699">Remision</td>
<TD align="Left" class="normalw" bgcolor="#006699">Partida</td>
<TD align="Left" class="normalw" bgcolor="#006699">Cantidad</td>
<TD align="Left" class="normalw" bgcolor="#006699">Codigo</td>
<TD align="Left" class="normalw" bgcolor="#006699">Descripion</td>
<TD align="Left" class="normalw" bgcolor="#006699">Capturar</td>
</Tr>

<%
Do while Not Rs11.Eof
FolioR = Rs11("Regfremd")

%>
<Tr bgcolor="#c0ceca">
<TD align="Right" class="normal"><%= Rs11("Nrefremd") %></td>
<TD align="Right" class="normal"><%= Rs11("secfremd") %></td>
<TD align="Right" class="normal"><%= Formatnumber(Rs11("Canfremd")) %></td>
<TD align="Left" class="normal"><%= Rs11("Codfremd") %></td>
<TD align="Left" class="normal"><%= Rs11("Nominv") %></td>
<TD align="Center" class="normal"><a href="Fremcera.asp?RegistroR=<%= Rs11("regfremd") %>">+</a></td>
</Tr>

<Tr>
<TD align="Left" class="normal" Colspan="5">

<%

Set Rs12 = server.CreateObject("ADODB.Recordset")
Sql12 = "select Regrcer, Regrem, Regcer, Numcert, Numcol, cveprod " &_
"from fremcer, certificados " &_
"where regcer = folio and Regrem = "& FolioR &"" &_
"order by Numcol;"
Rs12.Open Sql12,cn1,1,2

If Rs12.EOF Then

Else
%>
<Table border=0 cellspacing=1 cellpadding=1 class="normal">
<Tr>
<TD align="Left" class="normalw" bgcolor="#006699">Certificado</td>
<TD align="Left" class="normalw" bgcolor="#006699">Colada</td>
<TD align="Left" class="normalw" bgcolor="#006699">Codigo</td>
<TD align="Left" class="normalw" bgcolor="#006699">Eliminar</td>
</tr>
<%
Do While Not Rs12.Eof
%>

<Tr>
<TD align="Right" class="normal">
<A HREF="Certificados/<%= Rs12("Numcert") %>.pdf" onclick="NewWindow(this.href,'Docus','790','470','yes');return false;">
<%= Rs12("Numcert") %>
</a>
</td>
<TD align="Right" class="normal"><%= Rs12("Numcol") %></td>
<TD align="Right" class="normal"><%= Rs12("cveprod") %></td>
<TD align="Right" class="normal">
<a Href="Fremcerd.asp?Registro=<%= Rs12("Regrcer") %>&Nremision=<%= Nremision %>">
<Img src="Icon/Elimina.gif" Height="15px" 	border="0" Alt="Eliminar Registro" Title="Eliminar Registro">
</a>
</td>
</Tr>

<%
Rs12.Movenext
Loop
%>
</Table>
<br>
<%
End If
%>
</td>
</Tr>

<%
Rs11.Movenext
Loop
%>

</Table>


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

namespace MimPortal.Pages.Facturas
{
    public class FremcerModel : PageModel
    {
        private readonly MimDbContext _context;

        public FremcerModel(MimDbContext context)
        {
            _context = context;
        }

        public int? Remision { get; set; }
        public RemisionData? RemisionInfo { get; set; }
        public List<PartidaData> Partidas { get; set; } = new();

        public async Task OnGetAsync(int? Remision)
        {
            this.Remision = Remision;

            if (Remision.HasValue)
            {
                RemisionInfo = await _context.Database.SqlQueryRaw<RemisionData>(
                    @"SELECT r.NUMFREME as Numero, r.FECFREME as Fecha, c.NOMCLI as Cliente,
                      r.TOTFREME as Total
                      FROM FREMENC r
                      LEFT JOIN clientes c ON r.CLIFREME = c.CLACLI
                      WHERE r.NUMFREME = @p0", Remision.Value)
                    .FirstOrDefaultAsync();

                if (RemisionInfo != null)
                {
                    Partidas = await _context.Database.SqlQueryRaw<PartidaData>(
                        @"SELECT d.PARFREME as Partida, d.CODFREME as Codigo, i.NOMINV as Descripcion,
                          d.CANFREME as Cantidad, d.LOTFREME as Lote, d.CERFREME as Certificado
                          FROM FREMDET d
                          LEFT JOIN inventarios i ON d.CODFREME = i.CVEINV
                          WHERE d.NUMFREME = @p0
                          ORDER BY d.PARFREME", Remision.Value)
                        .ToListAsync();
                }
            }
        }

        public async Task<IActionResult> OnPostAsync(int RemisionId)
        {
            try
            {
                var partidas = await _context.Database.SqlQueryRaw<PartidaData>(
                    "SELECT PARFREME as Partida, CODFREME as Codigo, '' as Descripcion, CANFREME as Cantidad, LOTFREME as Lote, CERFREME as Certificado FROM FREMDET WHERE NUMFREME = @p0", RemisionId)
                    .ToListAsync();

                foreach (var p in partidas)
                {
                    var loteKey = $"Lote_{p.Partida}";
                    var certKey = $"Certificado_{p.Partida}";
                    
                    var lote = Request.Form.ContainsKey(loteKey) ? Request.Form[loteKey].ToString() : "";
                    var cert = Request.Form.ContainsKey(certKey) ? Request.Form[certKey].ToString() : "";

                    await _context.Database.ExecuteSqlRawAsync(
                        "UPDATE FREMDET SET LOTFREME = @p2, CERFREME = @p3 WHERE NUMFREME = @p0 AND PARFREME = @p1",
                        RemisionId, p.Partida, lote, cert);
                }

                TempData["Success"] = $"Certificados de remisión {RemisionId} actualizados exitosamente.";
                return RedirectToPage(new { Remision = RemisionId });
            }
            catch (Exception ex)
            {
                TempData["Error"] = $"Error al actualizar certificados: {ex.Message}";
                return RedirectToPage(new { Remision = RemisionId });
            }
        }

        public class RemisionData
        {
            public int Numero { get; set; }
            public DateTime? Fecha { get; set; }
            public string? Cliente { get; set; }
            public decimal Total { get; set; }
        }

        public class PartidaData
        {
            public int Partida { get; set; }
            public string? Codigo { get; set; }
            public string? Descripcion { get; set; }
            public decimal Cantidad { get; set; }
            public string? Lote { get; set; }
            public string? Certificado { get; set; }
        }
    }
}

@page
@model MimPortal.Pages.Facturas.FremcerModel
@{
    ViewData["Title"] = "Certificados de Calidad en Remisiones";
}

<div class="container-fluid">
    <div class="row mb-3">
        <div class="col">
            <h4><i class="bi bi-award"></i> Certificados de Calidad en Remisiones</h4>
        </div>
        <div class="col-auto">
            <a asp-page="/Facturas/Index" class="btn btn-outline-secondary btn-sm">
                <i class="bi bi-arrow-left"></i> Volver
            </a>
        </div>
    </div>

    @if (TempData["Success"] != null)
    {
        <div class="alert alert-success alert-dismissible fade show">
            <i class="bi bi-check-circle"></i> @TempData["Success"]
            <button type="button" class="btn-close" data-bs-dismiss="alert"></button>
        </div>
    }

    <div class="card mb-3">
        <div class="card-header">
            <i class="bi bi-search"></i> Buscar Remisión
        </div>
        <div class="card-body">
            <form method="get" class="row">
                <div class="col-md-3 mb-2">
                    <label class="form-label">Número de Remisión:</label>
                    <input type="number" class="form-control" name="Remision" value="@Model.Remision" />
                </div>
                <div class="col-md-2 mb-2 d-flex align-items-end">
                    <button type="submit" class="btn btn-primary"><i class="bi bi-search"></i> Buscar</button>
                </div>
            </form>
        </div>
    </div>

    @if (Model.RemisionInfo != null)
    {
        <div class="card mb-3">
            <div class="card-header">
                <i class="bi bi-info-circle"></i> Información de Remisión @Model.RemisionInfo.Numero
            </div>
            <div class="card-body">
                <div class="row">
                    <div class="col-md-4">
                        <strong>Cliente:</strong> @Model.RemisionInfo.Cliente
                    </div>
                    <div class="col-md-3">
                        <strong>Fecha:</strong> @Model.RemisionInfo.Fecha?.ToString("dd/MM/yyyy")
                    </div>
                    <div class="col-md-3">
                        <strong>Total:</strong> @Model.RemisionInfo.Total.ToString("C2")
                    </div>
                </div>
            </div>
        </div>

        @if (Model.Partidas.Any())
        {
            <form method="post">
                <input type="hidden" name="RemisionId" value="@Model.RemisionInfo.Numero" />
                <div class="card mb-3">
                    <div class="card-header">
                        <i class="bi bi-list"></i> Partidas para Certificar
                    </div>
                    <div class="card-body table-responsive">
                        <table class="table table-sm table-striped">
                            <thead class="table-dark">
                                <tr>
                                    <th>Partida</th>
                                    <th>Código</th>
                                    <th>Descripción</th>
                                    <th class="text-end">Cantidad</th>
                                    <th>Lote</th>
                                    <th>Certificado</th>
                                </tr>
                            </thead>
                            <tbody>
                                @foreach (var p in Model.Partidas)
                                {
                                    <tr>
                                        <td>@p.Partida</td>
                                        <td>@p.Codigo</td>
                                        <td>@p.Descripcion</td>
                                        <td class="text-end">@p.Cantidad.ToString("N2")</td>
                                        <td>
                                            <input type="text" class="form-control form-control-sm" 
                                                   name="Lote_@p.Partida" value="@p.Lote" style="width:100px" />
                                        </td>
                                        <td>
                                            <input type="text" class="form-control form-control-sm" 
                                                   name="Certificado_@p.Partida" value="@p.Certificado" style="width:120px" />
                                        </td>
                                    </tr>
                                }
                            </tbody>
                        </table>
                    </div>
                </div>

                <button type="submit" class="btn btn-primary">
                    <i class="bi bi-save"></i> Guardar Certificados
                </button>
            </form>
        }
    }
    else if (Model.Remision.HasValue)
    {
        <div class="alert alert-warning">
            <i class="bi bi-exclamation-triangle"></i> No se encontró la remisión: @Model.Remision
        </div>
    }
</div>

MATERIALES INDUSTRIALES DE MEXICO

fremcer.asp

Archivo ASP

Página Razor

Módulo

Líneas de Código

SELECT select Regrcer, Regrem, Regcer, Numcert, Numcol, cveprod

SQL Original (ASP)

SELECT Select Regfremd, Nrefremd, secfremd, Canfremd, codfremd, Nominv

SQL Original (ASP)

SELECT select * from Fpedm where usuario = '" & nombre & "' order by npedm;

SQL Original (ASP)

SELECT select Regrcer, Regrem, Regcer, Numcert, Numcol, cveprod from fremcer, certific...

SQL Original (ASP)

SELECT select * from Fpedm where usuario = '

SQL Original (ASP)

SELECT Select Regfremd, Nrefremd, secfremd, Canfremd, codfremd, Nominv from Fremdet, I...

SQL Original (ASP)