function placeTemplate($template, $page = "", $left = 0, $height = 0) { $left = mm_pt($left); $height = mm_pt($height); if (!is_int($page)) { $page = $this->currentPage["oid"]; } $this->template->place($template, $page, $left, $height); }
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; }