$r = db_fetch_array(db_select("select box6 from grupper where art = 'DIV' and kodenr = '3'", __FILE__ . " linje " . __LINE__));
$fifo = $r['box6'];
$r = db_fetch_array(db_select("select box6 from grupper where art = 'DIV' and kodenr = '5'", __FILE__ . " linje " . __LINE__));
$kostmetode = $r['box6'];
#cho "FIFO $fifo<br>";
$query = db_select("select * from ordrer where id = '{$id}'", __FILE__ . " linje " . __LINE__);
$row = db_fetch_array($query);
$art = $row['art'];
$konto_id = $row['konto_id'];
$kred_ord_id = $row['kred_ord_id'];
$levdate = $row['levdate'];
$valuta = $row['valuta'];
$projekt[0] = $row['projekt'];
$cvrnr = $row['cvrnr'];
if ($valuta && $valuta != 'DKK') {
if ($r = db_fetch_array(db_select("select valuta.kurs as kurs, grupper.box3 as difkto from valuta, grupper where grupper.art='VK' and grupper.box1='{$valuta}' and valuta.gruppe=" . nr_cast("grupper.kodenr", __FILE__ . " linje " . __LINE__) . " and valuta.valdate <= '{$levdate}' order by valuta.valdate desc", __FILE__ . " linje " . __LINE__))) {
$valutakurs = $r['kurs'] * 1;
$difkto = $r['difkto'] * 1;
if (!db_fetch_array(db_select("select id from kontoplan where kontonr='{$difkto}' and regnskabsaar='{$regnaar}'", __FILE__ . " linje " . __LINE__))) {
print "<BODY onLoad=\"javascript:alert('Kontonr {$difkto} (kursdiff) eksisterer ikke')\">";
print "<meta http-equiv=\"refresh\" content=\"0;URL=ordre.php?id={$id}\">";
exit;
}
} else {
$tmp = dkdato($levdate);
print "<BODY onLoad=\"javascript:alert('Der er ikke nogen valutakurs for {$valuta} den {$tmp}')\">";
print "<meta http-equiv=\"refresh\" content=\"0;URL=ordre.php?id={$id}\">";
exit;
}
} else {
$valuta = 'DKK';
function genberegn($id)
{
$kostpris = 0;
$q0 = db_select("select id,vare_id,antal,pris,kostpris,saet,samlevare from ordrelinjer where ordre_id = {$id} and posnr>0 and vare_id > 0", __FILE__ . " linje " . __LINE__);
while ($r0 = db_fetch_array($q0)) {
if ($r1 = db_fetch_array(db_select("select provisionsfri, gruppe from varer where id = '{$r0['vare_id']}'", __FILE__ . " linje " . __LINE__))) {
if (!$r1[provisionsfri] && ($r1 = db_fetch_array(db_select("select box9 from grupper where art = 'VG' and " . nr_cast(kodenr) . "='{$r1['gruppe']}' and box9 = 'on' ", __FILE__ . " linje " . __LINE__)))) {
/*
$batch_tjek='0';
$q1 = db_select("select antal, batch_kob_id from batch_salg where linje_id = '$r0[id]' and batch_kob_id != 0",__FILE__ . " linje " . __LINE__);
while ($r1=db_fetch_array($q1)) {
if ($r2=db_fetch_array(db_select("select pris, fakturadate, linje_id from batch_kob where id = '$r1[batch_kob_id]'",__FILE__ . " linje " . __LINE__))) {
if ($r2['fakturadate']<'2000-01-01') $r2=db_fetch_array(db_select("select pris from ordrelinjer where id = '$r2[linje_id]'",__FILE__ . " linje " . __LINE__));
$batch_tjek=1;
$tmpp=$r2['pris']*$r1['antal'];
$kostpris=$kostpris+$r2['pris']*$r1['antal'];
}
}
if ($batch_tjek<1) {
$r2=db_fetch_array(db_select("select kostpris from varer where id = $r0[vare_id]",__FILE__ . " linje " . __LINE__));
$kostpris=$kostpris+$r2['kostpris']*$r0['antal'];
}
*/
$kostpris += $r0['kostpris'] * $r0['antal'];
} elseif ($r1['provisionsfri']) {
$kostpris += $r0['pris'] * $r0['antal'];
} else {
if ($r0['saet'] && $r0['samlevare'] && $r0['kostpris']) {
$r0['kostpris'] = 0;
db_modify("update ordrelinjer set kostpris='0' where id = '{$r0['id']}'");
}
$kostpris += $r0['kostpris'] * $r0['antal'];
# $r2=db_fetch_array(db_select("select kostpris from varer where id = $r0[vare_id]",__FILE__ . " linje " . __LINE__));
# $kostpris=$kostpris+$r2['kostpris']*$r0['antal'];
}
}
}
db_modify("update ordrer set kostpris={$kostpris} where id = {$id}", __FILE__ . " linje " . __LINE__);
#xit;
return $kostpris;
}
function tilfoj($tekst, $shop_id, $shop_vnr, $beskrivelse, $pris, $specialpris, $saldi_grp)
{
global $url;
$x = 0;
if (!$saldi_grp) {
$saldi_grp = $_COOKIE['saldi_grp'];
}
$qtxt = "select * from grupper where art='VG' order by " . nr_cast(kodenr) . "";
$q = db_select($qtxt, __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$vg_id[$x] = $r['kodenr'];
$vg_besk[$x] = $r['beskrivelse'];
$x++;
}
print "<form name=hent_varer action=\"hent_varer.php?shop_id={$shop_id}&shop_vnr={$shop_vnr}&beskrivelse={$beskrivelse}&pris={$pris}&specialpris={$specialpris}\" method=post autocomplete=\"off\">\n";
print "<tr><td colspan=\"2\">{$tekst}</td></tr>";
print "<tr><td colspan=\"2\">Vælg varegruppe for oprettelse eller gå videre til næste vare</td></tr>";
print "<tr><td>Varenr</td><td><input type=\"text\" name=\"saldi_vnr\" placeholder=\"{$shop_vnr}\"><td></tr>";
print "<tr><td>Varegruppe</td><td><select name=\"saldi_grp\">";
if ($saldi_grp) {
for ($x = 0; $x < count($vg_id); $x++) {
if ($vg_id[$x] == $saldi_grp) {
$tmp = $vg_id[$x];
while (strlen($tmp) < 2) {
$tmp = "0" . $tmp;
}
print "<option value=\"{$vg_id[$x]}\">{$tmp}: {$vg_besk[$x]}</option>";
}
}
}
for ($x = 0; $x < count($vg_id); $x++) {
$tmp = $vg_id[$x];
while (strlen($tmp) < 2) {
$tmp = "0" . $tmp;
}
print "<option value=\"{$vg_id[$x]}\">{$tmp}: {$vg_besk[$x]}</option>";
}
print "</select></td></tr>";
print "<tr><td colspan=\"2\" align=\"center\">";
print "<input type=\"submit\" name=\"tilfoj\" value=\"Tilføj\"> <a href={$url}&next_id={$shop_id}><input type=\"button\" value=\"Spring over\">";
print "</td></tr>";
print "</form>";
exit;
}
function vis_aabne_poster($dato_fra, $dato_til, $konto_fra, $konto_til, $art)
{
global $bgcolor;
global $bgcolor5;
print "<tr><td><table width=100% cellpadding=\"0\" cellspacing=\"0\" border=\"0\"><tbody>\n";
print "<tr><td>Kontonr</td><td>Firmanavn</td><td align=right>>90</td><td align=right>60-90</td><td align=right>30-60</td><td align=right>8-30</td><td align=right>0-8</td><td align=right>I alt</td><tr>";
$currentdate = date("Y-m-d");
$fromdate = usdate($dato_fra);
$todate = usdate($dato_til);
# echo "SS $fromdate $todate KF $konto_fra<br>";
/*
# Finder start og s**t paa regnskabsaar
for ($x=1; $x<=12; $x++) {
if ($maaned_fra==$md[$x]){$maaned_fra=$x;}
if ($maaned_til==$md[$x]){$maaned_til=$x;}
}
$query = db_select("select * from grupper where kodenr='$regnaar' and art='RA'",__FILE__ . " linje " . __LINE__);
$row = db_fetch_array($query);
# $regnaar=$row[kodenr];
$startmaaned=$row['box1']*1;
$startaar=$row['box2']*1;
$slutmaaned=$row['box3']*1;
$slutaar=$row['box4']*1;
$slutdato=31;
##
if ($maaned_fra) $startmaaned=$maaned_fra;
if ($maaned_til) $slutmaaned=$maaned_til;
if (!is_numeric($startmaaned)) {
if (strstr($startmaaned," ")) list($tmp,$startmaaned)=explode(" ",$startmaaned);
if (!is_numeric($startmaaned)) list ($tmp,$startmaaned)=explode(" ",find_maaned_nr($startmaaned));
}
if (!is_numeric($slutmaaned)) {
if (strstr($slutmaaned," ")) list($tmp,$slutmaaned)=explode(" ",$slutmaaned);
if (!is_numeric($slutmaaned)) list ($tmp,$slutmaaned)=explode(" ",find_maaned_nr($slutmaaned));
}
while (!checkdate($slutmaaned,$slutdato,$slutaar)) {
$slutdato=$slutdato-1;
if ($slutdato<28) break;
}
# if ($slutmaaned<10){$slutmaaned="0".$slutmaaned;}
$regnstart = $startaar. "-" . $startmaaned . "-" . '01';
$regnslut = $slutaar . "-" . $slutmaaned . "-" . $slutdato;
*/
#$regnslut = "2005-05-04";
print "<form name=aabenpost action=rapport.php method=post>";
print "<tr><td colspan=10><hr></td></tr>\n";
$x = 0;
# echo "KF $konto_fra<br>";
if (is_numeric($konto_fra) && is_numeric($konto_til)) {
$tekst = "select * from adresser where " . nr_cast('kontonr') . ">='{$konto_fra}' and " . nr_cast('kontonr') . "<='{$konto_til}' and art = 'D' order by " . nr_cast('kontonr') . "";
} elseif ($konto_fra && $konto_fra != '*') {
$konto_fra = str_replace("*", "%", $konto_fra);
$tmp1 = strtolower($konto_fra);
$tmp2 = strtoupper($konto_fra);
$tekst = "select * from adresser where (firmanavn like '{$konto_fra}' or lower(firmanavn) like '{$tmp1}' or upper(firmanavn) like '{$tmp2}') and art = 'D' order by firmanavn";
} else {
$tekst = "select * from adresser where art = '{$art}' order by firmanavn";
}
# echo "tekst $tekst<br>";
$kontonr = array();
$x = 0;
$q = db_select("{$tekst}", __FILE__ . " linje " . __LINE__);
# if ($konto_fra && $konto_til) $tmp=nr_cast('kontonr').">='$konto_fra' and ".nr_cast('kontonr')."<='$konto_til' and ";
# elseif ($konto_fra) $tmp=nr_cast('kontonr').">='$konto_fra' and ";
# elseif ($konto_til) $tmp=nr_cast('kontonr')."<='$konto_til'and ";
# else $tmp="";
# $q = db_select("select * from adresser where $tmp art = '$art' order by firmanavn",__FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$x++;
$konto_id[$x] = $r['id'];
print "<input type=hidden name=konto_id[{$x}] value={$konto_id[$x]}>";
$kontonr[$x] = trim($r['kontonr']);
$firmanavn[$x] = stripslashes($r['firmanavn']);
$addr1[$x] = stripslashes($r['addr1']);
$addr2[$x] = stripslashes($r['addr2']);
$postnr[$x] = trim($r['postnr']);
$bynavn[$x] = stripslashes($r['bynavn']);
$email[$x] = trim($r['email']);
$betalingsbet[$x] = trim($r['betalingsbet']);
$betalingsdage[$x] = trim($r['betalingsdage']);
}
$kontoantal = $x;
$sum = 0;
for ($x = 1; $x <= $kontoantal; $x++) {
$amount = 0;
$udlignet = 1;
$rykkerbelob = 0;
$forfalden = 0;
$forfalden_plus8 = 0;
$forfalden_plus30 = 0;
$forfalden_plus60 = 0;
$forfalden_plus90 = 0;
$y = 0;
$faktnr = array();
$f = 0;
if ($art == 'D') {
$tmp = "";
} else {
$tmp = "desc";
}
# if ($fromdate && $todate) $q=db_select("select * from openpost where transdate>='$fromdate' and transdate<='$todate' and konto_id='$konto_id[$x]'",__FILE__ . " linje " . __LINE__);
# elseif ($todate) $q=db_select("select * from openpost where transdate<='$todate' and konto_id='$konto_id[$x]'",__FILE__ . " linje " . __LINE__);
# else $q=db_select("select * from openpost where konto_id='$konto_id[$x]'",__FILE__ . " linje " . __LINE__);
# if ($fromdate && $todate) $tekst="select * from openpost where transdate>='$fromdate' and transdate<='$todate' and konto_id='$konto_id[$x]' order by faktnr,amount $tmp";
if ($todate) {
$tekst = "select * from openpost where transdate<='{$todate}' and konto_id='{$konto_id[$x]}' order by faktnr,amount {$tmp}";
} else {
$tekst = "select * from openpost where konto_id='{$konto_id[$x]}' order by faktnr,amount {$tmp}";
}
$q = db_select("{$tekst}", __FILE__ . " linje " . __LINE__);
# if ($regnaar) $q=db_select("select * from openpost where konto_id=$id[$x] and transdate <= '$regnslut' order by faktnr,amount $tmp",__FILE__ . " linje " . __LINE__);
# else $q=db_select("select * from openpost where konto_id=$id[$x] and udlignet!='1' order by faktnr,amount $tmp",__FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
if ($r['udlignet'] != 1 || $r['transdate'] <= $todate && $r['udlign_date'] && $r['udlign_date'] > $todate) {
if ($r['faktnr'] && !in_array($r['faktnr'], $faktnr)) {
$f++;
$faktnr[$f] = $r['faktnr'];
$forfaldsdag = $r['forfaldsdate'];
} elseif (!$r['faktnr']) {
$forfaldsdag = $r['transdate'];
}
$oid = $r['id'];
$transdate = $r['transdate'];
if ($r['valuta']) {
$valuta = $r['valuta'];
} else {
$valuta = 'DKK';
}
if ($r['valutakurs']) {
$valutakurs = $r['valutakurs'];
} else {
$valutakurs = 100;
}
$udlignet = "0";
$amount = $r['amount'];
if ($amount > 0) {
$amount += 0.0001;
} else {
$amount -= 0.0001;
}
if (!$forfaldsdag && $art == 'D' && $amount < 0) {
$forfaldsdag = $r['transdate'];
} elseif (!$forfaldsdag && $art == 'K' && $amount > 0) {
$forfaldsdag = $r['transdate'];
} elseif (!$forfaldsdag) {
$forfaldsdag = $r['forfaldsdate'];
}
if ($r['faktnr'] && !$r['kladde_id'] && ($amount > 0 || $amount < 0 && strstr($r['beskrivelse'], "Lev. fakt")) && $r['refnr'] > 1) {
#rettet 20090715
if ($r2 = db_fetch_array(db_select("select betalingsbet, betalingsdage from ordrer where id='{$r['refnr']}' and fakturanr = '{$r['faktnr']}'", __FILE__ . " linje " . __LINE__))) {
$betalingsbet[$x] = trim($r2['betalingsbet']);
$betalingsdage[$x] = trim($r2['betalingsdage']);
$tmp = usdate(forfaldsdag($transdate, $betalingsbet[$x], $betalingsdage[$x]));
if ($tmp != $forfaldsdag) {
$forfaldsdag = $tmp;
db_modify("update openpost set forfaldsdate = '{$forfaldsdag}' where id='{$oid}'", __FILE__ . " linje " . __LINE__);
}
}
}
#elseif ()
$amount = $amount * $valutakurs / 100;
if ($amount > 0) {
$amount = round($amount + 0.0001, 2);
} else {
$amount = round($amount - 0.0001, 2);
}
### nedenstående er indført grundet en fejl i 2.0.3 som skrev forkert forfaldsdato i openpost og fjernet i 2.0.8.
# $tmp=usdate(forfaldsdag($transdate, $betalingsbet[$x], $betalingsdage[$x]));
# if ($tmp && !$forfaldsdag) db_modify("update openpost set forfaldsdate='$tmp' where id='$oid'",__FILE__ . " linje " . __LINE__);
# $forfaldsdag=$tmp;
################
$fakt_utid = strtotime($transdate);
$forf_utid = strtotime($forfaldsdag);
$dage = round(($forf_utid - $fakt_utid) / 86400, 0);
$forfaldsdag_plus8 = usdate(forfaldsdag($transdate, 'netto', $dage + 8));
$forfaldsdag_plus30 = usdate(forfaldsdag($transdate, 'netto', $dage + 30));
$forfaldsdag_plus60 = usdate(forfaldsdag($transdate, 'netto', $dage + 60));
$forfaldsdag_plus90 = usdate(forfaldsdag($transdate, 'netto', $dage + 90));
if ($forfaldsdag < $currentdate) {
$rykkerbelob = $rykkerbelob + $amount;
}
if ($forfaldsdag < $currentdate && $forfaldsdag_plus8 > $currentdate) {
$forfalden = $forfalden + $amount;
}
if ($forfaldsdag_plus8 <= $currentdate && $forfaldsdag_plus30 > $currentdate) {
$forfalden_plus8 = $forfalden_plus8 + $amount;
}
if ($forfaldsdag_plus30 <= $currentdate && $forfaldsdag_plus60 > $currentdate) {
$forfalden_plus30 = $forfalden_plus30 + $amount;
}
if ($forfaldsdag_plus60 <= $currentdate && $forfaldsdag_plus90 > $currentdate) {
$forfalden_plus60 = $forfalden_plus60 + $amount;
}
if ($forfaldsdag_plus90 <= $currentdate) {
$forfalden_plus90 = $forfalden_plus90 + $amount;
}
$y = $y + $amount;
}
}
$y > 0 ? $y = round($y + 0.0001, 2) : ($y = round($y - 0.0001, 2));
if ($y > 0.01 || $udlignet == "0") {
if ($linjebg != $bgcolor) {
$linjebg = $bgcolor;
$color = '#000000';
} elseif ($linjebg != $bgcolor5) {
$linjebg = $bgcolor5;
$color = '#000000';
}
$forfaldsum = $forfaldsum + $forfalden;
$forfaldsum_plus8 = $forfaldsum_plus8 + $forfalden_plus8;
$forfaldsum_plus30 = $forfaldsum_plus30 + $forfalden_plus30;
$forfaldsum_plus60 = $forfaldsum_plus60 + $forfalden_plus60;
$forfaldsum_plus90 = $forfaldsum_plus90 + $forfalden_plus90;
$sum = $sum + $y;
print "<tr bgcolor=\"{$linjebg}\">";
if ($popup) {
print "<td onClick=\"window.open('rapport.php?rapportart=kontokort&dato_fra={$dato_fra}&dato_til={$dato_til}&konto_fra={$kontonr[$x]}&konto_til={$kontonr[$x]}&submit=ok','kreditorrapport','{$jsvars}')\" onMouseOver=\"this.style.cursor = 'pointer'\"><a>";
} else {
print "<td><a href=rapport.php?rapportart=kontokort&kilde=openpost&kto_fra={$konto_fra}&kilde_kto_til={$konto_til}&dato_fra={$dato_fra}&dato_til={$dato_til}&konto_fra={$kontonr[$x]}&konto_til={$kontonr[$x]}&submit=ok>";
}
print "<span title='Klik for detaljer' style=\"text-decoration: underline;\">{$kontonr[$x]}</span></a></td>";
print "<td>{$firmanavn[$x]}</td>";
/*
if ($forfalden_plus90 != 0) $color="rgb(255, 0, 0)";
else $color="rgb(0, 0, 0)";
$tmp=dkdecimal($forfalden_plus90);
print "<td align=right><span style='color: $color;'>$tmp</span></td>";
if ($forfalden_plus60 != 0) $color="rgb(255, 0, 0)";
else $color="rgb(0, 0, 0)";
$tmp=dkdecimal($forfalden_plus60);
print "<td align=right><span style='color: $color;'>$tmp</span></td>";
if ($forfalden_plus60 != 0) $color="rgb(255, 0, 0)";
else $color="rgb(0, 0, 0)";
$tmp=dkdecimal($forfalden_plus30);
print "<td align=right><span style='color: $color;'>$tmp</span></td>";
if ($forfalden_plus30 != 0) $color="rgb(255, 0, 0)";
else $color="rgb(0, 0, 0)";
$tmp=dkdecimal($forfalden_plus8);
print "<td align=right><span style='color: $color;'>$tmp</span></td>";
if ($forfalden != 0) $color="rgb(255, 0, 0)";
else $color="rgb(0, 0, 0)";
$tmp=dkdecimal($forfalden);
*/
if ($art == 'D' && $forfalden_plus90 > 0 || $art == 'K' && $forfalden_plus90 < 0) {
$color = "rgb(255, 0, 0)";
} else {
$color = "rgb(0, 0, 0)";
}
$tmp = dkdecimal($forfalden_plus90);
print "<td align=right><span style='color: {$color};'>{$tmp}</span></td>";
if ($art == 'D' && $forfalden_plus60 > 0 || $art == 'K' && $forfalden_plus60 < 0) {
$color = "rgb(255, 0, 0)";
} else {
$color = "rgb(0, 0, 0)";
}
$tmp = dkdecimal($forfalden_plus60);
print "<td align=right><span style='color: {$color};'>{$tmp}</span></td>";
if ($art == 'D' && $forfalden_plus30 > 0 || $art == 'K' && $forfalden_plus30 < 0) {
$color = "rgb(255, 0, 0)";
} else {
$color = "rgb(0, 0, 0)";
}
$tmp = dkdecimal($forfalden_plus30);
print "<td align=right><span style='color: {$color};'>{$tmp}</span></td>";
if ($art == 'D' && $forfalden_plus8 > 0 || $art == 'K' && $forfalden_plus8 < 0) {
$color = "rgb(255, 0, 0)";
} else {
$color = "rgb(0, 0, 0)";
}
$tmp = dkdecimal($forfalden_plus8);
print "<td align=right><span style='color: {$color};'>{$tmp}</span></td>";
if ($art == 'D' && $forfalden > 0 || $art == 'K' && $forfalden < 0) {
$color = "rgb(255, 0, 0)";
} else {
$color = "rgb(0, 0, 0)";
}
$tmp = dkdecimal($forfalden);
print "<td align=right><span style='color: {$color};'>{$tmp}</span></td>";
$tmp = dkdecimal($y);
if (abs($y) < 0.01) {
print "<td align=right title=\"Klik her for at udligne åbne poster\"><a href=\"rapport.php?submit=ok&rapportart=openpost&dato_fra={$dato_fra}&dato_til={$dato_til}&konto_fra={$konto_fra}&konto_til={$konto_til}&udlign={$konto_id[$x]}\">{$tmp}</a></td>";
} else {
print "<td align=right>{$tmp}</td>";
}
if ($kontoudtog[$x] == 'on' && $art == "D") {
print "<td align=center><input type=checkbox name=kontoudtog[{$x}] checked>";
} elseif ($art == "D") {
print "<td align=center><input type=checkbox name=kontoudtog[{$x}]>";
}
print "</tr>\n";
}
print "<input type=hidden name=rykkerbelob[{$x}] value={$rykkerbelob}>";
}
print "<tr><td colspan=10><hr></td></tr>\n";
print "<tr><td><br></td><td>I alt</td>";
if ($forfaldsum_plus90 != 0) {
$color = "rgb(255, 0, 0)";
} else {
$color = "rgb(0, 0, 0)";
}
$tmp = dkdecimal($forfaldsum_plus90);
print "<td align=right><span style='color: {$color};'>{$tmp}</span></td>";
if ($forfaldsum_plus60 != 0) {
$color = "rgb(255, 0, 0)";
} else {
$color = "rgb(0, 0, 0)";
}
$tmp = dkdecimal($forfaldsum_plus60);
print "<td align=right><span style='color: {$color};'>{$tmp}</span></td>";
if ($forfaldsum_plus60 != 0) {
$color = "rgb(255, 0, 0)";
} else {
$color = "rgb(0, 0, 0)";
}
$tmp = dkdecimal($forfaldsum_plus30);
print "<td align=right><span style='color: {$color};'>{$tmp}</span></td>";
if ($forfaldsum_plus30 != 0) {
$color = "rgb(255, 0, 0)";
} else {
$color = "rgb(0, 0, 0)";
}
$tmp = dkdecimal($forfaldsum_plus8);
print "<td align=right><span style='color: {$color};'>{$tmp}</span></td>";
if ($forfaldsum != 0) {
$color = "rgb(255, 0, 0)";
} else {
$color = "rgb(0, 0, 0)";
}
$tmp = dkdecimal($forfaldsum);
print "<td align=right><span style='color: {$color};'>{$tmp}</span></td>";
$color = "rgb(0, 0, 0)";
$tmp = dkdecimal($sum);
print "<td align=right><span style='color: {$color};'>{$tmp}</span></td>";
print "<input type=hidden name=rapportart value=\"openpost\">";
print "<input type=hidden name=regnaar value={$regnaar}>";
print "<input type=hidden name=dato_fra value={$dato_fra}>";
print "<input type=hidden name=dato_til value={$dato_til}>";
print "<input type=hidden name=konto_fra value={$konto_fra}>";
print "<input type=hidden name=konto_til value={$konto_til}>";
print "<input type=hidden name=kontoantal value={$kontoantal}>";
if ($art == 'D') {
print "<tr><td colspan=10 align=center><span title=\"Klik her for at maile kontoudtog til de modtagere som er afmærket herover\"><input type=submit value=\"Mail kontoudtog\" name=\"submit\"></span> \n\t\t<span title='Klik her for at oprette rykker til de som er afmærkede herover'><input type=submit value=\"Opret rykker\" name=\"submit\"></span> \n\t\t<span onmouseover=\"return overlib('" . findtekst(242, $sprog_id) . "', WIDTH=800);\" onmouseout=\"return nd();\"><input type=submit value=\"Ryk alle\" name=\"submit\"></span></td></tr>\n";
}
print "</form>\n";
print "<tr><td colspan=10><hr></td></tr>\n";
print "</tbody></table>";
}
} else {
$dg_antal = $drg_antal;
}
$x = 0;
$y = 0;
$q = db_select("select * from grupper where art = 'DVRG' order by " . nr_cast(kodenr) . "", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$y++;
$vg_id[0][$y] = $r['id'];
$vg[0][$y] = $r['kodenr'];
$vgnavn[0][$y] = $r['box1'];
}
$vrg_antal = $y;
#if ($vrg_antal || $vgselfdef) $vrg_antal++;
if (!$vrg_antal) {
$q = db_select("select * from grupper where art = 'VG' order by " . nr_cast(kodenr) . "", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$y++;
$vg[0][$y] = $r['kodenr'];
$vgnavn[0][$y] = $r['beskrivelse'];
}
$vg_antal = $y;
} else {
$vg_antal = $vrg_antal;
}
$colspan = $vg_antal + 3;
$x = 0;
$y = 0;
$rabatantal = 0;
$q = db_select("select * from rabat order by debitor,vare", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
function bogfor($id, $webservice)
{
echo "<!--function bogfor start-->";
global $regnaar;
global $fakturadate;
global $valutakurs;
global $pbs;
global $mail_fakt;
global $db;
global $brugernavn;
global $momssats;
global $retur;
# $fp=fopen("../temp/ordrefunc.log","a");
# $linje="select * from ordrer where id = $id";
# fwrite($fp,$linje."\n");
$query = db_select("select * from ordrer where id = {$id}", __FILE__ . " linje " . __LINE__);
$row = db_fetch_array($query);
$konto_id = $row['konto_id'];
$ordredate = $row['ordredate'];
$levdate = $row['levdate'];
$fakturadate = $row['fakturadate'];
$nextfakt = $row['nextfakt'];
$art = $row['art'];
$kred_ord_id = $row['kred_ord_id'];
$valuta = $row['valuta'];
$art = $row['art'];
$fakturanr = $row['fakturanr'];
$procenttillag = $row['procenttillag'] * 1;
$momssats = $row['momssats'];
#cho $row['sum']." -> ".$row['moms']."<br>";
if ($art == 'PO') {
$sum = $row['sum'];
$moms = afrund($row['moms'], 2);
#cho "Moms $moms<br>";
$betaling = $row['felt_1'];
$betalt = $row['felt_2'];
$betaling2 = $row['felt_3'];
$betalt2 = $row['felt_4'];
$betalingsbet = $row['betalingsbet'];
if ($betalingsbet == 'Kontant') {
$konto_id = '0';
}
$r = db_fetch_array(db_select("select box2 from grupper where art='OreDif'", __FILE__ . " linje " . __LINE__));
$difkto = $r['box2'];
}
if ($row['status'] > '2') {
return "invoice allready created for order id {$id}";
}
#cho "procenttillag $procenttillag<br>";
if ($procenttillag) {
$sum = 0;
$q = db_select("select * from ordrelinjer where ordre_id='{$id}' order by posnr", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
if ($r['vare_id']) {
$linjesum = $r['antal'] * $r['pris'];
if ($r['rabat']) {
$linjesum -= $linjesum * $r['rabat'] / 100;
}
$linjesum -= $linjesum * (100 - $r['procent']) / 100;
$sum += $linjesum;
}
$posnr = $r['posnr'];
}
$posnr++;
$tillag = $sum / 100 * $procenttillag;
$qtxt = "select box13 from grupper where art = 'DIV' and kodenr = '3'";
#cho "$qtxt<br>";
$r = db_fetch_array(db_select($qtxt, __FILE__ . " linje " . __LINE__));
list($tmp, $procentvare) = explode(chr(9), $r['box13']);
#cho "box13 $r[box13] -> $procentvare<br>";
if ($procentvare) {
$qtxt = "select * from varer where varenr = '{$procentvare}'";
#cho "$qtxt<br>";
$r = db_fetch_array(db_select($qtxt, __FILE__ . " linje " . __LINE__));
if ($r['id']) {
#cho "$id,$r[varenr],1,$r[beskrivelse],$tillag,0,100,$art,'',$posnr,'','','on','percent',''<br>";
$tmp = str_replace('$procenttillæg;', $procenttillag, $r['beskrivelse']);
opret_ordrelinje($id, $r['id'], $r['varenr'], 1, $tmp, $tillag, 0, 100, $art, '', $posnr, '', '', 'on', 'percent', '');
#20140426
$r = db_fetch_array(db_select("select max(id) as linje_id from ordrelinjer where ordre_id='{$id}'", __FILE__ . " linje " . __LINE__));
db_modify("update ordrelinjer set leveres='1' where id='{$r['linje_id']}'", __FILE__ . " linje " . __LINE__);
levering($id, '', '', '');
$sum += $tillag;
#cho "update ordrer set sum=sum+$tillag, moms=moms+$tillag/100*$momssats where id = '$id'<br>";
db_modify("update ordrer set sum=sum+{$tillag}, moms=moms+{$tillag}/100*{$momssats} where id = '{$id}'", __FILE__ . " linje " . __LINE__);
#xit;
} else {
return 'Manglende vare til procenttillæg';
}
} else {
return 'Manglende vare til procenttillæg -- ' . $procentvare;
}
}
# $x=0;
# $saet=array();
$diff = 0;
$saetsum = 0;
$saetmoms = 0;
$q = db_select("select * from ordrelinjer where ordre_id='{$id}' order by saet", __FILE__ . " linje " . __LINE__);
$art == 'DO' ? $dan_kn = 1 : ($dan_kn = 0);
while ($r = db_fetch_array($q)) {
if ($r['vare_id'] && $r['antal'] >= 0) {
$dan_kn = 0;
}
# if ($r['saet'] && in_array($r['saet'],$saet) {
# $saetsum[$x]+=$r['pris']*$r['antal']-($r['pris']*$r['antal']*$r['rabat']/100);
# } elseif ($r['saet']) {
if ($r['saet']) {
$tmp = $r['pris'] * $r['antal'] - $r['pris'] * $r['antal'] * $r['rabat'] / 100;
$saetsum += $tmp;
if (!$r['momsfri'] && $momssats) {
$saetmoms += $tmp * $momssats / 100;
}
}
}
if ($saetsum) {
$r = db_fetch_array(db_select("select box2 from grupper where art='OreDif'", __FILE__ . " linje " . __LINE__));
$difkto = $r['box2'];
$tmp = afrund($saetsum + $saetmoms, 2);
$diff = $tmp - pos_afrund($tmp, $difkto);
# if (afrund($diff,2)) saet_afrund($id,$saetsum,$saetmoms,$difkto);
}
# $q=db_select("select * from ordrelinjer where ordre_id='$id' order by posnr",__FILE__ . " linje " . __LINE__);
# while ($r = db_fetch_array($q)) #cho "Ordrelinje $r[posnr] $r[ordre_id] $r[vare_id] $r[varenr] $r[beskrivelse] >$r[projekt]< $r[bogf_konto]<br>";
#xit;
$query = db_select("select box1, box2, box3, box4 from grupper where art='RA' and kodenr='{$regnaar}'", __FILE__ . " linje " . __LINE__);
if ($row = db_fetch_array($query)) {
$year = $row['box2'] * 1;
$month = $row['box1'] * 1;
#20130411-2
if ($month < 10) {
$month = "0" . $month;
}
#20130411-2
$aarstart = str_replace(" ", "", $year . $month);
$year = $row['box4'] * 1;
$month = $row['box3'] * 1;
if ($month < 10) {
$month = "0" . $month;
}
$aarslut = str_replace(" ", "", $year . $month);
}
$query = db_select("select * from ordrer where id = '{$id}'", __FILE__ . " linje " . __LINE__);
$row = db_fetch_array($query);
if (!$fakturadate) {
if ($webservice) {
return "missing invoicedate for order {$id}";
} else {
print "<meta http-equiv=\"refresh\" content=\"0;URL=../debitor/fakturadato.php?id={$id}&pbs={$pbs}&mail_fakt={$mail_fakt}&returside=bogfor.php\">";
exit;
}
}
if ($valuta && $valuta != 'DKK') {
if ($r = db_fetch_array(db_select("select valuta.kurs as kurs, grupper.box3 as difkto from valuta, grupper where grupper.art='VK' and grupper.box1='{$valuta}' and valuta.gruppe=" . nr_cast("grupper.kodenr") . " and valuta.valdate <= '{$fakturadate}' order by valuta.valdate desc", __FILE__ . " linje " . __LINE__))) {
$valutakurs = $r['kurs'] * 1;
$difkto = $r['difkto'] * 1;
if (!db_fetch_array(db_select("select id from kontoplan where kontonr='{$difkto}' and regnskabsaar='{$regnaar}'", __FILE__ . " linje " . __LINE__))) {
if ($webservice) {
return "Kontonr {$difkto} (kursdiff) eksisterer ikke";
} else {
return "Kontonr {$difkto} (kursdiff) eksisterer ikke";
}
}
} else {
$tmp = dkdato($fakturadate);
return "Der er ikke nogen valutakurs for {$valuta} den {$tmp} (fakturadatoen).";
}
} else {
$valuta = 'DKK';
$valutakurs = 100;
}
if (!$levdate) {
if ($webservice) {
return "Missing deliverydate";
} else {
return "Leveringsdato SKAL udfyldes";
}
}
if ($levdate < $ordredate) {
if ($webservice) {
return "Deliverydate prior to orderdate";
} else {
return "Leveringsdato er før ordredato";
}
}
if ($fakturadate < $levdate) {
if ($webservice) {
return "Invoicedate prior to orderdate";
} else {
return "Fakturadato er før leveringsdato";
}
}
if ($nextfakt && $nextfakt <= $fakturadate) {
if ($webservice) {
return "Next_invoicedate prior to invoicedate";
} else {
return "Genfaktureringsdato skal være efter fakturadato";
}
}
list($year, $month, $day) = explode('-', $fakturadate);
$year = trim($year);
$ym = $year . $month;
if ($art != 'PO' && !$webservice && ($ym < $aarstart || $ym > $aarslut)) {
print "<BODY onLoad=\"javascript:alert('Fakturadato udenfor regnskabsår')\">";
print "<meta http-equiv=\"refresh\" content=\"0;URL=ordre.php?id={$id}\">";
exit;
}
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=" . nr_cast("grupper.kodenr") . " and valuta.valdate <= '{$ordredate}' order by valuta.valdate desc", __FILE__ . " linje " . __LINE__))) {
$valutakurs = $r['kurs'];
} else {
$tmp = dkdato($ordredate);
return "Der er ikke nogen valutakurs for {$valuta} den {$ordredate} (ordredatoen)";
}
}
$qtxt = "select * from ordrelinjer where pris != '0' and m_rabat != '0' and rabat = '0' and ordre_id='{$id}'";
if ($r = db_fetch_array(db_select($qtxt, __FILE__ . " linje " . __LINE__))) {
$rabatkontonr = $r['bogf_konto'];
$rabatvareid = $r['id'];
$rabatvarenr = $r['varenr'];
if ($r = db_fetch_array(db_select("select box2 from grupper where art = 'DIV' and kodenr='3'", __FILE__ . " linje " . __LINE__))) {
if ($rabatvareid = $r['box2'] * 1) {
$r = db_fetch_array(db_select("select varenr from varer where id = '{$rabatvareid}'", __FILE__ . " linje " . __LINE__));
$rabatvarenr = $r['varenr'];
}
# else $fejl="Manglende varenummer for rabat (Indstillinger -> Diverse -> Ordrerelaterede valg)";
}
# else $fejl="Manglende varenummer for rabat (Indstillinger -> Diverse -> Ordrerelaterede valg)";
}
#exit;
if (!$fejl) {
#ransaktion("begin"); 20130506
if ($art != "PO") {
$fakturanr = 1;
# select max kan ikke bruges da fakturanr felt ikke er numerisk;
$q = db_select("select fakturanr from ordrer where art = 'DO' or art = 'DK'", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
if ($fakturanr <= $r['fakturanr'] * 1) {
$fakturanr = $r['fakturanr'] + 1;
}
}
$r = db_fetch_array(db_select("select box1 from grupper where art = 'RB' and kodenr='1'", __FILE__ . " linje " . __LINE__));
if ($fakturanr < $r['box1']) {
$fakturanr = $r['box1'];
}
if ($fakturanr < 1) {
$fakturanr = 1;
}
$ny_id = array();
$x = 0;
$q = db_select("select * from ordrelinjer where pris != '0' and m_rabat != '0' and rabat = '0' and ordre_id='{$id}'", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$x++;
$linje_id[$x] = $r['id'] * 1;
$linje_m_rabat[$x] = $r['m_rabat'];
$linje_pris[$x] = $r['pris'];
$linje_rabatart[$x] = $r['rabatart'];
$linje_varenr[$x] = $r['varenr'];
$linje_posnr[$x] = $r['posnr'];
}
$linjeantal = $x;
for ($x = 1; $x <= $linjeantal; $x++) {
$ny_id[$x] = copy_row("ordrelinjer", $linje_id[$x]);
$pris = $linje_m_rabat[$x];
$pris *= -1;
$rabatpct = afrund($linje_m_rabat[$x] * 100 / $linje_pris[$x], 2);
$linje_rabatart[$x] == 'amount' ? $beskrivelse = findtekst(466, $sprog_id) : ($beskrivelse = findtekst(467, $sprog_id));
$beskrivelse = str_replace('$rabatpct', $rabatpct, $beskrivelse);
#cho "update ordrelinjer set posnr=posnr+0.1,varenr='$rabatvarenr',vare_id='$rabatvareid',pris='$pris',kostpris='0',m_rabat='0',beskrivelse='$beskrivelse',bogf_konto='$rabatkontonr',kdo='on' where id=$ny_id[$x]<br>";
#exit;
db_modify("update ordrelinjer set posnr=posnr+0.1,varenr='{$rabatvarenr}',vare_id='{$rabatvareid}',pris='{$pris}',kostpris='0',m_rabat='0',beskrivelse='{$beskrivelse}',bogf_konto='{$rabatkontonr}',kdo='on' where id={$ny_id[$x]}", __FILE__ . " linje " . __LINE__);
$r = db_fetch_array(db_select("select * from ordrelinjer where id='{$ny_id[$x]}'", __FILE__ . " linje " . __LINE__));
#cho "$r[id],$r[ordre_id],$r[posnr],$r[varenr],$r[vare_id],$r[pris],$r[kostpris],$r[m_rabat],$r[beskrivelse],$r[bogf_konto]<br>--<br>";
}
} else {
# Så er det en POS ordre
#cho "$konto_id==0 && $sum+$moms=!$betalt<br>";
$diff = 0;
if ($betaling == 'Kontant' && !$betaling2) {
$tmp1 = afrund($sum + $moms, 2);
$tmp2 = pos_afrund($sum + $moms, $difkto);
if ($afrunding = $tmp2 - $tmp1) {
#cho "A $afrunding $tmp2-$tmp1<br>";
if ($moms) {
$afrundingsmoms = afrund($afrunding * ($moms * 100 / $sum) / 100, 2);
$afrunding = afrund($afrunding - $afrundingsmoms, 2);
$sum += $afrunding;
$moms += $afrundingsmoms;
}
#cho "A1 $afrunding $tmp2-$tmp1<br>";
# $diff=1;
$diff = $afrunding;
}
}
if (afrund($sum + $moms, 2) + $retur != $betalt) {
#20140613
$returdiff = afrund($sum + $moms, 2) + $retur - $betalt;
if (afrund($returdiff, 2) == 0.01) {
$moms = $moms - 0.01;
} elseif (afrund($returdiff, 2) == -0.01) {
$moms = $moms + 0.01;
}
db_modify("update ordrer set sum = '{$sum}',moms='{$moms}' where id = '{$id}'", __FILE__ . " linje " . __LINE__);
}
$a = afrund($sum + $moms, 2);
#20131111 + næste 3 linjer rettet grundet php fejl??
$b = afrund($betalt + $betalt2, 2);
if ($konto_id == 0 && $a != $b) {
# $retur=$a-$b; Hentes fra global.
$tmp2 = afrund($retur, 2);
$tmp1 = pos_afrund($retur, $difkto);
#cho "B $afrunding $tmp2-$tmp1<br>";
if ($afrunding = afrund($tmp2 - $tmp1, 2)) {
#cho "B $afrunding $tmp2-$tmp1<br>";
if ($moms) {
$afrundingsmoms = afrund($afrunding * ($moms * 100 / $sum) / 100, 2);
$afrunding = afrund($afrunding - $afrundingsmoms, 2);
$sum += $afrunding;
$moms += $afrundingsmoms;
}
$diff += $afrunding;
}
}
#xit;
#cho "DK $difkto && DI $diff && AF $afrunding Moms $moms<br>";
$diff = afrund($diff, 2);
#20140613
if ($difkto && $diff) {
$linje_posnr[$x] += 0.1;
# #cho "POI insert into ordrelinjer (posnr,antal,pris,rabat,procent,ordre_id,bogf_konto,beskrivelse,projekt) values ('0','1', '$diff', 0,100, '$id', '$difkto','Afrunding','$projekt')<br>";
db_modify("insert into ordrelinjer (posnr,antal,pris,rabat,procent,ordre_id,bogf_konto,beskrivelse,projekt) values ('0','1', '{$diff}', 0,100, '{$id}', '{$difkto}','Afrunding','{$projekt}')", __FILE__ . " linje " . __LINE__);
db_modify("update ordrer set sum = '{$sum}',moms='{$moms}' where id = '{$id}'", __FILE__ . " linje " . __LINE__);
}
}
#cho "A select * from ordrer where id='$id'<br>";
$q = db_select("select * from ordrer where id='{$id}'", __FILE__ . " linje " . __LINE__);
$r = db_fetch_array($q);
#cho "Sum $r[sum] $r[moms]<br>";
batch_kob($id, $art);
#cho "B select * from ordrer where id='$id'<br>";
$q = db_select("select * from ordrer where id='{$id}'", __FILE__ . " linje " . __LINE__);
$r = db_fetch_array($q);
#cho "Sum $r[sum] $r[moms]<br>";
batch_salg($id);
#cho "D select * from ordrer where id='$id'<br>";
$q = db_select("select * from ordrer where id='{$id}'", __FILE__ . " linje " . __LINE__);
$r = db_fetch_array($q);
#cho "Sum $r[sum] $r[moms]<br>";
#cho "update ordrer set status=3, fakturanr=$fakturanr, valutakurs=$valutakurs where id=$id<br>";
$tidspkt = date("H:i");
db_modify("update ordrer set status='3', fakturanr='{$fakturanr}', tidspkt='{$tidspkt}', valutakurs='{$valutakurs}' where id='{$id}'", __FILE__ . " linje " . __LINE__);
if ($afd) {
db_modify("update ordrer set felt_5='{$afd}' where id='{$id}'", __FILE__ . " linje " . __LINE__);
}
$r = db_fetch_array(db_select("select box5 from grupper where art='DIV' and kodenr='3'", __FILE__ . " linje " . __LINE__));
$straksbogfor = $r['box5'];
$svar = momsupdat($id);
if ($art == 'PO' && !$konto_id) {
$r = db_fetch_array(db_select("select box9 from grupper where art='POS' and kodenr='1'", __FILE__ . " linje " . __LINE__));
$straksbogfor = $r['box9'];
}
#$linje="Straksbogfor $straksbogfor ($id,$webservice)<br>";
#fwrite($fp,$linje."\n");
if ($dan_kn) {
db_modify("update ordrer set art = 'DK' where id = '{$id}'", __FILE__ . " linje " . __LINE__);
}
if ($straksbogfor) {
$svar = bogfor_nu($id, $webservice);
}
#$linje="Svar $svar<br>";
#fwrite($fp,$linje."\n");
if ($svar != "OK") {
return $svar;
exit;
} else {
# exit;
#ransaktion("commit"); 20130506
}
} elseif (!$svar) {
$svar = $fejl;
}
echo "<!--function bogfor s**t-->";
return $svar;
}
function varegruppe($date_from, $date_to, $varenr, $varenavn, $varegruppe, $detaljer, $vk_kost, $afd)
{
# global $connection;
global $top_bund;
global $md;
global $returside;
global $jsvars;
if ($detaljer) {
$cols = 9;
} else {
$cols = 11;
}
list($gruppenr, $tmp) = explode(":", $varegruppe);
# if ($returside) $luk= "<a accesskey=L href=\"$returside\">";
# else
$luk = "<a accesskey=L href=\"rapport.php?varegruppe={$varegruppe}&afd={$afd}&date_from={$date_from}&date_to={$date_to}&varenr={$varenr}&varenavn={$varenavn}&detaljer={$detaljer}\">";
print "<table width = 100% cellpadding=\"1\" cellspacing=\"1\" border=\"0\"><tbody>";
print "<tr><td colspan=\"{$cols}\" height=\"9\">";
print "<table width=\"100%\" align=\"center\" border=\"0\" cellspacing=\"3\" cellpadding=\"0\"><tbody>";
#B
print "<td width=\"10%\" {$top_bund}>{$luk} Luk</a></td>";
print "<td width=\"80%\" {$top_bund}>Rapport - varesalg";
if ($afd) {
$r = db_fetch_array(db_select("select beskrivelse from grupper where art = 'AFD' and kodenr = '{$afd}'", __FILE__ . " linje " . __LINE__));
print " - afd {$afd} {$r['beskrivelse']}";
}
print "</td>";
print "<td width=\"10%\" {$top_bund}><br></td>";
print "</tbody></table>";
#B s**t
print "</td></tr>";
$lagergruppe = array();
if ($gruppenr) {
$qtxt = "select box8,box9 from grupper where kodenr ='{$gruppenr}' and art='VG'";
$r = db_fetch_array(db_select($qtxt, __FILE__ . " linje " . __LINE__));
$batch_kontrol = $r['box9'];
if ($r['box8'] == 'on') {
$lagergruppe[0] = $gruppenr;
}
} else {
$x = 0;
$qtxt = "select kodenr,box8,box9 from grupper where art='VG' order by kodenr";
$q = db_select($qtxt, __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
if ($r['box8'] == 'on') {
$lagergruppe[$x] = $r['kodenr'];
$x++;
}
}
}
$antal = 0;
$k_antal = 0;
$s_antal = 0;
$kontonr = array();
$x = 0;
$tmp = "";
if ($gruppenr) {
$tmp = "where " . nr_cast(gruppe) . "={$gruppenr}";
}
if ($varenr && $varenr != '*') {
if (strstr($varenr, "*")) {
if (substr($varenr, 0, 1) == '*') {
$varenr = "%" . substr($varenr, 1);
}
if (substr($varenr, -1, 1) == '*') {
$varenr = substr($varenr, 0, strlen($varenr) - 1) . "%";
}
}
$low = strtolower($varenr);
$upp = strtoupper($varenr);
if ($tmp) {
$tmp .= " and (varenr LIKE '" . db_escape_string($varenr) . "' or lower(varenr) LIKE '" . db_escape_string($low) . "' or upper(varenr) LIKE '" . db_escape_string($upp) . "')";
} else {
$tmp = "where (varenr LIKE '" . db_escape_string($varenr) . "' or lower(varenr) LIKE '" . db_escape_string($low) . "' or upper(varenr) LIKE '" . db_escape_string($upp) . "')";
}
}
if ($varenavn && $varenavn != '*') {
if (strstr($varenavn, "*")) {
if (substr($varenavn, 0, 1) == '*') {
$varenavn = "%" . substr($varenavn, 1);
}
if (substr($varenavn, -1, 1) == '*') {
$varenavn = substr($varenavn, 0, strlen($varenavn) - 1) . "%";
}
}
$low = strtolower($varenavn);
$upp = strtoupper($varenavn);
if ($tmp) {
$tmp .= " and (beskrivelse LIKE '" . db_escape_string($varenavn) . "' or lower(beskrivelse) LIKE '" . db_escape_string($low) . "' or upper(beskrivelse) LIKE '" . db_escape_string($upp) . "')";
} else {
$tmp = "where (beskrivelse LIKE '" . db_escape_string($varenavn) . "' or lower(beskrivelse) LIKE '" . db_escape_string($low) . "' or upper(beskrivelse) LIKE '" . db_escape_string($upp) . "')";
}
}
$qtxt = "select id,gruppe,samlevare from varer {$tmp} order by beskrivelse";
$x = 0;
$query = db_select("{$qtxt}", __FILE__ . " linje " . __LINE__);
while ($row = db_fetch_array($query)) {
if (!$row['samlevare'] || in_array($row['gruppe'], $lagergruppe)) {
#20151105
$x++;
$vare_id[$x] = $row['id'];
}
#cho "A $vare_id[$x]<br>";
}
$v_id = array();
$x = 0;
# finder alle konti med bevaegelser i den anfoerte periode eller aabne poster fra foer perioden
$qtxt = "select batch_salg.vare_id,batch_salg.pris from batch_salg,varer";
if ($afd) {
$qtxt .= ",ordrer";
}
$qtxt .= " where batch_salg.fakturadate>='{$date_from}' and batch_salg.fakturadate<='{$date_to}' and batch_salg.vare_id = varer.id";
if ($afd) {
$qtxt .= " and batch_salg.ordre_id = ordrer.id and ordrer.afd='{$afd}'";
}
$qtxt .= " order by varer.beskrivelse";
$query = db_select($qtxt, __FILE__ . " linje " . __LINE__);
while ($row = db_fetch_array($query)) {
if (in_array(trim($row['vare_id']), $vare_id) && !in_array(trim($row['vare_id']), $v_id)) {
$x++;
$v_id[$x] = trim($row['vare_id']);
#cho "B $v_id[$x]<br>";
}
}
#cho "select vare_id, pris from batch_kob where fakturadate>='$date_from' and fakturadate<='$date_to' order by vare_id<br>";
$query = db_select("select batch_kob.vare_id,batch_kob.pris from batch_kob,varer where batch_kob.fakturadate>='{$date_from}' and batch_kob.fakturadate<='{$date_to}' and batch_kob.vare_id = varer.id order by varer.beskrivelse", __FILE__ . " linje " . __LINE__);
while ($row = db_fetch_array($query)) {
if (in_array(trim($row['vare_id']), $vare_id) && !in_array(trim($row['vare_id']), $v_id)) {
$x++;
$v_id[$x] = trim($row['vare_id']);
}
}
$vareantal = $x;
# print "<tr><td colspan=8><hr></td></tr>";
# print "<tr><td width=10%> Dato</td><td width=10%> Bilag</td><td width=50%> Tekst</td><td width=10% align=right> Debet</td><td width=10% align=right> Kredit</td><td width=10% align=right> Saldo</td></tr>";
if (!$detaljer) {
print "<tr><td><b>Varenr.</b></td>\n\t\t\t\t<td><b>Enhed</b></td>\n\t\t\t\t<td><b>Beskrivelse</b></td>\n\t\t\t\t<td align=\"right\"><b>Købt</b></td>\n\t\t\t\t<td align=\"right\"><b>Købspris</b></td>\n\t\t\t\t<td align=\"right\"><b>Solgt</b></td>\n\t\t\t\t<td align=\"right\"><b>Salgspris</b></td>\n\t\t\t\t<td align=\"right\"><b>Reguleret</b></td>\n\t\t\t\t<td align=\"right\"><b>DB</b></td>\n\t\t\t\t<td align=\"right\"><b>DG</b></td>\n\t\t\t\t<td align=\"right\"><b>Til- / afgang</b></td></tr>";
}
$tt_kobt = 0;
$tt_solgt = 0;
$tt_regul = 0;
$tt_k_pris = 0;
$tt_s_pris = 0;
$tt_kost = 0;
$tt_db = 0;
$varenr = array();
$enhed = array();
$beskrivelse = array();
for ($x = 1; $x <= $vareantal; $x++) {
$r = db_fetch_array(db_select("select * from varer where id={$v_id[$x]}", __FILE__ . " linje " . __LINE__));
$varenr[$x] = $r['varenr'];
$enhed[$x] = $r['enhed'];
$beskrivelse[$x] = $r['beskrivelse'];
$v_kostpris[$x] = $r['kostpris'];
$samlevare[$x] = $r['samlevare'];
}
for ($x = 1; $x <= $vareantal; $x++) {
$y = 0;
$fakturadate = array();
$bk_id = array();
$linje_id = array();
$k_ordre_id = array();
$k_antal = array();
$pris = array();
$t_kobt = 0;
$t_regul = 0;
$t_k_pris = 0;
$t_moms = 0;
$qtxt = "select * from batch_kob where vare_id='{$v_id[$x]}' order by fakturadate,ordre_id";
$q = db_select($qtxt, __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$ok = 1;
if ($r['fakturadate'] && $r['fakturadate'] <= $date_to && $r['fakturadate'] >= $date_from) {
$bk_id[$y] = $r['id'];
$linje_id[$y] = $r['linje_id'];
$fakturadate[$y] = $r['fakturadate'];
$k_ordre_id[$y] = $r['ordre_id'];
if ($vk_kost) {
$k_antal[$y] = $r['antal'];
$pris[$y] = $v_kostpris;
} else {
$k_antal[$y] = $r['antal'];
$pris[$y] = $r['pris'];
}
if ($linje_id[$y]) {
$qtxt = "select momssats,momsfri,omvbet from ordrelinjer where id='{$linje_id[$y]}'";
if ($r1 = db_fetch_array(db_select($qtxt, __FILE__ . " linje " . __LINE__))) {
$momssats[$y] = $r1['momssats'];
$momsfri[$y] = $r1['momsfri'];
$omvbet[$y] = $r1['omvbet'];
if ($momsfri[$y] || $omvbet[$y]) {
$moms[$y] = 0;
} elseif ($momssats[$y] == '') {
$momssats[$y] = find_varemomssats($linje_id[$y]);
} else {
$moms[$y] = $pris[$y] / 100 * $momssats[$y];
}
} else {
$ok = 0;
}
} else {
if (!$k_ordre_id[$y]) {
$t_regul += $k_antal[$y];
$tt_regul += $k_antal[$y];
}
$ok = 0;
}
if ($ok) {
$t_kobt += $k_antal[$y];
$t_k_pris += $pris[$y] * $k_antal[$y];
$tt_kobt += $k_antal[$y];
$tt_k_pris += $pris[$y] * $k_antal[$y];
$t_moms += $moms[$y];
}
$y++;
} else {
# if ($r['ordre_id']) $tt_kobt=$r['antal'];
# else $tt_regul+=$r['antal'];
}
}
if ($detaljer) {
print "<tr><td colspan=\"{$cols}\"><hr></td></tr>";
print "<tr><td><br></td></tr>";
print "<tr><td><br></td></tr>";
print "<tr><td colspan=\"3\">{$varenr[$x]}</td></tr>";
print "<tr><td colspan=\"3\">{$enhed[$x]}</td></tr>";
print "<tr><td colspan=\"3\">{$beskrivelse[$x]}</td></tr>";
print "<tr><td><br></td></tr>";
print "<tr><td>Købsdato</td><td align=\"right\">Antal</td><td align=\"right\">Pris</td><td align=\"right\">Moms</td><td align=\"right\">Incl. moms</td><td align=\"right\">Ordre</td></tr>";
print "<tr><td colspan=\"{$cols}\"><hr></td></tr>";
for ($y = 0; $y < count($k_antal); $y++) {
if ($k_ordre_id[$y]) {
if ($detaljer) {
print "<tr><td>" . dkdato($fakturadate[$y]) . "</td><td align=\"right\">" . dkdecimal($k_antal[$y], 2) . "</td>";
}
$linjepris = $pris[$y] * $k_antal[$y];
$kobssum += $t_kobt;
print "<td align=\"right\">" . dkdecimal($pris[$y], 2) . "</td><td align=\"right\">" . dkdecimal($moms[$y], 2) . "</td><td align=\"right\">" . dkdecimal($pris[$y] + $moms[$y], 2) . "</td>";
print "<td align=right onClick=\"javascript:k_ordre=window.open('../kreditor/ordre.php?id={$k_ordre_id[$y]}&returside=../includes/luk.php','k_ordre','width=800,height=400,{$jsvars}')\"> <u>Se</u></td></tr>";
}
}
print "<tr><td colspan=\"{$cols}\"><hr></td></tr>";
print "<tr><td></td><td align=\"right\"><b>" . dkdecimal($t_kobt, 2) . "</b></td><td align=\"right\"><b>" . dkdecimal($t_k_pris, 2) . "</b></td><td align=\"right\"><b>" . dkdecimal($t_moms, 2) . "</b></td><td align=\"right\"><b>" . dkdecimal($t_k_pris + $t_moms, 2) . "</b></td></tr>";
print "<tr><td colspan=\"{$cols}\"><hr></td></tr>";
}
$fakturadate = array();
$bs_id = array();
$linje_id = array();
$s_ordre_id = array();
$s_antal = array();
$pris = array();
$t_solgt = 0;
# $t_regul=0;
$t_s_pris = 0;
$t_kost = 0;
$t_moms = 0;
$t_db = 0;
$y = 0;
$qtxt = "select * from batch_salg";
if ($afd) {
$qtxt .= ",ordrer";
}
$qtxt .= " where batch_salg.vare_id='{$v_id[$x]}'";
if ($afd) {
$qtxt .= " and batch_salg.ordre_id=ordrer.id and ordrer.afd={$afd}";
}
$qtxt .= " order by batch_salg.fakturadate";
$q = db_select($qtxt, __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$ok = 1;
if ($r['fakturadate'] && $r['fakturadate'] <= $date_to && $r['fakturadate'] >= $date_from) {
$bs_id[$y] = $r['id'];
$fakturadate[$y] = $r['fakturadate'];
$s_antal[$y] = $r['antal'];
$pris[$y] = $r['pris'];
$s_ordre_id[$y] = $r['ordre_id'];
$linje_id[$y] = $r['linje_id'];
if ($linje_id[$y]) {
if ($r1 = db_fetch_array(db_select("select ordrelinjer.id,ordrelinjer.kostpris,ordrelinjer.momssats,ordrelinjer.momsfri,ordrelinjer.omvbet from ordrelinjer where ordrelinjer.id='{$linje_id[$y]}'", __FILE__ . " linje " . __LINE__))) {
if ($vk_kost) {
$kostpris[$y] = $v_kostpris;
} else {
$kostpris[$y] = $r1['kostpris'];
}
$momssats[$y] = $r1['momssats'];
$momsfri[$y] = $r1['momsfri'];
$omvbet[$y] = $r1['omvbet'];
if ($momsfri[$y] || $omvbet[$y]) {
$moms[$y] = 0;
} elseif ($momssats[$y] == '') {
$momssats[$y] = find_varemomssats($linje_id[$y]);
} else {
$moms[$y] = $pris[$y] / 100 * $momssats[$y];
}
} else {
$ok = 0;
}
list($koordpr, $koordnr, $koordant, $koordid, $koordart) = explode(chr(9), find_kostpris($v_id[$x], $linje_id[$y]));
$kobs_ordre_pris = explode(",", $koordpr);
$ko_ant[$y] = count($kobs_ordre_pris);
$kobs_ordre_id = explode(",", $koordid);
$kobs_ordre_antal = explode(",", $koordant);
$kobs_ordre_art = explode(",", $koordart);
#20151210 ->
if ($ko_ant[$y]) {
$kostpris[$y] = 0;
for ($z = 0; $z < $ko_ant[$y]; $z++) {
$kostpris[$y] += $kobs_ordre_pris[$z];
}
$kostpris[$y] /= $ko_ant[$y];
} elseif ($vk_kost) {
$kostpris[$y] = $v_kostpris;
}
} else {
$ok = 0;
}
if ($ok) {
#<- 20151210
if ($s_ordre_id[$y]) {
$t_solgt += $s_antal[$y];
$t_s_pris += $pris[$y] * $s_antal[$y];
$tt_solgt += $s_antal[$y];
$tt_s_pris += $pris[$y] * $s_antal[$y];
$t_moms += $moms[$y] * $s_antal[$y];
$t_kost += $kostpris[$y] * $s_antal[$y];
$tt_kost += $kostpris[$y] * $s_antal[$y];
$db[$y] = $pris[$y] - $kostpris[$y];
$t_db += $db[$y] * $s_antal[$y];
$tt_db += $db[$y] * $s_antal[$y];
if ($s_antal[$y] < 0) {
$db[$y] *= -1;
}
# 20160201 # Flyttet under sammentælling
if ($pris[$y] != 0) {
$dg[$y] = $db[$y] * 100 / $pris[$y];
} else {
$dg[$y] = 0;
}
} else {
$t_regul += $s_antal[$y];
$tt_regul += $s_antal[$y];
}
}
$y++;
} else {
# if ($r['ordre_id']) $tt_solgt+=$r['antal'];
# else $tt_regul+=$r['antal'];
}
}
if ($t_s_pris && $t_db) {
$t_dg = $t_db * 100 / $t_s_pris;
} else {
$t_dg = 100;
}
if ($detaljer) {
print "<tr><td>Salgsdato</td><td align=\"right\">Antal</td><td align=\"right\">Pris</td><td align=\"right\">Moms</td><td align=\"right\">Incl.moms</td><td align=\"right\">Kostpris</td><td align=\"right\">DB</td><td align=\"right\">DG</td><td align=\"right\">Ordre</td></tr>";
for ($y = 0; $y < count($linje_id); $y++) {
if ($s_ordre_id[$y]) {
print "<tr><td>" . dkdato($fakturadate[$y]) . "</td><td align=right>" . dkdecimal($s_antal[$y], 2) . "</td>";
print "<td align=right>" . dkdecimal($pris[$y], 2) . "</td>";
print "<td align=right>" . dkdecimal($moms[$y], 2) . "</td>";
print "<td align=right>" . dkdecimal($pris[$y] + $moms[$y], 2) . "</td>";
print "<td align=right>" . dkdecimal($kostpris[$y], 2) . "</td>";
print "<td align=right>" . dkdecimal($db[$y], 2) . "</td>";
print "<td align=right> " . dkdecimal($dg[$y], 2) . "%</td>";
print "<td align=right onClick=\"javascript:s_ordre=window.open('../debitor/ordre.php?id={$s_ordre_id[$y]}&returside=../includes/luk.php','s_ordre','width=800,height=400,{$jsvars}')\"> <u>Se</u></td></tr>";
}
}
print "<tr><td colspan=\"{$cols}\"><hr></td></tr>";
print "<tr><td></td>";
print "<td align=right> <b>" . dkdecimal($t_solgt, 2) . "</b></td>";
print "<td align=right> <b>" . dkdecimal($t_s_pris, 2) . "</b></td>";
print "<td align=right> <b>" . dkdecimal($t_moms, 2) . "</b></td>";
print "<td align=right> <b>" . dkdecimal($t_s_pris + $t_moms, 2) . "</b></td>";
print "<td align=right> <b>" . dkdecimal($t_kost, 2) . "</b></td>";
print "<td align=right> <b>" . dkdecimal($t_db, 2) . "</b></td>";
print "<td align=right> <b>" . dkdecimal($t_dg, 2) . "%</b></td></tr>";
print "<tr><td colspan=\"{$cols}\"><hr></td></tr>";
print "<tr><td>Lagerreguleret</td><td align=\"right\">Antal</td></tr>";
for ($y = 0; $y < count($bk_id); $y++) {
if (!$k_ordre_id[$y]) {
print "<tr><td>" . dkdato($fakturadate[$y]) . "</td><td align=right>" . dkdecimal($k_antal[$y], 2) . "</td></tr>";
}
}
for ($y = 0; $y < count($bs_id); $y++) {
if (!$s_ordre_id[$y]) {
print "<tr><td>" . dkdato($fakturadate[$y]) . "</td><td align=right>-" . dkdecimal($s_antal[$y], 2) . "</td></tr>";
#20160418
}
}
print "<tr><td colspan=\"{$cols}\"><hr></td></tr>";
print "<tr><td>Samlet til-/afgang i perioden</td><td align=right> <b>" . dkdecimal($t_kobt + $t_regul - $t_solgt, 2) . "</b></td><tr>";
#20151105
} else {
print "<tr><td>{$varenr[$x]}</td>";
print "<td>{$enhed[$x]}</td>";
print "<td>{$beskrivelse[$x]}</td>";
print "<td align=right>" . dkdecimal($t_kobt, 2) . "</td>";
print "<td align=right>" . dkdecimal($t_k_pris, 2) . "</td>";
print "<td align=right>" . dkdecimal($t_solgt, 2) . "</td>";
print "<td align=right>" . dkdecimal($t_s_pris, 2) . "</td>";
print "<td align=right>" . dkdecimal($t_regul, 2) . "</td>";
print "<td align=right>" . dkdecimal($t_db, 2) . "</td>";
print "<td align=right>" . dkdecimal($t_dg, 2) . "%</td>";
print "<td align=right>" . dkdecimal($t_kobt + $t_regul - $t_solgt, 2) . "</td><tr>";
#20151105
}
if ($detaljer) {
print "<tr><td colspan=\"{$cols}\"><hr></td></tr>";
}
}
if (!$detaljer) {
if ($tt_s_pris && $tt_db) {
$tt_dg = $tt_db * 100 / $tt_s_pris;
} else {
$tt_dg = 100;
}
print "<tr><td colspan=\"{$cols}\"><hr></td></tr>";
print "<tr><td Colspan=\"3\"><b>Summeret</b></td>\n\t\t\t\t<td align=\"right\">Købt</td>\n\t\t\t\t<td align=\"right\">Købspris</td>\n\t\t\t\t<td align=\"right\">Solgt</td>\n\t\t\t\t<td align=\"right\">Salgspris</td>\n\t\t\t\t<td align=\"right\">Reguleret</td>\n\t\t\t\t<td align=\"right\">DB</td>\n\t\t\t\t<td align=\"right\">DG</td>\n\t\t\t\t<td align=\"right\">Samlet til-/afgang i perioden</td></tr>";
print "<tr><td>{$varenr[$x]}</td>";
print "<td>{$enhed[$x]}</td>";
print "<td>{$beskrivelse[$x]}</td>";
print "<td align=right> <b>" . dkdecimal($tt_kobt, 2) . "</b></td>";
print "<td align=right> <b>" . dkdecimal($tt_k_pris, 2) . "</b></td>";
print "<td align=right> <b>" . dkdecimal($tt_solgt, 2) . "</b></td>";
print "<td align=right> <b>" . dkdecimal($tt_s_pris, 2) . "</b></td>";
print "<td align=right> <b>" . dkdecimal($tt_regul, 2) . "</b></td>";
print "<td align=right> <b>" . dkdecimal($tt_db, 2) . "</b></td>";
print "<td align=right> <b>" . dkdecimal($tt_dg, 2) . "%</b></td>";
print "<td align=right><b>" . dkdecimal($tt_kobt + $tt_regul - $tt_solgt, 2) . "</b></td><tr>";
}
/*
print "<tr><td colspan=9><hr></td></tr>";
print "<tr><td></td><td></td><td></td><td align=\"right\"><b>";
print dkdecimal($t_solgt);
# print "</b></td><td align=right> <b>".dkdecimal($talkob)."</b></td>";
print "<td align=right> <b>".dkdecimal($t_s_pris)."</b></td>";
print "<td align=right> <b>".dkdecimal($t_moms)."</b></td>";
print "<td align=right> <b>".dkdecimal($t_s_pris+$t_moms)."</b></td>";
$db[$y]=$t_s_pris-$t_kost;
print "<td align=right> <b>".dkdecimal($t_db)."</b></td>";
if ($tsalg!=0) {$dg[$y]=$db[$y]*100/$talsalg;}
else {$dg[$y]=100;}
print "<td align=right> <b>".dkdecimal($dg[$y])."</b></td></tr>";
print "<tr><td colspan=8><hr></td></tr>";
*/
print "</tbody></table>";
}
$art = $r['art'];
$rykkerdate = $r['rykkerdate'];
$deb_valuta = $r['valuta'];
if (!$valuta) {
$valuta = 'DKK';
}
if ($art == 'R2') {
$formular = 7;
} elseif ($art == 'R3') {
$formular = 8;
}
$form_nr[$mailantal] = $formular;
if (!$formularsprog) {
$formularsprog = "dansk";
}
if ($r2 = db_fetch_array(db_select("select kurs from grupper, valuta where grupper.art='VK' and grupper.box1='{$deb_valuta}' and valuta.gruppe = " . nr_cast("grupper.kodenr") . " and valuta.valdate <= '{$rykkerdate}' order by valuta.valdate desc", __FILE__ . " linje " . __LINE__))) {
$deb_valutakurs = $r2['kurs'];
}
$x = 0;
$sum = 0;
$momssum = 0;
$tmp = 0;
$y = $ya;
$forfalden = 0;
$dkkforfalden = 0;
$amount = 0;
$q1 = db_select("select serienr as forfaldsdato, beskrivelse, pris as amount, enhed as openpost_id from ordrelinjer where ordre_id = '{$rykker_id[$q]}' order by serienr,varenr desc", __FILE__ . " linje " . __LINE__);
while ($r1 = db_fetch_array($q1)) {
if ($r1['openpost_id']) {
if ($r2 = db_fetch_array(db_select("select faktnr, amount, valuta, valutakurs, transdate from openpost where id = '{$r1['openpost_id']}'", __FILE__ . " linje " . __LINE__))) {
$r1['faktnr'] = $r2['faktnr'];
function hentordrer($kladde_id)
{
global $regnaar;
global $connection;
global $aarstart;
global $aarslut;
global $bgcolor;
global $bgcolor2;
$ksnr = array();
if (!$aarstart) {
$query = db_select("select box1, box2, box3, box4 from grupper where art='RA' and kodenr='{$regnaar}'", __FILE__ . " linje " . __LINE__);
if ($row = db_fetch_array($query)) {
$year = trim($row['box2']);
$aarstart = trim($year . $row['box1']);
$year = trim($row['box4']);
$aarslut = trim($year . $row['box3']);
}
}
$x = 0;
$ks = 0;
print "<tr><td align=center><table border=1 cellspacing=0 cellpadding=0 width=80%><tbody>";
print "<tr><td>Dato</td><td>Beskrivelse</td><td><br></td><td>Debet</td><td><br></td><td>Kredit</td><td>Fakturanr</td>\n\t\t<td align=center>Beløb</td><td align=center>Valuta</td><td align=center><a href=hentordrer.php?kladde_id={$kladde_id}&flyt=alle>Flyt alle</a></td></tr>";
$query = db_select("select * from ordrer where status=3 order by fakturadate,fakturanr", __FILE__ . " linje " . __LINE__);
while ($row = db_fetch_array($query)) {
$x++;
$id[$x] = $row['id'];
$art[$x] = $row['art'];
$konto_id[$x] = $row['konto_id'] * 1;
$kontonr[$x] = trim($row['kontonr']);
if (!in_array($kontonr[$x], $ksnr)) {
$ks++;
$ksnr[$ks] = $kontonr[$x];
}
$firmanavn[$x] = trim($row['firmanavn']);
$fakturadato[$x] = dkdato($row['fakturadate']);
$fakturanr[$x] = trim($row['fakturanr']);
$valuta[$x] = trim($row['valuta']);
if ($valuta[$x]) {
$valutakurs[$x] = $row['valutakurs'] * 1;
} else {
$valutakurs[$x] = 100;
$valuta[$x] = 'DKK';
}
$moms[$x] = $row['moms'] * 1;
$sum[$x] = $row['sum'] + $moms[$x];
if (!$konto_id[$x]) {
$firmanavn[$x] = "Kassebon";
$betalt[$x] = $row['betalt'];
$retur[$x] = $betalt[$x] - $sum[$x];
$betaling1[$x] = $row['felt_1'];
$betalt1[$x] = $row['felt_2'] * 1;
$betaling2[$x] = $row['felt_3'];
$betalt2[$x] = $row['felt_4'] * 1;
$kasse[$x] = $row['felt_5'] * 1;
$kortnavn[$x] = array();
$kortkto[$x] = array();
$r = db_fetch_array(db_select("select * from grupper where art = 'POS' and kodenr='{$kasse[$x]}'", __FILE__ . " linje " . __LINE__));
$tmparray = explode(chr(9), $r['box2']);
$kontonr[$x] = $tmparray[$kasse[$x] - 1];
if (!in_array($kontonr[$x], $ksnr)) {
$ks++;
$ksnr[$ks] = $kontonr[$x];
}
$kortnavn[$x] = explode(chr(9), $r['box5']);
$kortkto[$x] = explode(chr(9), $r['box6']);
$tmparray = explode(chr(9), $r['box7']);
$momsgruppe[$x] = $tmparray[$kasse[$x] - 1];
$z = 0;
if ($betaling1[$x] == 'Kontant') {
$kortkto1[$x] = $kontonr[$x];
$betalt1[$x] = $betalt1[$x] - $retur[$x];
$retur[$x] = 0;
}
if ($betaling2[$x] == 'Kontant') {
$kortkto2[$x] = $kontonr[$x];
$betalt2[$x] = $betalt2[$x] - $retur[$x];
$retur[$x] = 0;
}
while ($kortkto[$x][$z]) {
if (!in_array($kontonr[$x], $ksnr)) {
$ks++;
$ksnr[$ks] = $kortkto[$x][$z];
}
if ($betaling1[$x] == $kortnavn[$x][$z]) {
$kortkto1[$x] = $kortkto[$x][$z];
}
if ($betaling2[$x] == $kortnavn[$x][$z]) {
$kortkto2[$x] = $kortkto[$x][$z];
}
$z++;
}
# $r=db_fetch_array(db_select("select box1 from grupper where art='SM' and kodenr='$momskode'",__FILE__ . " linje " . __LINE__));
# $momsgruppe[$x]=trim($r['box1']);
}
}
$ordreantal = $x;
if (!$ordreantal) {
print "<meta http-equiv=\"refresh\" content=\"0;URL=kassekladde.php?kladde_id={$kladde_id}\">";
}
for ($x = 1; $x <= $ordreantal; $x++) {
if ($bg != $bgcolor) {
$bg = $bgcolor;
} else {
$bg = $bgcolor2;
}
print "<tr bgcolor={$bg}><td></td></tr>";
$query = db_select("select ordrelinjer.*, kontoplan.beskrivelse as kontonavn from ordrelinjer, kontoplan where kontoplan.kontonr=ordrelinjer.bogf_konto and kontoplan.regnskabsaar='{$regnaar}' and ordrelinjer.ordre_id={$id[$x]}", __FILE__ . " linje " . __LINE__);
$y = 0;
$bogf_konto = array();
while ($row = db_fetch_array($query)) {
$bogf_kto = $row['bogf_konto'];
if (!in_array($kontonr[$x], $ksnr)) {
$ks++;
$ksnr[$ks] = $kortkto[$x][$z];
}
if ($valuta[$x] != 'DKK' && $row['posnr'] < 0) {
$bogf_kto = $bogf_kto * -1;
}
#Ordrelinjer med negativt posnr skal bogfores i DKK og derfor isoleres
$kontonavn[$x] = str_replace(" ", " ", $row['kontonavn']);
if (!in_array($bogf_kto, $bogf_konto)) {
$y++;
$posnr[$y] = $row['posnr'];
$bogf_konto[$y] = trim($bogf_kto);
$pris[$y] = afrund($row['pris'] * $row['antal'] - $row['pris'] * $row['antal'] * $row['rabat'] / 100, 3);
} else {
for ($a = 1; $a <= $y; $a++) {
if ($bogf_konto[$a] == $bogf_kto) {
$pris[$a] = $pris[$a] + afrund($row['pris'] * $row['antal'] - $row['pris'] * $row['antal'] * $row['rabat'] / 100, 3);
}
}
}
}
if ($valuta[$x] != 'DKK') {
for ($a = 1; $a <= $y; $a++) {
$bogf_konto[$a] = abs($bogf_konto[$a]);
}
}
$ksantal = $ks;
#################### Kreditorordrer ###################
if (substr($art[$x], 0, 1) == 'K') {
for ($ks = 1; $ks <= $ksantal; $ks++) {
if ($ksnr[$ks] == $kontonr[$x]) {
$ksum[$ks] = $ksum[$ks] - $sum[$x];
}
}
if ($sum[$x] < 0) {
$dksum = dkdecimal($sum[$x] * -1);
print "<tr bgcolor={$bg}><td>{$fakturadato[$x]}<br></td><td>{$firmanavn[$x]}<br></td><td>K<br></td><td>{$kontonr[$x]}<br></td><td><br></td><td><br></td><td>{$fakturanr[$x]}<br></td><td align=right>{$dksum}<br></td><td align=right>{$valuta[$x]}<br></td>";
} else {
$dksum = dkdecimal($sum[$x]);
print "<tr bgcolor={$bg}><td>{$fakturadato[$x]}<br></td><td>{$firmanavn[$x]}<br></td><td><br></td><td><br></td><td>K<br></td><td>{$kontonr[$x]}<br></td><td>{$fakturanr[$x]}<br></td><td align=right>{$dksum}<br></td><td align=right>{$valuta[$x]}<br></td>";
}
print "<td align=center><a href=hentordrer.php?kladde_id={$kladde_id}&ordre_id={$id[$x]}>Flyt til kladde</a><br></td></tr>";
$ordrelinjer = $y;
for ($y = 1; $y <= $ordrelinjer; $y++) {
if ($bogf_konto[$y]) {
if ($posnr[$y] < 0) {
$tmpvaluta = 'DKK';
} else {
$tmpvaluta = $valuta[$x];
}
$kontoart[$y] = $art[$x];
if ($pris[$y] < 0) {
$tmp = dkdecimal($pris[$y] * -1);
print "<tr bgcolor={$bg}><td>{$fakturadato[$x]}<br></td><td>{$firmanavn[$x]}<br></td><td><br></td><td><br></td><td>F<br></td><td><span title='{$kontonavn[$x]}'>{$bogf_konto[$y]}</span><br></td><td>{$fakturanr[$x]}<br></td><td align=right>{$tmp}<br></td><td align=right>{$tmpvaluta}<br></td></tr>";
} elseif ($pris[$y] > 0) {
$tmp = dkdecimal($pris[$y]);
print "<tr bgcolor={$bg}><td>{$fakturadato[$x]}<br></td><td>{$firmanavn[$x]}<br></td><td>F<br></td><td><span title='{$kontonavn[$x]}'>{$bogf_konto[$y]}</span><br></td><td><br></td><td><br></td><td>{$fakturanr[$x]}<br></td><td align=right>{$tmp}<br></td><td align=right>{$tmpvaluta}<br></td></tr>";
}
}
}
$query = db_select("select gruppe from adresser where id='{$konto_id[$x]}';", __FILE__ . " linje " . __LINE__);
$row = db_fetch_array($query);
$query = db_select("select box1 from grupper where art='KG' and kodenr='{$row['gruppe']}';", __FILE__ . " linje " . __LINE__);
$row = db_fetch_array($query);
$box1 = substr(trim($row['box1']), 1, 1);
if (substr(trim($row['box1']), 0, 1) == 'E') {
$query = db_select("select grupper.box1, grupper.box2, grupper.box3, kontoplan.beskrivelse as kontonavn from grupper, kontoplan where grupper.art='EM' and grupper.kodenr='{$box1}' and kontoplan.kontonr=" . nr_cast("grupper.box1") . " and kontoplan.regnskabsaar='{$regnaar}'", __FILE__ . " linje " . __LINE__);
$row = db_fetch_array($query);
$box1 = $row['box3'] * 1;
# Ser lidt forvirrende ud, men den er go nok - fordi kbsmomsen ligger i box 3 v. udenlandsmoms.
$moms[$x] = $sum[$x] / 100 * $row['box2'];
$kontonavn[$x] = str_replace(" ", " ", $row['kontonavn']);
$tmp = dkdecimal($moms[$x]);
if ($moms[$x] > 0) {
print "<tr bgcolor={$bg}><td>{$fakturadato[$x]}<br></td><td>{$firmanavn[$x]}<br></td><td><br></td><td><br></td><td>F<br></td><td><span title='{$kontonavn[$x]}'>{$row['box1']}<br></td><td>{$fakturanr[$x]}<br></td><td align=right>{$tmp}<br></td><td align=right>{$valuta[$x]}<br></td></tr>";
} elseif ($moms[$x] < 0) {
print "<tr bgcolor={$bg}><td>{$fakturadato[$x]}<br></td><td>{$firmanavn[$x]}<br></td><td>F<br></td><td><span title='{$kontonavn[$x]}'>{$row['box3']}<br></td><td><br></td><td><br></td><td>{$fakturanr[$x]}<br></td><td align=right>{$tmp}<br></td><td align=right>{$valuta[$x]}<br></td></tr>";
}
$row = db_fetch_array(db_select("select beskrivelse as kontonavn from kontoplan where kontonr = {$box1} and regnskabsaar='{$regnaar}'", __FILE__ . " linje " . __LINE__));
$kontonavn[$x] = str_replace(" ", " ", $row['kontonavn']);
} else {
$query = db_select("select grupper.box1, kontoplan.beskrivelse as kontonavn from grupper, kontoplan where kontoplan.kontonr=" . nr_cast("grupper.box1") . " and kontoplan.regnskabsaar='{$regnaar}' and art='KM' and kodenr='{$box1}'", __FILE__ . " linje " . __LINE__);
$row = db_fetch_array($query);
$box1 = $row['box1'] * 1;
$kontonavn[$x] = str_replace(" ", " ", $row['kontonavn']);
}
if ($moms[$x] < 0) {
$dkmoms = dkdecimal($moms[$x] * -1);
print "<tr bgcolor={$bg}><td>{$fakturadato[$x]}<br></td><td>{$firmanavn[$x]}<br></td><td><br></td><td><br></td><td>F<br></td><td><span title='{$kontonavn[$x]}'>{$box1}</span><br></td><td>{$fakturanr[$x]}<br></td><td align=right>{$dkmoms}<br></td><td align=right>{$valuta[$x]}<br></td></tr>";
} elseif ($moms[$x] > 0) {
$dkmoms = dkdecimal($moms[$x]);
print "<tr bgcolor={$bg}><td>{$fakturadato[$x]}<br></td><td>{$firmanavn[$x]}<br></td><td>F<br></td><td><span title='{$kontonavn[$x]}'>{$box1}</span><br></td><td><br></td><td><br></td><td>{$fakturanr[$x]}<br></td><td align=right>{$dkmoms}<br></td><td align=right>{$valuta[$x]}<br></td></tr>";
}
} else {
#################### Debitor / POS ordrer ####################
for ($ks = 1; $ks <= $ksantal; $ks++) {
if ($ksnr[$ks] == $kontonr[$x]) {
$ksum[$ks] = $ksum[$ks] + $sum[$x];
}
if ($ksnr[$ks] == $kortkto1[$x]) {
$ksum[$ks] = $ksum[$ks] + $sum[$x];
}
if ($ksnr[$ks] == $kortkto2[$x]) {
$ksum[$ks] = $ksum[$ks] + $sum[$x];
}
}
if ($sum[$x] < 0) {
$dksum = dkdecimal($sum[$x] * -1);
if ($art[$x] != 'PO') {
$r = db_fetch_array(db_select("select beskrivelse as kontonavn from kontoplan where kontonr= '{$kontonr[$x]}' and regnskabsaar='{$regnaar}'", __FILE__ . " linje " . __LINE__));
print "<tr bgcolor={$bg}><td>{$fakturadato[$x]}<br></td><td>{$firmanavn[$x]}<br></td><td><br></td><td><br></td><td>D<br></td><td title='{$r['kontonavn']}'>{$kontonr[$x]}<br></td><td>{$fakturanr[$x]}<br></td><td align=right>{$dksum}<br></td><td align=right>{$valuta[$x]}<br></td></tr>";
} else {
$r = db_fetch_array(db_select("select beskrivelse as kontonavn from kontoplan where kontonr= '{$kontonr[$x]}' and regnskabsaar='{$regnaar}'", __FILE__ . " linje " . __LINE__));
print "<tr bgcolor={$bg}><td>{$fakturadato[$x]}<br></td><td>{$firmanavn[$x]}<br></td><td><br></td><td><br></td><td>F<br></td><td title='{$r['kontonavn']}'>{$kontonr[$x]}<br></td><td>{$fakturanr[$x]}<br></td><td align=right>{$dksum}<br></td><td align=right>{$valuta[$x]}<br></td></tr>";
}
} elseif ($sum[$x] > 0) {
$dksum = dkdecimal($sum[$x]);
if ($art[$x] != 'PO') {
$r = db_fetch_array(db_select("select beskrivelse as kontonavn from kontoplan where kontonr= '{$kontonr[$x]}' and regnskabsaar='{$regnaar}'", __FILE__ . " linje " . __LINE__));
print "<tr bgcolor={$bg}><td>{$fakturadato[$x]}<br></td><td>{$firmanavn[$x]}<br></td><td>D<br></td><td title='{$r['kontonavn']}'>{$kontonr[$x]}</span><br></td><td><br></td><td><br></td><td>{$fakturanr[$x]}<br></td><td align=right>{$dksum}<br></td><td align=right>{$valuta[$x]}<br></td></tr>";
} else {
if ($betaling1[$x]) {
$r = db_fetch_array(db_select("select beskrivelse as kontonavn from kontoplan where kontonr= '{$kortkto1[$x]}' and regnskabsaar='{$regnaar}'", __FILE__ . " linje " . __LINE__));
print "<tr bgcolor={$bg}><td>{$fakturadato[$x]}<br></td><td>{$firmanavn[$x]}<br></td><td>F<br></td><td title='{$r['kontonavn']}'>{$kortkto1[$x]}</span><br></td><td><br></td><td><br></td><td>{$fakturanr[$x]}<br></td><td align=right>{$betalt1[$x]}<br></td><td align=right>{$valuta[$x]}<br></td></tr>";
}
if ($betaling2[$x]) {
$r = db_fetch_array(db_select("select beskrivelse as kontonavn from kontoplan where kontonr= '{$kortkto2[$x]}' and regnskabsaar='{$regnaar}'", __FILE__ . " linje " . __LINE__));
print "<tr bgcolor={$bg}><td>{$fakturadato[$x]}<br></td><td>{$firmanavn[$x]}<br></td><td>F<br></td><td title='{$r['kontonavn']}'>{$kortkto2[$x]}</span><br></td><td><br></td><td><br></td><td>{$fakturanr[$x]}<br></td><td align=right>{$betalt2[$x]}<br></td><td align=right>{$valuta[$x]}<br></td></tr>";
}
if ($retur[$x]) {
$r = db_fetch_array(db_select("select beskrivelse as kontonavn from kontoplan where kontonr= '{$kontonr[$x]}' and regnskabsaar='{$regnaar}'", __FILE__ . " linje " . __LINE__));
print "<tr bgcolor={$bg}><td>{$fakturadato[$x]}<br></td><td>{$firmanavn[$x]}<br></td><td><br></td><td><br></td><td>F<br></td><td title='{$r['kontonavn']}'>{$kontonr[$x]}<br></td><td>{$fakturanr[$x]}<br></td><td align=right>{$retur[$x]}<br></td><td align=right>{$valuta[$x]}<br></td></tr>";
}
}
}
$ordrelinjer = $y;
for ($y = 1; $y <= $ordrelinjer; $y++) {
if ($bogf_konto[$y]) {
$kontoart[$y] = $art[$x];
if ($posnr[$y] < 0) {
$tmpvaluta = 'DKK';
} else {
$tmpvaluta = $valuta[$x];
}
if ($pris[$y] < 0) {
$pris[$y] = $pris[$y] * -1;
$pris[$y] = dkdecimal($pris[$y]);
print "<tr bgcolor={$bg}><td>{$fakturadato[$x]}<br></td><td>{$firmanavn[$x]}<br></td><td>F<br></td><td><span title='{$kontonavn[$x]}'>{$bogf_konto[$y]}</span><br></td><td><br></td><td><br></td><td>{$fakturanr[$x]}<br></td><td align=right>{$pris[$y]}<br></td><td align=right>{$tmpvaluta}<br></td></tr>";
} else {
$r = db_fetch_array(db_select("select beskrivelse as kontonavn from kontoplan where kontonr= '{$bogf_konto[$y]}' and regnskabsaar='{$regnaar}'", __FILE__ . " linje " . __LINE__));
$pris[$y] = dkdecimal($pris[$y]);
print "<tr bgcolor={$bg}><td>{$fakturadato[$x]}<br></td><td>{$firmanavn[$x]}<br></td><td><br></td><td><br></td><td>F<br></td><td><span title='{$r['kontonavn']}'>{$bogf_konto[$y]}</span><br></td><td>{$fakturanr[$x]}<br></td><td align=right>{$pris[$y]}<br></td><td align=right>{$tmpvaluta}<br></td></tr>";
}
}
}
if ($art[$x] != 'PO') {
$r = db_fetch_array(db_select("select gruppe from adresser where id='{$konto_id[$x]}'", __FILE__ . " linje " . __LINE__));
$r = db_fetch_array(db_select("select box1 from grupper where art='DG' and kodenr='{$r['gruppe']}'", __FILE__ . " linje " . __LINE__));
$momsgruppe[$x] = substr(trim($r['box1']), 1);
}
$r = db_fetch_array(db_select("select grupper.box1, kontoplan.beskrivelse as kontonavn from grupper, kontoplan where kontoplan.kontonr=" . nr_cast("grupper.box1") . " and kontoplan.regnskabsaar='{$regnaar}' and grupper.art='SM' and grupper.kodenr='{$momsgruppe[$x]}'", __FILE__ . " linje " . __LINE__));
$bfkto = trim($r['box1']);
$kontonavn[$x] = str_replace(" ", " ", $r['kontonavn']);
$dkmoms = dkdecimal($moms[$x]);
if ($art[$x] == 'DO' && $moms[$x] != 0) {
print "<tr bgcolor={$bg}><td>{$fakturadato[$x]}<br></td><td>{$firmanavn[$x]}<br></td><td><br></td><td><br></td><td>F<br></td><td><span title='{$kontonavn[$x]}'>{$bfkto}</span><br></td><td>{$fakturanr[$x]}<br></td><td align=right>{$dkmoms}<br></td><td align=right>{$valuta[$x]}<br></td></tr>";
} elseif ($art[$x] == 'PO' && $moms[$x] != 0) {
print "<tr bgcolor={$bg}><td>{$fakturadato[$x]}<br></td><td>{$firmanavn[$x]}<br></td><td><br></td><td><br></td><td>F<br></td><td><span title='{$kontonavn[$x]}'>{$bfkto}</span><br></td><td>{$fakturanr[$x]}<br></td><td align=right>{$dkmoms}<br></td><td align=right>{$valuta[$x]}<br></td></tr>";
} elseif ($moms[$x] != 0) {
print "<tr bgcolor={$bg}><td>{$fakturadato[$x]}<br></td><td>{$firmanavn[$x]}<br></td><td>F<br></td><td><span title='{$kontonavn[$x]}'>{$bfkto}</span><br></td><td><br></td><td><br></td><td>{$fakturanr[$x]}<br></td><td align=right>{$dkmoms}<br></td><td align=right>{$valuta[$x]}<br></td></tr>";
}
}
print "<tr bgcolor={$bg}><td colspan=\"9\"><br></td><td align=center><a href=hentordrer.php?kladde_id={$kladde_id}&ordre_id={$id[$x]}>Flyt til kladde</a><br></td></tr>";
$bilag = $bilag + 1;
}
# for ($ks=1;$ks<=$ksantal;$ks++) {
# if ($ksum[$ks]) print "<tr><td>$ksnr[$ks]</td><td>$ksum[$ks]</td></tr>";
# }
print "</tbody></table></td></tr>";
exit;
}
function kontosaldo($dato_fra, $dato_til, $konto_fra, $konto_til, $rapportart, $kontoart)
{
# global $connection;
global $top_bund;
global $md;
global $returside;
global $popup;
global $bgcolor;
global $bgcolor5;
global $menu;
$kilde = if_isset($_GET['kilde']);
$kilde_kto_fra = if_isset($_GET['kilde_kto_fra']);
$kilde_kto_til = if_isset($_GET['kilde_kto_til']);
if ($popup) {
$returside = "../includes/luk.php";
} elseif ($kilde == 'openpost') {
$returside = "rapport.php?rapportart=openpost&submit=ok&dato_fra={$dato_fra}&dato_til={$dato_til}&konto_fra={$kilde_kto_fra}&konto_til={$kilde_kto_til}";
} else {
$returside = "rapport.php?dato_fra={$dato_fra}&dato_til={$dato_til}&konto_fra={$konto_fra}&konto_til={$konto_til}";
}
$returside = "rapport.php?dato_fra={$dato_fra}&dato_til={$dato_til}&konto_fra={$konto_fra}&konto_til={$konto_til}";
$luk = "<a accesskey=L href=\"{$returside}\">";
$currentdate = date("Y-m-d");
if ($dato_fra && $dato_til) {
$fromdate = usdate($dato_fra);
$todate = usdate($dato_til);
} elseif ($dato_fra && !$dato_til) {
# $fromdate=usdate($dato_fra);
$todate = usdate($dato_fra);
}
print "<table width = 100% cellpadding=\"1\" cellspacing=\"1\" border=\"0\"><tbody>";
if ($menu == 'T') {
if ($kontoart == 'K') {
$returnpath = "../kreditor/";
} else {
$returnpath = "../debitor/";
}
$leftbutton = "<a title=\"Klik her for at komme til startsiden\" href=\"{$returnpath}/rapport.php\" accesskey=\"L\">LUK</a>";
$rightbutton = NULL;
$vejledning = NULL;
include "../includes/topmenu.php";
print "<div id=\"topmenu\" style=\"position:absolute;top:6px;right:0px\">";
} elseif ($menu == 'S') {
include "../includes/sidemenu.php";
} else {
print "<tr><td colspan=\"8\" height=\"8\">";
print "<table width=\"100%\" align=\"center\" border=\"0\" cellspacing=\"3\" cellpadding=\"0\"><tbody>";
#B
print "<td width=\"10%\" {$top_bund}>{$luk} Luk</a></td>";
if ($kontoart == 'K') {
$tekst = "Kreditorrapport - kontosaldo";
} else {
$tekst = "Debitorapport - kontosaldo";
}
print "<td width=\"80%\" {$top_bund}>{$tekst}</td>";
print "<td width=\"10%\" {$top_bund}><br></td>";
print "</tbody></table>";
#B s**t
print "</td></tr>\n";
}
if (is_numeric($konto_fra) && is_numeric($konto_fra)) {
$qtxt = "select id from adresser where " . nr_cast('kontonr') . ">='{$konto_fra}' and " . nr_cast('kontonr') . "<='{$konto_til}' and art = '{$kontoart}' order by " . nr_cast('kontonr') . "";
} elseif ($konto_fra && $konto_fra != '*') {
$konto_fra = str_replace("*", "%", $konto_fra);
$tmp1 = strtolower($konto_fra);
$tmp2 = strtoupper($konto_fra);
$qtxt = "select id from adresser where (firmanavn like '{$konto_fra}' or lower(firmanavn) like '{$tmp1}' or upper(firmanavn) like '{$tmp2}') and art = '{$kontoart}' order by firmanavn";
} else {
$qtxt = "select id from adresser where art = '{$kontoart}' order by firmanavn";
}
# #cho "qtxt $qtxt<br>";
$kontonr = array();
$x = 0;
$query = db_select("{$qtxt}", __FILE__ . " linje " . __LINE__);
while ($row = db_fetch_array($query)) {
$x++;
$konto_id[$x] = $row[id];
}
$kto_id = array();
$kontoantal = $x;
$x = 0;
# finder alle konti med bevaegelser i den anfoerte periode eller aabne poster fra foer perioden
for ($y = 1; $y <= $kontoantal; $y++) {
# if ($fromdate && $todate) $qtxt="select amount from openpost where transdate>='$fromdate' and transdate<='$todate' and konto_id='$konto_id[$y]'";
if ($todate) {
$qtxt = "select amount from openpost where transdate<='{$todate}' and konto_id='{$konto_id[$y]}'";
} else {
$qtxt = "select amount from openpost where konto_id='{$konto_id[$y]}'";
}
# #cho "Z $qtxt<br>";
$query = db_select("{$qtxt}", __FILE__ . " linje " . __LINE__);
while ($row = db_fetch_array($query)) {
if (!in_array($konto_id[$y], $kto_id)) {
$x++;
$kto_id[$x] = $konto_id[$y];
}
}
}
$kontoantal = $x;
for ($x = 1; $x <= $kontoantal; $x++) {
$r = db_fetch_array(db_select("select\t* from adresser where id={$kto_id[$x]}", __FILE__ . " linje " . __LINE__));
$kontonr[$x] = stripslashes($r['kontonr']);
$firmanavn[$x] = stripslashes($r['firmanavn']);
$kontosum[$x] = 0;
$primo[$x] = 0;
$primoprint[$x] = 0;
$bgcolor = '';
if ($todate) {
$qtxt = "select * from openpost where konto_id='{$kto_id[$x]}' and transdate<='{$todate}' order by transdate, faktnr, refnr";
} else {
$qtxt = "select * from openpost where konto_id='{$kto_id[$x]}' order by transdate, faktnr, refnr";
}
# #cho "$qtxt<br>";
$q2 = db_select("{$qtxt}", __FILE__ . " linje " . __LINE__);
while ($r2 = db_fetch_array($q2)) {
# -> 2009.05.05
$amount = afrund($r2['amount'], 2);
$oppvaluta = $r2['valuta'];
if (!$oppvaluta) {
$oppvaluta = 'DKK';
}
$oppkurs = $r2['valutakurs'] * 1;
if (!$oppkurs) {
$oppkurs = 100;
}
$dkkamount = $amount;
if ($oppvaluta == 'DKK') {
$belob = dkdecimal($amount);
} else {
$belob = dkdecimal($amount * 100 / $oppkurs);
}
$forfaldsdag = $r2['forfaldsdate'];
$transdate = $r2['transdate'];
if ($oppvaluta != 'DKK' && $oppkurs != 100) {
#postering foert i anden valuta end Debitors som er DKK
$amount = $amount * $oppkurs / 100;
}
$kontosum[$x] = $kontosum[$x] + $amount;
}
$totalsum = $totalsum + $kontosum[$x];
if (afrund($kontosum[$x], 2)) {
if ($linjebg != $bgcolor) {
$linjebg = $bgcolor;
$color = '#000000';
} else {
$linjebg = $bgcolor5;
$color = '#000000';
}
print "<tr bgcolor=\"{$linjebg}\"><td width=\"200px\">{$kontonr[$x]}</td><td>{$firmanavn[$x]}</td>";
$tmp = dkdecimal($kontosum[$x]);
print "<td align=right> {$tmp}</td></tr>\n";
}
}
$tmp = dkdecimal($totalsum);
print "<tr><td colspan=\"3\"><hr></td></tr>\n";
print "<tr><td><b>ialt</b></td><td colspan=\"3\" align=\"right\"><b>{$tmp}</b><td></tr>\n";
print "</tbody></table>";
}
function bogfor($id, $webservice)
{
global $regnaar;
global $fakturadate;
global $valutakurs;
global $pbs;
global $mail_fakt;
global $db;
global $brugernavn;
$query = db_select("select * from ordrer where id = {$id}", __FILE__ . " linje " . __LINE__);
$row = db_fetch_array($query);
$ordredate = $row['ordredate'];
$levdate = $row['levdate'];
$fakturadate = $row['fakturadate'];
$nextfakt = $row['nextfakt'];
$art = $row['art'];
$kred_ord_id = $row['kred_ord_id'];
$valuta = $row['valuta'];
$art = $row['art'];
if ($row['status'] != 2) {
return "invoice allready created for order id {$id}";
# print "<BODY onLoad=\"javascript:alert('Fakturerering er allerede udført')\">";
# print "<meta http-equiv=\"refresh\" content=\"0;URL=ordre.php?id=$id\">";
# exit;
}
$query = db_select("select box1, box2, box3, box4 from grupper where art='RA' and kodenr='{$regnaar}'", __FILE__ . " linje " . __LINE__);
if ($row = db_fetch_array($query)) {
# $year=substr(str_replace(" ","",$row['box2']),-2);#aendret 060308 - grundet mulighed for fakt i aar 2208
$year = trim($row['box2']);
$aarstart = str_replace(" ", "", $year . $row['box1']);
# $year=substr(str_replace(" ","",$row['box4']),-2);
$year = trim($row['box4']);
$aarslut = str_replace(" ", "", $year . $row['box3']);
}
$query = db_select("select * from ordrer where id = '{$id}'", __FILE__ . " linje " . __LINE__);
$row = db_fetch_array($query);
if (!$fakturadate) {
return "missing invoicedate for order {$id}";
# print "<meta http-equiv=\"refresh\" content=\"0;URL=fakturadato.php?id=$id&pbs=$pbs&mail_fakt=$mail_fakt&returside=bogfor.php\">";
#exit;
}
if ($valuta && $valuta != 'DKK') {
if ($r = db_fetch_array(db_select("select valuta.kurs as kurs, grupper.box3 as difkto from valuta, grupper where grupper.art='VK' and grupper.box1='{$valuta}' and valuta.gruppe=" . nr_cast("grupper.kodenr") . " and valuta.valdate <= '{$fakturadate}' order by valuta.valdate desc", __FILE__ . " linje " . __LINE__))) {
$valutakurs = $r['kurs'] * 1;
$difkto = $r['difkto'] * 1;
if (!db_fetch_array(db_select("select id from kontoplan where kontonr='{$difkto}' and regnskabsaar='{$regnaar}'", __FILE__ . " linje " . __LINE__))) {
if ($webservice) {
return "Kontonr {$difkto} (kursdiff) eksisterer ikke";
} else {
return "Kontonr {$difkto} (kursdiff) eksisterer ikke";
# print "<BODY onLoad=\"javascript:alert('Kontonr $difkto (kursdiff) eksisterer ikke')\">";
# print "<meta http-equiv=\"refresh\" content=\"0;URL=ordre.php?id=$id\">";
# exit;
}
}
} else {
$tmp = dkdato($fakturadate);
return "Der er ikke nogen valutakurs for {$valuta} den {$tmp} (fakturadatoen).";
# print "<BODY onLoad=\"javascript:alert('Der er ikke nogen valutakurs for $valuta den $tmp (fakturadatoen).')\">";
# print "<meta http-equiv=\"refresh\" content=\"0;URL=ordre.php?id=$id\">";
# exit;
}
} else {
$valuta = 'DKK';
$valutakurs = 100;
}
if (!$levdate) {
return "Missing deliverydate";
# print "<BODY onLoad=\"javascript:alert('Leveringsdato SKAL udfyldes')\">";
# print "<meta http-equiv=\"refresh\" content=\"0;URL=ordre.php?id=$id\">";
# exit;
}
if ($levdate < $ordredate) {
return "Deliverydate prior to orderdate";
# print "<BODY onLoad=\"javascript:alert('Leveringsdato er før ordredato')\">";
# print "<meta http-equiv=\"refresh\" content=\"0;URL=ordre.php?id=$id\">";
# exit;
}
if ($fakturadate < $levdate) {
return "Invoicedate prior to orderdate";
# print "<BODY onLoad=\"javascript:alert('Fakturadato er før leveringsdato')\">";
# print "<meta http-equiv=\"refresh\" content=\"0;URL=ordre.php?id=$id\">";
# exit;
}
if ($nextfakt && $nextfakt <= $fakturadate) {
return "Next_invoicedate prior to invoicedate";
# print "<BODY onLoad=\"javascript:alert('Genfaktureringsdato skal være efter fakturadato')\">";
# print "<meta http-equiv=\"refresh\" content=\"0;URL=ordre.php?id=$id\">";
# exit;
}
list($year, $month, $day) = split('-', $fakturadate);
$year = trim($year);
$ym = $year . $month;
if (!$webservice && ($ym < $aarstart || $ym > $aarslut)) {
print "<BODY onLoad=\"javascript:alert('Fakturadato udenfor regnskabsår')\">";
print "<meta http-equiv=\"refresh\" content=\"0;URL=ordre.php?id={$id}\">";
exit;
}
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=" . nr_cast("grupper.kodenr") . " and valuta.valdate <= '{$ordredate}' order by valuta.valdate desc", __FILE__ . " linje " . __LINE__))) {
$valutakurs = $r['kurs'];
} else {
$tmp = dkdato($ordredate);
return "Der er ikke nogen valutakurs for {$valuta} den {$ordredate} (ordredatoen)";
}
}
if (!$fejl) {
transaktion("begin");
$fakturanr = 1;
$query = db_select("select fakturanr from ordrer where art = 'DO' or art = 'DK'", __FILE__ . " linje " . __LINE__);
while ($row = db_fetch_array($query)) {
if ($fakturanr <= $row[fakturanr]) {
$fakturanr = $row[fakturanr] + 1;
}
}
if ($fakturanr == 1) {
$query = db_select("select box1 from grupper where art = 'RB' order by kodenr", __FILE__ . " linje " . __LINE__);
if ($row = db_fetch_array($query)) {
$fakturanr = $row[box1] * 1;
}
}
if ($fakturanr < 1) {
$fakturanr = 1;
}
batch_kob($id, $art);
batch_salg($id);
db_modify("update ordrer set status=3, fakturanr={$fakturanr}, valutakurs={$valutakurs} where id={$id}", __FILE__ . " linje " . __LINE__);
$r = db_fetch_array(db_select("select box5 from grupper where art='DIV' and kodenr='3'", __FILE__ . " linje " . __LINE__));
$svar = momsupdat($id);
if ($r['box5'] == 'on') {
$svar = bogfor_nu($id, $webservice);
}
if ($svar != "OK") {
return $svar;
exit;
} else {
transaktion("commit");
}
}
return $svar;
}
// af denne licens eller en senere version efter eget valg
//
// Dette program er udgivet med haab om at det vil vaere til gavn,
// men UDEN NOGEN FORM FOR REKLAMATIONSRET ELLER GARANTI. Se
// GNU General Public Licensen for flere detaljer.
//
// En dansk oversaettelse af licensen kan laeses her:
// http://www.fundanemt.com/gpl_da.html
//
// Copyright (c) 2004-2009 DANOSOFT ApS
// ----------------------------------------------------------------------
#include ("../online/stdfunc.php")
$filnavn = "../temp/{$db}/kreditor.csv";
$fp = fopen("{$filnavn}", "w");
if ($fp) {
$q = db_select("SELECT \n\t\t\t\tadresser.kontonr as kontonr,\n\t\t\t\tadresser.firmanavn as firmanavn,\n\t\t\t\tadresser.cvrnr as cvrnr,\n\t\t\t\tadresser.betalingsbet as betalingsbet,\n\t\t\t\tadresser.betalingsdage as betalingsdage,\n\t\t\t\tadresser.addr1 as addr1,\n\t\t\t\tadresser.addr2 as addr2,\n\t\t\t\tadresser.postnr as postnr,\n\t\t\t\tadresser.bynavn as bynavn,\n\t\t\t\tadresser.land as land,\n\t\t\t\tadresser.tlf as tlf,\n\t\t\t\tadresser.web as web,\n\t\t\t\tadresser.email as email,\n\t\t\t\tgrupper.box1 as momsart,\n\t\t\t\tgrupper.box3 as valuta\n\t\t\tfrom adresser, grupper where adresser.art = 'K' and adresser.gruppe=" . nr_cast('grupper.kodenr') . " and grupper.art='KG' order by adresser.kontonr", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
if (is_numeric($r['cvrnr'])) {
$cvrnr = "DK" . $r['cvrnr'];
} else {
$cvrnr = $r['cvrnr'];
}
if ($r['betalingsbet'] == "Netto" || $r['betalingsbet'] == "Lb. md") {
$betalingsdage = '+ ' . $r['betalingsdage'];
} else {
$betalingsdage = '';
}
$aktiv = 'J';
$spærret = 'N';
if (strpos($r['momsart'], 'E')) {
$EUmoms = "J";
function ordreside($id, $regnskab)
{
# print "<!--Function ordreside start-->";
global $art;
global $bgcolor;
global $bgcolor5;
global $bogfor;
global $bruger_id;
global $brugsamletpris;
global $brugsamletpris;
global $brugernavn;
global $bruttosum;
global $bruttosaetsum;
global $charset;
global $db_encode;
global $db_id;
global $difkto;
global $fokus;
global $fakturadate;
global $fakturadato;
global $genfakt;
global $hurtigfakt;
global $incl_moms;
global $oio;
global $omkunde;
global $ordresum;
global $procentfakt;
global $procenttillag;
global $procentvare;
global $returside;
global $rvid;
global $rvnr;
global $samlet_pris;
global $samlet_rabat;
global $samlet_rabatpct;
global $sprog_id;
global $sprog;
global $submit;
global $svnr;
global $varenr;
global $vis_projekt;
global $vis_saet;
#20150306 varenr
$id *= 1;
$r = db_fetch_array(db_select("select * from ordrer where id='{$id}'", __FILE__ . " linje " . __LINE__));
$sag_id = $r['sag_id'] * 1;
if ($sag_id) {
$returside = urlencode("../sager/sager.php?funktion=vis_sag&sag_id={$sag_id}&konto_id={$konto_id}");
}
if (!$returside) {
if ($popup) {
$returside = "../includes/luk.php";
} else {
$returside = "ordreliste.php";
}
}
$addr1 = NULL;
$addr2 = NULL;
$batchvare = NULL;
$betalingsbet = NULL;
$betalingsdage = NULL;
$bynavn = NULL;
$debitorkort = NULL;
$dbsum = NULL;
$dkantal = NULL;
$cvrnr = NULL;
$ean = NULL;
$email = NULL;
$felt_1 = NULL;
$felt_2 = NULL;
$felt_3 = NULL;
$felt_4 = NULL;
$felt_5 = NULL;
$firmanavn = NULL;
$institution = NULL;
$ko_ant = array();
$kontakt = NULL;
$kontakt_tlf = NULL;
$konto_id = NULL;
$kontonr = NULL;
$kostsum = NULL;
$kred_ord_id = NULL;
$krediteret = NULL;
$kundeordnr = NULL;
$land = NULL;
$levdato = NULL;
$levdiff = NULL;
$lev_addr1 = NULL;
$lev_addr2 = NULL;
$lev_bynavn = NULL;
$lev_kontakt = NULL;
$lev_max = NULL;
$lev_navn = NULL;
$lev_postnr = NULL;
$lev_pbs = NULL;
$lev_pbs_nr = NULL;
$linjebg = NULL;
$mail_fakt = NULL;
$momsfri = NULL;
$momssats = NULL;
$momssum = NULL;
$oio_fakt = NULL;
$ordredato = NULL;
$ordrenr = NULL;
$pbs_nr = NULL;
$postnr = NULL;
$prev_id = NULL;
$reserveret = NULL;
$status = NULL;
$tidl_lev = NULL;
$udskriv_til = NULL;
$valutakurs = NULL;
$vis_lev_addr = NULL;
$y = NULL;
if (!$id) {
$fokus = 'kontonr';
}
if ($id) {
$query = db_select("select * from ordrer where id = '{$id}'", __FILE__ . " linje " . __LINE__);
$row = db_fetch_array($query);
$konto_id = $row['konto_id'] * 1;
$kontonr = HtmlEntities($row['kontonr'], ENT_COMPAT, $charset);
$firmanavn = HtmlEntities($row['firmanavn'], ENT_COMPAT, $charset);
$addr1 = HtmlEntities($row['addr1'], ENT_COMPAT, $charset);
$addr2 = HtmlEntities($row['addr2'], ENT_COMPAT, $charset);
$postnr = HtmlEntities($row['postnr'], ENT_COMPAT, $charset);
$bynavn = HtmlEntities($row['bynavn'], ENT_COMPAT, $charset);
$land = HtmlEntities($row['land'], ENT_COMPAT, $charset);
$kontakt = HtmlEntities($row['kontakt'], ENT_COMPAT, $charset);
$kontakt_tlf = HtmlEntities($row['kontakt_tlf'], ENT_COMPAT, $charset);
$kundeordnr = HtmlEntities($row['kundeordnr'], ENT_COMPAT, $charset);
$lev_navn = HtmlEntities($row['lev_navn'], ENT_COMPAT, $charset);
$lev_addr1 = HtmlEntities($row['lev_addr1'], ENT_COMPAT, $charset);
$lev_addr2 = HtmlEntities($row['lev_addr2'], ENT_COMPAT, $charset);
$lev_postnr = HtmlEntities($row['lev_postnr'], ENT_COMPAT, $charset);
$lev_bynavn = HtmlEntities($row['lev_bynavn'], ENT_COMPAT, $charset);
$lev_kontakt = HtmlEntities($row['lev_kontakt'], ENT_COMPAT, $charset);
$vis_lev_addr = $row['vis_lev_addr'];
$felt_1 = HtmlEntities($row['felt_1'], ENT_COMPAT, $charset);
$felt_2 = HtmlEntities($row['felt_2'], ENT_COMPAT, $charset);
$felt_3 = HtmlEntities($row['felt_3'], ENT_COMPAT, $charset);
$felt_4 = HtmlEntities($row['felt_4'], ENT_COMPAT, $charset);
$felt_5 = HtmlEntities($row['felt_5'], ENT_COMPAT, $charset);
$cvrnr = $row['cvrnr'];
$ean = HtmlEntities($row['ean'], ENT_COMPAT, $charset);
$institution = HtmlEntities($row['institution'], ENT_COMPAT, $charset);
$email = HtmlEntities($row['email'], ENT_COMPAT, $charset);
$mail_fakt = $row['mail_fakt'];
$udskriv_til = $row['udskriv_til'];
$mail_bilag = $row['mail_bilag'];
#20131122 tilføj $mail_bilag til visning
$betalingsbet = trim($row['betalingsbet']);
$betalingsdage = $row['betalingsdage'];
$valuta = $row['valuta'];
$valutakurs = $row['valutakurs'] * 1;
if (!$valutakurs) {
$valutakurs = 100;
}
$projekt[0] = $row['projekt'];
$formularsprog = $row['sprog'];
$pbs = $row['pbs'];
$afd = $row['afd'];
$sum = $row['sum'];
$moms = $row['moms'];
$ref = trim(HtmlEntities($row['ref'], ENT_COMPAT, $charset));
$fakturanr = HtmlEntities($row['fakturanr'], ENT_COMPAT, $charset);
$lev_adr = HtmlEntities($row['lev_adr'], ENT_COMPAT, $charset);
$ordrenr = $row['ordrenr'];
$kred_ord_id = $row['kred_ord_id'] * 1;
$restordre = $row['restordre'];
if ($row['ordredate']) {
$ordredate = $row['ordredate'];
} else {
$ordredate = date("y-m-d");
}
$ordredato = dkdato($ordredate);
if ($row['levdate']) {
$levdato = dkdato($row['levdate']);
}
if ($row['fakturadate']) {
$fakturadate = $row['fakturadate'];
$fakturadato = dkdato($row['fakturadate']);
}
if ($row['nextfakt']) {
$genfakt = dkdato($row['nextfakt']);
}
$momssats = $row['momssats'];
$procenttillag = $row['procenttillag'] * 1;
$status = $row['status'];
if (!$status) {
$status = 0;
}
$kontonr = $row['kontonr'];
$art = $row['art'];
$mail_subj = HtmlEntities($row['mail_subj'], ENT_COMPAT, $charset);
$mail_text = HtmlEntities(str_replace("<br>", "\n", $row['mail_text']), ENT_COMPAT, $charset);
$dokument = $row['dokument'];
$sag_id = $row['sag_id'] * 1;
$sagsnr = $row['sagsnr'] * 1;
$tilbudnr = $row['tilbudnr'];
$datotid = $row['datotid'];
$nr = $row['nr'] * 1;
if (!$returside && $row['returside']) {
$returside = $row['returside'];
}
$row['omvbet'] ? $omkunde = 'on' : ($omkunde = '');
# if ($brugernavn && !$ref) $ref=$brugernavn; #flyttet til efter 'ikke faktureret'
# if ($returside=='../includes/luk.php' && !$popup) $returside='';
$x = 0;
$krediteret = '';
$q = db_select("select art,pbs_nr,pbs from adresser where art = 'S' or id = '{$konto_id}'", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
if ($r['art'] == 'S') {
$lev_pbs_nr = $r['pbs_nr'];
$lev_pbs = $r['pbs'];
} else {
$pbs_nr = $r['pbs_nr'];
}
}
$query = db_select("select id,ordrenr from ordrer where kred_ord_id = '{$id}'", __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) {
if (substr($fokus, 0, 4) != 'dkan' && substr($fokus, 0, 4) != 'pris') {
$fokus = 'vare0';
}
#20151019
} else {
$fokus = '';
}
} else {
$r = db_fetch_array(db_select("select ansatte.navn as ref,ansatte.afd as afd from ansatte,brugere where ansatte.id = " . nr_cast("brugere.ansat_id") . " and brugere.brugernavn='{$brugernavn}'", __FILE__ . " linje " . __LINE__));
$ref = $r['ref'];
$afd = $r['afd'];
}
$afd *= 1;
$afd_navn = NULL;
if ($r = db_fetch_array(db_select("select beskrivelse from grupper where art = 'AFD' and kodenr = '{$afd}'", __FILE__ . " linje " . __LINE__))) {
$afd_navn = $r['beskrivelse'];
}
($r = db_fetch_array(db_select("select * from grupper where ART = 'bilag' and (box6 ='on' or (box1 !='' and box2 !='' and box3 !=''))", __FILE__ . " linje " . __LINE__))) ? $bilag = 1 : ($bilag = 0);
if (db_fetch_array(db_select("select * from grupper where art = 'DIV' and kodenr = '2' and box7='on'", __FILE__ . " linje " . __LINE__))) {
$url = "jobkort.php?returside=ordre.php&konto_id={$konto_id}&ordre_id={$id}";
$jobkort = "<a href={$url} style=\"text-decoration:none\"><input type=\"button\" style=\"width:75px\" value=\"jobkort\" onClick=\"window.navigate('{$url}')\"></a>";
$url = "debitorkort.php?returside=ordre.php&konto_id={$konto_id}&ordre_id={$id}";
$debitorkort = "<a href={$url} style=\"text-decoration:none\"><input type=\"button\" style=\"width:75px\" value=\"debitorkort\" onClick=\"window.navigate('{$url}')\"></a>";
} else {
$jobkort = NULL;
}
#cho "procentfakt $procentfakt $default_procenttillag<br>";
######### pile ########## tilfoejet 20080210
if ($status == 0) {
$tmp = "tilbud";
} elseif ($status >= 3) {
$tmp = "faktura";
} else {
$tmp = "ordrer";
}
#cho "$status select box1 from grupper where art = 'OLV' and kodenr = '$bruger_id' and kode='$tmp'<br>\n";
$r = db_fetch_array(db_select("select box1 from grupper where art = 'OLV' and kodenr = '{$bruger_id}' and kode='{$tmp}'", __FILE__ . " linje " . __LINE__));
$ordreliste = explode(",", $r['box1']);
$x = 0;
$next_id = 0;
while ($ordreliste[$x]) {
if ($ordreliste[$x] == $id) {
if (isset($ordreliste[$x - 1])) {
$prev_id = $ordreliste[$x - 1];
} else {
$prev_id = NULL;
}
if (isset($ordreliste[$x + 1])) {
$next_id = $ordreliste[$x + 1];
} else {
$next_id = NULL;
}
}
$x++;
}
######### elip ##########
if ($art == 'DK') {
$query = db_select("select ordrenr from ordrer where id = '{$kred_ord_id}'", __FILE__ . " linje " . __LINE__);
$row2 = db_fetch_array($query);
if ($kred_ord_id) {
sidehoved($id, "{$returside}", "", "", "Kunde kreditnota {$ordrenr} (kreditering af ordre nr: <a href=\"ordre.php?id={$kred_ord_id}\">{$row2['ordrenr']}</a>)");
} else {
sidehoved($id, "{$returside}", "", "", "Kunde kreditnota {$ordrenr}");
}
} elseif ($krediteret) {
sidehoved($id, "{$returside}", "", "", "Kundeordre {$ordrenr} ( krediteret på KN nr: {$krediteret} )");
} else {
if ($returside == "ordreliste.php") {
sidehoved($id, "{$returside}", "", "", "Kundeordre {$ordrenr} - {$temp}");
} else {
sidehoved($id, "{$returside}", "", "", "Kundeordre {$ordrenr} - {$temp}");
}
}
if (!$status) {
$status = 0;
}
if ($status >= 3) {
print "<form name=\"ordre\" id=\"1\" action=\"ordre.php?id={$id}&sag_id={$sag_id}&returside={$returside}\" method=\"post\">\n";
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=\"kred_ord_id\" value=\"{$kred_ord_id}\">\n";
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=\"kontakt_tlf\" value=\"{$kontakt_tlf}\">";
print "<input type=\"hidden\" name=\"kundeordnr\" value=\"{$kundeordnr}\">\n";
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}\">\n";
print "<input type=\"hidden\" name=\"genfakt\" value=\"{$genfakt}\">";
print "<input type=\"hidden\" name=\"cvrnr\" value=\"{$cvrnr}\">";
print "<input type=\"hidden\" name=\"ean\" value=\"{$ean}\">";
print "<input type=\"hidden\" name=\"institution\" value=\"{$institution}\">";
print "<input type=\"hidden\" name=\"email\" value=\"{$email}\">";
# print "<input type=\"hidden\" name=\"mail_fakt\" value=\"$mail_fakt\">";
print "<input type=\"hidden\" name=\"betalingsbet\" value=\"{$betalingsbet}\">";
print "<input type=\"hidden\" name=\"betalingsdage\" value=\"{$betalingsdage}\">";
print "<input type=\"hidden\" name=\"momssats\" value=\"" . dkdecimal($momssats) . "\">";
print "<input type=\"hidden\" name=\"procenttillag\" value=\"" . dkdecimal($procenttillag) . "\">";
print "<input type=\"hidden\" name=\"ref\" value=\"{$ref}\">";
print "<input type=\"hidden\" name=\"fakturanr\" value=\"{$fakturanr}\">";
print "<input type=\"hidden\" name=\"lev_adr\" value=\"{$lev_adr}\">";
print "<input type=\"hidden\" name=\"valuta\" value=\"{$valuta}\">";
print "<input type=\"hidden\" name=\"valutakurs\" value=\"{$valutakurs}\">";
print "<input type=\"hidden\" name=\"projekt[0]\" value=\"{$projekt['0']}\">";
#20130816
print "<input type=\"hidden\" name=\"sprog\" value=\"{$formularsprog}\">";
print "<input type=\"hidden\" name=\"pbs\" value=\"{$pbs}\">";
print "<input type=\"hidden\" name=\"afd\" value=\"{$afd}\">";
print "<input type=\"hidden\" name=\"sum\" value=\"{$sum}\">";
print "<input type=\"hidden\" name=\"sag_id\" value=\"{$sag_id}\">";
print "<input type=\"hidden\" name=\"sagsnr\" value=\"{$sagsnr}\">";
print "<input type=\"hidden\" name=\"tilbudnr\" value=\"{$tilbudnr}\">";
print "<input type=\"hidden\" name=\"datotid\" value=\"{$datotid}\">";
print "<input type=\"hidden\" name=\"nr\" value=\"{$nr}\">";
print "<input type=\"hidden\" name=\"returside\" value=\"{$returside}\">";
print "<input type=\"hidden\" name=\"omkunde\" value=\"{$omkunde}\">";
if ($mail_fakt) {
$mail_fakt = "checked";
}
##### pile ######## tilfoejet 20080210
$alerttekst = findtekst(154, $sprog_id);
$spantekst = findtekst(198, $sprog_id);
print "<table cellpadding=\"1\" cellspacing=\"1\" border=\"0\" width=\"100%\" valign = \"top\"><tbody>\n";
#Tabel 1 ->
if ($prev_id) {
print "<tr><td width=\"50%\" title=\"{$spantekst}\"><a href=\"javascript:confirmClose('ordre.php?id={$prev_id}&returside={$returside}','{$alerttekst}')\"><img src=\"../ikoner/left.png\" style=\"border: 0px solid; width: 15px; height: 15px;\"></a></span></td>\n";
} else {
print "<tr><td width=\"50%\"></td>\n";
}
$spantekst = findtekst(199, $sprog_id);
if ($next_id) {
print "<td width=\"50%\" align=\"right\" title=\"{$spantekst}\"><a href=\"javascript:confirmClose('ordre.php?id={$next_id}&returside={$returside}','{$alerttekst}')\"><img src=\"../ikoner/right.png\" style=\"border: 0px solid; width: 15px; height: 15px;\"></a></span></td></tr>\n";
} else {
print "<tr><td width=\"50%\"></td>\n";
}
print "</tbody></table>\n";
# <- Tabel 1
##### pile ########
print "<table cellpadding=\"1\" cellspacing=\"1\" border=\"1\" valign = \"top\"><tbody>\n";
#Tabel 2 ->
$ordre_id = $id;
print "<tr><td width=\"31%\" valign=\"top\"><table cellpadding=\"0\" cellspacing=\"0\" border=\"0\" width=\"100%\">\n";
#Tabel 2.1 ->
print "<tr><td width=\"100\"><b>Kontonr</b></td><td width=\"100\">{$kontonr}</td></tr>\n";
print "<tr><td><b>Firmanavn</b></td><td>{$firmanavn}</td></tr>\n";
print "<tr><td><b>Adresse</b></td><td>{$addr1}</td></tr>\n";
print "<tr><td></td><td>{$addr2}</td></tr>\n";
print "<tr><td><b>Postnr & by</b></td><td>{$postnr} {$bynavn}</td></tr>\n";
print "<tr><td><b>Land</b></td><td>{$land}</td></tr>\n";
print "<tr><td><b>Att.</b></td><td>{$kontakt}</td></tr>\n";
print "<tr><td><b>Ordrenr.</b></td><td>{$kundeordnr}</td></tr>\n";
print "<tr><td><b>CVR-nr.</b></td><td>{$cvrnr}</td></tr>\n";
print "<tr><td><b>EAN-nr.</b></td><td>{$ean}</td></tr>\n";
print "<tr><td><b>Institution</b></td><td>{$institution}</td></tr>\n";
print "</tbody></table></td>\n";
# <- Tabel 2.1
print "<td width=\"38%\" valign=\"top\"><table cellpadding=\"0\" cellspacing=\"0\" border=\"0\" width=\"100%\">\n";
#Tabel 2.2 ->
$alerttekst = 'Husk at opdatere ved at klikke på [OK] til højre for feltet du har ændret!';
print "<tr><td><b>E-mail</b></td><td width=\"105\"><input class=\"inputbox\" type=\"text\" name=\"email\" style=\"width:130px\" value=\"{$email}\" onchange=\"javascript:this.form.submit()\"></td></tr>\n";
# print "<tr><td><b>Edskriv til</b></td>"
# if ($email)
print "<tr><td title=\"Vælg på hvilken måde dokumentet skal udskrives, gemmes eller sendes.\"><b>Udskriv til</b></td>\n";
if ($mail_fakt) {
$udskriv_til = "email";
}
# if ($oioxml) $udskriv_til="oioxml";
if ($oioubl) {
$udskriv_til = "oioubl";
}
if ($lev_pbs_nr) {
if ($pbs) {
$udskriv_til = "PBS";
}
}
if (!$udskriv_til) {
$udskriv_til = "PDF";
}
print "<td><select class=\"inputbox\" name=\"udskriv_til\" onchange=\"this.form.submit()\">\n";
/*
print "<option>$udskriv_til</option>\n";
if ($udskriv_til!="PDF") print "<option>PDF</option>\n";
if ($udskriv_til!="email" && $email) print "<option>email</option>\n";
if ($udskriv_til!="oioxml" && strlen($ean)==13) print "<option title=\"Kun ved fakturering/kreditering.\">oioxml</option>\n";
print "</SELECT></td></tr>\n";
*/
print "<option>{$udskriv_til}</option>\n";
if ($udskriv_til != "PDF") {
print "<option>PDF</option>\n";
}
if ($udskriv_til != "PDF-tekst") {
print "<option title=\"Udskrives som PDF uden baggrund\">PDF-tekst</option>\n";
}
if ($udskriv_til != "email") {
print "<option title=\"Sendes som PDF via e-mail\">email</option>\n";
}
# if ($udskriv_til!="oioxml") print "<option title=\"Kun ved fakturering/kreditering.\">oioxml</option>\n"; #PHR 20090803
if (($pbs || $lev_pbs_nr) && $udskriv_til != "PBS") {
print "<option value=\"PBS\">PBS</option>\n";
}
if ($udskriv_til != "oioubl") {
print "<option title=\"Kun ved fakturering/kreditering.\">oioubl</option>\n";
}
#PHR 20090803
# if ($udskriv_til!="edifakt") print "<option title=\"Kun ved fakturering/kreditering.\">edifakt</option>\n"; #20140201
$tmp = $pbs_nr * 1;
# 20120822
if ($lev_pbs_nr) {
if ($tmp == 'L') {
if ($pbs) {
print "<option value=\"PBS\">PBS</option>\n";
} elseif ($tmp && $udskriv_til != "PBS" && $lev_pbs == 'B') {
print "<option title=\"Opkræves via PBS betalingsservice\">PBS</option>\n";
}
}
}
if ($udskriv_til != "historik" && db_fetch_array(db_select("select * from grupper where ART = 'bilag' and (box6 ='on' or (box1 !='' and box2 !='' and box3 !=''))", __FILE__ . " linje " . __LINE__))) {
print "<option title=\"Gem en kopi og vedhæft kundens historik\">historik</option>\n";
}
print "</SELECT>";
/*
print "<tr><td><b>Fakt som mail</td><td><input class=\"inputbox\" type=\"checkbox\" name=\"mail_fakt\" $mail_fakt></td></tr>\n";
if ($lev_pbs_nr) {
if ($pbs == "FI") $pbs_fi='checked';
elseif ($pbs == "BS") $pbs_bs='checked';
$title="PBS udsender FI-indbetalingskort";
if (!$pbs_bs) {
print "<td colspan=\"2\" title=\"$title\">Faktura via PBS (FI)</td><td title=\"$title\"><input class=\"inputbox\" type=\"checkbox\" name=\"pbs_fi\" $pbs_fi onchange=\"javascript:docChange = true;\"></td></tr>\n";
if ($pbs_nr && !$pbs_fi) print "<tr>\n";
}
$title="Opkræves via PBS's betalingsservice";
if ($pbs_nr && !$pbs_fi) print "<td colspan=\"2\" title=\"$title\">Opkræv via PBS (BS)</td><td title=\"$title\"><input class=\"inputbox\" type=\"checkbox\" name=\"pbs_bs\" \"$pbs_bs\" onchange=\"javascript:docChange = true;\"></td></tr>\n";
} else print "</tr>\n";
*/
print "<tr><td width=\"100\"><b>Ordredato</b></td><td width=\"100\">{$ordredato}</td></tr>\n";
print "<tr><td><b>Leveringsdato</b></td><td>{$levdato}</td></tr>\n";
print "<tr><td><b>Fakturadato</b></td><td>{$fakturadato}</td></tr>\n";
print "<tr><td><b>Genfaktureres</b></td><td><input class=\"inputbox\" type=\"text\" name=\"genfakt\" size=\"7\" value=\"{$genfakt}\"><input type=\"submit\" value=\"OK\" name=\"submit\"></td></tr>\n";
print "<tr><td><b>Betaling</b></td><td>{$betalingsbet} + {$betalingsdage}</td>\n";
print "<tr><td><b>Vor ref.</b></td><td>{$ref} {$afd_navn}</td></tr>\n";
print "<tr><td><b>Fakturanr</b></td><td>{$fakturanr}</td></tr>\n";
$tmp = dkdecimal($valutakurs);
if ($valuta) {
print "<tr><td><b>Valuta / Kurs</b></td><td>{$valuta} / {$tmp}</td></tr>\n";
}
if ($projekt[0]) {
print "<tr><td><b>Projekt</b></td><td>{$projekt['0']}</td></tr>\n";
}
print "</tbody></table></td>\n";
# <- Tabel 2.2
print "<td width=\"31%\" valign=\"top\"><table cellpadding=\"0\" cellspacing=\"0\" border=\"0\" width=\"100%\" valign=\"top\">\n";
#Tabel 2.3 ->
if ($vis_lev_addr) {
print "<tr><td><b>Leveringsadresse</b><br /> </td><td align=\"center\">{$jobkort} {$debitorkort}</td></tr>\n";
print "<tr><td colspan=\"2\"><b><hr></b></tr>\n";
print "<tr><td><b>Firmanavn</b></td><td colspan=\"2\">{$lev_navn}</td></tr>\n";
print "<tr><td valign=\"top\"><b>Adresse</b></td><td colspan=\"2\">{$lev_addr1}</td></tr>\n";
print "<tr><td></td><td colspan=\"2\">{$lev_addr2}</td></tr>\n";
print "<tr><td><b>Postnr. & by</b></td><td>{$lev_postnr} {$lev_bynavn}</td></tr>\n";
print "<tr><td><b>Att.</b></td><td colspan=\"2\">{$lev_kontakt}</td></tr>\n";
print "<tr><td colspan=\"2\"><b><hr></b></tr>\n";
print "<tr><td colspan=\"2\"><a href=\"ordre.php?id={$id}&returside={$returside}&vis_lev_addr=0\">Vis ekstrafelter</tr>\n";
} else {
print "<tr><td><b>" . findtekst(243, $sprog_id) . "</b></td><td align=\"center\">{$jobkort} {$debitorkort}</td></tr>\n";
print "<tr><td colspan=\"2\"><b><hr></b></tr>\n";
if ($vis_saet) {
print "<tr><td><b>{$felt_1}</b></td><td align=\"right\">" . dkdecimal($felt_2) . "</td></tr>";
print "<tr><td><b>{$felt_3}</b></td><td align=\"right\">" . dkdecimal($felt_4) . "</td></tr>";
} else {
if (findtekst(244, $sprog_id)) {
print "<tr><td><b>" . findtekst(244, $sprog_id) . "</b></td><td>{$felt_1}</td></tr>\n";
}
if (findtekst(245, $sprog_id)) {
print "<tr><td><b>" . findtekst(245, $sprog_id) . "</b></td><td>{$felt_2}</td></tr>\n";
}
if (findtekst(246, $sprog_id)) {
print "<tr><td><b>" . findtekst(246, $sprog_id) . "</b></td><td>{$felt_3}</td></tr>\n";
}
if (findtekst(247, $sprog_id)) {
print "<tr><td><b>" . findtekst(247, $sprog_id) . "</b></td><td>{$felt_4}</td></tr>\n";
}
if (findtekst(248, $sprog_id)) {
print "<tr><td><b>" . findtekst(248, $sprog_id) . "</b></td><td>{$felt_5}</td></tr>\n";
}
}
print "<tr><td colspan=\"2\"><b><hr></b></tr>\n";
print "<tr><td colspan=\"2\"><a href=\"ordre.php?id={$id}&returside={$returside}&vis_lev_addr=1\">Vis leveringsadresse</td></tr>\n";
}
$lev_max = 0;
$q = db_select("select lev_nr from batch_salg where ordre_id = {$id}", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
if ($r['lev_nr'] > $lev_max) {
$lev_max = $r['lev_nr'];
}
}
if ($lev_max > 0) {
print "<tr><td colspan=\"2\"> </td></tr>\n";
for ($levnr = 1; $levnr <= $lev_max; $levnr++) {
print "<tr><td colspan=\"2\"> <a href='udskriftsvalg.php?id={$id}&valg={$levnr}&formular=3'>Følgeseddel {$levnr}</a></td></tr>\n";
}
}
if (!$formularsprog) {
$formularsprog = 'Dansk';
}
$art == 'DO' ? $form_nr = 4 : ($form_nr = 5);
$q = db_select("select * from formularer where formular='{$form_nr}' and art='5' and lower(sprog)='" . strtolower($formularsprog) . "'", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
if ($r['xa'] == '1') {
$std_subj = $r['beskrivelse'];
} elseif ($r['xa'] == '2') {
$std_txt_title = $r['beskrivelse'];
}
list($std_txt, $tmp) = explode("<br>", $std_txt_title);
$mail_text ? $std_txt_title = $mail_text : ($std_txt_title = str_replace("<br>", "", $std_txt_title));
}
print "</tbody></table></td></tr>\n";
# -< Tabel 2.3
if ($udskriv_til == 'email') {
print "<tr><td align=\"center\" colspan=\"3\"><table cellpadding=\"0\" cellspacing=\"0\" border=\"0\" width=\"100%\"><tbody>\n";
#Tabel 2.4 ->
print "<tr><td width=\"120px\">Mail emne</td><td><input class=\"inputbox\" type=\"text\" style=\"width:1000px;\" onfocus=\"document.forms[0].fokus.value=this.name;\"name=\"mail_subj\" placeholder=\"{$std_subj}\" value=\"{$mail_subj}\" onchange=\"javascript:docChange = true;\"></td>";
if ($bilag) {
if ($dokument) {
print "<td title=\"klik her for at åbne bilaget: {$dokument}\"><a href=\"../includes/bilag.php?kilde=ordrer&filnavn={$dokument}&bilag_id={$id}&bilag={$dokument}&kilde_id={$id}\"><img style=\"border: 0px solid\" alt=\"clip_m_papir\" src=\"../ikoner/paper.png\"></a></td>";
} else {
print "<td title=\"klik her for at vedhæfte et bilag\"><a href=\"../includes/bilag.php?kilde=ordrer&bilag_id={$id}&bilag={$dokument}&ny=ja&kilde_id={$id}\"><img style=\"border: 0px solid\" alt=\"clip\" src=\"../ikoner/clip.png\"></a></td>";
}
}
print "</tr><tr><td valign=\"top\">Mail tekst</td><td title=\"{$std_txt_title}\">";
if ($mail_text) {
print "<textarea style=\"width:1000px;\" rows=\"2\" onfocus=\"document.forms[0].fokus.value=this.name;\"name=\"mail_text\" onchange=\"javascript:docChange = true;\">{$mail_text}</textarea>\n";
} else {
print "<input class=\"inputbox\" type=\"text\" style=\"width:1000px;\" onfocus=\"document.forms[0].fokus.value=this.name;\"name=\"mail_text\" placeholder=\"{$std_txt}\" value=\"{$mail_text}\" onchange=\"javascript:docChange = true;\">";
}
print "</td><td><input type=\"submit\" value=\"OK\" name=\"opdat_mailtext\"></td></tr></tbody></table></td></tr>\n";
# <- Tabel 2.4
}
print "<tr><td align=\"center\" colspan=\"3\"><table cellpadding=\"0\" cellspacing=\"0\" border=\"1\" width=\"100%\"><tbody>\n";
#Tabel 2.5 ->
//print "<tr><td colspan=\"7\"></td></tr>\n<tr>\n"; # udkommenteret 20140502
print "<td align=\"center\"><b>Pos.</b></td><td align=\"center\"><b>Varenr.</b></td><td align=\"center\"><b>Antal</b></td><td align=\"center\"><b>Enhed</b></td><td align=\"center\"><b>Beskrivelse</b></td><td align=\"center\"><b>Pris</b></td><td align=\"center\"><b>Rabat</b></td>\n";
# print "<td align=\"center\"><b>Pos.</b></td><td align=\"center\"><b>Varenr.</b></td><td align=\"center\"><b>Antal</b></td><td align=\"center\"><b>Enhed</b></td><td align=\"center\"><b>Beskrivelse</b></td><td align=\"center\"><b>Pris</b></td><td align=\"center\"><b>Rabat</b></td>";
if ($procentfakt) {
print "<td align=\"center\"><b>Procent</b></td>\n";
}
print "<td align=\"center\"><b>I alt</b></td>\n";
if (db_fetch_array(db_select("select * from grupper where art = 'PRJ' order by kodenr", __FILE__ . " linje " . __LINE__))) {
$vis_projekt = 'on';
}
if ($vis_projekt && !$projekt[0]) {
print "<td align=\"center\" title=\"Projektnummer. Vises for ordrelinjer tilknyttet et projekt.\"><b>Proj.</b></td>\n";
}
# else //print "<td></td>\n"; # udkommenteret 20140502
if ($genfakt) {
print "<td align=\"center\" title=\"Når dette felt er afmærket udelades ordrelinjen ved genfakturering.\"><b>kdo</b></td>\n";
}
if ($omkunde) {
print "<td align=\"center\" title =\"Hvis feltet vises er kunden underlagt reglerne for omvendt betalingspligt. Er varen afmærkeret er der ikke opkrævet moms for den pågældende vare.\"><b>O/B</b></td>";
}
print "</tr>\n";
$x = 0;
$k_sum = 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] = $x;
$varenr[$x] = HtmlEntities($row['varenr'], ENT_COMPAT, $charset);
$lev_varenr[$x] = HtmlEntities($row['lev_varenr'], ENT_COMPAT, $charset);
$beskrivelse[$x] = HtmlEntities($row['beskrivelse'], ENT_COMPAT, $charset);
$enhed[$x] = HtmlEntities($row['enhed'], ENT_COMPAT, $charset);
$pris[$x] = $row['pris'] * 1;
$rabat[$x] = $row['rabat'] * 1;
$rabatart[$x] = $row['rabatart'];
$procent[$x] = $row['procent'];
$antal[$x] = $row['antal'];
$momsfri[$x] = $row['momsfri'];
$varemomssats[$x] = $row['momssats'];
$folgevare[$x] = $row['folgevare'];
$saet[$x] = $row['saet'];
$samlevare[$x] = $row['samlevare'];
$fast_db[$x] = $row['fast_db'];
$row['omvbet'] ? $omvbet[$x] = 'checked' : ($omvbet[$x] = '');
#omvendt betalingspligt
if (!$varemomssats[$x] || $varemomssats[$x] > $momssats) {
$varemomssats[$x] = $momssats;
}
if ($momsfri[$x] || $omvbet[$x]) {
$varemomssats[$x] = 0;
}
$serienr[$x] = HtmlEntities($row['serienr'], ENT_COMPAT, $charset);
$kostpris[$x] = $row['kostpris'];
$k_sum += $kostpris[$x] * $antal[$x];
$projekt[$x] = $row['projekt'];
$omvbet[$x] = $row['omvbet'];
$lev_varenr[$x] = $row['lev_varenr'];
$row['kdo'] ? $kdo[$x] = 'checked' : ($kdo[$x] = '');
#/*
if (!$brugsamletpris) {
if ($vare_id[$x]) {
list($koordpr, $koordnr, $koordant, $koordid, $koordart) = explode(chr(9), find_kostpris($vare_id[$x], $linje_id[$x]));
$kobs_ordre_pris = explode(",", $koordpr);
$ko_ant[$x] = count($kobs_ordre_pris);
$kobs_ordre_id = explode(",", $koordid);
$kobs_ordre_antal = explode(",", $koordant);
$kobs_ordre_art = explode(",", $koordart);
$kostpris[$x] = 0;
for ($y = 0; $y < $ko_ant[$x]; $y++) {
$kostpris[$x] += $kobs_ordre_pris[$y];
if ($valutakurs && $valutakurs != 100) {
$kostpris[$x] *= 100 / $valutakurs;
}
}
$kostpris[$x] /= $ko_ant[$x];
#20141023
#cho "Kost3 $kostpris[$x]<br>";
$kostsum[$x] = $kostpris[$x] * $antal[$x];
#cho "Kost4 $kostsum[$x]<br>";
# db_modify("update ordrelinjer set kostpris='$kostpris[$x]' where id='$linje_id[$x]'",__FILE__ . " linje " . __LINE__);
$db[$x] = ($pris[$x] - $kostpris[$x]) * $antal[$x];
#cho "DB $db[$x]=($pris[$x]-$kostpris[$x])*$antal[$x]<br>";
if ($pris[$x] != 0) {
$dg[$x] = $db[$x] * 100 / $pris[$x];
} else {
$dg[$x] = 0;
}
$dk_db[$x] = dkdecimal($db[$x]);
$dk_dg[$x] = dkdecimal($dg[$x]);
#cho "$dk_db[$x] $dk_dg[$x]<br>";
}
}
if ($art == 'DK' && $antal[$x] < 0) {
$bogfor == 0;
}
if ($serienr[$x]) {
$serienumre[$x] = NULL;
$q2 = db_select("select serienr from serienr where salgslinje_id='{$linje_id[$x]}' order by serienr", __FILE__ . " linje " . __LINE__);
while ($r2 = db_fetch_array($q2)) {
$serienumre[$x] ? $serienumre[$x] .= ',' . $r['serienr'] : ($serienumre[$x] = $r['serienr']);
}
}
#*/
if ($brugsamletpris && $linje_id[$x]) {
db_modify("update ordrelinjer set posnr='{$x}' where id = '{$linje_id[$x]}'", __FILE__ . " linje " . __LINE__);
}
}
}
$linjeantal = $x;
print "<input type=\"hidden\" name=\"linjeantal\" value=\"{$x}\">\n";
$totalrest = 0;
for ($x = 1; $x <= $linjeantal; $x++) {
if (!$vare_id[$x]) {
$query = db_select("select id from varer where varenr = '{$varenr[$x]}'", __FILE__ . " linje " . __LINE__);
if ($row = db_fetch_array($query)) {
$vare_id[$x] = $row['id'];
}
}
if ($varenr[$x] && $vare_id[$x]) {
$row = db_fetch_array(db_select("select gruppe,provisionsfri from varer where id = '{$vare_id[$x]}'", __FILE__ . " linje " . __LINE__));
$provisionsfri[$x] = $row['provisionsfri'];
$row = db_fetch_array(db_select("select box8,box9 from grupper where art='VG' and kodenr='{$row['gruppe']}'", __FILE__ . " linje " . __LINE__));
$row['box8'] == 'on' ? $lagervare = 1 : ($lagervare = 0);
$row['box9'] == 'on' ? $batchvare = 1 : ($batchvare = 0);
if ($rabatart[$x] == 'amount') {
$ialt = ($pris[$x] - $rabat[$x]) * $antal[$x];
} else {
$ialt = ($pris[$x] - $pris[$x] / 100 * $rabat[$x]) * $antal[$x];
}
if ($provisionsfri[$x]) {
if ($art == 'DO') {
$kostsum[$x] = $ialt;
}
}
# if ($valutakurs)$kostsum[$x]*=$valutakurs/100; #20140116
$db[$x] = $ialt - $kostsum[$x];
$ialt = afrund($ialt, 3);
if ($ialt != 0) {
$dg[$x] = $db[$x] * 100 / $ialt;
$dk_dg[$x] = dkdecimal($dg[$x]);
}
$dk_kostpris[$x] = dkdecimal($kostpris[$x]);
if ($art == 'DO') {
$dk_db[$x] = dkdecimal($db[$x]);
$dk_kostsum[$x] = dkdecimal($kostsum[$x]);
} else {
$dk_db[$x] = dkdecimal($db[$x] * -1);
$dk_kostsum[$x] = dkdecimal($kostsum[$x] * -1);
}
$dkpris = dkdecimal($pris[$x]);
$rabat[$x] ? $dkrabat = dkdecimal($rabat[$x], 3) : ($dkrabat = NULL);
$dkprocent = dkdecimal($procent[$x]);
if ($momsfri[$x] != 'on' && !$omvbet[$x]) {
if ($incl_moms) {
$dkpris = dkdecimal($pris[$x] + $pris[$x] * $varemomssats[$x] / 100);
}
}
if ($antal[$x]) {
if ($art == 'DK') {
$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);
}
}
if ($saet[$x] || $rvnr || $lev_varenr[$x]) {
$dkrabat = NULL;
if ($lev_varenr[$x]) {
$dkpris = NULL;
}
}
} else {
$antal[$x] = '';
$dkpris = '';
$dkrabat = '';
$dkprocent = '';
$ialt = '';
}
$title = var2str($beskrivelse[$x], $id, $posnr[$x], $varenr[$x], $dkantal[$x], $enhed[$x], $dkpris, $dkprocent, $serienr[$x], $varemomssats[$x], $rabat[$x]);
print "<tr bgcolor=\"{$linjebg}\">\n";
print "<input type=\"hidden\" name=\"linje_id[{$x}]\" value=\"{$linje_id[$x]}\">\n";
print "<input type=\"hidden\" name=\"posn{$x}\" value=\"{$posnr[$x]}\"><td align=\"right\">{$posnr[$x]}</td>\n";
print "<input type=\"hidden\" name=\"vare{$x}\" value=\"{$varenr[$x]}\"><td>{$varenr[$x]}<br></td>\n";
print "<input type=\"hidden\" name=\"dkan{$x}\" value=\"{$dkantal[$x]}\"><td align=\"right\">{$dkantal[$x]}<br></td>\n";
print "<input type=\"hidden\" name=\"enhed[{$x}]\" value=\"{$enhed[$x]}\"><td align=\"right\">{$enhed[$x]}<br></td>\n";
print "<input type=\"hidden\" name=\"beskrivelse{$x}\" value=\"{$beskrivelse[$x]}\"><td title=\"{$title}\">" . str_replace("\n", "<br>", $beskrivelse[$x]) . " </td>\n";
print "<input type=\"hidden\" name=\"pris{$x}\" value=\"" . dkdecimal($pris[$x], 3) . "\"><td align=\"right\" title=\"Kostpris {$dk_kostpris[$x]}\">{$dkpris}<br></td>\n";
# print "<input type=\"hidden\" name=\"pris$x\" value=\"$dkpris\"><td align=\"right\">$dkpris<br></td>\n";
print "<input type=\"hidden\" name=\"raba{$x}\" value=\"" . dkdecimal($rabat[$x], 3) . "\"><td align=\"right\">{$dkrabat}<br></td>\n";
print "<input type=\"hidden\" name=\"proc{$x}\" value=\"{$dkprocent}\">";
if ($procentfakt) {
print "<td align=\"right\">{$dkprocent}<br></td>\n";
}
print "<input type=\"hidden\" name=\"serienr[{$x}]\" value=\"{$serienr[$x]}\">\n";
print "<input type=\"hidden\" name=\"vare_id[{$x}]\" value=\"{$vare_id[$x]}\">\n";
print "<input type=\"hidden\" name=\"lev_varenr[{$x}]\" value=\"{$lev_varenr[$x]}\">\n";
print "<input type=\"hidden\" name=\"kdo[{$x}]\" value=\"{$kdo[$x]}\">\n";
print "<input type=\"hidden\" name=\"rabatart[{$x}]\" value=\"{$rabatart[$x]}\">\n";
print "<input type=\"hidden\" name=\"momsfri[{$x}]\" value=\"{$momsfri[$x]}\">\n";
print "<input type=\"hidden\" name=\"varemomssats[{$x}]\" value=\"{$varemomssats[$x]}\">\n";
print "<input type=\"hidden\" name=\"samlevare[{$x}]\" value=\"{$samlevare[$x]}\">\n";
print "<input type=\"hidden\" name=\"folgevare[{$x}]\" value=\"{$folgevare[$x]}\">\n";
print "<input type=\"hidden\" name=\"omvbet[{$x}]\" value=\"{$omvbet[$x]}\">\n";
print "<input type=\"hidden\" name=\"saet[{$x}]\" value=\"{$saet[$x]}\">\n";
print "<input type=\"hidden\" name=\"fast_db[{$x}]\" value=\"{$fast_db[$x]}\">\n";
if ($brugsamletpris) {
$dbsum = $sum - $k_sum;
#else $dbsum=-$sum-$k_sum;
} else {
$dbsum = $dbsum + $db[$x];
}
if ($ialt) {
if ($procentfakt) {
$ialt *= $procent[$x] / 100;
}
if ($varenr[$x]) {
if ($incl_moms && !$momsfri[$x] && !$omvbet[$x]) {
$tmp = $ialt + $ialt * $momssats / 100;
} else {
$tmp = $ialt;
}
if ($brugsamletpris) {
if ($saet[$x] || $varenr[$x] == $rvnr) {
if ($lev_varenr[$x]) {
list($tmp) = explode("|", $lev_varenr[$x], 2);
} else {
$tmp = '';
}
} elseif ($rvnr && $incl_moms) {
#20150917
$tmp = $antal[$x] * ($pris[$x] + $pris[$x] * $momssats / 100);
}
}
if ($art == 'DK') {
$tmp *= -1;
}
$tmp = dkdecimal($tmp);
}
print "<td align=\"right\" title=\"Kostpris {$dk_kostsum[$x]} * db: {$dk_db[$x]} * dg: {$dk_dg[$x]}%\">" . $tmp . "</td>\n";
} else {
print "<td> </td>\n";
}
print "<input type=\"hidden\" name=\"projekt[{$x}]\" value=\"{$projekt[$x]}\">\n";
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>\n";
}
// else print "<td></td>"; # udkommenteret 20140502
print $kdo[$x];
if ($genfakt) {
print "<td align=\"center\">";
if ($kdo[$x]) {
print "<b>√</b>";
}
print "</td>";
}
if ($omvbet[$x]) {
$omvbet[$x] = "√";
}
if ($omkunde) {
print "<td align=\"center\">{$omvbet[$x]}</td>\n";
}
#cho "$kobs_ordre_id[0] && $art!='DK' && $ko_ant[$x]>=1<br>";
if ($kobs_ordre_id[0] && $art != 'DK' && $ko_ant[$x] >= 1) {
for ($y = 0; $y < $ko_ant[$x]; $y++) {
$spantekst = "Købsordre {$kobs_ordre_nr[$y]} \n antal: {$kobs_ordre_antal[$y]} á " . dkdecimal($kobs_ordre_pris[$y]);
if ($kobs_ordre_art[$y] == 'KO') {
$link = "../kreditor/ordre.php?id={$kobs_ordre_id[$y]}";
} else {
$link = "../debitor/ordre.php?id={$kobs_ordre_id[$y]}";
}
print "<td align=\"right\" onClick=\"javascript:k_ordre=window.open('{$link}','ordre' ,'left=10,top=10,width=800,height=400,scrollbars=yes,resizable=yes,menubar=no,location=no');k_ordre.focus();\"onMouseOver=\"this.style.cursor = 'pointer'\" title=\"'{$spantekst}'\"><img src=\"../ikoner/opslag.png\"></td>\n";
}
} else {
//print "<td><br></td>\n"; # udkommenteret 20140502
if ($serienr[$x]) {
print "<td onClick=\"serienummer({$linje_id[$x]})\" onMouseOver=\"this.style.cursor = 'pointer'\" align=\"right\" title=\"Serienumre \"><img alt=\"Serienummer\" src=\"../ikoner/serienr.png\"></td>\n";
}
}
}
# 20150412
if ($brugsamletpris) {
print "<tr><td></td><td></td><td></td><td></td><td><textarea class=\"autosize inputbox ordreText comment\" id=\"comment\" rows=\"1\" cols=\"58\" name=\"ekstratekst\" onfocus=\"document.forms[0].fokus.value=this.name; var val=this.value; this.value=''; this.value= val;\"></textarea></td><td colspan=\"3\"><input style=\"width:100%\" type=\"submit\" name=\"tilfoj\" value=\"Tilføj\"></td></tr>";
}
# $tmp=$momssum/100*$momssats; #ellers runder den ned ved v. 0,5 re ??
# $moms=afrund($tmp,3);
$kostpris[0] = $kostpris[0] * 1;
if ($submit == 'del_ordre' || $submit == 'Fakturer') {
db_modify("update ordrer set sum='{$sum}',kostpris='{$kostpris['0']}',moms='{$moms}' where id='{$id}'", __FILE__ . " linje " . __LINE__);
}
if ($art == 'DK') {
$sum = $sum * -1;
$momssum = $momssum * -1;
$moms = $moms * -1;
}
# $tmp=$momssum/100*$momssats; #ellers runder den ned ved v. 0,5 ??
# $moms=afrund($tmp,3);
$ialt = $sum + $moms;
print "<tr><td colspan=\"11\"><br></td></tr>\n";
print "<tr><td colspan=\"11\"><table border=\"1\" cellspacing=\"0\" cellpadding=\"1\" width=\"100%\"><tbody>\n";
#Tabel 2.5.1 ->
print "<tr bgcolor=\"{$bgcolor5}\">\n";
# print "<td align=\"center\">".dkdecimal($procenttillag)."% tillæg ".dkdecimal($tillag)." </td>\n";
print "<td width=\"20%\" align=\"center\">Nettosum " . dkdecimal($sum) . "</td>\n";
print "<td width=\"20%\" align=\"center\" title=\"Dækningsbidrag: " . dkdecimal($dbsum) . "\">";
if (!$vis_saet) {
print "Dækningsbidrag: " . dkdecimal($dbsum);
}
print "</td>\n";
if ($sum) {
$dg_sum = $dbsum * 100 / $sum;
} else {
$dg_sum = dkdecimal(0);
}
print "<td width=\"20%\" align=\"center\" title=\"Dækningsgrad: " . dkdecimal($dg_sum) . "%\">";
if (!$vis_saet) {
print "Dækningsgrad: " . dkdecimal($dg_sum);
}
print "</td>\n";
print "<td align=\"center\">Moms " . dkdecimal($moms) . "</td>\n";
print "<td align=\"center\" title=\"Dækningsgrad: " . dkdecimal($dg_sum) . "%\">I alt " . dkdecimal($ialt) . "</td>\n";
print "</tbody></table></td></tr>\n";
#<- Tabel 2.5.1
print "<tr><td align=\"center\" colspan=\"11\">\n";
print "<table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\"><tbody><tr>\n";
#Tabel 2.5.2 ->
if ($art != 'DK') {
print "<td align=\"center\"><input type=\"submit\" class=\"button gray medium\" value=\" Kopiér \" name=\"submit\" title=\"Kopiér til ny ordre med samme indhold.\"></td>\n";
}
if ($mail_fakt) {
$tmp = "value=\" Send \" onclick=\"return confirm('Dokumentet sendes pr. mail til {$email}')\" title=\"Send via e-mail med vedhæftet PDF-fil. Anden form for behandling vælges fra listen Udskriv til.\"";
} else {
$tmp = "value=\" Udskriv \" title=\"Åbn et PDF-dokument, som kan gemmes eller viderebehandles på anden vis.\"";
}
print "<td align=\"center\"><input type=\"submit\" class=\"button gray medium\" name=\"submit\" {$tmp}></td>\n";
if ($art != 'DK' && !$krediteret) {
$title = "Klik her for at oprette en kreditnota, som hel eller delvist krediterer denne faktura. Kreditnotaen oprettes som en kreditnotaordre, som kan redigeres inden bogføring. Eksempelvis hvis kun en enkelt faktureret vare skal krediteres.";
print "<td align=\"center\" title=\"{$title}\"><input type=\"submit\" class=\"button gray medium\" value=\"Kreditér\" name=\"submit\"></td>\n";
}
print "</tbody></table></td></tr>\n";
#<- Tabel 2.5.2
print "</tbody></table></td></tr>\n";
#<- Tabel 2.5
print "</tbody></table></td></tr>\n";
#<- Tabel 2
print "</form>\n";
} else {
############################# ordren er ikke faktureret #################################
if ($brugernavn && !$ref) {
$ref = $brugernavn;
}
if (!$konto_id) {
#20150302
if ($incl_moms) {
$momssats = 25;
}
$status = 0;
}
if ($rvnr || $brugsamletpris) {
$x = 1;
$linje_id = array();
$q = db_select("select id from ordrelinjer where ordre_id = '{$id}' and saet > 0 and varenr!='{$rvnr}' order by saet,samlevare,posnr,id", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$linje_id[$x] = $r['id'];
$x++;
}
$q = db_select("select id,saet from ordrelinjer where ordre_id = '{$id}' and rabat > 0 and varenr!='{$rvnr}' order by saet,samlevare,posnr,id", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
if (!$r['saet']) {
$linje_id[$x] = $r['id'];
$x++;
}
}
$qtxt = "select id from ordrelinjer where ordre_id = '{$id}' and vare_id > '0' and (varenr='{$svnr}' or varenr='{$rvnr}')";
if (db_fetch_array(db_select($qtxt, __FILE__ . " linje " . __LINE__))) {
#20150914 Skal kun afvikles hvis der er rabat eller sæt vnr på ordren.
$qtxt = "select id from ordrelinjer where ordre_id = '{$id}' and vare_id > '0' and varenr='{$rvnr}'";
$r = db_fetch_array(db_select($qtxt, __FILE__ . " linje " . __LINE__));
if ($linje_id[$x] = $r['id']) {
$x++;
}
$q = db_select("select * from ordrelinjer where ordre_id = '{$id}' order by posnr", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
if (!$r['saet'] && $r['rabat'] * 1 == 0 && $r['varenr'] != $rvnr || !$r['varenr']) {
$linje_id[$x] = $r['id'];
$x++;
}
}
for ($x = 1; $x <= count($linje_id); $x++) {
if ($linje_id[$x]) {
db_modify("update ordrelinjer set posnr='{$x}' where id='{$linje_id[$x]}'", __FILE__ . " linje " . __LINE__);
}
}
}
}
$qtxt = "select max(antal) as antal from ordrelinjer where ordre_id = '{$id}' and vare_id > '0'";
$r = db_fetch_array(db_select($qtxt, __FILE__ . " linje " . __LINE__));
$r['antal'] < 0 ? $dan_kn = 1 : ($dan_kn = NULL);
print "<form name=\"ordre\" action=\"ordre.php?id={$id}&sag_id={$sag_id}&returside={$returside}\" method=\"post\">\n";
print "<input type=\"hidden\" name=\"ordrenr\" value=\"{$ordrenr}\">\n";
print "<input type=\"hidden\" name=\"status\" value=\"{$status}\">\n";
print "<input type=\"hidden\" name=\"id\" value=\"{$id}\">\n";
print "<input type=\"hidden\" name=\"art\" value=\"{$art}\">\n";
print "<input type=\"hidden\" name=\"kred_ord_id\" value=\"{$kred_ord_id}\">\n";
print "<input type=\"hidden\" name=\"sag_id\" value=\"{$sag_id}\">\n";
#20140507-1
if ($art == 'OT') {
// Når input fields er 'disabled' bliver de ikke opdateret, derfor tilføjes hidden fields #20140716
print "<input type=\"hidden\" name=\"kontonr\" value=\"{$kontonr}\">\n";
print "<input type=\"hidden\" name=\"ref\" value=\"{$ref}\">\n";
print "<input type=\"hidden\" name=\"procenttillag\" value=\"" . dkdecimal($procenttillag) . "\">";
print "<input type=\"hidden\" name=\"felt_1\" style=\"width:200px\" value=\"{$felt_1}\">\n";
print "<input type=\"hidden\" name=\"felt_2\" style=\"width:200px\" value=\"{$felt_2}\">\n";
print "<input type=\"hidden\" name=\"felt_3\" style=\"width:200px\" value=\"{$felt_3}\">\n";
print "<input type=\"hidden\" name=\"felt_4\" style=\"width:200px\" value=\"{$felt_4}\">\n";
print "<input type=\"hidden\" name=\"felt_5\" style=\"width:200px\" value=\"{$felt_5}\">\n";
print "<input type=\"hidden\" name=\"lev_navn\" value=\"{$lev_navn}\">\n";
print "<input type=\"hidden\" name=\"lev_addr1\" value=\"{$lev_addr1}\"><input type=\"hidden\" name=\"lev_addr2\" value=\"{$lev_addr2}\">\n";
print "<input type=\"hidden\" name=\"lev_postnr\" value=\"{$lev_postnr}\"><input type=\"hidden\" name=\"lev_bynavn\" value=\"{$lev_bynavn}\">\n";
print "<input type=\"hidden\" name=\"lev_kontakt\" value=\"{$lev_kontakt}\">\n";
}
#cho "status $status<br>";
#intiering af variabler
$antal_ialt = 0;
#10.10.2007
$leveres_ialt = 0;
#10.10.2007
$tidl_lev_ialt = 0;
#10.10.2007
$konto_id *= 1;
#cho "art: $art<br>"; #cho "vis_lev_addr: $vis_lev_addr<br>"; #cho "ref: $ref";
$r = db_fetch_array(db_select("select * from adresser where id={$konto_id}", __FILE__ . " linje " . __LINE__));
$k_firmanavn = HtmlEntities($r['firmanavn'], ENT_COMPAT, $charset);
$k_addr1 = HtmlEntities($r['addr1'], ENT_COMPAT, $charset);
$k_addr2 = HtmlEntities($r['addr2'], ENT_COMPAT, $charset);
$k_postnr = HtmlEntities($r['postnr'], ENT_COMPAT, $charset);
$k_bynavn = HtmlEntities($r['bynavn'], ENT_COMPAT, $charset);
$k_land = HtmlEntities($r['land'], ENT_COMPAT, $charset);
$k_cvrnr = HtmlEntities($r['cvrnr'], ENT_COMPAT, $charset);
$k_betalingsbet = HtmlEntities($r['betalingsbet'], ENT_COMPAT, $charset);
$k_betalingsdage = HtmlEntities($r['betalingsdage'], ENT_COMPAT, $charset);
$k_email = HtmlEntities($r['email'], ENT_COMPAT, $charset);
$k_ean = HtmlEntities($r['ean'], ENT_COMPAT, $charset);
$k_institution = HtmlEntities($r['institution'], ENT_COMPAT, $charset);
// Query til kunde kontakt
$x = 0;
#20140826
$q = db_select("select * from ansatte where konto_id='{$konto_id}' order by posnr", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$a_kontakt[$x] = htmlspecialchars($r['navn']);
$a_mobil[$x] = $r['mobil'];
$a_email[$x] = HtmlEntities($r['email']);
$x++;
}
//echo "kontakt: $kontakt<br>";
//echo "konto id: $konto_id<br>";
//echo "kontakt_tlf: $kontakt_tlf<br>";
##### pile ######## tilfoejet 20080210
$alerttekst = findtekst(154, $sprog_id);
$spantekst = findtekst(198, $sprog_id);
print "<table cellpadding=\"1\" cellspacing=\"1\" border=\"0\" width=\"100%\" valign = \"top\"><tbody>\n";
#Tabel 3 ->
if ($prev_id) {
print "<tr><td width=\"50%\" title=\"{$spantekst}\"><a href=\"javascript:confirmClose('ordre.php?id={$prev_id}&returside={$returside}','{$alerttekst}')\"><img src=\"../ikoner/left.png\" style=\"border: 0px solid; width: 15px; height: 15px;\"></a></span></td>\n";
} else {
print "<tr><td width=\"50%\"></td>\n";
}
$spantekst = findtekst(199, $sprog_id);
if ($next_id) {
print "<td width=\"50%\" align=\"right\" title=\"{$spantekst}\"><a href=\"javascript:confirmClose('ordre.php?id={$next_id}&returside={$returside}','{$alerttekst}')\"><img src=\"../ikoner/right.png\" style=\"border: 0px solid; width: 15px; height: 15px;\"></a></span></td></tr>\n";
} else {
print "<tr><td width=\"50%\"></td>\n";
}
print "</tbody></table>\n";
# <- Tabel 3
##### pile ########
print "<table cellpadding=\"1\" cellspacing=\"1\" border=\"1\"\tvalign = \"top\"><tbody>\n";
#Tabel 4 ->
$ordre_id = $id;
$ret = 0;
$art == 'OT' ? $disabled = "disabled='disabled'" : ($disabled = NULL);
#20140716
print "<tr><td width=\"31%\"><table cellpadding=\"0\" cellspacing=\"0\" border=\"0\">\n";
#Tabel 4.1 ->
print "<tr><td witdh=\"100\">Kontonr.</td><td colspan=\"2\">\n";
if (trim($kontonr)) {
if ($status < 1) {
print "<input class=\"inputbox\" type=\"text\" style=\"width:200px;background-color:#ddd;\" name=\"kontonr\" readonly=\"readonly\" onfocus=\"document.forms[0].fokus.value=this.name;\" value=\"{$kontonr}\" {$disabled}></td></tr>\n";
} else {
print "<input class=\"inputbox\" type=\"text\" readonly=\"readonly\" style=\"width:200px;background-color:#ddd;\" name=\"kontonr\" onfocus=\"document.forms[0].fokus.value=this.name;\" value=\"{$kontonr}\"></td></tr>\n";
}
} else {
print "<input class=\"inputbox\" type=\"text\" style=\"width:200px\" name=\"kontonr\" onfocus=\"document.forms[0].fokus.value=this.name;\" value=\"{$kontonr}\" onchange=\"javascript:docChange = true;\"></td></tr>\n";
}
if ($firmanavn == $k_firmanavn) {
$tekstcolor = "#444444";
} else {
$tekstcolor = "#ff0000";
$ret = 1;
}
print "<tr><td style=\"color:{$tekstcolor};\" title=\"{$k_firmanavn}\">Firmanavn</td><td colspan=\"2\"><input class=\"inputbox\" type=\"text\" style=\"width:200px\" name=\"firmanavn\" onfocus=\"document.forms[0].fokus.value=this.name;\" value=\"{$firmanavn}\" onchange=\"javascript:docChange = true;\" {$disabled}></td></tr>\n";
if ($addr1 == $k_addr1 && $addr2 == $k_addr2) {
$tekstcolor = "#444444";
} else {
$tekstcolor = "#ff0000";
$ret = 1;
}
print "<tr><td style=\"color:{$tekstcolor};\" title=\"{$k_addr1},{$k_addr2}\">Adresse</td><td colspan=\"2\"><input class=\"inputbox\" type=\"text\" style=\"width:200px\" name=\"addr1\" onfocus=\"document.forms[0].fokus.value=this.name;\" value=\"{$addr1}\" onchange=\"javascript:docChange = true;\" {$disabled}></td></tr>\n";
print "<tr><td></td><td colspan=\"2\" style=\"color:{$tekstcolor};\" ><input class=\"inputbox\" type=\"text\" style=\"width:200px\" name=\"addr2\" onfocus=\"document.forms[0].fokus.value=this.name;\" value=\"{$addr2}\" onchange=\"javascript:docChange = true;\" {$disabled}></td></tr>\n";
if ($postnr == $k_postnr) {
$tekstcolor = "#444444";
} else {
$tekstcolor = "#ff0000";
$ret = 1;
}
print "<tr><td><span style=\"color:{$tekstcolor};\" title=\"{$k_postnr}\">Postnr.</span> & ";
if ($bynavn == $k_bynavn) {
$tekstcolor = "#444444";
} else {
$tekstcolor = "#ff0000";
$ret = 1;
}
print "<span style=\"color:{$tekstcolor};\" title=\"{$k_bynavn}\">by</span></td><td colspan=\"2\"><input class=\"inputbox\" type=\"text\" style=\"width:45px;\" name=\"postnr\" onfocus=\"document.forms[0].fokus.value=this.name;\" value=\"{$postnr}\" onchange=\"javascript:docChange = true;\" {$disabled}><input class=\"inputbox\" type=\"text\" style=\"width:150px;margin-left:3px;\" name=\"bynavn\" onfocus=\"document.forms[0].fokus.value=this.name;\" value=\"{$bynavn}\" onchange=\"javascript:docChange = true;\" {$disabled}></td></tr>\n";
if ($land == $k_land) {
$tekstcolor = "#444444";
} else {
$tekstcolor = "#ff0000";
$ret = 1;
}
print "<tr><td style=\"color:{$tekstcolor};\" title=\"{$k_land}\">Land</td><td colspan=\"2\"><input class=\"inputbox\" type=\"text\" style=\"width:200px\" name=\"land\" onfocus=\"document.forms[0].fokus.value=this.name;\" value=\"{$land}\" onchange=\"javascript:docChange = true;\" {$disabled}></td></tr>\n";
if (!$sag_id) {
#20140826
print "<tr><td>Att.</td><td colspan=\"2\"><input class=\"inputbox\" type=\"text\" style=\"width:200px\" name=\"kontakt\" onfocus=\"document.forms[0].fokus.value=this.name;\" value=\"{$kontakt}\" onchange=\"javascript:docChange = true;\" {$disabled}></td></tr>\n";
} else {
print "<tr><td>Att.</td><td colspan=\"2\"><div class=\"ddbox\"><input class=\"inputbox ddtext\" type=\"text\" name=\"kontakt\" id=\"Textbox\" onfocus=\"document.forms[0].fokus.value=this.name;\" value=\"{$kontakt}\" onchange=\"javascript:docChange = true;\" {$disabled}>\n";
// DropDownIndexClear('DropDownExTextbox');
print "<select name=\"DropDownExTextbox\" id=\"DropDownExTextbox\" tabindex=\"1000\" class=\"inputbox ddselect\" {$disabled}>\n";
// onchange=\"DropDownTextToBox(this,'Textbox');\"
for ($y = 0; $y <= count($a_kontakt); $y++) {
print "<option value=\"{$a_kontakt[$y]}\" data-kontakt_tlf=\"{$a_mobil[$y]}\">{$a_kontakt[$y]}</option>\n";
}
print "</select></div></td></tr>\n";
print "<tr><td>Att. tlf</td><td colspan=\"2\"><input class=\"inputbox\" type=\"text\" style=\"width:200px\" name=\"kontakt_tlf\" id=\"kontakt_tlf\" onfocus=\"document.forms[0].fokus.value=this.name;\" value=\"{$kontakt_tlf}\" onchange=\"javascript:docChange = true;\" {$disabled}></td></tr>\n";
#20160129
print "<script language=\"javascript\" type=\"text/javascript\">\n\t\t\t\n\t\t\t\t\t\t\tDropDownIndexClear(\"DropDownExTextbox\");\n\t\t\t\t\t\t\t\n\t\t\t\t\t\t\t\$('#DropDownExTextbox').on('change', function () {\n\t\t\t\t\t\t\t\t\t\n\t\t\t\t\t\t\t\t\tvar select = \$(this).find('option:selected').val()\n\t\t\t\t\t\t\t\t\tvar selectTlf = \$(this).find('option:selected').attr('data-kontakt_tlf')\n\t\t\t\t\t\t\t\t\t\$('#Textbox').val(select)\n\t\t\t\t\t\t\t\t\t\$('#kontakt_tlf').val(selectTlf)\n\t\t\t\t\t\t\tDropDownIndexClear(\"DropDownExTextbox\");\n\t\t\t\t\t\t\t});\n\t\t\t\t\t\t\t\n\t\t\t\t\t\t</script>\n";
}
print "<tr><td title=\"Kundens ordrenummer som refererence\">Kundeordre</td><td colspan=\"2\"><input class=\"inputbox\" type=\"text\" style=\"width:200px\" name=\"kundeordnr\" onfocus=\"document.forms[0].fokus.value=this.name;\" value=\"{$kundeordnr}\" onchange=\"javascript:docChange = true;\" {$disabled}></td></tr>\n";
#cho "$cvrnr!=$k_cvrnr<br>";
if ($cvrnr != $k_cvrnr || $ean != $k_ean || $email != $k_email || $institution != $k_institution) {
$ret = 1;
}
if ($ret) {
print "<tr><td></td><td align=\"center\"><a href=\"sync_stamkort.php?konto_id={$konto_id}&ordre_id={$id}&retning=op\"><img src=\"../ikoner/up.png\" title=\"Klik her for at synkronisere stamkort med informationer fra ordre\" style=\"border: 0px solid; width: 25px; height: 25px;\"></a></td>";
print "<td align=\"center\"><a href=\"sync_stamkort.php?konto_id={$konto_id}&ordre_id={$id}&retning=ned\"><img src=\"../ikoner/down.png\" title=\"Klik her for at synkronisere ordre med informationer fra stamkort\" style=\"border: 0px solid; width: 25px; height: 25px;\"></a></td></tr>\n";
}
print "</tbody></table></td>\n\n";
# <- Tabel 4.1
print "<td width=\"38%\"><table cellpadding=\"0\" cellspacing=\"0\" border=\"0\" width=\"250\">\n";
#Tabel 4.2 ->
$cvrnr == $k_cvrnr ? $tekstcolor = "#444444" : ($tekstcolor = "#ff0000");
print "<tr><td style=\"color:{$tekstcolor};\" title=\"{$k_cvrnr}\">CVR-nr.</td><td><input class=\"inputbox\" type=\"text\" style=\"width:130px\" name=\"cvrnr\" value=\"{$cvrnr}\" onchange=\"javascript:docChange = true;\" {$disabled}></td>\n";
$ean == $k_ean ? $tekstcolor = "#444444" : ($tekstcolor = "#ff0000");
print "<td> </td><td style=\"color:{$tekstcolor};\">EAN-nr.</td><td><input class=\"inputbox\" type=\"text\" style=\"width:130px\" name=\"ean\" value=\"{$ean}\" onchange=\"javascript:docChange = true;\" {$disabled}></td></tr>\n";
$email == $k_email ? $tekstcolor = "#444444" : ($tekstcolor = "#ff0000");
if (!$sag_id) {
#20160303
print "<tr><td style=\"color:{$tekstcolor};\" title=\"{$k_email}\">E-mail</td><td><input class=\"inputbox\" type=\"text\" style=\"width:130px\" name=\"email\" value=\"{$email}\" onchange=\"javascript:docChange = true;\"></td>\n";
} else {
print "<tr><td style=\"color:{$tekstcolor};\" title=\"{$k_email}\">E-mail</td><td><div class=\"ddbox2\"><input class=\"inputbox ddtext2\" type=\"text\" name=\"email\" id=\"Textbox2\" value=\"{$email}\" onchange=\"javascript:docChange = true;\">\n";
print "<select name=\"DropDownExTextbox2\" id=\"DropDownExTextbox2\" tabindex=\"1000\" class=\"inputbox ddselect2\">\n";
if ($k_email) {
print "<option value=\"{$k_email}\">Kunde: {$k_email}</option>\n";
print "<option style=\"font-size: 1px; background-color: #cccccc;\" disabled></option>";
}
for ($y = 0; $y < count($a_email); $y++) {
print "<option value=\"{$a_email[$y]}\">{$a_kontakt[$y]}: {$a_email[$y]}</option>\n";
}
print "<option> </option>\n";
print "</select></div></td>\n";
print "<script language=\"javascript\" type=\"text/javascript\">\n\t\t\t\n\t\t\t\t\t\t\tDropDownIndexClear(\"DropDownExTextbox2\");\n\t\t\t\t\t\t\t\n\t\t\t\t\t\t\t\$('#DropDownExTextbox2').on('change', function () {\n\t\t\t\t\t\t\t\t\t\n\t\t\t\t\t\t\t\t\tvar select = \$(this).find('option:selected').val()\n\t\t\t\t\t\t\t\t\t\$('#Textbox2').val(select)\n\t\t\t\t\t\t\t\t\tDropDownIndexClear(\"DropDownExTextbox2\");\n\t\t\t\t\t\t\t});\n\t\t\t\t\t\t\t\n\t\t\t\t\t\t</script>\n";
}
$institution == $k_institution ? $tekstcolor = "#444444" : ($tekstcolor = "#ff0000");
print "<td></td><td style=\"color:{$tekstcolor};\" title=\"{$k_institution}\">Institution</td><td colspan=\"2\"><input class=\"inputbox\" type=\"text\" style=\"width:130px\" name=\"institution\" value=\"{$institution}\" onchange=\"javascript:docChange = true;\" {$disabled}></td></tr>\n";
print "<tr><td>Udskriv til</td>\n";
if (!$udskriv_til) {
if ($mail_fakt) {
$udskriv_til = "email";
}
# if ($oio_fakt) $udskriv_til="oioxml";
if ($lev_pbs_nr) {
if ($pbs) {
$udskriv_til = "PBS";
}
}
}
if (!$udskriv_til) {
$udskriv_til = "PDF";
}
print "<td><select class=\"inputbox\" style=\"width:130px\" name=\"udskriv_til\">\n";
if ($udskriv_til == "PBS" && $lev_pbs != 'B') {
print "<option value=\"PBS\">PBS</option>\n";
} else {
print "<option>{$udskriv_til}</option>\n";
}
if ($udskriv_til != "PDF") {
print "<option>PDF</option>\n";
}
if ($udskriv_til != "PDF-tekst") {
print "<option title=\"Udskrives som PDF uden baggrund\">PDF-tekst</option>\n";
}
if ($udskriv_til != "email") {
print "<option title=\"Sendes som PDF via e-mail\">email</option>\n";
}
# if ($udskriv_til!="oioxml") print "<option title=\"Kun ved fakturering/kreditering.\">oioxml</option>\n"; #PHR 20090803
if ($udskriv_til != "oioubl") {
print "<option title=\"Kun ved fakturering/kreditering.\">oioubl</option>\n";
}
#PHR 20090803
# if ($udskriv_til!="edifakt") print "<option title=\"Kun ved fakturering/kreditering.\">edifakt</option>\n"; #PHR 20140201
if ($udskriv_til != "historik" && db_fetch_array(db_select("select * from grupper where ART = 'bilag' and (box6='on' or (box1 !='' and box2 !='' and box3 !=''))", __FILE__ . " linje " . __LINE__))) {
print "<option title=\"Gem en kopi og vedhæft kundens historik\">historik</option>\n";
}
$tmp = $pbs_nr * 1;
# 20120822
if ($lev_pbs_nr) {
if ($lev_pbs == 'L') {
if ($tmp) {
print "<option value=\"PBS\">PBS</option>\n";
}
} else {
if ($udskriv_til != "PBS" && $lev_pbs != 'B') {
print "<option value=\"PBS_FI\">PBS</option>\n";
} elseif ($tmp && $udskriv_til != "PBS" && $lev_pbs == 'B') {
print "<option title=\"Opkræves via PBS betalingsservice\">PBS</option>\n";
}
}
}
print "</SELECT></td>\n";
print "<td> </td><td>Momssats</td><td><input class=\"inputbox\" style=\"text-align:right;width:40px\" type=\"text\" name=\"momssats\" value=\"" . dkdecimal($momssats) . "\" onchange=\"javascript:docChange = true;\" {$disabled}>%</td></tr>\n";
/*
print "<tr><td colspan=2>Send pr. mail </td><td><input class=\"inputbox\" type=\"checkbox\" name=\"mail_fakt\" onchange=\"javascript:docChange = true;\" $mail_fakt></td>\n";
if ($lev_pbs_nr) {
if ($pbs == "FI") $pbs_fi='checked';
elseif ($pbs == "BS") $pbs_bs='checked';
$title="PBS udsender FI indbetalingskort";
if (!$pbs_bs) { #naeste linje ingen apostrof omkring $pbs_fi
print "<td colspan=\"2\" title=\"$title\">Faktura via PBS (FI)</td><td title=\"$title\"><input class=\"inputbox\" type=\"checkbox\" name=\"pbs_fi\" $pbs_fi onchange=\"javascript:docChange = true;\"></td></tr>\n";
if ($pbs_nr && !$pbs_fi) print "<tr><td colspan=\"2\"><td>\n";
}
$title="Opkræves via PBS betalingsservice";
if ($pbs_nr && !$pbs_fi) print "<td colspan=\"2\" title=\"$title\">Opkræv via PBS (BS)</td><td title=\"$title\"><input class=\"inputbox\" type=\"checkbox\" name=\"pbs_bs\" \"$pbs_bs\" onchange=\"javascript:docChange = true;\"></td></tr>\n";
} else print "</tr>\n";
*/
$mail_bilag == 'on' ? $checked = "checked='checked'" : ($checked = NULL);
if ($udskriv_til == "email" && (strpos($_SERVER['SERVER_NAME'], 'ackup') || strpos($_SERVER['SERVER_NAME'], 'sl3'))) {
print "<tr><td>Mail bilag</td><td><input type=\"checkbox\" name=\"mail_bilag\" {$checked}></td>";
} else {
print "<tr><td colspan=\"2\"><input type=\"hidden\" name=\"mail_bilag\" value=\"{$mail_bilag}\"></td>";
}
if ($procentvare) {
print "<td> </td><td>Procenttillæg</td><td><input class=\"inputbox\" style=\"text-align:right;width:40px\" type=\"text\" name=\"procenttillag\" value=\"" . dkdecimal($procenttillag) . "\" onchange=\"javascript:docChange = true;\" {$disabled}>%</td></tr>\n";
} else {
print "</tr>\n";
}
if (db_fetch_array(db_select("select distinct sprog from formularer where sprog != 'Dansk'", __FILE__ . " linje " . __LINE__))) {
print "<tr><td title=\"Sprog som skal anvendes på dokumenter som tilbud, ordrer, fakturaer med videre.\">Sprog</span></td>\n";
print "<td><select class=\"inputbox\" style=\"width:130px\" name=\"sprog\">\n";
print "<option>{$formularsprog}</option>\n";
$q = db_select("select distinct sprog from formularer order by sprog", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
print "<option>{$r['sprog']}</option>\n";
}
print "</SELECT></td>";
} else {
print "<tr><td colspan=\"2\"></td>";
}
print "<tr><td colspan=\"5\"><hr></td></tr>\n";
print "<tr><td width=\"20%\">Ordredato</td><td colspan=\"2\"><input class=\"inputbox\" type=\"text\" style=\"width:130px\" name=\"ordredato\" value=\"{$ordredato}\" onchange=\"javascript:docChange = true;\" {$disabled}></td>\n";
if ($hurtigfakt == 'on') {
print "<td></td></tr>\n";
} else {
if ($art == 'DK') {
print "<td title=\"Dato for returnering\">Modt. dato</td>";
} else {
print "<td title=\"Leveringsdato\">Lev. dato</td>";
}
print "<td colspan=\"2\"><input class=\"inputbox\" type=\"text\" style=\"width:130px\" name=\"levdato\" value=\"{$levdato}\" onchange=\"javascript:docChange = true;\" {$disabled}></td></tr>\n";
}
if ($fakturadato || $status > 0) {
$dd = date("d-m-Y");
print "<tr><td ";
if ($art != 'DK') {
print "title=\"Fakturadato\">Fakt. dato";
} else {
print "title=\"Dato for kreditnota\">KN. dato";
}
print "</td><td colspan=\"2\"><input class=\"inputbox\" type=\"text\" style=\"width:130px\" placeholder=\"{$dd}\" name=\"fakturadato\" value=\"{$fakturadato}\" onchange=\"javascript:docChange = true;\"></td>\n";
$tmp = "Genfaktureringsdato. Dette felt skal kun udfyldes, hvis der er tale om et abonnement eller \nlignende, som skal faktureres igen på et senere tidspunkt. \nSkriv datoen for næste fakturering";
if ($art == 'DO') {
print "<td width=\"20%\" title=\"{$tmp}\">Genfakt.</span></td><td colspan=\"2\"><input class=\"inputbox\" type=\"text\" style=\"width:130px\" name=\"genfakt\" value=\"{$genfakt}\" onchange=\"javascript:docChange = true;\"></td>\n";
}
}
print "<tr><td>Betaling</td>\n";
if (!$betalingsbet) {
$betalingsbet = "Netto";
}
if ($art == 'DK') {
print "<td colspan=\"2\"><select class=\"inputbox\" style=\"width:130px\" name=\"betalingsbet\">\n";
if ($betalingsbet == 'Kontant') {
print "<option>Kontant</option>\n";
}
if ($betalingsbet == 'Netto') {
print "<option value='Netto'>Konto</option>\n";
}
if ($betalingsbet != 'Kontant') {
print "<option>Kontant</option>\n";
}
if ($betalingsbet != 'Netto') {
print "<option>Netto</option>\n";
}
if ($betalingsbet == 'Kontant' || $betalingsbet == 'Efterkrav' || $betalingsbet == 'Forud' || $betalingsbet == 'Kreditkort') {
$betalingsdage = '';
} else {
$betalingsdage = 0;
}
print "</SELECT></td>\n";
} else {
if (!$betalingsbet) {
$betalingsbet = "Netto";
}
print "<td colspan=\"2\"><select class=\"inputbox\" style=\"width:96px\" name=\"betalingsbet\" {$disabled}>\n";
print "<option style=\"color: red !important;\">{$betalingsbet}</option>\n";
if ($betalingsbet != 'Forud') {
print "<option>Forud</option>\n";
}
if ($betalingsbet != 'Kontant') {
print "<option>Kontant</option>\n";
}
if ($betalingsbet != 'Kreditkort') {
print "<option>Kreditkort</option>\n";
}
if ($betalingsbet != 'Efterkrav') {
print "<option>Efterkrav</option>\n";
}
if ($betalingsbet != 'Netto') {
print "<option>Netto</option>\n";
}
if ($betalingsbet != 'Lb. md.') {
print "<option>Lb. md.</option>\n";
}
if ($betalingsbet == 'Kontant' || $betalingsbet == 'Efterkrav' || $betalingsbet == 'Forud' || $betalingsbet == 'Kreditkort') {
$betalingsdage = '';
} elseif (!$betalingsdage) {
$betalingsdage = 'Nul';
}
if ($betalingsdage) {
if ($betalingsdage == 'Nul') {
$betalingsdage = 0;
}
print "</SELECT>+<input class=\"inputbox\" type=\"text\" style=\"text-align:right;width:25px\" name=\"betalingsdage\" value=\"{$betalingsdage}\" onchange=\"javascript:docChange = true;\" {$disabled}></td>\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 "<td>Valuta</td>\n";
print "<td><select class=\"inputbox\" NAME=\"ny_valuta\">\n";
for ($x = 0; $x <= $tmp; $x++) {
if ($valuta != $list[$x]) {
print "<option title=\"{$beskriv[$x]}\">{$list[$x]}</option>\n";
} else {
print "<option title=\"{$beskriv[$x]}\" selected=\"selected\">{$list[$x]}</option>\n";
}
}
print "</SELECT></td><td></td>\n";
} else {
//print "<tr><td colspan=\"2\" width=\"200\">\n"; # udkommenteret 15052014
print "</tr>\n";
}
$r = db_fetch_array(db_select("select id from adresser where art = 'S'", __FILE__ . " linje " . __LINE__));
$adr_id = $r['id'] * 1;
$x = 0;
$ansat = array();
$a_afd = array();
$q = db_select("select navn,afd from ansatte where konto_id = '{$adr_id}' and lukket != 'on' order by navn", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$ansat[$x] = $r['navn'];
$a_afd[$x] = $r['afd'];
$x++;
}
if (!in_array($ref, $ansat)) {
$r = db_fetch_array(db_select("select navn from ansatte,brugere where brugernavn='{$ref}' and ansatte.id=" . nr_cast('brugere.ansat_id') . "", __FILE__ . " linje " . __LINE__));
if ($r['navn']) {
$ref = $r['navn'];
}
}
for ($x = 0; $x < count($ansat); $x++) {
if (!$x) {
print "<tr><td>Vor ref.</td>\n";
print "<td><select class=\"inputbox\" name=\"ref\" {$disabled}>\n";
print "<option>{$ref}</option>\n";
}
if ($ref != $ansat[$x]) {
print "<option> {$ansat[$x]}</option>\n";
}
}
print "</select>\n";
$x = 0;
$afd_navn = array();
$afd_nr[$x] = array();
$q = db_select("select * from grupper where art = 'AFD'", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$afd_nr[$x] = $r['kodenr'];
$afd_navn[$x] = $r['beskrivelse'];
$x++;
}
if (count($afd_nr) > 1) {
print "</td><td></td>\n";
print "<td>Afd</td><td><select name=\"afd\">";
for ($x = 0; $x < count($afd_nr); $x++) {
if ($afd_nr[$x] == $afd) {
print "<option value=\"{$afd_nr[$x]}\">{$afd_nr[$x]} {$afd_navn[$x]}</option>";
}
}
for ($x = 0; $x < count($afd_nr); $x++) {
if ($afd_nr[$x] != $afd) {
print "<option value=\"{$afd_nr[$x]}\">{$afd_nr[$x]} {$afd_navn[$x]}</option>";
}
}
print "</select>";
}
print "</td></tr>\n";
$list = array();
$beskriv = array();
$x = 0;
$q = db_select("select * from grupper where art = 'PRJ' and kodenr != '0' order by kodenr", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$x++;
$list[$x] = $r['kodenr'];
$beskriv[$x] = $r['beskrivelse'];
}
$projektantal = $x;
if ($x > 0) {
$vis_projekt = 'on';
print "<td title=\"Hvis hele ordren skal registreres på et projekt, vælges projektet her. Ellers anvendes projektfeltet på ordrelinjen.\">Projekt</td>\n";
print "<td><select class=\"inputbox\" name=\"projekt[0]\">\n";
for ($x = 0; $x <= $projektantal; $x++) {
if ($projekt[0] != $list[$x]) {
print "<option title=\"{$beskriv[$x]}\">{$list[$x]}</option>\n";
} else {
print "<option title=\"{$beskriv[$x]}\" selected=\"selected\">{$list[$x]}</option>\n";
}
}
print "</select></td></tr>\n";
} else {
print "<tr><td colspan=\"2\" width=\"200\"></tr>\n";
}
if ($status == 0 && $hurtigfakt != "on") {
print "<tr><td>Godkend</td><td><input class=\"inputbox\" type=\"checkbox\" name=\"godkend\" {$disabled}></td></tr>\n";
} elseif ($status < 3 && $hurtigfakt != "on") {
if ($restordre) {
$restordre = "checked";
} else {
$restordre = "";
}
print "<tr><td>Restordre</td><td><input class=\"inputbox\" type=\"checkbox\" name=\"restordre\" {$restordre}></td>\n";
}
print "</tbody></table></td>\n";
# <- Tabel 4.2
print "<td width=\"31%\"><table cellpadding=\"0\" cellspacing=\"0\" border=\"0\" width=\"100%\" valign=\"top\">\n";
# Tabel 4.3 ->
if ($vis_lev_addr || !$kontonr) {
print "<tr><td align=\"center\">{$jobkort} {$debitorkort}</td><td align=\"right\">Vis leveringsadresse <input type=\"checkbox\" name=\"vis_lev_addr\" checked=\"checked\"><td></tr>\n";
print "<tr><td colspan=\"2\"><hr><td></tr>\n";
print "<tr><td colspan=\"2\" align=\"center\"><b>Leveringsadresse</b></td></tr>\n";
print "<tr><td colspan=\"2\"><hr></b></tr>\n";
print "<tr><td>Firmanavn</td><td colspan=\"2\"><input class=\"inputbox\" type=\"text\" style=\"width:200px\" onfocus=\"document.forms[0].fokus.value=this.name;\" name=\"lev_navn\" value=\"{$lev_navn}\" onchange=\"javascript:docChange = true;\" {$disabled}></td></tr>\n";
print "<tr><td>Adresse</td><td colspan=\"2\"><input class=\"inputbox\" type=\"text\" style=\"width:200px\" onfocus=\"document.forms[0].fokus.value=this.name;\" name=\"lev_addr1\" value=\"{$lev_addr1}\" onchange=\"javascript:docChange = true;\" {$disabled}></td></tr>\n";
print "<tr><td></td><td colspan=\"2\"><input class=\"inputbox\" type=\"text\" style=\"width:200px\" onfocus=\"document.forms[0].fokus.value=this.name;\"name=\"lev_addr2\" value=\"{$lev_addr2}\" onchange=\"javascript:docChange = true;\" {$disabled}></td></tr>\n";
print "<tr><td>Postnr. & by</td><td><input class=\"inputbox\" type=\"text\" style=\"width:45px\" onfocus=\"document.forms[0].fokus.value=this.name;\" name=\"lev_postnr\" value=\"{$lev_postnr}\" {$disabled}><input class=\"inputbox\" type=\"text\" style=\"width:150px;margin-left:3px;\" name=\"lev_bynavn\" value=\"{$lev_bynavn}\" onchange=\"javascript:docChange = true;\" {$disabled}></td></tr>\n";
print "<tr><td>Att.</td><td colspan=\"2\"><input class=\"inputbox\" type=\"text\" style=\"width:200px\" onfocus=\"document.forms[0].fokus.value=this.name;\" name=\"lev_kontakt\" value=\"{$lev_kontakt}\" onchange=\"javascript:docChange = true;\" {$disabled}></td></tr>\n";
print "<input type=\"hidden\" name=\"felt_1\" style=\"width:200px\" value=\"{$felt_1}\">\n";
print "<input type=\"hidden\" name=\"felt_2\" style=\"width:200px\" value=\"{$felt_2}\">\n";
print "<input type=\"hidden\" name=\"felt_3\" style=\"width:200px\" value=\"{$felt_3}\">\n";
print "<input type=\"hidden\" name=\"felt_4\" style=\"width:200px\" value=\"{$felt_4}\">\n";
print "<input type=\"hidden\" name=\"felt_5\" style=\"width:200px\" value=\"{$felt_5}\">\n";
} else {
print "<tr><td align=\"center\">{$jobkort} {$debitorkort}</td><td align=\"right\">Vis leveringsadresse <input type=\"checkbox\" name=\"vis_lev_addr\"><td></tr>\n";
print "<tr><td colspan=\"2\"><hr><td></tr>\n";
print "<tr><td colspan=\"2\" align=\"center\"><b>" . findtekst(243, $sprog_id) . "</b></tr>\n";
print "<tr><td colspan=\"2\"><hr></b></tr>\n";
if ($vis_saet) {
$felt_2 *= 1;
$felt_4 *= 1;
if ($fakturadate) {
if (!$felt_2) {
$felt_2 = $sum + $moms;
}
$felt_2 < $sum + $moms ? $felt_4 = $sum + $moms - $felt_2 : ($felt_4 = 0);
}
$dkfelt_2 = dkdecimal($felt_2, 2);
$dkfelt_4 = dkdecimal($felt_4, 2);
$r = db_fetch_array(db_select("select * from grupper where art = 'POS' and kodenr = '1'", __FILE__ . " linje " . __LINE__));
$kortantal = $r['box4'] * 1;
$korttyper = explode(chr(9), $r['box5']);
print "<tr><td><select name=\"felt_1\">";
if (!$felt_1) {
$felt_1 = $korttyper[0];
}
if ($felt_1) {
print "<option value=\"{$felt_1}\">{$felt_1}</value>";
}
if ($felt_1 != 'Kontant') {
print "<option value=\"Kontant\">Kontant</value>";
}
for ($x = 0; $x < $kortantal; $x++) {
if ($felt_1 != $korttyper[$x]) {
print "<option value=\"{$korttyper[$x]}\">{$korttyper[$x]}</value>";
}
}
print "</select></td><td><input class=\"inputbox\" type=\"text\" name=\"felt_2\" style=\"text-align:right;width:200px\" value=\"{$dkfelt_2}\" {$disabled}></td></tr>";
print "<tr><td><select name=\"felt_3\">";
if ($felt_3) {
print "<option value=\"{$felt_3}\">{$felt_3}</value>";
}
if ($felt_3 != 'Kontant') {
print "<option value=\"Kontant\">Kontant</value>";
}
for ($x = 0; $x < $kortantal; $x++) {
if ($felt_3 != $korttyper[$x]) {
print "<option value=\"{$korttyper[$x]}\">{$korttyper[$x]}</value>";
}
}
print "</select></td><td><input class=\"inputbox\" type=\"text\" name=\"felt_4\" style=\"text-align:right;width:200px\" value=\"{$dkfelt_4}\" {$disabled}></td></tr>";
} else {
if (substr(findtekst(244, $sprog_id), 0, 1) != "#") {
print "<tr><td><span onmouseover=\"return overlib('" . findtekst(249, $sprog_id) . "',WIDTH=600);\" onmouseout=\"return nd();\">" . findtekst(244, $sprog_id) . "</span></td><td><input class=\"inputbox\" type=\"text\" name=\"felt_1\" style=\"width:200px\" value=\"{$felt_1}\" {$disabled}></td></tr>\n";
}
if (substr(findtekst(245, $sprog_id), 0, 1) != "#") {
print "<tr><td><span onmouseover=\"return overlib('" . findtekst(250, $sprog_id) . "',WIDTH=600);\" onmouseout=\"return nd();\">" . findtekst(245, $sprog_id) . "</span></td><td><input class=\"inputbox\" type=\"text\" name=\"felt_2\" style=\"width:200px\" value=\"{$felt_2}\" {$disabled}></td></tr>\n";
}
if (substr(findtekst(246, $sprog_id), 0, 1) != "#") {
print "<tr><td><span onmouseover=\"return overlib('" . findtekst(251, $sprog_id) . "',WIDTH=600);\" onmouseout=\"return nd();\">" . findtekst(246, $sprog_id) . "</span></td><td><input class=\"inputbox\" type=\"text\" name=\"felt_3\" style=\"width:200px\" value=\"{$felt_3}\" {$disabled}></td></tr>\n";
}
if (substr(findtekst(247, $sprog_id), 0, 1) != "#") {
print "<tr><td><span onmouseover=\"return overlib('" . findtekst(252, $sprog_id) . "',WIDTH=600);\" onmouseout=\"return nd();\">" . findtekst(247, $sprog_id) . "</span></td><td><input class=\"inputbox\" type=\"text\" name=\"felt_4\" style=\"width:200px\" value=\"{$felt_4}\" {$disabled}></td></tr>\n";
}
if (substr(findtekst(248, $sprog_id), 0, 1) != "#") {
print "<tr><td><span onmouseover=\"return overlib('" . findtekst(253, $sprog_id) . "',WIDTH=600);\" onmouseout=\"return nd();\">" . findtekst(248, $sprog_id) . "</span></td><td><input class=\"inputbox\" type=\"text\" name=\"felt_5\" style=\"width:200px\" value=\"{$felt_5}\" {$disabled}></td></tr>\n";
}
}
print "<input type=\"hidden\" name=\"lev_navn\" value=\"{$lev_navn}\">\n";
print "<input type=\"hidden\" name=\"lev_addr1\" value=\"{$lev_addr1}\"><input type=\"hidden\" name=\"lev_addr2\" value=\"{$lev_addr2}\">\n";
print "<input type=\"hidden\" name=\"lev_postnr\" value=\"{$lev_postnr}\"><input type=\"hidden\" name=\"lev_bynavn\" value=\"{$lev_bynavn}\">\n";
print "<input type=\"hidden\" name=\"lev_kontakt\" value=\"{$lev_kontakt}\">\n";
}
print "</td></tr></tbody></table></td></tr>\n";
#<- Tabel 4.3
$row2 = db_fetch_array(db_select("select notes from adresser where kontonr = '{$kontonr}' and art = 'D'", __FILE__ . " linje " . __LINE__));
#20142403-1
$notes = str_replace("\n", "<br>", $row2['notes']);
if ($notes) {
print "<tr><td colspan=\"3\" witdh=\"100%\" style=\"color: rgb(255,0,0)\">{$notes}</td></tr>\n";
}
/*
$query = db_select("select notes from adresser where kontonr = '$kontonr' and art = 'D'",__FILE__ . " linje " . __LINE__);
if ($row2 = db_fetch_array($query) ) {
$notes=str_replace("\n","<br>",$row2['notes']);
print "<tr><td colspan=\"3\" witdh=\"100%\" style=\"color: rgb(255,0,0)\">$notes</td></tr>\n";
}
*/
if ($udskriv_til == 'email') {
if (!$formularsprog) {
$formularsprog = 'Dansk';
}
$status < 1 ? $form_nr = 1 : ($form_nr = 2);
if ($art == 'DK') {
$form_nr = 5;
}
$q = db_select("select * from formularer where formular='{$form_nr}' and art='5' and lower(sprog)='" . strtolower($formularsprog) . "'", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
if ($r['xa'] == '1') {
$std_subj = $r['beskrivelse'];
} elseif ($r['xa'] == '2') {
$std_txt_title = $r['beskrivelse'];
}
}
if ($art != 'DK') {
$q = db_select("select * from formularer where formular='4' and art='5' and lower(sprog)='" . strtolower($formularsprog) . "'", __FILE__ . " linje " . __LINE__);
}
while ($r = db_fetch_array($q)) {
if ($r['xa'] == '1') {
$fak_subj = $r['beskrivelse'];
} elseif ($r['xa'] == '2') {
$fak_text = str_replace("<br>", "", $r['beskrivelse']);
}
}
$subj_title = '';
if (!$mail_subj && $art != 'DK') {
$subj_title = HtmlEntities("Ved fakturering ændres emneteksten til:\n\n{$fak_subj}", ENT_COMPAT, $charset);
}
$text_title = '';
if (!$mail_text && $art != 'DK') {
$text_title = HtmlEntities("Ved fakturering ændres mailteksten til:\n\n{$fak_text}", ENT_COMPAT, $charset);
}
list($std_txt, $tmp) = explode("<br>", $std_txt_title);
$mail_text ? $std_txt_title = $mail_text : ($std_txt_title = str_replace("<br>", "", $std_txt_title));
print "<tr><td align=\"center\" colspan=\"3\"><table cellpadding=\"0\" cellspacing=\"0\" border=\"0\" width=\"100%\"><tbody>\n";
#Tabel 4.4 ->
if (!$mail_subj && !$mail_text && $art != 'DK') {
print "<tr><td></td><td colspan=\"1\" align=\"left\"><small>Nedenstående tekster ændres ved fakturering, hold musen over beskrivelsen til venstre for at se ændringen</small></td>";
}
print "<tr><td width=\"120px\" title=\"{$subj_title}\">Mail emne</td><td title=\"{$std_subj}\"><input class=\"inputbox\" type=\"text\" style=\"width:1000px;\" onfocus=\"document.forms[0].fokus.value=this.name;\"name=\"mail_subj\" placeholder=\"{$std_subj}\" value=\"{$mail_subj}\" onchange=\"javascript:docChange = true;\"></td>";
if ($bilag) {
if ($dokument) {
print "<td title=\"klik her for at åbne bilaget: {$dokument}\"><a href=\"../includes/bilag.php?kilde=ordrer&filnavn={$dokument}&bilag_id={$id}&bilag={$dokument}&kilde_id={$id}\"><img style=\"border: 0px solid\" alt=\"clip_m_papir\" src=\"../ikoner/paper.png\"></a></td>";
} else {
print "<td title=\"klik her for at vedhæfte et bilag\"><a href=\"../includes/bilag.php?kilde=ordrer&bilag_id={$id}&bilag={$dokument}&ny=ja&kilde_id={$id}\"><img style=\"border: 0px solid\" alt=\"clip\" src=\"../ikoner/clip.png\"></a></td>";
}
}
print "</tr><tr><td valign=\"top\" title=\"{$text_title}\">Mail tekst</td><td title=\"{$std_txt_title}\">";
if ($mail_text) {
print "<textarea style=\"width:1000px;\" rows=\"2\" onfocus=\"document.forms[0].fokus.value=this.name;\"name=\"mail_text\" onchange=\"javascript:docChange = true;\">{$mail_text}</textarea>\n";
} else {
print "<input class=\"inputbox\" type=\"text\" style=\"width:1000px;\" onfocus=\"document.forms[0].fokus.value=this.name;\"name=\"mail_text\" placeholder=\"{$std_txt}\" value=\"{$mail_text}\" onchange=\"javascript:docChange = true;\">";
}
print "</td></tr></tbody></table></td></tr>\n";
# <- Tabel 4.4
}
print "<tr><td align=\"center\" colspan=\"3\"><table cellpadding=\"0\" cellspacing=\"0\" border=\"0\"><tbody>\n";
# Tabel 4.5 ->
if ($kontonr) {
print "<tr><td align=\"center\" title=\"Positionsnummer. Rækkefølgen ændres ved at overskrive positionsnumrene (1,5 hvis mellem 1 og 2). En enkelt linje slettes ved at skrive minustegn som positionsnummer.\">Pos.</td><td align=\"center\" title=\"Varenummer. Skriv hele varenumret eller klik på Opslag for at vælge. Hvis du vil vælge mellem varenumre startende med t, så skriv t* i feltet og klik på Opslag.\">Varenr.</td><td align=\"center\" title=\"Antal enheder. Timer og minutter kan angives med : som skilletegn. Eksempelvis 5:45 som bliver til 5,75.\">Antal</td><td align=\"center\">Enhed</td><td align=\"center\" title=\"Brug [Shift]+[Enter] for et indsætte et linjeskift i en beskrivelseslinje\">Beskrivelse</td><td align=\"center\">Pris</td><td align=\"center\">Rabat</td>";
if ($procentfakt) {
print "<td align=\"center\">Procent</td>";
}
print "<td align=\"center\">I alt</td>";
if ($vis_projekt && !$projekt[0]) {
print "<td align=\"center\">Proj.</td>";
}
if ($genfakt) {
print "<td align=\"center\" title=\"'Kun denne ordre'. Afmærk dette felt hvis ordrelinjen ikke skal med ved genfakturering eller kopiering af ordren.\">kdo</td>\n";
}
if ($status >= 1 && $hurtigfakt != 'on') {
if ($art != 'DK') {
$tmp = "Levér";
$tmp2 = "Indtastningsfeltet herunder er det antal, som leveres ved klik på Levér. Antallet i parantes er det, som allerede er leveret.";
} else {
$tmp = "Modtag";
$tmp2 = "Indtastningsfeltet herunder er det antal, som modtages ved klik på Modtag. Antallet i parantes er det, som allerede er modtaget.";
}
print "<td colspan=\"2\" align=\"center\" title=\"{$tmp2}\">{$tmp}</td>";
}
}
if ($omkunde) {
print "<td title =\"Hvis feltet vises er kunden 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 (!$status) {
$status = 0;
}
print "<input type=\"hidden\" name=\"status\" value=\"{$status}\">";
print "<input type=\"hidden\" name=\"id\" value=\"{$id}\">\n";
$x = 0;
if (!$ordre_id) {
$ordre_id = 0;
}
$kostpris[0] = 0;
$kostsum = 0;
$blandet_moms = 0;
#tilfojet 20100923 grundet afrundingsfejl på ordre med rabat
$lagervarer = 0;
# db_modify("update ordrelinjer set posnr=posnr+10 where varenr = '$svnr'");
# global $db;
$query = db_select("select * from ordrelinjer where ordre_id = '{$ordre_id}' order by posnr", __FILE__ . " linje " . __LINE__);
# $query = db_select("select * from ordrelinjer where ordre_id = '$ordre_id' order by saet desc,samlevare,posnr,id",__FILE__ . " linje " . __LINE__);
while ($row = db_fetch_array($query)) {
if ($row['posnr'] > 0 && !is_numeric($row['samlevare']) && $row['samlevare'] < 1) {
#Hvis "samlevare" er numerisk,indgaar varen i den ordrelinje,der refereres til - hvis "on" er varen en samlevare.
$x++;
$linje_id[$x] = $row['id'];
$kred_linje_id[$x] = $row['kred_linje_id'];
$posnr[$x] = $row['posnr'];
$varenr[$x] = HtmlEntities(trim($row['varenr']), ENT_COMPAT, $charset);
$beskrivelse[$x] = HtmlEntities(trim($row['beskrivelse']), ENT_COMPAT, $charset);
if ($beskrivelse[$x] == ".") {
$beskrivelse[$x] = "";
}
$enhed[$x] = HtmlEntities(trim($row['enhed']), ENT_COMPAT, $charset);
$pris[$x] = $row['pris'];
$rabat[$x] = $row['rabat'] * 1;
$rabatart[$x] = $row['rabatart'];
$procent[$x] = $row['procent'] * 1;
$antal[$x] = $row['antal'] * 1;
$leveres[$x] = $row['leveres'];
$vare_id[$x] = $row['vare_id'];
$momsfri[$x] = $row['momsfri'];
$rabatgruppe[$x] = $row['rabatgruppe'];
$m_rabat[$x] = $row['m_rabat'] * -1;
$folgevare[$x] = $row['folgevare'] * 1;
$varemomssats[$x] = $row['momssats'] * 1;
$fast_db[$x] = $row['fast_db'] * 1;
$saet[$x] = $row['saet'];
$lev_varenr[$x] = $row['lev_varenr'];
$kostpris[$x] = $row['kostpris'];
$row['omvbet'] ? $omvbet[$x] = 'checked' : ($omvbet[$x] = NULL);
if (!$momsfri[$x] && !$varemomssats[$x]) {
$varemomssats[$x] = $momssats;
} elseif ($varemomssats[$x] > $momssats) {
$varemomssats[$x] = $momssats;
} elseif ($momsfri[$x] || $omvbet[$x]) {
$varemomssats[$x] = 0;
}
$serienr[$x] = HtmlEntities(trim($row['serienr']), ENT_COMPAT, $charset);
$samlevare[$x] = $row['samlevare'];
$projekt[$x] = $row['projekt'];
$row['kdo'] ? $kdo[$x] = 'checked' : ($kdo[$x] = NULL);
if ($vare_id[$x]) {
if ($fast_db[$x]) {
$kostpris[$x] = $pris[$x] * $fast_db[$x];
/*
} else {
list($koordpr,$koordnr,$koordant,$koordid,$koordart)=explode(chr(9),find_kostpris($vare_id[$x],$linje_id[$x]));
$kobs_ordre_pris=explode(",",$koordpr);
$kobs_ordre_antal=explode(",",$koordant);
$ko_ant[$x]=count($kobs_ordre_pris);
$kostpris[$x]=0;
#rettet 20120418 grundet fejl i kostpris v leverring af flere omgange på samme ordrelinje på købsordre
#rettet yderligere 20121213 grundet ny fejl hvis køb er fordelt over flere købsordrer
for($y=0;$y<$ko_ant[$x];$y++) $kostsum[$x]+=$kobs_ordre_pris[$y]*$kobs_ordre_antal[$y];
($antal[$x])?$kostpris[$x]=$kostsum[$x]/$antal[$x]:$kostpris[$x]=0;
if ($valutakurs) $kostpris[$x]*=100/$valutakurs; #20140116
*/
}
$kostsum += $kostpris[$x] * $antal[$x];
/*
#cho "update ordrelinjer set kostpris='$kostpris[$x]' where id='$linje_id[$x]'<br>";
db_modify("update ordrelinjer set kostpris='$kostpris[$x]' where id='$linje_id[$x]'",__FILE__ . " linje " . __LINE__);
*/
if ($rabatart[$x] == 'amount') {
$db[$x] = $pris[$x] - $rabat[$x];
} else {
$db[$x] = $pris[$x] - $pris[$x] * $rabat[$x] / 100;
}
#20140424 -=
$db[$x] -= $kostpris[$x];
#20140424 -=
#cho "$db[$x]=$pris[$x]-$kostpris[$x]<br>";
if ($pris[$x] != 0) {
$dg[$x] = $db[$x] * 100 / $pris[$x];
} else {
$dg[$x] = 0;
}
$dk_db[$x] = dkdecimal($db[$x]);
$dk_dg[$x] = dkdecimal($dg[$x]);
}
if ($art == 'DK' && $antal[$x] < 0) {
$bogfor == 0;
}
if ($serienr[$x]) {
$serienumre[$x] = NULL;
$q2 = db_select("select serienr from serienr where salgslinje_id='{$linje_id[$x]}' order by serienr", __FILE__ . " linje " . __LINE__);
while ($r2 = db_fetch_array($q2)) {
$serienumre[$x] ? $serienumre[$x] .= ',' . $r2['serienr'] : ($serienumre[$x] = $r2['serienr']);
}
}
if (!$lagervarer && $vare_id[$x]) {
$r2 = db_fetch_array(db_select("select grupper.box8 from varer,grupper where varer.id = '{$vare_id[$x]}' and grupper.art='VG' and grupper.kodenr=varer.gruppe", __FILE__ . " linje " . __LINE__));
if ($r2['box8']) {
$lagervarer = 1;
}
}
}
}
$linjeantal = $x;
#cho "Lagervarer $lagervarer<br>";
$moms = 0;
$sum = 0;
$ny_pos = 0;
$saetnr = 0;
$saetpris = 0;
for ($x = 1; $x <= $linjeantal; $x++) {
if ($saet[$x]) {
if ($saetnr && $saetnr != $saet[$x]) {
# tilføjer linjen for sætpris
$qtxt = "select beskrivelse from ordrelinjer where saet = '{$saetnr}' and ordre_id='{$id}' and samlevare='on'";
$r = db_fetch_array(db_select($qtxt, __FILE__ . " linje " . __LINE__));
list($sum, $dbsum, $blandet_moms, $moms) = explode(chr(9), ordrelinjer($x, $sum, $dbsum, $blandet_moms, $moms, $antal_ialt, '0', '0', '0', '0', $linje_id[$x], '0', '', '', $r['beskrivelse'], '', $saetpris, $rabat[$x], 'percent', '100', '1', '0', $vare_id[$x], '', '0', '0', $momssats, '', 'on', '', '', '', '', '', '', '', '', '', '', '0', '', '0', $saetnr));
$saetpris = 0;
}
if (!$saetpris) {
print "<tr><td><br></td></tr>";
}
$linjesum = $pris[$x] * $antal[$x];
$linjesum -= $linjesum * $rabat[$x] / 100;
$linjesum += $linjesum * $varemomssats[$x] / 100;
$saetpris += afrund($linjesum, 3);
$saetnr = $saet[$x];
} elseif ($saetnr) {
$r = db_fetch_array(db_select("select beskrivelse from ordrelinjer where saet = '{$saetnr}' and ordre_id='{$id}' and samlevare='on'", __FILE__ . " linje " . __LINE__));
list($sum, $dbsum, $blandet_moms, $moms) = explode(chr(9), ordrelinjer($x, $sum, $dbsum, $blandet_moms, $moms, $antal_ialt, '0', '0', '0', '0', '0', '0', '', '', $r['beskrivelse'], '', $saetpris, '0', 'percent', '100', '1', '0', '0', '', '0', '0', '0', '', '', '', '', '', '', '', '', '', '', '', '', '0', '', '0', $saetnr));
$saetpris = 0;
$saetnr = 0;
print "<tr><td><br></td></tr>";
}
if (!$folgevare[$x] || $folgevare[$x] >= 0) {
list($sum, $dbsum, $blandet_moms, $moms, $antal_ialt, $leveres_ialt, $tidl_lev_ialt, $tidl_lev[$x], $levdiff) = explode(chr(9), ordrelinjer($x, $sum, $dbsum, $blandet_moms, $moms, $antal_ialt, $leveres_ialt, $tidl_lev_ialt, $levdiff, $projekt[0], $linje_id[$x], $kred_linje_id[$x], $posnr[$x], $varenr[$x], $beskrivelse[$x], $enhed[$x], $pris[$x], $rabat[$x], $rabatart[$x], $procent[$x], $antal[$x], $leveres[$x], $vare_id[$x], $momsfri[$x], $rabatgruppe[$x], $m_rabat[$x], $varemomssats[$x], $serienr[$x], $samlevare[$x], $folgevare[$x], $projekt[$x], $kdo[$x], $kobs_ordre_pris, $ko_ant[$x], $kostpris[$x], $db[$x], $dg[$x], $dk_db[$x], $dk_dg[$x], '0', $omvbet[$x], $saet[$x], $saetnr));
}
if ($samlevare[$x] == 'on') {
$q = db_select("select * from ordrelinjer where ordre_id = '{$ordre_id}' and samlevare = '{$linje_id[$x]}' order by id", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$antal_ialt += $r['antal'];
if ($r['antal'] > 0) {
$tmp = 0;
$q2 = db_select("select antal from batch_salg where linje_id = '{$r['id']}' and ordre_id='{$id}' and vare_id = '{$r['vare_id']}'", __FILE__ . " linje " . __LINE__);
while ($r2 = db_fetch_array($q2)) {
$tmp = $tmp + $r2['antal'];
}
if ($art == 'DK') {
$dkantal = dkdecimal($r['antal'] * -1);
} else {
$dkantal = dkdecimal($r['antal']);
}
if (substr($dkantal, -1) == '0') {
$dkantal = substr($dkantal, 0, -1);
}
if (substr($dkantal, -1) == '0') {
$dkantal = substr($dkantal, 0, -2);
}
}
$tidl_lev_ialt += $tmp;
print "<tr><td></td><td>{$r['varenr']}</td><td align=\"right\">{$dkantal}</td><td>{$r['enhed']}</td><td>{$r['beskrivelse']}</td></tr>";
}
}
print "<input type=\"hidden\" name=\"samlevare[{$x}]\" value=\"{$samlevare[$x]}\">\n";
if ($folgevare[$x] > 0) {
$x_nr = 0;
$fv_linje_id = 0;
for ($i = 1; $i <= $linjeantal; $i++) {
$tmp = $linje_id[$x] * -1;
if ($tmp == $folgevare[$i]) {
$x_nr = $i;
$fv_linje_id = $linje_id[$i] * 1;
$fv_varenr = $varenr[$i];
$fv_salgspris = $pris[$i];
$fv_kostpris = $kostpris[$i];
$fv_enhed = $enhed[$i];
$fv_beskrivelse = $beskrivelse[$i];
$fv_varemomssats = $varemomssats[$i];
$fv_db = $fv_salgspris - $fv_kostpris;
$fv_salgspris != 0 ? $fv_dg = $fv_db * 100 / $fv_salgspris : ($fv_dg = 0);
}
}
if (!$fv_linje_id) {
global $regnaar;
$r = db_fetch_array(db_select("select varer.varenr,varer.beskrivelse,varer.enhed,varer.salgspris,varer.kostpris,grupper.box4,grupper.box7 from varer,grupper where varer.id = '{$folgevare[$x]}' and grupper.art='VG' and grupper.kodenr=varer.gruppe", __FILE__ . " linje " . __LINE__));
$fv_linje_id = 0;
$fv_varenr = $r['varenr'];
$fv_salgspris = $r['salgspris'];
$fv_kostpris = $r['kostpris'];
$fv_enhed = $r['enhed'];
$fv_beskrivelse = $r['beskrivelse'];
$fv_db = $fv_salgspris - $fv_kostpris;
$fv_salgspris != 0 ? $fv_dg = $fv_db * 100 / $fv_salgspris : ($fv_dg = 0);
$r2 = db_fetch_array(db_select("select moms from kontoplan where kontonr = '{$r['box4']}' and regnskabsaar = '{$regnaar}'", __FILE__ . " linje " . __LINE__));
if ($tmp = trim($r2['moms'])) {
# f.eks S3
$tmp = substr($tmp, 1);
#f.eks 3
$r2 = db_fetch_array(db_select("select box2 from grupper where art = 'SM' and kodenr = '{$tmp}'", __FILE__ . " linje " . __LINE__));
if ($r2['box2']) {
$fv_varemomssats = $r2['box2'] * 1;
}
} else {
$fv_varemomssats = $momssats;
}
}
$fv_dk_db = dkdecimal($fv_db);
$fv_dk_dg = dkdecimal($fv_dg);
list($sum, $dbsum, $blandet_moms, $moms) = explode(chr(9), ordrelinjer($x_nr, $sum, $dbsum, $blandet_moms, $moms, $antal_ialt, $leveres_ialt, $tidl_lev_ialt, $levdiff, $projekt[0], $fv_linje_id, 0, $x, $fv_varenr, $fv_beskrivelse, $fv_enhed, $fv_salgspris, 0, 'percent', $procent[$x], $antal[$x], $leveres[$x], $folgevare[$x], $fv_momsfri, 0, 0, $fv_varemomssats, 0, 0, 0, $projekt[$x], $kdo[$x], 0, 0, $fv_kostpris, $fv_db, $fv_dg, $fv_dk_db, $fv_dk_dg, '1', $saet[$x], $saetnr));
}
print "<input type=\"hidden\" name=\"folgevare[{$x}]\" value=\"{$folgevare[$x]}\">\n";
if ($saet[$x] && $x == $linjeantal && $saetpris) {
# $r=db_fetch_array(db_select("select beskrivelse from varer where id = '$svid'",__FILE__ . " linje " . __LINE__));
$r = db_fetch_array(db_select("select beskrivelse from ordrelinjer where saet = '{$saetnr}' and ordre_id='{$id}' and samlevare='on'", __FILE__ . " linje " . __LINE__));
#cho __LINE__."<br>";
list($sum, $dbsum, $blandet_moms, $moms) = explode(chr(9), ordrelinjer($x, $sum, $dbsum, $blandet_moms, $moms, $antal_ialt, '0', '0', '0', '0', '0', '0', '', '', $r['beskrivelse'], '', $saetpris, '0', 'percent', '100', '1', '0', '0', '', '0', '0', '0', '', '', '', '', '', '', '', '', '', '', '', '', '0', '', '0', $saetnr));
$saetnr = 0;
}
}
if ($brugsamletpris && $samlet_rabat && $samlet_pris && $samlet_pris != $ordresum) {
$x++;
$diff = afrund($samlet_pris - ($sum + $moms), 3);
$tmp = $sum + $moms;
if ($samlet_rabat) {
$ms = afrund($moms * 100 / ($sum + $moms), 2);
#20150318
$r = db_fetch_array(db_select("select id,beskrivelse from varer where varenr = '{$rvnr}'", __FILE__ . " linje " . __LINE__));
opret_ordrelinje($id, $r['id'], $rvnr, 1, $r['beskrivelse'], $diff, $ms, 100, 'DO', '', '', '0', '', '', '', '99', '0');
$r = db_fetch_array(db_select("select * from ordrelinjer where ordre_id = '{$id}' and varenr = '{$rvnr}'", __FILE__ . " linje " . __LINE__));
$vist_rabat = $samlet_pris - $bruttosaetsum . "|" . $samlet_pris;
db_modify("update ordrelinjer set lev_varenr='{$vist_rabat}' where id='{$r['id']}'", __FILE__ . " linje " . __LINE__);
list($sum, $dbsum, $blandet_moms, $moms) = explode(chr(9), ordrelinjer($x, $sum, $dbsum, $blandet_moms, $moms, $antal_ialt, '0', '0', '0', '0', $r['id'], '0', '99', $rvnr, $r['beskrivelse'], '', $r['pris'], $r['rabat'], 'percent', '100', '1', '0', $r['vare_id'], '', '0', '0', $momssats, '', '', '', '', '', '', '', '', '', '', '', '', '0', '', '0', '0'));
}
}
$sum = afrund($sum, 2);
$moms = afrund($moms, 2);
print "<input type=\"hidden\" name=\"linjeantal\" value=\"{$linjeantal}\">\n";
print "<input type=\"hidden\" name=\"lagervarer\" value=\"{$lagervarer}\">\n";
if ($status >= 1 && $bogfor != 0 && !$leveres_ialt && $tidl_lev_ialt && $antal_ialt != $tidl_lev_ialt) {
$del_ordre = 'on';
} else {
$del_ordre = '';
}
if ($kontonr) {
$x++;
$antal[0] = 1;
$posnr[0] = $linjeantal + 1;
if ($varenr[0] && isset($_GET['vare_id'])) {
#20150407
$fokus = "dkan0";
#20150306 + value i dkan0
$r = db_fetch_array(db_select("select * from varer where varenr='{$varenr['0']}'", __FILE__ . " linje " . __LINE__));
$beskrivelse[0] = $r['beskrivelse'];
$pris[0] = $r['salgspris'];
print "<input type=\"hidden\" name=\"indsat\" value=\"" . $_GET['vare_id'] . "\">";
if ($incl_moms) {
if ($r = db_fetch_array(db_select("select box7 from grupper where art='VG' and kodenr='{$gruppe}' and box7!='on'", __FILE__ . " linje " . __LINE__))) {
$momsfri[0] = $r2['box7'];
} else {
$pris[0] += $pris[0] * $momssats / 100;
}
}
} else {
$varenr[0] = NULL;
$antal[0] = NULL;
}
if ($art != 'OT') {
// ordrelinje til indtastning behøves ikke at vises ved 'Original tilbud' #20140716
print "<tr>\n";
print "<td valign=\"top\"><input class=\"inputbox\" type=\"text\" style=\"text-align:right\" size=\"3\" name=\"posn0\" value=\"{$posnr['0']}\"></td>\n";
if ($art == 'DK') {
print "<td valign=\"top\"><input class=\"inputbox\" readonly=\"readonly\" size=\"12\" name=\"vare0\" onfocus=\"document.forms[0].fokus.value=this.name;\"></td>\n";
} else {
print "<td valign=\"top\"><input class=\"inputbox\" type=\"text\" size=\"12\" name=\"vare0\" onfocus=\"document.forms[0].fokus.value=this.name;\" value=\"{$varenr['0']}\"></td>\n";
}
print "<td valign=\"top\"><input class=\"inputbox\" type=\"text\" style=\"text-align:right\" size=\"4\" name=\"dkan0\" placeholder=\"{$antal['0']}\"></td>\n";
print "<td valign=\"top\"><input class=\"inputbox\" type=\"text\" style=\"background: none repeat scroll 0 0 #e4e4ee\" readonly=\"readonly\" size=\"3\"></td>\n";
//print "<td valign=\"top\"><input class=\"inputbox\" type=\"text\" size=\"58\" name=\"beskrivelse0\" onfocus=\"document.forms[0].fokus.value=this.name;\"></td>\n";
print "<td valign=\"top\"><textarea class=\"autosize inputbox ordreText comment\" id=\"comment\" rows=\"1\" cols=\"58\" name=\"beskrivelse0\" placeholder=\"{$beskrivelse['0']}\" onfocus=\"document.forms[0].fokus.value=this.name; var val=this.value; this.value=''; this.value= val;\"></textarea></td>\n";
#2013.11.27 Ændret til textarea, så hele texten vises #2013.11.29 indsat ny onfocus da chrome ikke satte curser efter tekst
print "<td valign=\"top\"><input class=\"inputbox\" type=\"text\" style=\"text-align:right\" size=\"10\" name=\"pris0\" placeholder=\"" . dkdecimal($pris[0]) . "\"></td>\n";
print "<td valign=\"top\"><input class=\"inputbox\" type=\"text\" style=\"text-align:right\" size=\"4\" name=\"raba0\">\n";
if ($procentfakt) {
print "</td><td valign=\"top\"><input class=\"inputbox\" type=\"text\" style=\"text-align:right\" size=\"4\" name=\"proc0\" value=\"100,00\"></td>\n";
} else {
print "<input type=\"hidden\" name=\"proc0\" value=\"100,00\"></td>\n";
}
print "<td valign=\"top\"><input class=\"inputbox\" type=\"text\" style=\"background: none repeat scroll 0 0 #e4e4ee\" readonly=\"readonly\" size=\"10\"></td>\n";
if ($vis_projekt && !$masterprojekt) {
print "<td></td>";
}
if ($genfakt) {
print "<td title=\"Afmærk dette felt hvis ordrelinjen ikke skal med ved genfakturering / kopiering.\"><input class=\"inputbox\" name=\"kdo[0]\" type=\"checkbox\"></td>\n";
}
print "<td valign=\"top\" colspan=\"2\"><input type=\"button\" name=\"insert\" class=\"button white small bold\" value=\"B\" onClick=\"this.form.beskrivelse0.value=this.form.beskrivelse0.value.concat('<b></b>'); this.form.beskrivelse0.focus();\" title=\"Indsættes ved fed tekst. Sæt cursoren imellem <b> og </b>\n(F.eks. <b>Lorem ipsum</b>).\">\n";
#2013.11.29 Sætter fokus på felt ved clik
print "<input type=\"button\" name=\"insert\" class=\"button white small italic\" value=\"I\" onClick=\"this.form.beskrivelse0.value=this.form.beskrivelse0.value.concat('<i></i>'); this.form.beskrivelse0.focus();\" title=\"Indsættes ved kursiv tekst. Sæt cursoren imellem <i> og </i>\n(F.eks. <i>Lorem ipsum</i>).\nKan også bruges til tom linje. Her insættes <i></i> uden tekst. \"></td>\n";
print "</tr>\n";
}
if ($procenttillag) {
$r = db_fetch_array(db_select("select beskrivelse from varer where varenr = '{$procentvare}'", __FILE__ . " linje " . __LINE__));
$tillag = $sum * $procenttillag / 100;
$beskr = var2str($r['beskrivelse'], $id, $posnr[$x], $varenr[$x], $dkantal[$x], $enhed[$x], $dkpris, $dkprocent, $serienr[$x], $varemomssats[$x], $dkrabat[$x]);
$beskr = str_replace('$procenttillæg;', dkdecimal($procenttillag), $beskr);
print "<tr>\n";
print "<td></td>\n";
print "<td>{$procentvare}</td>\n";
print "<td></td>\n";
print "<td></td>\n";
print "<td>{$beskr}</td>\n";
print "<td></td>\n";
print "<td></td>\n";
print "<td></td>\n";
print "<td align=right>" . dkdecimal($tillag) . "</td>\n";
if ($art != 'OT') {
print "<td></td>\n";
}
#20140716
print "</tr>\n";
$sum += $tillag;
$dbsum += $tillag;
$moms += $tillag / 100 * $momssats;
}
print "<input type=\"hidden\" name=\"sum\" value=\"{$sum}\">\n";
if (!$blandet_moms && !$incl_moms) {
$moms = $sum * $momssats / 100;
}
#tilfojet 20100923 grundet afrundingsfejl på ordre med rabat
$moms = afrund($moms * 1, 3);
$kostpris[0] = $kostpris[0] * 1;
db_modify("update ordrer set sum={$sum},kostpris={$kostsum},moms={$moms} where id={$id}", __FILE__ . " linje " . __LINE__);
if ($art == 'DK') {
$sum = $sum * -1;
$moms = $moms * -1;
}
$ialt = $sum + $moms;
print "<tr><td colspan=\"12\"><table border=\"1\" cellspacing=\"0\" cellpadding=\"0\" width=\"100%\"><tbody>\n";
# Tabel 4.5.1 ->
print "<tr>\n";
# print "<td align=\"center\">".dkdecimal($procenttillag)."% tillæg: ".dkdecimal($tillag)."</td>\n";
print "<td align=\"center\">Nettosum: " . dkdecimal($sum) . "</td>\n";
if ($vis_saet) {
$db = $sum - $kostsum;
} else {
$db = $dbsum;
}
print "<td width=\"20%\" align=\"center\" title=\"DB: DKK " . dkdecimal($db * $valutakurs / 100) . "\">";
if (!$vis_saet) {
print "Dækningsbidrag: " . dkdecimal($db);
}
print "</td>\n";
if ($sum) {
$dg_sum = $db * 100 / $sum;
} else {
$dg_sum = dkdecimal(0);
}
print "<td width=\"20%\" align=\"center\" title=\"DG;" . dkdecimal($dg_sum) . "%\">";
if (!$vis_saet) {
print "Dækningsgrad: " . dkdecimal($dg_sum) . "%";
}
print "</td>\n";
print "<td width=\"20%\" align=\"center\" align=\"center\">Moms: " . dkdecimal($moms) . "</td>\n";
print "<td width=\"20%\" align=\"center\" align=\"center\" title=\"DG;" . dkdecimal($dg_sum) . "%\">I alt:";
if ($brugsamletpris && $art == 'DO') {
print "<input type=\"hidden\" name=\"ordresum\" value=\"" . afrund($ialt, 2) . "\">";
print "<input style=\"width:100px;text-align:right\" type=\"text\" name=\"samlet_pris\" value=\"" . dkdecimal($ialt) . "\">";
} else {
print dkdecimal($ialt);
}
print "</td>\n";
}
print "</tbody></table></td></tr>\n";
# <- Tabel 4.5.1
if ($fokus != 'dkan' . count($vare_id)) {
print "<input type=\"hidden\" name=\"fokus\">\n";
}
#20151019
print "<tr><td align=\"center\" colspan=\"12\">\n";
print "<table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"1\"><tbody><tr>\n";
# Tabel 4.5.2 ->
if ($status < 3) {
if ($levdiff) {
$status = 1;
} elseif ($status == 1) {
$status++;
}
//if ($status<1) $width="33%";
//elseif ($sum!=0) $width="25%";
if ($hurtigfakt == 'on' && $fakturadato) {
print "<input type=\"hidden\" name=\"levdato\" value=\"{$fakturadato}\">\n";
}
print "<input type=\"hidden\" name=\"valutakurs\" value=\"{$valutakurs}\">\n";
print "<input type=\"hidden\" name=\"status\" value=\"{$status}\">\n";
print "<td align=\"center\" width={$width}><input type=\"submit\" class=\"button gray medium\" id=\"submit\" style=\"width:75px;\" accesskey=\"g\" value=\"Gem\" name=\"submit\" onclick=\"javascript:docChange = false;\"></td>\n";
if ($art != 'OT') {
# Fjerner knappen opslag hvis art er = OT (original tilbud) #20140716
print "<td align=\"center\" width={$width}><input type=\"submit\" class=\"button blue medium\" style=\"width:75px;\" accesskey=\"o\" value=\"Opslag\" name=\"submit\" ";
if ($art == "DK") {
print "disabled=\"disabled\" ";
}
print "onclick=\"javascript:docChange = false;\"></td>\n";
}
if ($status == 1 && $bogfor != 0 && $hurtigfakt != 'on' && $leveres_ialt) {
if ($art == 'DO') {
print "<td align=\"center\" width={$width}><input type=\"submit\" class=\"button gray medium\" style=\"width:75px;\" accesskey=\"l\" value=\"Levér\" name=\"submit\" onclick=\"javascript:docChange = false;\"></td>\n";
} else {
print "<td align=\"center\" width={$width} title=\"Klik her for at tage varer retur\"><input type=\"submit\" class=\"button gray medium\" style=\"width:75px;\" accesskey=\"l\" value=\"Modtag\" name=\"submit\" onclick=\"javascript:docChange = false;\"></td>\n";
}
}
if ($status == 2 && $bogfor != 0 || $status > 0 && $hurtigfakt == 'on') {
$disabled = NULL;
$titletext = '';
$tmp = "";
$dd = date("d-m-Y");
if ($art != 'DK' && !$dan_kn) {
if ($udskriv_til == 'email') {
$tmp = "onclick=\"return confirm('Faktura sendes pr. mail til {$email}')\"";
} elseif ($udskriv_til == 'PBS') {
$tmp = "onclick=\"return confirm('Faktura tilføjes PBS/Nets liste!')\"";
} elseif ($udskriv_til == 'oioubl') {
$tmp = "onclick=\"return confirm('Faktura genereres som OIOUBL fil!')\"";
} elseif (!$fakturadato) {
$tmp = "onclick=\"return confirm('Fakturadato sættes til {$dd}!')\"";
} else {
$tmp = "";
}
if ($vis_saet) {
if (($betalingsbet == 'Netto' || $betalingsbet == 'Lb.md') && is_numeric($felt_2) && $felt_2 != 0) {
#20150313
$tmp = "onclick=\"return confirm('Betalingsbetingelser er sat til {$betalingsbet} {$betalingsdage} dage og betaling til {$felt_1}!\\\n Vil du det?')\"";
} else {
if ($fakturadate && $fakturadate != date('Y-m-d')) {
$tmp = "onclick=\"return confirm('Fakturadato er ikke idag!\\\n Vil du det?')\"";
}
if ($felt_2 + $felt_4 < $sum + $moms) {
$disabled = 'disabled';
$titletext = 'Vælg betalingsmåde';
}
}
}
#echo "$art=='DO' && $dan_kn<br>";
print "<td align=\"center\" width=\"{$width}\" title=\"{$titletext}\"><input {$disabled} type=\"submit\" class=\"button gray medium\" style=\"width:75px;\" accesskey=\"f\" value=\"Fakturér\" name=\"submit\" {$tmp}></td>\n";
} else {
if ($vis_saet) {
$disabled = NULL;
$titletext = '';
$diff = afrund($felt_2 + $felt_4 + ($sum + $moms), 2);
if ($diff) {
$disabled = 'disabled';
$titletext = 'Vælg betalingsmåde';
}
}
if ($art == 'DO' && $dan_kn) {
$tmp = "onclick=\"return confirm('Ordre omdannes til kreditnota ved fakturering!')\"";
}
if ($mail_fakt) {
$tmp = "onclick=\"return confirm('Kreditnota sendes pr. mail til {$email}')\"";
}
print "<td align=\"center\" width=\"{$width}\" title=\"{$titletext}\"><input {$disabled} type=\"submit\" class=\"button gray medium\" style=\"width:75px;\" accesskey=\"f\" value=\"Kreditér\" name=\"submit\" {$tmp}></td>\n";
}
} elseif ($del_ordre == 'on') {
$txt = "Klik her for at opdele ordren i 2.<br>Den ene vil indeholde ikke leverede varer<br>Den anden vil indeholde leverede varer";
print "<td align=\"center\" width=\"{$width}\" >\n\t\t\t\t\t<span onmouseover=\"return overlib('{$txt}',WIDTH=800);\" onmouseout=\"return nd();\">\n\t\t\t\t\t<input type=\"submit\" class=\"button gray medium\" accesskey=\"f\" value=\"Del ordre\" name=\"submit\" style=\"width:75px;\" onclick=\"javascript:docChange = false;\"></span></td>\n";
}
if ($linjeantal > 0 && $konto_id && ($art == 'DO' || $art == 'OT')) {
# skal også med ved 'original tilbud' (OT) #20140716
if ($mail_fakt && $status < 1) {
$tmp = "onclick=\"return confirm('Tilbud sendes pr mail til {$email}')\"";
} elseif ($mail_fakt && $hurtigfakt && $status < 3) {
$tmp = "onclick=\"return confirm('Ordrebekræftelse sendes pr mail til {$email}')\"";
} elseif ($mail_fakt && $status < 2) {
$tmp = "onclick=\"return confirm('Ordrebekræftelse sendes pr. mail til {$email}')\"";
} else {
$tmp = "";
}
$udskriv_til == 'email' ? $value = 'Send' : ($value = 'Udskriv');
print "<td align=\"center\" width={$width}><input type=\"submit\" class=\"button gray medium\" style=\"width:75px;\" value=\"{$value}\" name=\"submit\" {$tmp} title=\"{$tekst2}\" onclick=\"javascript:docChange = false;\"></td>\n";
}
if ($status < 3 && $brugsamletpris && $svnr && $konto_id) {
print "<td align=\"center\" width={$width}><input type=\"button\" class=\"button gray medium\" style=\"width:75px;\" value=\"Sæt\" name=\"ret_saet\" title=\"Klik her for at oprette eller rette i varesæt\" onclick=\"jacascript:window.location.href='saetpris.php?id={$id}'\"></td>\n";
}
$tekst = findtekst(155, $sprog_id);
$tekst2 = findtekst(156, $sprog_id);
if (count($leveret) == 0 && $art != 'OT' && $id) {
print "<td align=\"center\"><input type=\"submit\" class=\"button rosy medium\" style=\"width:75px;\" value=\"Slet\" name=\"submit\" onclick=\"return confirm('{$tekst}')\" title=\"{$tekst2}\"></td>\n";
}
if ($art == 'OT' && $sag_id) {
print "<td align=\"center\"><a class=\"button gray medium mozMedium\" style=\"\" title=\"klik her for at kopiér tilbud til ny sag\" href=\"../sager/sager.php?funktion=kopi_ordre&sag_id={$sag_id}&konto_id={$konto_id}&ordre_id={$id}&returside=ordre\">Kopiér</a></td>\n";
}
print "</tbody></table></td></tr>\n";
# <- Tabel 4.5.2
print "</form>\n";
print "</tbody></table></td></tr>\n";
# <- Tabel 4.5
//print "<tr><td></td></tr>\n";
}
# end if ($status < 3)
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"))) {
$opp_amount = $r['amount'] * 100 / $r3['kurs'];
} elseif ($valuta) {
print "<BODY onLoad=\"javascript:alert('Ingen valutakurs for faktura {$r['faktnr']}')\">\n";
}
} 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('Kreditloft overskrides med {$valuta} {$tmp}')\">\n";
}
}
# end if ($kreditmax....
print "</tbody></table></td></tr>\n";
# <- Tabel 4
print "</form>\n";
#
}
# end else for (if ($status>=3))
# ADD LINK TO GLS!!
if ($db_id == '390') {
# || $db_id=='2'
print "<tr><td align=\"center\"><br>";
print "<form name=\"glslabel_form\" action=\"../includes/gls.php\" target=\"_blank\" method=\"POST\">" . "\n<input type=\"hidden\" name=\"txtAction\" value=\"70120\">" . "\n<input type=\"hidden\" name=\"txtConsigneeNo\" value=\"" . $kontonr . "\">" . "\n<input type=\"hidden\" name=\"txtWeight\" value=\"1\">" . "\n<input type=\"hidden\" name=\"txtCountryNum\" value=\"208\">" . "\n<input type=\"hidden\" name=\"txtReferenceNo\" value=\"" . $ordrenr . " \">" . "\n<input type=\"hidden\" name=\"txtConsigneeEmail\" value=\"" . $email . " \">";
if (!empty($lev_navn)) {
print "\n<input type=\"hidden\" name=\"txtName1\" value=\"" . $lev_navn . "\">";
print "\n<input type=\"hidden\" name=\"txtZipCodeDisplay\" value=\"" . $lev_postnr . "\">";
print "\n<input type=\"hidden\" name=\"txtCity\" value=\"" . $lev_bynavn . "\">";
print "\n<input type=\"hidden\" name=\"txtStreet\" value=\"" . $lev_addr1 . "\">";
print "\n<input type=\"hidden\" name=\"txtName2\" value=\"" . $lev_addr2 . "\">";
print "\n<input type=\"hidden\" name=\"txtContact\" value=\"" . $lev_kontakt . "\">";
} else {
print "\n<input type=\"hidden\" name=\"txtName1\" value=\"" . $firmanavn . "\">";
print "\n<input type=\"hidden\" name=\"txtZipCodeDisplay\" value=\"" . $postnr . "\">";
print "\n<input type=\"hidden\" name=\"txtCity\" value=\"" . $bynavn . "\">";
print "\n<input type=\"hidden\" name=\"txtStreet\" value=\"" . $addr1 . "\">";
print "\n<input type=\"hidden\" name=\"txtName2\" value=\"" . $addr2 . "\">";
print "\n<input type=\"hidden\" name=\"txtContact\" value=\"" . $kontakt . "\">";
}
print "\n<input type=\"submit\" value=\"Send til GLS\"></form>";
if ($cvrnr && !is_numeric(substr($cvrnr, 0, 2))) {
$landekode = substr($cvrnr, 0, 2);
} elseif (strtolower($land) == 'sverige' || strtolower($land) == 'sweden') {
$landekode = 'se';
} elseif (strtolower($land) == 'norge' || strtolower($land) == 'norway') {
$landekode = 'no';
} else {
$landekode = 'se';
}
print "<form name=\"fedexlabel_form\" action=\"https://www.fedex.com/shipping/shipEntryAction.do\" target=\"_blank\" method=\"POST\">" . "\n<input type=\"hidden\" name=\"txtAction\" value=\"70120\">" . "\n<input type=\"hidden\" name=\"txtConsigneeNo\" value=\"" . $kontonr . "\">" . "\n<input type=\"hidden\" name=\"txtWeight\" value=\"1\">" . "\n<input type=\"hidden\" name=\"txtCountryNum\" value=\"208\">" . "\n<input type=\"hidden\" name=\"billingData.referenceData.yourReference\" value=\"" . $ordrenr . "\">" . "\n<input type=\"hidden\" name=\"notificationData.recipientNotifications.email\" value=\"" . $email . "\">" . "\n<input type=\"hidden\" name=\"notificationData.recipientNotifications..pickupNotificationFlag\" value=\"true\">" . "\n<input type=\"hidden\" name=\".companyName\" value=\"" . $firmanavn . "\">" . "\n<input type=\"hidden\" name=\"toData.addressLine1\" value=\"" . $addr1 . "\">" . "\n<input type=\"hidden\" name=\"toData.addressLine2\" value=\"" . $addr2 . "\">" . "\n<input type=\"hidden\" name=\"toData.city\" value=\"" . $bynavn . "\">" . "\n<input type=\"hidden\" name=\"toData.zipPostalCode\" value=\"" . $postnr . "\">" . "\n<input type=\"hidden\" name=\"toData.contactName\" value=\"" . $kontakt . "\">" . "\n<input type=\"hidden\" name=\"toData.countryCode\" value=\"{$landekode}\">" . "\n<input type=\"hidden\" name=\"toData.taxID\" value=\"" . $cvrnr . "\">" . "\n<input type=\"hidden\" name=\"toData.phoneNumber\" value=\"" . $tlf . "\">" . "\n<input type=\"hidden\" name=\"psdData.numberOfPackages\" value=\"1\">" . "\n<input type=\"hidden\" name=\"psdData.mpsRowDataList[0].weight\" value=\"1\">" . "\n<input type=\"hidden\" name=\"psdData.serviceType\" value=\"International Economy\">" . "\n<input type=\"hidden\" name=\"psdData.packageType\" value=\"Your Packaging\">" . "\n<input type=\"hidden\" name=\"psdData.serviceType\" value=\"International Economy\">" . "\n<input type=\"hidden\" name=\"billingData.selectedBillDutiesAndTaxIndex\" value=\"R\">" . "\n<input type=\"hidden\" name=\"billingData.referenceData.invoiceNumber\" value=\"{$fakturanr}\">";
//fedex fragttype
"\n<input type=\"hidden\" name=\"commodityData.totalCustomsValue\" value=\"{$sum}\">" . "\n<input type=\"hidden\" name=\"commodityData.documentShipping\" value=\"false\">";
//
if (!empty($lev_navn)) {
print "\n<input type=\"hidden\" name=\"toData.addressData.countryCode\" value=\"{$landekode}\">";
print "\n<input type=\"hidden\" name=\"toData.addressData.companyName\" value=\"" . $lev_navn . "\">";
print "\n<input type=\"hidden\" name=\"toData.addressData.zipPostalCode\" value=\"" . $lev_postnr . "\">";
print "\n<input type=\"hidden\" name=\"toData.addressData.city\" value=\"" . $lev_bynavn . "\">";
print "\n<input type=\"hidden\" name=\"toData.addressData.addressLine1\" value=\"" . $lev_addr1 . "\">";
print "\n<input type=\"hidden\" name=\"toData.addressData.addressLine2\" value=\"" . $lev_addr2 . "\">";
print "\n<input type=\"hidden\" name=\"toData.addressData.contactName\" value=\"" . $lev_kontakt . "\">";
} else {
print "\n<input type=\"hidden\" name=\"toData.addressData.countryCode\" value=\"{$landekode}\">";
print "\n<input type=\"hidden\" name=\"toData.addressData.companyName\" value=\"" . $firmanavn . "\">";
print "\n<input type=\"hidden\" name=\"toData.addressData.zipPostalCode\" value=\"" . $postnr . "\">";
print "\n<input type=\"hidden\" name=\"toData.addressData.city\" value=\"" . $bynavn . "\">";
print "\n<input type=\"hidden\" name=\"toData.addressData.addressLine1\" value=\"" . $addr1 . "\">";
print "\n<input type=\"hidden\" name=\"toData.addressData.addressLine2\" value=\"" . $addr2 . "\">";
print "\n<input type=\"hidden\" name=\"toData.addressData.contactName\" value=\"" . $kontakt . "\">";
}
print "\n<input type=\"submit\" value=\"Send til Fedex\"></form>";
print "</td></tr>";
}
print "<!--Function ordreside s**t-->";
}
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";
}
function udskriv($ansat_antal, $ansat_id, $startdato, $slutdato)
{
global $returside;
for ($a = 1; $a <= $ansat_antal; $a++) {
if ($r = db_fetch_array(db_select("select * from ansatte where id = '{$ansat_id[$a]}'", __FILE__ . " linje " . __LINE__))) {
$ref = $r['navn'];
}
if ($r = db_fetch_array(db_select("select * from grupper where art = 'DIV' and kodenr = '1'", __FILE__ . " linje " . __LINE__))) {
$box1 = $r['box1'];
$box2 = $r['box2'];
$box3 = $r['box3'];
$box4 = $r['box4'];
}
if ($box1 == 'ref') {
$personkilde = "and ordrer.ref='{$ref}'";
} elseif ($box1 == 'kua') {
$personkilde = "and adresser.kontoansvarlig = '{$ansat_id[$a]}'";
} else {
$personkilde = "and (adresser.kontoansvarlig = '{$ansat_id[$a]}' or ((adresser.kontoansvarlig = NULL or adresser.kontoansvarlig = '0') and ordrer.ref='{$ref}'))";
}
if ($box2 == 'kort') {
$kostkilde = "kort";
} else {
$kostkilde = "batch";
}
if ($box4 == 'fak') {
$grundlag = "fak";
} else {
$grundlag = "bet";
}
if ($a == 1) {
# $slutmaaned=date("m");
# $slutaar=date("Y");
# $default_slutdato=$box3."-".$slutmaaned."-".$slutaar;
$default_startdato = predato($box3 . "-" . date("m") . "-" . date("Y"));
$default_slutdato = slutdato($default_startdato);
if (!$startdato) {
$startdato = $default_startdato;
$slutdato = $default_slutdato;
}
print "<table width=100% border=0 cellspacing=0 cellpadding=0><tbody>";
print "<table width = 100% cellpadding=\"1\" cellspacing=\"1\" border=\"0\"><tbody>";
print "<tr>\n";
print "<td width=\"10%\" {$top_bund}><font face=\"Helvetica, Arial, sans-serif\" color=\"#000066\"><a href={$returside} accesskey=L>Luk</a></td>";
print "<td width=\"80%\" {$top_bund}><font face=\"Helvetica, Arial, sans-serif\" color=\"#000066\">Provisionsrapport</td>";
print "<td width=\"10%\" {$top_bund}><font face=\"Helvetica, Arial, sans-serif\" color=\"#000066\"><br></td>";
print "</tr>\n";
print "<form name=provisionsrapport action=provisionsrapport.php method=post>\n";
print "<tr><td colspan='3'><input type=submit value=\"Periode\" name=\"submit\"><select name=periode>";
print "<option>{$startdato} : {$slutdato}</option>";
$tmp = $default_startdato;
$tmp2 = $default_slutdato;
for ($x = 12; $x >= 1; $x--) {
print "<option>{$tmp} : {$tmp2}</option>";
$tmp = predato($tmp);
$tmp2 = slutdato($tmp);
}
print "</select> ";
print "</form>\n";
print "<tr><td colspan='3'><b>{$ref}</b></td></tr>";
# Kan ikke forstaa, hvorfor der ikke skal vaere en overskrift, hvis der blot er flere...
} else {
print "<tr><td colspan='3'><b>{$ref}</b></td></tr>";
}
print "</tbody></table>";
print "<tr><td valign=top>";
print "<table width=100% align=center valign=top border=0 cellspacing=0 cellpadding=0><tbody>";
print "<tr><td></td></tr>";
print "<tr><td colspan=7><br></td></tr>";
if ($grundlag == 'bet') {
print "<tr><td colspan=7> Betalte fakturaer i peroiden.</td><tr>";
} else {
print "<tr><td colspan=7> Fakturerede ordrer i perioden.</td><tr>";
}
print "<tr><td colspan=7><br></td><tr>";
if ($grundlag == 'bet') {
print "<tr><td width=15%> Fakturadato</td><td> Betalingsdato</td><td align=right width=10%> Fakturanr</td><td align=right width=15%> Kostpris</td><td align=right width=15%> Salgspris</td><td align=right width=15%> Dæknings-<br />bidrag</td><td align=right width=15%> Provision</td><tr>";
} else {
print "<tr><td width=15%> Fakturadato</td><td> Forfaldsdato</td><td align=right width=10%> Fakturanr</td><td align=right width=15%> Kostpris</td><td align=right width=15%> Salgspris</td><td align=right width=15%> Dæknings-<br />bidrag</td><td align=right width=15%> Provision</td><tr>";
}
print "<tr><td colspan=7><hr></td><tr>";
$x = 0;
$faktliste = array();
$startdate = usdate($startdato);
$slutdate = usdate($slutdato);
$sum = 0;
$kostsum = 0;
$pro_sum = 0;
if ($grundlag == 'bet') {
$q1 = db_select("SELECT ordrer.firmanavn as firmanavn, ordrer.fakturadate as faktdate, openpost.udlign_date as udlign_date, openpost.faktnr as faktnr, ordrer.id as ordre_id, grupper.box6 as box6, grupper.id as gruppe_id from adresser, openpost, ordrer, grupper where (ordrer.art='DO' or ordrer.art='DK') {$personkilde} and adresser.id=openpost.konto_id and adresser.gruppe=" . nr_cast("grupper.kodenr") . " and grupper.art='DG' and ordrer.fakturanr=openpost.faktnr and openpost.udlign_date >= '{$startdate}' and openpost.udlign_date <= '{$slutdate}' and openpost.udlignet = '1' and openpost.faktnr>'0' order by openpost.udlign_date, openpost.faktnr", __FILE__ . " linje " . __LINE__);
} else {
$q1 = db_select("SELECT ordrer.firmanavn as firmanavn, ordrer.fakturadate as faktdate, ordrer.fakturanr as faktnr, ordrer.id as ordre_id , ordrer.betalingsbet as betalingsbet, ordrer.betalingsdage, grupper.box6 as box6, grupper.id as gruppe_id from adresser, ordrer, grupper where (ordrer.art='DO' or ordrer.art='DK') and adresser.id=ordrer.konto_id and adresser.gruppe=" . nr_cast("grupper.kodenr") . " and grupper.art='DG' {$personkilde} and ordrer.status>=3 and ordrer.fakturadate >= '{$startdate}' and ordrer.fakturadate <= '{$slutdate}' order by ordrer.fakturadate, ordrer.fakturanr", __FILE__ . " linje " . __LINE__);
}
while ($r1 = db_fetch_array($q1)) {
if (!in_array($r1['faktnr'], $faktliste)) {
$x++;
$pris[$x] = 0;
$kostpris[$x] = 0;
$faktliste[$x] = $r1['faktnr'];
$firmanavn = str_replace(" ", " ", stripslashes($r1['firmanavn']));
if ($r1[box6] != NULL) {
$pro_procent[$x] = $r1['box6'];
} else {
$pro_procent[$x] = 100;
}
if ($ansat_id[$a] && $r1[gruppe_id] && ($r2 = db_fetch_array(db_select("SELECT provision from provision where ansat_id='{$ansat_id[$a]}' and gruppe_id='{$r1['gruppe_id']}'", __FILE__ . " linje " . __LINE__)))) {
$provision = $r2['provision'];
} else {
$provision = 0;
}
if ($grundlag == 'bet') {
list($tmp, $tmp2, $tmp3) = varelinjer($r1[ordre_id], $r1[faktdate], $r1[udlign_date], $provision, $r1['faktnr'], $r1['firmanavn'], $pro_procent[$x]);
} else {
list($tmp, $tmp2, $tmp3) = varelinjer($r1[ordre_id], $r1[faktdate], forfaldsdag($r1[faktdate], $r1[betalingsbet], $r1[betalingsdage]), $provision, $r1['faktnr'], $firmanavn, $pro_procent[$x]);
}
$sum = $sum + $tmp;
$kostsum = $kostsum + $tmp2;
$pro_sum = $pro_sum + $tmp3;
}
}
$tmp = $sum - $kostsum;
$tmp2 = $pro_sum / 100 * $pro_procent[$x];
print "<tr><td colspan=7><hr></td></tr>";
print "<tr><td colspan=3> I alt</td><td align=right>" . dkdecimal($kostsum) . "</td><td align=right>" . dkdecimal($sum) . "</td><td align=right>" . dkdecimal($tmp) . "</td><td align=right>" . dkdecimal($tmp2) . "</td></tr>";
print "<tr><td colspan=7><hr></td></tr>";
print "<tr><td colspan=7><br></td></tr>";
if ($grundlag == 'bet') {
print "<tr><td colspan=7> Fakturaer som ikke er betalt</td><tr>";
print "<tr><td colspan=7><br></td><tr>";
print "<tr><td> Fakturadato</td><td> Forfaldsdato</td><td align=right>Fakturanr</td><td align=right> Kostpris</td><td align=right> Salgspris</td><td align=right> DB</td><td align=right> Provision</td><tr>";
print "<tr><td colspan=7><hr></td><tr>";
$sum = 0;
$kostsum = 0;
$pro_sum = 0;
$faktliste = array();
$q1 = db_select("SELECT ordrer.firmanavn as firmanavn, ordrer.fakturadate as faktdate, openpost.faktnr as faktnr, ordrer.id as ordre_id, ordrer.betalingsbet as betalingsbet, ordrer.betalingsdage, grupper.box6 as box6, grupper.id as gruppe_id from adresser, openpost, ordrer, grupper where (ordrer.art='DO' or ordrer.art='DK') and adresser.gruppe=" . nr_cast("grupper.kodenr") . " and grupper.art='DG' {$personkilde} and adresser.id=openpost.konto_id and ordrer.fakturanr=openpost.faktnr and ordrer.konto_id=openpost.konto_id and openpost.udlignet = '0' and openpost.faktnr>'0' order by openpost.transdate, openpost.faktnr", __FILE__ . " linje " . __LINE__);
while ($r1 = db_fetch_array($q1)) {
if (!in_array($r1['faktnr'], $faktliste)) {
$x++;
$pris[$x] = 0;
$kostpris[$x] = 0;
$faktliste[$x] = $r1['faktnr'];
$firmanavn = str_replace(" ", " ", stripslashes($r1['firmanavn']));
if ($r1[box6] != NULL) {
$pro_procent[$x] = $r1['box6'];
} else {
$pro_procent[$x] = 100;
}
if ($ansat_id[$a] && $r1[gruppe_id] && ($r2 = db_fetch_array(db_select("SELECT provision from provision where ansat_id='{$ansat_id[$a]}' and gruppe_id='{$r1['gruppe_id']}'", __FILE__ . " linje " . __LINE__)))) {
$provision = $r2['provision'];
} else {
$provision = 0;
}
list($tmp, $tmp2, $tmp3) = varelinjer($r1[ordre_id], $r1[faktdate], forfaldsdag($r1[faktdate], $r1[betalingsbet], $r1[betalingsdage]), $provision, $r1[faktnr], $firmanavn, $pro_procent[$x]);
$sum = $sum + $tmp;
$kostsum = $kostsum + $tmp2;
$pro_sum = $pro_sum + $tmp3;
}
}
$tmp = $sum - $kostsum;
$tmp2 = $pro_sum / 100 * $pro_procent[$x];
print "<tr><td colspan=7><hr></td></tr>";
print "<tr><td colspan=3> I alt</td><td align=right>" . dkdecimal($kostsum) . "</td><td align=right>" . dkdecimal($sum) . "</td><td align=right>" . dkdecimal($tmp) . "</td><td align=right>" . dkdecimal($tmp2) . "</td></tr>";
print "<tr><td colspan=7><hr></td></tr>";
print "<tr><td colspan=7><br></td></tr>";
print "<tr><td colspan=7><br></td></tr>";
}
}
print "</tr></tbody></table>";
print "</td></tr>";
print "</tbody></table>";
}
}
$r = db_fetch_array(db_select("select beskrivelse, box10 from grupper where art='VG' and kodenr='{$gruppe}'", __FILE__ . " linje " . __LINE__));
if ($r['box10'] == 'on' && !$operation) {
$r2 = db_fetch_array(db_select("select MAX(operation) as max from varer where lukket !='on'", __FILE__ . " linje " . __LINE__));
$operation = $r2[max] + 1;
}
print "<td width=67%>\n\t<input type=\"hidden\" NAME=\"gruppe\" value=\"{$gruppe}\">\n\t<SELECT class=\"inputbox\" NAME=\"ny_gruppe\" style=\"width: 18em\">";
print "<option value=\"{$gruppe}\">{$gruppe} {$r['beskrivelse']}</option>";
if (!$beholdning || !$box9) {
# box9 tilfoejet 20090210 saa gruppeskift mellem grupper med box8 er mulig.
if ($samlevare == 'on') {
$query = db_select("select * from grupper where art='VG' and kodenr!='{$gruppe}' and box8!='on' order by " . nr_cast(kodenr) . "", __FILE__ . " linje " . __LINE__);
} elseif ($beholdning) {
$query = db_select("select * from grupper where art='VG' and kodenr!='{$gruppe}' and box8='on' order by " . nr_cast(kodenr) . "", __FILE__ . " linje " . __LINE__);
} else {
$query = db_select("select * from grupper where art='VG' and kodenr!='{$gruppe}' order by " . nr_cast(kodenr) . "", __FILE__ . " linje " . __LINE__);
}
while ($row = db_fetch_array($query)) {
print "<option value=\"{$row['kodenr']}\">{$row['kodenr']} {$row['beskrivelse']}</option>";
}
}
print "</SELECT></td></tr>";
#<- Varegruppe
if ($dvrg_nr[1]) {
print "<tr><td>Debitorrabatgrp.</td>";
print "<td><SELECT class=\"inputbox\" NAME=\"dvrg\" style=\"width: 18em\">";
if (!$dvrg_nr[0]) {
print "<option value=\"0\"></option>";
}
for ($x = 1; $x <= count($dvrg_nr); $x++) {
if ($dvrg_nr[0] && $dvrg_nr[0] == $dvrg_nr[$x]) {
