<%@LANGUAGE="VBSCRIPT"%>
<%
Option Explicit
Session.LCID = 2058
%>
<!--#include file="User.asp"-->
<!--#include file="general.asp"-->
<html>
<head>
<meta charset="utf-8"/>
<title>::: Sistema 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>
<!--#INCLUDE FILE="BARRA.asp"-->
<div class="normalw" style="position:absolute; top:1px;">
Bienvenido: <%= nombre %>. <br>
Hora Actual: <%= time %>
</div>
<div class="normal" style="position:absolute; top:60px; left:10">
<%
Dim Rs5
Dim Sql5
set Rs5 = server.CreateObject("ADODB.Recordset")
Sql5 = "select * from ffacm where usuario = '" & nombre & "' order by Ffacs;"
Rs5.Open Sql5,Cn1,1,2
%>
<%
Do while Not Rs5.EOF
%>
<a href="<%= Rs5("ffacm") %>.asp"><img src="Image/<%= Rs5("Ffacn") %>.gif" border=0 alt="<%= Rs5("Ffacn") %>" Title="<%= Rs5("Ffacn") %>"></a>
<%
Rs5.MoveNext
Loop
%>
</div>
<div class="normal" style="position:Relative; top:110px; left:1">
<center>
<hr>
Gestor de Facturas
<HR>
<Table border=0 cellspacing=1 cellpadding=1 class="normal">
<Form action="ffacgesV.asp" name="ffacges" method="Post">
<Tr>
<TD align="Left" class="normalw" bgcolor="#006699">Factura</td>
<TD align="Left" class="normalw" bgcolor="#006699">
<input type="text" class="normalb" Value="0" name="Nfactura" size="7" style="text-align:right;" onChange="javascript:this.value=this.value.toUpperCase();">
</td>
</tr>
<Tr>
<TD align="Center" class="normalw" bgcolor="#006699" Colspan="2">
<input type="submit" value="Buscar" class="normalc">
</td>
</tr>
</form>
</Table>
<%
'******* BUSCAMOS LA REMISION ******
Dim Nfactura, FolioR
Dim Rs11, Rs12
Dim Sql11, Sql12
Nfactura = Request("Nfactura")
'***** VERIFICA QUE EL NUMERO DE REMISION NO SEA NULO, VACIO O CERO ****
If Nfactura = "" or Isnull(Nfactura) or Nfactura = 0 Then
Else
Set Rs11 = server.CreateObject("ADODB.Recordset")
Sql11 = "Select Numfface, Clifface, Nomcli, Fecfface, Antffacd " &_
"From ffacdet, Ffacenc, Clientes " &_
"where Numfface = nfaffacd and Clacli = Clifface and Numfface = "& Nfactura & " " &_
"group by Numfface, Clifface, Nomcli, Fecfface, Antffacd " &_
"Order by Antffacd;"
Rs11.Open Sql11,cn1,1,2
If Rs11.EOF Then
Else
%>
<br>
<Table border=0 cellspacing=1 cellpadding=1 class="normal">
<Tr>
<TD align="Left" class="normalw" bgcolor="#006699">Factura</td>
<TD align="Left" class="normalw" bgcolor="#006699">Remision</td>
<TD align="Left" class="normalw" bgcolor="#006699">Clave</td>
<TD align="Left" class="normalw" bgcolor="#006699">Cliente</td>
<TD align="Left" class="normalw" bgcolor="#006699">Fecha</td>
</Tr>
<%
Do While Not Rs11.EOF
%>
<Tr>
<TD align="Right" class="normal"><%= Rs11("Numfface") %></td>
<TD align="Right" class="normal"><b><%= Rs11("Antffacd") %></b></td>
<TD align="Right" class="normal"><%= Rs11("Clifface") %></td>
<TD align="Left" class="normal"><%= Rs11("Nomcli") %></td>
<TD align="Left" class="normal"><%= Rs11("Fecfface") %></td>
</Tr>
<%
Rs11.MoveNext
Loop
%>
<%
Dim fso
Dim Carpetas, Carpeta
Dim fol
Dim A
Set fso = Server.CreateObject("scripting.fileSystemObject")
' Comprobamos si existe la carpeta. Si no existe la creamos
if (Not fso.FolderExists(server.MapPath("/MEXICO/CF8D0F062C06A76D46B28EDC2DB0D61EF627ECA5/"& Nfactura &""))) then
Set fol = fso.CreateFolder(server.MapPath("/MEXICO/CF8D0F062C06A76D46B28EDC2DB0D61EF627ECA5/"& Nfactura &""))
end if
Set Carpeta = fso.GetFolder(server.MapPath("/MEXICO/CF8D0F062C06A76D46B28EDC2DB0D61EF627ECA5/"& Nfactura &""))
%>
<Tr>
<td ColspaN="4">
<hr>
<Table border=0 cellspacing=1 cellpadding=1 class="normal" width="600px">
<Tr>
<TD align="Left" class="normalw" bgcolor="#006699">Nombre</td>
<TD align="Left" class="normalw" bgcolor="#006699">Fecha_Modificación</td>
<TD align="Left" class="normalw" bgcolor="#006699">Tipo</td>
<TD align="Left" class="normalw" bgcolor="#006699">Tamaño</td>
</Tr>
<%
for each A in Carpeta.files
%>
<Tr>
<td>
<a href="CF8D0F062C06A76D46B28EDC2DB0D61EF627ECA5/<%= Nfactura %>/<%= A.name %>" onclick="NewWindow(this.href,'GestorImp','1024','800','yes');return false;">
<%= A.name %></a>
</td>
<td><%= A.DateLastModified %></td>
<td><%= A.Type %></td>
<td Align="Right"><%= formatnumber((A.Size/1024),0) %> KB</td>
</Tr>
<%
next
%>
</table>
</td>
</tr>
</Table>
<hr>
<%
End If
End If
%>
</div>
</body>
</html>
<%
End Sub
'Add the chosen course to the cart
Call AddUsuario()
'Display contents of electronic shopping cart
Call DisplayUsuario()
%>