%@ Language=VBScript %>
<%
Option Explicit
Dim conexion,registros,registros2,sql,contacto,empresa,clave,total_var,i,status,status_hora,ahora,hora
Dim dias_var,horas_var,minutos_var
Set conexion= Server.CreateObject ("ADODB.connection")%>
<%conexion.Open
Set registros = Server.CreateObject ("ADODB.RECORDSET")
Set registros2 = Server.CreateObject ("ADODB.RECORDSET")
Dim diasemana,dia,mes,anno,mimes,misemana,estedia
diasemana=weekday(now)
dia=day(now)
mes=month(now)
anno=year(now)
select case diasemana
case 1 misemana="Domingo"
case 2 misemana="Lunes"
case 3 misemana="Martes"
case 4 misemana="Miércoles"
case 5 misemana="Jueves"
case 6 misemana="Viernes"
case 7 misemana="Sábado"
end select
select case mes
case 1 mimes="enero"
case 2 mimes="febrero"
case 3 mimes="marzo"
case 4 mimes="abril"
case 5 mimes="mayo"
case 6 mimes="junio"
case 7 mimes="julio"
case 8 mimes="agosto"
case 9 mimes="septiembre"
case 10 mimes="octubre"
case 11 mimes="noviembre"
case 12 mimes="diciembre"
end select
estedia = "Valencia, "+ misemana +" "+ Cstr(dia) +" de "+ mimes +" de "+ Cstr(anno)
sql="select * from ciec_compradores_requerimiento where id='"&request("clave")&"'"
registros.open sql,conexion,1
if request("session")="" then
session("codreq")=request("clave")
end if
'response.write session("codreq")
'response.end
%>
CIEC Centro de Negocios | Solicitud de Cotización | Requerimiento Nro. <%=registros("nro")%>
<%response.write(datepart("d",registros("fecha")))
mes=datepart("m",registros("fecha"))
select case mes
case 1 mes="enero"
case 2 mes="febrero"
case 3 mes="marzo"
case 4 mes="abril"
case 5 mes="mayo"
case 6 mes="junio"
case 7 mes="julio"
case 8 mes="agosto"
case 9 mes="septiembre"
case 10 mes="octubre"
case 11 mes="noviembre"
case 12 mes="diciembre"
end select
response.write(" de "+mes+" de ")
response.write(datepart("yyyy",registros("fecha")))%>
Hora de
publicación:
<%=registros("hora")%>
Fecha
y hora de cierre
de recepción de
cotizaciones:
<%dias_var=DateDiff("d", date, registros("fechacompra"))
if hour(time)<24 then
horas_var=24-hour(time)
else
horas_var=hour(time)-24
end if
if minute(time)<60 then
minutos_var=60-minute(time)
else
minutos_var=minute(time)-60
end if%>
Este requerimiento esta
<%Select Case registros("status")
Case 1 response.write ("en espera de cotizaciones")
Case 5 response.write ("en proceso de analisis de cotizaciones")
Case 2 response.write ("anulado")
Case 3 response.write ("procesado")
Case 4 response.write ("vencido")
end select%>.
<%if registros("status")=1 or registros("status")=5 then%>
Este
requerimiento
recibirá
cotizaciones
hasta dentro de <%=dias_var%> día<%if dias_var<>1 then%>s<%end if%>, <%=horas_var%> hora<%if horas_var<>1 then%>s<%end if%> y <%=minutos_var%> minuto<%if minutos_var<>1 then%>s<%end if%>.
<%end if%>
Productos
o servicios
requeridos:
<%i=0
sql="select * from ciec_compradores_reqdetalle where id_req='"®istros("id")&"'"
registros2.open sql,conexion,1
if not registros2.bof and not registros2.eof then
do while registros2.EOF=False
i=i+1%>
<%=i%>.- <%=registros2("requerimiento")%><%if registros2("espec")<>"" then%> (<%=registros2("espec")%>)<%end if%>
<%if registros2("cantidad")<>"" then%> <%=registros2("cantidad")%> <%=registros2("unidad")%>
<%if registros2("parte")<>"" then%>Nro. de parte: <%=registros2("parte")%><%end if%>
<%if registros2("reqnro")<>"" then%>Nro. Requisición interna: <%=registros2("reqnro")%><%end if%>
<%end if%>
<%registros2.movenext
loop
end if
registros2.close%>
<%if registros("adjunto")<>"" then%>
Adjunto
1:
Este
requerimiento tiene un archivo adjunto con información adicional
<%end if
if registros("adjunto1")<>"" then%>
Adjunto
2:
Este
requerimiento tiene un archivo adjunto con información adicional
<%end if
if registros("adjunto2")<>"" then%>
Adjunto
3:
Este
requerimiento tiene un archivo adjunto con información adicional
<%end if
sql = "select count(*) as total from ciec_compradores_cotizacion where nroreq='"®istros("nro")&"' and status=0"
registros2.open sql,conexion,1
if registros2("total")>0 then%>
Cotizaciones:
Esta solicitud ha recibido <%=registros2("total")%> cotizaciones.
<%end if
registros2.close
sql = "select count(*) as total from ciec_compradores_comentario where idreq='"®istros("id")&"'"
registros2.open sql,conexion,1
if registros2("total")>0 then%>
Comentarios:
Esta solicitud ha recibido <%=registros2("total")%> comentarios.
<%end if
registros2.close%>
<%registros.close
set registros = Nothing
conexion.close
set conexion = Nothing%>