function formularprint($id, $formular, $lev_nr, $charset, $udskriv_alle_til)
{
print "<!--function formularprint start-->";
include "../includes/std_func.php";
include "../includes/var2str.php";
global $db;
global $db_id;
global $dkdato;
global $form_id;
global $charset;
global $formularsprog;
global $fp;
global $gebyr;
global $ialt;
# global $id;
global $lev_nr;
global $linjeafstand;
global $logo;
global $logoart;
global $moms;
global $momsgrundlag;
global $momssats;
global $nextside;
global $printerid;
global $ref;
global $side;
global $subtotal;
global $sum;
global $transportsum;
global $y;
global $ya;
global $mailantal;
global $bruger_id;
global $sprog_id;
global $exec_path;
global $vis_saet;
global $brugsamletpris;
$fp1 = NULL;
$kommentarprint = NULL;
$skjul_nul_lin = NULL;
$folgeseddel = 0;
$mailantal = 0;
$nomailantal = 0;
$side_x = 210;
$side_y = 297;
$side_x = afrund($side_x * 2.86, 0);
$side_y = afrund($side_y * 2.86, 0);
$preview = NULL;
$initext = "%!\n%%Creator: Saldi\n%%Pages: 1\n%%BoundingBox: 0 0 {$side_x} {$side_y}\n%%EndComments\n<< /PageSize [{$side_x} {$side_y}] >> setpagedevice\n";
#$initext="%!\n%%Creator: Saldi\n%%Pages: 1\n%%EndComments\n";
$form = array();
$q = db_SELECT("select box2,box14 from grupper where art = 'DIV' and kodenr = '3'", __FILE__ . " linje " . __LINE__);
$r = db_fetch_array($q);
$rabatvare_id = $r['box2'] * 1;
$brugsamletpris = $r['box14'];
if ($vis_saet) {
$brugsamletpris = 'on';
}
if ($id == -1) {
# Saa er der flere fakturaer
$ordre_antal = $_GET['ordre_antal'];
$ordre_id = explode(",", $_GET['skriv']);
if (strpos($formular, ",")) {
list($formular, $folgeseddel) = explode(",", $formular);
}
} elseif (!is_numeric($id)) {
$preview = 1;
$ordre_id[0] = 0;
$ordre_antal = 1;
} else {
$ordre_id[0] = $id;
$ordre_antal = 1;
}
if ($formular == 3) {
$folgeseddel = 1;
}
if ($formular != 3 && $folgeseddel) {
for ($q = 0; $q < $ordre_antal; $q++) {
$form[$q] = $formular;
$r = db_fetch_array(db_select("select lev_addr1,lev_postnr from ordrer where id = {$ordre_id[$q]}", __FILE__ . " linje " . __LINE__));
if ($r['lev_addr1'] && $r['lev_postnr']) {
$form[$q] = 3;
$ordre_antal++;
for ($z = $ordre_antal; $z > $q; $z--) {
$ordre_id[$z] = $ordre_id[$z - 1];
}
$q++;
$form[$q] = $formular;
}
}
}
$r = db_fetch_array(db_select("select box6,box12 from grupper where art = 'POS' and kodenr = '2'", __FILE__ . " linje " . __LINE__));
$vis_saet = trim($r['box12']);
if ($vis_saet) {
$brugsamletpris = 'on';
}
$r = db_fetch_array(db_select("select * from grupper where art='DIV' and kodenr='3'", __FILE__ . " linje " . __LINE__));
$incl_moms = $r['box1'];
if ($folgeseddel) {
$kommentarprint = $r['box3'];
$skjul_nul_lin = $r['box8'];
}
$fsize = filesize("../includes/faktinit.ps");
$initfil = fopen("../includes/faktinit.ps", "r");
$initext = $initext . fread($initfil, $fsize);
fclose($initfil);
if (!file_exists("../temp/{$db}")) {
mkdir("../temp/{$db}", 0775);
}
$mappe = "../temp/{$db}/{$bruger_id}" . "_*";
system("rm -r {$mappe}");
$mappe = "../temp/{$db}/" . abs($bruger_id) . "_" . date("his");
mkdir("{$mappe}", 0775);
if ($ordre_antal > 1) {
$printfilnavn = 'udskrift';
if ($formular <= 1) {
$printfilnavn = "tilbud";
}
if ($formular == 2) {
$printfilnavn = "ordrebek";
}
if ($formular == 3) {
$printfilnavn = "flg_seddel";
}
if ($formular == 4) {
$printfilnavn = "faktura";
}
if ($formular == 9) {
$printfilnavn = "plukliste";
}
if ($formular == 12) {
$printfilnavn = "forslag";
}
if ($formular == 13) {
$printfilnavn = "rekvisition";
}
if ($formular == 14) {
$printfilnavn = "lev_fakt";
}
$fp1 = fopen("{$mappe}/{$printfilnavn}", "w");
}
for ($o = 0; $o < $ordre_antal; $o++) {
$fp = $fp1;
if (isset($form[$o])) {
$formular = $form[$o];
}
$varenr = array();
$lev_varenr = array();
$leveres = array();
$vare_id = array();
$linje_id = array();
$antal = array();
$tidl_lev = array();
$rest = array();
$enhed = array();
$rabat = array();
$momssats = array();
$pris = array();
$l_sum = array();
$linjesum = array();
$sum = '';
$transportsum = 0;
if ($preview) {
$ref = 'Egen ref';
$ordrenr = 'Ordrenummer';
$fakturanr = 'Fakturanummer';
$mail_fakt = '';
$email[0] = 'Kundens email';
$pbs = '';
} else {
$query = db_select("select afd,status,email,ordrenr,fakturanr,mail_fakt,pbs,art,ref,sprog,udskriv_til,mail_subj,mail_text,dokument,procenttillag from ordrer where id = '{$ordre_id[$o]}'", __FILE__ . " linje " . __LINE__);
$row = db_fetch_array($query);
$status = $row['status'];
$afd = $row['afd'];
$art = $row['art'];
$ref = $row['ref'];
$ordrenr = $row['ordrenr'];
if (!$udskriv_alle_til) {
$udskriv_til = $row['udskriv_til'];
} else {
$udskriv_til = $udskriv_alle_til;
}
$fakturanr = $row['fakturanr'];
$mail_fakt = $row['mail_fakt'];
$email[0] = $row['email'];
$pbs = $row['pbs'];
$mail_subj = $row['mail_subj'];
$mail_text = $row['mail_text'];
$mail_bilag = $row['dokument'];
$procenttillag = $row['procenttillag'] * 1;
# $ordresum=$row['sum'];
# $ordremomssum=$row['moms'];
$formularsprog = strtolower($row['sprog']);
if (!$formularsprog) {
$formularsprog = "dansk";
}
if ($formular == 4 || $formular == 5) {
if (!$fakturanr) {
#20130508
return "Fakturering afbrudt (Fakturanr mangler)";
} elseif ($row['status'] < 3) {
#20130508
return "Fakturering afbrudt (Status ikke opdateret)";
} elseif ($row['art'] == "DK") {
$formular = 5;
} else {
$formular = 4;
}
}
$y = 185;
$antal_ordrelinjer = 25;
$x = 0;
$r = db_fetch_array(db_SELECT("select adresser.gruppe,ordrer.procenttillag from ordrer,adresser where ordrer.id = '{$ordre_id[$o]}' and adresser.id=ordrer.konto_id", __FILE__ . " linje " . __LINE__));
$gruppe = $r['gruppe'];
$procenttillag = $r['procenttillag'];
$r = db_fetch_array(db_select("select box8 from grupper where art='DG' and kodenr='{$gruppe}'", __FILE__ . " linje " . __LINE__));
$b2b = $r['box8'];
}
$bgr = "bg";
if ($formular == 5 && file_exists("../logolib/{$db_id}/kreditnota_bg.pdf")) {
$bgr = "kreditnota_bg";
} elseif ($formular >= 3 && file_exists("../logolib/{$db_id}/faktura_bg.pdf")) {
$bgr = "faktura_bg";
} elseif ($formular == 2 && file_exists("../logolib/{$db_id}/ordrer_bg.pdf")) {
$bgr = "ordrer_bg";
} elseif ($formular <= 1 && file_exists("../logolib/{$db_id}/tilbud_bg.pdf")) {
$bgr = "tilbud_bg";
}
#cho "formular: $formular bg: $bgr<br>";
#exit();
print "<!-- kommentar for at skjule uddata til siden \n";
if (!file_exists("../logolib/{$db_id}")) {
mkdir("../logolib/{$db_id}");
}
if (system("which pdftk") && file_exists("../logolib/{$db_id}/{$bgr}.pdf")) {
$logoart = 'PDF';
} elseif ($udskriv_til == 'PDF-tekst') {
$logoart = 'PDF';
} elseif (file_exists("../logolib/{$db_id}/{$formular}.ps")) {
$logo = "../logolib/{$db_id}/{$formular}.ps";
$logoart = 'PS';
} elseif (file_exists("../logolib/{$db_id}/{$bgr}.ps")) {
$logo = "../logolib/{$db_id}/{$bgr}.ps";
$logoart = 'PS';
} else {
$query = db_select("select * from formularer where formular = '{$formular}' and art = '1' and beskrivelse = 'LOGO' and lower(sprog)='{$formularsprog}'", __FILE__ . " linje " . __LINE__);
if ($row = db_fetch_array($query)) {
$logo_X = $row['xa'] * 2.86;
$logo_Y = $row['ya'] * 2.86;
} else {
$logo_X = 430;
$logo_Y = 758;
}
if (file_exists("../logolib/logo_{$db_id}.eps")) {
$logo = "../logolib/logo_{$db_id}.eps";
} else {
$logo = "../logolib/logo.eps";
}
$logoart = 'EPS';
}
print "-->\n";
if ($logoart != 'PDF') {
$fsize = filesize($logo);
$logofil = fopen($logo, "r");
$translate = 0;
$logo = "";
while (!feof($logofil)) {
$linje = fgets($logofil);
if ($logoart == 'EPS') {
if (substr($linje, 0, 2) != "%!") {
if (strstr($linje, "translate") && !$translate) {
$linje = "{$logo_X} {$logo_Y} translate \n";
$translate = 1;
}
$logo = $logo . $linje;
}
} else {
if (strstr($linje, 'showpage')) {
$linje = '';
}
if (strstr($linje, '%%PageTrailer')) {
$linje = '';
}
if (strstr($linje, '%%Trailer')) {
$linje = '';
}
if (strstr($linje, '%%Pages:')) {
$linje = '';
}
if (strstr($linje, '%%EOF')) {
$linje = '';
}
$logo = $logo . $linje;
}
}
fclose($logofil);
}
#cho "select * from formularer where formular = '$formular' and art = '3' and lower(sprog)='$formularsprog'<br>";
$query = db_select("select * from formularer where formular = '{$formular}' and art = '3' and lower(sprog)='{$formularsprog}'", __FILE__ . " linje " . __LINE__);
while ($row = db_fetch_array($query)) {
if ($row['beskrivelse'] == 'generelt') {
$antal_ordrelinjer = $row['xa'];
$ya = $row['ya'];
$linjeafstand = $row['xb'];
# $Opkt=$y-($antal_ordrelinjer*$linjeafstand);
} else {
$x++;
$variabel[$x] = $row['beskrivelse'];
$justering[$x] = $row['justering'];
$xa[$x] = $row['xa'];
$str[$x] = $row['str'];
$laengde[$x] = $row['xb'];
$color[$x] = $row['color'];
$fed[$x] = $row['fed'];
$kursiv[$x] = $row['kursiv'];
$form_font[$x] = $row['font'];
}
$var_antal = $x;
}
if ($formular == 3 && !$lev_nr) {
$r2 = db_fetch_array(db_select("select MAX(lev_nr) as lev_nr from batch_salg where ordre_id = {$ordre_id[$o]}", __FILE__ . " linje " . __LINE__));
$lev_nr = $r2['lev_nr'] * 1;
}
if ($formular == 3 || $formular == 9) {
$udskriv_til = 'PDF';
}
if ($mail_fakt && $formular != 3 && $udskriv_til != 'PDF') {
$mailantal++;
if ($formular <= 1) {
$pfnavn = "tilbud" . $ordrenr;
}
if ($formular == 2) {
$pfnavn = "ordrebek" . $ordrenr;
}
if ($formular == 4) {
$pfnavn = "fakt" . $fakturanr;
}
if ($formular == 5) {
$pfnavn = "kn" . $fakturanr;
}
if ($formular == 9) {
$pfnavn = "plukliste" . $ordrenr;
}
if ($formular == 12) {
$printfilnavn = "forslag" . $ordrenr;
}
if ($formular == 13) {
$printfilnavn = "rekvisition.{$ordrenr}";
}
if ($formular == 14) {
$printfilnavn = "lev_fakt.{$ordrenr}";
}
$email[$mailantal] = $email[0];
$mailsprog[$mailantal] = $formularsprog;
$form_nr[$mailantal] = $formular;
$pfliste[$mailantal] = $pfnavn;
$pfnavn = $mappe . "/" . $pfnavn;
$fp2 = fopen("{$pfnavn}", "w");
$fp = $fp2;
} else {
$nomailantal++;
if ($ordre_antal <= 1) {
#mere sige navn til udskrifter.
if ($formular <= 1) {
$printfilnavn = "tilbud" . $ordrenr;
}
if ($formular == 2) {
$printfilnavn = "ordrebek" . $ordrenr;
}
if ($formular == 3) {
$printfilnavn = "flgs" . $ordrenr . "_" . $lev_nr;
}
if ($formular == 4) {
$printfilnavn = "fakt" . $fakturanr;
}
if ($formular == 5) {
$printfilnavn = "kn" . $fakturanr;
}
if ($formular == 9) {
$printfilnavn = "plukliste" . $ordrenr;
}
if ($formular == 12) {
$printfilnavn = "forslag" . $ordrenr;
}
if ($formular == 13) {
$printfilnavn = "rekvisition.{$ordrenr}";
}
if ($formular == 14) {
$printfilnavn = "lev_fakt.{$ordrenr}";
}
$pfnavn = $mappe . "/" . $printfilnavn;
$fp = fopen("{$pfnavn}", "w");
}
}
$side = 1;
if ($logoart == 'PS') {
fwrite($fp, $logo);
}
fwrite($fp, $initext);
$rabat[0] = formulartekst($ordre_id[$o], $formular, $formularsprog);
if ($ordre_id[$o]) {
$id = $ordre_id[$o];
$x = 0;
$sum = 0;
$moms = 0;
$momssum = 0;
$tmp = 0;
$saetnr = 0;
#cho "$formular<br>";
#xit;
if ($preview) {
for ($x = 1; $x <= 22; $x++) {
$posnr[$x] = $x;
$varenr[$x] = utf8_iso8859('Varenr') . $x;
$projekt[$x] = utf8_iso8859('Projektnr');
$beskrivelse[$x] = utf8_iso8859('Eksempel på en linjetekst');
}
} else {
if ($brugsamletpris) {
$r = db_fetch_array(db_select("select varenr from ordrelinjer where ordre_id = {$ordre_id[$o]} and vare_id='{$rabatvare_id}'", __FILE__ . " linje " . __LINE__));
if ($r['varenr']) {
$rabatvarenr = $r['varenr'];
$rvnr = 1;
} else {
$rvnr = 0;
}
}
# if ($rvnr) $qtxt="select * from ordrelinjer where ordre_id = '$ordre_id[$o]' order by saet,posnr";
# else
#20150302
if ($brugsamletpris && $formular == 3) {
$qtxt = "select * from ordrelinjer where ordre_id = '{$ordre_id[$o]}' and samlevare != 'on' and varenr != '{$rabatvarenr}' order by posnr";
} else {
$qtxt = "select * from ordrelinjer where ordre_id = '{$ordre_id[$o]}' order by posnr";
}
$q = db_select($qtxt, __FILE__ . " linje " . __LINE__);
while ($row = db_fetch_array($q)) {
if ($row['posnr'] > 0 && (!$row['samlevare'] || !is_numeric($row['samlevare'])) && (!in_array($row['posnr'], $posnr) || $formular != 3)) {
# if ($x>=1 && $row['saet'] && !$saet[$x]) {
# $x++;
# $beskrivelse[$x]=" ";
# $saet[$x]=0;
# $samlevare[$x]=0;
# } elseif ($x>=1 && $saet[$x] && $samlevare[$x]) {
# $x--;
# }
$x++;
$posnr[$x] = trim($row['posnr']);
$varenr[$x] = trim($row['varenr']);
$lev_varenr[$x] = trim($row['lev_varenr']);
$projekt[$x] = $row['projekt'];
$beskrivelse[$x] = stripslashes(trim($row['beskrivelse']));
if ($varenr[$x]) {
$vare_id[$x] = $row['vare_id'];
$linje_id[$x] = $row['id'];
$antal[$x] = $row['antal'] * 1;
$leveres[$x] = $row['leveres'] * 1;
$dkantal[$x] = str_replace(".", ",", $antal[$x]);
$momsfri[$x] = $row['momsfri'];
$omvbet[$x] = $row['omvbet'];
$saet[$x] = $row['saet'];
$samlevare[$x] = $row['samlevare'];
#cho "$posnr[$x] $saet[$x] $samlevare[$x]<br>";
$varemomssats[$x] = $row['momssats'] * 1;
if (!$momsfri[$x] && !$varemomssats[$x]) {
$varemomssats[$x] = $momssats;
}
if ($varemomssats[$x] > $momssats) {
$varemomssats[$x] = $momssats;
}
list($a, $b) = explode(",", $dkantal[$x]);
if ($b) {
$dkantal[$x] = "{$a},{$b}";
} else {
$dkantal[$x] = $a;
}
if ($formular == 5) {
$antal[$x] = $antal[$x] * -1;
$dkantal[$x] = str_replace("-", "", $dkantal[$x]);
}
if ($formular == 3 || $formular == 9) {
if (in_array('lokation', $variabel)) {
$r2 = db_fetch_array(db_select("select location from varer where id='{$vare_id[$x]}'", __FILE__ . " linje " . __LINE__));
if ($r2['location']) {
if ($afd && strstr($r2['location'], "|")) {
# 20150417 Ændret strpos til strstr
$lokation = array();
$lokation = explode("|", $r2['location']);
$beskrivelse[$x] .= chr(9) . $lokation[$afd - 1];
} else {
$beskrivelse[$x] .= chr(9) . $r2['location'];
}
}
}
$lev_nr *= 1;
$lev_antal[$x] = 0;
$q2 = db_select("select antal from batch_salg where linje_id = {$linje_id[$x]} and lev_nr = {$lev_nr}", __FILE__ . " linje " . __LINE__);
while ($r2 = db_fetch_array($q2)) {
$lev_antal[$x] = $lev_antal[$x] + $r2['antal'];
}
$tidl_lev[$x] = 0;
$q2 = db_select("select antal from batch_salg where linje_id = {$linje_id[$x]} and lev_nr < {$lev_nr}", __FILE__ . " linje " . __LINE__);
while ($r2 = db_fetch_array($q2)) {
$tidl_lev[$x] = $tidl_lev[$x] + $r2['antal'];
}
$rest[$x] = $antal[$x] - $lev_antal[$x] - $tidl_lev[$x];
}
$enhed[$x] = $row['enhed'];
$pris[$x] = $row['pris'];
# if ($rvnr) {
# if ($varenr[$x]=='R') list($pris[$x])=explode("|",$row['lev_varenr']);
# $rabat[$x]=0;
# } else {
$rabat[$x] = $row['rabat'];
# }
$procent[$x] = $row['procent'];
$row['rabat'] != 0 ? $m_rabat[$x] = 0 : ($m_rabat[$x] = $row['m_rabat'] * 1);
$rabatart[$x] = $row['rabatart'];
if ($rabatart[$x] == "amount") {
$l_sum[$x] = afrund(($pris[$x] - $rabat[$x]) * $antal[$x], 2);
$linjesum[$x] = ($pris[$x] - $rabat[$x]) * $antal[$x];
$linjemoms[$x] = $varemomssats[$x] / 100 * (($pris[$x] - $rabat[$x]) * $antal[$x]);
} else {
$l_sum[$x] = afrund($row['pris'] * $antal[$x] - $pris[$x] * $antal[$x] * $rabat[$x] / 100, 2);
#Afrunding tilfoejet 2009.01.26 grundet diff i ordre 98 i saldi_104
$linjesum[$x] = $row['pris'] * $antal[$x] - $pris[$x] * $antal[$x] * $rabat[$x] / 100;
$linjemoms[$x] = $varemomssats[$x] / 100 * ($pris[$x] * $antal[$x] - $row['pris'] * $antal[$x] * $rabat[$x] / 100);
}
if ($momsfri[$x] == 'on' || $omvbet[$x]) {
$linjemoms[$x] = 0;
}
if ($procent[$x] || $procent[$x] == '0') {
$l_sum[$x] = afrund($l_sum[$x] - $l_sum[$x] * (100 - $procent[$x]) / 100, 2);
$linjesum[$x] = afrund($linjesum[$x] - $linjesum[$x] * (100 - $procent[$x]) / 100, 2);
$linjemoms[$x] = afrund($linjemoms[$x] - $linjemoms[$x] * (100 - $procent[$x]) / 100, 2);
}
$sum += $linjesum[$x];
if ($momsfri[$x] != 'on' && !$omvbet[$x]) {
$moms += afrund($l_sum[$x] * $varemomssats[$x] / 100, 3);
#Decimaltal aendret til 3 2010.12.17 grundet momsdiff (0,01 kr) i ordre id 371 i saldi_297
$momssum += afrund($linjesum[$x], 2);
#Afrunding tilfoejet 2009.01.26 grundet diff i ordre 98 i saldi_104
if ($incl_moms && !$b2b) {
$tmp = afrund($pris[$x] + $pris[$x] * $varemomssats[$x] / 100, 2);
if ($rabatart[$x] == "amount") {
$linjesum[$x] = ($tmp - $rabat[$x]) * $antal[$x];
} else {
$linjesum[$x] = $tmp * $antal[$x] - $tmp * $antal[$x] * $rabat[$x] / 100;
}
$pris[$x] = $tmp;
}
}
if ($rvnr) {
if ($varenr[$x] == $rabatvarenr) {
list($pris[$x]) = explode("|", $row['lev_varenr']);
}
$rabat[$x] = 0;
$linjesum[$x] = ($pris[$x] - $rabat[$x]) * $antal[$x];
}
} else {
$dkantal[$x] = NULL;
$varemomssats[$x] = NULL;
}
$beskrivelse[$x] = var2str($beskrivelse[$x], $ordre_id[$o], $posnr[$x], $varenr[$x], $dkantal[$x], $enhed[$x], $pris[$x], $procent[$x], $serienr[$x], $varemomssats[$x], $rabat[$x]);
if ($formular == 3 && $skjul_nul_lin && !$lev_antal[$x]) {
$varenr[$x] = NULL;
}
#
} else {
$dkantal[$x] = NULL;
}
if ($saet[$x]) {
if ($lev_varenr[$x]) {
list($linjesum[$x]) = explode("|", $lev_varenr[$x], 2);
$dkantal[$x] = '';
} else {
$linjesum[$x] = '';
}
$pris[$x] = '';
/*
if ($saetnr && $saetnr!=$saet[$x]) {
$r=db_fetch_array(db_select("select beskrivelse from varer where id = '$svid'",__FILE__ . " linje " . __LINE__));
$beskrivelse[$x]=$r['beskrivelse'];
$linjesum[$x]=$saetpris;
$saet[$x]=0;
$saetpris=0;
$saetpris=afrund($linjesum[$x-1],2);
} else $saetpris+=afrund($linjesum[$x],2);
$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];
}
$linjemoms[$x] = $linjesum[$x] / 100 * $momssats;
$sum += $sum * $procenttillag / 100;
$moms += $linjemoms[$x];
$pris[$x] = $linjesum[$x];
}
}
$y = $ya;
$y_tjek = $y;
$Opkt = $y - $antal_ordrelinjer * $linjeafstand;
for ($x = 1; $x <= $linjeantal; $x++) {
$beskrivelse[$x] = str_replace('$procenttillæg;', dkdecimal($procenttillag), $beskrivelse[$x]);
$beskrivelse[$x] = str_replace('$procenttillæg', dkdecimal($procenttillag), $beskrivelse[$x]);
$beskrivelse[$x] = str_replace('$antal;', $dkantal[$x], $beskrivelse[$x]);
$beskrivelse[$x] = str_replace('$pris;', $pris[$x], $beskrivelse[$x]);
$beskrivelse[$x] = str_replace('$linjesum;', $linjesum[$x], $beskrivelse[$x]);
$beskrivelse[$x] = str_replace('$varenr;', $varenr[$x], $beskrivelse[$x]);
$beskrivelse[$x] = str_replace('$rabat;', $rabat[$x], $beskrivelse[$x]);
$beskrivelse[$x] = str_replace('$procent;', $procent[$x], $beskrivelse[$x]);
$beskrivelse[$x] = str_replace('$antal', $dkantal[$x], $beskrivelse[$x]);
$beskrivelse[$x] = str_replace('$pris', $pris[$x], $beskrivelse[$x]);
$beskrivelse[$x] = str_replace('$linjesum', $linjesum[$x], $beskrivelse[$x]);
$beskrivelse[$x] = str_replace('$varenr', $varenr[$x], $beskrivelse[$x]);
$beskrivelse[$x] = str_replace('$rabat', $rabat[$x], $beskrivelse[$x]);
$beskrivelse[$x] = str_replace('$procent', $procent[$x], $beskrivelse[$x]);
if ($charset == "utf-8") {
$varenr[$x] = utf8_iso8859($varenr[$x]);
$lev_varenr[$x] = utf8_iso8859($lev_varenr[$x]);
$beskrivelse[$x] = utf8_iso8859($beskrivelse[$x]);
}
/*
if ($saet[$x]) {
$linjesum[$x]='';
$linjemoms[$x]='';
$pris[$x]='';
$rabat[$x]='';
$procent[$x]='';
} else {
*/
$linjesum[$x] = dkdecimal($linjesum[$x]);
$linjemoms[$x] = dkdecimal($linjemoms[$x]);
$pris[$x] = dkdecimal($pris[$x]);
$rabat[$x] = dkdecimal($rabat[$x]);
$procent[$x] = dkdecimal($procent[$x]);
# }
$transportsum = $transportsum + $l_sum[$x - 1];
$skriv = 0;
if ($kommentarprint == 'on' || $formular != 3 || $varenr[$x]) {
$skriv = 1;
}
#Fordi tekst uden varenr ikke skal med paa foelgesedlen med mindre det er angivet i "formularprint";
# if ($saet[$x] && $samlevare[$x]) $skriv=0; #Fordi tekst uden varenr ikke skal med paa foelgesedlen med mindre det er angivet i "formularprint";
if ($skriv) {
for ($z = 1; $z <= $var_antal; $z++) {
if (substr($variabel[$z], 0, 8) == "fritekst") {
$tmp = substr($variabel[$z], 9);
$svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$tmp}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
}
if ($y_tjek != $y) {
#Det først skrevne felt på en linje bliver "ædt" ved sideskift. Derfor dette dummy felt.
$svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
$y_tjek = $y;
}
if ($variabel[$z] == "posnr") {
$svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$posnr[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
} elseif ($variabel[$z] == "varenr") {
$svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$varenr[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
} elseif ($variabel[$z] == "lev_varenr") {
$svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$lev_varenr[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
} elseif ($variabel[$z] == "leveres") {
$svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$leveres[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
} elseif ($variabel[$z] == "projekt") {
$svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$projekt[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
} elseif ($variabel[$z] == "antal") {
$svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$dkantal[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
} elseif ($variabel[$z] == "lev_antal") {
$svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$lev_antal[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
} elseif ($variabel[$z] == "tidl_lev") {
$svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$tidl_lev[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
} elseif ($variabel[$z] == "lev_rest") {
$svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$rest[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
} elseif ($variabel[$z] == "pris") {
$svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$pris[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
} elseif ($variabel[$z] == "enhed") {
$svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$enhed[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
} elseif ($variabel[$z] == "momssats") {
$svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$varemomssats[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
} elseif ($variabel[$z] == "rabat") {
$svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$rabat[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
} elseif ($variabel[$z] == "procent") {
$svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$procent[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
} elseif ($variabel[$z] == "linjemoms") {
$svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$linjemoms[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
} elseif ($variabel[$z] == "varemomssats") {
$svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$varemomssats[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
} elseif ($variabel[$z] == "linjesum") {
$svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$linjesum[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
} elseif ($variabel[$z] != "beskrivelse" && $variabel[$z] != "lokation") {
$svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$variabel[$z]}", "fritekst_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
} elseif ($variabel[$z] == "beskrivelse") {
$skriv_beskriv[$x] = $z;
}
}
if ($z = $skriv_beskriv[$x]) {
$y2 = ombryd("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$beskrivelse[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", $laengde[$z], $formular, $linjeafstand);
}
$y = $y2;
if ($y == 0) {
$y = $ya;
}
$y = $y - $linjeafstand;
}
}
if ($brugsamletpris) {
$r = db_fetch_array(db_select("select sum,moms from ordrer where id = '{$id}'"));
$sum = $r['sum'];
$moms = $r['moms'];
}
$momssum = afrund($momssum, 2);
$sum = afrund($sum, 2);
$ialt = dkdecimal($sum + $moms);
$momsgrundlag = dkdecimal($momssum);
$moms = dkdecimal($moms);
$sum = dkdecimal($sum);
}
if ($id) {
find_form_tekst($id, 'S', $formular, 0, $linjeafstand, "");
}
# Sum paa sidste side.
if ($ordre_id[$o]) {
bundtekst($ordre_id[$o]);
}
# Uden denne skrives kun side 1
if ($mail_fakt) {
fclose($fp2);
}
#cho "$o A $ordre_id[$o] $mappe/$pfliste[$o]<br>";
}
fclose($fp);
#cho "$mailantal -> $nomailantal<br>";
#xit;
if ($mailantal > 0) {
ini_set("include_path", ".:../phpmailer");
require "class.phpmailer.php";
if (!isset($exec_path)) {
$exec_path = "/usr/bin";
}
for ($x = 1; $x <= $mailantal; $x++) {
#cho "$x B $ordre_id[$x] $mappe/$pfliste[$x]<br>";
print "<!-- kommentar for at skjule uddata til siden \n";
system("{$exec_path}/ps2pdf {$mappe}/{$pfliste[$x]} {$mappe}/{$pfliste[$x]}.pdf");
print "--> \n";
if ($logoart == 'PDF') {
print "<!-- kommentar for at skjule uddata til siden \n";
$out = $mappe . "/" . $pfliste[$x] . "x.pdf";
system("{$exec_path}/pdftk {$mappe}/{$pfliste[$x]}.pdf background ../logolib/{$db_id}/{$bgr}.pdf output {$out}");
# unlink ("$mappe/$pfliste[$x].pdf");
system("mv {$out} {$mappe}/{$pfliste[$x]}.pdf");
print "--> \n";
}
$o = $x - 1;
$svar = send_mails("{$ordre_id[$o]}", "{$mappe}/{$pfliste[$x]}.pdf", $email[$x], $mailsprog[$x], $form_nr[$x], "{$mail_subj}", "{$mail_text}", "{$mail_bilag}", $x);
# return($svar);
}
}
#if ($mailantal>0) include("mail_faktura.php");
if ($nomailantal > 0) {
print "<meta http-equiv=\"refresh\" content=\"0;URL=../includes/udskriv.php?ps_fil={$mappe}/{$printfilnavn}&id={$id}&udskriv_til={$udskriv_til}&art={$art}&bgr={$bgr}\">";
} elseif ($popup) {
print "<meta http-equiv=\"refresh\" content=\"0;URL=../includes/luk.php\">";
}
#else print "<meta http-equiv=\"refresh\" content=\"0;URL=ordre.php?id=$id\">";
return 'OK';
print "<!--function formularprint s**t-->";
}
$gl_dato = NULL;
$ny_dato = NULL;
$gl_genfakt = NULL;
$ny_genfakt = NULL;
$returside = if_isset($_GET['returside']);
if ($popup) {
$returside = "../includes/luk.php";
} elseif (!$returside) {
$returside = "ordreliste.php";
}
$r = db_fetch_array(db_select("select box1, box2, box3, box4 from grupper where art='RA' and kodenr='{$regnaar}'", __FILE__ . " linje " . __LINE__));
$year = trim($r['box2']);
$aarstart = str_replace(" ", "", $year . $r['box1']);
$year = trim($r['box4']);
$aarslut = str_replace(" ", "", $year . $r['box3']);
$r = db_fetch_array(db_SELECT("select box12,box13 from grupper where art = 'DIV' and kodenr = '3'", __FILE__ . " linje " . __LINE__));
$procentfakt = $r['box12'];
list($default_procenttillag, $procentvare) = explode(chr(9), $r['box13']);
if ($procentvare) {
$r = db_fetch_array(db_select("select beskrivelse from varer where varenr = '{$procentvare}'", __FILE__ . " linje " . __LINE__));
$tillag = $sum * $procenttillag / 100;
$procentbeskr = var2str($r['beskrivelse'], $id);
# $procentbeskr=str_replace('$procenttillæg;',$procenttillag,$procentbeskr);
}
print "<table name=\"tabel_1\" width=\"100%\" cellspacing=\"2\" border=\"0\"><tbody>\n";
#tabel 1 ->
print "<tr><td width=\"100%\"><table name=\"tabel_1.1\" width=\"100%\" cellspacing=\"2\" border=\"0\"><tbody>\n";
# tabel 1.1 ->
print "<td width=10% {$top_bund}><a href={$returside} accesskey=L>Luk</a></td>\n";
print "<td width=80% {$top_bund}>{$title}</td>\n";
print "<td width=10% {$top_bund}><br></td>\n";
function gendan_saet($id)
{
$r = db_fetch_array(db_SELECT("select box2 from grupper where art = 'DIV' and kodenr = '3'", __FILE__ . " linje " . __LINE__));
$rabatvare_id = $r['box2'] * 1;
if ($r = db_fetch_array(db_select("select id from ordrelinjer where vare_id = '{$rabatvare_id}' and ordre_id = {$id}", __FILE__ . " linje " . __LINE__))) {
db_modify("update ordrelinjer set rabat = '0' where ordre_id = '{$id}'", __FILE__ . " linje " . __LINE__);
db_modify("delete from ordrelinjer where id='{$r['id']}'", __FILE__ . " linje " . __LINE__);
$q = db_select("select id,lev_varenr from ordrelinjer where ordre_id = '{$id}' and saet > '0' order by saet,samlevare desc", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
if ($r['lev_varenr']) {
list($saetsum, $rabat) = explode("|", $r['lev_varenr']);
}
if ($rabat *= 1) {
db_modify("update ordrelinjer set rabat = '{$rabat}' where id = '{$r['id']}'", __FILE__ . " linje " . __LINE__);
}
}
}
}
$id = if_isset($_GET['ordre_id']);
}
$sort = if_isset($_GET['sort']);
$fokus = if_isset($_GET['fokus']);
$submit = if_isset($_GET['funktion']);
$vis_kost = if_isset($_GET['vis_kost']);
if ($sort && $fokus && $submit == 'vareOpslag') {
# sidehoved($id,"ordre.php","","","Vareopslag");
vareopslag($art, $sort, $fokus, $id, $vis_kost, $ref, 0);
} elseif ($sort && $fokus && $submit == 'kontoOpslag') {
sidehoved($id, "ordre.php", "", "", "Kontoopslag");
kontoopslag($art, $sort, $fokus, $id, $vis_kost, $ref, 0);
}
$bogfor = 1;
if ($id) {
$r = db_fetch_array(db_SELECT("select adresser.gruppe,ordrer.status,ordrer.sprog from ordrer,adresser where ordrer.id = '{$id}' and adresser.id=ordrer.konto_id", __FILE__ . " linje " . __LINE__));
$status = $r['status'] * 1;
$gruppe = $r['gruppe'];
$formularsprog = $r['sprog'];
#20140428
}
if (db_fetch_array(db_select("select id from grupper where art='DG' and kodenr='{$gruppe}' and box8='on'", __FILE__ . " linje " . __LINE__))) {
$incl_moms = NULL;
#hvis box8 er 'on' er det en b2b kunde og priser vises ex. moms
}
if (isset($_GET['vis_lev_addr']) && $id) {
if ($_GET['vis_lev_addr']) {
db_modify("update ordrer set vis_lev_addr='on' where id='{$id}'");
} else {
db_modify("update ordrer set vis_lev_addr='' where id='{$id}'");
}
$id = if_isset($_GET['id']);
$saet = if_isset($_GET['saet']);
$forfra = if_isset($_GET['forfra']);
$r = db_fetch_array(db_select("select art,momssats from ordrer where id='{$id}'", __FILE__ . " linje " . __LINE__));
$art = $r['art'];
$momssats = $r['momssats'];
$r = db_fetch_array(db_SELECT("select box1 from grupper where art = 'DIV' and kodenr = '3'", __FILE__ . " linje " . __LINE__));
$incl_moms = $r['box1'];
if ($r = db_fetch_array($q = db_SELECT("select box8 from grupper where art = 'DIV' and kodenr = '5' and box8!=''", __FILE__ . " linje " . __LINE__))) {
$svid = $r['box8'] * 1;
$r = db_fetch_array(db_SELECT("select varenr from varer where id = '{$svid}'", __FILE__ . " linje " . __LINE__));
$svnr = $r['varenr'];
} else {
$svnr = 'S';
}
$r = db_fetch_array(db_SELECT("select id from varer where varenr = '{$svnr}'", __FILE__ . " linje " . __LINE__));
if (!$r['id']) {
print "<BODY onLoad=\"JavaScript:alert('Varenummer {$svnr} for sæt ikke gyldigt')\">";
}
if ($id && $forfra && $saet) {
db_modify("delete from ordrelinjer where ordre_id='{$id}' and saet='{$saet}' and varenr='{$svnr}'", __FILE__ . " linje " . __LINE__);
db_modify("update ordrelinjer set saet='0',rabat='0' where ordre_id='{$id}' and saet='{$saet}'", __FILE__ . " linje " . __LINE__);
} elseif ($slet = $_POST['slet']) {
db_modify("delete from ordrelinjer where ordre_id='{$id}' and saet='{$saet}'", __FILE__ . " linje " . __LINE__);
db_modify("update ordrelinjer set saet=saet-1 where ordre_id='{$id}' and saet > {$saet}", __FILE__ . " linje " . __LINE__);
}
print "<table width=\"100%\" height=\"100%\" border=\"0\" cellspacing=\"1\" cellpadding=\"1\"><tbody>";
if ($saet = $_POST['saetvalg']) {
if ($saet == 'nyt_saet') {
$r = db_fetch_array(db_select("select max(saet) as saet from ordrelinjer where ordre_id='{$id}'", __FILE__ . " linje " . __LINE__));
$saet = $r['saet'] + 1;
function ordreside($id)
{
global $art;
global $bogfor;
global $fokus;
global $submit;
global $brugernavn;
global $returside;
$r = db_fetch_array(db_SELECT("select box4 from grupper where art = 'DIV' and kodenr = '3'", __FILE__ . " linje " . __LINE__));
$hurtigfakt = $r['box4'];
if (!$id) {
$fokus = 'kontonr';
}
print "<form name=ordre action=ordre.php method=post>";
if ($id) {
$query = db_select("select * from ordrer where id = '{$id}'", __FILE__ . " linje " . __LINE__);
$row = db_fetch_array($query);
$kontonr = stripslashes($row['kontonr']);
$konto_id = $row[konto_id];
$firmanavn = stripslashes($row['firmanavn']);
$addr1 = stripslashes($row['addr1']);
$addr2 = stripslashes($row['addr2']);
$postnr = stripslashes($row['postnr']);
$bynavn = stripslashes($row['bynavn']);
$land = stripslashes($row['land']);
$kontakt = stripslashes($row['kontakt']);
$kundeordnr = stripslashes($row['kundeordnr']);
$lev_navn = stripslashes($row['lev_navn']);
$lev_addr1 = stripslashes($row['lev_addr1']);
$lev_addr2 = stripslashes($row['lev_addr2']);
$lev_postnr = stripslashes($row['lev_postnr']);
$lev_bynavn = stripslashes($row['lev_bynavn']);
$lev_kontakt = stripslashes($row['lev_kontakt']);
$cvrnr = stripslashes($row['cvrnr']);
$ean = stripslashes($row['ean']);
$institution = stripslashes($row['institution']);
$betalingsbet = $row['betalingsbet'];
$betalingsdage = $row['betalingsdage'];
$valuta = $row['valuta'];
$projekt[0] = $row['projekt'];
$valutakurs = $row['valutakurs'];
$modtagelse = $row['modtagelse'];
$ref = trim(stripslashes($row['ref']));
$fakturanr = stripslashes($row['fakturanr']);
$lev_adr = stripslashes($row['lev_adr']);
$ordrenr = $row['ordrenr'];
$kred_ord_id = $row['kred_ord_id'];
if ($row['ordredate']) {
$ordredato = dkdato($row['ordredate']);
} else {
$ordredato = date("d-m-y");
}
if ($row['levdate']) {
$levdato = dkdato($row['levdate']);
}
$momssats = $row['momssats'];
$status = $row['status'];
if (!$status) {
$status = 0;
}
$art = $row['art'];
$omlev = $row['omvbet'];
if (!$valuta) {
$valuta = 'DKK';
$valutakurs = 100;
}
$x = 0;
$query = db_select("select id, ordrenr from ordrer where kred_ord_id = '{$id}' and art ='KK'", __FILE__ . " linje " . __LINE__);
while ($row2 = db_fetch_array($query)) {
$x++;
if ($x > 1) {
$krediteret = $krediteret . ", ";
}
$krediteret = $krediteret . "<a href=ordre.php?id={$row2['id']}>{$row2['ordrenr']}</a>";
}
if ($status < 3) {
$fokus = 'vare0';
} else {
$fokus = '';
}
}
if (strstr($submit, 'Kred') || $art == 'KK') {
$query = db_select("select ordrenr from ordrer where id = '{$kred_ord_id}'", __FILE__ . " linje " . __LINE__);
$row2 = db_fetch_array($query);
sidehoved($id, "{$returside}", "", "", "Leverandør kreditnota {$ordrenr} (kreditering af ordre nr: <a href=ordre.php?id={$kred_ord_id}>{$row2['ordrenr']}</a>)");
} elseif ($krediteret) {
sidehoved($id, "{$returside}", "", "", "Leverandørordre {$ordrenr} (krediteret på KN nr: {$krediteret})");
} else {
sidehoved($id, "{$returside}", "", "", "Leverandørordre {$ordrenr}");
}
if (!$status) {
$status = 0;
}
print "<input type=hidden name=ordrenr value={$ordrenr}>";
print "<input type=hidden name=status value={$status}>";
print "<input type=hidden name=id value={$id}>";
print "<input type=hidden name=art value={$art}>";
# print "<input type=hidden name=momssats value=$momssats>";
print "<input type=hidden name=konto_id value={$konto_id}>";
print "<input type=hidden name=kred_ord_id value={$kred_ord_id}>";
if ($status >= 3) {
# print "<input type=hidden name=id value=$id>";
print "<input type=hidden name=konto_id value={$konto_id}>";
print "<input type=hidden name=kontonr value=\"{$kontonr}\">";
print "<input type=hidden name=firmanavn value=\"{$firmanavn}\">";
print "<input type=hidden name=addr1 value=\"{$addr1}\">";
print "<input type=hidden name=addr2 value=\"{$addr2}\">";
print "<input type=hidden name=postnr value=\"{$postnr}\">";
print "<input type=hidden name=bynavn value=\"{$bynavn}\">";
print "<input type=hidden name=land value=\"{$land}\">";
print "<input type=hidden name=kontakt value=\"{$kontakt}\">";
print "<input type=hidden name=lev_navn value=\"{$lev_navn}\">";
print "<input type=hidden name=lev_addr1 value=\"{$lev_addr1}\">";
print "<input type=hidden name=lev_addr2 value=\"{$lev_addr2}\">";
print "<input type=hidden name=lev_postnr value=\"{$lev_postnr}\">";
print "<input type=hidden name=lev_bynavn value=\"{$lev_bynavn}\">";
print "<input type=hidden name=lev_kontakt value=\"{$lev_kontakt}\">";
print "<input type=hidden name=levdato value=\"{$levdato}\">";
print "<input type=hidden name=cvrnr value=\"{$cvrnr}\">";
print "<input type=hidden name=betalingsbet value=\"{$betalingsbet}\">";
print "<input type=hidden name=betalingsdage value=\"{$betalingsdage}\">";
print "<input type=hidden name=momssats value=\"{$momssats}\">";
print "<input type=hidden name=ref value=\"{$ref}\">";
print "<input type=hidden name=fakturanr value=\"{$fakturanr}\">";
print "<input type=hidden name=modtagelse value=\"{$modtagelse}\">";
print "<input type=hidden name=lev_adr value=\"{$lev_adr}\">";
print "<input type=hidden name=valuta value=\"{$valuta}\">";
print "<table cellpadding=\"1\" cellspacing=\"5\" border=\"1\" valign = \"top\"><tbody>";
$ordre_id = $id;
print "<tr><td width=33%><table cellpadding=0 cellspacing=0 border=0 width=100%>";
print "<tr><td width=100><b>Kontonr</td><td width=100>{$kontonr}</td></tr>\n";
print "<tr><td><b>Firmanavn</td><td>{$firmanavn}</td></tr>\n";
print "<tr><td><b>Adresse</td><td>{$addr1}</td></tr>\n";
print "<tr><td></td><td>{$addr2}</td></tr>\n";
print "<tr><td><b>Postnr, by</td><td>{$postnr} {$bynavn}</td></tr>\n";
print "<tr><td><b>Land</td><td>{$land}</td></tr>\n";
print "<tr><td><b>Att.:</td><td>{$kontakt}</td></tr>\n";
print "</tbody></table></td>";
print "<td width=33%><table cellpadding=0 cellspacing=0 border=0 width=100%>";
print "<tr><td width=100><b>Ordredato</td><td width=100>{$ordredato}</td></tr>\n";
print "<tr><td><b>Lev. dato</td><td>{$levdato}</td></tr>\n";
print "<tr><td><b>CVR-nr.</td><td>{$cvrnr}</td></tr>\n";
print "<tr><td><b>Betaling</td><td>{$betalingsbet} + {$betalingsdage}</td>";
print "<tr><td><b>Vor ref.</td><td>{$ref}</td></tr>\n";
print "<tr><td><b>Fakturanr</td><td>{$fakturanr}</td></tr>\n";
print "<tr><td><b>Modtagelse</td><td>{$modtagelse}</td></tr>\n";
$tmp = dkdecimal($valutakurs);
if ($valuta) {
print "<tr><td><b>Valuta / Kurs</td><td>{$valuta} / {$tmp}</td></tr>\n";
}
if ($projekt[0]) {
print "<tr><td><b>Projekt</td><td>{$projekt['0']}</td></tr>\n";
}
print "</tbody></table></td>";
print "<td width=33%><table cellpadding=0 cellspacing=0 border = 0 width=240>";
print "<tr><td><b>Leveringsadresse.</td></tr>\n";
print "<tr><td>Firmanavn</td><td colspan=2>{$lev_navn}</td></tr>\n";
print "<tr><td>Adresse</td><td colspan=2>{$lev_addr1}</td></tr>\n";
print "<tr><td></td><td colspan=2>{$lev_addr2}</td></tr>\n";
print "<tr><td>Postnr, By</td><td>{$lev_postnr} {$lev_bynavn}</td></tr>\n";
print "<tr><td>Att.:</td><td colspan=2>{$lev_kontakt}</td></tr>\n";
# print "<tr><td>$lev_adr</td></tr>\n";
print "</td></tr></tbody></table></td>";
print "</td></tr><tr><td align=center colspan=3><table cellpadding=1 cellspacing=0 border=1 width=100%><tbody>";
print "<tr><td colspan=7></td></tr><tr>";
# print "<td align=center><b>pos</td><td align=center><b>varenr</td><td align=center><b>ant.</td><td align=center><b>enhed</td><td align=center><b>beskrivelse</td><td align=center><b>pris</td><td align=center><b>%</td><td align=center><b>ialt</td><td align=center><b>solgt</td>";
print "<td align=center title='Position (ordrelinjenummer)'><b>Pos.</td><td align=center><b>Varenr.</td><td align=center><b>Antal</td><td align=center><b>Enhed</td><td align=center><b>Beskrivelse</td><td align=center><b>Pris</td><td align=center title='Rabat i procent'><b>%</td><td align=center><b>I alt</td>";
if (db_fetch_array(db_select("select * from grupper where art = 'PRJ' order by kodenr", __FILE__ . " linje " . __LINE__))) {
$vis_projekt = '1';
}
if ($vis_projekt && !$projekt[0]) {
print "<td align=center title='Nummer herunder viser projektnummer, hvis ordrelinjen er tilknyttet et projekt'><b>proj.</b></td>";
} else {
print "<td></td>";
}
if (!$hurtigfakt) {
print "<td align=\"center\"><b>solgt</b></td>";
}
print "</tr>\n";
$x = 0;
if (!$ordre_id) {
$ordre_id = 0;
}
$query = db_select("select * from ordrelinjer where ordre_id = '{$ordre_id}' order by posnr", __FILE__ . " linje " . __LINE__);
while ($row = db_fetch_array($query)) {
if ($row['posnr'] > 0) {
$x++;
$linje_id[$x] = $row['id'];
$vare_id[$x] = $row['vare_id'];
$posnr[$x] = $row['posnr'];
$varenr[$x] = stripslashes($row['varenr']);
$lev_varenr[$x] = stripslashes($row['lev_varenr']);
$beskrivelse[$x] = stripslashes($row['beskrivelse']);
$enhed[$x] = stripslashes($row['enhed']);
$pris[$x] = $row['pris'];
$rabat[$x] = $row['rabat'];
$antal[$x] = $row['antal'];
$serienr[$x] = stripslashes($row['serienr']);
$momsfri[$x] = $row['momsfri'];
$varemomssats[$x] = $row['momssats'];
#20141106
$projekt[$x] = $row['projekt'];
$variant[$x] = $row['variant_id'];
$omvbet[$x] = $row['omvbet'];
if ($vare_id[$x]) {
$r = db_fetch_array(db_select("select gruppe from varer where id = {$vare_id[$x]}", __FILE__ . " linje " . __LINE__));
$r = db_fetch_array(db_select("select box6,box9 from grupper where kodenr='{$r['gruppe']}' and art='VG'", __FILE__ . " linje " . __LINE__));
$box9[$x] = trim($r['box9']);
trim($r['box6']) ? $omvare[$x] = 'on' : ($omvare[$x] = '');
}
}
}
$linjeantal = $x;
print "<input type=hidden name=linjeantal value={$x}>";
$totalrest = 0;
$sum = 0;
for ($x = 1; $x <= $linjeantal; $x++) {
if (!$vare_id[$x] && $varenr[$x]) {
$query = db_select("select id from varer where varenr = '{$varenr[$x]}' or stregkode = '{$varenr[$x]}'", __FILE__ . " linje " . __LINE__);
if ($row = db_fetch_array($query)) {
$vare_id[$x] = $row['id'];
}
}
if ($varenr[$x] && $vare_id[$x]) {
$rest[$x] = 0;
$query = db_select("select id, rest from batch_kob where linje_id = '{$linje_id[$x]}' and ordre_id = '{$ordre_id}' and vare_id = '{$vare_id[$x]}'", __FILE__ . " linje " . __LINE__);
while ($row = db_fetch_array($query)) {
$rest[$x] = $rest[$x] + $row['rest'];
}
$solgt[$x] = $antal[$x] - $rest[$x];
$totalrest = $totalrest + $rest[$x];
$ialt = ($pris[$x] - $pris[$x] / 100 * $rabat[$x]) * $antal[$x];
$ialt = afrund($ialt, 2);
$sum = $sum + $ialt;
if ($momsfri[$x] != 'on' && !$omvbet[$x]) {
$momssum += $ialt;
}
# $ialt=dkdecimal($ialt);
$dkpris = dkdecimal($pris[$x]);
$dkrabat = dkdecimal($rabat[$x]);
if ($antal[$x]) {
if ($art == 'KK') {
$dkantal[$x] = dkdecimal($antal[$x] * -1);
} else {
$dkantal[$x] = dkdecimal($antal[$x]);
}
if (substr($dkantal[$x], -1) == '0') {
$dkantal[$x] = substr($dkantal[$x], 0, -1);
}
if (substr($dkantal[$x], -1) == '0') {
$dkantal[$x] = substr($dkantal[$x], 0, -2);
}
}
} else {
$antal[$x] = '';
$dkpris = '';
$dkrabat = '';
$ialt = '';
}
print "<tr>";
print "<input type=hidden name=posn{$x} value={$posnr[$x]}><td align=right>{$posnr[$x]}</td>";
print "<input type=hidden name=vare{$x} value=\"{$varenr[$x]}\"><td align=right>{$varenr[$x]}</td>";
print "<input type=hidden name=anta{$x} value={$dkantal[$x]}><td align=right>{$dkantal[$x]}</td>";
print "<td align=right>{$enhed[$x]}</td>";
print "<input type=hidden name=beskrivelse{$x} value=\"{$beskrivelse[$x]}\"><td>{$beskrivelse[$x]}</td>";
print "<input type=hidden name=pris{$x} value={$dkpris}><td align=right>{$dkpris}</td>";
print "<input type=hidden name=raba{$x} value={$dkrabat}><td align=right>{$dkrabat}</td>";
print "<input type=hidden name=linje_id[{$x}] value={$linje_id[$x]}>";
print "<input type=hidden name=serienr[{$x}] value={$serienr[$x]}>";
print "<input type=hidden name=vare_id[{$x}] value={$vare_id[$x]}>";
print "<input type=hidden name=lev_varenr[{$x}] value=\"{$lev_varenr[$x]}\">";
print "<input type=hidden name=momsfri[{$x}] value=\"{$momsfri[$x]}\">";
print "<input type=hidden name=omvbet[{$x}] value=\"{$omvbet[$x]}\">";
#20150415
print "<input type=hidden name=varemomssats[{$x}] value=\"{$varemomssats[$x]}\">";
#20141106
if ($ialt && $art == 'KK') {
$ialt = $ialt * -1;
}
print "<td align=right>" . dkdecimal($ialt) . "</td>";
print "<input type=hidden name=projekt[{$x}] value=\"{$projekt[$x]}\">";
if ($vis_projekt && !$projekt[0]) {
$r = db_fetch_array(db_select("select beskrivelse from grupper where art = 'PROJ' and kodenr='{$projekt[$x]}'", __FILE__ . " linje " . __LINE__));
print "<td align=right title='{$r['projekt']}'>{$projekt[$x]}</td>";
}
if ($box9[$x] == 'on') {
if ($art == 'KK') {
$solgt[$x] = $solgt[$x] * -1;
}
if ($serienr[$x]) {
print "<td onClick=\"serienummer({$linje_id[$x]})\" align=right><u>{$solgt[$x]}</u></td>";
} else {
print "<td align=right>{$solgt[$x]}</td>";
}
} elseif ($serienr[$x]) {
print "<td onClick=\"serienummer({$linje_id[$x]})\" align=right><u>Snr</u></td>";
} else {
print "<td align=right><br></td>";
}
print "</tr>\n";
}
if ($art == 'KK') {
$sum = $sum * -1;
$momssum = $momssum * -1;
}
$moms = $momssum / 100 * $momssats;
$moms = afrund($moms, 3);
$ialt = dkdecimal($sum + $moms);
$sum = dkdecimal($sum);
$moms = dkdecimal($moms);
print "<tr><td colspan=8></td></tr>\n";
print "<tr><td colspan=8><table border=\"1\" cellspacing=\"0\" cellpadding=\"0\" width=100%><tbody>";
print "<tr>";
print "<td align=center>Ordresum</td><td align=center>{$sum}</td>";
print "<td align=center>Moms</td><td align=center>{$moms}</td>";
print "<td align=center>I alt</td><td align=right>{$ialt}</td>";
print "</tbody></table></td></tr>\n";
print "<tr><td align=center colspan=9>";
print "<table width=100% border=\"0\" cellspacing=\"0\" cellpadding=\"0\"><tbody><tr>";
if ($art != 'KK') {
print "<td align=center><span title=\"Kopiér til ny ordre med samme indhold\"><input type=\"submit\" value=\"Kopiér\" name=\"submit\" onclick=\"javascript:docChange = false;\"></span></td>";
print "<td align=center><span title=\"Opretter en kreditnota med samme indhold. Kan redigeres inden endelig kreditering\"><input type=\"submit\" value=\"Kreditér\" name=\"submit\" onclick=\"javascript:docChange = false;\"></span></td>";
print "<td align=center><span title=\"Udskriver ordre til PDF\"><input type=\"submit\" value=\"Udskriv\" name=\"udskriv\" onclick=\"javascript:docChange = false;\"></span></td>";
}
} else {
// Aabne ordrer herunder **************************************************
print "<table cellpadding=\"1\" cellspacing=\"5\" border=\"1\" valign = \"top\" width = 100><tbody>";
$ordre_id = $row['id'];
print "<tr><td width=33%><table cellpadding=0 cellspacing=0 border=0 width=100>";
print "<tr><td witdh=200>Kontonr.</td><td colspan=2>";
if (trim($kontonr)) {
print "<input class=\"inputbox\" readonly=readonly size=25 name=kontonr onfocus=\"document.forms[0].fokus.value=this.name;\" value=\"{$kontonr}\"></td></tr>\n";
} else {
print "<input class=\"inputbox\" type=text size=25 name=kontonr onfocus=\"document.forms[0].fokus.value=this.name;\" value=\"{$kontonr}\" onchange=\"javascript:docChange = true;\"></td></tr>\n";
}
print "<tr><td>Firmanavn</td><td colspan=2><input class=\"inputbox\" type=text size=25 name=firmanavn onfocus=\"document.forms[0].fokus.value=this.name;\" value=\"{$firmanavn}\" onchange=\"javascript:docChange = true;\"></td></tr>\n";
print "<tr><td>Adresse</td><td colspan=2><input class=\"inputbox\" type=text size=25 name=addr1 onfocus=\"document.forms[0].fokus.value=this.name;\" value=\"{$addr1}\" onchange=\"javascript:docChange = true;\"></td></tr>\n";
print "<tr><td></td><td colspan=2><input class=\"inputbox\" type=text size=25 name=addr2 onfocus=\"document.forms[0].fokus.value=this.name;\" value=\"{$addr2}\" onchange=\"javascript:docChange = true;\"></td></tr>\n";
print "<tr><td>Postnr, by</td><td><input class=\"inputbox\" type=text size=4 name=postnr onfocus=\"document.forms[0].fokus.value=this.name;\" value=\"{$postnr}\" onchange=\"javascript:docChange = true;\"></td><td><input class=\"inputbox\" type=text size=19 name=bynavn onfocus=\"document.forms[0].fokus.value=this.name;\" value=\"{$bynavn}\" onchange=\"javascript:docChange = true;\"></td></tr>\n";
print "<tr><td>Land</td><td colspan=2><input class=\"inputbox\" type=text size=25 name=land value=\"{$land}\" onchange=\"javascript:docChange = true;\"></td></tr>\n";
print "<tr><td>Att.:</td><td colspan=2><input class=\"inputbox\" type=text size=25 name=kontakt onfocus=\"document.forms[0].fokus.value=this.name;\" value=\"{$kontakt}\" onchange=\"javascript:docChange = true;\"></td></tr>\n";
print "</tbody></table></td>";
print "<td width=33%><table cellpadding=0 cellspacing=0 border=0 width=100>";
if (!$id) {
print "<tr><td colspan=\"4\" width=\"100%\" align=\"center\" valign=\"top\"><span title=\"Klik her for at importere en elektronisk faktura af typen oioubl\"><a href=ublimport.php>Importer OIOUBL faktura</a></span></td></tr>";
print "<tr><td colspan=\"4\" width=\"100%\"><hr width=\"90%\"></td></tr>";
}
print "<tr><td>CVR-nr.</td><td><input class=\"inputbox\" type=text size=15 name=cvrnr value=\"{$cvrnr}\" onchange=\"javascript:docChange = true;\"></td>";
$dkmomssats = dkdecimal($momssats);
print "<td>Momssats </td><td><input class=\"inputbox\" type=text style=text-align:right size=5 name=momssats value=\"{$dkmomssats}\" onchange=\"javascript:docChange = true;\">%</td></td></tr>\n";
print "<tr><td>Ordredato</td><td><input class=\"inputbox\" type=text style=text-align:right size=10 name=ordredato value=\"{$ordredato}\" onchange=\"javascript:docChange = true;\"></td>";
print "<td>Lev. dato</td><td><input class=\"inputbox\" type=text style=text-align:right size=10 name=levdato value=\"{$levdato}\" onchange=\"javascript:docChange = true;\"></td></tr>\n";
$list = array();
$beskriv = array();
$list[0] = 'DKK';
$x = 0;
$q = db_select("select * from grupper where art = 'VK' order by box1 ", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$x++;
$list[$x] = $r['box1'];
$beskriv[$x] = $r['beskrivelse'];
}
$tmp = $x;
if ($x > 0) {
$list[0] = 'DKK';
$beskriv[0] = 'Danske kroner';
print "<tr><td>Valuta</td>";
print "<td><select class=\"inputbox\" name=valuta>";
for ($x = 0; $x <= $tmp; $x++) {
if ($valuta != $list[$x]) {
print "<option title=\"{$beskriv[$x]}\" onchange=\"javascript:docChange = true;\">{$list[$x]}</option>";
} else {
print "<option title=\"{$beskriv[$x]}\" selected=\"selected\" onchange=\"javascript:docChange = true;\">{$list[$x]}</option>";
}
}
print "</SELECT></td>";
} else {
print "<tr><td witdh=200></tr>";
}
$list = array();
$beskriv = array();
$x = 0;
$q = db_select("select * from grupper where art = 'PRJ' order by kodenr", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$x++;
$list[$x] = $r['kodenr'];
$beskriv[$x] = $r['beskrivelse'];
}
$prj_antal = $x;
if ($x > 0) {
$vis_projekt = '1';
print "<td><span title= 'kostpris';>Projekt</span></td>";
print "<td><select class=\"inputbox\" name=projekt[0]>";
for ($x = 0; $x <= $prj_antal; $x++) {
if ($projekt[0] != $list[$x]) {
print "<option title=\"{$beskriv[$x]}\" onchange=\"javascript:docChange = true;\">{$list[$x]}</option>";
} else {
print "<option title=\"{$beskriv[$x]}\" selected=\"selected\" onchange=\"javascript:docChange = true;\">{$list[$x]}</option>";
}
}
print "</SELECT></td></tr>";
} else {
print "<tr><td colspan=2 witdh=200></tr>";
}
print "<tr><td>Betaling</td>";
print "<td colspan=2><select class=\"inputbox\" name=betalingsbet>";
print "<option>{$betalingsbet}</option>";
if ($betalingsbet != 'Forud') {
print "<option>Forud</option>";
}
if ($betalingsbet != 'Kontant') {
print "<option>Kontant</option>";
}
if ($betalingsbet != 'Efterkrav') {
print "<option>Efterkrav</option>";
}
if ($betalingsbet != 'Netto') {
print "<option>Netto</option>";
}
if ($betalingsbet != 'Lb. md.') {
print "<option>Lb. md.</option>";
}
if ($betalingsbet == 'Kontant' || $betalingsbet == 'Efterkrav' || $betalingsbet == 'Forud') {
$betalingsdage = '';
} elseif (!$betalingsdage) {
$betalingsdage = 'Nul';
}
if ($betalingsdage) {
if ($betalingsdage == 'Nul') {
$betalingsdage = 0;
}
print "</SELECT> +<input class=\"inputbox\" type=text size=2 style=text-align:right\tname=betalingsdage value=\"{$betalingsdage}\" onchange=\"javascript:docChange = true;\"></td>";
}
print "</tr>";
if (!$ref) {
$row = db_fetch_array(db_select("select ansat_id from brugere where brugernavn = '{$brugernavn}'", __FILE__ . " linje " . __LINE__));
if ($row[ansat_id]) {
$row = db_fetch_array(db_select("select navn from ansatte where id = {$row['ansat_id']}", __FILE__ . " linje " . __LINE__));
if ($row[navn]) {
$ref = $row['navn'];
}
}
}
$q = db_select("select id from adresser where art = 'S'", __FILE__ . " linje " . __LINE__);
if ($r = db_fetch_array($q)) {
$q2 = db_select("select navn from ansatte where konto_id = '{$r['id']}' and lukket != 'on' order by navn", __FILE__ . " linje " . __LINE__);
$x = 0;
while ($r2 = db_fetch_array($q2)) {
$x++;
if ($x == 1) {
print "<tr><td>Vor ref.</td>";
print "<td colspan=3><select class=\"inputbox\" name=ref>";
if ($ref) {
print "<option>{$ref}</option>";
}
}
if ($ref != $r2[navn]) {
print "<option> {$r2['navn']}</option>";
}
}
print "</SELECT>";
if ($x) {
print "</td></tr>";
}
}
if ($status == 0) {
print "<tr><td>Godkend</td><td><input class=\"inputbox\" type=checkbox name=godkend></td></tr>\n";
} else {
print "<tr><td witdh=200>Fakturanr</td><td colspan=2><input class=\"inputbox\" type=text size=23 name=fakturanr value=\"{$fakturanr}\" onchange=\"javascript:docChange = true;\"></td></tr>\n";
}
print "</tbody></table></td>";
print "<td align=center width=33%><table cellpadding=0 cellspacing=0 width='*'>";
print "<tr><tdcolspan=2 >Leveringsadresse</td></tr>\n";
print "<tr><td colspan=2 align=center><hr></td></tr>\n";
print "<tr><td>Firmanavn</td><td colspan=2><input class=\"inputbox\" type=text size=25 name=lev_navn value=\"{$lev_navn}\" onchange=\"javascript:docChange = true;\"></td></tr>\n";
print "<tr><td>Adresse</td><td colspan=2><input class=\"inputbox\" type=text size=25 name=lev_addr1 value=\"{$lev_addr1}\" onchange=\"javascript:docChange = true;\"></td></tr>\n";
print "<tr><td></td><td colspan=2><input class=\"inputbox\" type=text size=25 name=lev_addr2 value=\"{$lev_addr2}\" onchange=\"javascript:docChange = true;\"></td></tr>\n";
print "<tr><td>Postnr, By</td><td><input class=\"inputbox\" type=text size=4 name=lev_postnr value=\"{$lev_postnr}\" onchange=\"javascript:docChange = true;\"><input class=\"inputbox\" type=text size=19 name=lev_bynavn value=\"{$lev_bynavn}\" onchange=\"javascript:docChange = true;\"></td></tr>\n";
print "<tr><td>Att.:</td><td colspan=2><input class=\"inputbox\" type=text size=25 name=lev_kontakt value=\"{$lev_kontakt}\" onchange=\"javascript:docChange = true;\"></td></tr>\n";
# print "<tr><td><textarea style=\"font-family: helvetica,arial,sans-serif;\" name=lev_adr rows=5 cols=35>$lev_adr</textarea></td></tr>\n";
print "</td></tr></tbody></table></td>";
print "</td></tr><tr><td align=center colspan=3><table cellpadding=1 cellspacing=0 width=100><tbody>";
print "<tr>";
if ($status == 1) {
print "<td align=center title='Position (ordrelinjenummer)'>Pos.</td><td align=center title='Varenummer'>Varenr.</td><td align=center title='Leverandørens varenummer'>Lev.vnr.</td><td align=center>Antal</td><td align=center>Enhed</td><td align=center>Beskrivelse</td><td align=center>Pris</td><td align=center title='Rabat i %'>%</td><td align=center>I alt</td>";
if ($vis_projekt && !$projekt[0]) {
print "<td align=center title='Nummer herunder viser projektnummer hvis ordrelinjen er tilknyttet et projekt'>Proj.</td>";
}
if ($art == 'KK') {
print "<td colspan='2' align='center' title='Indtastningsfeltet herunder er det antal, som returneres ved klik på Return&aecute;r. Antallet i parantes er det, der allerede er returneret'>Returnér</td>";
} else {
print "<td colspan='2' align='center' title='Indtastningsfeltet herunder er det antal, som modtages ved klik på Modtag. Antallet i parantes er det, der allerede er modtaget.'>Modtag</td>";
}
} else {
print "<td align=center title='Position (ordrelinjenummer)'>Pos.</td><td align=center title='Varenummer'>Varenr.</td><td align=center title='Leverandørens varenummer'>Lev.vnr.</td><td align=center>Antal</td><td>Enhed</td><td align=center>Beskrivelse</td><td align=center>Pris</td><td align=center title='Rabat i %'>%</td><td align=center>I alt</td>";
if ($vis_projekt && !$projekt[0]) {
print "<td align=center title='Nummer herunder viser projektnummer, hvis ordrelinjen er tilknyttet et projekt'>Proj.</td>";
} else {
print "<td></td>";
}
}
#cho "OL $omlev<br>";
if ($omlev) {
print "<td title =\"Hvis feltet vises er leverandøren underlagt reglerne for omvendt betalingspligt. Er varen ligeledes omfattet vil feltet herunder være afmærket pr default og momsen vil være undertrykt for den pågældende vare.\">O/B</td>";
}
print "</tr>\n";
/*
if ($valuta && $valuta!='DKK') {
if ($r= db_fetch_array(db_select("select valuta.kurs from valuta, grupper where grupper.art='VK' and grupper.box1='$valuta' and valuta.gruppe=grupper.kodenr and valuta.valdate <= '$ordredate' order by valuta.valdate desc",__FILE__ . " linje " . __LINE__))) {
$valutakurs=$r['kurs'];
} else {
$tmp = dkdato($ordredate);
print "<BODY onLoad=\"javascript:alert('Der er ikke nogen valutakurs for $valuta den $ordredate')\" onchange=\"javascript:docChange = true;\">";
}
} else $valutakurs = 100;
db_modify("update ordrer set valutakurs='$valutakurs' where ordre_id = '$ordre_id'",__FILE__ . " linje " . __LINE__);
*/
$ordre_id *= 1;
$x = 0;
$query = db_select("select * from ordrelinjer where ordre_id = {$ordre_id} order by posnr", __FILE__ . " linje " . __LINE__);
while ($row = db_fetch_array($query)) {
if ($row['posnr'] > 0) {
$x++;
$linje_id[$x] = $row['id'];
$kred_linje_id[$x] = $row['kred_linje_id'];
$posnr[$x] = $row['posnr'];
$varenr[$x] = stripslashes(trim($row['varenr']));
$lev_varenr[$x] = stripslashes(trim($row['lev_varenr']));
$beskrivelse[$x] = stripslashes(trim($row['beskrivelse']));
$pris[$x] = $row['pris'];
$rabat[$x] = $row['rabat'];
$antal[$x] = $row['antal'];
$leveres[$x] = $row['leveres'];
$enhed[$x] = $row['enhed'];
$vare_id[$x] = $row['vare_id'];
$momsfri[$x] = $row['momsfri'];
$projekt[$x] = $row['projekt'];
$serienr[$x] = stripslashes($row['serienr']);
$samlevare[$x] = $row['samlevare'];
$row['omvbet'] ? $omvbet[$x] = 'checked' : ($omvbet[$x] = '');
#cho "$row[omvbet] OB $omvbet[$x]<br>";
}
}
$linjeantal = $x;
print "<input type=hidden name=linjeantal value={$linjeantal}>";
$sum = 0;
# if ($status==1){$status=2;}
for ($x = 1; $x <= $linjeantal; $x++) {
if ($varenr[$x]) {
$ialt = ($pris[$x] - $pris[$x] / 100 * $rabat[$x]) * $antal[$x];
$ialt = afrund($ialt, 2);
$sum = $sum + $ialt;
if ($momsfri[$x] != 'on' && !$omvbet[$x]) {
$momssum = $momssum + $ialt;
}
# $ialt=dkdecimal($ialt);
$dkpris = dkdecimal($pris[$x]);
$dkrabat = dkdecimal($rabat[$x]);
if ($antal[$x]) {
if ($art == 'KK') {
$dkantal[$x] = dkdecimal($antal[$x] * -1);
} else {
$dkantal[$x] = dkdecimal($antal[$x]);
}
if (substr($dkantal[$x], -1) == '0') {
$dkantal[$x] = substr($dkantal[$x], 0, -1);
}
if (substr($dkantal[$x], -1) == '0') {
$dkantal[$x] = substr($dkantal[$x], 0, -2);
}
}
} else {
$dkantal[$x] = '';
$dkpris = '';
$dkrabat = '';
$ialt = '';
}
print "<input type=\"hidden\" name=\"linje_id[{$x}]\" value=\"{$linje_id[$x]}\">";
print "<input type=\"hidden\" name=\"vare_id[{$x}]\" value=\"{$vare_id[$x]}\">";
print "<input type=\"hidden\" name=\"kred_linje_id[{$x}]\" value=\"{$kred_linje_id[$x]}\">";
print "<input type=\"hidden\" name=\"serienr[{$x}]\" value=\"{$serienr[$x]}\">";
print "<input type=\"hidden\" name=\"omvbet[{$x}]\" value=\"{$omvbet[$x]}\">";
print "<tr>";
print "<td><input class=\"inputbox\" type=\"text\" style=\"text-align:right\" size=3 name=posn{$x} value='{$x}' onchange=\"javascript:docChange = true;\"></td>";
print "<td title='Varenummer kan ikke ændres. Opret i stedet en ny linje og slet denne linje ved at skrive et minustegn i Pos.-feltet til venstre. Flyt om på linjerne ved at angive nye numre i Pos.-feltet eventuelt som decimaltal.'><input class=\"inputbox\" type=\"text\" style=\"background: none repeat scroll 0 0 #e4e4ee\" readonly=readonly size=7 name=vare{$x} onfocus=\"document.forms[0].fokus.value=this.name;\" value='{$varenr[$x]}'></td>";
print "<td><input class=\"inputbox\" type=text size=7 name=lev_varenr{$x} value='{$lev_varenr[$x]}' onchange=\"javascript:docChange = true;\"></td>";
print "<td><input class=\"inputbox\" type=\"text\" style=\"text-align:right\" size=4 name=anta{$x} value='{$dkantal[$x]}' onchange=\"javascript:docChange = true;\"></td>";
print "<td><input class=\"inputbox\" type=\"text\" style=\"background: none repeat scroll 0 0 #e4e4ee\" readonly=readonly size=3 value=\"{$enhed[$x]}\"></td>";
print "<td><input class=\"inputbox\" type=\"text\" size=58 name=beskrivelse{$x} value=\"{$beskrivelse[$x]}\" onchange=\"javascript:docChange = true;\"></td>";
print "<td><input class=\"inputbox\" type=\"text\" style=\"text-align:right\" size=10 name=pris{$x} value='{$dkpris}' onchange=\"javascript:docChange = true;\"></td>";
print "<td><input class=\"inputbox\" type=\"text\" style=\"text-align:right\" size=4 name=raba{$x} value='{$dkrabat}' onchange=\"javascript:docChange = true;\"></td>";
if ($art == 'KK') {
$ialt = $ialt * -1;
}
if ($varenr[$x]) {
$tmp = dkdecimal($ialt);
} else {
$tmp = NULL;
}
print "<td align=right><input class=\"inputbox\" type=\"text\" style=\"background: none repeat scroll 0 0 #e4e4ee;text-align:right\" readonly=\"readonly\" size=10 value=\"{$tmp}\"></td>";
if ($vis_projekt && !$projekt[0]) {
print "<td><select class=\"inputbox\" NAME=projekt[{$x}]>";
for ($a = 0; $a <= $prj_antal; $a++) {
if ($projekt[$x] != $list[$a]) {
print "<option value=\"{$list[$a]}\" title=\"{$beskriv[$a]}\">{$list[$a]}</option>";
} else {
print "<option value=\"{$list[$a]}\" title=\"{$beskriv[$a]}\" selected=\"selected\">{$list[$a]}</option>";
}
}
print "</option></td>";
}
if ($status >= 1) {
if ($vare_id[$x]) {
$row = db_fetch_array(db_select("select gruppe from varer where id = '{$vare_id[$x]}'", __FILE__ . " linje " . __LINE__));
if (!$row[gruppe]) {
print "<BODY onLoad=\"javascript:alert('Vare med varenummer {$varenr[$x]} er ikke tilknyttet en varegruppe (Pos nr. {$posnr[$x]})')\">";
exit;
} else {
$row = db_fetch_array(db_select("select box9 from grupper where kodenr = '{$row['gruppe']}' and art = 'VG'", __FILE__ . " linje " . __LINE__));
$box9[$x] = trim($row['box9']);
$tidl_lev[$x] = 0;
}
if ($art == 'KK') {
$dklev[$x] = dkdecimal($leveres[$x] * -1);
$modtag_returner = "returner";
} else {
$dklev[$x] = dkdecimal($leveres[$x]);
$modtag_returner = "modtag";
}
if (substr($dklev[$x], -1) == '0') {
$dklev[$x] = substr($dklev[$x], 0, -1);
}
if (substr($dklev[$x], -1) == '0') {
$dklev[$x] = substr($dklev[$x], 0, -2);
}
if ($antal[$x] >= 0 && $art != 'KK') {
$query = db_select("select * from batch_kob where linje_id = '{$linje_id[$x]}' and ordre_id={$id} and vare_id = {$vare_id[$x]}", __FILE__ . " linje " . __LINE__);
while ($row = db_fetch_array($query)) {
$tidl_lev[$x] = $tidl_lev[$x] + $row['antal'];
}
if (afrund($antal[$x] - $tidl_lev[$x], 2)) {
$status = 1;
}
$temp = 0;
$query = db_select("select * from reservation where linje_id = {$linje_id[$x]} and batch_salg_id=0", __FILE__ . " linje " . __LINE__);
if ($row = db_fetch_array($query)) {
if ($antal[$x] - $tidl_lev[$x] != $row[antal]) {
db_modify("update reservation set antal={$antal[$x]}-{$tidl_lev[$x]} where linje_id={$linje_id[$x]} and batch_salg_id=0", __FILE__ . " linje " . __LINE__);
}
} elseif ($antal[$x] - $tidl_lev[$x] != $row['antal']) {
if ($antal[$x] >= 0 && $tidl_lev[$x] < 0) {
print "<BODY onLoad=\"javascript:alert('Antal må ikke ændres til positivt tal, når der er returneret varer (Pos nr. {$posnr[$x]})')\">";
$antal[$x] = $tidl_lev[$x];
} else {
db_modify("insert into reservation (linje_id, vare_id, batch_salg_id, antal) values\t({$linje_id[$x]}, {$vare_id[$x]}, 0, {$antal[$x]}-{$tidl_lev[$x]})", __FILE__ . " linje " . __LINE__);
}
}
}
if ($antal[$x] < 0) {
$tidl_lev[$x] = 0;
$query = db_select("select antal from batch_kob where linje_id = '{$linje_id[$x]}'", __FILE__ . " linje " . __LINE__);
while ($row = db_fetch_array($query)) {
if ($art == 'KK') {
$tidl_lev[$x] = $tidl_lev[$x] - $row['antal'];
} else {
$tidl_lev[$x] = $tidl_lev[$x] + $row['antal'];
}
}
}
$dk_tidl_lev[$x] = dkdecimal($tidl_lev[$x]);
if (substr($dk_tidl_lev[$x], -1) == '0') {
$dk_tidl_lev[$x] = substr($dk_tidl_lev[$x], 0, -1);
}
if (substr($dk_tidl_lev[$x], -1) == '0') {
$dk_tidl_lev[$x] = substr($dk_tidl_lev[$x], 0, -2);
}
if (afrund(abs($antal[$x]) - abs($tidl_lev[$x]), 3) != 0) {
if (abs($antal[$x]) != abs($leveres[$x])) {
# print "<td><input class=\"inputbox\" type=\"text\" style=\"text-align:right\" size=4 name=leve$x value='$dklev[$x]' onchange=\"javascript:docChange = true;\"></td>";
print "<td title=\"Mangler fortsat at " . $modtag_returner . "e resten.\"><input class=\"inputbox\" type=\"text\" style=\"background: none repeat scroll 0 0 #ffa; text-align:right\" size=\"4\" name=\"leve{$x}\" value=\"{$dklev[$x]}\" onchange=\"javascript:docChange = true;\"></td>\n";
} else {
print "<td title=\"Intet " . $modtag_returner . "et endnu.\"><input class=\"inputbox\" type=\"text\" style=\"text-align:right\" size=\"4\" name=\"leve{$x}\" value=\"{$dklev[$x]}\" onchange=\"javascript:docChange = true;\"></td>\n";
}
} else {
print "<td title=\"Alt " . $modtag_returner . "et.\"><input class=\"inputbox\" type=\"text\" readonly=\"readonly\" style=\"background: none repeat scroll 0 0 #e4e4ee; text-align:right\" size=\"4\" name=\"leve{$x}\" value=\"{$dklev[$x]}\" onchange=\"javascript:docChange = true;\"></td>\n";
}
print "<td>({$dk_tidl_lev[$x]})</td>";
}
}
if ($status > 0 && $serienr[$x]) {
print "<td onClick=\"serienummer({$linje_id[$x]})\"><input type=button value=\"Serienr.\" name=\"vis_snr{$x}\" onchange=\"javascript:docChange = true;\"></td>";
}
if ($antal[$x] < 0 && $art != 'KK' && $box9[$x] == 'on') {
print "<td align=center onClick=\"batch({$linje_id[$x]})\"><span title= 'Vælg fra købsordre'><img alt=\"Købsordre\" src=../ikoner/serienr.png></td></td>";
}
#print "<BODY onClick=\"JavaScript:window.open('batch.php?linje_id=$linje_id', '', 'statusbar=no,menubar=no,titlebar=no,toolbar=no,scrollbars=yes, location=1');\">";
#cho "OL2 $omlev<br>";
if ($omlev) {
print "<td valign=\"top\"><input class=\"inputbox\" type=\"checkbox\" style=\"background: none repeat scroll 0 0 #e4e4ee\" name=\"omvbet[{$x}]\" onchange=\"javascript:docChange = true;\" {$omvbet[$x]}></td>\n";
}
print "</tr>\n";
}
print "<tr>";
print "<td><input class=\"inputbox\" type=\"text\" style=\"text-align:right\" size=3 name=posn0 value={$x}></td>";
if ($art != 'KK') {
print "<td><input class=\"inputbox\" type=text size=7 name=vare0 onfocus=\"document.forms[0].fokus.value=this.name;\"></td>";
print "<td><input class=\"inputbox\" type=text size=7 name=lev_v0></td>";
print "<td><input class=\"inputbox\" type=\"text\" style=\"text-align:right\" size=4 name=anta0></td>";
print "<td><input class=\"inputbox\" type=\"text\" style=\"background: none repeat scroll 0 0 #e4e4ee\" readonly=readonly size=3></td>";
} else {
print "<td><input class=\"inputbox\" type=\"text\" style=\"background: none repeat scroll 0 0 #e4e4ee\" readonly=readonly size=7></td>";
print "<td><input class=\"inputbox\" type=\"text\" style=\"background: none repeat scroll 0 0 #e4e4ee\" readonly=readonly size=7></td>";
print "<td><input class=\"inputbox\" type=\"text\" style=\"background: none repeat scroll 0 0 #e4e4ee\" readonly=readonly size=2></td>";
print "<td><input class=\"inputbox\" type=\"text\" style=\"background: none repeat scroll 0 0 #e4e4ee\" readonly=readonly size=3></td>";
}
if ($konto_id) {
print "<td><input class=\"inputbox\" type=text size=58 name=beskrivelse0 onfocus=\"document.forms[0].fokus.value=this.name;\"></td>";
} else {
print "<td><input class=\"inputbox\" type=text size=58 name=beskrivelse0 onfocus=\"document.forms[0].fokus.value=this.name;\"></td>";
}
print "<td><input class=\"inputbox\" type=\"text\" style=\"text-align:right\" size=10 name=pris0></td>";
print "<td><input class=\"inputbox\" type=\"text\" style=\"text-align:right\" size=4 name=raba0></td>";
print "<td><input class=\"inputbox\" type=\"text\" style=\"background: none repeat scroll 0 0 #e4e4ee\" readonly=readonly size=10></td>";
# if ($status==1) {print "<td><input class=\"inputbox\" type=\"text\" style=\"text-align:right\" size=2 name=modt0></td>";}
print "</tr>\n";
print "<input type=hidden size=3 name=sum value={$sum}>";
$moms = $momssum / 100 * $momssats;
if ($art == 'KK') {
$moms = $moms - 0.0001;
} else {
$moms = $moms + 0.0001;
}
#Ellers runder den ned istedet for op?
$moms = afrund($moms, 3);
if ($id) {
db_modify("update ordrer set sum='{$sum}', moms='{$moms}' where id='{$id}'", __FILE__ . " linje " . __LINE__);
}
if ($art == 'KK') {
$sum = $sum * -1;
$moms = $moms * -1;
}
$ialt = $sum + $moms;
# $sum=dkdecimal($sum);
# $moms=dkdecimal($moms);
print "<tr><td colspan=9><table border=\"1\" cellspacing=\"0\" cellpadding=\"0\" width=100%><tbody>";
print "<tr>";
print "<td align=center>Ordresum</td><td align=center>" . dkdecimal($sum) . "</td>";
print "<td align=center>Moms</td><td align=center>" . dkdecimal($moms) . "</td>";
print "<td align=center>I alt</td><td align=right>" . dkdecimal($ialt) . "</td>";
print "</tbody></table></td></tr>\n";
print "<input type=\"hidden\" name=\"fokus\">";
print "<tr><td align=center colspan=8>";
print "<table width=100% border=\"0\" cellspacing=\"0\" cellpadding=\"1\"><tbody><tr>";
print "<td align=center><input type=submit accesskey=\"g\" value=\" Gem \" name=\"submit\" onclick=\"javascript:docChange = false;\"></td>";
print "<td align=center><input type=submit accesskey=\"o\" value=\"Opslag\" name=\"submit\" onclick=\"javascript:docChange = false;\"></td>";
if ($status == 1 && $bogfor == 1) {
if ($art == 'KK') {
print "<td align=center><input type=submit accesskey=\"m\" value=\"Returnér\" name=\"submit\" onclick=\"javascript:docChange = false;\"></td>";
} else {
print "<td align=center><input type=submit accesskey=\"m\" value=\"Modtag\" name=\"submit\" onclick=\"javascript:docChange = false;\"></td>";
}
} elseif ($status > 1 && $bogfor == 1) {
print "<td align=center><input type=submit accesskey=\"b\" value=\"Bogfør\" name=\"submit\" onclick=\"javascript:docChange = false;\"></td>";
}
if (!$posnr[1] && $id) {
print "<td align=center><input type=submit value=\" Slet \" name=\"submit\" onclick=\"javascript:docChange = false;\"></td>";
} elseif ($id && $art == 'KO') {
print "<td align=center><span title=\"Udskriver ordre til PDF\"><input type=\"submit\" value=\"Udskriv\" name=\"udskriv\" onclick=\"javascript:docChange = false;\"></span></td>";
}
print "<td align=center><span title=\"Klik her for at udskrive ordrelinjer til en tabulatorsepareret fil, som kan importeres i et regneark\"><input type=submit value=\" CSV \" name=\"submit\" onClick=\"javascript:ordre2csv=window.open('ordre2csv.php?id={$ordre_id}','ordre2csv','scrollbars=1,resizable=1')\"></span></td>";
if ($konto_id) {
$r = db_fetch_array(db_select("select kreditmax from adresser where id = '{$konto_id}'", __FILE__ . " linje " . __LINE__));
}
if ($kreditmax = $r['kreditmax'] * 1) {
if ($valutakurs) {
$kreditmax = $kreditmax * 100 / $valutakurs;
}
$q = db_select("select * from openpost where konto_id = '{$konto_id}' and udlignet='0'", __FILE__ . " linje " . __LINE__);
$tilgode = 0;
while ($r = db_fetch_array($q)) {
if (!$r['valuta']) {
$r['valuta'] = 'DKK';
}
if (!$r['valutakurs']) {
$r['valutakurs'] = 100;
}
if ($valuta == 'DKK' && $r['valuta'] != 'DKK') {
$opp_amount = $r['amount'] * $r['valutakurs'] / 100;
} elseif ($valuta != 'DKK' && $r['valuta'] == 'DKK') {
if ($r3 = db_fetch_array(db_select("select kurs from grupper, valuta where grupper.art='VK' and grupper.box1='{$valuta}' and valuta.gruppe = " . nr_cast("grupper.kodenr") . " and valuta.valdate <= '{$r['transdate']}' order by valuta.valdate desc", __FILE__ . " linje " . __LINE__))) {
$opp_amount = $r['amount'] * 100 / $r3['kurs'];
} else {
print "<BODY onLoad=\"javascript:alert('Ingen valutakurs for faktura {$r['faktnr']}')\">";
}
} elseif ($valuta != 'DKK' && $r['valuta'] != 'DKK' && $r['valuta'] != $valuta) {
$tmp == $r['amount'] * $r['valuta'] / 100;
$opp_amount = $tmp * 100 / $r['valutakurs'];
} else {
$opp_amount = $r['amount'];
}
$tilgode = $tilgode + $opp_amount;
}
if ($kreditmax < $ialt + $tilgode) {
$tmp = dkdecimal($ialt + $tilgode - $kreditmax, 2);
print "<BODY onLoad=\"javascript:alert('Kreditmax overskrides med {$valuta} {$tmp}')\">";
}
}
# end if ($kreditmax....
}
print "</tbody></table></td></tr>\n";
print "</form>";
print "</tbody></table></td></tr></tbody></table></td></tr>\n";
print "<tr><td></td></tr>\n";
}
