global $kukarow, $yhtiorow;

///* Etsitään laskun kaikki tiedot jolle maksusopimus on tehty *///

$query = "SELECT *

FROM lasku

WHERE yhtio = '$kukarow[yhtio]'

and tunnus = '$tunnus'

and tila in ('L','N','R')

and alatila != 'X'";

$stresult = pupe_query($query);

if (mysql_num_rows($stresult) == 0) {

echo "Otsikkoa '$tunnus' ei löytynyt, tai se on väärässä tilassa.";

return 0;

}

$laskurow = mysql_fetch_assoc($stresult);

// Lasku voi mennä myös kaukomaille, joten haetaan tämän asiakkaan kieli..

$query = "SELECT kieli from asiakas WHERE yhtio = '$kukarow[yhtio]' and tunnus='$laskurow[liitostunnus]'";

$kielires = pupe_query($query);

$kielirow = mysql_fetch_assoc($kielires);

if ($debug==1) echo t("Perusotsikko löytyi")." $laskurow[nimi]<br>";

// Onko sopimuksella vielä jotain ennakkolaskutettavaa

$query = "SELECT yhtio

FROM maksupositio

WHERE yhtio = '$kukarow[yhtio]'

and otunnus = '$tunnus'

and uusiotunnus = 0";

$posres = pupe_query($query);

if (mysql_num_rows($posres) <= 1) {

echo t("VIRHE: Tilauksella ei ole ennakkolaskutettavia positioita!")."<br>";

return 0;

}

// tarkistetaan että meillä on jotain järkevää laskutettavaa

$query = "SELECT *

FROM maksupositio

WHERE yhtio = '$kukarow[yhtio]'

and otunnus = '$tunnus'

and uusiotunnus = 0

ORDER BY tunnus

LIMIT 1";

$posres = pupe_query($query);

$posrow = mysql_fetch_assoc($posres);

if ($debug==1) echo t("Löydettiin maksupositio")." $posrow[tunnus], $posrow[osuus] %, $posrow[maksuehto]<br>";

if ($posrow["summa"] <= 0 or $posrow["maksuehto"] == 0 or (int) $posrow["tunnus"] == 0) {

echo t("VIRHE: laskutusposition summa on nolla tai sen alle. Korjaa tämä!")."<br>";

return 0;

}

// Tilausrivin kommentti-kenttään menevä kommentti

$query = "SELECT

sum(if (uusiotunnus > 0, 1, 0)) laskutettu,

count(*) yhteensa

FROM maksupositio

WHERE yhtio = '$kukarow[yhtio]'

and otunnus = '$tunnus'";

$abures = pupe_query($query);

$aburow = mysql_fetch_assoc($abures);

$lahteva_lasku = ($aburow["laskutettu"] + 1)."/".$aburow["yhteensa"];

// tehdään vanhasta laskusta 1:1 kopio...

$query = "INSERT INTO lasku SET ";

for ($i=0; $i<mysql_num_fields($stresult); $i++) {

$fieldname = mysql_field_name($stresult, $i);

// paitsi tilaan laitetaan N

if ($fieldname == 'tila') {

$query .= "tila='N',";

}

elseif ($fieldname == 'alatila') {

$query .= "alatila='',";

}

elseif ($fieldname == 'ketjutus') {

$query .= "ketjutus='o',";

}

elseif ($fieldname == 'tilaustyyppi') {

if (strtoupper($laskurow["tilaustyyppi"]) == "A") {

$query .= "tilaustyyppi='A',";

}

else {

$query .= "tilaustyyppi='L',";

}

}

// laatijaksi klikkaaja

elseif ($fieldname == 'laatija') {

$query .= "laatija='$kukarow[kuka]',";

}

elseif ($fieldname == 'eilahetetta') {

$query .= "eilahetetta='',";

}

// keräysaika, luontiaika ja toimitusaikaan now

elseif ($fieldname == 'kerayspvm' or

$fieldname == 'luontiaika' or

$fieldname == 'toimaika') {

$query .= $fieldname."=now(),";

}

// nämä kentät tyhjennetään

elseif ($fieldname == 'kapvm' or

$fieldname == 'tapvm' or

$fieldname == 'olmapvm' or

$fieldname == 'summa' or

$fieldname == 'kasumma' or

$fieldname == 'hinta' or

$fieldname == 'kate' or

$fieldname == 'arvo' or

$fieldname == 'maksuaika' or

$fieldname == 'lahetepvm' or

$fieldname == 'viite' or

$fieldname == 'laskunro' or

$fieldname == 'mapvm' or

$fieldname == 'tilausvahvistus' or

$fieldname == 'viikorkoeur' or

$fieldname == 'tullausnumero' or

$fieldname == 'laskutuspvm' or

$fieldname == 'laskuttaja' or

$fieldname == 'laskutettu' or

$fieldname == 'lahetepvm' or

$fieldname == 'maksaja' or

$fieldname == 'maksettu' or

$fieldname == 'maa_maara' or

$fieldname == 'kuljetusmuoto' or

$fieldname == 'kauppatapahtuman_luonne' or

$fieldname == 'sisamaan_kuljetus' or

$fieldname == 'sisamaan_kuljetusmuoto' or

$fieldname == 'poistumistoimipaikka' or

$fieldname == 'vanhatunnus' or

$fieldname == 'poistumistoimipaikka_koodi') {

$query .= $fieldname."='',";

}

elseif ($fieldname == 'kate_korjattu') {

$query .= $fieldname." = NULL,";

}

// maksuehto tulee tältä positiolta

elseif ($fieldname == 'maksuehto') {

$query .= "maksuehto = '$posrow[maksuehto]',";

}

// erpcm voi tulla tältä positiolta

elseif ($fieldname == 'erpcm') {

if ($posrow["erpcm"] != '0000-00-00') {

$query .= "erpcm = '$posrow[erpcm]',";

}

else {

$query .= "erpcm = '0000-00-00',";

}

}

elseif ($fieldname == 'clearing') {

$query .= "clearing = 'ENNAKKOLASKU',";

}

elseif ($fieldname == 'jaksotettu') {

// Käännetän ennakkolaskun jaksotettukenttä negatiiviseksi jotta me löydetään ne yksiselitteisesti,

// mutta kuitenkin niin, etteivät ne sekoitu maksusopimuksen alkuperäisiin tilauksiin

$query .= "jaksotettu = '".($laskurow['jaksotettu'] * -1)."',";

}

elseif ($fieldname == 'viesti' and !empty($yhtiorow['ennakkolaskun_tyyppi'])) {

$viesti = t("Ennakkolasku", $kielirow["kieli"])." $lahteva_lasku ".t("tilaukselle", $kielirow["kieli"])." $tunnus ".t("Osuus", $kielirow["kieli"])." ".round($posrow["osuus"], 2)."% ";

$query .= "viesti = '".$viesti."',";

}

elseif ($fieldname != 'tunnus') {

// ja kaikki muut paitsi tunnus sellaisenaan

$query .= $fieldname." = '".$laskurow[$fieldname]."',";

}

}

$query = substr($query, 0, -1);

$stresult = pupe_query($query);

$id = mysql_insert_id($GLOBALS["masterlink"]);

// tehdään vanhan laskun lisätiedoista 1:1 kopio...

$query = "SELECT *

FROM laskun_lisatiedot

WHERE yhtio = '$kukarow[yhtio]'

AND otunnus = '$tunnus'";

$lisatiedot_result = pupe_query($query);

$lisatiedot_row = mysql_fetch_assoc($lisatiedot_result);

$query = "INSERT INTO laskun_lisatiedot SET ";

for ($i = 0; $i < mysql_num_fields($lisatiedot_result); $i++) {

$fieldname = mysql_field_name($lisatiedot_result, $i);

if ($fieldname == 'laatija') {

$query .= $fieldname."='$kukarow[kuka]',";

}

elseif ($fieldname == 'luontiaika') {

$query .= $fieldname."=now(),";

}

elseif ($fieldname == 'otunnus') {

$query .= $fieldname."='$id',";

}

elseif ($fieldname != 'tunnus') {

$query .= $fieldname."='".$lisatiedot_row[$fieldname]."',";

}

}

$query = substr($query, 0, -1);

$lisatiedot_result = pupe_query($query);

// tehdään vanhan laskun työmääräystidoista 1:1 kopio...

$query = "SELECT *

FROM tyomaarays

WHERE yhtio = '$kukarow[yhtio]'

AND otunnus = '$tunnus'";

$lisatiedot_result = pupe_query($query);

$lisatiedot_row = mysql_fetch_assoc($lisatiedot_result);

$query = "INSERT INTO tyomaarays SET ";

for ($i = 0; $i < mysql_num_fields($lisatiedot_result); $i++) {

$fieldname = mysql_field_name($lisatiedot_result, $i);

if ($fieldname == 'laatija') {

$query .= $fieldname."='$kukarow[kuka]',";

}

elseif ($fieldname == 'luontiaika') {

$query .= $fieldname."=now(),";

}

elseif ($fieldname == 'otunnus') {

$query .= $fieldname."='$id',";

}

elseif ($fieldname != 'tunnus') {

$query .= $fieldname."='".$lisatiedot_row[$fieldname]."',";

}

}

$query = substr($query, 0, -1);

$lisatiedot_result = pupe_query($query);

if ($debug==1) echo t("Perustin laskun")." $laskurow[nimi] $id<br>";

$query_ale_lisa = generoi_alekentta('M');

// Lasketaan maksusopimuksen arvo verokannoittain jotta voidaan laskuttaa ennakot oikeissa alveissa

// ja lisätään ennakkolaskutusrivi laskulle, vain jaksotetut rivit!

$query = "SELECT

sum(if (tilausrivi.jaksotettu=lasku.jaksotettu, tilausrivi.hinta / if ('$yhtiorow[alv_kasittely]' = '' and tilausrivi.alv < 500, (1+tilausrivi.alv/100), 1) * (tilausrivi.varattu+tilausrivi.jt) * {$query_ale_lisa}, 0)) jaksotettavaa

FROM lasku

JOIN tilausrivi ON tilausrivi.yhtio = lasku.yhtio and tilausrivi.otunnus = lasku.tunnus and tilausrivi.tyyppi = 'L' and (tilausrivi.varattu+tilausrivi.jt) > 0 and tilausrivi.jaksotettu=lasku.jaksotettu

WHERE lasku.yhtio = '$kukarow[yhtio]'

and lasku.jaksotettu = '$tunnus'

GROUP by lasku.jaksotettu";

$result = pupe_query($query);

$sumrow = mysql_fetch_assoc($result);

if ($yhtiorow['ennakkolaskun_tyyppi'] == 'E') {

$alet = generoi_alekentta_select('erikseen', 'M');

$query = "SELECT

tilausrivi.tuoteno,

tilausrivi.nimitys,

tilausrivi.kommentti,

tilausrivi.varattu,

tilausrivi.tilkpl,

{$alet}

if (tilausrivi.jaksotettu=lasku.jaksotettu, tilausrivi.hinta / if ('{$yhtiorow['alv_kasittely']}' = '' and tilausrivi.alv < 500, (1+tilausrivi.alv/100), 1), 0) summa,

if (tilausrivi.alv >= 600 or tilausrivi.alv < 500, tilausrivi.alv, 0) alv

FROM lasku

JOIN tilausrivi ON (tilausrivi.yhtio = lasku.yhtio and tilausrivi.otunnus = lasku.tunnus and tilausrivi.tyyppi = 'L' and (tilausrivi.varattu + tilausrivi.jt) > 0 and tilausrivi.jaksotettu = lasku.jaksotettu)

WHERE lasku.yhtio = '$kukarow[yhtio]'

and lasku.jaksotettu = '$tunnus'";

}

else {

$query = "SELECT

sum(if (tilausrivi.jaksotettu=lasku.jaksotettu, tilausrivi.hinta / if ('{$yhtiorow['alv_kasittely']}' = '' and tilausrivi.alv < 500, (1+tilausrivi.alv/100), 1) * (tilausrivi.varattu+tilausrivi.jt) * {$query_ale_lisa}, 0)) summa,

if (tilausrivi.alv >= 600 or tilausrivi.alv < 500, tilausrivi.alv, 0) alv

FROM lasku

JOIN tilausrivi ON (tilausrivi.yhtio = lasku.yhtio and tilausrivi.otunnus = lasku.tunnus and tilausrivi.tyyppi = 'L' and (tilausrivi.varattu + tilausrivi.jt) > 0 and tilausrivi.jaksotettu = lasku.jaksotettu)

WHERE lasku.yhtio = '$kukarow[yhtio]'

and lasku.jaksotettu = '$tunnus'

GROUP BY lasku.jaksotettu, alv";

}

$sresult = pupe_query($query);

$tot = 0;

if ($kielirow["kieli"] == "") {

$kielirow["kieli"]="fi";

}

if (mysql_num_rows($sresult) == 0) {

$nimitys = t($posrow["kuvaus"], $kielirow["kieli"]);

$rivikommentti = t("Ennakkolasku", $kielirow["kieli"])." $lahteva_lasku ".t("tilaukselle", $kielirow["kieli"])." $tunnus ".t("Osuus", $kielirow["kieli"])." ".round($posrow["osuus"], 2)."% ";

if ($posrow["lisatiedot"] != "") {

$rivikommentti .= "\n ".$posrow["lisatiedot"];

}

echo "<font class = 'error'>".t("VIRHE: Ennakkolaskulla ei ole yhtään jaksotettua tilausriviä!")." $tunnus</font><br>";

echo "<font class = 'message'>".t("Käy tekemässä ennakkolasku manuaalisesti. Ennakkolaskulle perustetun laskun tunnus on")." $id</font><br>";

echo "<font class = 'message'>".t("Ennakkolaskutuksen tuotenumero on")." $yhtiorow[ennakkomaksu_tuotenumero]</font><br><br>";

$query = "INSERT into tilausrivi (hinta, netto, varattu, tilkpl, otunnus, tuoteno, nimitys, yhtio, tyyppi, alv, kommentti, laatija, laadittu) values

('0', 'N', '1', '1', '$id', '$yhtiorow[ennakkomaksu_tuotenumero]', '$nimitys', '$kukarow[yhtio]', 'L', '{$laskurow['alv']}', '$rivikommentti', '$kukarow[kuka]', now())";

$addtil = pupe_query($query);

}

else {

while ($row = mysql_fetch_assoc($sresult)) {

// $summa on verollinen tai veroton riippuen yhtiön myyntihinnoista

$summa = $row["summa"]/$sumrow["jaksotettavaa"] * $posrow["summa"];

if (!empty($yhtiorow['ennakkolaskun_tyyppi'])) {

$nimitys = $row['tuoteno'].' - '.$row['nimitys'];

$rivikommentti = $row['kommentti'];

}

else {

$nimitys = t($posrow["kuvaus"], $kielirow["kieli"]);

$rivikommentti = t("Ennakkolasku", $kielirow["kieli"])." $lahteva_lasku ".t("tilaukselle", $kielirow["kieli"])." $tunnus ".t("Osuus", $kielirow["kieli"])." ".round($posrow["osuus"], 2)."% ";

if ($posrow["lisatiedot"] != "") {

$rivikommentti .= "\n ".$posrow["lisatiedot"];

}

}

$varattu = $yhtiorow['ennakkolaskun_tyyppi'] == 'E' ? $row['varattu'] : 1;

$tilkpl = $yhtiorow['ennakkolaskun_tyyppi'] == 'E' ? $row['tilkpl'] : 1;

$ale_kentat = "";

$ale_arvot = "";

if ($yhtiorow['ennakkolaskun_tyyppi'] == 'E') {

for ($i = 1; $i <= $yhtiorow['myynnin_alekentat']; $i++) {

$ale_kentat .= ",ale{$i}";

$ale_arvot .= ", '".$row["ale{$i}"]."'";

}

}

$summa = round($summa, 6);

$laitetaanko_netto = $yhtiorow['ennakkolaskun_tyyppi'] == 'E' ? "" : "N";

$query = "INSERT into tilausrivi (hinta, netto, varattu, tilkpl, otunnus, tuoteno, nimitys, yhtio, tyyppi, alv, kommentti, laatija, laadittu {$ale_kentat}) values

('$summa', '{$laitetaanko_netto}', '{$varattu}', '{$tilkpl}', '$id', '$yhtiorow[ennakkomaksu_tuotenumero]', '$nimitys', '$kukarow[yhtio]', 'L', '$row[alv]', '$rivikommentti', '$kukarow[kuka]', now() {$ale_arvot})";

$addtil = pupe_query($query);

if ($debug==1) echo t("Lisättiin ennakkolaskuun rivi")." $summa $row[alv] otunnus $id<br>";

$tot += $summa;

}

echo "<font class = 'message'>".t("Tehtiin ennakkolasku tilaukselle")." $tunnus ".t("tunnus").": $id ".t("osuus").": $posrow[osuus]% ".t("summa").": $tot</font><br>";

}

// Päivitetään positiolle tämän laskun tunnus

$query = "UPDATE maksupositio set uusiotunnus='$id' where tunnus='$posrow[tunnus]'";

$result = pupe_query($query);

// merkataan tässä vaiheessa luotu ennakkomaksu-tilaus toimitetuksi

$query = "UPDATE tilausrivi

SET toimitettu = '$kukarow[kuka]', toimitettuaika=now(), kerattyaika=now()

WHERE yhtio = '$kukarow[yhtio]'

and otunnus = '$id'";

$result = pupe_query($query);

// ja päivitetään luotu ennakkomaksu-tilaus laskutusjonoon

$query = "UPDATE lasku

set tila='L', alatila='D'

WHERE yhtio = '$kukarow[yhtio]'

and tunnus = '$id'";

$result = pupe_query($query);

return $id;

global $kukarow, $yhtiorow;

///* Tutkitaan alkuperäisten tilausten tiloja *///

$query = "SELECT sum(if(tila='L' and alatila = 'J',1,0)) toimitus_valmis, sum(if (tila='R',1,0)) rojekti, count(*) kaikki, max(tunnus) vikatunnus

FROM lasku

WHERE yhtio = '$kukarow[yhtio]'

and jaksotettu = '$tunnus'

and tila in ('L','N','R')";

$stresult = pupe_query($query);

if (mysql_num_rows($stresult) == 0) {

echo "<font class='error'>Otsikkoa '$tunnus' ei löytynyt, tai se on väärässä tilassa.</font><br><br>";

return 0;

}

else {

$row = mysql_fetch_assoc($stresult);

if ($row["kaikki"] - ($row["toimitus_valmis"] + $row["rojekti"]) <> 0) {

echo "<font class='error'>Laskutussopimuksella on kaikki tilaukset oltava toimitettuna ennen loppulaskutusta.</font><br><br>";

return 0;

}

$vikatunnus = $row["vikatunnus"];

}

// tarkistetaan että meillä on jotain järkevää laskutettavaa

$query = "SELECT *

FROM maksupositio

WHERE yhtio = '$kukarow[yhtio]'

and otunnus = '$tunnus'

and uusiotunnus = ''

ORDER BY tunnus

LIMIT 1";

$posres = pupe_query($query);

if (mysql_num_rows($posres) == 1) {

$posrow = mysql_fetch_assoc($posres);

}

else {

echo "<font class='error'>".t("VIRHE: Viimeinen maksupositio puuttuu! Loppulaskutus ei onnistu.")."</font><br><br>";

return 0;

}

if ($debug==1) echo t("Löydettiin maksupositio")." $posrow[tunnus], $posrow[osuus] %, $posrow[maksuehto]<br>";

// Tilausrivin kommentti-kenttään menevä kommentti

$query = "SELECT

sum(if (uusiotunnus > 0, 1, 0)) laskutettu,

count(*) yhteensa

FROM maksupositio

WHERE yhtio = '$kukarow[yhtio]'

and otunnus = '$tunnus'";

$abures = pupe_query($query);

$aburow = mysql_fetch_assoc($abures);

$lahteva_lasku = ($aburow["laskutettu"] + 1)."/".$aburow["yhteensa"];

// varmistetaan että laskutus näyttäisi olevan OK!!

if ($aburow["yhteensa"] - $aburow["laskutettu"] > 1) {

echo "<font class='error'>".t("VIRHE: Loppulaskutus ei onnistu koska positioita on jäljellä enemmän kuin yksi!")."</font><br><br>";

return 0;

}

// Tarkastetaan että meillä on ok maksuehto loppulaskutukseen!!!

$apuqu = "SELECT *

from maksuehto

where yhtio = '$kukarow[yhtio]'

and tunnus = '$posrow[maksuehto]'

and jaksotettu = ''";

$meapu = pupe_query($apuqu);

$erlisa = "";

if (mysql_num_rows($meapu) == 1) {

$meapurow = mysql_fetch_assoc($meapu);

}

else {

echo "<font class='error'>".t("VIRHE: Maksuposition maksuehto puuttuu!")."</font><br><br>";

return 0;

}

if ($meapurow["erapvmkasin"] != "" and $posrow["erpcm"] == "0000-00-00") {

echo "<font class='error'>".t("VIRHE: Loppulaskun maksuehdon eräpäivä puuttuu")."!!!</font><br><br>";

return 0;

}

elseif ($meapurow["erapvmkasin"] != "") {

$erlisa = " erpcm = '$posrow[erpcm]',";

}

echo "<font class = 'message'>".t("Loppulaskutetaan tilaus")." $tunnus<br></font><br>";

//Lasketaan paljonko ollaan jo laskutettu ja millä verokannoilla

$query = "SELECT round(sum(rivihinta * if ('$yhtiorow[alv_kasittely]' = '' and tilausrivi.alv < 500, (1+tilausrivi.alv/100), 1)),2) laskutettu, tilausrivi.alv

FROM lasku

JOIN tilausrivi ON tilausrivi.yhtio = lasku.yhtio and tilausrivi.otunnus = lasku.tunnus and kpl <> 0 and uusiotunnus > 0 and tilausrivi.tuoteno='$yhtiorow[ennakkomaksu_tuotenumero]'

WHERE lasku.yhtio = '$kukarow[yhtio]'

and lasku.jaksotettu = '".($tunnus*-1)."'

GROUP BY alv";

$sresult = pupe_query($query);

// Haetaan asiakkaan kieli niin hekin ymmärtävät..

$query = "SELECT kieli from asiakas WHERE yhtio = '$kukarow[yhtio]' and tunnus='$laskurow[liitostunnus]'";

$kielires = pupe_query($query);

$kielirow = mysql_fetch_assoc($kielires);

if ($kielirow["kieli"] == "") {

$kielirow["kieli"] = $yhtiorow["kieli"];

}

$nimitys = t($posrow["kuvaus"], $kielirow["kieli"]);

$rivikommentti = t("Ennakkolaskutuksen hyvitys", $kielirow["kieli"])." $lahteva_lasku. ";

if ($posrow["lisatiedot"] != "") {

$rivikommentti .= "\n ".$posrow["lisatiedot"];

}

while ($row = mysql_fetch_assoc($sresult)) {

$query = "INSERT into tilausrivi (hinta, netto, varattu, tilkpl, otunnus, tuoteno, nimitys, yhtio, tyyppi, alv, kommentti, keratty, kerattyaika, toimitettu, toimitettuaika, laatija, laadittu)

values ('$row[laskutettu]', 'N', '-1', '-1', '$vikatunnus', '$yhtiorow[ennakkomaksu_tuotenumero]', '$nimitys', '$kukarow[yhtio]', 'L', '$row[alv]', '$rivikommentti', '$kukarow[kuka]', now(), '$kukarow[kuka]', now(), '$kukarow[kuka]', now())";

$addtil = pupe_query($query);

if ($debug == 1) echo t("Loppulaskuun lisättiin ennakkolaskun hyvitys")." -$row[laskutettu] alv $row[alv]% otunnus $vimppa<br>";

}

// Päivitetään positiolle laskutustunnus

$query = "UPDATE maksupositio set uusiotunnus='$vikatunnus' where tunnus = '$posrow[tunnus]'";

$result = pupe_query($query);

// Alkuperäinen tilaus/tilaukset menee laskutukseen

$query = "UPDATE lasku

SET maksuehto = '$posrow[maksuehto]',

clearing = 'loppulasku',

ketjutus = 'o',

$erlisa

alatila = 'D'

WHERE yhtio = '$kukarow[yhtio]'

and jaksotettu = '$tunnus'

and tila != 'R'";

$result = pupe_query($query);

// Merkataan projekti valmiiksi

$query = "UPDATE lasku

SET alatila = 'B'

WHERE yhtio = '$kukarow[yhtio]'

and jaksotettu = '$tunnus'

and tila = 'R'";

$result = pupe_query($query);

$query = "SELECT group_concat(distinct tunnus) tunnukset

FROM lasku

WHERE yhtio = '$kukarow[yhtio]'

and jaksotettu = '$tunnus'";

$lres = pupe_query($query);

$lrow = mysql_fetch_assoc($lres);

return $lrow["tunnukset"];