Detalle: transferncr.asp

transferncr.asp

Volver a la Lista

Archivo ASP

transferncr.asp

Página Razor

No asignada

Módulo

Facturas

Líneas de Código

159

Características

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

Tablas Utilizadas (4)

Clientes Cxcncr Empresa Monedas

Consultas SQL (3)

SQL Original (ASP)

Select * from Empresa;

Tablas: Empresa

SQL Original (ASP)

Select Numncr, Fecncr, TipoD, Clincr, Nomcli, Fcta, FForma, ImpNcr, DocNcr, Desdiv

SQL Original (ASP)

Select Numncr, Fecncr, TipoD, Clincr, Nomcli, Fcta, FForma, ImpNcr, DocNcr, Desdiv  From Cxcncr left join Clientes on Clacli = Clincr  left join Monedas on Monncr = Cladiv  where Timncr = 0  Order By Numncr desc

Tablas: Clientes Cxcncr Monedas

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 (3) Páginas que enlazan a esta página

Archivo ASP	Tipo	Módulo	Estado	Página Razor
`cxcncrn.asp`	redirect	CXC	Pendiente	-
`ffacdevg.asp`	redirect	General	Portada	ffacdevg
`tranfermodupncr.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, Tipo
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 NOTAS DE CREDITO *****</B>

<%
	'***** Conexion A la Tabla Empresa ****
	Set Rs12 = Server.CreateObject("ADODB.Recordset")
	Sql12="Select Numncr, Fecncr, TipoD, Clincr, Nomcli, Fcta, FForma, ImpNcr, DocNcr, Desdiv " &_
	"From Cxcncr left join Clientes on Clacli = Clincr " &_
	"left join Monedas on Monncr = Cladiv " &_
	"where Timncr = 0 " &_
	"Order By Numncr desc;"
	Rs12.Open Sql12,Cn1,1,2	
	
		
	If Rs12.Eof Then
		
		Else
%>		
		<br><br>
		<Table Class="InvResultado">

			<Tr>
				<Td>Nota</td>
				<Td>Fecha</td>
				<Td>Tipo</td>
				<Td>Factura</td>
				<Td>Clave</td>
				<Td>Cliente</td>
				<Td>Total</td>
				<Td>Moneda</td>
				<Td>Forma_Pago</td>
				<Td colspan="2">Acciones</td>
			</Tr>
		<%
			Do While Not Rs12.EOF

			If Rs12("TipoD") = 0 Then
				Tipo = "Descuento"
			else
				Tipo = "DevoluciÃ³n"
			End If
		%>
			<Tr>
				<Td><%= Rs12("Numncr") %></td>
				<Td><%= Rs12("Fecncr") %></td>
				<Td Align="Center"><%= cstr(Tipo) %></td>
				<Td><%= Rs12("DocNcr") %></td>
				<Td><%= Rs12("Clincr") %></td>
				<Td><%= Rs12("Nomcli") %></td>
				<Td Align="Right"><%= Rs12("ImpNcr") %></td>
				<Td><%= Rs12("Desdiv") %></td>
				<Td Align="Center"><%= Rs12("FForma") %></td>
				<Td Align="Center">
					<a Href="TransfermodNcr.asp?Nota=<%= Rs12("Numncr") %>">
						<Img src="Icon/Cambiar.gif" Height="25px">
					</a>
				</td>
				<Td Align="Center">
					<a Href="TranferAr.asp?Nota=<%= Rs12("Numncr") %>">
						<Img src="Image/TransferNcr.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

transferncr.asp

Archivo ASP

Página Razor

Módulo

Líneas de Código

SELECT Select * from Empresa;

SQL Original (ASP)

SELECT Select Numncr, Fecncr, TipoD, Clincr, Nomcli, Fcta, FForma, ImpNcr, DocNcr, Desd...

SQL Original (ASP)

SELECT Select Numncr, Fecncr, TipoD, Clincr, Nomcli, Fcta, FForma, ImpNcr, DocNcr, Desd...

SQL Original (ASP)