PHP usdecimal函数代码示例

 function udvaelg($tmp, $key, $art)
 {
     include "../includes/std_func.php";
     $tmp = strtolower($tmp);
     if ($art) {
         #20150105-1
         if ($art != 'BELOB') {
             $tmp = str_replace(",", ":", $tmp);
         }
         #20150601
         $tmp = str_replace(";", ":", $tmp);
         if ($art == 'BELOB' && !strpos($tmp, ':')) {
             #20151019
             $tmp = usdecimal($tmp);
             $tmp1 = $tmp - 0.005;
             $tmp2 = $tmp + 0.004;
             $tmp = number_format($tmp1, 3, ',', '') . ":" . number_format($tmp2, 3, ',', '');
         }
     }
     list($tmp1, $tmp2) = explode(":", $tmp);
     if (strstr($tmp, ':') && $art != 'TID') {
         if ($art == "DATO") {
             $tmp1 = usdate($tmp1);
             $tmp2 = usdate($tmp2);
         } elseif ($art == "BELOB") {
             $tmp1 = usdecimal($tmp1);
             $tmp2 = usdecimal($tmp2);
         } elseif ($art == "NR") {
             $tmp1 = afrund($tmp1 * 1, 2);
             #21050105-2
             $tmp2 = afrund($tmp2 * 1, 2);
         }
         $udvaelg = "and {$key} >= '{$tmp1}' and {$key} <= '{$tmp2}'";
     } else {
         if ($art == "TID") {
             if (!strstr($tmp, ':')) {
                 $tmp = $tmp * 1;
                 $tmp = str_replace(".", ":", $tmp);
                 if (!strstr($tmp, ':')) {
                     $tmp = $tmp . ":";
                 }
             }
         } elseif ($art == "DATO") {
             $tmp = usdate($tmp);
         }
         if (!$art) {
             $tmp = str_replace("*", "%", $tmp);
             $tmp = db_escape_string($tmp);
             $udvaelg = " and lower({$key}) like '{$tmp}'";
         } else {
             $udvaelg = " and {$key} = '{$tmp}'";
         }
     }
     return $udvaelg;
 }

//.........这里部分代码省略.........
                closedir($dh);
            }
            if ($puljefil) {
                $filnavn = $puljefil;
            }
            #			else $filnavn=$bilagfilnavn;
            $langt_filnavn = $til;
            $bilag *= 1;
            if (!$dato) {
                $dato = date("d-m-Y");
            }
            if (!is_numeric($debet)) {
                if (strtolower(substr($debet, 0, 1)) == 'd') {
                    $d_type = 'D';
                } elseif (strtolower(substr($debet, 0, 1)) == 'k') {
                    $d_type = 'K';
                } else {
                    $d_type = 'F';
                }
                $debet = substr($debet, 1);
            }
            $debet *= 1;
            if (!is_numeric($kredit)) {
                if (strtolower(substr($kredit, 0, 1)) == 'd') {
                    $k_type = 'D';
                } elseif (strtolower(substr($kredit, 0, 1)) == 'k') {
                    $k_type = 'K';
                } else {
                    $k_type = 'F';
                }
                $kredit = substr($kredit, 1);
            }
            $kredit *= 1;
            $afd *= 1;
            if ($kilde == "kassekladde") {
                if ($puljefil) {
                    db_modify("update kassekladde set bilag='{$bilag}',transdate='" . usdate($dato) . "',beskrivelse='" . db_escape_string($beskrivelse) . "',d_type='{$d_type}',debet='{$debet}',k_type='{$k_type}',kredit='{$kredit}',faktura='{$fakturanr}',amount='" . usdecimal($sum) . "',afd='{$afd}',projekt='{$projekt}',dokument='{$filnavn}' where id='{$bilag_id}'", __FILE__ . " linje " . __LINE__);
                } else {
                    db_modify("update kassekladde set dokument='{$filnavn}' where id='{$bilag_id}'", __FILE__ . " linje " . __LINE__);
                }
            } else {
                db_modify("update {$kilde} set dokument='" . db_escape_string($filnavn) . "' where id='{$bilag_id}'", __FILE__ . " linje " . __LINE__);
            }
        } else {
            #Egen FTP'
            $box1 = $r['box1'];
            $box2 = $r['box2'];
            $box3 = $r['box3'];
            if ($kilde == "kassekladde" || $kilde == "ordrer") {
                $mappe = $r['box4'];
                $kilde == "kassekladde" ? $undermappe = "kladde_{$kilde_id}" : ($undermappe = "ordrer");
                $bilagfilnavn = "bilag_" . $bilag_id;
            } else {
                $mappe = $r['box5'];
                $undermappe = "debitor_{$kilde_id}";
                $bilagfilnavn = "doc_" . $bilag_id;
            }
            $fp = fopen("../temp/{$db}/ftpscript1.{$bruger_id}", "w");
            if ($fp) {
                fwrite($fp, "mkdir {$mappe}\ncd {$mappe}\nmkdir {$undermappe}\ncd {$undermappe}\nput {$bilagfilnavn}\nbye\n");
            }
            fclose($fp);
            $fp = fopen("../temp/{$db}/ftplog", "w");
            fwrite($fp, "cd ../temp/{$db}\n\rmv \"{$filnavn}\" \"{$bilagfilnavn}\"\n\r{$exec_path}/ncftp ftp://{$box2}:{$box3}@{$box1}\n\rrm {$bilagfilnavn}\n\r");
            fclose($fp);
            $kommando = "cd ../temp/{$db}\nmv \"{$filnavn}\" \"{$bilagfilnavn}\"\n{$exec_path}/ncftp ftp://" . $box2 . ":'" . $box3 . "'@" . $box1 . " < ftpscript1.{$bruger_id} >> ftplog\nrm {$bilagfilnavn}\n";
            #rm ftpscript.$bruger_id";
            system($kommando);
            $fp = fopen("../temp/{$db}/ftpscript2.{$bruger_id}", "w");
            if ($fp) {
                fwrite($fp, "cd {$mappe}\ncd {$undermappe}\nget {$bilagfilnavn}\nbye\n");
            }
            fclose($fp);
            $kommando = "cd ../temp/{$db}\n{$exec_path}/ncftp ftp://" . $box2 . ":'" . $box3 . "'@" . $box1 . " < ftpscript2.{$bruger_id} >> ftplog\n";
            system($kommando);
            $langt_filnavn = "../temp/{$db}/" . $bilagfilnavn;
            if (file_exists($langt_filnavn)) {
                db_modify("update {$kilde} set dokument='" . db_escape_string($filnavn) . "' where id='{$bilag_id}'", __FILE__ . " linje " . __LINE__);
            }
            if (file_exists($langt_filnavn)) {
                #20141105
                print "<BODY onLoad=\"javascript:alert('{$filnavn} er indl&aelig;st')\">";
            } else {
                print "<BODY onLoad=\"javascript:alert('A indl&aelig;sning af {$filnavn} fejlet')\">";
            }
        }
    }
    #print "<BODY onLoad=\"javascript:alert('B indl&aelig;sning af $filnavn fejlet')\">";
    if ($funktion == 'gennemse') {
        $bilag++;
        $tmp = "../includes/bilag.php?bilag={$bilag}&kilde={$kilde}&kilde_id={$kilde_id}&fokus={$fokus}&funktion=gennemse";
    } elseif ($kilde == "kassekladde") {
        $tmp = "../finans/kassekladde.php?kladde_id={$kilde_id}&fokus={$fokus}";
    } elseif ($kilde == "ordrer") {
        $tmp = "../debitor/ordre.php?id={$kilde_id}&fokus={$fokus}";
    } else {
        $tmp = "../debitor/historikkort.php?id={$kilde_id}";
    }
    print "<meta http-equiv=\"refresh\" content=\"0;URL={$tmp}\">";
}

//.........这里部分代码省略.........
                }
                for ($y = 0; $y <= $feltantal; $y++) {
                    $felt[$y] = trim($felt[$y]);
                    $feltnavn[$y] = strtolower($feltnavn[$y]);
                    if (substr($felt[$y], 0, 1) == '"' && substr($felt[$y], -1) == '"') {
                        $felt[$y] = substr($felt[$y], 1, strlen($felt[$y]) - 2);
                    }
                    if ($feltnavn[$y] == 'kontonr' && !is_numeric($felt[$y])) {
                        $kontonr = 0;
                        $skriv_linje = 2;
                    } elseif ($feltnavn[$y] == 'kontonr') {
                        $kontonr = $felt[$y];
                    }
                    if ($feltnavn[$y] == 'pbs_nr' && $felt[$y]) {
                        $felt[$pbs] = 'on';
                    }
                    if ($feltnavn[$y] == "postnr") {
                        list($felt[$y], $bynavn[$y]) = explode(" ", $felt[$y], 2);
                    }
                    if ($feltnavn[$y] == 'kontoansvarlig' && $felt[$y] && $kontonr) {
                        $r = db_fetch_array(db_select("select id from adresser where kontonr='{$kontonr}'", __FILE__ . " linje " . __LINE__));
                        $konto_id = $r['id'] * 1;
                        $r = db_fetch_array(db_select("select id from ansatte where initialer='{$felt[$y]}' and konto_id={$konto_id}", __FILE__ . " linje " . __LINE__));
                        $felt[$y] = $r['id'] * 1;
                    } elseif ($feltnavn[$y] == 'kontoansvarlig') {
                        $felt[$y] = '0';
                    }
                    if ($feltnavn[$y] == 'oprettet' && $felt[$y] && $kontonr) {
                        $felt[$y] = usdate($felt[$y]);
                    } elseif ($feltnavn[$y] == 'oprettet') {
                        $felt[$y] = date("Y-m-d");
                    }
                    if ($feltnavn[$y] == 'kreditmax') {
                        $felt[$y] = usdecimal($felt[$y]);
                    }
                    if ($feltnavn[$y] == 'betalingsdage') {
                        $felt[$y] = $felt[$y] * 1;
                    }
                }
            }
            if ($skriv_linje == 1) {
                $addr_a = '';
                $addr_b = '';
                $upd = '';
                $kontakt_a = '';
                $kontakt_b = '';
                for ($y = 0; $y <= $feltantal; $y++) {
                    if ($feltnavn[$y] && $feltnavn[$y] != 'husnr' && $feltnavn[$y] != 'etage') {
                        $felt[$y] = trim(addslashes($felt[$y]));
                        if (!strstr($feltnavn[$y], "kontakt_")) {
                            if ($y > 0) {
                                $addr_a = $addr_a . ",";
                                $addr_b = $addr_b . ",";
                                $upd = $upd . ",";
                            }
                            $addr_a = $addr_a . $feltnavn[$y];
                            $addr_b = $addr_b . "'" . $felt[$y] . "'";
                            $upd = $upd . $feltnavn[$y] . "='" . $felt[$y] . "'";
                        } else {
                            if ($kontakt_a) {
                                $kontakt_a = $kontakt_a . ",";
                                $kontakt_b = $kontakt_b . ",";
                            }
                            $tmp = substr($feltnavn[$y], 8);
                            $kontakt_a = $kontakt_a . $tmp;
                            $kontakt_b = $kontakt_b . "'" . $felt[$y] . "'";

 			$mailfakt = 1;
 			$notes = "";
 		}
 */
 $ny_kontonr = db_escape_string(trim($_POST['ny_kontonr']));
 $gl_kontotype = db_escape_string(trim($_POST['gl_kontotype']));
 $kontotype = db_escape_string(trim($_POST['kontotype']));
 $fornavn = db_escape_string(trim($_POST['fornavn']));
 $efternavn = db_escape_string(trim($_POST['efternavn']));
 $fax = db_escape_string(trim($_POST['fax']));
 $web = db_escape_string(trim($_POST['web']));
 $betalingsbet = db_escape_string(trim($_POST['betalingsbet']));
 $ean = db_escape_string(trim($_POST['ean']));
 $institution = db_escape_string(trim($_POST['institution']));
 $betalingsdage = $_POST['betalingsdage'] * 1;
 $kreditmax = usdecimal($_POST['kreditmax']);
 $felt_2 = db_escape_string(trim($_POST['felt_2']));
 $felt_3 = db_escape_string(trim($_POST['felt_3']));
 $felt_4 = db_escape_string(trim($_POST['felt_4']));
 $felt_5 = db_escape_string(trim($_POST['felt_5']));
 $lev_firmanavn = db_escape_string(trim($_POST['lev_firmanavn']));
 $lev_fornavn = db_escape_string(trim($_POST['lev_fornavn']));
 $lev_efternavn = db_escape_string(trim($_POST['lev_efternavn']));
 $lev_addr1 = db_escape_string(trim($_POST['lev_addr1']));
 $lev_addr2 = db_escape_string(trim($_POST['lev_addr2']));
 $lev_postnr = db_escape_string(trim($_POST['lev_postnr']));
 $lev_bynavn = db_escape_string(trim($_POST['lev_bynavn']));
 $lev_land = db_escape_string(trim($_POST['lev_land']));
 $lev_kontakt = db_escape_string(trim($_POST['lev_kontakt']));
 $lev_tlf = db_escape_string(trim($_POST['lev_tlf']));
 $lev_email = db_escape_string(trim($_POST['lev_email']));

//.........这里部分代码省略.........
                         					$saetnr=$saet[$x];
                         */
                     }
                 }
                 /*
                 			if ($saet[$x] && $saetnr) {
                 				$x++;
                 				$r=db_fetch_array(db_select("select beskrivelse from varer where id = '$svid'",__FILE__ . " linje " . __LINE__));
                 				$beskrivelse[$x]=$r['beskrivelse'];
                 				$linjesum[$x]=$saetpris;
                 				$saetpris=0;
                 			}  
                 */
                 $tmp = $row['rabat'] * 1;
                 if ($x > 0 && $formular < 4 && !$tmp && $m_rabat[$x] && $status < 3) {
                     $y = $x;
                     $x++;
                     $posnr[$x] = $posnr[$y];
                     $vare_id[$x] = $vare_id[$y];
                     $varenr[$x] = $varenr[$y];
                     $lev_varenr[$x] = $lev_varenr[$y];
                     $antal[$x] = $antal[$y];
                     $projekt[$x] = $projekt[$y];
                     #				$beskrivelse[$x]=findtekst(366,$sprog_id);
                     $dkantal[$x] = $dkantal[$y];
                     $lev_antal[$x] = $lev_antal[$y];
                     $leveres[$x] = $leveres[$y];
                     $tidl_lev[$x] = $tidl_lev[$y];
                     $rest[$x] = $rest[$y];
                     $enhed[$x] = '';
                     $rabat[$x] = $rabat[$y];
                     $incl_moms && !$b2b ? $tmp = $m_rabat[$y] + $m_rabat[$y] * $varemomssats[$y] / 100 : ($tmp = $m_rabat[$y]);
                     $pris[$x] = $tmp * -1;
                     $rabatpct = afrund($tmp * 100 / usdecimal($pris[$y]), 2);
                     $l_sum[$x] = afrund($tmp * -$antal[$x], 3);
                     $linjesum[$x] = $l_sum[$x];
                     #				$linjesum[$x]=dkdecimal($l_sum[$x]);
                     if ($varemomssats[$y] > 0) {
                         $linjemoms[$x] = $varemomssats[$y] * $linjesum[$x] * 0.01;
                     } else {
                         $linjemoms[$x] = $varemomssats[$y] * $linjesum[$x];
                     }
                     $sum += $l_sum[$x];
                     if ($momsfri[$y] != 'on' && !$omvbet[$x]) {
                         $moms += afrund($m_rabat[$y] * $antal[$x] * $varemomssats[$y] / -100, 3);
                         $momssum = $momssum + afrund($m_rabat[$y] * -$antal[$x], 2);
                     }
                     $rabatart[$x] == 'amount' ? $beskrivelse[$x] = findtekst(466, $sprog_id) : ($beskrivelse[$x] = findtekst(467, $sprog_id));
                     $beskrivelse[$x] = str_replace('$rabatpct', $rabatpct, $beskrivelse[$x]);
                 }
                 $linjeantal = $x;
             }
             if ($status < 3 && $procenttillag > 0) {
                 $r = db_fetch_array(db_select("select box13 from grupper where art = 'DIV' and kodenr = '3'", __FILE__ . " linje " . __LINE__));
                 list($tmp, $procentvare) = explode(chr(9), $r['box13']);
                 if ($procentvare && ($r = db_fetch_array(db_select("select beskrivelse from varer where varenr='{$procentvare}'", __FILE__ . " linje " . __LINE__)))) {
                     $x++;
                     $linjeantal++;
                     $posnr[$x] = $posnr[$x - 1] + 1;
                     $varenr[$x] = $procentvare;
                     $beskrivelse[$x] = $r['beskrivelse'];
                     $procent[$x] = $r['procent'];
                     $dkantal[$x] = 1;
                     $linjesum[$x] = $sum * $procenttillag / 100;
                     if ($momssats) {
                         $momssum += $linjesum[$x];

//.........这里部分代码省略.........
                    }
                    if ($feltnavn[$y] == 'varenr') {
                        $feltnavn[$y] = "vare_id";
                    }
                    if ($feltnavn[$y] == 'stregkode') {
                        $feltnavn[$y] = "variant_stregkode";
                    }
                    $felt[$y] = trim($felt[$y]);
                    $feltnavn[$y] = strtolower($feltnavn[$y]);
                    if (substr($felt[$y], 0, 1) == '"' && substr($felt[$y], -1) == '"') {
                        $felt[$y] = substr($felt[$y], 1, strlen($felt[$y]) - 2);
                    }
                    if ($feltnavn[$y] == 'stregkode') {
                        if (!($stregkode = $felt[$y])) {
                            $skriv_linje = 0;
                        }
                    }
                    if ($feltnavn[$y] == 'vare_id') {
                        for ($i = 0; $i < count($varer_id); $i++) {
                            if ($felt[$y] == $varer_nr[$i]) {
                                $felt[$y] = $varer_id[$i];
                                $vare_id = $varer_id[$i];
                                break 1;
                            }
                        }
                        $felt[$y] *= 1;
                    }
                    if ($feltnavn[$y] == 'variant_kostpris') {
                        $tmp = str_replace(",", "", $felt[$y]);
                        $tmp = str_replace(".", "", $tmp);
                        if ($tmp && !is_numeric($tmp)) {
                            $skriv_linje = 0;
                        } elseif (!is_numeric($felt[$y])) {
                            $felt[$y] = usdecimal($felt[$y]);
                        }
                        $kostpris = $felt[$y] * 1;
                    }
                    if ($feltnavn[$y] == 'variant_salgspris') {
                        $tmp = str_replace(",", "", $felt[$y]);
                        $tmp = str_replace(".", "", $tmp);
                        if ($tmp && !is_numeric($tmp)) {
                            $skriv_linje = 0;
                        } elseif (!is_numeric($felt[$y])) {
                            $felt[$y] = usdecimal($felt[$y]);
                        }
                        $salgspris = $felt[$y] * 1;
                    }
                    if ($feltnavn[$y] == 'variant_vejlpris') {
                        $tmp = str_replace(",", "", $felt[$y]);
                        $tmp = str_replace(".", "", $tmp);
                        if ($tmp && !is_numeric($tmp)) {
                            $skriv_linje = 0;
                        } elseif (!is_numeric($felt[$y])) {
                            $felt[$y] = usdecimal($felt[$y]);
                        }
                        $vejlpris = $felt[$y] * 1;
                    }
                    #cho "F $feltnavn[$y]<br>";
                    if (in_array(strtolower($feltnavn[$y]), $varianter_beskrivelse)) {
                        $medtag_felt[$y] = 0;
                        for ($i = 0; $i < count($varianter_id); $i++) {
                            if (strtolower($feltnavn[$y]) == $varianter_beskrivelse[$i]) {
                                for ($v = 0; $v < count($varer_id); $v++) {
                                    if ($varer_id[$v] == $vare_id) {
                                        $v_var = explode(chr(9), $varer_varianter[$v]);
                                        if (!in_array($varianter_id[$i], $v_var)) {

//.........这里部分代码省略.........
        $kontonumre = array();
        $x = 0;
        $imp_antal = 0;
        while (!feof($fp)) {
            $skriv_linje = 0;
            if ($linje = trim(fgets($fp))) {
                $x++;
                $skriv_linje = 1;
                if ($charset == 'UTF-8') {
                    $linje = utf8_encode($linje);
                }
                $felt = array();
                $felt = opdel($splitter, $linje);
                for ($y = 0; $y <= $feltantal; $y++) {
                    $felt[$y] = trim($felt[$y]);
                    $feltnavn[$y] = strtolower($feltnavn[$y]);
                    if (substr($felt[$y], 0, 1) == '"' && substr($felt[$y], -1) == '"') {
                        $felt[$y] = substr($felt[$y], 1, strlen($felt[$y]) - 2);
                    }
                    if ($feltnavn[$y] == 'kontonr' && !is_numeric($felt[$y])) {
                        $kontonr = 0;
                        $skriv_linje = 2;
                        #					print "<BODY onLoad=\"javascript:alert('R&oslash;de linjer indeholder fejl (kontonummer ikke numerisk) og bliver ikke importeret')\">";
                        #					print "<BODY onLoad=\"javascript:alert('Kontonrnummer skal v&aelig;re numerisk')\">";
                    } elseif ($feltnavn[$y] == 'kontonr') {
                        $kontonr = $felt[$y];
                    }
                    if ($feltnavn[$y] == "postnr") {
                        list($felt[$y], $bynavn[$y]) = split(" ", $felt[$y], 2);
                    }
                    if ($feltnavn[$y] == 'kontoansvarlig' && $felt[$y] && $kontonr) {
                        $r = db_fetch_array(db_select("select id from adresser where kontonr='{$kontonr}'", __FILE__ . " linje " . __LINE__));
                        $konto_id = $r['id'] * 1;
                        $r = db_fetch_array(db_select("select id from ansatte where initialer='{$felt[$y]}' and konto_id={$konto_id}", __FILE__ . " linje " . __LINE__));
                        $felt[$y] = $r['id'] * 1;
                    } elseif ($feltnavn[$y] == 'kontoansvarlig') {
                        $felt[$y] = '0';
                    }
                    if ($feltnavn[$y] == 'oprettet' && $felt[$y] && $kontonr) {
                        $felt[$y] = usdate($felt[$y]);
                    } elseif ($feltnavn[$y] == 'oprettet') {
                        $felt[$y] = date("Y-m-d");
                    }
                    if ($feltnavn[$y] == 'kreditmax') {
                        $felt[$y] = usdecimal($felt[$y]);
                    }
                    if ($feltnavn[$y] == 'betalingsdage') {
                        $felt[$y] = $felt[$y] * 1;
                    }
                }
            }
            if ($skriv_linje == 1) {
                $addr_a = '';
                $addr_b = '';
                $kontakt_a = '';
                $kontakt_b = '';
                for ($y = 0; $y <= $feltantal; $y++) {
                    if ($feltnavn[$y]) {
                        $felt[$y] = addslashes($felt[$y]);
                        if (!strstr($feltnavn[$y], "kontakt_")) {
                            if ($y > 0) {
                                $addr_a = $addr_a . ",";
                                $addr_b = $addr_b . ",";
                            }
                            $addr_a = $addr_a . $feltnavn[$y];
                            $addr_b = $addr_b . "'" . $felt[$y] . "'";
                        } else {
                            if ($kontakt_a) {
                                $kontakt_a = $kontakt_a . ",";
                                $kontakt_b = $kontakt_b . ",";
                            }
                            $tmp = substr($feltnavn[$y], 8);
                            $kontakt_a = $kontakt_a . $tmp;
                            $kontakt_b = $kontakt_b . "'" . $felt[$y] . "'";
                        }
                    }
                }
                if ($r = db_fetch_array(db_select("select id from adresser where kontonr='{$kontonr}'", __FILE__ . " linje " . __LINE__))) {
                    $imp_antal++;
                    db_modify("delete from adresser where id = '{$r['id']}'", __FILE__ . " linje " . __LINE__);
                    db_modify("insert into adresser(id,{$addr_a},art) values ({$r['id']},{$addr_b},'K')", __FILE__ . " linje " . __LINE__);
                } else {
                    $imp_antal++;
                    db_modify("insert into adresser({$addr_a}, art) values ({$addr_b}, 'K')", __FILE__ . " linje " . __LINE__);
                }
                $r = db_fetch_array(db_select("select id from adresser where kontonr='{$kontonr}' and art = 'K'", __FILE__ . " linje " . __LINE__));
                $konto_id = $r['id'];
                if ($kontakt_a && !($r = db_fetch_array(db_select("select id from ansatte where konto_id='{$konto_id}'", __FILE__ . " linje " . __LINE__)))) {
                    db_modify("insert into ansatte({$kontakt_a}, konto_id) values ({$kontakt_b}, '{$konto_id}')", __FILE__ . " linje " . __LINE__);
                }
            }
        }
    }
    fclose($fp);
    transaktion('commit');
    print "</tbody></table>";
    print "</td></tr>";
    print "<BODY onLoad=\"javascript:alert('{$imp_antal} adresser importeret')\">";
    print "<meta http-equiv=\"refresh\" content=\"0;URL=../includes/luk.php\">";
}

function betalingskontrol($erh, $fra_kto, $egen_ref, $til_kto, $kort_ref, $modt_navn, $belob, $valuta, $betalingsdato)
{
    $k1[$x] = NULL;
    $k2[$x] = NULL;
    $k3[$x] = NULL;
    $k4[$x] = NULL;
    $k5[$x] = NULL;
    $k6[$x] = NULL;
    $k7[$x] = NULL;
    $k8[$x] = NULL;
    if (!$fra_kto || !is_numeric($fra_kto) || strlen($fra_kto) != 14) {
        $k1[$x] = "Egen konto ikke gyldig";
    }
    if ($erh == 'ERH351' || $erh == 'ERH352' || $erh == 'ERH358' || $erh == 'SDCK020') {
        if (!$til_kto || !is_numeric($til_kto) || strlen($til_kto) != 8) {
            $k3[$x] = "Modtager konto ikke gyldig - skal være på 8 cifre";
        }
        if (!$kort_ref || !is_numeric($kort_ref)) {
            $k4[$x] = "Ugyldig betalingsidentifikation (modt. ref - må kun bestå af cifre)";
        } else {
            if ($erh == 'ERH351' || ($erh = 'SDCK020')) {
                $len = 15;
                #strlen af ERH351 og SDCK020 skal vaere 15
            } else {
                $len = 16;
            }
            for ($x = strlen($kort_ref); $x < $len; $x++) {
                $kort_ref = '0' . $kort_ref;
            }
            for ($x = $len - 1; $x >= 0; $x--) {
                #Beregning af kontrolciffer.
                $y = substr($kort_ref, $x, 1) * 2;
                $x--;
                $y = substr($kort_ref, $x, 1) * 1;
            }
            while ($y > 9) {
                #Reduktion af kontrolciffer
                $y = substr($y, 0, 1) + ($y = substr($y, 1, 1));
            }
            if (substr($kort_ref, -1) != $y) {
                $kommentar = "Ugyldig betalingsidentifikation (modt. ref - kontrolciffer passer ikke)";
            }
        }
    } elseif ($erh == 'ERH355' || $erh == 'ERH356' || ($erh = 'SDC3')) {
        if (!$til_kto || !is_numeric($til_kto) || strlen($til_kto) != 14) {
            $k3[$x] = "Modtager konto ikke gyldig - skal være på 14 cifre (regnr. på 4 og kontonr på 10)";
        }
        if (!$kort_ref) {
            $k4[$x] = "Modt ref skal udfyldes";
        }
    }
    if (usdecimal($belob) < 0.01) {
        $k4[$x] = "Bel&oslash;b skal være st&oslash;rre end 0";
    }
    if ($valuta != 'DKK') {
        $k5[$x] = "Ugyldig valuta, kun DKK kan anvendes";
    }
    if (strlen($betalingsdato) != 8) {
        $k6[$x] = "ugyldig dato - skal v&aelig;re i formatet ddmmyyyy";
    }
    $dag = substr($betalingsdato, 0, 2);
    $md = substr($betalingsdato, 2, 2);
    $aar = substr($betalingsdato, 4);
    $bd = $aar . $md . $dag;
    $dd = date("Ymd");
    if ($dd > $bd) {
        $k8[$x] = "Betalingsdato er overskredet";
    }
    if (!checkdate($md, $dag, $aar)) {
        $k8[$x] = "ugyldig dato - skal v&aelig;re i formatet ddmmyyyy";
    }
    #	echo "$kort_ref,$kommentar -- ";
    return array($kort_ref, $k1[$x], $k2[$x], $k3[$x], $k4[$x], $k5[$x], $k6[$x], $k7[$x], $k8[$x], $k9[$x]);
}

function opdater_varer($kodenr, $art, $box1, $box2, $box3, $box4)
{
    if ($art == 'VPG' && $kodenr) {
        if ($box1) {
            $box1 = usdecimal($box1);
        }
        if ($box2) {
            $box2 = usdecimal($box2);
        }
        if ($box3) {
            $box3 = usdecimal($box3);
        }
        if ($box4) {
            $box4 = usdecimal($box4);
        }
        if ($box1) {
            db_modify("update varer set kostpris='{$box1}' where prisgruppe = '{$kodenr}'", __FILE__ . " linje " . __LINE__);
        }
        if ($box2) {
            db_modify("update varer set salgspris='{$box2}' where prisgruppe = '{$kodenr}'", __FILE__ . " linje " . __LINE__);
        }
        if ($box3) {
            db_modify("update varer set retail_price='{$box3}' where prisgruppe = '{$kodenr}'", __FILE__ . " linje " . __LINE__);
        }
        if ($box4) {
            db_modify("update varer set tier_price='{$box4}' where prisgruppe = '{$kodenr}'", __FILE__ . " linje " . __LINE__);
        }
        return $box1 . ";" . $box2 . ";" . $box3 . ";" . $box4;
    }
    if ($art == 'VTG' && $kodenr) {
        if ($box1) {
            $box1 = usdecimal($box1);
        }
        if ($box2) {
            $box2 = usdecimal($box2);
        }
        if ($box3) {
            $box3 = usdate($box3);
        }
        if ($box4) {
            $box4 = usdate($box4);
        }
        if ($box1) {
            db_modify("update varer set special_price='{$box1}' where tilbudgruppe = '{$kodenr}'", __FILE__ . " linje " . __LINE__);
        }
        if ($box2) {
            db_modify("update varer set campaign_cost='{$box2}' where tilbudgruppe = '{$kodenr}'", __FILE__ . " linje " . __LINE__);
        }
        if ($box3) {
            db_modify("update varer set special_from_date='{$box3}' where tilbudgruppe = '{$kodenr}'", __FILE__ . " linje " . __LINE__);
        }
        if ($box4) {
            db_modify("update varer set special_to_date='{$box4}' where tilbudgruppe = '{$kodenr}'", __FILE__ . " linje " . __LINE__);
        }
        return $box1 . ";" . $box2 . ";" . $box3 . ";" . $box4;
    }
    if ($art == 'VRG' && $kodenr) {
        if ($box2) {
            $box2 = usdecimal($box2);
        }
        if ($box3) {
            $box3 = usdecimal($box3);
        }
        if ($box1) {
            db_modify("update varer set m_type='{$box1}' where rabatgruppe = '{$kodenr}'", __FILE__ . " linje " . __LINE__);
        }
        if ($box2) {
            db_modify("update varer set m_rabat='{$box2}' where rabatgruppe = '{$kodenr}'", __FILE__ . " linje " . __LINE__);
        }
        if ($box3) {
            db_modify("update varer set m_antal='{$box3}' where rabatgruppe = '{$kodenr}'", __FILE__ . " linje " . __LINE__);
        }
    }
}

function flyt_data($kladde_id, $filnavn, $splitter, $feltnavn, $feltantal, $bilag, $datoformat)
{
    global $charset;
    transaktion('begin');
    $splitter = chr(9);
    $fp = fopen($filnavn . "2", "r");
    if ($fp) {
        $x = 0;
        while (!feof($fp)) {
            $skriv_linje = 0;
            if ($linje = trim(fgets($fp))) {
                $x++;
                $skriv_linje = 1;
                $felt = array();
                $felt = explode($splitter, $linje);
                for ($y = 0; $y <= $feltantal; $y++) {
                    $felt[$y] = trim($felt[$y]);
                    if (substr($felt[$y], 0, 1) == '"' && substr($felt[$y], -1) == '"') {
                        $felt[$y] = substr($felt[$y], 1, strlen($felt[$y]) - 2);
                    }
                    if ($feltnavn[$y] == 'dato') {
                        $felt[$y] = datotjek($datoformat, $felt[$y]);
                    }
                    #					if ($feltnavn[$y]=='dato') $felt[$y]=str_replace(".","-",$felt[$y]);
                    if ($feltnavn[$y] == 'belob') {
                        if (nummertjek($felt[$y]) == 'US') {
                            $felt[$y] = dkdecimal($felt[$y]);
                        } elseif (nummertjek($felt[$y]) != 'DK') {
                            $skriv_linje = 0;
                        }
                    }
                }
            }
            if ($skriv_linje == 1) {
                for ($y = 0; $y <= $feltantal; $y++) {
                    $bilag = $bilag * 1;
                    if ($feltnavn[$y] == 'bilag') {
                        $bilag = $felt[$y] * 1;
                    }
                    if ($feltnavn[$y] == 'belob') {
                        $amount = usdecimal($felt[$y]);
                    } elseif ($feltnavn[$y] == "dato") {
                        $transdate = usdate($felt[$y]);
                    } elseif ($feltnavn[$y] == "beskrivelse") {
                        $beskrivelse = addslashes($felt[$y]);
                    } elseif ($feltnavn[$y] == "debet") {
                        $d_type = "F";
                        $debet = $felt[$y];
                    } elseif ($feltnavn[$y] == "kredit") {
                        $d_type = "F";
                        $kredit = $felt[$y];
                    } elseif ($feltnavn[$y] == "debitor") {
                        $d_type = "D";
                        $debet = $felt[$y];
                    } elseif ($feltnavn[$y] == "kreditor") {
                        $k_type = "K";
                        $kredit = $felt[$y];
                    } elseif ($feltnavn[$y] == "fakturanr") {
                        $fakturanr = addslashes($felt[$y]);
                    }
                }
                if (!$transdate) {
                    $transdate = date('Y-m-d');
                }
                #20150105
                if ($amount * 1 != 0) {
                    #					$debet=$debet*1;$kredit=$kredit*1;
                    $felttext1 = NULL;
                    $felttext2 = NULL;
                    if (is_numeric($debet)) {
                        $felttext1 = "d_type,debet,";
                        $felttext2 = "'{$d_type}','{$debet}',";
                    }
                    if (is_numeric($kredit)) {
                        $felttext1 = $felttext1 . "k_type,kredit,";
                        $felttext2 = $felttext2 . "'{$k_type}','{$kredit}',";
                    }
                    db_modify("insert into kassekladde (bilag, transdate, beskrivelse,{$felttext1} faktura, amount, kladde_id) values ('{$bilag}', '{$transdate}', '{$beskrivelse}',{$felttext2} '{$fakturanr}','{$amount}', '{$kladde_id}')", __FILE__ . " linje " . __LINE__);
                    if (!in_array('bilag', $feltnavn)) {
                        $bilag++;
                    }
                }
            }
        }
    }
    fclose($fp);
    unlink($filnavn);
    # sletter filen.
    unlink($filnavn . "2");
    # sletter filen.
    transaktion('commit');
    print "<meta http-equiv=\"refresh\" content=\"0;URL=kassekladde.php?kladde_id={$kladde_id}\">";
}

     }
     if ($slutdate < date("Y-m-d")) {
         $lukket = 'on';
     }
     #echo "update ansatte set navn='$navn',nummer='$nummer',initialer='$initialer',konto_id='$konto_id',addr1='$addr1',addr2='$addr2',postnr='$postnr',bynavn='$bynavn',email='$email',tlf='$tlf',fax='$fax',privattlf='$privattlf',mobil='$mobil',cprnr='$cprnr',notes='$notes',afd='$afd',lukket='$lukket',bank='$bank',startdate='$startdate',slutdate='$slutdate',loen='$loen',extraloen='$extraloen',trainee='$trainee' where id='$id'<br>";
     db_modify("update ansatte set navn='{$navn}',nummer='{$nummer}',initialer='{$initialer}',konto_id='{$konto_id}',addr1='{$addr1}',addr2='{$addr2}',postnr='{$postnr}',bynavn='{$bynavn}',email='{$email}',tlf='{$tlf}',fax='{$fax}',privattlf='{$privattlf}',mobil='{$mobil}',cprnr='{$cprnr}',notes='{$notes}',afd='{$afd}',lukket='{$lukket}',bank='{$bank}',startdate='{$startdate}',slutdate='{$slutdate}',loen='{$loen}',extraloen='{$extraloen}',trainee='{$trainee}' where id='{$id}'", __FILE__ . " linje " . __LINE__);
     if ($menu == 'T') {
         header("location:ansatte.php?id={$id}&funktion=ret_ansat");
     }
 }
 for ($x = 1; $x <= $pro_antal; $x++) {
     if ($provision_id[$x]) {
         $provision[$x] = usdecimal($provision[$x]);
         db_modify("update provision set provision='{$provision[$x]}',gruppe_id='{$gruppe_id[$x]}' where id = '{$provision_id[$x]}'", __FILE__ . " linje " . __LINE__);
     } elseif ($provision[$x]) {
         $provision[$x] = usdecimal($provision[$x]);
         if (!($r = db_fetch_array(db_select("select id from provision where gruppe_id = '{$gruppe_id[$x]}' and ansat_id='{$id}'", __FILE__ . " linje " . __LINE__)))) {
             db_modify("insert into provision (provision,gruppe_id,ansat_id) values ('{$provision[$x]}','{$gruppe_id[$x]}','{$id}')", __FILE__ . " linje " . __LINE__);
         }
     }
 }
 $box = if_isset($_POST['box']);
 $extra_id_0 = if_isset($_POST['extra_id_0']);
 $extra_id_1 = if_isset($_POST['extra_id_1']);
 if (count($box) && $id > 0) {
     if (!$extra_id_0) {
         $r = db_fetch_array($q = db_select("select id from grupper where art='ANSAT' and kodenr='{$id}' and (kode='0' or kode = NULL)", __FILE__ . " linje " . __LINE__));
         $extra_id_0 = $r['id'];
     }
     if (!$extra_id_0) {
         db_modify("insert into grupper (beskrivelse,kodenr,kode,art) values ('Ekstra felter på ansatte stamkort','{$id}','0','ANSAT')", __FILE__ . " linje " . __LINE__);

             db_modify("update ordrelinjer set kostpris='{$kostpris[$x]}' where id = '{$linje_id[$x]}'", __FILE__ . " linje " . __LINE__);
         }
     } else {
         $pris[$x] = usdecimal($_POST[$y]);
     }
     if ($incl_moms && !$momsfri[$x] && !$omvbet[$x]) {
         $pris[$x] = afrund($pris[$x] / (100 + $varemomssats[$x]) * 100, 3);
     }
 }
 $y = "raba" . $x;
 $rabat[$x] = usdecimal(if_isset($_POST[$y]));
 if ($x > 0 && !$rabat[$x]) {
     $rabat = 0;
 }
 $y = "proc" . $x;
 $procent[$x] = usdecimal(if_isset($_POST[$y]));
 if ($x > 0 && !$procent[$x]) {
     $procent[$x] = 100;
 }
 $y = "ialt" . $x;
 $ialt[$x] = if_isset($_POST[$y]);
 if ($godkend == "on" && $status == 0) {
     if ($vis_saet) {
         $fakturadato = date("d-m-Y");
     }
     $leveres[$x] = $antal[$x];
     if (isset($linje_id[$x]) && $varenr[$x]) {
         batch($linje_id[$x]);
     }
 }
 if (!$sletslut && $posnr_ny[$x] == '->') {

     $y = "posn" . $x;
     $posnr_ny[$x] = trim($_POST[$y]);
     $y = "vare" . $x;
     $varenr[$x] = trim($_POST[$y]);
     $y = "anta" . $x;
     $antal[$x] = usdecimal($_POST[$y]);
     $y = "leve" . $x;
     $leveres[$x] = trim($_POST[$y]);
     $y = "besk" . $x;
     $beskrivelse[$x] = trim($_POST[$y]);
     $y = "pris" . $x;
     if ($x != 0 || $_POST[$y] || $_POST[$y] == '0') {
         $pris[$x] = usdecimal($_POST[$y]);
     }
     $y = "raba" . $x;
     $rabat[$x] = usdecimal($_POST[$y]);
     if ($x > 0 && !$rabat[$x]) {
         $rabat = 0;
     }
     $y = "ialt" . $x;
     $ialt[$x] = $_POST[$y];
     if ($godkend == "on" && $status == 0) {
         $leveres[$x] = $antal[$x];
     }
 }
 $bogfor = 1;
 if (!$sum) {
     $sum = 0;
 }
 if (!$status) {
     $status = 0;

         if ($r2 = db_fetch_array(db_select("select id from formularer where beskrivelse ='GEBYR' and formular='{$form_nr}' and art=2 and sprog='{$formularsprog}'", __FILE__ . " linje " . __LINE__))) {
             db_modify("update formularer set xb='{$r1['id']}' where id = {$r2['id']}", __FILE__ . " linje " . __LINE__);
         } else {
             db_modify("insert into formularer (beskrivelse, formular, art, xb, sprog) values ('GEBYR', '{$form_nr}', '2', '{$r1['id']}', '{$formularsprog}')", __FILE__ . " linje " . __LINE__);
         }
     } else {
         print "<BODY onLoad=\"javascript:alert('Varenummeret {$gebyr} findes ikke i varelisten')\">";
     }
 } elseif ($submit == 'Opdater' && $form_nr >= 6 && $form_nr <= 8 && $art_nr == 2 && !$gebyr) {
     db_modify("delete from formularer where beskrivelse = 'GEBYR' and formular='{$form_nr}' and sprog='{$formularsprog}'", __FILE__ . " linje " . __LINE__);
 }
 #20140902
 if ($submit == 'Opdater' && $form_nr >= 6 && $form_nr <= 8 && $art_nr == 2 && $rentevnr) {
     #Rykkerrenter
     $tmp = strtoupper($rentevnr);
     $rentesats = usdecimal($rentesats);
     if ($r1 = db_fetch_array(db_select("select id, varenr from varer where upper(varenr) = '{$tmp}'", __FILE__ . " linje " . __LINE__))) {
         $rentevnr = $r['varenr'];
         if ($r2 = db_fetch_array(db_select("select id from formularer where beskrivelse ='GEBYR' and formular='{$form_nr}' and art=2 and sprog='{$formularsprog}'", __FILE__ . " linje " . __LINE__))) {
             db_modify("update formularer set yb='{$r1['id']}', str='{$rentesats}' where id = {$r2['id']}", __FILE__ . " linje " . __LINE__);
         } else {
             db_modify("insert into formularer (beskrivelse, formular, art, yb, str, sprog) values ('GEBYR', '{$form_nr}', '2', '{$r1['id']}', '{$rentesats}', '{$formularsprog}')", __FILE__ . " linje " . __LINE__);
         }
     } else {
         print "<BODY onLoad=\"javascript:alert('Varenummeret {$gebyr} findes ikke i varelisten')\">";
     }
 } elseif ($submit == 'Opdater' && $form_nr == 6 && $art_nr == 2 && !$gebyr) {
     db_modify("delete from formularer where beskrivelse = 'GEBYR' and formular='{$form_nr}' and sprog='{$formularsprog}'", __FILE__ . " linje " . __LINE__);
 }
 #20140902
 if ($_POST['linjer']) {

function overfoer_data($filnavn)
{
    global $charset;
    global $gruppe;
    $betalingsbet = 'Netto';
    $betalingsdage = 8;
    $x = 0;
    $q = db_select("select kontonr from adresser where art = 'D'", __FILE__ . " linje " . __LINE__);
    while ($r = db_fetch_array($q)) {
        $kontonumre[$x] = $r['kontonr'];
        $x++;
    }
    $imp_antal = 0;
    $fp = fopen("{$filnavn}", "r");
    if ($fp) {
        $pre_kontonr = 0;
        transaktion('begin');
        $fp = fopen("{$filnavn}", "r");
        if ($fp) {
            $x = 0;
            $imp_antal = 0;
            while (!feof($fp)) {
                $skriv_linje = 0;
                if ($linje = fgets($fp)) {
                    $x++;
                    $skriv_linje = 1;
                    if ($charset == 'UTF-8') {
                        $linje = utf8_encode($linje);
                    }
                    if ($x) {
                        $pre_kontonr = $kontonr;
                    }
                    if (strpos($linje, chr(9))) {
                        list($kontonr, $ordrenr, $dato, $projekt, $telefon, $firmanavn, $addr1, $addr2, $postnr, $bynavn, $email, $varenr, $varenavn, $antal, $pris) = explode(chr(9), $linje);
                    } elseif (strpos($linje, ';')) {
                        list($kontonr, $ordrenr, $dato, $projekt, $telefon, $firmanavn, $addr1, $addr2, $postnr, $bynavn, $email, $varenr, $varenavn, $antal, $pris) = explode(';', $linje);
                    }
                    if (!is_numeric($kontonr)) {
                        $skriv_linje = 0;
                    }
                    if ($skriv_linje == 1) {
                        if (!in_array($kontonr, $kontonumre)) {
                            db_modify("insert into adresser(kontonr,firmanavn,addr1,addr2,postnr,bynavn,email,tlf,gruppe,art,betalingsbet,betalingsdage) values ('{$kontonr}','" . db_escape_string($firmanavn) . "','" . db_escape_string($addr1) . "','" . db_escape_string($addr2) . "','" . db_escape_string($postnr) . "','" . db_escape_string($bynavn) . "','" . db_escape_string($email) . "','" . db_escape_string($telefon) . "','{$gruppe}','D','{$betalingsbet}','{$betalingsdage}')", __FILE__ . " linje " . __LINE__);
                            $kontonumre[count($kontonumre)] = $kontonr;
                        }
                        if ($pre_kontonr != $kontonr) {
                            $qtxt = "select id from adresser where art='D' and kontonr = '{$kontonr}'";
                            $r = db_fetch_array(db_select("{$qtxt}", __FILE__ . " linje " . __LINE__));
                            $konto_id = $r['id'];
                            $qtxt = "select max(ordrenr) as ordrenr from ordrer where art='DO'";
                            $r = db_fetch_array(db_select("{$qtxt}", __FILE__ . " linje " . __LINE__));
                            $ordrenr = $r['ordrenr'] + 1;
                            $projektnr = 0;
                            if ($projekt) {
                                $qtxt = "select kodenr from grupper where art='PRJ' and beskrivelse = '{$projekt}'";
                                $r = db_fetch_array(db_select("{$qtxt}", __FILE__ . " linje " . __LINE__));
                                $projektnr = $r['kodenr'];
                            }
                            $qtxt = "select box1 from grupper where art='DG' and kodenr = '{$gruppe}'";
                            $r = db_fetch_array(db_select("{$qtxt}", __FILE__ . " linje " . __LINE__));
                            $momsgruppe = str_replace('S', '', $r['box1']);
                            $qtxt = "select box2 from grupper where art='SM' and kodenr = '{$momsgruppe}'";
                            $r = db_fetch_array(db_select("{$qtxt}", __FILE__ . " linje " . __LINE__));
                            $momssats = $r['box2'] * 1;
                            db_modify("insert into ordrer(ordrenr,konto_id,kontonr,firmanavn,addr1,addr2,postnr,bynavn,email,art,projekt,momssats,betalingsbet,betalingsdage,status,ordredate) values ('{$ordrenr}','{$konto_id}','{$kontonr}','" . db_escape_string($firmanavn) . "','" . db_escape_string($addr1) . "','" . db_escape_string($addr2) . "','" . db_escape_string($postnr) . "','" . db_escape_string($bynavn) . "','" . db_escape_string($email) . "','DO','{$projektnr}','{$momssats}','{$betalingsbet}','{$betalingsdage}','0','" . usdate($dato) . "')", __FILE__ . " linje " . __LINE__);
                            $r = db_fetch_array($q = db_select("select max(id) as id from ordrer where kontonr='{$kontonr}'", __FILE__ . " linje " . __LINE__));
                            $ordre_id = $r['id'];
                            $posnr = 0;
                            $imp_antal++;
                        }
                        $posnr++;
                        if ($varenr) {
                            $qtxt = "select id,varenr,salgspris,beskrivelse from varer where varenr = '{$varenr}'";
                        } else {
                            $qtxt = "select id,varenr,salgspris,beskrivelse from varer where beskrivelse = '{$varenavn}'";
                        }
                        $r = db_fetch_array(db_select("{$qtxt}", __FILE__ . " linje " . __LINE__));
                        if ($r['id']) {
                            opret_ordrelinje($ordre_id, $r['id'], $r['varenr'], usdecimal($antal), $varenavn, usdecimal($pris), 0, 100, 'DO', '', $posnr, '0', 'on', '', '', '0');
                        } else {
                            if (!$varenavn) {
                                $varenavn = "ukendt, {$antal} stk á {$pris}";
                            }
                            db_modify("insert into ordrelinjer(ordre_id,posnr,beskrivelse) values ('{$ordre_id}','{$posnr}','" . db_escape_string($varenavn) . "')", __FILE__ . " linje " . __LINE__);
                        }
                    }
                }
            }
        }
        fclose($fp);
        transaktion('commit');
    }
    print "</tbody></table>";
    print "</td></tr>";
    print "<BODY onLoad=\"javascript:alert('{$imp_antal} adresser importeret')\">";
    print "<meta http-equiv=\"refresh\" content=\"0;URL=../debitor/ordreliste.php?valg=tilbud\">";
    exit;
}