fhiiqm/inc/vertragtab_ins.inc.php
author Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
Thu, 18 Apr 2013 14:30:58 +0200
changeset 36 4411d3239444
parent 35 679bc22e37e2
child 43 70cea8f0e807
permissions -rw-r--r--
+ Info mehrere Dokumente, Korrekturen Vertrag, Projekt
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
1
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
     1
<?php
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
     2
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
     3
/**
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
     4
 * @author Bettina Schwarzer, Fritz-Haber-Institut
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
     5
 * @copyright 06/2011
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
     6
 *   
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
     7
 * INSERT Vertragsdaten in n:m-Tabellen fuer INSERT und UPDATE Vertragsdaten 
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
     8
 */
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
     9
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    10
            // Loeschen der alten Bearbeiter, Hinzufuegen der neuen
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    11
            $retb = true;
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    12
            $sql = "DELETE FROM Vertrag_Bearbeiter WHERE contract_ID = $cid";
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    13
            $retd = $dbc -> execute($sql);
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    14
            if ($retd)
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    15
            {
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    16
                if (is_array($vtr['cpers']))
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    17
                {
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    18
                    foreach ($vtr['cpers'] as $pers)
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    19
                    {
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    20
                        if ($pers != -1)
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    21
                        { 
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    22
                            $sql = "INSERT INTO Vertrag_Bearbeiter VALUES($cid, $pers)";
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    23
                //                        echo "INSERT Bearbeiter: $sql<br><br>\n";
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    24
                            $retb = $dbc -> execute($sql);
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    25
                        }
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    26
                    }
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    27
                }
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    28
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    29
            }
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    30
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    31
             // Partner
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    32
            $retp = true;
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    33
            if ($vtr['partid'] != -1)
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    34
            {
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    35
                // Loeschen alter Partner, INSERT neuer
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    36
                $sql = "DELETE FROM Vertrag_Partner WHERE contract_ID = $cid";
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    37
                $retdp = $dbc -> execute($sql);
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    38
                if ($retdp)
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    39
                {
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    40
                    $sql = "INSERT INTO Vertrag_Partner VALUES($cid," . $vtr['partid'] .")";
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    41
                    $retp = $dbc -> execute($sql);
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    42
                    if (!$retp) echo "error INSERT Vertrag_Partner: " . $dbc -> error . " <br />\n";
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    43
                }
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    44
                $pid = $vtr['partid'];
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    45
            }
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    46
            if ($vtr['partner'])
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    47
            {
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    48
                // Test, ob Eintrag schon vorhanden
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    49
                $sql = "SELECT part_ID, part_firma FROM Partner WHERE part_firma = '" . ltrim($vtr['partner']) . "'";
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    50
                if ($res = $dbc -> queryObjectArray($sql))
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    51
                {
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    52
                    foreach ($res as $row)
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    53
                        $pid = $row->part_ID;
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    54
                }        
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    55
                else
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    56
                {
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    57
                    // INSERT in Partner, ID INSERT in Vertrag_Partner
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    58
                    $sql = "INSERT INTO Partner (part_firma) VALUES (LEFT(TRIM('" . $vtr['partner'] . "'),50))";
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    59
                    $retp = $dbc -> execute($sql); 
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    60
    //                    echo "Partner INSERT: $sql<br />\n";           
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    61
                    if ($retp) $pid = $dbc -> insertId();
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    62
                }
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    63
                if ($pid)
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    64
                { 
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    65
                    // Loeschen alter Partner, INSERT neuer
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    66
                    $sql = "DELETE FROM Vertrag_Partner WHERE contract_ID = $cid";
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    67
                    $retdp = $dbc -> execute($sql);
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    68
                    if ($retdp)
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    69
                    {
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    70
                            $sql = "INSERT INTO Vertrag_Partner VALUES($cid,$pid)";
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    71
                            $retp = $dbc -> execute($sql);
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    72
                            if (!$retp) echo "error INSERT Vertrag_Partner: " . $dbc -> error . " <br />\n";
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    73
                    }
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    74
                }
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    75
            }
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    76
            
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    77
            // Produkt
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    78
            $retd = true;
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    79
            if ($vtr['prodid'] > 0 || $vtr['prodid'] = -1) // nur Produkte, keine Gruppen, Bereiche
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    80
            {
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    81
                // Loeschen altes Produkt, INSERT neues
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    82
                $sql = "DELETE FROM Produkt_Vertrag WHERE contract_ID = $cid";
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    83
                $retdd = $dbc -> execute($sql);
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    84
                if ($retdd && $vtr['prodid'] > 0)
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    85
                {
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    86
                    //INSERT in Produkt_Vertrag
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    87
                    $sql = "INSERT INTO Produkt_Vertrag VALUES(".$vtr['prodid'].",$cid)";
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    88
                    $retd = $dbc -> execute($sql); 
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    89
                    if (!$retd) echo "error INSERT Produkt_Vertrag: " . $dbc -> error . " <br />\n";
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    90
                }
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    91
                
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    92
            }
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    93
            
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    94
            // Kosten
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    95
            $retk = true;
35
679bc22e37e2 + Vertrag mehrere Dokumente, Projektreports
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 23
diff changeset
    96
            if ($vtr['kost'] && ($vtr['bjahr'] || $vtr['bdat'])) // Kosten fuer mindestens Startjahr
1
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    97
            {
35
679bc22e37e2 + Vertrag mehrere Dokumente, Projektreports
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 23
diff changeset
    98
                if ($vtr['bdat'])
679bc22e37e2 + Vertrag mehrere Dokumente, Projektreports
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 23
diff changeset
    99
                {
679bc22e37e2 + Vertrag mehrere Dokumente, Projektreports
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 23
diff changeset
   100
                    $jahr = new DateTime($vtr['bdat']);
679bc22e37e2 + Vertrag mehrere Dokumente, Projektreports
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 23
diff changeset
   101
                    $bjahr = $jahr->format('Y');
679bc22e37e2 + Vertrag mehrere Dokumente, Projektreports
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 23
diff changeset
   102
                }
679bc22e37e2 + Vertrag mehrere Dokumente, Projektreports
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 23
diff changeset
   103
                else $bjahr = $vtr['bjahr'];              
679bc22e37e2 + Vertrag mehrere Dokumente, Projektreports
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 23
diff changeset
   104
1
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   105
                // alle bisherigen Angaben loeschen
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   106
                $sql = "DELETE FROM Vertrag_Kosten WHERE contract_ID = $cid";
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   107
                $retdk = $dbc -> execute($sql);   
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   108
                if ($retdk)
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   109
                {
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   110
                    $j=0;
35
679bc22e37e2 + Vertrag mehrere Dokumente, Projektreports
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 23
diff changeset
   111
                    if ($vtr['ejahr'] || $vtr['edat'])
679bc22e37e2 + Vertrag mehrere Dokumente, Projektreports
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 23
diff changeset
   112
                    { 
679bc22e37e2 + Vertrag mehrere Dokumente, Projektreports
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 23
diff changeset
   113
                        if ($vtr['ejahr']) $ejahr = $vtr['ejahr'];
679bc22e37e2 + Vertrag mehrere Dokumente, Projektreports
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 23
diff changeset
   114
                        else
679bc22e37e2 + Vertrag mehrere Dokumente, Projektreports
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 23
diff changeset
   115
                        {
679bc22e37e2 + Vertrag mehrere Dokumente, Projektreports
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 23
diff changeset
   116
                            $jahr = new DateTime($vtr['edat']);
679bc22e37e2 + Vertrag mehrere Dokumente, Projektreports
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 23
diff changeset
   117
                            $ejahr = $jahr->format('Y');   
679bc22e37e2 + Vertrag mehrere Dokumente, Projektreports
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 23
diff changeset
   118
                        }
679bc22e37e2 + Vertrag mehrere Dokumente, Projektreports
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 23
diff changeset
   119
                    }    
679bc22e37e2 + Vertrag mehrere Dokumente, Projektreports
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 23
diff changeset
   120
                    elseif ($vtr["cautoend"] && !$vtr['ejahr'] && !$vtr['edat']) // automatische Vertragsverlaengerung und kein Endjahr angegeben
8
908abe8cec4d + Automatische Verlaengerung Vertrag
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 1
diff changeset
   121
                        $ejahr = date("Y");
908abe8cec4d + Automatische Verlaengerung Vertrag
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 1
diff changeset
   122
                    else 
908abe8cec4d + Automatische Verlaengerung Vertrag
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 1
diff changeset
   123
                        $ejahr = null;
908abe8cec4d + Automatische Verlaengerung Vertrag
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 1
diff changeset
   124
//                    if ($vtr['ejahr']) // Endjahr angegeben
908abe8cec4d + Automatische Verlaengerung Vertrag
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 1
diff changeset
   125
                    if ($ejahr) // Endjahr angegeben
1
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   126
                    {
35
679bc22e37e2 + Vertrag mehrere Dokumente, Projektreports
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 23
diff changeset
   127
                        for ($i=(int)$bjahr; $i< (int)$ejahr +1; $i++)
1
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   128
                        {
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   129
                            if ($vtr['kost'][$j])
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   130
                            {
23
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 8
diff changeset
   131
//                                $kost = str_replace(',','.',$vtr['kost'][$j]);
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 8
diff changeset
   132
                                $kost = dbformat_wert($vtr['kost'][$j]);
1
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   133
                                $sql = "INSERT INTO Vertrag_Kosten (contract_ID,k_year,kosten) VALUES($cid,$i,$kost)";
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   134
                                $retk = $dbc -> execute($sql);
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   135
                            }
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   136
                            $j++;   
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   137
                        }
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   138
                    }
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   139
                    else // nur fuer Startjahr
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   140
                    {
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   141
                        if ($vtr['kost'][0])
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   142
                        {
23
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 8
diff changeset
   143
//                            $kost = str_replace(',','.',$vtr['kost'][0]);
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 8
diff changeset
   144
                            $kost = dbformat_wert($vtr['kost'][0]);
35
679bc22e37e2 + Vertrag mehrere Dokumente, Projektreports
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 23
diff changeset
   145
                            $sql = "INSERT INTO Vertrag_Kosten (contract_ID,k_year,kosten) VALUES($cid,".(int)$bjahr.",$kost)";
1
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   146
                            $retk = $dbc -> execute($sql);
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   147
                        }   
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   148
                    }
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   149
                    if (!$retk) echo "error INSERT Vertrag_Kosten: " . $dbc -> error . "<br />$sql<br />\n";
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   150
                }
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   151
            }
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   152
35
679bc22e37e2 + Vertrag mehrere Dokumente, Projektreports
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 23
diff changeset
   153
            // Vertragfile und Schlagwort
679bc22e37e2 + Vertrag mehrere Dokumente, Projektreports
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 23
diff changeset
   154
            $retl = true;
679bc22e37e2 + Vertrag mehrere Dokumente, Projektreports
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 23
diff changeset
   155
            if (is_array($vtr['cfname']) && count($vtr['cfname']) > 0)
679bc22e37e2 + Vertrag mehrere Dokumente, Projektreports
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 23
diff changeset
   156
            {
679bc22e37e2 + Vertrag mehrere Dokumente, Projektreports
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 23
diff changeset
   157
                // alle bisherigen Dokumente loeschen
679bc22e37e2 + Vertrag mehrere Dokumente, Projektreports
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 23
diff changeset
   158
                $sql = "DELETE FROM Vertrag_File WHERE contract_ID = $cid";
679bc22e37e2 + Vertrag mehrere Dokumente, Projektreports
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 23
diff changeset
   159
                $retdl = $dbc -> execute($sql);   
679bc22e37e2 + Vertrag mehrere Dokumente, Projektreports
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 23
diff changeset
   160
                if ($retdl)
679bc22e37e2 + Vertrag mehrere Dokumente, Projektreports
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 23
diff changeset
   161
                {
679bc22e37e2 + Vertrag mehrere Dokumente, Projektreports
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 23
diff changeset
   162
                    foreach ($vtr['cfname'] as $key => $value)
679bc22e37e2 + Vertrag mehrere Dokumente, Projektreports
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 23
diff changeset
   163
                    {
679bc22e37e2 + Vertrag mehrere Dokumente, Projektreports
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 23
diff changeset
   164
                        if ($value)
679bc22e37e2 + Vertrag mehrere Dokumente, Projektreports
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 23
diff changeset
   165
                        {
36
4411d3239444 + Info mehrere Dokumente, Korrekturen Vertrag, Projekt
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 35
diff changeset
   166
                            if (!$vtr['swort'][$key] || $vtr['swort'][$key]<"!") $sw = "NULL"; else $sw = "'".$vtr['swort'][$key]."'";
35
679bc22e37e2 + Vertrag mehrere Dokumente, Projektreports
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 23
diff changeset
   167
                            if (substr($value,0,$len) != $cid . "_") $file = $cid . "_".$value; else $file = $value;
36
4411d3239444 + Info mehrere Dokumente, Korrekturen Vertrag, Projekt
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 35
diff changeset
   168
                            $sql = "INSERT INTO Vertrag_File (contract_ID,cf_filename,cf_schlagwort) VALUES ($cid,'$file',$sw)";
35
679bc22e37e2 + Vertrag mehrere Dokumente, Projektreports
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 23
diff changeset
   169
                            $retl = $retl && $dbc -> execute($sql);
679bc22e37e2 + Vertrag mehrere Dokumente, Projektreports
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 23
diff changeset
   170
                        }
679bc22e37e2 + Vertrag mehrere Dokumente, Projektreports
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 23
diff changeset
   171
                    }    
679bc22e37e2 + Vertrag mehrere Dokumente, Projektreports
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 23
diff changeset
   172
                    if (!$retl) echo "error INSERT Vertrag_File: " . $dbc -> error . "<br />$sql<br />\n";
679bc22e37e2 + Vertrag mehrere Dokumente, Projektreports
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 23
diff changeset
   173
                }
679bc22e37e2 + Vertrag mehrere Dokumente, Projektreports
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 23
diff changeset
   174
            }
1
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   175
?>