function hae_tuotteettomat()
 {
     global $kukarow;
     $query = "SELECT tuotepaikat.tunnus ttun,\n              tuotepaikat.tuoteno,\n              tuotepaikat.saldo,\n              tuotepaikat.oletus,\n              concat_ws('-', tuotepaikat.hyllyalue,\n                             tuotepaikat.hyllynro,\n                             tuotepaikat.hyllyvali,\n                             tuotepaikat.hyllytaso) paikka,\n              tuote.tunnus\n              FROM tuotepaikat\n              LEFT JOIN tuote ON (tuote.yhtio = tuotepaikat.yhtio\n                AND tuote.tuoteno     = tuotepaikat.tuoteno)\n              WHERE tuotepaikat.yhtio = '{$kukarow['yhtio']}'\n              AND (tuote.tunnus is null or tuote.ei_saldoa != '')\n              ORDER BY tuotepaikat.tuoteno";
     $result = pupe_query($query);
     return $result;
 }

function massamuuttaja($taulu, $sarake, $korvattava, $korvaava)
{
    global $yhtiorow, $kukarow;
    $paivityslause = "UPDATE {$taulu} SET\n                     {$sarake} = '{$korvaava}',\n                     muuttaja    = '{$kukarow['kuka']}',\n                     muutospvm   = now()\n                     WHERE yhtio = '{$kukarow['yhtio']}'\n                     AND {$sarake} = '{$korvattava}'";
    $resultpaivitys = pupe_query($paivityslause);
    return mysql_affected_rows();
}

 /**
  * Palauttaa ketjun kaikki tuotteet
  */
 function tuotteet($ketju, $options = array())
 {
     global $kukarow;
     $tuotteet = array();
     $conditions = '';
     if (!empty($options)) {
         if ($options['skippaa_vaihtoehtoiset']) {
             $conditions .= " AND vaihtoehtoinen = '' ";
         }
         // Tsekataan tarvittavat parametrit
         if ($options['vastaavuusketjun_jarjestys'] == 'K') {
             // Haetaan tuotteen järjestys jolla ketju on alunperin haettu
             $query = "SELECT if (jarjestys=0, 9999, jarjestys) jarjestys\n                  FROM vastaavat\n                  WHERE yhtio = '{$kukarow['yhtio']}'\n                  AND id      = '{$ketju}'\n                  AND tuoteno = '{$this->tuote}'";
             $result = pupe_query($query);
             $jarjestys = mysql_fetch_assoc($result);
             $conditions .= "HAVING jarjestys >= {$jarjestys['jarjestys']}";
         }
     }
     // Haetaan korvaavat ketju ja tuotteiden tiedot
     $query = "SELECT 'vastaava' as tyyppi, if (vastaavat.jarjestys=0, 9999, vastaavat.jarjestys) jarjestys, vastaavat.vaihtoehtoinen, vastaavat.tunnus as vastaavat_tunnus, tuote.*\n              FROM vastaavat\n              JOIN tuote ON vastaavat.yhtio=tuote.yhtio AND vastaavat.tuoteno=tuote.tuoteno\n              WHERE vastaavat.yhtio = '{$kukarow['yhtio']}'\n              AND vastaavat.id      = '{$ketju}'\n              {$conditions}\n              ORDER BY jarjestys, tuoteno";
     $result = pupe_query($query);
     while ($tuote = mysql_fetch_assoc($result)) {
         $tuotteet[] = $tuote;
     }
     return $tuotteet;
 }

function hae($viivakoodi = '', $tuoteno = '', $tuotepaikka = '')
{
    global $kukarow;
    // Poistetaan tuotepaikasta välimerkit
    $hylly = preg_replace("/[^a-zA-ZåäöÅÄÖ0-9]/", "", $tuotepaikka);
    // Hakuehdot
    if ($tuoteno != '') {
        $params['tuoteno'] = "tuote.tuoteno = '{$tuoteno}'";
    }
    if ($tuotepaikka != '') {
        $params['tuotepaikka'] = "hyllypaikka LIKE '{$hylly}%'";
    }
    // Viivakoodi case
    if ($viivakoodi != '') {
        $tuotenumerot = hae_viivakoodilla($viivakoodi);
        $param_viivakoodi = array();
        foreach ($tuotenumerot as $_tuoteno => $_arr) {
            array_push($param_viivakoodi, $_tuoteno);
        }
        $params['viivakoodi'] = "tuote.tuoteno in ('" . implode($param_viivakoodi, "','") . "')";
    }
    $osumat = array();
    if (!empty($params)) {
        $haku_ehto = implode($params, " AND ");
        $query = "SELECT\n              tuote.tuoteno,\n              inventointilistarivi.otunnus as inventointilista,\n              inventointilistarivi.aika as inventointilista_aika,\n              concat(  lpad(upper(tuotepaikat.hyllyalue), 5, '0'),\n                  lpad(upper(tuotepaikat.hyllynro), 5, '0'),\n                  lpad(upper(tuotepaikat.hyllyvali), 5, '0'),\n                  lpad(upper(tuotepaikat.hyllytaso), 5, '0')) as sorttauskentta,\n              concat_ws('-',tuotepaikat.hyllyalue, tuotepaikat.hyllynro,\n                    tuotepaikat.hyllyvali, tuotepaikat.hyllytaso) tuotepaikka\n              FROM tuotepaikat\n              JOIN varastopaikat ON (varastopaikat.yhtio = tuotepaikat.yhtio\n                AND varastopaikat.tunnus                   = tuotepaikat.varasto\n                AND varastopaikat.toimipaikka              = '{$kukarow['toimipaikka']}'\n                AND varastopaikat.tyyppi                   = ''\n              )\n              JOIN tuote on (tuote.yhtio=tuotepaikat.yhtio and tuote.tuoteno=tuotepaikat.tuoteno)\n              LEFT JOIN inventointilistarivi ON (inventointilistarivi.yhtio = tuotepaikat.yhtio\n                AND inventointilistarivi.tuotepaikkatunnus = tuotepaikat.tunnus\n                AND inventointilistarivi.tila              = 'A')\n              WHERE tuotepaikat.yhtio                      = '{$kukarow['yhtio']}'\n              AND {$haku_ehto}\n              LIMIT 200";
        $result = pupe_query($query);
        while ($row = mysql_fetch_assoc($result)) {
            $osumat[] = $row;
        }
    }
    return $osumat;
}

function datansisalto_e3($e3_ehdotuskansio, $dfile, $otunnus, $toimituspaiva)
{
    global $yhtiorow, $kukarow;
    $laskuquery = "SELECT *\n                 FROM lasku\n                 WHERE yhtio = '{$kukarow['yhtio']}'\n                 AND tunnus  = '{$otunnus}'";
    $lasku_result = pupe_query($laskuquery);
    $laskurow = mysql_fetch_array($lasku_result);
    $lines = file($e3_ehdotuskansio . "/" . $dfile);
    foreach ($lines as $line) {
        $tuoteno = pupesoft_cleanstring(substr($line, 12, 17));
        $varasto = pupesoft_cleanstring(substr($line, 30, 3));
        $tuotenimi = pupesoft_cleanstring(substr($line, 33, 34));
        $kpl = pupesoft_cleannumber(substr($line, 68, 7));
        //$hinta     = pupesoft_cleannumber(substr($line, 91, 13));
        //$hinta     = $hinta / 10000;
        $tuote_query = "SELECT tuote.try,\n                    tuote.osasto,\n                    tuote.tuoteno,\n                    tuote.nimitys,\n                    tuote.yksikko,\n                    tuotepaikat.hyllyalue,\n                    tuotepaikat.hyllynro,\n                    tuotepaikat.hyllytaso,\n                    tuotepaikat.hyllyvali\n                    FROM tuote\n                    LEFT JOIN tuotepaikat ON (tuotepaikat.yhtio = tuote.yhtio and tuotepaikat.tuoteno = tuote.tuoteno)\n                    WHERE tuote.yhtio = '{$kukarow['yhtio']}'\n                    AND tuote.tuoteno = '{$tuoteno}'\n                    ORDER BY tuotepaikat.oletus DESC\n                    LIMIT 1";
        $tuote_result = pupe_query($tuote_query);
        $tuote_row = mysql_fetch_array($tuote_result);
        if ($tuote_row['tuoteno'] == '') {
            echo "<br>";
            echo "<font class='error'>" . t("Tiedostosta %s tuotetietoja tuotteelle %s ei löydy tuotehallinnasta. Tuotetta ei lisätty ostoehdotukseen.", "", $file, $tuoteno) . "</font>";
            echo "<br>";
        } else {
            list($hinta, $netto, $ale, ) = alehinta_osto($laskurow, $tuote_row, $kpl);
            $insert_query = "INSERT INTO tilausrivi SET\n                       yhtio     = '{$kukarow['yhtio']}',\n                       tyyppi    = 'O',\n                       toimaika  = '{$toimituspaiva}',\n                       otunnus   = '{$otunnus}',\n                       tuoteno   = '{$tuoteno}',\n                       try       = '{$tuote_row['try']}',\n                       osasto    = '{$tuote_row['osasto']}',\n                       nimitys   = '{$tuote_row['nimitys']}',\n                       tilkpl    = '{$kpl}',\n                       yksikko   = '{$tuote_row['yksikko']}',\n                       varattu   = '{$kpl}',\n                       hinta     = '{$hinta}',\n                       netto     = '{$netto}',\n                       ale1      = '{$ale['ale1']}',\n                       ale2      = '{$ale['ale2']}',\n                       ale3      = '{$ale['ale3']}',\n                       laatija   = 'E3',\n                       laadittu  = now(),\n                       hyllyalue = '{$tuote_row['hyllyalue']}',\n                       hyllynro  = '{$tuote_row['hyllynro']}',\n                       hyllytaso = '{$tuote_row['hyllytaso']}',\n                       hyllyvali = '{$tuote_row['hyllyvali']}'";
            $insertdata = pupe_query($insert_query);
        }
    }
    echo "<br>";
    echo "<font class='message'>" . t("Ostoehdotus %s siirretty ostotilaukseksi %s.", "", $filunloppu, $otunnus) . "</font>";
    echo "<br><br>";
    // Siirretään done kansioon
    rename($e3_ehdotuskansio . "/" . $dfile, $e3_ehdotuskansio . "/done/" . $dfile);
}

 function alku()
 {
     global $yhtiorow, $firstpage, $pdf, $rectparam, $norm, $norm_bold, $pieni, $ytunnus, $asiakasid, $kukarow, $kala, $tid, $otsikkotid;
     static $sivu;
     $sivu++;
     if (!isset($pdf)) {
         //PDF parametrit
         $pdf = new pdffile();
         $pdf->enable('template');
         $pdf->set_default('margin-top', 0);
         $pdf->set_default('margin-bottom', 0);
         $pdf->set_default('margin-left', 0);
         $pdf->set_default('margin-right', 0);
         $rectparam["width"] = 0.3;
         $norm["height"] = 12;
         $norm["font"] = "Courier";
         $norm_bold["height"] = 12;
         $norm_bold["font"] = "Courier-Bold";
         $pieni["height"] = 8;
         $pieni["font"] = "Courier";
         $query = "SELECT *\n                 FROM asiakas\n                 WHERE yhtio = '{$kukarow['yhtio']}'\n                 and tunnus  = '{$asiakasid}'";
         $assresult = pupe_query($query);
         $assrow = mysql_fetch_assoc($assresult);
         // Tehdään firstpage
         $firstpage = $pdf->new_page("a4");
         //  Tehdään headertemplate
         $tid = $pdf->template->create();
         $pdf->template->rectangle($tid, 20, 20, 0, 580, $rectparam);
         $pdf->template->text($tid, 30, 5, $yhtiorow["nimi"], $pieni);
         $pdf->template->text($tid, 170, 5, "{$assrow['nimi']} {$assrow['nimitark']} ({$ytunnus}) " . t("alennustaulukko"));
         $pdf->template->place($tid, $firstpage, 0, 800);
         //  Tehdään otsikkoheader
         $otsikkotid = $pdf->template->create();
         $pdf->template->text($otsikkotid, 30, 20, t("Osasto"), $norm_bold);
         $pdf->template->text($otsikkotid, 30, 0, t("Tuoteryhmä") . "/" . t("Tuotenumero"), $norm_bold);
         $pdf->template->text($otsikkotid, 330, 0, t("Aleryhmä"), $norm_bold);
         $pdf->template->text($otsikkotid, 450, 0, t("Alennus"), $norm_bold);
         if ($yhtiorow['myynnin_alekentat'] > 1) {
             $pdf->template->text($otsikkotid, 520, 0, t("Alelaji"), $norm_bold);
         }
         $pdf->template->place($otsikkotid, $firstpage, 0, 665, $norm_bold);
         $kala = 650;
         //  Asiakastiedot
         //$pdf->draw_rectangle(737, 20,  674, 300, $firstpage, $rectparam);
         $pdf->draw_text(50, 759, t("Osoite", $kieli), $firstpage, $pieni);
         $pdf->draw_text(50, 747, $assrow["nimi"], $firstpage, $norm);
         $pdf->draw_text(50, 737, $assrow["nimitark"], $firstpage, $norm);
         $pdf->draw_text(50, 727, $assrow["osoite"], $firstpage, $norm);
         $pdf->draw_text(50, 717, $assrow["postino"] . " " . $assrow["postitp"], $firstpage, $norm);
         $pdf->draw_text(50, 707, $assrow["maa"], $firstpage, $norm);
     } else {
         //  Liitetään vaan valmiit templatet uudelle sivulle
         $firstpage = $pdf->new_page("a4");
         $pdf->template->place($tid, $firstpage, 0, 800);
         $pdf->template->place($otsikkotid, $firstpage, 0, 760);
     }
     $pdf->draw_text(520, 805, t("Sivu") . ": {$sivu}", $firstpage, $norm);
 }

function va_ti_en_jt($tuoteno, $hyllyalue, $hyllynro, $hyllyvali, $hyllytaso)
{
    global $kukarow, $yhtiorow, $lisavarattu;
    //tilauksessa, ennakkopoistot ja jt
    $query = "SELECT\n            sum(if(tyyppi in ('W','M'), varattu, 0)) valmistuksessa,\n            sum(if(tyyppi = 'O', varattu, 0)) tilattu,\n            sum(if(tyyppi = 'E', varattu, 0)) ennakot,\n            sum(if(tyyppi in ('L','V') and var not in ('P','J','O','S'), varattu, 0)) ennpois,\n            sum(if(tyyppi in ('L','G') and var = 'J', jt {$lisavarattu}, 0)) jt\n            FROM tilausrivi use index (yhtio_tyyppi_tuoteno_laskutettuaika)\n            WHERE yhtio        = '{$kukarow['yhtio']}'\n             AND tyyppi        in ('L','V','O','G','E','W','M')\n            AND tuoteno        = '{$tuoteno}'\n            AND laskutettuaika = '0000-00-00'\n            AND hyllyalue      = '{$hyllyalue}'\n            AND hyllynro       = '{$hyllynro}'\n            AND hyllyvali      = '{$hyllyvali}'\n            AND hyllytaso      = '{$hyllytaso}'\n            AND (varattu+jt > 0)";
    $result = pupe_query($query);
    $ennp = mysql_fetch_assoc($result);
    return array($ennp['tilattu'], $ennp['valmistuksessa'], $ennp['ennpois'], $ennp['jt']);
}

function hae_skannattu_lasku($kasittele_seuraava = "")
{
    global $kukarow, $yhtiorow;
    $dir = $yhtiorow['skannatut_laskut_polku'];
    if (!is_dir($dir) or !is_writable($dir)) {
        return false;
    }
    // käydään läpi ensin käsiteltävät kuvat
    $files = listdir($dir);
    $files_count = count($files);
    // Jos ei ole yhtään tiedostoa, palautetaan false
    if ($files_count == 0) {
        return false;
    }
    // Tehdään palautusta varten array, palautetaan aina laskujen lukumäärä
    $palautus = array("lukumaara" => $files_count);
    // Katsotaan onko laskuja, jota käyttäjä voisi käsitellä
    $query = "SELECT kesken\n            FROM kuka\n            WHERE yhtio  = '{$kukarow["yhtio"]}'\n            AND extranet = ''";
    $kesken_chk_res = pupe_query($query);
    foreach ($files as $file) {
        $path_parts = pathinfo($file);
        mysql_data_seek($kesken_chk_res, 0);
        while ($kesken_chk_row = mysql_fetch_assoc($kesken_chk_res)) {
            // Jos tiedosto on tällä käyttäjällä kesken
            if (is_numeric($path_parts['filename']) and $path_parts['filename'] == $kukarow['kesken']) {
                // Palautetaan kesken -key, jos tämä on meillä kesken
                $palautus["kesken"] = $path_parts["basename"];
                $palautus["seuraava"] = $path_parts["basename"];
                return $palautus;
            } elseif ($path_parts['filename'] == $kesken_chk_row['kesken']) {
                continue 2;
            }
        }
        // Jos halutaan ottaa seuraava lasku käsittelyyn, päivitetään kuka -tiedot
        if ($kasittele_seuraava != "") {
            // Tämän tiedoston voi käsitellä seuraavaksi, laitetaan se käyttäjälle keskeneräiseksi
            list($micro, $timestamp) = explode(" ", microtime());
            $file_basename = substr($timestamp . substr($micro * 10, 0, 1), 2);
            $kukarow['kesken'] = $file_basename;
            $file_new = $dir . "/" . $file_basename . "." . $path_parts['extension'];
            $query = "UPDATE kuka SET kesken = '{$kukarow["kesken"]}'\n                WHERE yhtio = '{$kukarow["yhtio"]}'\n                AND kuka    = '{$kukarow["kuka"]}'";
            $kesken_upd_res = pupe_query($query);
            if (!rename($file, $file_new)) {
                echo t("Ei pystytä nimeämään tiedostoa") . "<br>";
                return false;
            }
            // Otetaan path parts uudesta tiedostonimestä
            $path_parts = pathinfo($file_new);
        }
        // Tämän laskun voi käsitellä
        $palautus["seuraava"] = $path_parts["basename"];
        return $palautus;
    }
    // Ei löytynyt yhtään sopivaa laskua
    return false;
}

 function kuka_kayttaja($keta_haetaan)
 {
     global $kukarow, $yhtiorow;
     $query = "SELECT kuka.nimi\n              FROM kuka\n              WHERE kuka.yhtio = '{$kukarow['yhtio']}'\n              AND kuka.kuka ='{$keta_haetaan}'";
     $kukares = pupe_query($query);
     $row = mysql_fetch_assoc($kukares);
     if ($row["nimi"] != "") {
         return $row["nimi"];
     } else {
         return $keta_haetaan;
     }
 }

 /**
  * Hakee ketjun päätuotteen
  */
 function paatuote()
 {
     global $kukarow;
     // Haetaan ketjun päätuote
     if ($this->id) {
         $query = "SELECT *\n                FROM korvaavat\n                WHERE yhtio = '{$kukarow['yhtio']}'\n                AND id      = {$this->id}\n                ORDER BY if (jarjestys=0, 9999, jarjestys), tuoteno\n                LIMIT 1";
         $result = pupe_query($query);
         $ketju = mysql_fetch_assoc($result);
         $this->paatuote = $ketju;
     }
     return $this->paatuote['tuoteno'];
 }

 function getnoderow($toim, $nodeid)
 {
     global $yhtiorow, $kukarow;
     $qu = "SELECT *\n           FROM dynaaminen_puu\n           WHERE dynaaminen_puu.yhtio = '{$yhtiorow['yhtio']}'\n           AND dynaaminen_puu.laji    = '{$toim}'\n           AND dynaaminen_puu.tunnus  = '{$nodeid}'";
     $re = pupe_query($qu);
     $numres = mysql_num_rows($re);
     if ($numres > 0) {
         $row = mysql_fetch_assoc($re);
         return $row;
     } else {
         return false;
     }
 }

 function laskeveroja($taso, $tulos)
 {
     global $kukarow, $startmonth, $endmonth;
     if ($tulos == '22' or $tulos == 'veronmaara' or $tulos == 'summa') {
         if ($taso == 'fi307') {
             $vainsuomi = "JOIN lasku ON lasku.yhtio=tiliointi.yhtio and lasku.tunnus=tiliointi.ltunnus and lasku.maa in ('FI', '')";
         } else {
             $vainsuomi = '';
         }
         if ($taso == 'fi309' or $taso == 'fi310') {
             $_309lisa = " or alv_taso like '%fi300%' ";
             $vainveroton = " and tiliointi.vero = 0 ";
         } else {
             $_309lisa = "";
             $vainveroton = '';
         }
         $query = "SELECT ifnull(group_concat(if(alv_taso like '%fi300%', concat(\"'\",tilino,\"'\"), NULL)), '') tilit300,\n                ifnull(group_concat(if(alv_taso not like '%fi300%', concat(\"'\",tilino,\"'\"), NULL)), '') tilitMUU\n                FROM tili\n                WHERE yhtio = '{$kukarow['yhtio']}'\n                and (alv_taso like '%{$taso}%' {$_309lisa})";
         $tilires = pupe_query($query);
         $tilirow = mysql_fetch_array($tilires);
         $vero = 0.0;
         if ($tilirow['tilit300'] != '' or $tilirow['tilitMUU'] != '') {
             $tiliointilisa = '';
             if ($ryhma == 'fi307') {
                 $tiliointilisa = " and tiliointi.vero > 0 ";
             }
             $query = "SELECT sum(round(tiliointi.summa * if('{$tulos}'='22', 22, vero) / 100, 2)) veronmaara,\n                  sum(tiliointi.summa) summa,\n                   count(*) kpl\n                  FROM tiliointi\n                  {$vainsuomi}\n                  WHERE tiliointi.yhtio = '{$kukarow['yhtio']}'\n                  {$tiliointilisa}\n                  AND korjattu          = ''\n                  AND (";
             if ($tilirow["tilit300"] != "") {
                 $query .= "  (tilino in ({$tilirow['tilit300']}) {$vainveroton})";
             }
             if ($tilirow["tilit300"] != "" and $tilirow["tilitMUU"] != "") {
                 $query .= " or ";
             }
             if ($tilirow["tilitMUU"] != "") {
                 $query .= "   tilino in ({$tilirow['tilitMUU']})";
             }
             $query .= "  )\n              AND tiliointi.tapvm >= '{$startmonth}'\n              AND tiliointi.tapvm <= '{$endmonth}'";
             $verores = pupe_query($query);
             while ($verorow = mysql_fetch_array($verores)) {
                 if ($tulos == '22') {
                     $tulos = 'veronmaara';
                 }
                 $vero += $verorow[$tulos];
             }
         }
     } else {
         $vero = 0;
     }
     return sprintf('%.2f', $vero);
 }

 function tuoteryhman_varastonarvo($parametrit)
 {
     global $kukarow, $yhtiorow;
     $osasto = $parametrit['osasto'];
     $try = $parametrit['try'];
     $pvm1 = $parametrit['pvm1'];
     $pvm2 = $parametrit['pvm2'];
     if ($pvm1 == "" or $osasto == "" or $try == "") {
         return false;
     }
     // saldo nyt
     $query = "SELECT sum(saldo) saldo_nyt\n              FROM tuote\n              JOIN tuotepaikat on (tuote.yhtio = tuotepaikat.yhtio AND tuote.tuoteno = tuotepaikat.tuoteno)\n              WHERE tuote.yhtio = '{$kukarow["yhtio"]}'\n              AND tuote.osasto  = '{$osasto}'\n              AND tuote.try     = '{$try}'";
     $result = pupe_query($query);
     $arvo = mysql_fetch_assoc($result);
     $saldo_nyt = $arvo['saldo_nyt'];
     // varastonmuutos
     $query = "SELECT\n              sum(if(tapahtuma.laadittu >= '{$pvm1} 00:00:00', tapahtuma.kpl, 0)) muutoskpl1,\n              sum(if(tapahtuma.laadittu >= '{$pvm2} 00:00:00', tapahtuma.kpl, 0)) muutoskpl2\n               FROM tuote\n              JOIN tapahtuma on (tuote.yhtio = tapahtuma.yhtio AND tuote.tuoteno = tapahtuma.tuoteno and tapahtuma.laadittu >= '{$pvm2} 00:00:00' and tapahtuma.laji != 'Epäkurantti')\n              WHERE tuote.yhtio = '{$kukarow['yhtio']}'\n               AND tuote.osasto = '{$osasto}'\n              AND tuote.try     = '{$try}'\n              ORDER BY tapahtuma.laadittu desc, tapahtuma.tunnus desc";
     $muutosres = pupe_query($query);
     $row = mysql_fetch_assoc($muutosres);
     $arvo1 = $saldo_nyt + $row['muutoskpl1'];
     $arvo2 = $saldo_nyt + $row['muutoskpl2'];
     return array($arvo1, $arvo2);
 }

 $api_keys["user_api_key"] = $maventa_keys['maventa_api_avain'];
 $api_keys["vendor_api_key"] = $maventa_keys['maventa_ohjelmisto_api_avain'];
 // Vaihtoehtoinen company_uuid
 if ($maventa_keys['maventa_yrityksen_uuid'] != "") {
     $api_keys["company_uuid"] = $maventa_keys['maventa_yrityksen_uuid'];
 }
 // Kellonaika Maventan serverillä "YYYYMMDDHHMMSS"
 $maventan_kellonaika = $client->server_time();
 $maventan_kellonaika = date("Y-m-d H:i:s", strtotime(substr($maventan_kellonaika, 0, 8) . "T" . substr($maventan_kellonaika, 8)));
 // Haetaan uudet laskut
 // $maventa_keys["maventa_aikaleima"] --> viimeisin laskuhaku kannassa, tästä otettu 5 minsaa pois niin pelataan aikaikkunoiden suhteen varman päälle.
 // Duplikaattitsekki kuitenkin laskuloopissa.
 $uudet_laskut = $client->invoice_list_inbound($api_keys, preg_replace("/[^0-9]/", "", $maventa_keys["maventa_aikaleima"]));
 // Päivitetään aikaleima kantaan
 $aika_query = "UPDATE yhtion_parametrit\n                 SET maventa_aikaleima = '{$maventan_kellonaika}'\n                 WHERE yhtio = '{$maventa_keys['yhtio']}'";
 $aika_res = pupe_query($aika_query);
 // Jos uusia laskuja ei löydy
 if (!$uudet_laskut) {
     continue;
 }
 // Haetaan uudet laskut ja niiden liitteet
 foreach ($uudet_laskut as $lasku) {
     // Jos id on tyhjää niin ohitetaan
     if ($lasku->id == "") {
         continue;
     }
     $find = exec("find {$verkkolaskut_in} -name \"*maventa_{$lasku->id}_maventa*\"");
     // Tsekataan ettei tää lasku oo jo noudettu
     if ($find != "") {
         continue;
     }

 if ($mikataso > 0) {
     if (!$php_cli) {
         echo "<tr><td><a target='Tuotekysely' href='{$palvelin2}tuote.php?tee=Z&tuoteno=" . urlencode($epakurantti_row['tuoteno']) . "'>{$epakurantti_row['tuoteno']}</a>";
     }
     // Näytetään varastossa olevat erät/sarjanumerot
     if ($epakurantti_row["sarjanumeroseuranta"] == "V" or $epakurantti_row['sarjanumeroseuranta'] == 'T') {
         $query = "SELECT sarjanumeroseuranta.*, sarjanumeroseuranta.tunnus sarjatunnus,\n                     tilausrivi_osto.tunnus osto_rivitunnus,\n                     tilausrivi_osto.perheid2 osto_perheid2,\n                     tilausrivi_osto.nimitys nimitys,\n                     lasku_myynti.nimi myynimi\n                     FROM sarjanumeroseuranta\n                     LEFT JOIN tilausrivi tilausrivi_myynti use index (PRIMARY) ON tilausrivi_myynti.yhtio=sarjanumeroseuranta.yhtio and tilausrivi_myynti.tunnus=sarjanumeroseuranta.myyntirivitunnus\n                     LEFT JOIN tilausrivi tilausrivi_osto   use index (PRIMARY) ON tilausrivi_osto.yhtio=sarjanumeroseuranta.yhtio   and tilausrivi_osto.tunnus=sarjanumeroseuranta.ostorivitunnus\n                     LEFT JOIN lasku lasku_osto   use index (PRIMARY) ON lasku_osto.yhtio=sarjanumeroseuranta.yhtio and lasku_osto.tunnus=tilausrivi_osto.uusiotunnus\n                     LEFT JOIN lasku lasku_myynti use index (PRIMARY) ON lasku_myynti.yhtio=sarjanumeroseuranta.yhtio and lasku_myynti.tunnus=tilausrivi_myynti.otunnus\n                     WHERE sarjanumeroseuranta.yhtio           = '{$kukarow['yhtio']}'\n                     and sarjanumeroseuranta.tuoteno           = '{$epakurantti_row['tuoteno']}'\n                     and sarjanumeroseuranta.myyntirivitunnus != -1\n                     and (tilausrivi_myynti.tunnus is null or tilausrivi_myynti.laskutettuaika = '0000-00-00')\n                     and tilausrivi_osto.laskutettuaika       != '0000-00-00'";
         $sarjares = pupe_query($query);
         while ($sarjarow = mysql_fetch_assoc($sarjares)) {
             if (!$php_cli) {
                 echo "<br>" . t("S:nro") . "{$sarjarow['sarjanumero']}";
             }
         }
     } elseif ($epakurantti_row["sarjanumeroseuranta"] == "E" or $epakurantti_row["sarjanumeroseuranta"] == "F") {
         $query = "SELECT sarjanumeroseuranta.sarjanumero, sarjanumeroseuranta.parasta_ennen, sarjanumeroseuranta.lisatieto,\n                     sarjanumeroseuranta.hyllyalue, sarjanumeroseuranta.hyllynro, sarjanumeroseuranta.hyllyvali, sarjanumeroseuranta.hyllytaso,\n                     sarjanumeroseuranta.era_kpl kpl,\n                     sarjanumeroseuranta.tunnus sarjatunnus\n                     FROM sarjanumeroseuranta\n                     LEFT JOIN tilausrivi tilausrivi_osto   use index (PRIMARY) ON tilausrivi_osto.yhtio=sarjanumeroseuranta.yhtio   and tilausrivi_osto.tunnus=sarjanumeroseuranta.ostorivitunnus\n                     WHERE sarjanumeroseuranta.yhtio           = '{$kukarow['yhtio']}'\n                     and sarjanumeroseuranta.tuoteno           = '{$epakurantti_row['tuoteno']}'\n                     and sarjanumeroseuranta.myyntirivitunnus  = 0\n                     and sarjanumeroseuranta.era_kpl          != 0\n                     and tilausrivi_osto.laskutettuaika       != '0000-00-00'";
         $sarjares = pupe_query($query);
         while ($sarjarow = mysql_fetch_assoc($sarjares)) {
             if (!$php_cli) {
                 echo "<br>" . t("E:nro") . " {$sarjarow['sarjanumero']} ({$sarjarow['kpl']})";
             }
         }
     }
     if (!$php_cli) {
         echo "</td>";
     }
     $tuotensarake = $excelsarake;
     $worksheet->writeString($excelrivi, $excelsarake++, $epakurantti_row['tuoteno']);
     if (!$php_cli) {
         echo "<td>{$epakurantti_row['nimitys']}</td>";
     }
     $worksheet->writeString($excelrivi, $excelsarake++, $epakurantti_row['nimitys']);

     echo "</form><br>";
 } else {
     echo t("Ei tulostamattomia keräyserätarroja");
 }
 echo "<br><br><font class='head'>" . t("Tulostetut keräyserätarrat") . "</font><hr>";
 $query = "SELECT DATE_FORMAT(lasku.luontiaika, '%Y-%m-%d %H:%i') luontiaika, lasku.toimaika, lasku.ytunnus, lasku.nimi, lasku.toim_nimi, group_concat(lasku.tunnus) laskutunnukset, count(tilausrivi.tunnus) riveja, sum(tilausrivi.tilkpl) myyntieria\n            FROM lasku\n            JOIN tilausrivi ON lasku.yhtio = tilausrivi.yhtio and lasku.tunnus = tilausrivi.otunnus and tilausrivi.tyyppi = 'Z'\n            WHERE lasku.yhtio    = '{$kukarow['yhtio']}'\n            and lasku.tila       = 'Z'\n            and lasku.alatila    = 'X'\n            and lasku.luontiaika >= date_sub(now(), INTERVAL 30 DAY)\n            GROUP BY 1,2,3,4,5\n            ORDER BY 1 DESC,2 DESC,3,4,5";
 $tarrares = pupe_query($query);
 if (mysql_num_rows($tarrares) > 0) {
     echo "<form method='post'>";
     echo "<input type='hidden' name='tee' value='vanhat'>";
     echo "<table>";
     echo "<tr><th>" . t("Vastaanotettu") . "</th><th>" . t("Toimitusaika") . "</th><th>" . t("Ytunnus") . "</th><th>" . t("Nimi") . "</th><th>" . t("Toim.Nimi") . "</th><th>" . t("Rivejä") . "</th><th>" . t("Myyntieriä") . "</th><th>" . t("Tulosta") . "</th></tr>";
     $yhtriveja = 0;
     $yhteria = 0;
     $query = "SELECT *\n              from kirjoittimet\n              where yhtio = '{$kukarow['yhtio']}'";
     $kires2 = pupe_query($query);
     while ($tarrarow = mysql_fetch_array($tarrares)) {
         echo "<tr><td>" . tv1dateconv($tarrarow["luontiaika"], "P") . "</td><td>" . tv1dateconv($tarrarow["toimaika"]) . "</td><td>{$tarrarow['ytunnus']}</td><td>{$tarrarow['nimi']}</td><td>{$tarrarow['toim_nimi']}</td><td align='right'>{$tarrarow['riveja']}</td><td align='right'>{$tarrarow['myyntieria']}</td>";
         echo "<td align='center'><input type='checkbox' name='vanhatunnukset[]' value='{$tarrarow['laskutunnukset']}'></td></tr>";
     }
     echo "</table><br>";
     echo "<select name='kirjoitinvan'>";
     echo "<option value='{$kirow2['komento']}'>" . t("Valitse kirjoitin") . "</option>";
     while ($kirow2 = mysql_fetch_array($kires2)) {
         if ($kirow2['komento'] == $kirjoitinvan) {
             $select = 'SELECTED';
         } else {
             $select = '';
         }
         echo "<option value='{$kirow2['komento']}' {$select}>{$kirow2['kirjoitin']}</option>";
     }

function hae_rivit($tyyppi, $kukarow, $vva, $kka, $ppa, $vvl, $kkl, $ppl, $apaikka, $lpaikka, $varastot, $keraysvyohykkeet, $lisa_kentat, $kerayksettomat_tuotepaikat, $lisa)
{
    global $yhtiorow;
    $ostoehdotukset = array('' => t("Ehdotetaan ostoehdotusohjelmissa tilattavaksi"), 'E' => "Ei ehdoteta ostoehdotusohjelmissa tilattavaksi");
    if (strtotime("{$vva}-{$kka}-{$ppa}") < strtotime('now - 12 months')) {
        $_date = "AND tilausrivi.kerattyaika >= '{$vva}-{$kka}-{$ppa} 00:00:00'\n          AND tilausrivi.kerattyaika <= '{$vvl}-{$kkl}-{$ppl} 23:59:59'";
    } else {
        $_date = "AND tilausrivi.kerattyaika >= Date_sub(CURRENT_DATE, INTERVAL 12 month)";
    }
    $tuotepaikka_where = "";
    $a = array_filter($apaikka);
    $l = array_filter($lpaikka);
    if (!empty($a) or !empty($l)) {
        $ahyllyalue = $apaikka['ahyllyalue'];
        $ahyllynro = $apaikka['ahyllynro'];
        $ahyllyvali = $apaikka['ahyllyvali'];
        $ahyllytaso = $apaikka['ahyllytaso'];
        $lhyllyalue = $lpaikka['lhyllyalue'];
        $lhyllynro = $lpaikka['lhyllynro'];
        $lhyllyvali = $lpaikka['lhyllyvali'];
        $lhyllytaso = $lpaikka['lhyllytaso'];
        $tuotepaikka_where = "and concat(rpad(upper(tilausrivi.hyllyalue) ,5,'0'),lpad(upper(tilausrivi.hyllynro) ,5,'0'),lpad(upper(tilausrivi.hyllyvali) ,5,'0'),lpad(upper(tilausrivi.hyllytaso) ,5,'0')) >=\n          concat(rpad(upper('{$ahyllyalue}'), 5, '0'),lpad(upper('{$ahyllynro}'), 5, '0'),lpad(upper('{$ahyllyvali}'), 5, '0'),lpad(upper('{$ahyllytaso}'),5, '0'))\n          and concat(rpad(upper(tilausrivi.hyllyalue) ,5,'0'),lpad(upper(tilausrivi.hyllynro) ,5,'0'),lpad(upper(tilausrivi.hyllyvali) ,5,'0'),lpad(upper(tilausrivi.hyllytaso) ,5,'0')) <=\n          concat(rpad(upper('{$lhyllyalue}'), 5, '0'),lpad(upper('{$lhyllynro}'), 5, '0'),lpad(upper('{$lhyllyvali}'), 5, '0'),lpad(upper('{$lhyllytaso}'),5, '0'))";
    }
    $varasto_lisa1 = "";
    $varasto_lisa2 = "";
    if (!empty($varastot)) {
        $varasto_lisa1 = " AND tuotepaikat.varasto IN (" . implode(",", $varastot) . ") ";
        $varasto_lisa2 = " AND tilausrivi.varasto IN (" . implode(",", $varastot) . ") ";
    }
    $tuote_select = "";
    $keraysvyohyke_select = "";
    $keraysvyohyke_join = "";
    $varaston_hyllypaikat_join = "";
    $group = ",";
    if ($yhtiorow['kerayserat'] == "K") {
        $keraysvyohyke_select = "keraysvyohyke.nimitys as keraysvyohykkeen_nimitys,";
        $keraysvyohyke_join = " JOIN keraysvyohyke ON (keraysvyohyke.yhtio = vh.yhtio AND keraysvyohyke.tunnus = vh.keraysvyohyke)";
        $varaston_hyllypaikat_join = " JOIN varaston_hyllypaikat AS vh\n                    ON (\n                      vh.yhtio = tilausrivi.yhtio\n                      AND vh.hyllyalue = tilausrivi.hyllyalue\n                      AND vh.hyllynro = tilausrivi.hyllynro\n                      AND vh.hyllytaso = tilausrivi.hyllytaso\n                      AND vh.hyllyvali = tilausrivi.hyllyvali";
        if (!empty($keraysvyohykkeet)) {
            $varaston_hyllypaikat_join .= "  AND vh.keraysvyohyke IN (" . implode(",", $keraysvyohykkeet) . ")";
        }
        $varaston_hyllypaikat_join .= ")";
        $group .= "keraysvyohykkeen_nimitys,";
    }
    if ($tyyppi == "TUOTE") {
        $vresult = t_avainsana("S");
        $tuote_statukset = array();
        while ($status = mysql_fetch_assoc($vresult)) {
            $tuote_statukset[$status['selite']] = $status['selitetark'];
        }
        $checked_count = 0;
        if (!empty($lisa_kentat)) {
            foreach ($lisa_kentat as $lisa_kentta) {
                if (!empty($lisa_kentta['checked'])) {
                    $tuote_select .= $lisa_kentta['kolumni'] . ', ';
                    $group .= $lisa_kentta['kolumni'] . ', ';
                    $checked_count++;
                }
            }
            // Ruksattiin jotain lisävalintoita (tuotekohtaisia), voidaan näyttää saldo
            if ($checked_count > 0) {
                $tuote_select .= "tuotepaikat.saldo,";
                $group .= "tuotepaikat.saldo,";
            }
        }
        $tuote_select .= "tilausrivi.hyllyalue, tilausrivi.hyllynro, tilausrivi.hyllyvali, tilausrivi.hyllytaso, ";
        $tuote_select .= "CONCAT_WS(' ', tilausrivi.hyllyalue, tilausrivi.hyllynro, tilausrivi.hyllyvali, tilausrivi.hyllytaso) as hylly, ";
        $tuote_select .= "group_concat(distinct tuotepaikat.tunnus) paikkatun, ";
        $group .= "tilausrivi.hyllyalue, tilausrivi.hyllynro, tilausrivi.hyllyvali, tilausrivi.hyllytaso, hylly,";
        if (empty($kerayksettomat_tuotepaikat)) {
            $tuote_select .= "if (tuotepaikat.tunnus IS NULL , 1, 0) poistettu, ";
            $group .= "poistettu,";
        }
    }
    $group = rtrim($group, " ,");
    if (!empty($kerayksettomat_tuotepaikat)) {
        $kerayksettomat_tuotepaikat_varaston_hyllypaikat_join = str_replace('tilausrivi', 'tuotepaikat', $varaston_hyllypaikat_join);
        $kerayksettomat_tuotepaikat_group = str_replace('tilausrivi', 'tuotepaikat', $group);
        $kerayksettomat_tuotepaikka_where = str_replace('tilausrivi', 'tuotepaikat', $tuotepaikka_where);
        $kerayksettomat_tuote_select = str_replace('tilausrivi', 'tuotepaikat', $tuote_select);
        $query = "SELECT varastopaikat.nimitys as varaston_nimitys,\n              {$keraysvyohyke_select}\n              {$kerayksettomat_tuote_select}\n              sum(if (tilausrivi.kerattyaika >= '{$vva}-{$kka}-{$ppa} 00:00:00' AND tilausrivi.kerattyaika <= '{$vvl}-{$kkl}-{$ppl} 23:59:59', 1, 0)) kpl_valittu_aika,\n              sum(if (tilausrivi.kerattyaika >= '{$vva}-{$kka}-{$ppa} 00:00:00' AND tilausrivi.kerattyaika <= '{$vvl}-{$kkl}-{$ppl} 23:59:59', tilausrivi.kpl+tilausrivi.varattu, 0)) tuokpl_valittu_aika,\n              sum(if (tilausrivi.kerattyaika >= Date_sub(CURRENT_DATE, INTERVAL 6 month), 1, 0)) kpl_6,\n              sum(if (tilausrivi.kerattyaika >= Date_sub(CURRENT_DATE, INTERVAL 6 month), tilausrivi.kpl+tilausrivi.varattu, 0)) tuo_kpl_6,\n              sum(if (tilausrivi.kerattyaika >= Date_sub(CURRENT_DATE, INTERVAL 12 month), 1, 0)) kpl_12,\n              sum(if (tilausrivi.kerattyaika >= Date_sub(CURRENT_DATE, INTERVAL 12 month), tilausrivi.kpl+tilausrivi.varattu, 0)) tuo_kpl_12\n              FROM tuotepaikat\n              JOIN tuote USE INDEX (tuoteno_index) ON (tuotepaikat.yhtio = tuote.yhtio\n                AND tuotepaikat.tuoteno  = tuote.tuoteno\n                AND tuote.ei_saldoa      = '')\n              JOIN varastopaikat ON (varastopaikat.yhtio = tuotepaikat.yhtio\n                AND varastopaikat.tunnus = tuotepaikat.varasto)\n              {$kerayksettomat_tuotepaikat_varaston_hyllypaikat_join}\n              {$keraysvyohyke_join}\n              LEFT JOIN tilausrivi ON ( tilausrivi.tyyppi = 'L'\n                AND tilausrivi.yhtio     = tuotepaikat.yhtio\n                AND tilausrivi.hyllyalue = tuotepaikat.hyllyalue\n                AND tilausrivi.hyllynro  = tuotepaikat.hyllynro\n                AND tilausrivi.hyllyvali = tuotepaikat.hyllyvali\n                AND tilausrivi.hyllytaso = tuotepaikat.hyllytaso\n                AND tilausrivi.tuoteno   = tuotepaikat.tuoteno\n                {$_date})\n              WHERE tuotepaikat.yhtio    = '{$kukarow['yhtio']}'\n              {$kerayksettomat_tuotepaikka_where}\n              {$varasto_lisa1}\n              GROUP BY 1\n              {$kerayksettomat_tuotepaikat_group}\n              ORDER BY kpl_valittu_aika DESC\n              {$lisa}";
    } else {
        $query = "SELECT varastopaikat.nimitys as varaston_nimitys,\n              {$keraysvyohyke_select}\n              {$tuote_select}\n              sum(if (tilausrivi.kerattyaika >= '{$vva}-{$kka}-{$ppa} 00:00:00' AND tilausrivi.kerattyaika <= '{$vvl}-{$kkl}-{$ppl} 23:59:59', 1, 0)) kpl_valittu_aika,\n              s