Detalle: fecrecibo.asp

fecrecibo.asp

Volver a la Lista

Archivo ASP

fecrecibo.asp

Página Razor

No asignada

Módulo

Logistica

Líneas de Código

158

Características

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

Tablas Utilizadas (1)

Fremenc

Consultas SQL (2)

SQL Original (ASP)

Select Numfreme, Nomcli, Min(Sigfremd) as Factura, Frfrenc

SQL Original (ASP)

Select Numfreme, Nomcli, Min(Sigfremd) as Factura, Frfrenc  From Fremenc, Fremdet, Clientes  Where Numfreme = Nrefremd and Clifreme = Clacli and Numfreme = "& Nremision &" Group by Numfreme, Nomcli, Frfrenc

Tablas: Fremenc

Comentarios y Notas (0)

No hay comentarios aún

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

Archivo ASP	Tipo	Módulo	Estado	Página Razor
`fecrecibog.asp`	form_action	General	Pendiente	-
`barra.asp`	include	General	Pendiente	-
`empresa.asp`	include	General	Pendiente	-
`general.asp`	include	General	Pendiente	-
`mpro.asp`	include	General	Pendiente	-
`user.asp`	include	General	Pendiente	-

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

No hay enlaces entrantes

<%@ Language=VBScript %>
<%  
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>
<!--#INCLUDE FILE="BARRA.asp"-->

<div class="normalw" style="position:absolute; top:1px">
<center>
<!--#include file="empresa.asp"--><br>
<hr>
</center>
</div>

<div class="normalw" style="position:absolute; top:1px;">
Bienvenido: <%= nombre %>. <br>
Hora Actual: <%= time %>
</div>
<div class="normalw" style="position:absolute; top:34px; left:1">
<!--#include file="mpro.asp"-->
</div>

<div class="Normal" style="position:absolute; top:60px; left:10">
<CENTER>
***** CAPTURA FECHA RECIBO REMISIONES ****
<HR>

<%
Dim Rs11, Sql11
Dim Nremision

Nremision = Request("Nremision")
If Nremision = "" or Isnull(Nremision) then
Nremision = "0"
Else
Nremision = Nremision
End If
%>

<Form action="Fecrecibo.asp" name="BuscaF" method='Post'>

<TABLE border=0 cellspacing=2 cellpadding=2 class="normal">

<Tr  bgcolor="#006699">
<TD align="Left" class="normalw">Remision: &nbsp;</td>
<Td align="center" class="normal">
<input type="text" class="normalb" Value="<%= Nremision %>" name="Nremision" size="7" style="text-align:right;" onChange="javascript:this.value=this.value.toUpperCase();"></td>
</Td>

</tr>
<Tr>
<td Colspan="3" Align="Center"> <input type="submit" value="Buscar" class="normalc"></td>
</tr>
</Table>
</form>

<hr>
<%
If Nremision = 0 then

%>

<br>***** Buscar Una remision ****

<%
Else
'***** aqui va el RS *****
Set Rs11 = server.CreateObject("ADODB.Recordset")
Sql11 = "Select Numfreme, Nomcli, Min(Sigfremd) as Factura, Frfrenc " &_
"From Fremenc, Fremdet, Clientes " &_
"Where Numfreme = Nrefremd and Clifreme = Clacli and Numfreme = "& Nremision &"" &_
"Group by Numfreme, Nomcli, Frfrenc;"
Rs11.Open Sql11,cn1,1,2

If Rs11.Eof then
%>
<b>
****** No Existe el Numero de Remision <%= Nremision %> ******
<%
Else
%>

<FORM action="Fecrecibog.asp" name="GrabaF" method='post'>
<input type="Hidden" Name="Nremision" value="<%= Nremision %>">
<table border="1" cellspacing="0" cellpadding="0">
<tr bgcolor="#336699">
<td align="center" Class="normalw"><b>Remision &nbsp;</td>
<td align="center" Class="normalw"><b>F. Recibo &nbsp;</td>
<td align="center" Class="normalw"><b>Factura &nbsp;</td>
<td align="center" Class="normalw"><b>Cliente &nbsp;</td>
</tr>

<%
Do while Not Rs11.Eof
%>

<tr>
<td align="Right" Class="normal"><b><%= Rs11("Numfreme") %> &nbsp;</td>
<td align="Right" Class="normal"><b>
<input type="text" Name="Frecibo" value="<%= Rs11("frfrenc") %>" size=10 Class="Normal" style="text-align:right;"></td>
<td align="Right" Class="normal"><b><%= Rs11("factura") %> &nbsp;</td>
<td align="Left" Class="normal"><b><%= Rs11("nomcli") %> &nbsp;</td>
</tr>


<%
Rs11.Movenext
Loop
%>

<tr>
<td align="center" Colspan="4" Class="normal">

<input type="Submit" value="Grabar" class="Normalb">
</td>
</tr>
</table>
</form>
<%
End If
End If
%>
</CENTER>

</div>
</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

fecrecibo.asp

Archivo ASP

Página Razor

Módulo

Líneas de Código

SELECT Select Numfreme, Nomcli, Min(Sigfremd) as Factura, Frfrenc

SQL Original (ASP)

SELECT Select Numfreme, Nomcli, Min(Sigfremd) as Factura, Frfrenc From Fremenc, Fremde...

SQL Original (ASP)