fhiiqm/keytyp_tract_dep.php
author schwarzer@hyperion.rz-berlin.mpg.de
Mon, 01 Jul 2013 14:36:18 +0200
changeset 38 45c139f74ea4
child 39 4ce411ed28b6
permissions -rw-r--r--
+ Laborinfo; Keytyp-Verwaltung
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
38
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
     1
<?php
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
     2
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
     3
/**
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
     4
 * @author Bettina Schwarzer, Fritz-Haber-Institut
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
     5
 * @copyright 06/2013
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
     6
 * 
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
     7
 * Keytyp Transaktion Depot - Depot
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
     8
 */
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
     9
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    10
    error_reporting(E_ALL ^ E_NOTICE);
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    11
    
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    12
    session_start();
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    13
    if (! isset($_SESSION["userid"]))
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    14
    { 
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    15
        include_once ("inc/func_lib.inc.php");	
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    16
        login($_SERVER["PHP_SELF"]);
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    17
        exit;
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    18
    }
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    19
    
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    20
    if (is_null($_SESSION["recht"]) || (!is_null($_SESSION["recht"]) && !in_array("kr",$_SESSION["recht"]) && !in_array("ke",$_SESSION["recht"])))
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    21
    {
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    22
        header("Location: start.php");
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    23
        exit;
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    24
    }    
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    25
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    26
	include_once($_SERVER['DOCUMENT_ROOT'] ."/fhiiqm/inc/dbconnect.inc.php");
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    27
	if (!isset($dbc) || !$dbc) $dbc = new dbconnection();
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    28
    
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    29
    // zulaessige Depots: nur FHI
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    30
    $uid = $_SESSION["userid"];
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    31
    $sql = "SELECT depot_ID,edit FROM KeyDepot_userweb WHERE userid = '$uid'";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    32
//    $sql = "SELECT depot_ID FROM KeyDepot_userweb WHERE userid = '$uid'";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    33
    $res = $dbc -> queryObjectArray($sql);
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    34
    foreach ($res as $row)
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    35
        if ($row->edit) $adep[] = $row->depot_ID;
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    36
//    print_r($adep); echo "<br />";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    37
    $aaction = array("get" => "R&uuml;cknahme", "out" => "Ausgabe", "lost" => "Verlust"); //Bezeichnung Transfer
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    38
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    39
?>
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    40
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    41
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    42
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    43
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    44
<head>
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    45
	<meta http-equiv="content-type" content="text/html; charset=iso-8859-1" />
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    46
   	<link href="/fhiiqm/css/db.css" rel="STYLESHEET" type="TEXT/CSS" media="screen"/> 
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    47
   	<link href="/fhiiqm/css/db_print.css" rel="STYLESHEET" type="TEXT/CSS" media="print"/> 
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    48
	<title>Keytyp Depot transferieren</title>
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    49
</head>
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    50
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    51
<body>
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    52
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    53
<?php
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    54
    echo "&nbsp;";  
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    55
    echo "<div class=\"float-br smaller\" valign='top'>";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    56
    echo "&nbsp;&nbsp;&nbsp;user: " . $_SESSION["userid"];
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    57
    echo "&nbsp;&nbsp;&nbsp;<a class='sc' href='/fhiiqm/logout.php' title='Session beenden'>logout</a></div>\n";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    58
    echo "<div class=\"float-r\"><img src=\"img/key.png\" border=\"0\" alt=\"Keytyp transferieren\" title=\"Depotverwaltung Schl&uuml;sseltyp\"/></div>\n";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    59
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    60
    echo "<div align=\"center\">";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    61
    echo "<h3>Schl&uuml;sseltyp von/in Depot verschieben</h3>";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    62
    echo "</div>\n";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    63
    
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    64
    if (!isset($adep))
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    65
        echo "<p class='red'>&nbsp;&nbsp;&nbsp;Sie haben nicht das Recht, Transfers von Schl&uuml;sseln in Depots vorzunehmen. Bitte wenden Sie sich an Frau Kohl.</p>";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    66
    else
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    67
    {
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    68
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    69
        $out = $_POST["out"];
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    70
        $get = $_POST["get"];
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    71
//        $lost = $_POST["lost"];
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    72
        $ky  = $_POST["ky"];
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    73
        if (isset($ky) && $get)
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    74
        {
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    75
            $sql = "SELECT IFNULL(SUM(CASE WHEN depot_action='get' THEN IFNULL(depot_anz,0) ELSE 0 END),0) - IFNULL(SUM(CASE WHEN depot_action='out' THEN IFNULL(depot_anz,0) ELSE 0 END),0) - IFNULL(SUM(CASE WHEN depot_action='lost' THEN IFNULL(depot_anz,0) ELSE 0 END),0) AS bestand
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    76
                                FROM fhiiqm.Keytyp_Depot WHERE depot_ID='".$ky["dep"]."' AND keytyp_ID = '". $ky["kt"] ."'";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    77
            $anzdep = $dbc->querySingleItem($sql);
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    78
            if (is_numeric($ky["anz"]) && $anzdep < $ky["anz"]) $err = "Rücknahme: Bestand '". $ky["kt"] ."' Depot '". $ky["dep"] . "':  <b>$anzdep < ".$ky["anz"]."</b> (Transfer-Anzahl)!";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    79
        }
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    80
        if (isset($ky) && $out)
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    81
        {
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    82
            $sql = "SELECT IFNULL(SUM(CASE WHEN depot_action='get' THEN IFNULL(depot_anz,0) ELSE 0 END),0) - IFNULL(SUM(CASE WHEN depot_action='out' THEN IFNULL(depot_anz,0) ELSE 0 END),0) - IFNULL(SUM(CASE WHEN depot_action='lost' THEN IFNULL(depot_anz,0) ELSE 0 END),0) AS bestand
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    83
                                FROM fhiiqm.Keytyp_Depot WHERE depot_ID='FHI' AND keytyp_ID = '". $ky["kt"] ."'";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    84
            $anzdep = $dbc->querySingleItem($sql);
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    85
            if (is_numeric($ky["anz"]) && $anzdep < $ky["anz"]) $err = "Ausgabe: Bestand '". $ky["kt"] ."' Depot 'FHI':  <b>$anzdep < ".$ky["anz"]."</b> (Transfer-Anzahl)!";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    86
        }
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    87
        if (isset($ky["anz"]) && !is_numeric($ky["anz"]) && ($out || $get || $lost)) $err = "Anzahl ist ncht numerisch!";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    88
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    89
        if (!isset($ky) || (!$out && !$get) || $err)
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    90
        {
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    91
            /* form: 'accept-charset="utf-8"' wegen Umlauten in Formfeldern und Nichtnutzen mysqli, sondern sp für INSERTS */
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    92
    ?>
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    93
            <div align="center">
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    94
            <h5>* - Felder sind erforderlich!</h5>
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    95
            </div>
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    96
            <form action="<?php $_SERVER['PHP_SELF'] ?>" method="post" enctype="application/x-www-form-urlencoded" name="form_key" accept-charset="utf-8">
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    97
            <div align="center">
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    98
            <?php
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    99
                if ($err) echo "<p class='red'>$err</p>\n";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   100
            ?>
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   101
            <table width="45%" border="0" cellspacing="3" cellpadding="3">
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   102
                <tr>
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   103
                    <td>Depot FHI Schl&uuml;sseltyp *</td><td>Anzahl *</td><td>Depot *</td>
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   104
                </tr>
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   105
                <tr>
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   106
                    <td><select name="ky[kt]" onchange="this.form.submit();">
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   107
                        <?php
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   108
                            $sql = "SELECT key_level,d.keytyp_ID,keytyp_bez,
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   109
                                        SUM(CASE WHEN depot_action='get' THEN IFNULL(depot_anz,0) ELSE 0 END) - SUM(CASE WHEN depot_action='out' THEN IFNULL(depot_anz,0) ELSE 0 END) - SUM(CASE WHEN depot_action='lost' THEN IFNULL(depot_anz,0) ELSE 0 END) AS bestand
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   110
                                        FROM fhiiqm.Keytyp_Depot d INNER JOIN Keytyp k ON d.keytyp_ID=k.keytyp_ID
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   111
                                        WHERE depot_ID='FHI'
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   112
                                        GROUP BY key_level,keytyp_ID,keytyp_bez";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   113
                            if ($res = $dbc -> queryObjectArray($sql))
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   114
                                foreach ($res as $row)
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   115
                                {
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   116
                                   if (!$ky['kt'] && !$start)  $ky['kt'] = $row->keytyp_ID;
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   117
                                   if ($row->keytyp_ID == $ky['kt']) $select = "selected='selected'"; else $select = "";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   118
        					       echo "<option $select value=\"$row->keytyp_ID\">$row->key_level - $row->keytyp_ID [$row->keytyp_bez] ($row->bestand)</option>\n";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   119
                                   $start=1;
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   120
                                }
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   121
                        ?>
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   122
                    </select>
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   123
                    </td>
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   124
                    <td><input name="ky[anz]" type="text" size="5" maxlength="3" value="<?php echo $ky['anz']; ?>" /></td>
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   125
                    <td><select name="ky[dep]" onchange="this.form.submit();">
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   126
                        <?php
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   127
                            $strdep = "'". implode("','",$adep) ."'";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   128
                            echo "$strdep<br />";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   129
                            $sql = "SELECT * FROM fhiiqm.KeyDepot WHERE depot_ID IN ($strdep)";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   130
                            if ($res = $dbc -> queryObjectArray($sql))
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   131
                                foreach ($res as $row)
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   132
                                {
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   133
                                   if (!$ky['dep'] && !$beg)  $ky['dep'] = $row->depot_ID;
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   134
                                   if ($row->depot_ID == $ky['dep']) $select = "selected='selected'"; else $select = "";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   135
        					       echo "<option $select value=\"$row->depot_ID\">$row->depot_ID: $row->depot_bez</option>\n";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   136
                                   $beg=1;
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   137
                                }
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   138
                        ?>
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   139
                    </select>
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   140
                    <?php
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   141
                        $sql = "SELECT IFNULL(SUM(CASE WHEN depot_action='get' THEN IFNULL(depot_anz,0) ELSE 0 END),0) - IFNULL(SUM(CASE WHEN depot_action='out' THEN IFNULL(depot_anz,0) ELSE 0 END),0) - IFNULL(SUM(CASE WHEN depot_action='lost' THEN IFNULL(depot_anz,0) ELSE 0 END),0) AS bestand
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   142
                                FROM fhiiqm.Keytyp_Depot WHERE depot_ID='".$ky["dep"]."' AND keytyp_ID = '". $ky["kt"] ."'";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   143
    //                    echo "nach submit: $sql<br />";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   144
                        $anzdep = $dbc->querySingleItem($sql);
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   145
                        echo "&nbsp;&nbsp;&nbsp;($anzdep)";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   146
                    ?>
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   147
                    </td>
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   148
                </tr>
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   149
                <tr><td>Bemerkung</td><td colspan="2"><textarea name="ky[bem]" cols="50" rows="2"><?php echo $ky['bem']; ?></textarea></td></tr>
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   150
                <?php
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   151
                    if (in_array("ke",$_SESSION["recht"]))
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   152
                    {
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   153
                ?>
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   154
                <tr><td></td><td><input class="button" type="submit" name="out" value="-> Ausgabe&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;" title="Ausgabe"/></td></tr>
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   155
                <tr><td></td><td><input class="button" type="submit" name="get" value="<- R&uuml;cknahme" title="Rueckgabe"/></td></tr>
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   156
    <!--            <tr><td></td><td><input class="button" type="submit" name="lost" value="<- Verlust&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;" title="Verlust"/></td></tr> -->
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   157
                <?php
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   158
                    }
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   159
                ?>
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   160
            </table>
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   161
    <?php
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   162
        }
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   163
        else
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   164
        {
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   165
            echo "<div align=\"center\">";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   166
    //        print_r($ky); echo "$get,$out,$lost<br />";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   167
            $umls = array("Ä","Ö","Ü","ä","ö","ü","ß");
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   168
            $umlr = array("Ae","Oe","Ue","ae","oe","ue","ss");
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   169
            if ($get) $action = "get";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   170
            elseif ($out) $action = "out";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   171
            elseif ($lost) $action = "lost";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   172
            if (isset($ky) && $ky)
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   173
            {
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   174
    //            $ky["bem"] = str_replace($umls,$umlr,str_replace("'","\"",substr($ky["bem"],0,100)));
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   175
                $ky["bem"] = str_replace("'","\"",substr($ky["bem"],0,100));
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   176
                if (is_numeric($ky["anz"]) && $ky["anz"] != 0)
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   177
                {
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   178
                    $sql = "CALL keytyp_tract_dep('FHI','".$ky["dep"]."','".$ky["kt"]."',".$ky["anz"].",'$action','" .$ky["bem"]."',@suc)";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   179
                    $result = $dbc ->queryObjectArray($sql);
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   180
                    if ($dbc -> querySingleItem("SELECT @suc"))
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   181
                            echo "<p class='green'><b>" . $aaction["$action"].": ".$ky["anz"]. " Schlüssel '". $ky['kt'] . 
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   182
                            "' wurde(n) erfolgreich zwischen Depot 'FHI' und Depot '".$ky["dep"]. "' transferiert.</b></p>\n";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   183
                    else
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   184
                            echo "<p class='red'><b>" . $aaction["$action"].": ".$ky["anz"]. " Schlüssel '". $ky['kt'] . 
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   185
                            "' konnte(n) nicht zwischen Depot 'FHI' und Depot '".$ky["dep"]. "' transferiert werden.</b></p>\n";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   186
                } 
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   187
                else
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   188
                        echo "<p class='red'><b>" . $aaction["$action"].": '".$ky["anz"]. "' Schlüssel '". $ky['kt'] . 
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   189
                        "' konnte(n) nicht zwischen Depot 'FHI' und Depot '".$ky["dep"]. "' transferiert werden.</b></p>\n";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   190
                        
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   191
                $sql = "SELECT SUM(CASE WHEN depot_action='get' THEN IFNULL(depot_anz,0) ELSE 0 END) - SUM(CASE WHEN depot_action='out' THEN IFNULL(depot_anz,0) ELSE 0 END) - SUM(CASE WHEN depot_action='lost' THEN IFNULL(depot_anz,0) ELSE 0 END) AS bestand
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   192
                        FROM fhiiqm.Keytyp_Depot WHERE depot_ID='FHI' AND keytyp_ID = '". $ky["kt"] ."'";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   193
                $anzfhi = $dbc->querySingleItem($sql);
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   194
                $sql = "SELECT SUM(CASE WHEN depot_action='get' THEN IFNULL(depot_anz,0) ELSE 0 END) - SUM(CASE WHEN depot_action='out' THEN IFNULL(depot_anz,0) ELSE 0 END) - SUM(CASE WHEN depot_action='lost' THEN IFNULL(depot_anz,0) ELSE 0 END) AS bestand
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   195
                        FROM fhiiqm.Keytyp_Depot WHERE depot_ID='".$ky["dep"]."' AND keytyp_ID = '". $ky["kt"] ."'";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   196
                $anzdep = $dbc->querySingleItem($sql);
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   197
                
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   198
                echo "<p>Aktueller Bestand Schlüsseltyp '". $ky["kt"] ."'<br /> Depot FHI: $anzfhi<br /> Depot ". $ky["dep"] . ": $anzdep</p><br /><br />\n";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   199
            }
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   200
            echo "</div>\n";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   201
            echo "<p class='sc'>&nbsp;&nbsp;&nbsp;<a href=\"".$_SERVER["PHP_SELF"]."\" target=\"_self\" title=\"Transfer Depot\">Weiterer Depot-Transfer</a></p>\n";    
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   202
      }
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   203
  }
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   204
?>
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   205
</body>
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   206
</html>