<%@language = "javascript" %> <% /* $Revision$ $Id$ File: prs_show_bedrijf.asp Description: Bekijk bedrijf (Mobile version) Parameters: bedrijf_key voor bestaand bedrijf Note: */ %> <% FCLTHeader.Requires({plugins: ["suggest"]}); var bedrijf_key = getQParamInt("bedrijf_key"); var qrc = getQParamInt("qrc", 0) != 0; var sql = "SELECT prs_bedrijf_intern, prs_bedrijf_naam FROM prs_bedrijf WHERE prs_bedrijf_key = " + bedrijf_key; var oRs = Oracle.Execute(sql); var intern = oRs("prs_bedrijf_intern").Value == 1; oRs.Close(); var autfunction = ""; if (intern) autfunction = "WEB_PRSMAN"; else autfunction = "WEB_RELMAN"; var authparams = user.checkAutorisation(autfunction); var bedrijf_info = prs.prs_bedrijfinfo(bedrijf_key); %>
<% FCLTMHeader.Generate({title: bedrijf_info.naam }); %>
<% PAGE_START({id: "page-1-" + bedrijf_key}); HEADER({title: (bedrijf_key > -1 ? bedrijf_info.naam : ""), back: !qrc, home: !qrc }); CONTENT_START(); ROFIELD("fld", L("lcl_prs_companies_name"), bedrijf_info.naam); ROFIELD("fld", L("lcl_prs_companies_post_adres"), bedrijf_info.post_adres, { suppressEmpty: true }); ROFIELD("fld", L("lcl_prs_companies_post_postcode"), bedrijf_info.post_postcode, { suppressEmpty: true }); ROFIELD("fld", L("lcl_prs_companies_post_plaats"), bedrijf_info.post_plaats, { suppressEmpty: true }); ROFIELD("fld", L("lcl_prs_companies_post_land"), bedrijf_info.post_land, { suppressEmpty: true }); ROFIELD("fld", L("lcl_prs_companies_bezoek_adres"), bedrijf_info.bezoek_adres, { suppressEmpty: true }); ROFIELD("fld", L("lcl_prs_companies_bezoek_postcode"), bedrijf_info.bezoek_postcode, { suppressEmpty: true }); ROFIELD("fld", L("lcl_prs_companies_bezoek_plaats"), bedrijf_info.bezoek_plaats, { suppressEmpty: true }); ROFIELD("fld", L("lcl_prs_companies_bezoek_land"), bedrijf_info.bezoek_land, { suppressEmpty: true }); BLOCK_START({collapsed: true, title: L("lcl_prs_bedrijf_contactblock")}); var counter = 1; ROFIELD("fld", L("lcl_prs_companies_telefoon"), bedrijf_info.telefoon, { suppressEmpty: true, type: "tel" }); ROFIELD("fld", L("lcl_prs_companies_telefoon2"), bedrijf_info.telefoon2, { suppressEmpty: true, type: "tel" }); ROFIELD("fld", L("lcl_prs_companies_contact_person") + " " + counter++, bedrijf_info.contact_persoon, { suppressEmpty: true }); ROFIELD("fld", L("lcl_prs_companies_email"), bedrijf_info.email, { suppressEmpty: true, type: "email" }); ROFIELD("fld", L("lcl_prs_companies_contact_telefoon"), bedrijf_info.contact_telefoon, { suppressEmpty: true, type: "tel" }); var sql = "SELECT cp.prs_contactpersoon_naam" + " || NVL2 (cp.prs_contactpersoon_voorletters," + " ', ' || cp.prs_contactpersoon_voorletters," + " '')" + " || NVL2 (cp.prs_contactpersoon_tussenv," + " ' ' || cp.prs_contactpersoon_tussenv," + " '')" + " || NVL2 (cp.prs_contactpersoon_voornaam," + " ' (' || cp.prs_contactpersoon_voornaam || ')'," + " '')" + " prs_contactpersoon_naam," + " l.alg_locatie_omschrijving," + " cp.prs_contactpersoon_telefoon_1," + " cp.prs_contactpersoon_telefoon_2," + " cp.prs_contactpersoon_email" + " FROM alg_locatie l," + " prs_contactpersoon cp," + " prs_contactpersoon_locatie n," + " prs_bedrijf b" + " WHERE n.alg_locatie_key = l.alg_locatie_key(+)" + " AND b.prs_bedrijf_key = cp.prs_bedrijf_key" + " AND b.prs_bedrijf_verwijder IS NULL" + " AND cp.prs_contactpersoon_key = n.prs_contactpersoon_key(+)" + " AND cp.prs_contactpersoon_verwijder IS NULL" + " AND b.prs_bedrijf_key = " + bedrijf_key + " AND b.prs_bedrijf_intern IS NULL" + " ORDER BY b.prs_bedrijf_naam_upper ASC," + " l.alg_locatie_upper ASC," + " cp.prs_contactpersoon_naam"; var oRs = Oracle.Execute(sql); while (!oRs.EoF) { ROFIELD("fld", L("lcl_contact_pers") + " " + counter++, oRs("prs_contactpersoon_naam").Value, { suppressEmpty: true }); ROFIELD("fld", L("lcl_location"), oRs("alg_locatie_omschrijving").Value, { suppressEmpty: true }); ROFIELD("fld", L("lcl_prs_companies_contact_tel1"), oRs("prs_contactpersoon_telefoon_1").Value, { suppressEmpty: true, type: "tel" }); ROFIELD("fld", L("lcl_prs_companies_contact_tel2"), oRs("prs_contactpersoon_telefoon_2").Value, { suppressEmpty: true, type: "tel" }); ROFIELD("fld", L("lcl_prs_companies_contact_email"), oRs("prs_contactpersoon_email").Value, { suppressEmpty: true, type: "email" }); oRs.movenext(); } BLOCK_END(); BLOCK_START({collapsed: true, title: L("lcl_prs_bedrijf_relatieblock")}); if (bedrijf_info.prs_relatietype_key) { var reltype_oms; asql = "SELECT prs_relatietype_omschrijving FROM prs_relatietype WHERE prs_relatietype_key = " + bedrijf_info.prs_relatietype_key; aoRs = Oracle.Execute(asql); if (!aoRs.eof) reltype_oms = aoRs(0).Value; ROFIELD("fld", L("lcl_prs_relatietype"), reltype_oms, { suppressEmpty: true }); } ROFIELD("fld", L("lcl_prs_companies_leverancier_nr"), bedrijf_info.prs_leverancier_nr, { suppressEmpty: true }); var relation = ""; if (bedrijf_info.leverancier == 1) relation = L("lcl_prs_companies_leverancier"); if (bedrijf_info.uitvoerende == 1) relation += (relation == "" ? "" : "\n") + L("lcl_prs_companies_uitvoerende"); if (bedrijf_info.contract == 1) relation += (relation == "" ? "" : "\n") + L("lcl_prs_companies_contract"); if (bedrijf_info.huurder == 1) relation += (relation == "" ? "" : "\n") + L("lcl_prs_companies_huurder"); ROFIELD("fld", L("lcl_prs_type_relation"), relation, {multi: true, suppressEmpty: true}); ROFIELD("fld", L("lcl_prs_companies_overeenkomst_nr"), bedrijf_info.prs_overeenkomst_nr, { suppressEmpty: true }); ROFIELD("fld", L("lcl_prs_companies_overeenkomst_datum"), toDateString(bedrijf_info.prs_overeenkomst_datum), { suppressEmpty: true }); ROFIELD("fld", L("lcl_prs_companies_uurloon"), bedrijf_info.uurloon, { suppressEmpty: true }); ROFIELD("fld", L("lcl_prs_companies_bes_limiet"), bedrijf_info.bes_limiet, { suppressEmpty: true }); ROFIELD("fld", L("lcl_prs_companies_bes_kosten"), bedrijf_info.bes_kosten, { suppressEmpty: true }); ROFIELD("fld", L("lcl_prs_companies_opmerking"), bedrijf_info.opmerking, {id: "bdr_opm", multi: true, suppressEmpty: true}); ROFIELD("fld", L("lcl_prs_companies_opmerking2"), bedrijf_info.opmerking2, {id: "bdr_opm2", multi: true, suppressEmpty: true}); if (bedrijf_info.mld_adres_key_lev) { var leveradres; asql = " SELECT mld_adres_naam FROM mld_adres WHERE mld_adres_key = " + bedrijf_info.mld_adres_key_lev; aoRs = Oracle.Execute(asql); if ( !aoRs.eof ) { leveradres = aoRs(0).Value; } ROFIELD("fld", L("lcl_prs_companies_adres_lev"), leveradres, { suppressEmpty: true }); } if (bedrijf_info.mld_adres_key_fac) { var factuuradres; asql = " SELECT mld_adres_naam FROM mld_adres WHERE mld_adres_key = " + bedrijf_info.mld_adres_key_fac; aoRs = Oracle.Execute(asql); if ( !aoRs.eof ) { factuuradres = aoRs(0).Value; } ROFIELD("fld", L("lcl_prs_companies_adres_fac"), factuuradres, { suppressEmpty: true }); } if (bedrijf_info.fin_btwtabel_key) { var btwtabel; asql = "SELECT fin_btwtabel_omschrijving FROM fin_btwtabel WHERE fin_btwtabel_key = " + bedrijf_info.fin_btwtabel_key; aoRs = Oracle.Execute(asql); if ( !aoRs.eof ) { btwtabel = aoRs(0).Value; } ROFIELD("fld", L("lcl_fin_btwtabel"), btwtabel, { suppressEmpty: true }); } BLOCK_END(); generateFlexKenmerkCode ({ link_key: bedrijf_key, niveau: "B", reado: true, intern: bedrijf_info.intern, mobile: true }); CONTENT_END(); FOOTER(); PAGE_END(); PDA_PAGE_END(); %>
<% ASPPAGE_END(); %>