65 lines
2.1 KiB
Plaintext
65 lines
2.1 KiB
Plaintext
<%@ language = "JavaScript" %>
|
|
<% /*
|
|
$Revision$
|
|
$Id$
|
|
|
|
File: BezBezoekersTitle.asp
|
|
Description: Genereer non-HTML title voor een BezBezoeker in het (parkeerplaats)planbord
|
|
Parameters: bez_bezoekers_key een bezoeker (met parkeerplaats)
|
|
Context: asynchrone aanroep vanuit setBezBezoekersTitle()
|
|
Notes:
|
|
|
|
*/ %>
|
|
<%
|
|
DOCTYPE_Disable = 1;
|
|
%>
|
|
|
|
<!--#include file="../Shared/common.inc"-->
|
|
<!--#include file="./res.inc" -->
|
|
|
|
<%
|
|
var bez_bezoekers_key = getQParamInt("bez_bezoekers_key");
|
|
|
|
sql = "SELECT b.bez_afspraak_naam"
|
|
+ ", b.bez_afspraak_bedrijf"
|
|
+ ", p.prs_perslid_naam_friendly naam"
|
|
+ ", a.bez_afspraak_telefoonnr"
|
|
+ ", a.bez_afspraak_key"
|
|
+ ", a.res_rsv_ruimte_key"
|
|
+ ", a.bez_afspraak_datum"
|
|
+ ", a.bez_afspraak_eind"
|
|
+ " FROM prs_v_perslid_fullnames_all p,"
|
|
+ " bez_bezoekers b,"
|
|
+ " bez_afspraak a"
|
|
+ " WHERE p.prs_perslid_key(+)=a.bez_afspraak_host_key"
|
|
+ " AND b.bez_bezoekers_key = " + bez_bezoekers_key
|
|
+ " AND b.bez_afspraak_key = a.bez_afspraak_key";
|
|
|
|
var oRs = Oracle.Execute(sql);
|
|
if (oRs.Eof) // net verwijderd in ander tabje?
|
|
{
|
|
Response.Write(L("lcl_recnotfound_error"));
|
|
Response.End;
|
|
}
|
|
var rsv_ruimte_key;
|
|
var txt_min = "";
|
|
var txt = "";
|
|
if (!oRs.eof)
|
|
{
|
|
rsv_ruimte_key = oRs("res_rsv_ruimte_key").Value;
|
|
txt_min = L("lcl_vis_appointment") + ": "
|
|
+ " " + toTimeString(new Date(oRs("bez_afspraak_datum").Value))
|
|
+ "-" + toTimeString(new Date(oRs("bez_afspraak_eind").Value));
|
|
txt = L("lcl_vis_name") + ": " + oRs("bez_afspraak_naam").Value;
|
|
if (oRs("bez_afspraak_bedrijf").Value != null)
|
|
txt += " (" + oRs("bez_afspraak_bedrijf").Value + ")";
|
|
txt += (oRs("naam").Value ? "\n" + L("lcl_vis_visit") + ": " + oRs("naam").Value : "");
|
|
txt += (oRs("bez_afspraak_telefoonnr").Value ? " " + oRs("bez_afspraak_telefoonnr").Value : "");
|
|
}
|
|
oRs.close();
|
|
|
|
if (!planbordTooltipShowing(rsv_ruimte_key))
|
|
txt = txt_min;
|
|
|
|
Response.Write(txt);
|
|
%> |