Detalle: transfer.asp

transfer.asp

Ir a la Página Volver a la Lista

Archivo ASP

transfer.asp

Página Razor

transfer

Módulo

Facturas

Líneas de Código

155

Características

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

Tablas Utilizadas (5)

Clientes Empresa FFACDET Ffacenc Monedas

Consultas SQL (3)

SQL Original (ASP)

Select * from Empresa;

Tablas: Empresa

SQL Original (ASP)

Select Numfface, Fecfface, Stafface, Clifface, Totfface, Nomcli, Fcta, FForma, MAX(ANTFFACD) as Remision, Desdiv  From Ffacenc  LEFT JOIN FFACDET ON NUMFFACE = NFAFFACD  left join Clientes on Clacli = Clifface  left join Monedas on monfface = Cladiv  where Timfface = 0 and Stafface = 'A'  GROUP BY Numfface, Fecfface, Stafface, Clifface, Totfface, Nomcli, Fcta, FForma, Desdiv  Order By Numfface desc

Tablas: Clientes FFACDET Ffacenc Monedas

SQL Original (ASP)

Select Numfface, Fecfface, Stafface, Clifface, Totfface, Nomcli, Fcta, FForma, MAX(ANTFFACD) as Remision, Desdiv

Comentarios y Notas (0)

No hay comentarios aún

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

Archivo ASP	Tipo	Módulo	Estado	Página Razor
`default.asp`	redirect	General	Pendiente	-

Enlaces Entrantes (1) Páginas que enlazan a esta página

Archivo ASP	Tipo	Módulo	Estado	Página Razor
`tranfermodg.asp`	redirect	Traspasos	Pendiente	-

<%  
	Option Explicit
	Session.LCID = 2058
'*****  SI NO HA INICIADO SESION ***
If 	Session("Mybussiness") = "" then
	Response.redirect("default.asp")
Else

Session.Timeout = 1200

'******* EN CASO DE ERROR ****
		Err.Clear
		On Error Resume Next	
'*** REMPLAZA
Function Sanea(Texto)
Sanea = Replace(Texto, "'", "''")
End Function
		
%> 
<!DOCTYPE html>
<HTML>
<HEAD>
    <meta charset="ISO-8859-1" />
	<TITLE>SISTEMA MIM <%= Session("Mybussiness")  %> USUARIO: <%= Session("MyName")  %></TITLE>
		<link href="css/Modulos.css" rel="stylesheet" />
		<link href="css/Buscador.css" rel="stylesheet" />
		
</HEAD>

<BODY>
<%
'***** Variables a la base de datos ****
Dim Cn1
Dim Rs11, Rs12, Rs13, Rs14, Rs15, Rs16, Rs17, Rs18, Rs19, Rs20, Rs21, Rs22, Rs23, Rs24, Rs25, Rs26, Rs27, Rs28, Rs29, Rs30
Dim Sql11, Sql12, Sql13, Sql14, Sql15, Sql16, Sql17, Sql18, Sql19, Sql20, Sql21, Sql22, Sql23, Sql24, Sql25, Sql26, Sql27, Sql28, Sql29, Sql30

'***** Conexion a la Base de Datos
Set Cn1 = Server.CreateObject( "ADODB.Connection" )
Cn1.Open "DRIVER={SQL Server};SERVER=172.17.0.5;UID="& Session("MyName") &";PWD="& Session("MyPass") &";Database="& Session("Mybussiness") &""

'***** Conexion A la Tabla Empresa ****
Set Rs11 = Server.CreateObject("ADODB.Recordset")
Sql11="Select * from Empresa;"
Rs11.Open Sql11,Cn1,1,2
		
%>

	<SECTION Class="HeaderGes">
			<div Id="DivHeadGes">
			<%= Rs11("Nombre") %><br>
			<%= Rs11("Direccion") %>, <%= Rs11("colonia") %><br>
			<%= Rs11("Poblacion") %>
			</div>
		

	</SECTION>

	<SECTION>

		<center>
		<br>
		<B>***** TRANSFERIR FACTURAS *****</B>

<%
	'***** Conexion A la Tabla Empresa ****
	Set Rs12 = Server.CreateObject("ADODB.Recordset")
	Sql12="Select Numfface, Fecfface, Stafface, Clifface, Totfface, Nomcli, Fcta, FForma, MAX(ANTFFACD) as Remision, Desdiv " &_
	"From Ffacenc " &_
	"LEFT JOIN FFACDET ON NUMFFACE = NFAFFACD " &_
	"left join Clientes on Clacli = Clifface " &_
	"left join Monedas on monfface = Cladiv " &_
	"where Timfface = 0 and Stafface = 'A' " &_
	"GROUP BY Numfface, Fecfface, Stafface, Clifface, Totfface, Nomcli, Fcta, FForma, Desdiv " &_
	"Order By Numfface desc;"
	Rs12.Open Sql12,Cn1,1,2	
	
	If Rs12.Eof Then
		
		Else
%>		
		<br><br>
		<Table Class="InvResultado">

			<Tr>
				<Td>Factura</td>
				<Td>Fecha</td>
				<Td>Status</td>
				<Td>Clave</td>
				<Td>Cliente</td>
				<Td>Total</td>
				<Td>Moneda</td>
				<Td>Forma_Pago</td>
				<Td>Remision</td>
				<Td colspan="2">Acciones</td>
			</Tr>
		<%
			Do While Not Rs12.EOF
		%>
			<Tr>
				<Td><%= Rs12("Numfface") %></td>
				<Td><%= Rs12("Fecfface") %></td>
				<Td Align="Center"><%= Rs12("Stafface") %></td>
				<Td><%= Rs12("Clifface") %></td>
				<Td><%= Rs12("Nomcli") %></td>
				<Td Align="Right"><%= Formatnumber(Rs12("Totfface")) %></td>
				<Td><%= Rs12("Desdiv") %></td>
				<Td Align="Center"><%= Rs12("FForma") %></td>
				<Td><%= Rs12("Remision") %></td>
				<Td Align="Center">
					<a Href="Tranfermod.asp?Factura=<%= Rs12("Numfface") %>">
						<Img src="Icon/Cambiar.gif" Height="25px">
					</a>
				</td>
				<Td Align="Center">
					<a Href="TranferAr.asp?Factura=<%= Rs12("Numfface") %>">
						<Img src="Image/Transfer.gif" Height="25px">
					</a>
				</td>
			</Tr>
		
		<%
			Rs12.Movenext
			Loop
		%>
		</Table>

<%
	End If
%>
	</SECTION>	

	
<%
		If Err.Number <> 0 Then
%>


<br><br>
NÃºmero de Error: <%= Err.Number %><BR>
DescripciÃ³n:  <%= Err.Description %><BR>		
Origen: <%= Err.Source %><BR>
Linea: <%= Err.Line %><BR>
<br>

<%
		Else
'****** FIN DE LOS ERRORES ***
	End If
%>			
</BODY>
</HTML>
<%
'FIN DE SESION
End If
%>

MATERIALES INDUSTRIALES DE MEXICO

transfer.asp

Archivo ASP

Página Razor

Módulo

Líneas de Código

SELECT Select * from Empresa;

SQL Original (ASP)

SELECT Select Numfface, Fecfface, Stafface, Clifface, Totfface, Nomcli, Fcta, FForma, M...

SQL Original (ASP)

SELECT Select Numfface, Fecfface, Stafface, Clifface, Totfface, Nomcli, Fcta, FForma, M...

SQL Original (ASP)