// Logitetaan ajo cron_log($origlaskut . "/" . $file); rename($laskut . "/" . $file, $origlaskut . "/" . $file); } } } if ($handle = opendir($laskut)) { while (($file = readdir($handle)) !== FALSE) { if (!is_file($laskut . "/" . $file)) { continue; } // $yhtiorow ja $xmlstr unset($yhtiorow); unset($xmlstr); $nimi = $laskut . "/" . $file; $laskuvirhe = verkkolasku_in($nimi, TRUE); if ($laskuvirhe == "") { if (!$php_cli) { echo "Verkkolasku vastaanotettu onnistuneesti!<br>\n<br>\n"; } rename($laskut . "/" . $file, $oklaskut . "/" . $file); } else { if (!$php_cli) { echo "<font class='error'>Verkkolaskun vastaanotossa virhe:</font><br>\n<pre>{$laskuvirhe}</pre><br>\n"; } $alku = $loppu = ""; list($alku, $loppu) = explode("####", $laskuvirhe); if (trim($loppu) == "ASN") { // ei tehdä mitään vaan annetaan jäädä roikkumaan kansioon seuraavaan kierrokseen saakka, tai kunnes joku lukee postit. } else { rename($laskut . "/" . $file, $errlaskut . "/" . $file);
} } $laskuri = 0; $valitutlaskut = 0; require "inc/verkkolasku-in-erittele-laskut.inc"; if ($handle = opendir($verkkolaskuvirheet_vaarat)) { require "inc/verkkolasku-in.inc"; echo "<table><tr>"; echo "<th>" . t("Vastaanottaja") . "<br>" . t("Yhtiö") . "</th><th>" . t("Toiminto") . "</th><th>" . t("Ovttunnus") . "<br>" . t("Y-tunnus") . "</th><th>" . t("Toimittaja") . "</th><th>" . t("Laskunumero") . "<br>" . t("Maksutili") . "<br>" . t("Summa") . "</th><th>" . t("Pvm") . "</th></tr><tr>"; while (($file = readdir($handle)) !== FALSE) { if (is_file($verkkolaskuvirheet_vaarat . "/" . $file) and substr($file, 0, 1) != ".") { unset($yhtiorow); unset($xmlstr); // Napataan alkuperäinen kukarow $vv_kukarow = $kukarow; $returni = verkkolasku_in($verkkolaskuvirheet_vaarat . "/" . $file, FALSE); if (is_array($returni)) { $lasku_yhtio = $returni[0]; $lasku_toimittaja = $returni[1]; } elseif (stripos($returni, "ei ole validi XML") !== FALSE) { $laskut = $verkkolaskuvirheet_vaarat; $luotiinlaskuja = erittele_laskut($verkkolaskuvirheet_vaarat . "/" . $file); // Jos tiedostosta luotiin laskuja siirretään se tieltä pois if ($luotiinlaskuja > 0) { rename($verkkolaskuvirheet_vaarat . "/" . $file, $verkkolaskut_orig . "/" . $file); } $lasku_yhtio["yhtio"] = "EI KIITOS TÄLLÄ KERTAA"; } // Palautetaan alkuperäinen kukarow $kukarow = $vv_kukarow; if ($lasku_yhtio["yhtio"] == $kukarow["yhtio"] or $lasku_yhtio["yhtio"] == "") {