function alku($saldovahvistus)
{
global $pdf, $yhtiorow, $kukarow, $kala, $sivu, $norm, $pieni, $kieli, $bold, $sivu_numero_obj_ids;
$firstpage = $pdf->new_page("a4");
tulosta_logo_pdf($pdf, $firstpage, "");
$kala = 815;
//Otsikko
$pdf->draw_text(280, 815, t("Saldovahvistus", $kieli), $firstpage);
$sivu_numero_obj_ids[] = $pdf->draw_text(430, $kala, t("Sivu", $kieli) . " " . $sivu . ' / ', $firstpage, $norm);
$pdf->draw_text(30, $kala - 65, $saldovahvistus['asiakas']["nimi"], $firstpage, $bold);
$pdf->draw_text(30, $kala - 75, $saldovahvistus['asiakas']["nimitark"], $firstpage, $bold);
$pdf->draw_text(30, $kala - 85, $saldovahvistus['asiakas']["osoite"], $firstpage, $bold);
$pdf->draw_text(30, $kala - 95, $saldovahvistus['asiakas']["postino"] . " " . $saldovahvistus['asiakas']["postitp"], $firstpage, $bold);
$pdf->draw_text(30, $kala - 105, $saldovahvistus['asiakas']["maa"], $firstpage, $bold);
$kala = 710;
if (!empty($saldovahvistus['paaasiakas'])) {
$_chk = $saldovahvistus['asiakas']['tunnus'] != $saldovahvistus['paaasiakas']['tunnus'];
if ($_chk) {
$kala -= 10;
$pdf->draw_text(30, $kala - 10, $saldovahvistus['paaasiakas']["nimi"], $firstpage, $bold);
$pdf->draw_text(30, $kala - 20, $saldovahvistus['paaasiakas']["nimitark"], $firstpage, $bold);
$pdf->draw_text(30, $kala - 30, $saldovahvistus['paaasiakas']["osoite"], $firstpage, $bold);
$pdf->draw_text(30, $kala - 40, $saldovahvistus['paaasiakas']["postino"] . " " . $saldovahvistus['asiakas']["postitp"], $firstpage, $bold);
$pdf->draw_text(30, $kala - 50, $saldovahvistus['paaasiakas']["maa"], $firstpage, $bold);
$kala -= 10;
}
}
$kala -= 60;
$pdf->draw_text(380, 780, t("Päivämäärä", $kieli) . ': ' . date('d.m.Y'), $firstpage, $norm);
//Oikea sarake
$pdf->draw_text(380, 760, t("Laatija", $kieli) . ':', $firstpage, $norm);
$pdf->draw_text(440, 760, $kukarow["nimi"], $firstpage, $norm);
$pdf->draw_text(380, 750, t("Puhelin", $kieli) . ':', $firstpage, $norm);
$pdf->draw_text(440, 750, $kukarow["puhno"], $firstpage, $norm);
$pdf->draw_text(380, 740, t("Fax", $kieli) . ':', $firstpage, $norm);
$pdf->draw_text(440, 740, $yhtiorow['fax'], $firstpage, $norm);
$pdf->draw_text(380, 730, t("Sähköposti", $kieli) . ':', $firstpage, $norm);
$pdf->draw_text(440, 730, $kukarow["eposti"], $firstpage, $norm);
if ($pdf->currentPage['number'] == 0) {
$string = t('Ilmoitamme että avoin saldo ', $kieli) . " " . date('d.m.Y', strtotime($saldovahvistus['tiliotepvm'])) . " " . t('on', $kieli) . ' ' . $saldovahvistus['avoin_saldo_summa'] . ' ' . $saldovahvistus['valkoodi'];
$pdf->draw_text(30, $kala, $string, $firstpage, $norm);
// tehdään riveistä max 90 merkkiä
$viesti = wordwrap($saldovahvistus['saldovahvistus_viesti']['selitetark'], 120, "\n");
$i = 0;
$rivit = array();
$rivit = explode("\n", $viesti);
$kala -= 10;
foreach ($rivit as $rivi) {
// laitetaan
$pdf->draw_text(30, $kala, $rivi, $firstpage, $norm);
// seuraava rivi tulee 10 pistettä alemmas kuin tämä rivi
$kala -= 10;
$i++;
}
//Rivit alkaa täsä kohtaa
$object_keys = array_keys($pdf->objects);
$kala = $pdf->objects[max($object_keys)]['bottom'] - 20;
} else {
$kala = 650;
}
return $firstpage;
}
function alku($viesti = null, $karhukierros_tunnus = '')
{
global $pdf, $asiakastiedot, $yhteyshenkilo, $yhteyshenkiloteksti, $yhtiorow, $kukarow, $kala, $sivu, $rectparam, $norm, $pieni, $boldi, $kaatosumma, $kieli, $_POST, $iso;
$firstpage = $pdf->new_page("a4");
if ($yhteyshenkilo == "") {
$yhteyshenkilo = $kukarow["tunnus"];
}
//Haetaan yhteyshenkilon tiedot
$apuqu = "SELECT *\n from kuka\n where yhtio='{$kukarow['yhtio']}' and tunnus='{$yhteyshenkilo}'";
$yres = pupe_query($apuqu);
$yrow = mysql_fetch_assoc($yres);
//Otsikko
$pdf->draw_text(310, 815, t("Maksukehotus", $kieli), $firstpage, $iso);
$pdf->draw_text(430, 815, t("Sivu", $kieli) . " " . $sivu, $firstpage, $norm);
tulosta_logo_pdf($pdf, $firstpage, "");
if (isset($_POST['ekirje_laheta']) === false) {
//Vasen sarake
//$pdf->draw_rectangle(737, 20, 674, 300, $firstpage, $rectparam);
$pdf->draw_text(50, 729, t("Laskutusosoite", $kieli), $firstpage, $pieni);
if ($asiakastiedot["laskutus_nimi"] != "" and ($asiakastiedot["maksukehotuksen_osoitetiedot"] == "B" or $yhtiorow["maksukehotuksen_osoitetiedot"] == "K" and $asiakastiedot["maksukehotuksen_osoitetiedot"] == "")) {
$pdf->draw_text(50, 717, $asiakastiedot["laskutus_nimi"], $firstpage, $norm);
$pdf->draw_text(50, 707, $asiakastiedot["laskutus_nimitark"], $firstpage, $norm);
$pdf->draw_text(50, 697, $asiakastiedot["laskutus_osoite"], $firstpage, $norm);
$pdf->draw_text(50, 687, $asiakastiedot["laskutus_postino"] . " " . $asiakastiedot["laskutus_postitp"], $firstpage, $norm);
$pdf->draw_text(50, 677, $asiakastiedot["laskutus_maa"], $firstpage, $norm);
} else {
$pdf->draw_text(50, 717, $asiakastiedot["nimi"], $firstpage, $norm);
$pdf->draw_text(50, 707, $asiakastiedot["nimitark"], $firstpage, $norm);
$pdf->draw_text(50, 697, $asiakastiedot["osoite"], $firstpage, $norm);
$pdf->draw_text(50, 687, $asiakastiedot["postino"] . " " . $asiakastiedot["postitp"], $firstpage, $norm);
$pdf->draw_text(50, 677, $asiakastiedot["maa"], $firstpage, $norm);
}
} else {
// lähettäjä
$iiso = array('height' => 11, 'font' => 'Times-Roman');
$pdf->draw_text(mm_pt(22), mm_pt(268), strtoupper($yhtiorow["nimi"]), $firstpage, $iiso);
$pdf->draw_text(mm_pt(22), mm_pt(264), strtoupper($yhtiorow["nimitark"]), $firstpage, $iiso);
$pdf->draw_text(mm_pt(22), mm_pt(260), strtoupper($yhtiorow["osoite"]), $firstpage, $iiso);
$pdf->draw_text(mm_pt(22), mm_pt(256), strtoupper($yhtiorow["postino"] . " " . $yhtiorow["postitp"]), $firstpage, $iiso);
// vastaanottaja
if ($asiakastiedot["laskutus_nimi"] != "" and ($asiakastiedot["maksukehotuksen_osoitetiedot"] == "B" or $yhtiorow["maksukehotuksen_osoitetiedot"] == "K" and $asiakastiedot["maksukehotuksen_osoitetiedot"] == "")) {
$pdf->draw_text(mm_pt(22), mm_pt(234), strtoupper($asiakastiedot["laskutus_nimi"]), $firstpage, $iiso);
$pdf->draw_text(mm_pt(22), mm_pt(230), strtoupper($asiakastiedot["laskutus_nimitark"]), $firstpage, $iiso);
$pdf->draw_text(mm_pt(22), mm_pt(226), strtoupper($asiakastiedot["laskutus_osoite"]), $firstpage, $iiso);
$pdf->draw_text(mm_pt(22), mm_pt(222), strtoupper($asiakastiedot["laskutus_postino"] . " " . $asiakastiedot["laskutus_postitp"]), $firstpage, $iiso);
// Laitetaan laskutus_maa asiakas_maaksi niin saadaan ilman ehtomuuttujia kyselystä oikea lopputulos.
$asiakastiedot['maa'] = $asiakastiedot["laskutus_maa"];
} else {
$pdf->draw_text(mm_pt(22), mm_pt(234), strtoupper($asiakastiedot["nimi"]), $firstpage, $iiso);
$pdf->draw_text(mm_pt(22), mm_pt(230), strtoupper($asiakastiedot["nimitark"]), $firstpage, $iiso);
$pdf->draw_text(mm_pt(22), mm_pt(226), strtoupper($asiakastiedot["osoite"]), $firstpage, $iiso);
$pdf->draw_text(mm_pt(22), mm_pt(222), strtoupper($asiakastiedot["postino"] . " " . $asiakastiedot["postitp"]), $firstpage, $iiso);
}
// jos vastaanottaja on eri maassa kuin yhtio niin lisätään maan nimi
if ($yhtiorow['maa'] != $asiakastiedot['maa']) {
$query = sprintf("SELECT nimi from maat where koodi='%s' AND ryhma_tunnus = ''", mysql_real_escape_string($asiakastiedot['maa']));
$maa_result = pupe_query($query);
$maa_nimi = mysql_fetch_assoc($maa_result);
$pdf->draw_text(mm_pt(22), mm_pt(218), $maa_nimi['nimi'], $firstpage, $iiso);
}
}
//Oikea sarake
$pdf->draw_rectangle(760, 320, 739, 575, $firstpage, $rectparam);
$pdf->draw_rectangle(760, 420, 739, 575, $firstpage, $rectparam);
$pdf->draw_text(330, 752, t("Päivämäärä", $kieli), $firstpage, $pieni);
if ($karhukierros_tunnus != "") {
$query = "SELECT pvm\n FROM karhukierros\n WHERE tunnus = '{$karhukierros_tunnus}'\n LIMIT 1";
$pvm_result = pupe_query($query);
$pvm_row = mysql_fetch_assoc($pvm_result);
$paiva = substr($pvm_row["pvm"], 8, 2);
$kuu = substr($pvm_row["pvm"], 5, 2);
$year = substr($pvm_row["pvm"], 0, 4);
} else {
$pvm_row = array();
$pvm_row["pvm"] = date("Y-m-d");
$paiva = date("j");
$kuu = date("n");
$year = date("Y");
}
$pdf->draw_text(330, 742, tv1dateconv($pvm_row["pvm"]), $firstpage, $norm);
$pdf->draw_text(430, 752, t("Asiaa hoitaa", $kieli), $firstpage, $pieni);
$pdf->draw_text(430, 742, $yrow["nimi"], $firstpage, $norm);
$pdf->draw_rectangle(739, 320, 718, 575, $firstpage, $rectparam);
$pdf->draw_rectangle(739, 420, 718, 575, $firstpage, $rectparam);
$pdf->draw_text(330, 731, t("Eräpäivä", $kieli), $firstpage, $pieni);
if ($yhtiorow['karhuerapvm'] > 0) {
$seurday = date("d", mktime(0, 0, 0, $kuu, $paiva + $yhtiorow['karhuerapvm'], $year));
$seurmonth = date("m", mktime(0, 0, 0, $kuu, $paiva + $yhtiorow['karhuerapvm'], $year));
$seuryear = date("Y", mktime(0, 0, 0, $kuu, $paiva + $yhtiorow['karhuerapvm'], $year));
$pdf->draw_text(330, 721, tv1dateconv($seuryear . "-" . $seurmonth . "-" . $seurday), $firstpage, $norm);
} else {
$pdf->draw_text(330, 721, t("HETI", $kieli), $firstpage, $norm);
}
$pdf->draw_text(430, 731, t("Puhelin", $kieli), $firstpage, $pieni);
$pdf->draw_text(430, 721, $yrow["puhno"], $firstpage, $norm);
$pdf->draw_rectangle(718, 320, 697, 575, $firstpage, $rectparam);
$pdf->draw_rectangle(718, 420, 697, 575, $firstpage, $rectparam);
$pdf->draw_text(330, 710, t("Viivästykorko", $kieli), $firstpage, $pieni);
$pdf->draw_text(330, 700, $yhtiorow["viivastyskorko"] * 1 . "%", $firstpage, $norm);
$pdf->draw_text(430, 710, t("Sähköposti", $kieli), $firstpage, $pieni);
$pdf->draw_text(430, 700, $yrow["eposti"], $firstpage, $norm);
$pdf->draw_rectangle(697, 320, 676, 575, $firstpage, $rectparam);
$pdf->draw_text(330, 689, t("Ytunnus/Asiakasnumero", $kieli), $firstpage, $pieni);
$pdf->draw_text(330, 679, $asiakastiedot["ytunnus"], $firstpage, $norm);
//Rivit alkaa täsä kohtaa
$kala = 540;
// lisätään karhuviesti kirjeeseen
if ($sivu == 1) {
//otsikko
if ($yhtiorow['maksukehotus_kentat'] == 'J' or $yhtiorow['maksukehotus_kentat'] == 'L') {
$pdf->draw_text(30, $kala + 30, t("Avoimet laskut", $kieli), $firstpage, $bold);
}
// tehdään riveistä max 90 merkkiä
$viesti = wordwrap($viesti, 90, "\n");
$i = 0;
$rivit = explode("\n", $viesti);
$yhteyshenkiloteksti = t("Yhteyshenkilömme", $kieli) . ": {$yrow['nimi']} / {$yrow['eposti']} / {$yrow['puhno']}";
$rivit[] = '';
$rivit[] = $yhteyshenkiloteksti;
foreach ($rivit as $rivi) {
// laitetaan
$pdf->draw_text(80, $kala, $rivi, $firstpage, $norm);
// seuraava rivi tulee 10 pistettä alemmas kuin tämä rivi
$kala -= 10;
$i++;
}
}
$kala -= 10;
//Laskurivien otsikkotiedot
//eka rivi
$pdf->draw_text(30, $kala, t("Laskun numero", $kieli) . " / " . t("Viite", $kieli), $firstpage, $pieni);
if ($yhtiorow['maksukehotus_kentat'] == 'J' or $yhtiorow['maksukehotus_kentat'] == 'L') {
//eka rivi lisäkentillä
$pdf->draw_text(130, $kala, t("Laskun pvm", $kieli), $firstpage, $pieni);
$pdf->draw_text(190, $kala, t("Eräpäivä", $kieli), $firstpage, $pieni);
$pdf->draw_text(245, $kala, t("Myöhässä pv", $kieli), $firstpage, $pieni);
$pdf->draw_text(410, $kala, t("Laskun summa", $kieli), $firstpage, $pieni);
$pdf->draw_text(495, $kala, t("Korko", $kieli), $firstpage, $pieni);
$pdf->draw_text(545, $kala, t("Yhteensä", $kieli), $firstpage, $pieni);
if ($yhtiorow['maksukehotus_kentat'] == 'J') {
$pdf->draw_text(295, $kala, t("Viimeisin muistutuspvm", $kieli), $firstpage, $pieni);
$pdf->draw_text(365, $kala, t("Perintäkerta", $kieli), $firstpage, $pieni);
}
} else {
//eka rivi ilman lisäkenttiä
$pdf->draw_text(180, $kala, t("Laskun pvm", $kieli), $firstpage, $pieni);
$pdf->draw_text(240, $kala, t("Eräpäivä", $kieli), $firstpage, $pieni);
$pdf->draw_text(295, $kala, t("Myöhässä pv", $kieli), $firstpage, $pieni);
$pdf->draw_text(455, $kala, t("Laskun summa", $kieli), $firstpage, $pieni);
if ($yhtiorow["maksukehotus_kentat"] == "") {
$pdf->draw_text(360, $kala, t("Viimeisin muistutuspvm", $kieli), $firstpage, $pieni);
$pdf->draw_text(525, $kala, t("Perintäkerta", $kieli), $firstpage, $pieni);
}
}
$kala -= 15;
//toka rivi
if ($kaatosumma != 0 and $sivu == 1) {
$pdf->draw_text(30, $kala, t("Kohdistamattomia suorituksia", $kieli), $firstpage, $norm);
if ($yhtiorow['maksukehotus_kentat'] == 'J' or $yhtiorow['maksukehotus_kentat'] == 'L') {
$oikpos = $pdf->strlen(sprintf("%.2f", $kaatosumma), $norm);
$pdf->draw_text(565 - $oikpos, $kala, sprintf("%.2f", $kaatosumma), $firstpage, $norm);
} else {
$oikpos = $pdf->strlen(sprintf("%.2f", $kaatosumma), $norm);
$pdf->draw_text(500 - $oikpos, $kala, sprintf("%.2f", $kaatosumma), $firstpage, $norm);
}
$kala -= 13;
}
return $firstpage;
}
function alku()
{
global $pdf, $asiakastiedot, $yhtiorow, $kukarow, $kala, $sivu, $rectparam, $norm, $pieni, $kieli, $tito_pvm, $alatila, $on_tiliote;
$firstpage = $pdf->new_page("a4");
tulosta_logo_pdf($pdf, $firstpage, "");
//Otsikko
$pdf->draw_text(280, 815, t("TILIOTE", $kieli), $firstpage);
$pdf->draw_text(430, 815, t("Sivu", $kieli) . " " . $sivu, $firstpage, $norm);
//Vasen sarake
$pdf->draw_text(50, 729, t("Laskutusosoite", $kieli), $firstpage, $pieni);
if ($asiakastiedot["laskutus_nimi"] != "") {
$pdf->draw_text(50, 717, $asiakastiedot["laskutus_nimi"], $firstpage, $norm);
$pdf->draw_text(50, 707, $asiakastiedot["laskutus_nimitark"], $firstpage, $norm);
$pdf->draw_text(50, 697, $asiakastiedot["laskutus_osoite"], $firstpage, $norm);
$pdf->draw_text(50, 687, $asiakastiedot["laskutus_postino"] . " " . $asiakastiedot["laskutus_postitp"], $firstpage, $norm);
$pdf->draw_text(50, 677, $asiakastiedot["laskutus_maa"], $firstpage, $norm);
} else {
$pdf->draw_text(50, 717, $asiakastiedot["nimi"], $firstpage, $norm);
$pdf->draw_text(50, 707, $asiakastiedot["nimitark"], $firstpage, $norm);
$pdf->draw_text(50, 697, $asiakastiedot["osoite"], $firstpage, $norm);
$pdf->draw_text(50, 687, $asiakastiedot["postino"] . " " . $asiakastiedot["postitp"], $firstpage, $norm);
$pdf->draw_text(50, 677, $asiakastiedot["maa"], $firstpage, $norm);
}
if ($alatila == 'T' and $asiakastiedot["laskutus_nimi"] != "") {
$pdf->draw_text(50, 655, t("Ostaja", $kieli), $firstpage, $pieni);
$pdf->draw_text(50, 643, $asiakastiedot["nimi"], $firstpage, $norm);
$pdf->draw_text(50, 633, $asiakastiedot["nimitark"], $firstpage, $norm);
$pdf->draw_text(50, 623, $asiakastiedot["osoite"], $firstpage, $norm);
$pdf->draw_text(50, 613, $asiakastiedot["postino"] . " " . $asiakastiedot["postitp"], $firstpage, $norm);
$pdf->draw_text(50, 603, $asiakastiedot["maa"], $firstpage, $norm);
}
//Oikea sarake
$pdf->draw_rectangle(800, 300, 779, 580, $firstpage, $rectparam);
$pdf->draw_rectangle(800, 420, 779, 580, $firstpage, $rectparam);
$pdf->draw_text(310, 792, t("Tulostettu", $kieli), $firstpage, $pieni);
$pdf->draw_text(310, 782, tv1dateconv(date('Y-m-d')), $firstpage, $norm);
$pdf->draw_text(430, 792, t("Asiaa hoitaa", $kieli), $firstpage, $pieni);
$pdf->draw_text(430, 782, $kukarow["nimi"], $firstpage, $norm);
$pdf->draw_rectangle(779, 300, 758, 580, $firstpage, $rectparam);
$pdf->draw_rectangle(779, 420, 758, 580, $firstpage, $rectparam);
$pdf->draw_text(310, 771, t("Päivämäärä", $kieli), $firstpage, $pieni);
$pdf->draw_text(310, 761, tv1dateconv($tito_pvm), $firstpage, $norm);
$pdf->draw_text(430, 771, t("Puhelin", $kieli), $firstpage, $pieni);
$pdf->draw_text(430, 761, $kukarow["puhno"], $firstpage, $norm);
$pdf->draw_rectangle(758, 300, 737, 580, $firstpage, $rectparam);
$pdf->draw_rectangle(758, 420, 737, 580, $firstpage, $rectparam);
$pdf->draw_text(310, 750, t("Ytunnus/Asiakasnumero", $kieli), $firstpage, $pieni);
$pdf->draw_text(310, 740, $asiakastiedot["ytunnus"], $firstpage, $norm);
$pdf->draw_text(430, 750, t("Sähköposti", $kieli), $firstpage, $pieni);
$pdf->draw_text(430, 740, $kukarow["eposti"], $firstpage, $norm);
//Rivit alkaa täsä kohtaa
$kala = ($alatila == 'T' and $asiakastiedot["laskutus_nimi"] != "") ? 570 : 620;
//eka rivi
$pdf->draw_text(30, $kala, t("Laskunro", $kieli), $firstpage, $pieni);
$pdf->draw_text(100, $kala, t("Pvm", $kieli), $firstpage, $pieni);
$pdf->draw_text(180, $kala, t("Eräpvm", $kieli), $firstpage, $pieni);
$pdf->draw_text(300, $kala, t("Valuutta", $kieli), $firstpage, $pieni);
$oikpos = $pdf->strlen(t("Summa", $kieli), $pieni);
$pdf->draw_text(400 - $oikpos, $kala, t("Summa", $kieli), $firstpage, $pieni);
$oikpos = $pdf->strlen(t("Avoinsumma", $kieli), $pieni);
$pdf->draw_text(480 - $oikpos, $kala, t("Avoinsumma", $kieli), $firstpage, $pieni);
if ($on_tiliote and $tito_pvm != date('Y-m-d') or !$on_tiliote) {
$pdf->draw_text(510, $kala, t("Maksettu", $kieli), $firstpage, $pieni);
}
$kala -= 15;
return $firstpage;
}
function alku()
{
global $yhtiorow, $kukarow, $firstpage, $pdf, $bottom, $kaudet, $kaikkikaudet, $saraklev, $rivikork, $p, $b, $otsikko, $alkukausi, $yhteensasaraklev, $vaslev, $sarakkeet, $ei_yhteensa, $leveysarray;
if (count($kaudet) > 5 and $kaikkikaudet == "joo" or count($sarakkeet) > 2) {
$firstpage = $pdf->new_page("842x595");
$bottom = "535";
} else {
$firstpage = $pdf->new_page("a4");
$bottom = "782";
}
unset($data);
if ((int) $yhtiorow["lasku_logo"] > 0) {
$liite = hae_liite($yhtiorow["lasku_logo"], "Yllapito", "array");
$data = $liite["data"];
$isizelogo[0] = $liite["image_width"];
$isizelogo[1] = $liite["image_height"];
unset($liite);
} elseif (file_exists($yhtiorow["lasku_logo"])) {
$filename = $yhtiorow["lasku_logo"];
$fh = fopen($filename, "r");
$data = fread($fh, filesize($filename));
fclose($fh);
$isizelogo = getimagesize($yhtiorow["lasku_logo"]);
}
if (isset($data) and $data) {
$image = $pdf->jfif_embed($data);
if (!$image) {
echo t("Logokuvavirhe");
} elseif ($bottom == "535") {
tulosta_logo_pdf($pdf, $firstpage, "", 575, 0, 25, 120);
} else {
tulosta_logo_pdf($pdf, $firstpage, "", 0, 0, 25, 120);
}
} else {
$pdf->draw_text(10, $bottom + 30, $yhtiorow["nimi"], $firstpage);
}
$pdf->draw_text(200, $bottom + 30, $otsikko, $firstpage);
$leveysarray = array();
$left = $vaslev;
for ($i = $alkukausi; $i < count($kaudet); $i++) {
foreach ($sarakkeet as $sarake) {
if (strpos($sarake, "::") !== FALSE) {
list($muuarray, $arvo) = explode("::", $sarake);
$sarakenimi = $GLOBALS[$muuarray][$arvo];
} else {
$sarakenimi = "";
}
$oikpos1 = $pdf->strlen($kaudet[$i], $b);
$oikpos2 = $pdf->strlen($sarakenimi, $b);
if ($oikpos2 > $oikpos1) {
$oikpos = $oikpos2;
} else {
$oikpos = $oikpos1;
}
if ($i + 1 == count($kaudet) and $ei_yhteensa == "") {
$lev = $yhteensasaraklev;
} else {
$lev = $saraklev;
}
// Tallentaan sarakkeiden kohdat...
$leveysarray[] = $left + $lev;
$pdf->draw_text($left - $oikpos2 + $lev, $bottom + 8, $sarakenimi, $firstpage, $b);
$pdf->draw_text($left - $oikpos1 + $lev, $bottom, $kaudet[$i], $firstpage, $b);
$left += $saraklev;
}
}
$bottom -= $rivikork;
}
function alku($trattakierros_tunnus = '')
{
global $pdf, $asiakastiedot, $yhteyshenkilo, $yhtiorow, $kukarow, $kala, $sivu, $rectparam, $norm, $pieni, $kaatosumma, $kieli, $iso;
$firstpage = $pdf->new_page("a4");
if ($yhteyshenkilo == "") {
$yhteyshenkilo = $kukarow["tunnus"];
}
//Haetaan yhteyshenkilon tiedot
$apuqu = "SELECT *\n from kuka\n where yhtio='{$kukarow['yhtio']}' and tunnus='{$yhteyshenkilo}'";
$yres = pupe_query($apuqu);
$yrow = mysql_fetch_assoc($yres);
tulosta_logo_pdf($pdf, $firstpage, "");
//Otsikko
$pdf->draw_text(310, 815, t("Tratta", $kieli), $firstpage, $iso);
$pdf->draw_text(430, 815, t("Sivu", $kieli) . " " . $sivu, $firstpage, $norm);
//Vasen sarake
//$pdf->draw_rectangle(737, 20, 674, 300, $firstpage, $rectparam);
$pdf->draw_text(50, 729, t("Laskutusosoite", $kieli), $firstpage, $pieni);
$pdf->draw_text(50, 717, $asiakastiedot["nimi"], $firstpage, $norm);
$pdf->draw_text(50, 707, $asiakastiedot["nimitark"], $firstpage, $norm);
$pdf->draw_text(50, 697, $asiakastiedot["osoite"], $firstpage, $norm);
$pdf->draw_text(50, 687, $asiakastiedot["postino"] . " " . $asiakastiedot["postitp"], $firstpage, $norm);
$pdf->draw_text(50, 677, $asiakastiedot["maa"], $firstpage, $norm);
$pdf->draw_rectangle(737, 300, 716, 580, $firstpage, $rectparam);
$pdf->draw_text(310, 729, t("Ytunnus/Asiakasnumero", $kieli), $firstpage, $pieni);
$pdf->draw_text(310, 718, $asiakastiedot["ytunnus"], $firstpage, $norm);
//Oikea sarake
$pdf->draw_rectangle(800, 300, 779, 580, $firstpage, $rectparam);
$pdf->draw_rectangle(800, 420, 779, 580, $firstpage, $rectparam);
$pdf->draw_text(310, 792, t("Päivämäärä", $kieli), $firstpage, $pieni);
if ($trattakierros_tunnus != "") {
$query = "SELECT pvm\n FROM karhukierros\n WHERE tunnus = '{$trattakierros_tunnus}'\n LIMIT 1";
$pvm_result = pupe_query($query);
$pvm_row = mysql_fetch_assoc($pvm_result);
$paiva = substr($pvm_row["pvm"], 8, 2);
$kuu = substr($pvm_row["pvm"], 5, 2);
$year = substr($pvm_row["pvm"], 0, 4);
} else {
$pvm_row = array();
$pvm_row["pvm"] = date("Y-m-d");
$paiva = date("j");
$kuu = date("n");
$year = date("Y");
}
$pdf->draw_text(310, 782, tv1dateconv($pvm_row["pvm"]), $firstpage, $norm);
$pdf->draw_text(430, 792, t("Asiaa hoitaa", $kieli), $firstpage, $pieni);
$pdf->draw_text(430, 782, $yrow["nimi"], $firstpage, $norm);
$pdf->draw_rectangle(779, 300, 758, 580, $firstpage, $rectparam);
$pdf->draw_rectangle(779, 420, 758, 580, $firstpage, $rectparam);
$pdf->draw_text(310, 771, t("Eräpäivä", $kieli), $firstpage, $pieni);
$seurday = date("d", mktime(0, 0, 0, $kuu, $paiva + 7, $year));
$seurmonth = date("m", mktime(0, 0, 0, $kuu, $paiva + 7, $year));
$seuryear = date("Y", mktime(0, 0, 0, $kuu, $paiva + 7, $year));
$pdf->draw_text(310, 761, tv1dateconv($seuryear . "-" . $seurmonth . "-" . $seurday), $firstpage, $norm);
$pdf->draw_text(430, 771, t("Puhelin", $kieli), $firstpage, $pieni);
$pdf->draw_text(430, 761, $yrow["puhno"], $firstpage, $norm);
$pdf->draw_rectangle(758, 300, 737, 580, $firstpage, $rectparam);
$pdf->draw_rectangle(758, 420, 737, 580, $firstpage, $rectparam);
$pdf->draw_text(310, 750, t("Viivästykorko", $kieli), $firstpage, $pieni);
$pdf->draw_text(310, 740, $yhtiorow["viivastyskorko"] . "%", $firstpage, $norm);
$pdf->draw_text(430, 750, t("Sähköposti", $kieli), $firstpage, $pieni);
$pdf->draw_text(430, 740, $yrow["eposti"], $firstpage, $norm);
//Rivit alkaa täsä kohtaa
$kala = 620;
//Laskurivien otsikkotiedot
//eka rivi
$pdf->draw_text(30, $kala, t("Laskun numero", $kieli) . " / " . t("Viite", $kieli), $firstpage, $pieni);
$pdf->draw_text(180, $kala, t("Laskun pvm", $kieli), $firstpage, $pieni);
$pdf->draw_text(240, $kala, t("Eräpäivä", $kieli), $firstpage, $pieni);
$pdf->draw_text(295, $kala, t("Myöhässä pv", $kieli), $firstpage, $pieni);
$pdf->draw_text(360, $kala, t("Viimeisin muistutuspvm", $kieli), $firstpage, $pieni);
$pdf->draw_text(455, $kala, t("Laskun summa", $kieli), $firstpage, $pieni);
$pdf->draw_text(525, $kala, t("Perintäkerta", $kieli), $firstpage, $pieni);
$kala -= 15;
//toka rivi
if ($kaatosumma != 0 and $sivu == 1) {
$pdf->draw_text(30, $kala, t("Kohdistamattomia suorituksia", $kieli), $firstpage, $norm);
$oikpos = $pdf->strlen(sprintf("%.2f", $kaatosumma), $norm);
$pdf->draw_text(500 - $oikpos, $kala, sprintf("%.2f", $kaatosumma), $firstpage, $norm);
$kala -= 13;
}
return $firstpage;
}
