Detalle: fremnot.asp

fremnot.asp

Volver a la Lista

Archivo ASP

fremnot.asp

Página Razor

No asignada

Módulo

Logistica

Líneas de Código

143

Características

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

Tablas Utilizadas (2)

Fremdet Fremm

Consultas SQL (4)

SQL Original (ASP)

Select Regfremd, Nrefremd, Secfremd, codfremd, canfremd, Nominv

SQL Original (ASP)

select * from Fremm where usuario = '

Tablas: Fremm

SQL Original (ASP)

Select Regfremd, Nrefremd, Secfremd, codfremd, canfremd, Nominv  from Fremdet, Inventarios  where Nrefremd = "& Numrem &" and Cveinv = Codfremd  Order by secfremd

Tablas: Fremdet

SQL Original (ASP)

select * from Fremm where usuario = '"& nombre &"' ORDER BY NREMM ASC

Tablas: Fremm

Comentarios y Notas (0)

No hay comentarios aún

Enlaces Salientes (3) Páginas a las que esta página enlaza

Archivo ASP	Tipo	Módulo	Estado	Página Razor
`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><br>

<%
Dim Rs5
Dim Sql5

Set Rs5 = server.CreateObject("ADODB.Recordset")
Sql5 = "select * from Fremm where usuario = '"& nombre &"' ORDER BY NREMM ASC"
Rs5.open Sql5,cn1,1,2
%>

<%
Do while not Rs5.EOF
%>
<a href="<%= Rs5("Fremm") %>.asp"><img src="Image/<%= Rs5("fremn") %>.gif" border=0 Alt="<%= rs5("fremn") %>"></a>
<%
Rs5.MoveNext
Loop
%>

<%
Dim Rs11
Dim Sql11
Dim Numrem

Numrem = Request("Numrem")

%>
<br><br><br>
<Form action="Fremnot.asp" name="Tracking" method="Post">
<TABLE border=0 cellspacing=0 cellpadding=0 class="normal">
<tr>
<td Class="Normalb">Numero de Remision: &nbsp;</td>
<td><input type=text class=normalb name="Numrem" id="Numrem" size="7" Value="<%= Numrem %>" Style="text-align:Right"></td>

<td>&nbsp <input type="submit" value="Buscar" class=normalb></td>
</tr>
</table>
</Form>

<%
If Numrem = "" or Isnull(Numrem) Then
%>
	<b>Buscar un numero de orden de compra <br></b>
<%
Else
Set Rs11 = server.CreateObject("ADODB.Recordset")
Sql11 = "Select Regfremd, Nrefremd, Secfremd, codfremd, canfremd, Nominv " &_
"from Fremdet, Inventarios " &_
"where Nrefremd = "& Numrem &" and Cveinv = Codfremd " &_
"Order by secfremd;"
Rs11.Open Sql11,Cn1,1,2
	
	If Rs11. Eof Then
	%>
	
	<b>El numero de la Remision Seleccionada no existe <br></b>
	
	<%
	Else
	%>
  <Table Border="1" Cellspacing="2" Cellpadding="2">

	<tr>
		<Td Class="Negrita">Remision</Td>
		<Td Class="Negrita">Partida</Td>
		<Td Class="Negrita">Codigo</Td>
		<Td Class="Negrita">Descripcion</Td>
		<Td Class="Negrita">Cantidad</Td>
		<Td Class="Negrita">Nota</Td>
		<Td Class="Negrita">Oc cliente</Td>
	</Tr>	
	
	<%
	Do while Not Rs11.Eof
	%>
	<Tr>
	<Td Class="Normal" Align="Right"><%= Rs11("Nrefremd") %> </td>
	<Td Class="Normal" Align="Right"><%= Rs11("Secfremd") %> </td>
	<Td Class="Normal"><%= Rs11("codfremd") %> </td>
	<Td Class="Normal"><%= Rs11("Nominv") %> </td>
	<Td Class="Normal"><%= Rs11("Canfremd") %> </td>
	<Td Class="Normal" Align="center">
	<a href="Fremnota.asp?Registro=<%=rs11("Regfremd")%>" onclick="NewWindow(this.href,'Pedido','640','480','yes');return false;"">
	<img src="image/nota.gif" border="0" width="20px" Alt="Partida <%= rs11("Secfremd") %>" Title="Partida <%= rs11("Secfremd") %>">
	</td>
	<Td Class="Normal" Align="center">
	<a href="FremnotaOC.asp?Registro=<%=rs11("Regfremd")%>" onclick="NewWindow(this.href,'Pedido','640','480','yes');return false;"">
	<img src="image/nota.gif" border="0" width="20px" Alt="Partida <%= rs11("Secfremd") %>" Title="Partida <%= rs11("Secfremd") %>">
	</td>
	</tr>
	
	<%
	Rs11.MoveNext
	Loop
	%>
	
	</Table>
	<%
	End If
End If
%>

</body>
</html>
<%  
End Sub 
'Add the chosen course to the cart
 Call AddUsuario() 
'Display contents of electronic shopping cart
 Call DisplayUsuario()
%>

MATERIALES INDUSTRIALES DE MEXICO

fremnot.asp

Archivo ASP

Página Razor

Módulo

Líneas de Código

SELECT Select Regfremd, Nrefremd, Secfremd, codfremd, canfremd, Nominv

SQL Original (ASP)

SELECT select * from Fremm where usuario = '

SQL Original (ASP)

SELECT Select Regfremd, Nrefremd, Secfremd, codfremd, canfremd, Nominv from Fremdet, I...

SQL Original (ASP)

SELECT select * from Fremm where usuario = '"& nombre &"' ORDER BY NREMM ASC

SQL Original (ASP)