Detalle: fremcfac.asp

fremcfac.asp

Ir a la Página Volver a la Lista

Archivo ASP

fremcfac.asp

Página Razor

fremcfac

Módulo

Facturas

Líneas de Código

139

Características

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

Tablas Utilizadas (6)

Ffacenc Fpedm fdevdet ffacdet fremdet inventarios

Consultas SQL (4)

SQL Original (ASP)

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

Tablas: Fpedm

SQL Original (ASP)

select Nfaffacd, Fecfface, ANTFREMD, Codffacd, Nominv, Udminv, Canffacd, cdeffacd, Numfdevd

SQL Original (ASP)

select Nfaffacd, Fecfface, ANTFREMD, Codffacd, Nominv, Udminv, Canffacd, cdeffacd, Numfdevd  From Ffacenc left join ffacdet on Numfface = nfaffacd left join inventarios on Codffacd = cveinv left join fdevdet on regffacd = RanFdevd  left join fremdet on rgrffacd = REGFREMD  Where Antffacd = "& Numrem &

Tablas: ffacdet fdevdet fremdet Ffacenc inventarios

SQL Original (ASP)

select * from Fpedm where usuario = '

Tablas: Fpedm

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>Sistema MIM Mexico</TITLE>
<link rel=stylesheet href="vista.css">
</HEAD>

<BODY>
<CENTER>
<!--#include file="empresa.asp"-->
</center>
<br><br>

<%
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("Fpedm")%>.asp"><img src="Image/<%=rs5("fpedn")%>.gif" border=0 alt="<%=rs5("fpedn")%>" title="<%=rs5("fpedn")%>"></a>
<%
Rs5.MoveNext
Loop
Rs5.Close
%>

<%
Dim Rs10
Dim Sql10
Dim NumRem

Numrem = Request("Numrem")

%>

<Center>
<br>
<br>
<Form action="Fremcfac.asp" name="Fremcfac" 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> Capturar el Numero de Remision</b>
<br>

<%
	Else

	Set Rs10 = server.CreateObject("ADODB.Recordset")
	Sql10 = "select Nfaffacd, Fecfface, ANTFREMD, Codffacd, Nominv, Udminv, Canffacd, cdeffacd, Numfdevd " &_
	"From Ffacenc left join ffacdet on Numfface = nfaffacd left join inventarios on Codffacd = cveinv left join fdevdet on regffacd = RanFdevd " &_
	"left join fremdet on rgrffacd = REGFREMD " &_
	"Where Antffacd = "& Numrem &";"
	Rs10.open Sql10,Cn1,1,2	
	
	If Rs10.Eof Then
	%>
	
	<b>El Numero de Remision no existe </b>
	<br>
	
	<%
		Else
		%>
		<Table Border="0" Cellspacing="1" Cellpadding="2">
			<Tr>
				<Td Class="Normalb">Factura </Td>
				<Td Class="Normalb">Fecha </Td>
				<Td Class="Normalb">Pedido </Td>
				<Td Class="Normalb">Codigo </Td>
				<Td Class="Normalb">Descripcion </Td>
				<Td Class="Normalb">UDM </Td>
				<Td Class="Normalb">Cantidad </Td>
				<Td Class="Normalb">Devolucion </Td>
				<Td Class="Normalb">Nota de Credito </Td>
			</Tr>
			
			<%
			Do While Not Rs10.Eof
			%>

			<Tr>
				<Td Class="Normalb" Align="Right"><%= Rs10("Nfaffacd") %> </Td>
				<Td Class="Normalb" Align="Right"><%= Rs10("Fecfface") %> </Td>
				<Td Class="Normalb" Align="Right"><%= Rs10("ANTFREMD") %> </Td>
				<Td Class="Normalb" Align="Left"><%= Rs10("Codffacd") %> </Td>
				<Td Class="Normalb" Align="Left"><%= Rs10("Nominv") %> </Td>
				<Td Class="Normalb" Align="Left"><%= Rs10("Udminv") %> </Td>
				<Td Class="Normalb" Align="Right"><%= Formatnumber(Rs10("Canffacd")) %> </Td>
				<Td Class="Normalb" Align="Right"><%= Formatnumber(Rs10("cdeffacd")) %> </Td>
				<Td Class="Normalb" Align="Right"><%= Rs10("Numfdevd") %> </Td>				
			</Tr>
			
			<%
			Rs10.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

fremcfac.asp

Archivo ASP

Página Razor

Módulo

Líneas de Código

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

SQL Original (ASP)

SELECT select Nfaffacd, Fecfface, ANTFREMD, Codffacd, Nominv, Udminv, Canffacd, cdeffac...

SQL Original (ASP)

SELECT select Nfaffacd, Fecfface, ANTFREMD, Codffacd, Nominv, Udminv, Canffacd, cdeffac...

SQL Original (ASP)

SELECT select * from Fpedm where usuario = '

SQL Original (ASP)