// 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"] == "") {
