Detalle: fremcerc.asp

fremcerc.asp

Ir a la Página Volver a la Lista

Archivo ASP

fremcerc.asp

Página Razor

Facturas/Fremcerc.cshtml

Módulo

Facturas

Líneas de Código

206

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 Regfremd, Nrefremd, secfremd, canfremd, codfremd, Nominv, coladas  from Fremdet, Inventarios  where nrefremd = "& Nremision &" and Codfremd = cveinv  order by secfremd

Tablas: Fremdet

SQL Original (ASP)

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

Tablas: fremcer

SQL Original (ASP)

Select Regfremd, Nrefremd, secfremd, canfremd, codfremd, Nominv, coladas

SQL Original (ASP)

select Regrem, Regcer, Numcert, Numcol, cveprod

SQL Original (ASP)

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

Tablas: Fpedm

SQL Original (ASP)

select * from Fpedm where usuario = '

Tablas: Fpedm

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>
Consulta Certificados de Calidad en Remisiones

<HR>

<Table border=0 cellspacing=1 cellpadding=1 class="normal">
<Form action="Fremcerc.asp" name="Fremcerc" 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, coladas " &_
"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">Colada</td>
</Tr>

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

%>
<Tr>
<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="Left" class="normal"><%= Rs11("Coladas") %></td>
</Tr>

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

<%

Set Rs12 = server.CreateObject("ADODB.Recordset")
Sql12 = "select 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>
</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>
</Tr>

<%
Rs12.Movenext
Loop
%>
</Table>
<%
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.RazorPages;
namespace MimPortal.Pages.Facturas { public class FremcercModel : PageModel { public void OnGet() { } } }

@page
@model MimPortal.Pages.Facturas.FremcercModel
@{ ViewData["Title"] = "Fremcerc"; }
<div class="container-fluid">
    <h4 class="mb-4"><i class="fas fa-file"></i> Fremcerc</h4>
    <div class="card"><div class="card-body">
        <p>Módulo Fremcerc - En desarrollo</p>
    </div></div>
</div>

MATERIALES INDUSTRIALES DE MEXICO

fremcerc.asp

Archivo ASP

Página Razor

Módulo

Líneas de Código

SELECT Select Regfremd, Nrefremd, secfremd, canfremd, codfremd, Nominv, coladas from F...

SQL Original (ASP)

SELECT select Regrem, Regcer, Numcert, Numcol, cveprod from fremcer, certificados whe...

SQL Original (ASP)

SELECT Select Regfremd, Nrefremd, secfremd, canfremd, codfremd, Nominv, coladas

SQL Original (ASP)

SELECT select Regrem, Regcer, Numcert, Numcol, cveprod

SQL Original (ASP)

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

SQL Original (ASP)

SELECT select * from Fpedm where usuario = '

SQL Original (ASP)