<%@ 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")%>
 
 

Solicitud de Cotización

Inicio  | Información General | « Atrás


 
<%if registros("adjunto")<>"" then%> <%end if if registros("adjunto1")<>"" then%> <%end if if registros("adjunto2")<>"" then%> <%end if%> <%dim ss if ss="d" then%> <%end if%> <%if registros("observaciones")<>"" then%> <%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%> <%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%> <%end if registros2.close%>
 Nro.  <%=registros("nro")%>
 Fecha de publicación:  <%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%>
 Adjunto 1:  Este requerimiento tiene un archivo adjunto con información adicional
 Adjunto 2:  Este requerimiento tiene un archivo adjunto con información adicional
 Adjunto 3:  Este requerimiento tiene un archivo adjunto con información adicional
 
 Tipo de transacción solicitada:
<%if IsNull(registros("subasta")) then%> Compra Normal<%if registros("consolidado")=1 then%>, consolidada<%end if%> <%end if%> <%if registros("subasta")=1 then%>
Compra mediante Subasta Inversa<%if registros("consolidado")=1 then%>, consolidada<%end if%> <%end if%>
 Observación adjunta al requerimiento:
 <%=registros("observaciones")%>
 Cotizaciones:  Esta solicitud ha recibido <%=registros2("total")%> cotizaciones.
 Comentarios:  Esta solicitud ha recibido <%=registros2("total")%> comentarios.
<%registros.close set registros = Nothing conexion.close set conexion = Nothing%>
 

Inicio  | Información General | « Atrás

 
  2006 l CIEC Centro de Negocios es un producto de software ideado y desarrollado por Ingeniería Web.