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