// poistetaan lukko
$query = "UNLOCK TABLES";
$res = pupe_query($query);
}
if ($toitarow['erittely'] == 'k' and $toitarow['rahtikirja'] != 'rahtikirja_hrx_siirto.inc') {
require "tilauskasittely/rahtikirja_erittely_pdf.inc";
}
require_once "inc/unifaun_send.inc";
$query = "SELECT unifaun_nimi\n FROM kirjoittimet\n WHERE yhtio = '{$kukarow['yhtio']}'\n AND tunnus = '{$kirjoitin_tunnus}'";
$kires = pupe_query($query);
$kirow = mysql_fetch_assoc($kires);
foreach ($mergeid_arr as $mergeid) {
if ($toitarow["rahtikirja"] == 'rahtikirja_unifaun_ps_siirto.inc' and $unifaun_ps_host != "" and $unifaun_ps_user != "" and $unifaun_ps_pass != "" and $unifaun_ps_path != "") {
$unifaun = new Unifaun($unifaun_ps_host, $unifaun_ps_user, $unifaun_ps_pass, $unifaun_ps_path, $unifaun_ps_port, $unifaun_ps_fail, $unifaun_ps_succ);
} elseif ($toitarow["rahtikirja"] == 'rahtikirja_unifaun_uo_siirto.inc' and $unifaun_uo_host != "" and $unifaun_uo_user != "" and $unifaun_uo_pass != "" and $unifaun_uo_path != "") {
$unifaun = new Unifaun($unifaun_uo_host, $unifaun_uo_user, $unifaun_uo_pass, $unifaun_uo_path, $unifaun_uo_port, $unifaun_uo_fail, $unifaun_uo_succ);
}
$unifaun->_closeWithPrinter($mergeid, $kirow['unifaun_nimi']);
$unifaun->ftpSend();
}
echo "<br>";
$tee = '';
}
// Tulostetaan rahtikirja
if ($tee == 'tulosta') {
if (strpos($_SERVER['SCRIPT_NAME'], "rahtikirja-kopio.php") === FALSE) {
$query = "LOCK TABLES\n asiakas READ,\n lasku WRITE,\n maksuehto READ,\n rahtikirjat WRITE,\n rahtisopimukset READ,\n tilausrivi WRITE,\n tuote READ";
$res = pupe_query($query);
}
// haetaan kaikki distinct rahtikirjat..
$query = "SELECT DISTINCT lasku.ytunnus, lasku.toim_maa, lasku.toim_nimi, lasku.toim_nimitark,\n lasku.toim_osoite, lasku.toim_ovttunnus, lasku.toim_postino, lasku.toim_postitp,\n lasku.toim_puh,\n lasku.maa, lasku.nimi, lasku.nimitark, lasku.osoite, lasku.ovttunnus, lasku.postino, lasku.postitp,\n rahtikirjat.merahti, rahtikirjat.rahtisopimus, if(maksuehto.jv is null,'',maksuehto.jv) jv, lasku.alv, lasku.vienti, rahtisopimukset.muumaksaja,\n asiakas.toimitusvahvistus,\n IF(lasku.toim_email != '', lasku.toim_email,\n IF(asiakas.keraysvahvistus_email != '', asiakas.keraysvahvistus_email, asiakas.email)) AS asiakas_email,\n IF(lasku.toim_puh != '', lasku.toim_puh,\n IF(asiakas.gsm != '', asiakas.gsm,\n IF(asiakas.tyopuhelin != '', asiakas.tyopuhelin,\n IF(asiakas.puhelin != '', asiakas.puhelin, '')))) puhelin\n FROM rahtikirjat\n JOIN lasku USE INDEX (PRIMARY) on (lasku.tunnus=rahtikirjat.otsikkonro and lasku.yhtio=rahtikirjat.yhtio and lasku.tila in ('L','G') ";
$keraysera_row['kollit'] = $counter;
}
}
// Insertöidään aina rahtikirjan tiedot per tilaus
$query_ker = "INSERT INTO rahtikirjat SET\n kollit = '{$keraysera_row['kollit']}',\n kilot = '{$kilot}',\n kuutiot = '{$kuutiot}',\n pakkauskuvaus = '{$keraysera_row['pakkauskuvaus']}',\n pakkaus = '{$keraysera_row['pakkaus']}',\n rahtikirjanro = '{$laskurow['tunnus']}',\n otsikkonro = '{$laskurow['tunnus']}',\n tulostuspaikka = '{$laskurow['varasto']}',\n toimitustapa = '{$laskurow['toimitustapa']}',\n yhtio = '{$kukarow['yhtio']}',\n merahti = '{$laskurow['kohdistettu']}',\n viesti = '{$asiakkaan_kuljetusohje}'\n {$tulostettulisa}";
$ker_res = pupe_query($query_ker);
}
if ($laskurow['tulostustapa'] == 'E' and ($laskurow["rahtikirja"] == 'rahtikirja_unifaun_ps_siirto.inc' and $unifaun_ps_host != "" and $unifaun_ps_user != "" and $unifaun_ps_pass != "" and $unifaun_ps_path != "" or $laskurow["rahtikirja"] == 'rahtikirja_unifaun_uo_siirto.inc' and $unifaun_uo_host != "" and $unifaun_uo_user != "" and $unifaun_uo_pass != "" and $unifaun_uo_path != "")) {
// Katotaan jääkö meille tässä vaiheessa tyhjiä kolleja?
$query = "SELECT pakkausnro, sscc_ulkoinen, sum(kpl_keratty) kplkeratty\n FROM kerayserat\n WHERE yhtio = '{$kukarow['yhtio']}'\n AND nro = '{$id}'\n AND otunnus = '{$laskurow['tunnus']}'\n AND tila = 'K'\n AND sscc_ulkoinen != '0'\n GROUP BY 1,2\n HAVING kplkeratty = 0";
$keraysera_res = pupe_query($query);
while ($keraysera_row = mysql_fetch_assoc($keraysera_res)) {
if ($laskurow["rahtikirja"] == 'rahtikirja_unifaun_ps_siirto.inc' and $unifaun_ps_host != "" and $unifaun_ps_user != "" and $unifaun_ps_pass != "" and $unifaun_ps_path != "") {
$unifaun = new Unifaun($unifaun_ps_host, $unifaun_ps_user, $unifaun_ps_pass, $unifaun_ps_path, $unifaun_ps_port, $unifaun_ps_fail, $unifaun_ps_succ);
} elseif ($laskurow["rahtikirja"] == 'rahtikirja_unifaun_uo_siirto.inc' and $unifaun_uo_host != "" and $unifaun_uo_user != "" and $unifaun_uo_pass != "" and $unifaun_uo_path != "") {
$unifaun = new Unifaun($unifaun_uo_host, $unifaun_uo_user, $unifaun_uo_pass, $unifaun_uo_path, $unifaun_uo_port, $unifaun_uo_fail, $unifaun_uo_succ);
}
$mergeid = md5($laskurow["toimitustavan_lahto"] . $laskurow["ytunnus"] . $laskurow["toim_osoite"] . $laskurow["toim_postino"] . $laskurow["toim_postitp"]);
$unifaun->_discardParcel($mergeid, $keraysera_row['sscc_ulkoinen']);
$unifaun->ftpSend();
}
}
// jos kyseessä on toimitustapa jonka rahtikirja on hetitulostus
if ($laskurow['tulostustapa'] == 'H' and $laskurow["nouto"] == "") {
// päivitetään keräyserän tila "Rahtikirja tulostettu"-tilaan
$query = "UPDATE kerayserat\n SET tila = 'R'\n WHERE yhtio = '{$kukarow['yhtio']}'\n AND nro = '{$id}'\n AND otunnus = '{$laskurow['tunnus']}'";
$tila_upd_res = pupe_query($query);
} else {
// päivitetään keräyserän tila "Kerätty"-tilaan
$query = "UPDATE kerayserat\n SET tila = 'T'\n WHERE yhtio = '{$kukarow['yhtio']}'\n AND nro = '{$id}'\n AND otunnus = '{$laskurow['tunnus']}'";
$tila_upd_res = pupe_query($query);
}
if ($yhtiorow['kerayserat'] == 'K') {
list($eranumero, $sscc) = explode("_", $eranumero_sscc);
// Jos paketilla on jo ulkoinen sscc, lähetetään discardParcel-sanoma
$query = "SELECT *\n FROM kerayserat\n WHERE yhtio = '{$kukarow['yhtio']}'\n AND sscc = '{$sscc}'\n AND nro = '{$eranumero}'\n AND sscc_ulkoinen != ''\n AND sscc_ulkoinen != 0\n LIMIT 1";
$sscc_ulkoinen_chk_res = pupe_query($query);
if (mysql_num_rows($sscc_ulkoinen_chk_res) == 1) {
$sscc_ulkoinen_chk_row = mysql_fetch_assoc($sscc_ulkoinen_chk_res);
require_once "inc/unifaun_send.inc";
$query = "SELECT lasku.toimitustavan_lahto, lasku.ytunnus, lasku.toim_osoite, lasku.toim_postino, lasku.toim_postitp\n FROM lasku\n WHERE lasku.yhtio = '{$kukarow['yhtio']}'\n AND lasku.tunnus = '{$sscc_ulkoinen_chk_row['otunnus']}'";
$toitares = pupe_query($query);
$toitarow = mysql_fetch_assoc($toitares);
if ($operaattori == 'unifaun_ps' and $unifaun_ps_host != "" and $unifaun_ps_user != "" and $unifaun_ps_pass != "" and $unifaun_ps_path != "") {
$unifaun = new Unifaun($unifaun_ps_host, $unifaun_ps_user, $unifaun_ps_pass, $unifaun_ps_path, $unifaun_ps_port, $unifaun_ps_fail, $unifaun_ps_succ);
} elseif ($operaattori == 'unifaun_uo' and $unifaun_uo_host != "" and $unifaun_uo_user != "" and $unifaun_uo_pass != "" and $unifaun_uo_path != "") {
$unifaun = new Unifaun($unifaun_uo_host, $unifaun_uo_user, $unifaun_uo_pass, $unifaun_uo_path, $unifaun_uo_port, $unifaun_uo_fail, $unifaun_uo_succ);
}
$mergeid = md5($toitarow["toimitustavan_lahto"] . $toitarow["ytunnus"] . $toitarow["toim_osoite"] . $toitarow["toim_postino"] . $toitarow["toim_postitp"]);
$unifaun->_discardParcel($mergeid, $sscc_ulkoinen_chk_row['sscc_ulkoinen']);
$unifaun->ftpSend();
}
$query = "UPDATE kerayserat SET\n sscc_ulkoinen = '{$sscc_ulkoinen}'\n WHERE yhtio = '{$kukarow['yhtio']}'\n AND sscc = '{$sscc}'\n AND nro = '{$eranumero}'";
$upd_res = pupe_query($query);
} else {
$eranumero_sscc = preg_replace("/[^0-9\\,]/", "", str_replace("_", ",", $eranumero_sscc));
if (!empty($eranumero_sscc)) {
$query = "SELECT *\n FROM toimitustapa\n WHERE yhtio = '{$kukarow['yhtio']}'\n AND selite = '{$toimitrow['toimitustapa']}'";
$toimitustapa_res = pupe_query($query);
$toimitustapa_row = mysql_fetch_assoc($toimitustapa_res);
// koontierätulostuksessa pikkuisen eri tavalla kuin muissa
if ($toimitustapa_row["tulostustapa"] == 'L') {
