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;
}
