Detalle: fcotxls.asp

fcotxls.asp

Ir a la Página Volver a la Lista
Archivo ASP

fcotxls.asp
Página Razor

fcotxls
Módulo

General
Líneas de Código

329
Características
En Menú:	No
Formularios:	Ninguno
Consultas SQL:	Ninguna
Complejidad:	medium
Bases de Datos:	Session DB
Tablas Utilizadas (0)
No se detectaron tablas
Comentarios y Notas (0)
No hay comentarios aún
Enlaces Salientes (2) Páginas a las que esta página enlaza
Archivo ASP	Tipo	Módulo	Estado	Página Razor
`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
Response.Buffer = True
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "content-disposition", "inline; filename=Cotizacion: "& Request("Fcotnum") &".xls"



%>
<!--#include file="User.asp"-->
<!--#include file="general.asp"-->
<html>
<head>
<title>Grupo MIM</title>
<link rel=stylesheet href="view.css">
</head>
<BODY>

<div style="position:absolute; top:1px; left:10">
<%
Dim  Rs11, sql11, Rs12, Sql12, Rs13, Sql13, Rs14, Sql14
Dim Fcotnum, Tcliente, NombreC, Tentrega, Entrega, PrecioT

Fcotnum = request("Fcotnum")

set rs11 = server.CreateObject("ADODB.Recordset")
SQL11="SELECT * FROM EMPRESA"
rs11.open sql11,cn1,1,2

%>
<Table border="0">
<tr>

<Td>
</td>
<Td>
</td>
<Td>
</td>
<Td>
</td>
<Td>
<img src="image/mexico.jpg" WIDTH=80 HEIGHT=70>
</td>
</tr><tr></tr><tr></tr><tr></tr>
<tr>
<Td colspan="8" align="center" class="Encabc">
<%= Rs11("Nombre") %>
</td>
<tr>
<% 

set Rs12 = server.CreateObject("ADODB.Recordset")
SQL12="SELECT Clifcote FROM fcotenc where numfcote = "& Fcotnum &";"
rs12.open sql12,cn1,1,2
Tcliente = Rs12("Clifcote")

If Tcliente = "99999" then

set rs13 = server.CreateObject("ADODB.Recordset")
SQL13="SELECT numfcote, clifcote, Fecfcote, Fvafcote, Stafcote, monfcote, Totfcote, IVtFCOTE, SUBFCOTE, tcafcote, " &_
"OBSFCOTE, EMBFCOTE, LABFCOTE, ATEFCOTE, usufcote, confcote, IMRFCOTE, clifcotn, nomfcotn," &_
"dirfcotn, colfcotn, Pobfcotn, Edofcotn, Cpfcotn, RFCfcotn, Cladiv, desdiv, ABRDIV, Clausr, Nomusr, FCOTNEW.COTIZADOR " &_
"FROM Fcotenc, Fcotnew, Monedas, users " &_
"where numfcote = "& Fcotnum &" and numfcote = numfcotn and monfcote = cladiv and usufcote = clausr;"
rs13.open sql13,cn1,1,2

%>
<tr class="Encad"><td colspan=5><%=rs13("Nomfcotn")%><td></td><td align="center">COTIZACION</td></tr>
<tr class="Encad"><td colspan=5><%=rs13("Dirfcotn")%><td></td><td align="center"><%=rs13("Numfcote")%></td></tr>
<tr class="Encad"><td colspan=5><%=rs13("colfcotn")%><td></td><td align="center">FECHA</td></tr>
<tr class="Encad"><td colspan=5>Atn:<%=rs13("ATEFCOTE")%><td></td><td align="center"><%=rs13("Fecfcote")%></td></tr>
<tr></tr>
<tr class="Encad"><td colspan=5>Muy Sres. nuestros:</td></tr>
<tr class="Encad"><td colspan=5>A continuación ponemos a su consideración la siguiente cotización:</td></tr>
<tr class="Encad" align="center">
<td>Ptda</td>
<td>Cantidad</td>
<td>U.M</td>
<td>Codigo</td>
<td Colspan="2">Descripción del Producto</td>
<td>Entrega</td>
<td>Precio</td>
<td>Importe</td>
</tr>
<%
set rs14 = server.CreateObject("ADODB.Recordset")
SQL14="select ncofcotd, secfcotd, almfcotd, codfcotd, canfcotd, fpefcotd, unifcotd, obsfcotd, cveinv, nominv, udminv, " &_
"pesoinv, claalm, desalm From fcotdet, inventarios, almacenes " &_
"where codfcotd = cveinv and claalm = almfcotd and ncofcotd = "& Fcotnum &" order by secfcotd;"
rs14.open sql14,cn1,1,2

Do while Not(Rs14.EOF)

Tentrega = rs14("fpefcotd")
If Tentrega = 1 Then
Entrega =  "STOCK"
else If Tentrega = 0 then
Entrega = ""
ELSE
Entrega = Tentrega & " Dias Habiles"
end if
END IF
%>
<Tr Class="Encaa">
<td><%=Rs14("Secfcotd")%></td>
<td><%=Rs14("Canfcotd")%></td>
<td><%=Rs14("Udminv")%></td>
<td><%=Rs14("codfcotd")%></td>
<td colspan="2"><%=Rs14("Nominv")%></td>
<td><%=Entrega%></td>
<td><%=formatnumber(Rs14("Unifcotd"))%></td>
<td><%=formatnumber(cdbl(Rs14("Canfcotd"))*cdbl(Rs14("Unifcotd")))%></td>
<%
if isnull(rs14("obsfcotd")) then
else
%>
<Tr Class="Encaa">
<td></td><td></td>
<td colspan="4"><%=Rs14("obsfcotd")%></td>
</tr>
<%
End If
%>
<%
rs14.Movenext
loop%>
<Tr Class="Encaa">
<td></td><td></td><td></td><td></td><td></td><td></td>
<td>Subtotal:</td>
<td><%=formatnumber(Rs13("Subfcote"))%></td>
</tr>
<Tr Class="Encaa">
<td></td><td></td><td></td><td></td><td></td><td></td>
<td>IVA:</td>
<td><%=formatnumber(Rs13("ivtfcote"))%></td>
</tr>
<Tr Class="Encaa">
<td></td><td></td><td></td><td></td><td></td><td></td>
<td>Retencion:</td>
<td><%=formatnumber(Rs13("Imrfcote"))%></td>
</tr>
<Tr Class="Encaa">
<td></td><td></td><td></td><td></td><td></td><td></td>
<td>Total:</td>
<td><%=formatnumber(Rs13("Totfcote"))%></td>
</tr>
<Tr Class="Encaa">
<td colspan="3">NOTAS:</td>
<td Colspan="3">***** PRECIOS SUJETOS A CAMBIOS SIN PREVIO AVISO *****</td>
</tr>
<Tr Class="Encaa">
<td colspan="3">CONDICIONES DE PAGO:</td>
<td Colspan="3"><%=Rs13("Confcote")%></td>
</tr>
<Tr Class="Encaa">
<td colspan="3">REFERENCIA CLIENTE:</td>
<td Colspan="3"><%=Rs13("Labfcote")%></td>
</tr>
<Tr Class="Encaa">
<td colspan="3">REFERENCIA CLIENTE:</td>
<td Colspan="3"><%=Rs13("Embfcote")%></td>
</tr>
<tr></tr>
<%
If cdbl(rs13("Monfcote")) = 1 Then
%>
<Tr Class="Encaa">
<td colspan="8">LOS PRECIOS SON EN MONEDA NACIONAL.</td>
</tr>
<% else %>
<Tr Class="Encaa">
<td colspan="8">LOS PRECIOS SON EN DOLARES USD, HASTA UNA PARIDAD DE <%=rs13("Tcafcote")%> EN CASO DE REBASARSE ESTA, SE RENEGOCIARAN LOS PRECIOS</td>
</tr>
<Tr Class="Encaa">
<td colspan="8">DE ACUERDO A LA NUEVA PARIDAD</td>
</tr>
<% end if %>
<Tr Class="Encaa">
<td colspan="8">EXISTENCIAS SUJETOS A CAMBIOS SIN PREVIO AVISO</td>
</tr>
<Tr Class="Encaa">
<td colspan="8">SIN MAS POR EL MOMENTO Y EN ESPERA DE VERNOS FAVORECIDOS CON SU PEDIDO, NOS REITERAMOS A SUS ORDENES.</td>
</tr>
<%
else

set rs13 = server.CreateObject("ADODB.Recordset")
SQL13="SELECT numfcote, clifcote, Fecfcote, Fvafcote, Stafcote, monfcote, Totfcote, IVtFCOTE, SUBFCOTE, tcafcote, desdiv, " &_
"OBSFCOTE, EMBFCOTE, LABFCOTE, ATEFCOTE, usufcote, confcote, IMRFCOTE, clacli, nomcli," &_
"calcli, colcli, Pobcli, Edocli, Cpcli, RFCcli, Cladiv, desdiv, ABRDIV, Cvevend, Nomvend, cOTIZADOR " &_
"FROM Fcotenc, clientes, Monedas, vendedores " &_
"where numfcote = "& Fcotnum &" and clacli = clifcote and monfcote = cladiv and cvevend = vencli;"
rs13.open sql13,cn1,1,2
%>
<tr class="Encad"><td colspan=5><%=rs13("Nomcli")%><td></td><td align="center">COTIZACION</td></tr>
<tr class="Encad"><td colspan=5><%=rs13("Calcli")%><td></td><td align="center"><%=rs13("Numfcote")%></td></tr>
<tr class="Encad"><td colspan=5><%=rs13("Colcli")%><td></td><td align="center">FECHA</td></tr>
<tr class="Encad"><td colspan=5>Atn:<%=rs13("ATEFCOTE")%><td></td><td align="center"><%=rs13("Fecfcote")%></td></tr>
<tr></tr>
<tr class="Encad"><td colspan=5>Muy Sres. nuestros:</td></tr>
<tr class="Encad"><td colspan=5>A continuación ponemos a su consideración la siguiente cotización:</td></tr>
<tr class="Encad" align="center">
<td>Ptda</td>
<td>Cantidad</td>
<td>U.M</td>
<td>Codigo</td>
<td Colspan="2">Descripción del Producto</td>
<td>Entrega</td>
<td>Precio</td>
<td>Importe</td>
</tr>
<%
set rs14 = server.CreateObject("ADODB.Recordset")
SQL14="select ncofcotd, secfcotd, almfcotd, codfcotd, canfcotd, fpefcotd, unifcotd, obsfcotd, cveinv, nominv, udminv, " &_
"pesoinv, claalm, desalm From fcotdet, inventarios, almacenes " &_
"where codfcotd = cveinv and claalm = almfcotd and ncofcotd = "& Fcotnum &" order by secfcotd;"
rs14.open sql14,cn1,1,2

Do while Not(Rs14.EOF)

Tentrega = rs14("fpefcotd")
If Tentrega = 1 Then
Entrega =  "STOCK"
else If Tentrega = 0 then
Entrega = ""
ELSE
Entrega = Tentrega & " Dias Habiles"
end if
END IF
%>
<Tr Class="Encaa">
<td><%=Rs14("Secfcotd")%></td>
<td><%=Rs14("Canfcotd")%></td>
<td><%=Rs14("Udminv")%></td>
<td><%=Rs14("codfcotd")%></td>
<td colspan="2"><%=Rs14("Nominv")%></td>
<td><%=Entrega%></td>
<td><%=formatnumber(Rs14("Unifcotd"))%></td>
<td><%=formatnumber(cdbl(Rs14("Canfcotd"))*cdbl(Rs14("Unifcotd")))%></td>
<%
if isnull(rs14("obsfcotd")) then
else
%>
<Tr Class="Encaa">
<td></td><td></td>
<td colspan="4"><%=Rs14("obsfcotd")%></td>
</tr>
<%
End If
%>
<%
rs14.Movenext
loop%>
<Tr Class="Encaa">
<td></td><td></td><td></td><td></td><td></td><td></td>
<td>Subtotal:</td>
<td><%=formatnumber(Rs13("Subfcote"))%></td>
</tr>
<Tr Class="Encaa">
<td></td><td></td><td></td><td></td><td></td><td></td>
<td>IVA:</td>
<td><%=formatnumber(Rs13("ivtfcote"))%></td>
</tr>
<Tr Class="Encaa">
<td></td><td></td><td></td><td></td><td></td><td></td>
<td>Retencion:</td>
<td><%=formatnumber(Rs13("Imrfcote"))%></td>
</tr>
<Tr Class="Encaa">
<td></td><td></td><td></td><td></td><td></td><td></td>
<td>Total:</td>
<td><%=formatnumber(Rs13("Totfcote"))%></td>
</tr>
<Tr Class="Encaa">
<td colspan="3">NOTAS:</td>
<td Colspan="3">***** PRECIOS SUJETOS A CAMBIOS SIN PREVIO AVISO *****</td>
</tr>
<Tr Class="Encaa">
<td colspan="3">CONDICIONES DE PAGO:</td>
<td Colspan="3"><%=Rs13("Confcote")%></td>
</tr>
<Tr Class="Encaa">
<td colspan="3">REFERENCIA CLIENTE:</td>
<td Colspan="3"><%=Rs13("Labfcote")%></td>
</tr>
<Tr Class="Encaa">
<td colspan="3">EMBARCAR A:</td>
<td Colspan="3"><%=Rs13("Embfcote")%></td>
</tr>
<tr></tr>
<%
If cdbl(rs13("Monfcote")) = 1 Then
%>
<Tr Class="Encaa">
<td colspan="8">LOS PRECIOS SON EN MONEDA NACIONAL.</td>
</tr>
<% else %>
<Tr Class="Encaa">
<td colspan="8">LOS PRECIOS SON EN DOLARES USD, HASTA UNA PARIDAD DE <%=rs13("Tcafcote")%> EN CASO DE REBASARSE ESTA, SE RENEGOCIARAN LOS PRECIOS</td>
</tr>
<Tr Class="Encaa">
<td colspan="8">DE ACUERDO A LA NUEVA PARIDAD</td>
</tr>
<% end if %>
<Tr Class="Encaa">
<td colspan="8">EXISTENCIAS SUJETOS A CAMBIOS SIN PREVIO AVISO</td>
</tr>
<Tr Class="Encaa">
<td colspan="8">SIN MAS POR EL MOMENTO Y EN ESPERA DE VERNOS FAVORECIDOS CON SU PEDIDO, NOS REITERAMOS A SUS ORDENES.</td>
</tr>

<% end if %>

</table>

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

fcotxls.asp

Archivo ASP

Página Razor

Módulo

Líneas de Código
