diff --git a/APPL/PRS/prs_bedrijf.asp b/APPL/PRS/prs_bedrijf.asp
new file mode 100644
index 0000000000..f43200729c
--- /dev/null
+++ b/APPL/PRS/prs_bedrijf.asp
@@ -0,0 +1,113 @@
+<%@language = "javascript" %>
+<%/*
+ $Revision: 1 $
+ $Modtime: 19-10-09 17:47 $
+
+ File: prs_bedrijf.asp
+ Status: x%
+ Description: Muteerscherm voor bedrijven (intern en extern)
+ dit is de grote 'wrapper' voor de diverse andere schermen
+ Parameters: urole
+ bedrijf_key
+ Context:
+ Note:
+
+*/ %>
+
+
+
+
+<%
+FCLTHeader.Requires({plugins:["suggest","jQuery"],
+ js: ["expand_frame.js", "FCLTMgr.js", "jquery-ui.js"],
+ css: ["../shared/suggest/suggest.css"]}); // css for childframes})
+
+
+// AUTORISATIEPARAMETERS
+ var bedrijf_key = getQParamInt("bedrijf_key", -1);
+ var intern = getQParam("intern", 0) == "1"; // alleen te gebruiken bij NEW
+
+ if (bedrijf_key > 0)
+ {
+ // controleer PRSMAN/RELMAN lees/schrijf autorisaties
+ var sql = "SELECT prs_bedrijf_intern FROM prs_bedrijf WHERE prs_bedrijf_key=" + bedrijf_key;
+ oRs = Oracle.Execute(sql);
+ if ( !oRs.eof ) {
+ intern = oRs("prs_bedrijf_intern").value == "1";
+ }
+ }
+ if (intern)
+ autfunction = "WEB_PRSMAN";
+ else
+ autfunction = "WEB_RELMAN";
+
+authparams = user.checkAutorisation(autfunction);
+%>
+
+
+
+<%
+ FCLTHeader.Generate();
+%>
+
+
+
+
+<%
+if (bedrijf_key == -1)
+{
+ var page="prs_edit_bedrijf.asp"; // Maak een nieuw
+}
+else {
+ var page="prs_show_bedrijf.asp";
+}
+// 1. Het hoofdframe
+page += "?bedrijf_key="+bedrijf_key;
+IFRAMER("prsFrame", page, { title: "lcl_prs_bedrijf_frame_algemeen",
+ initHeight: "450px",
+ FcltClose: "bedrijfClose" } );
+
+if ( bedrijf_key > -1 ) {
+
+ // 2. De contactpersonen
+ page="prs_contactpersoon_list.asp?embedded=1&bedrijf_key="+bedrijf_key;
+ IFRAMER("prscontactpersonen", page, { refreshOnClose: true, initHide: true } );
+
+ // 3. De dienstenxlocatie
+ page="prs_dienstloc_list.asp?embedded=1&bedrijf_key="+bedrijf_key;
+ IFRAMER("prsdiensten", page, { refreshOnClose: true, initHide: true } );
+
+// if (false) { // future extension
+// page = "mld_show_note.asp?embedded=1&urole="+urole+"&mld_key="+mld_key+transitParam;
+// IFRAMER("noteFrame", page, {refreshOnClose: true, initHide: true } );
+// }
+
+}
+%>
+
+
+
diff --git a/APPL/PRS/prs_bedrijf_search.asp b/APPL/PRS/prs_bedrijf_search.asp
new file mode 100644
index 0000000000..11fa2f7849
--- /dev/null
+++ b/APPL/PRS/prs_bedrijf_search.asp
@@ -0,0 +1,170 @@
+<%@language = "javascript" %>
+<% /*
+ $Revision: 1 $
+ $Modtime: 23-10-09 18:54 $
+
+ File: prs_bedrijf_search.asp (formerly companysearch.asp;27)
+ Status: 80%
+
+ Description: Toont zoekvelden voor lijst van bedrijven
+ Parameters: {NADER UITWERKEN}
+ Context: Vanuit menu
+ Note: De submitbutton kost ruimte. Moet binnen form maar waar is die het legaalst?
+
+*/ %>
+
+
+
+
+
+
+<%
+// suggest en jQuery worden door persoonselector.inc, plaatsselector.inc en afdelingselector.inc al als plugin toegevoegd
+// plaatsselector.js wordt door plaatsselector.inc als js script toegevoegt
+FCLTHeader.Requires({plugins:["jQuery", "kenmerk"],
+ js: ["expand_frame.js"]});
+
+/***** Get webform parameters *****/
+
+var loc_key = getQParam("locatie_key", -1);
+var intern = getQParam("intern", -1) == 1;
+var autosearch = getQParam("autosearch", -1) == 1;
+
+// optional prefilling params
+var pcompanyName = getQParam("pcompanyName", -1);
+var pbezoekPostcode = getQParam("pbezoekPostcode", -1);
+var pbezoekPlaats = getQParam("pbezoekPlaats", -1);
+var pdienst_key = getQParam("pdienst_key", -1);
+var pdienst_key = getQParam("pdienst_key", -1);
+var pcontactPrs = getQParam("pcontactPrs", -1);
+
+/***** End get webform parameters *****/
+
+// So what authorization must we check?
+var autfunction = "";
+if (intern)
+ autfunction = "WEB_PRSMAN"; // TODO of PRSUSE?
+else
+ autfunction = "WEB_RELMAN";
+
+var authparams = user.checkAutorisation(autfunction);
+
+// VALIDATE AND PREPARE
+
+var there_is_dienst = false;
+var tsql = "SELECT prs_dienst_key FROM prs_dienst";
+var toRs = Oracle.Execute( tsql );
+if ( !toRs.eof ) { there_is_dienst = true; }
+
+
+%>
+
+
+ <% FCLTHeader.Generate(); %>
+
+
+
+
+
+<% BLOCK_START("searchtable", lcl_filterblok);%>
+
+<% BLOCK_END();
+
+ var buttons = [ {title: lcl_search, action:"doSubmit()", id:"bSearch" },
+ {title: lcl_obj_advanced, action:"myModal()", id:"bAdvanced" } ];
+ CreateButtons(buttons);
+%>
+
+
+
+
+
+
+
+
\ No newline at end of file
diff --git a/APPL/PRS/prs_bedrijf_search_list.asp b/APPL/PRS/prs_bedrijf_search_list.asp
new file mode 100644
index 0000000000..f41eb0843c
--- /dev/null
+++ b/APPL/PRS/prs_bedrijf_search_list.asp
@@ -0,0 +1,59 @@
+<%@language = "javascript" %>
+<% /*
+ $Revision: 1 $
+ $Modtime: 19-10-09 16:01 $
+
+ File: prs_bedrijf_search_list.asp
+ Description: Vangt de parameters van msg_search op en verwerkt die in een aanroep van msg_list
+ Parameters: urole
+ Context: Vanuit prs_bedrijf_search.asp
+ Note:
+*/ %>
+
+<% Response.Expires = 0; %>
+
+
+
+
+<%
+
+var intern = getQParam("intern", -1) == 1;
+var autfunction = "";
+if (intern)
+ autfunction = "WEB_PRSMAN"; // TODO of PRSUSE?
+else
+ autfunction = "WEB_RELMAN";
+var authparams = user.checkAutorisation(autfunction);
+
+var outputmode = getQParam("outputmode", 0);
+var showall = getQParam("showall", false);
+var companyName = getQParam("companyName", -1);
+var bezoekPostcode = getQParam("bezoekPostcode", -1);
+var bezoekPlaats = getQParam("bezoekPlaats", -1);
+var contactpersoon = getQParam("contactPrs", -1);
+var locatiekey = getQParam("locatiekey", -1);
+var dienstkey = getQParam("dienstkey", -1);
+
+
+var leverancier = getQParam("leverancier", -1) == 1;
+var uitvoerende = getQParam("uitvoerende", -1) == 1;
+var contract = getQParam("contract", -1) == 1;
+var huurder = getQParam("huurder", -1) == 1;
+
+bedrijf_list ( autfunction,
+ { outputmode: outputmode,
+ showall: showall,
+ isIntern: intern,
+ naam: (companyName != -1 ? companyName : null),
+ postcode: (bezoekPostcode != -1 ? bezoekPostcode : null),
+ plaats: (bezoekPlaats != -1 ? bezoekPlaats : null),
+ contactpersoon: (contactpersoon != -1 ? contactpersoon : null),
+ locatiekey: (locatiekey != -1 ? locatiekey : null),
+ dienstkey: (dienstkey != -1 ? dienstkey : null),
+ isLeverancier : leverancier,
+ isUitvoerende : uitvoerende,
+ isContractant: contract,
+ isHuurder: huurder
+ }
+ );
+%>
\ No newline at end of file
diff --git a/APPL/PRS/prs_dienstloc_list.asp b/APPL/PRS/prs_dienstloc_list.asp
new file mode 100644
index 0000000000..e108f51693
--- /dev/null
+++ b/APPL/PRS/prs_dienstloc_list.asp
@@ -0,0 +1,70 @@
+<%@language="javascript"%>
+<% /*
+ $Revision: 1 $
+ $Modtime: 19-10-09 18:18 $
+
+ File: prs_dienstloc_list.asp
+ Status: x%
+ Description: Lijst van geleverde diensten door bedrijf berijf_key en/of op locatie locatie_key
+ Parameters: locatie_key (optioneel)
+ bedrijf_key (optioneel)
+ Context: Submit van prs_dienstloc_search.asp
+ Note:
+
+*/ %>
+
+
+
+<%
+var bedrijf_key = getQParamInt("bedrijf_key", -1);
+var locatie_key = getQParamInt("locatie_key", -1);
+
+FCLTHeader.Requires({plugins:["jQuery"],
+ js: ["expand_frame.js", "FCLTMgr.js"]})
+%>
+
+
+<% FCLTHeader.Generate(); %>
+
+
+
+<%
+var autfunction = 'WEB_RELMAN';
+var authparams = user.checkAutorisation(autfunction);
+
+var sql = "SELECT"
+ + " b.prs_bedrijf_key"
+ + ", prs_bedrijf_naam"
+ + ", prs_dienst_omschrijving"
+ + ", alg_locatie_omschrijving"
+ + ", prs_bedrijfdienstlocatie_key"
+ + " FROM alg_v_aanweziglocatie l, prs_dienst d, prs_bedrijfdienstlocatie dl, prs_bedrijf b"
+ + " WHERE dl.ALG_LOCATIE_KEY = l.ALG_LOCATIE_KEY(+)"
+ + " AND d.PRS_DIENST_KEY = dl.PRS_DIENST_KEY"
+ + " AND dl.PRS_BEDRIJF_KEY = b.PRS_BEDRIJF_KEY"
+ + (bedrijf_key != -1 ? " AND b.prs_bedrijf_key = " + bedrijf_key : "")
+ + (locatie_key != -1 ? " AND l.alg_locatie_key = " + locatie_key : "")
+ + " ORDER BY b.prs_bedrijf_naam_upper, prs_dienst_omschrijving, alg_locatie_upper";
+
+
+ var rst = new ResultsetTable({ sql: sql,
+ ID: "contacttable",
+ title: lcl_prs_companies_dienst_title,
+ keyColumn: "prs_bedrijfdienstlocatie_key"
+ });
+
+ if (bedrijf_key == -1)
+ rst.addColumn(new Column({caption: lcl_prs_companies_name, content: "prs_bedrijf_naam"}));
+
+ rst.addColumn(new Column({caption: lcl_prs_companies_dienst, content: "prs_dienst_omschrijving"}));
+
+ if (locatie_key == -1)
+ rst.addColumn(new Column({caption: lcl_location, content: "alg_locatie_omschrijving"}));
+
+// todo: .withHandlerPage("prsdienst.asp"+(intern?"?intern=1":""));
+
+ rst.processResultset();
+
+%>
+
+
diff --git a/APPL/PRS/prs_phonebook.asp b/APPL/PRS/prs_phonebook.asp
new file mode 100644
index 0000000000..9b78c3876a
--- /dev/null
+++ b/APPL/PRS/prs_phonebook.asp
@@ -0,0 +1,169 @@
+<%@language = "javascript" %>
+<% /*
+ $Revision: 1 $
+ $Modtime: 13-10-09 18:48 $
+
+ File: prs_phonebook.asp (formerly phone_book.asp;29)
+ Status: 80%
+
+ Description: Toont frontend zoekvelden voor lijst van personen (telefoongids)
+ Parameters: {NADER UITWERKEN}
+ Context: Vanuit menu
+ Note:
+ TODO: overdreven checks op parameters verschonen.
+ default-actie definieren (optioneel personendetails)
+ mode 4?
+*/ %>
+
+
+
+
+
+
+
+<%
+// suggest en jQuery worden door persoonselector.inc, plaatsselector.inc en afdelingselector.inc al als plugin toegevoegd
+// plaatsselector.js wordt door plaatsselector.inc als js script toegevoegt
+FCLTHeader.Requires({plugins:["jQuery", "kenmerk"],
+ js: ["expand_frame.js"]});
+
+/***** Get webform parameters *****/
+ var autfunction = "WEB_PHONEB";
+ var authparams = user.checkAutorisation(autfunction);
+%>
+
+<% FCLTHeader.Generate(); %>
+
+
+
+
+<% BLOCK_START("searchtable", lcl_filterblok);%>
+
+<% BLOCK_END();
+
+ var buttons = [ {title: lcl_search_pers, action:"startSearch(1)", id:"bSearchP" } ];
+ if (ph_loc_search) {
+ buttons.push({title: lcl_search_org, action:"startSearch(2)", id:"bSearchL" } );
+ }
+ if (ph_bedr_search) {
+ buttons.push({title: lcl_search_bedr, action:"startSearch(3)", id:"bSearchB" } );
+ }
+ if (phone_usrrap_key>-1) {
+ buttons.push({title: lcl_pb_customrapport, action:"startSearch(4)", id:"bSearchC" } );
+ }
+
+ CreateButtons(buttons);
+%>
+
+
+
+
+
+
+
+
+