Files
Facilitor/APPL/CAD/req_move2.asp
Peter Feij 88e8bc02f6 QA-releaseroutine
svn path=/Website/trunk/; revision=26354
2015-09-16 15:55:58 +00:00

119 lines
4.3 KiB
Plaintext

<%@ language="javascript"%>
<% /*
$Revision$
$Id$
File: CAD/req_move2.asp
Description: Verplaats een prs_werkplek naar een andere ruimte
Variant op req_move.asp, wanneer S("prs_werkplek_implicit")==1
We vragen alleen een bevestiging en koppelen onder water de werkplek
om naar een andere ALG_RUIMTE. In deze mode zijn geen objecten
gekoppeld aan werkplekken en ook niet meerdere personen dus dat
moet zonder al te veel problemen kunnen
Parameters: prswp_key: de huidige prs_werkplek_key
room_key: alg_ruimte_key waarop gedropt
Context: Modal na droppen van een prs_perslid op de tekening
Result: true als daadwerkelijk iets verplaatst (dan moet je waarschijnlijk
ergens beeld refreshen)
Note: Zie req_move3.asp
*/ %>
<!--#include file="fgii.inc"-->
<!--#include file="../Shared/common.inc"-->
<!--#include file="../Shared/iface.inc"-->
<!--#include file="../Shared/json2.js" -->
<%
FCLTHeader.Requires({plugins:["jQuery"], js: []})
var autfunction = "WEB_PRSBOF";
var authparams = user.checkAutorisation(autfunction);
var oRs,i;
var sql="";
i=0;
// We hebben een prswp_key binnengekregen maar weten dat die 1-op-1 loopt met werkplek
var prswp_key = getQParamInt("prswp_key"); // perslidwerkplek_key
var room_key = getQParam( "room_key"); // Nieuwe ruimte, kan ook W: bevatten
var TransitParams = "prswp_key="+prswp_key+"&room_key="+room_key;
if (room_key.match(/^W:/)) // Op werkplek gedropt
{
var wp_key = parseInt(room_key.substring(2), 10);
sql = "SELECT prs_alg_ruimte_key"
+ " FROM prs_werkplek"
+ " WHERE prs_werkplek_key = " + wp_key;
oRs = Oracle.Execute(sql);
room_key = oRs("prs_alg_ruimte_key").Value;
oRs.Close();
}
else
room_key = parseInt(room_key, 10);
// Mag ik schijven in de doelruimte?
if (authparams.ALGwritelevel > -1)
{
var sql = "SELECT alg_ruimte_key"
+ " FROM fac_v_my_rooms"
+ " WHERE prs_perslid_key = "+user_key
+ " AND alg_ruimte_key = " + room_key
+ " AND niveau = "+authparams.ALGwritelevel;
oRs = Oracle.Execute(sql);
user.auth_required_or_abort(!oRs.Eof);
oRs.Close();
}
%>
<html>
<head>
<% FCLTHeader.Generate(); %>
<script type="text/javascript">
function moveWPtoRoom( )
{
var data = { prswp_key : <%=prswp_key%>
, room_key : <%=room_key%>
, prs_key : -1
, wp_key : -1
, domove : "movewpr"
};
<% protectRequest.dataToken("data"); %>
$.post("req_move_save.asp",
data,
FcltCallbackClose,
"json");
}
</script>
</head>
<body class="modal" id="mod_req_move2">
<%
// Let op: alg_ruimte zoeken we met de doel-ruimte, niet herkomst. Beetje lui...
var sql = "SELECT " + S("prs_pers_string") + " naam, ar.alg_ruimte_nr,"
+ " prs_werkplek_omschrijving, "
+ " pwp.prs_werkplek_key"
+ " FROM prs_v_perslid_gegevens p, prs_perslidwerkplek pwp, "
+ " prs_werkplek pw, alg_ruimte ar"
+ " WHERE p.prs_perslid_key = pwp.prs_perslid_key"
+ " AND pwp.prs_werkplek_key = pw.prs_werkplek_key"
+ " AND ar.alg_ruimte_key = " + room_key
+ " AND pwp.prs_perslidwerkplek_key = " + prswp_key
oRs = Oracle.Execute(sql);
%>
<form name="u2" method="post">
<%
BLOCK_START("req_move", "");
%>
<tr><td class='label'><label><%=L("lcl_fg_domove")%>: </label></td><td><%=safe.html(oRs("naam").Value)%></td></tr>
<tr><td class='label'><label><%=L("lcl_fg_domovedest")%>: </label></td><td><%=safe.html(oRs("alg_ruimte_nr").Value)%></td></tr>
<%
BLOCK_END();
CreateButtons([ { title: L("lcl_fg_verhuizing"), action: "moveWPtoRoom()", singlepress: true, id:"btn_res_submit" },
{ title: L("lcl_cancel"), action: "FcltMgr.closeDetail(window, { cancel: true } )"}
]);
%>
</form>
</body>
</html>