function udvaelg($tmp, $key, $art)
{
include "../includes/std_func.php";
$tmp = strtolower($tmp);
if ($art) {
#20150105-1
if ($art != 'BELOB') {
$tmp = str_replace(",", ":", $tmp);
}
#20150601
$tmp = str_replace(";", ":", $tmp);
if ($art == 'BELOB' && !strpos($tmp, ':')) {
#20151019
$tmp = usdecimal($tmp);
$tmp1 = $tmp - 0.005;
$tmp2 = $tmp + 0.004;
$tmp = number_format($tmp1, 3, ',', '') . ":" . number_format($tmp2, 3, ',', '');
}
}
list($tmp1, $tmp2) = explode(":", $tmp);
if (strstr($tmp, ':') && $art != 'TID') {
if ($art == "DATO") {
$tmp1 = usdate($tmp1);
$tmp2 = usdate($tmp2);
} elseif ($art == "BELOB") {
$tmp1 = usdecimal($tmp1);
$tmp2 = usdecimal($tmp2);
} elseif ($art == "NR") {
$tmp1 = afrund($tmp1 * 1, 2);
#21050105-2
$tmp2 = afrund($tmp2 * 1, 2);
}
$udvaelg = "and {$key} >= '{$tmp1}' and {$key} <= '{$tmp2}'";
} else {
if ($art == "TID") {
if (!strstr($tmp, ':')) {
$tmp = $tmp * 1;
$tmp = str_replace(".", ":", $tmp);
if (!strstr($tmp, ':')) {
$tmp = $tmp . ":";
}
}
} elseif ($art == "DATO") {
$tmp = usdate($tmp);
}
if (!$art) {
$tmp = str_replace("*", "%", $tmp);
$tmp = db_escape_string($tmp);
$udvaelg = " and lower({$key}) like '{$tmp}'";
} else {
$udvaelg = " and {$key} = '{$tmp}'";
}
}
return $udvaelg;
}
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 tastatur($kasse, $status)
{
print "\n<!-- Function tastatur (start)-->\n";
global $betalingsbet;
global $bgcolor;
global $bgcolor2;
global $bgcolor5;
global $bruger_id;
global $brugernavn;
global $bon;
global $bordnr;
global $db;
global $db_id;
global $fokus;
global $id;
global $indbetaling;
global $kontonr;
global $modtaget;
global $modtaget2;
global $popup;
global $regnskab;
global $returside;
global $sum;
global $terminal_ip;
global $vare_id;
global $vare_id_ny;
global $varelinjer;
global $varenr_ny;
global $vis_saet;
if ($kasse == "?") {
find_kasse($kasse);
}
$r = db_fetch_array(db_select("select box2,box3,box4,box7,box10 from grupper where art = 'POS' and kodenr='2'", __FILE__ . " linje " . __LINE__));
$x = $kasse - 1;
$optalassist = $r['box2'];
$tmp = explode(chr(9), $r['box3']);
$printserver = trim($tmp[$x]);
$tmp = explode(chr(9), $r['box4']);
#20131205
$terminal_ip = strtolower(trim($tmp[$x]));
$tmp = explode(chr(9), $r['box10']);
#20140820
$koekkenprint = strtolower(trim($tmp[$x]));
$r['box7'] ? $bord = explode(chr(9), $r['box7']) : ($bord = NULL);
#20140508
$vare_id && $vare_id_ny ? $disabled = "disabled=\"disabled\"" : ($disabled = NULL);
$stil = find_stil('knap', 1, 0.7);
$knap = "<input type=\"button\" {$stil} value= \"{$a}\">\n";
if (isset($_SERVER['HTTPS']) && $_SERVER['HTTPS']) {
$url = 'https://';
} else {
$url = 'http://';
}
$url .= $_SERVER['SERVER_NAME'];
#.$_SERVER['PHP_SELF'];
if (!strpos($url, $_SERVER['PHP_SELF'])) {
$url .= $_SERVER['PHP_SELF'];
}
print "<tr>\n";
$href = "pos_ordre.php?id={$id}&kasse=?&bordnr={$bordnr}";
print "<td width=\"{$width}\"><input {$disabled} type=\"button\" onclick=\"window.location.href='{$href}'\" {$stil} value=\"Kasse: {$kasse}\"></td>\n";
$href = "pos_ordre.php?id={$id}&skift_bruger=1&bordnr={$bordnr}";
print "<td width=\"{$width}\"><input {$disabled} type=\"button\" onclick=\"window.location.href='{$href}'\" {$stil} value=\"{$brugernavn}\"></td>\n";
print "<td width=\"{$width}\">\n";
# if ($optalassist) {
$href = "pos_ordre.php?id={$id}&kasse={$kasse}&kassebeholdning=on&bordnr={$bordnr}";
print "<input {$disabled} type=\"button\" onclick=\"window.location.href='{$href}'\" {$stil} value=\"Kasse\noptælling\">\n";
# } else {
# }
print "</td>\n";
/*
print "<td>$regnskab Kasse: <a href=pos_ordre.php?id=$id&kasse=?>$kasse</a></td>\n";
print "<td><a href=pos_ordre.php?id=$id&kasse=$kasse&kassebeholdning=on>Kasseoptælling</a></td>\n";
*/
if ($terminal_ip) {
if ($_COOKIE['salditerm']) {
$terminal_ip = $_COOKIE['salditerm'];
}
if ($terminal_ip == 'box' || $terminal_ip == 'saldibox') {
# $filnavn="$url/kasse/".$_SERVER['REMOTE_ADDR'].".ip";
$filnavn = "http://saldi.dk/kasse/" . $_SERVER['REMOTE_ADDR'] . ".ip";
if ($fp = fopen($filnavn, 'r')) {
$terminal_ip = trim(fgets($fp));
fclose($fp);
}
}
#else $terminal_ip=$printserver;
$href = "http://{$terminal_ip}/pointd/point.php?url={$url}&id={$id}&kasse={$kasse}";
print "<td width=\"{$width}\"><input {$disabled} type=\"button\" onclick=\"window.location.href='{$href}'\" {$stil} value=\"Kort\nterminal\"></td>\n";
# print "<td><a href=http://$terminal_ip/pointd/point.php?url=$url&id=$id&kasse=$kasse>Kortterminal</a></td>\n"; #20131205
} else {
print "<td width=\"{$width}\"></td>\n";
}
$href = "pos_ordre.php?id={$id}&find_bon=1;";
print "<td width=\"{$width}\"><input {$disabled} type=\"button\" onclick=\"window.location.href='{$href}'\" {$stil} value=\"Find\nbon\"></td>\n";
$tmp = str_replace("background-color: {$bgcolor5}", 'background-color:#ff0000', $stil);
if ($popup) {
$href = "../includes/luk.php";
} else {
$href = "../index/menu.php";
}
print "<td><input {$disabled} type=\"button\" onclick=\"window.location.href='{$href}'\" {$tmp} value=\"Luk\"></td>\n";
# print "<td width=\"$width\" align=\"right\" valign=\"top\"><a href='pos_ordre.php?luk=1&returside=$returside'><div class=\"luk\"></div></a></td></tr>\n";
print "</tr>\n";
print "<tr><td colspan=\"6\"><hr></td></tr>\n";
print "<tr>\n";
if (count($bord) && $status < '3') {
$tmp = 'Bord';
for ($x = 0; $x < count($bord); $x++) {
# $y=$x+1;
if ($bordnr == $x) {
$tmp = $bord[$x];
}
}
$kstil = $stil;
# if ($id && $db=="bizsys_72") { #20150613
$qtxt = "select sum(ordrelinjer.antal) as iordre, sum(ordrelinjer.leveret) as bestilt from ordrelinjer,varer ";
$qtxt .= "where ordrelinjer.ordre_id='{$id}' and varer.kategori!='' and ordrelinjer.vare_id=varer.id";
$r = db_fetch_array(db_select($qtxt, __FILE__ . " linje " . __LINE__));
if ($r['iordre'] > $r['bestilt']) {
$kstil = str_replace($bgcolor, '#ff0000', $stil);
} elseif ($r['iordre']) {
$kstil = str_replace($bgcolor, '#00ff00', $stil);
} else {
$kstil = $stil;
}
# }
print "<td><INPUT {$disabled} {$stil} TYPE=\"submit\" NAME=\"bordvalg\" VALUE=\"{$tmp}\"></td>";
# $href="../bordplaner/bordplan.php?id=$id";
# print "<td width=\"$width\"><input $disabled type=\"button\" onclick=\"window.location.href='$href'\" $stil value=\"$tmp\"></td>\n";
print "<td><INPUT {$disabled} {$stil} TYPE=\"submit\" NAME=\"flyt_bord\"VALUE=\"Flyt bord\"></td>\n";
#20140508
print "<td><INPUT {$disabled} {$stil} TYPE=\"submit\" NAME=\"del_bord\"VALUE=\"Del bord\"></td>\n";
if ($koekkenprint) {
print "<td><INPUT {$disabled} {$kstil} TYPE=\"submit\" NAME=\"koekken\"VALUE=\"Køkken\"></td>\n";
}
print "<td><INPUT {$disabled} {$stil} TYPE=\"submit\" NAME=\"udskriv\"VALUE=\"Udskriv\"></td>\n";
print "<td><INPUT {$disabled} {$stil} TYPE=\"submit\" NAME=\"skuffe\"VALUE=\"Skuffe\"></td>\n";
}
print "</tr>\n";
# global $afslut;
if ($betalingsbet == 'Forud' || $betalingsbet == 'Kontant') {
$betalingsbet = NULL;
}
$sum = afrund($sum, 2);
$modtaget = afrund($modtaget, 2);
$modtaget2 = afrund($modtaget2, 2);
$r = db_fetch_array(db_select("select * from grupper where art = 'POS' and kodenr = '1'", __FILE__ . " linje " . __LINE__));
$kortantal = $r['box4'] * 1;
#cho "kortantal $kortantal<br>\n";
$korttyper = explode(chr(9), $r['box5']);
#cho "korttyper ".count($korttyper),"<br>\n";
#for ($i=0;$i<count($korttyper);$i++) #cho "$korttyper[$i]<br>\n";
$vis_kontoopslag = $r['box11'];
$vis_hurtigknap = $r['box12'];
$vis_indbetaling = $r['box14'];
$timeout = $r['box13'] * 1;
$vis_gem = 1;
if ($varenr_ny || $fokus == 'modtaget' || $fokus == 'modtaget2') {
$vis_gem = 0;
}
print "<input type=hidden name=\"sum\" value=\"{$sum}\">\n";
print "<input type=hidden name=\"kontonr\" value=\"{$kontonr}\">\n";
$stil = find_stil('knap', 1, 1);
$stil2 = find_stil('knap', 2, 1);
print "<TR><TD></TD>\n";
if ($status < 3) {
print "<TD><INPUT TYPE=\"button\" {$stil} NAME=\"one\" VALUE=\"1\" OnClick=\"pos_ordre.{$fokus}.value += '1';pos_ordre.{$fokus}.focus();\"></TD>\n";
print "<TD><INPUT TYPE=\"button\" {$stil} NAME=\"two\" VALUE=\"2\" OnCLick=\"pos_ordre.{$fokus}.value += '2';pos_ordre.{$fokus}.focus();\"></TD>\n";
print "<TD><INPUT TYPE=\"button\" {$stil} NAME=\"three\" VALUE=\"3\" OnClick=\"pos_ordre.{$fokus}.value += '3';pos_ordre.{$fokus}.focus();\"></TD>\n";
print "<TD><INPUT TYPE=\"button\" {$stil} NAME=\"plus\" VALUE=\"+\" OnClick=\"pos_ordre.{$fokus}.value += '+';pos_ordre.{$fokus}.focus();\"></TD>\n";
if ($vis_saet) {
print "<td><INPUT {$disabled} " . find_stil('knap', 1, 0.7) . " TYPE=\"submit\" NAME=\"saet\"VALUE=\"Sæt\"></td>\n";
} elseif ($db == 'bizsys_48') {
print "<td><INPUT {$disabled} {$stil} TYPE=\"submit\" NAME=\"skuffe\"VALUE=\"Skuffe\"></td>\n";
}
print "</tr>\n";
print "<TD></TD></TR><TR><TD></TD>\n";
print "<TD><INPUT TYPE=\"button\" {$stil} NAME=\"four\" VALUE=\"4\" OnClick=\"pos_ordre.{$fokus}.value += '4';pos_ordre.{$fokus}.focus();\"></TD>\n";
print "<TD><INPUT TYPE=\"button\" {$stil} NAME=\"five\" VALUE=\"5\" OnCLick=\"pos_ordre.{$fokus}.value += '5';pos_ordre.{$fokus}.focus();\"></TD>\n";
print "<TD><INPUT TYPE=\"button\" {$stil} NAME=\"six\" VALUE=\"6\" OnClick=\"pos_ordre.{$fokus}.value += '6';pos_ordre.{$fokus}.focus();\"></TD>\n";
print "<TD><INPUT TYPE=\"button\" {$stil} NAME=\"minus\" VALUE=\"-\" OnClick=\"pos_ordre.{$fokus}.value += '-';pos_ordre.{$fokus}.focus();\"></TD>\n";
print "<TD></TD></TR><TR><TD></TD>\n";
print "<TD><INPUT TYPE=\"button\" {$stil} NAME=\"seven\" VALUE=\"7\" OnClick=\"pos_ordre.{$fokus}.value += '7';pos_ordre.{$fokus}.focus();\"></TD>\n";
print "<TD><INPUT TYPE=\"button\" {$stil} NAME=\"eight\" VALUE=\"8\" OnCLick=\"pos_ordre.{$fokus}.value += '8';pos_ordre.{$fokus}.focus();\"></TD>\n";
print "<TD><INPUT TYPE=\"button\" {$stil} NAME=\"nine\" VALUE=\"9\" OnClick=\"pos_ordre.{$fokus}.value += '9';pos_ordre.{$fokus}.focus();\"></TD>\n";
print "<TD><INPUT TYPE=\"button\" {$stil} NAME=\"times\" VALUE=\"x\" OnClick=\"pos_ordre.{$fokus}.value += '*'\"></TD>\n";
print "<TD></TD></TR><TR><TD></TD>\n";
print "<TD><INPUT TYPE=\"button\" {$stil} NAME=\"zero\" VALUE=\",\" OnClick=\"pos_ordre.{$fokus}.value += ',';pos_ordre.{$fokus}.focus();\"></TD>\n";
print "<TD><INPUT TYPE=\"button\" {$stil} NAME=\"zero\" VALUE=\"0\" OnClick=\"pos_ordre.{$fokus}.value += '0';pos_ordre.{$fokus}.focus();\"></TD>\n";
print "<TD><INPUT TYPE=\"button\" {$stil} NAME=\"DoIt\" VALUE=\"=\" OnClick=\"pos_ordre.{$fokus}.value = eval(pos_ordre.{$fokus}.value);pos_ordre.{$fokus}.focus();\"></TD>\n";
print "<TD><INPUT TYPE=\"button\" {$stil} NAME=\"div\" VALUE=\"/\" OnClick=\"pos_ordre.{$fokus}.value += '/';pos_ordre.{$fokus}.focus();\"></TD>\n";
print "<TD></TD></TR><TR><TD></TD>\n";
print "<TD><INPUT TYPE=\"button\" {$stil} NAME=\"clear\" VALUE=\"Ryd\" OnClick=\"pos_ordre.{$fokus}.value = '';pos_ordre.{$fokus}.focus();\"></TD>\n";
if ($id) {
print "<TD><INPUT TYPE=\"submit\" {$stil} NAME=\"afslut\"VALUE=\"Afslut\" OnClick=\"pos_ordre.{$fokus}.value += 'a';pos_ordre.{$fokus}.focus();\"></TD>\n";
print "<TD onclick=\"return confirm('Slet alt og start forfra')\"><INPUT TYPE=\"submit\" {$stil} NAME=\"forfra\"VALUE=\"Forfra\" OnClick=\"pos_ordre.{$fokus}.value += 'f';pos_ordre.{$fokus}.focus();\"></TD>\n";
} else {
print "<TD COLSPAN=\"2\"></TD>\n";
}
if ($fokus == 'modtaget' || $fokus == 'modtaget2') {
print "<TD onclick=\"return confirm('Tilbage til varescanning')\"><INPUT TYPE=\"submit\" {$stil} NAME=\"tilbage\"VALUE=\"Tilbage\" OnClick=\"pos_ordre.{$fokus}.value += 't';pos_ordre.{$fokus}.focus();\"></TD>\n";
print "<TD></TD></TR><TR>\n";
print "<TD COLSPAN=\"3\"></TD>\n";
}
print "<TR><TD COLSPAN=\"6\"><HR></TD></tr>\n";
print "<TR><TD></TD>\n";
if ($fokus == 'varenr_ny') {
print "<TD COLSPAN=\"2\"><INPUT TYPE=\"submit\" {$stil2} NAME=\"varer\"VALUE=\"Varer\" OnClick=\"pos_ordre.{$fokus}.value += 'v';pos_ordre.{$fokus}.focus();\"></TD>\n";
} elseif ($fokus == 'antal_ny' || $fokus == 'pris_ny') {
#20130310 Tilføjet: || $fokus=='pris_ny'
if ($fokus == 'antal_ny') {
print "<TD COLSPAN=\"1\"><INPUT TYPE=\"submit\" {$stil} NAME=\"pris\"VALUE=\"Pris\" OnClick=\"pos_ordre.{$fokus}.value += 'p';pos_ordre.{$fokus}.focus();\"></TD>\n";
} else {
print "<TD COLSPAN=\"1\"></TD>\n";
}
print "<TD COLSPAN=\"1\"><INPUT TYPE=\"submit\" {$stil} NAME=\"rabat\"VALUE=\"Rabat\" OnClick=\"pos_ordre.{$fokus}.value += 'r';pos_ordre.{$fokus}.focus();\"></TD>\n";
} elseif ($fokus == 'modtaget' && $modtaget >= $sum && !$indbetaling && $betalingsbet) {
print "<TR><TD></TD><TD COLSPAN=\"2\"><INPUT TYPE=\"submit\" {$stil2} NAME=\"betaling\" VALUE=\"Konto\" OnClick=\"pos_ordre.{$fokus}.value += 'k';pos_ordre.{$fokus}.focus();\"></TD>\n";
} elseif ($fokus == 'modtaget2' && $modtaget + $modtaget2 >= $sum && !$indbetaling && $betalingsbet) {
print "<TR><TD></TD><TD COLSPAN=\"2\"><INPUT TYPE=\"submit\" {$stil2} NAME=\"betaling2\" VALUE=\"Konto\" OnClick=\"pos_ordre.{$fokus}.value += 'k';pos_ordre.{$fokus}.focus();\"></TD>\n";
} elseif ($indbetaling && $modtaget >= $indbetaling) {
print "<TR><TD></TD><TD COLSPAN=\"2\"><INPUT TYPE=\"submit\" {$stil2} NAME=\"betaling\" VALUE=\"Kontant\" OnClick=\"pos_ordre.{$fokus}.value += 'c';pos_ordre.{$fokus}.focus();\"></TD>\n";
} else {
print "<TD colspan=2></TD>\n";
}
print "<TD colspan=2><INPUT TYPE=\"submit\" {$stil2} NAME=\"OK\" VALUE=\"Enter\"></TD></tr>\n";
if ($vis_hurtigknap && $fokus == 'antal_ny') {
print "<TR><TD></TD><TD COLSPAN=\"2\"><INPUT TYPE=\"submit\" {$stil2} NAME=\"betaling\" VALUE=\"Kontant på beløb\" OnClick=\"pos_ordre.{$fokus}.value += 'c';pos_ordre.{$fokus}.focus();\"></TD>\n";
}
if ($vis_kontoopslag && !$varenr_ny && !$indbetaling) {
print "<TR><TD></TD><TD COLSPAN=\"2\"><INPUT TYPE=\"submit\" {$stil2} NAME=\"kontoopslag\" VALUE=\"Kontoopslag\"></TD>\n";
if ($vis_saet && $fokus == 'modtaget') {
print "<TD COLSPAN=\"2\" onclick=\"return confirm('Gem ordre som tilbud?')\"><INPUT TYPE=\"submit\" {$stil2} NAME=\"gem\" VALUE=\"Gem som tilbud\"></TD>\n";
}
}
print "</tr>\n";
if (($fokus == 'modtaget' || $fokus == 'modtaget2') && !$betalingsbet || $indbetaling && $modtaget >= $indbetaling && $kontonr) {
if ($div_kort_kto) {
#20140129
$fokus == 'modtaget2' ? $tmp = "betaling2" : ($tmp = "betaling");
print "<TR><TD></TD><TD COLSPAN=\"2\"><INPUT TYPE=\"submit\" {$stil2} NAME={$tmp} VALUE=\"Betalingskort\" OnClick=\"pos_ordre.{$fokus}.value += 'd';pos_ordre.{$fokus}.focus();\"></TD></tr>\n";
} else {
for ($x = 0; $x < $kortantal; $x++) {
$fokus == 'modtaget2' ? $tmp = "betaling2" : ($tmp = "betaling");
print "<TR><TD></TD><TD COLSPAN=\"2\"><INPUT TYPE=\"submit\" {$stil2} NAME={$tmp} VALUE=\"{$korttyper[$x]}\" OnClick=\"pos_ordre.{$fokus}.value += 'd';pos_ordre.{$fokus}.focus();\"></TD></tr>\n";
}
}
if (!$indbetaling) {
if ($fokus == 'modtaget2') {
$tmp = "betaling2";
} else {
$tmp = "betaling";
}
print "<TR><TD></TD><TD COLSPAN=\"2\"><INPUT TYPE=\"submit\" {$stil2} NAME={$tmp} VALUE=\"Kontant\" OnClick=\"pos_ordre.{$fokus}.value += 'c';pos_ordre.{$fokus}.focus();\"></TD>\n";
# if ($vis_saet) print "<TD COLSPAN=\"2\" onclick=\"return confirm('Gem ordre som tilbud?')\"><INPUT TYPE=\"submit\" $stil2 NAME=\"gem\" VALUE=\"Gem som tilbud\"></TD>\n";
print "</TR>";
}
# print "<TR><TD COLSPAN=\"2\"><INPUT TYPE=\"submit\" $stil2 NAME=\"betaling\" VALUE=\"Konto\" OnClick=\"pos_ordre.$fokus.value += 'k';pos_ordre.$fokus.focus();\"></TD></tr>\n";
} elseif ($id && $kontonr && !$varelinjer && !$indbetaling) {
if ($vis_indbetaling) {
print "<TR><TD></TD><TD COLSPAN=\"2\"><INPUT TYPE=\"submit\" {$stil2} NAME=\"indbetaling\" VALUE=\"Indbetaling\" OnClick=\"pos_ordre.{$fokus}.value += 'i';pos_ordre.{$fokus}.focus();\"></TD>\n";
}
}
} else {
# print "<input type=\"hidden\" name=\"bon\" value = \"\">\n";
# $stil2="STYLE=\"width: 9.5em;height: 2em;font-size:150%;\"";
print "<TR><TD COLSPAN=\"6\"><br></TD></TR>\n";
print "<TR><TD><br></TD>\n";
print "<TD COLSPAN=\"2\"><INPUT TYPE=\"submit\" {$stil2} NAME=\"udskriv\"VALUE=\"Udskriv\"></TD>\n";
print "<TD COLSPAN=\"2\"><INPUT TYPE=\"submit\" {$stil2} NAME=\"ny\"VALUE=\"Ny kunde\"></TD></TR>\n";
print "<TD COLSPAN=\"6\"><br></TD></TR>\n";
print "<TD COLSPAN=\"6\"><br></TD></TR>\n";
print "<TR><TD><br></TD>";
if ($id && $vis_saet) {
print "<TD COLSPAN=\"2\" align=\"center\"><a style=\"text-decoration: none\" href=udskriftsvalg.php?id={$id}&valg=1&formular=3><INPUT TYPE=\"button\" {$stil2} VALUE=\"Følgeseddel\"></a></TD>\n";
} else {
print "<TD><br></TD>";
}
print "<TD COLSPAN=\"2\" align=\"center\"><INPUT TYPE=\"submit\" {$stil2} NAME=\"krediter\"VALUE=\"Korrektion\"></TD>\n";
# print "<TD COLSPAN=\"2\"><INPUT TYPE=\"submit\" $stil2 NAME=\"ny\"VALUE=\"Ny kunde\"></TD>\n";
if ($timeout && !$bon) {
print "<meta http-equiv=\"refresh\" content=\"{$timeout};URL=pos_ordre.php?id=0\">\n";
}
}
print "</tr>\n";
# print "</TBODY></TABLE></TD></tr>\n";
print "\n<!-- Function tastatur (s**t)-->\n";
}
function momsrubrik($rubrik_konto, $rubrik_navn, $regnaar, $regnstart, $regnslut)
{
print "<tr><td>" . $rubrik_konto . "</td><td colspan='3'>" . $rubrik_navn . "</td>";
if ($rubrik_konto) {
$q = db_select("select * from kontoplan where regnskabsaar='{$regnaar}' and kontonr={$rubrik_konto}", __FILE__ . " linje " . __LINE__);
$r = db_fetch_array($q);
# $kontobeskrivelse[$x]=$r['beskrivelse'];
$rubriksum = 0;
$q = db_select("select * from transaktioner where transdate>='{$regnstart}' and transdate<='{$regnslut}' and kontonr={$rubrik_konto}", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$rubriksum += afrund($r['debet'], 2) - afrund($r['kredit'], 2);
}
print "<td align='right'>" . dkdecimal($rubriksum) . "</td>";
} else {
print "<td align='right'><span title='Intet beløb i den angivne periode.'>-</span></td>";
}
print "<td> </td></tr>\n";
return;
}
function opdat_3_4($under_nr, $lap_nr)
{
$title = "opdat";
global $version;
global $db;
global $db_id;
global $regnskab;
global $regnaar;
global $db_type;
$s_id = session_id();
$nextver = '3.4.1';
if ($lap_nr < "1") {
include "../includes/connect.php";
$r = db_fetch_array(db_select("select * from regnskab where id='1'", __FILE__ . " linje " . __LINE__));
$tmp = $r['version'];
if ($tmp < $nextver) {
echo "opdaterer hovedregnskab til ver {$nextver}<br />";
db_modify("UPDATE regnskab set version = '{$nextver}' where id = '1'", __FILE__ . " linje " . __LINE__);
}
include "../includes/online.php";
if ($db != $sqdb) {
transaktion('begin');
db_modify("ALTER TABLE ansatte ADD password text", __FILE__ . " linje " . __LINE__);
db_modify("ALTER TABLE ansatte ADD overtid numeric(1,0)", __FILE__ . " linje " . __LINE__);
db_modify("UPDATE grupper set box1 = '{$nextver}' where art = 'VE'", __FILE__ . " linje " . __LINE__);
transaktion('commit');
}
include "../includes/connect.php";
db_modify("UPDATE regnskab set version = '{$nextver}' where db = '{$db}'", __FILE__ . " linje " . __LINE__);
}
$nextver = '3.4.2';
if ($lap_nr < "2") {
include "../includes/connect.php";
$r = db_fetch_array(db_select("select * from regnskab where id='1'", __FILE__ . " linje " . __LINE__));
$tmp = $r['version'];
if ($tmp < $nextver) {
echo "opdaterer hovedregnskab til ver {$nextver}<br />";
db_modify("UPDATE regnskab set version = '{$nextver}' where id = '1'", __FILE__ . " linje " . __LINE__);
}
include "../includes/online.php";
if ($db != $sqdb) {
transaktion('begin');
$q = db_select("select * from ansatte", __FILE__ . " linje " . __LINE__);
while ($i < db_num_fields($q)) {
$feltnavne[$i] = db_field_name($q, $i);
$i++;
}
if (!in_array('gruppe', $feltnavne)) {
db_modify("ALTER TABLE ansatte ADD gruppe numeric(15,0)", __FILE__ . " linje " . __LINE__);
db_modify("update ansatte set gruppe = '0'", __FILE__ . " linje " . __LINE__);
}
$q = db_select("select * from varer", __FILE__ . " linje " . __LINE__);
while ($i < db_num_fields($q)) {
$feltnavne[$i] = db_field_name($q, $i);
$i++;
}
if (!in_array('indhold', $feltnavne)) {
db_modify("ALTER TABLE varer ADD indhold numeric(15,3)", __FILE__ . " linje " . __LINE__);
}
db_modify("UPDATE grupper set box1 = '{$nextver}' where art = 'VE'", __FILE__ . " linje " . __LINE__);
transaktion('commit');
}
include "../includes/connect.php";
db_modify("UPDATE regnskab set version = '{$nextver}' where db = '{$db}'", __FILE__ . " linje " . __LINE__);
}
$nextver = '3.4.3';
if ($lap_nr < "3") {
include "../includes/connect.php";
$r = db_fetch_array(db_select("select * from regnskab where id='1'", __FILE__ . " linje " . __LINE__));
$tmp = $r['version'];
if ($tmp < $nextver) {
$q = db_select("select * from regnskab", __FILE__ . " linje " . __LINE__);
while ($i < db_num_fields($q)) {
$feltnavne[$i] = db_field_name($q, $i);
$i++;
}
if (!in_array('gruppe', $feltnavne)) {
db_modify("ALTER TABLE regnskab ADD bilag numeric(1,0)", __FILE__ . " linje " . __LINE__);
db_modify("UPDATE regnskab set bilag='0'", __FILE__ . " linje " . __LINE__);
}
echo "opdaterer hovedregnskab til ver {$nextver}<br />";
db_modify("UPDATE regnskab set version='{$nextver}' where id = '1'", __FILE__ . " linje " . __LINE__);
}
include "../includes/online.php";
if ($db != $sqdb) {
db_modify("UPDATE grupper set beskrivelse='Bilag og dokumenter',art='bilag' where art = 'FTP'", __FILE__ . " linje " . __LINE__);
$r = db_fetch_array(db_select("select box6 from grupper where art='bilag'", __FILE__ . " linje " . __LINE__));
if ($r['box6']) {
$bilag = 1;
} else {
$bilag = 0;
}
db_modify("UPDATE grupper set box1='{$nextver}' where art = 'VE'", __FILE__ . " linje " . __LINE__);
} else {
$bilag = 0;
}
include "../includes/connect.php";
db_modify("UPDATE regnskab set version='{$nextver}',bilag='{$bilag}' where db='{$db}'", __FILE__ . " linje " . __LINE__);
}
$nextver = '3.4.4';
if ($lap_nr < "4") {
include "../includes/connect.php";
$r = db_fetch_array(db_select("select * from regnskab where id='1'", __FILE__ . " linje " . __LINE__));
$tmp = $r['version'];
if ($tmp < $nextver) {
db_modify("UPDATE regnskab set version='{$nextver}' where id = '1'", __FILE__ . " linje " . __LINE__);
}
include "../includes/online.php";
if ($db != $sqdb) {
$q = db_select("select * from ordrelinjer", __FILE__ . " linje " . __LINE__);
while ($i < db_num_fields($q)) {
$feltnavne[$i] = db_field_name($q, $i);
$i++;
}
if (!in_array('omvbet', $feltnavne)) {
db_modify("ALTER TABLE ordrer ADD omvbet varchar(2)", __FILE__ . " linje " . __LINE__);
db_modify("UPDATE ordrer set omvbet=''", __FILE__ . " linje " . __LINE__);
db_modify("ALTER TABLE ordrelinjer ADD omvbet varchar(2)", __FILE__ . " linje " . __LINE__);
db_modify("UPDATE ordrelinjer set omvbet=''", __FILE__ . " linje " . __LINE__);
db_modify("UPDATE grupper set box1='{$nextver}' where art = 'VE'", __FILE__ . " linje " . __LINE__);
}
}
include "../includes/connect.php";
db_modify("UPDATE regnskab set version='{$nextver}' where db='{$db}'", __FILE__ . " linje " . __LINE__);
}
$nextver = '3.4.5';
if ($lap_nr < "5") {
include "../includes/connect.php";
$r = db_fetch_array(db_select("select * from regnskab where id='1'", __FILE__ . " linje " . __LINE__));
$tmp = $r['version'];
if ($tmp < $nextver) {
db_modify("UPDATE regnskab set version='{$nextver}' where id = '1'", __FILE__ . " linje " . __LINE__);
}
include "../includes/online.php";
if ($db != $sqdb) {
$r = db_fetch_array(db_select("select email from adresser where art = 'S'", __FILE__ . " linje " . __LINE__));
$email = $r['email'];
include "../includes/ordrefunc.php";
include "../includes/std_func.php";
$q = db_select("select ordrelinjer.id ,ordrelinjer.vare_id, ordrelinjer.kostpris, ordrer.valutakurs from ordrelinjer,ordrer where ordrelinjer.ordre_id=ordrer.id and ordrer.status>='3' and ordrer.art = 'DO' and ordrer.fakturadate >= '2014-01-01' and ordrelinjer.vare_id != '0'", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
list($koordpr, $koordnr, $koordant, $koordid, $koordart) = explode(chr(9), find_kostpris($r['vare_id'], $r['id']));
$kobs_ordre_pris = explode(",", $koordpr);
$ko_ant = count($kobs_ordre_pris);
$kostpris = 0;
for ($y = 0; $y < $ko_ant; $y++) {
if ($r['valutakurs'] && $r['valutakurs'] != 100) {
$kobs_ordre_pris[$y] *= 100 / $r['valutakurs'];
}
$kostpris += $kobs_ordre_pris[$y];
}
$kostpris /= $ko_ant;
$kostpris = afrund($kostpris, 3);
if ($kostpris != $r['kostpris']) {
db_modify("update ordrelinjer set kostpris='{$kostpris}' where id = '{$r['id']}'", __FILE__ . " linje " . __LINE__);
}
}
db_modify("UPDATE grupper set box1='{$nextver}' where art = 'VE'", __FILE__ . " linje " . __LINE__);
}
include "../includes/connect.php";
db_modify("UPDATE regnskab set version='{$nextver}',email='{$email}' where db='{$db}'", __FILE__ . " linje " . __LINE__);
}
$nextver = '3.4.6';
if ($lap_nr < "6") {
include "../includes/connect.php";
$r = db_fetch_array(db_select("select * from regnskab where id='1'", __FILE__ . " linje " . __LINE__));
$tmp = $r['version'];
if ($tmp < $nextver) {
db_modify("UPDATE regnskab set version='{$nextver}' where id = '1'", __FILE__ . " linje " . __LINE__);
}
include "../includes/online.php";
if ($db != $sqdb) {
transaktion('begin');
if ($db_type == "mysql") {
db_modify("CREATE TABLE IF NOT EXISTS pos_betalinger (id serial NOT NULL,ordre_id integer,betalingstype text,amount numeric(15,3),PRIMARY KEY (id))", __FILE__ . " linje " . __LINE__);
} else {
if (!db_fetch_array(db_select("select * from pg_tables where tablename='pos_betalinger'", __FILE__ . " linje " . __LINE__))) {
db_modify("CREATE TABLE pos_betalinger (id serial NOT NULL,ordre_id integer,betalingstype text,amount numeric(15,3),PRIMARY KEY (id))", __FILE__ . " linje " . __LINE__);
}
}
$q = db_select("select id,felt_1,felt_2,felt_3,felt_4 from ordrer where art='PO' and status>='3'", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
if (is_numeric($r['felt_2']) && $r['felt_2']) {
db_modify("insert into pos_betalinger(ordre_id,betalingstype,amount) values ('{$r['id']}','{$r['felt_1']}','{$r['felt_2']}')", __FILE__ . " linje " . __LINE__);
}
if (is_numeric($r['felt_4']) && $r['felt_4']) {
db_modify("insert into pos_betalinger(ordre_id,betalingstype,amount) values ('{$r['id']}','{$r['felt_3']}','{$r['felt_4']}')", __FILE__ . " linje " . __LINE__);
}
}
db_modify("UPDATE grupper set box1='{$nextver}' where art = 'VE'", __FILE__ . " linje " . __LINE__);
transaktion('commit');
}
include "../includes/connect.php";
db_modify("UPDATE regnskab set version='{$nextver}' where db='{$db}'", __FILE__ . " linje " . __LINE__);
}
$nextver = '3.4.7';
if ($lap_nr < "7") {
include "../includes/connect.php";
$r = db_fetch_array(db_select("select * from regnskab where id='1'", __FILE__ . " linje " . __LINE__));
$tmp = $r['version'];
if ($tmp < $nextver) {
db_modify("UPDATE regnskab set version='{$nextver}' where id = '1'", __FILE__ . " linje " . __LINE__);
}
include "../includes/online.php";
if ($db != $sqdb) {
db_modify("CREATE INDEX batch_kob_kobsdate_idx ON batch_kob (kobsdate)", __FILE__ . " linje " . __LINE__);
db_modify("CREATE INDEX batch_kob_antal_idx ON batch_kob (antal)", __FILE__ . " linje " . __LINE__);
db_modify("CREATE INDEX batch_kob_vare_id_idx ON batch_kob (vare_id)", __FILE__ . " linje " . __LINE__);
db_modify("CREATE INDEX batch_salg_salgsdate_idx ON batch_salg (salgsdate)", __FILE__ . " linje " . __LINE__);
db_modify("CREATE INDEX batch_salg_antal_idx ON batch_salg (antal)", __FILE__ . " linje " . __LINE__);
db_modify("CREATE INDEX batch_salg_vare_id_idx ON batch_salg (vare_id)", __FILE__ . " linje " . __LINE__);
db_modify("CREATE INDEX transaktioner_transdate_idx ON transaktioner (transdate)", __FILE__ . " linje " . __LINE__);
db_modify("CREATE INDEX transaktioner_kontonr_idx ON transaktioner (kontonr)", __FILE__ . " linje " . __LINE__);
transaktion('begin');
if ($db_type == "mysql") {
db_modify("CREATE TABLE IF NOT EXISTS mappe (id serial NOT NULL,beskrivelse text,sort numeric(15,0),PRIMARY KEY (id))", __FILE__ . " linje " . __LINE__);
db_modify("CREATE TABLE IF NOT EXISTS mappebilag (id serial NOT NULL,navn text,beskrivelse text,datotid text,hvem text,assign_to text,assign_id int4,filtype text,sort numeric(15,0),PRIMARY KEY (id))", __FILE__ . " linje " . __LINE__);
} else {
if (!db_fetch_array(db_select("select * from pg_tables where tablename='mappe'", __FILE__ . " linje " . __LINE__))) {
db_modify("CREATE TABLE mappe (id serial NOT NULL,beskrivelse text,sort numeric(15,0),PRIMARY KEY (id))", __FILE__ . " linje " . __LINE__);
}
if (!db_fetch_array(db_select("select * from pg_tables where tablename='mappebilag'", __FILE__ . " linje " . __LINE__))) {
db_modify("CREATE TABLE mappebilag (id serial NOT NULL,navn text,beskrivelse text,datotid text,hvem text,assign_to text,assign_id int4,filtype text,sort numeric(15,0),PRIMARY KEY (id))", __FILE__ . " linje " . __LINE__);
}
}
db_modify("UPDATE grupper set box1='{$nextver}' where art = 'VE'", __FILE__ . " linje " . __LINE__);
transaktion('commit');
}
include "../includes/connect.php";
db_modify("UPDATE regnskab set version='{$nextver}' where db='{$db}'", __FILE__ . " linje " . __LINE__);
}
$nextver = '3.4.8';
if ($lap_nr < "8") {
include "../includes/connect.php";
$r = db_fetch_array(db_select("select * from regnskab where id='1'", __FILE__ . " linje " . __LINE__));
$tmp = $r['version'];
if ($tmp < $nextver) {
db_modify("UPDATE regnskab set version='{$nextver}' where id = '1'", __FILE__ . " linje " . __LINE__);
}
include "../includes/online.php";
if ($db != $sqdb) {
transaktion('begin');
db_modify("ALTER TABLE batch_salg ADD lager integer", __FILE__ . " linje " . __LINE__);
db_modify("ALTER TABLE lagerstatus ADD lok1 text", __FILE__ . " linje " . __LINE__);
db_modify("ALTER TABLE lagerstatus ADD lok2 text", __FILE__ . " linje " . __LINE__);
db_modify("ALTER TABLE lagerstatus ADD lok3 text", __FILE__ . " linje " . __LINE__);
db_modify("ALTER TABLE lagerstatus ADD lok4 text", __FILE__ . " linje " . __LINE__);
db_modify("ALTER TABLE lagerstatus ADD lok5 text", __FILE__ . " linje " . __LINE__);
db_modify("UPDATE grupper set box1='{$nextver}' where art = 'VE'", __FILE__ . " linje " . __LINE__);
transaktion('commit');
}
include "../includes/connect.php";
db_modify("UPDATE regnskab set version='{$nextver}' where db='{$db}'", __FILE__ . " linje " . __LINE__);
}
$nextver = '3.4.9';
if ($lap_nr < "9") {
include "../includes/connect.php";
$r = db_fetch_array(db_select("select * from regnskab where id='1'", __FILE__ . " linje " . __LINE__));
$tmp = $r['version'];
if ($tmp < $nextver) {
db_modify("UPDATE regnskab set version='{$nextver}' where id = '1'", __FILE__ . " linje " . __LINE__);
}
include "../includes/online.php";
if ($db != $sqdb) {
transaktion('begin');
db_modify("ALTER TABLE ordrelinjer ADD saet integer", __FILE__ . " linje " . __LINE__);
db_modify("UPDATE grupper set box1='{$nextver}' where art = 'VE'", __FILE__ . " linje " . __LINE__);
transaktion('commit');
}
include "../includes/connect.php";
db_modify("UPDATE regnskab set version='{$nextver}' where db='{$db}'", __FILE__ . " linje " . __LINE__);
}
$nextver = '3.5.0';
include "../includes/connect.php";
$r = db_fetch_array(db_select("select * from regnskab where id='1'", __FILE__ . " linje " . __LINE__));
$tmp = $r['version'];
if ($tmp < $nextver) {
db_modify("UPDATE regnskab set version='{$nextver}' where id = '1'", __FILE__ . " linje " . __LINE__);
}
include "../includes/online.php";
if ($db != $sqdb) {
transaktion('begin');
if ($db_type == "mysql") {
db_modify("CREATE TABLE IF NOT EXISTS ansatmappe (id serial NOT NULL,beskrivelse text,ans_id int4,sort numeric(15,0),PRIMARY KEY (id))", __FILE__ . " linje " . __LINE__);
db_modify("CREATE TABLE IF NOT EXISTS ansatmappebilag (id serial NOT NULL,navn text,beskrivelse text,datotid text,hvem text,assign_to text,assign_id int4,filtype text,sort numeric(15,0),PRIMARY KEY (id))", __FILE__ . " linje " . __LINE__);
db_modify("CREATE TABLE IF NOT EXISTS kostpriser (id serial NOT NULL,vare_id integer,transdate date,kostpris numeric(15,3),PRIMARY KEY (id))", __FILE__ . " linje " . __LINE__);
} else {
if (!db_fetch_array(db_select("select * from pg_tables where tablename='ansatmappe'", __FILE__ . " linje " . __LINE__))) {
db_modify("CREATE TABLE ansatmappe (id serial NOT NULL,beskrivelse text,ans_id int4,sort numeric(15,0),PRIMARY KEY (id))", __FILE__ . " linje " . __LINE__);
}
if (!db_fetch_array(db_select("select * from pg_tables where tablename='ansatmappebilag'", __FILE__ . " linje " . __LINE__))) {
db_modify("CREATE TABLE ansatmappebilag (id serial NOT NULL,navn text,beskrivelse text,datotid text,hvem text,assign_to text,assign_id int4,filtype text,sort numeric(15,0),PRIMARY KEY (id))", __FILE__ . " linje " . __LINE__);
}
if (!db_fetch_array(db_select("select * from pg_tables where tablename='kostpriser'", __FILE__ . " linje " . __LINE__))) {
db_modify("CREATE TABLE kostpriser (id serial NOT NULL,vare_id integer,transdate date,kostpris numeric(15,3),PRIMARY KEY (id))", __FILE__ . " linje " . __LINE__);
}
}
db_modify("update batch_kob set kobsdate = fakturadate where kobsdate is NULL and fakturadate > '2014-01-01'", __FILE__ . " linje " . __LINE__);
$q = db_select("select linje_id from batch_salg,ordrelinjer where ordrelinjer.antal < 0 and batch_salg.antal > 0 and batch_salg.linje_id = ordrelinjer.id", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
db_modify("update batch_salg set antal=antal*-1 where linje_id='{$r['linje_id']}'", __FILE__ . " linje " . __LINE__);
}
$lgrp = array();
$x = 0;
$q = db_select("select kodenr from grupper where art='VG' and box8='on'", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$lgrp[$x] = $r['kodenr'] * 1;
$x++;
}
$x = 0;
$kostpris = array();
db_modify("delete from kostpriser", __FILE__ . " linje " . __LINE__);
$q = db_select("select id,kostpris,gruppe from varer where lukket != 'on' order by id", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
if (in_array($r['gruppe'], $lgrp)) {
$kostpris = $r['kostpris'] * 1;
db_modify("insert into kostpriser(vare_id,kostpris,transdate)values('{$r['id']}','{$kostpris}','2015-01-01')", __FILE__ . " linje " . __LINE__);
}
}
db_modify("UPDATE grupper set box1='{$nextver}' where art = 'VE'", __FILE__ . " linje " . __LINE__);
transaktion('commit');
}
include "../includes/connect.php";
db_modify("UPDATE regnskab set version='{$nextver}' where db='{$db}'", __FILE__ . " linje " . __LINE__);
}
function genberegn($regnskabsaar)
{
$query = db_select("select * from grupper where kodenr='{$regnskabsaar}' and art='RA'", __FILE__ . " linje " . __LINE__);
$row = db_fetch_array($query);
$startmaaned = $row['box1'] * 1;
$startaar = $row['box2'] * 1;
$slutmaaned = $row['box3'] * 1;
$slutaar = $row['box4'] * 1;
$slutdato = 31;
global $db_id;
global $s_id;
while (!checkdate($slutmaaned, $slutdato, $slutaar)) {
#echo "$slutdato, $slutmaaned, $slutaar ";
$slutdato = $slutdato - 1;
if ($slutdato < 28) {
break 1;
}
}
#echo "slutdato $slutdato<br>";
$regnstart = $startaar . "-" . $startmaaned . "-" . '01';
$regnslut = $slutaar . "-" . $slutmaaned . "-" . $slutdato;
db_modify("update kontoplan set primo=0 where kontotype!= 'S'", __FILE__ . " linje " . __LINE__);
db_modify("update kontoplan set saldo=0 where regnskabsaar='{$regnskabsaar}'", __FILE__ . " linje " . __LINE__);
$q1 = db_select("select * from kontoplan where regnskabsaar='{$regnskabsaar}' and (kontotype='D' or kontotype='S') order by kontonr", __FILE__ . " linje " . __LINE__);
while ($r1 = db_fetch_array($q1)) {
$primo = $r1['primo'] * 1;
$lukket = $r1['lukket'];
$saldo = 0;
$q2 = db_select("select debet, kredit from transaktioner where transdate>='{$regnstart}' and transdate<='{$regnslut}' and kontonr='{$r1['kontonr']}'", __FILE__ . " linje " . __LINE__);
while ($r2 = db_fetch_array($q2)) {
$saldo = $saldo + round($r2['debet'] + 0.0001, 2) - round($r2['kredit'] + 0.0001, 2);
}
db_modify("update kontoplan set saldo={$primo}+{$saldo},lukket='{$lukket}' where id='{$r1['id']}'", __FILE__ . " linje " . __LINE__);
}
$r = db_fetch_array(db_select("select count(id) as transantal from transaktioner where transdate>='{$regnstart}' and transdate<='{$regnslut}'", __FILE__ . " linje " . __LINE__));
db_modify("update grupper set box6 = '{$r['transantal']}' where art = 'RA' and kodenr = '{$regnskabsaar}'", __FILE__ . " linje " . __LINE__);
$x = 0;
$saldo = array();
$q1 = db_select("select * from kontoplan where regnskabsaar='{$regnskabsaar}' and kontotype!='H' order by kontonr", __FILE__ . " linje " . __LINE__);
while ($r1 = db_fetch_array($q1)) {
$x++;
$konto_id[$x] = $r1['id'];
$kontonr[$x] = $r1['kontonr'];
$saldo[$x] = afrund($r1['saldo'], 2);
$kontotype[$x] = $r1['kontotype'];
if ($kontotype[$x] == 'Z' || $kontotype[$x] == 'R') {
$saldo[$x] = 0;
$fra_kto[$x] = $r1['fra_kto'];
for ($z = 1; $z <= $x; $z++) {
if ($kontotype[$x] == 'R') {
if ($kontonr[$z] == $r1['fra_kto']) {
if ($r2 = db_fetch_array(db_select("select saldo from kontoplan where regnskabsaar='{$regnskabsaar}' and kontotype='Z' and kontonr='{$r1['fra_kto']}'", __FILE__ . " linje " . __LINE__))) {
$saldo[$x] = $r2['saldo'];
}
}
} else {
if ($kontonr[$z] >= $fra_kto[$x] && $kontonr[$z] <= $kontonr[$x] && $kontotype[$z] != 'H' && $kontotype[$z] != 'Z') {
$saldo[$x] = $saldo[$x] + $saldo[$z];
}
}
}
db_modify("update kontoplan set saldo='{$saldo[$x]}' where id='{$konto_id[$x]}'", __FILE__ . " linje " . __LINE__);
}
}
$y = date('Y') - 1;
$m = date('m');
$d = date('d');
while (!checkdate($m, $d, $y)) {
#Skudår !
$d = $d - 1;
if ($d < 28) {
break 1;
}
}
$tmp = $y . "-" . $m . "-" . $d;
$r = db_fetch_array(db_select("select count(id) as transantal from transaktioner where transdate>='{$tmp}'", __FILE__ . " linje " . __LINE__));
$transantal = $r['transantal'] * 1;
$logdate = date("Y-m-d");
$logtime = date("H:i:s");
db_modify("update grupper set box7='{$logdate}',box8='{$logtime}' where art='RA' and kodenr='{$regnskabsaar}'", __FILE__ . " linje " . __LINE__);
include "../includes/connect.php";
db_modify("update regnskab set posteret='{$transantal}' where id='{$db_id}'", __FILE__ . " linje " . __LINE__);
include "../includes/online.php";
}
function oioubldoc_faktura($l_ordreid = "", $l_doktype = "faktura", $l_testdoc = "")
{
global $db_encode;
include "../includes/forfaldsdag.php";
if ($l_testdoc) {
$l_testdoc = "TEST";
}
if (!$l_ordreid) {
return "";
}
if (strtolower($l_doktype) == "faktura") {
# Faktura
$l_doctype = "Invoice";
$l2_doctype = "Invoiced";
$l_ptype = "PIE";
} else {
# Kreditnota
$l_doctype = "CreditNote";
$l2_doctype = "Credited";
$l_ptype = "PCM";
}
# $l_doctype = "Invoice"; # Ogsaa selvom det er en kreditnota
# $l_retur=oioubl_top($l_doctype, $l_ptype, $l_testdoc, $l_ordreid);
$query = db_select("select * from ordrer where id = {$l_ordreid}", __FILE__ . " linje " . __LINE__);
$r_faktura = db_fetch_array($query);
if ($db_encode != "UTF8") {
$firmanavn = utf8_encode($r_faktura['firmanavn']);
$addr_1 = utf8_encode($r_faktura['addr1']);
$addr_2 = utf8_encode($r_faktura['addr2']);
$postnr = utf8_encode($r_faktura['postnr']);
$bynavn = utf8_encode($r_faktura['bynavn']);
$land = utf8_encode($r_faktura['land']);
$kontakt = utf8_encode($r_faktura['kontakt']);
$bank_navn = utf8_encode($r_faktura['bank_navn']);
$kundeordnr = utf8_encode($r_faktura['kundeordnr']);
$cvrnr = utf8_encode($r_faktura['cvrnr']);
$tlf = utf8_encode($r_faktura['tlf']);
$email = utf8_encode($r_faktura['email']);
$kontonr = utf8_encode($r_faktura['kontonr']);
} else {
$firmanavn = $r_faktura['firmanavn'];
$addr_1 = $r_faktura['addr1'];
$addr_2 = $r_faktura['addr2'];
$postnr = $r_faktura['postnr'];
$bynavn = $r_faktura['bynavn'];
$land = $r_faktura['land'];
$kontakt = $r_faktura['kontakt'];
$bank_navn = $r_faktura['bank_navn'];
$kundeordnr = $r_faktura['kundeordnr'];
$cvrnr = $r_faktura['cvrnr'];
$tlf = $r_faktura['tlf'];
$email = $r_faktura['email'];
$kontonr = $r_faktura['kontonr'];
}
$firmanavn = htmlspecialchars($firmanavn, ENT_QUOTES);
$addr_1 = htmlspecialchars($addr_1, ENT_QUOTES);
$addr_2 = htmlspecialchars($addr_2, ENT_QUOTES);
$postnr = htmlspecialchars($postnr, ENT_QUOTES);
$bynavn = htmlspecialchars($bynavn, ENT_QUOTES);
$land = htmlspecialchars($land, ENT_QUOTES);
$kontakt = htmlspecialchars($kontakt, ENT_QUOTES);
$bank_navn = htmlspecialchars($bank_navn, ENT_QUOTES);
$kundeordnr = htmlspecialchars($kundeordnr, ENT_QUOTES);
$cvrnr = htmlspecialchars(str_replace(" ", "", $cvrnr), ENT_QUOTES);
$tlf = htmlspecialchars($tlf, ENT_QUOTES);
$email = htmlspecialchars($email, ENT_QUOTES);
if (!$kundeordnr) {
$kundeordnr = '0';
}
# phr 20090803
while (strlen($cvrnr) < 8) {
$cvrnr = "0" . $cvrnr;
}
$l_momsbeloeb = afrund(abs($r_faktura['moms']), 2);
$l_momssats = $r_faktura['momssats'] * 1;
$l_sumbeloeb = afrund(abs($r_faktura['sum']), 2);
$l_momspligtigt = 100 * $l_momsbeloeb / $l_momssats;
$l_momsfrit = $l_sumbeloeb - $l_momspligtigt;
if ($l_momsfrit < 0.02) {
#20150618
$l_momsfrit = 0;
$l_momspligtigt = $l_sumbeloeb;
}
$l_forfaldsdate = usdate(forfaldsdag($r_faktura['fakturadate'], $r_faktura['betalingsbet'], $r_faktura['betalingsdage']));
# $l_retur.="\t<com:ID>".$r_faktura['fakturanr']."</com:ID>\n";
# $l_retur.="\t<com:IssueDate>".$r_faktura['fakturadate']."</com:IssueDate>\n";
# $l_retur.="\t<com:TypeCode>".$l_ptype."</com:TypeCode>\n";
if ($r_faktura['valuta']) {
$l_valutakode = $r_faktura['valuta'];
$l_valutakurs = $r_faktura['valutakurs'];
} else {
$l_valutakode = "DKK";
}
if ($r_faktura['valutakurs']) {
$l_valutakurs = $r_faktura['valutakurs'];
} else {
$l_valutakurs = 100;
}
$query = db_select("select * from adresser where art='S'", __FILE__ . " linje " . __LINE__);
$r_egen = db_fetch_array($query);
if ($db_encode != "UTF8") {
$egen_firmanavn = utf8_encode($r_egen['firmanavn']);
$egen_addr_1 = utf8_encode($r_egen['addr1']);
$egen_addr_2 = utf8_encode($r_egen['addr2']);
$egen_postnr = utf8_encode($r_egen['postnr']);
$egen_bynavn = utf8_encode($r_egen['bynavn']);
$egen_land = utf8_encode($r_egen['land']);
$egen_kontakt = utf8_encode($r_egen['kontakt']);
$egen_bank_navn = utf8_encode($r_egen['bank_navn']);
$egen_tlf = utf8_encode($r_egen['tlf']);
} else {
$egen_firmanavn = $r_egen['firmanavn'];
$egen_addr_1 = $r_egen['addr1'];
$egen_addr_2 = $r_egen['addr2'];
$egen_postnr = $r_egen['postnr'];
$egen_bynavn = $r_egen['bynavn'];
$egen_land = $r_egen['land'];
$egen_kontakt = $r_egen['kontakt'];
$egen_bank_navn = $r_egen['bank_navn'];
$egen_tlf = $r_egen['tlf'];
}
$egen_firmanavn = htmlspecialchars($egen_firmanavn, ENT_QUOTES);
$egen_addr_1 = htmlspecialchars($egen_addr_1, ENT_QUOTES);
$egen_addr_2 = htmlspecialchars($egen_addr_2, ENT_QUOTES);
$egen_postnr = htmlspecialchars($egen_postnr, ENT_QUOTES);
$egen_bynavn = htmlspecialchars($egen_bynavn, ENT_QUOTES);
$egen_land = htmlspecialchars($egen_land, ENT_QUOTES);
$egen_kontakt = htmlspecialchars($egen_kontakt, ENT_QUOTES);
$egen_bank_navn = htmlspecialchars($egen_bank_navn, ENT_QUOTES);
$egen_tlf = htmlspecialchars($egen_tlf, ENT_QUOTES);
$egen_cvrnr = str_replace(" ", "", $r_egen['cvrnr']);
$l_retur .= "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n";
$l_retur .= "<" . $l_doctype . " xsi:schemaLocation=\"urn:oasis:names:specification:ubl:schema:xsd:" . $l_doctype . "-2 UBL-" . $l_doctype . "-2.0.xsd\" xmlns:xsi=\"http://www.w3.org/2001/XMLSchema-instance\" xmlns=\"urn:oasis:names:specification:ubl:schema:xsd:" . $l_doctype . "-2\" xmlns:cac=\"urn:oasis:names:specification:ubl:schema:xsd:CommonAggregateComponents-2\" xmlns:cbc=\"urn:oasis:names:specification:ubl:schema:xsd:CommonBasicComponents-2\" xmlns:ccts=\"urn:oasis:names:specification:ubl:schema:xsd:CoreComponentParameters-2\" xmlns:sdt=\"urn:oasis:names:specification:ubl:schema:xsd:SpecializedDatatypes-2\" xmlns:udt=\"urn:un:unece:uncefact:data:specification:UnqualifiedDataTypesSchemaModule:2\">\n";
$l_retur .= "<cbc:UBLVersionID>2.0</cbc:UBLVersionID>\n";
$l_retur .= "<cbc:CustomizationID>OIOUBL-2.01</cbc:CustomizationID>\n";
# $l_retur.="<cbc:ProfileID schemeAgencyID=\"320\" schemeID=\"urn:oioubl:id:profileid-1.1\">Procurement-BilSim-1.0</cbc:ProfileID>\n"; 20210725
$l_retur .= "<cbc:ProfileID schemeAgencyID=\"320\" schemeID=\"urn:oioubl:id:profileid-1.2\">urn:www.nesubl.eu:profiles:profile5:ver2.0</cbc:ProfileID>\n";
$l_retur .= "<cbc:ID>" . $r_faktura['fakturanr'] . "</cbc:ID>\n";
$l_retur .= "<cbc:CopyIndicator>false</cbc:CopyIndicator>\n";
$l_retur .= "<cbc:IssueDate>" . $r_faktura['fakturadate'] . "</cbc:IssueDate>\n";
#20160208
if ($l_doctype == "Invoice") {
$l_retur .= "<cbc:" . $l_doctype . "TypeCode listAgencyID=\"320\" listID=\"urn:oioubl:codelist:invoicetypecode-1.1\">380</cbc:" . $l_doctype . "TypeCode>\n";
}
# $l_retur.="<cbc:Note>".$l_doctype." note</cbc:Note>\n";
$l_retur .= "<cbc:DocumentCurrencyCode>{$l_valutakode}</cbc:DocumentCurrencyCode>\n";
$l_retur .= "<cbc:AccountingCost>{$kontonr}</cbc:AccountingCost>\n";
$l_retur .= "<cac:OrderReference>\n";
$l_retur .= "<cbc:ID>{$kundeordnr}</cbc:ID>\n";
$l_retur .= "<cbc:SalesOrderID>{$l_ordreid}</cbc:SalesOrderID>\n";
$l_retur .= "<cbc:IssueDate>" . $r_faktura['ordredate'] . "</cbc:IssueDate>\n";
$l_retur .= "</cac:OrderReference>\n";
$l_retur .= "<cac:AccountingSupplierParty>\n";
$l_retur .= "<cac:Party>\n";
$l_retur .= "<cbc:EndpointID schemeID=\"DK:CVR\">DK" . $egen_cvrnr . "</cbc:EndpointID>\n";
$l_retur .= "<cac:PartyIdentification>\n";
$l_retur .= "<cbc:ID schemeID=\"DK:CVR\">DK" . $egen_cvrnr . "</cbc:ID>\n";
$l_retur .= "</cac:PartyIdentification>\n";
$l_retur .= "<cac:PartyName>\n";
$l_retur .= "<cbc:Name>" . $egen_firmanavn . "</cbc:Name>\n";
$l_retur .= "</cac:PartyName>\n";
$l_retur .= "<cac:PostalAddress>\n";
$l_retur .= "<cbc:AddressFormatCode listAgencyID=\"320\" listID=\"urn:oioubl:codelist:addressformatcode-1.1\">StructuredDK</cbc:AddressFormatCode>\n";
$l_retur .= "<cbc:StreetName>" . oioubl_vej($egen_addr_1, "vejnavn") . "</cbc:StreetName>\n";
$l_retur .= "<cbc:BuildingNumber>" . oioubl_vej($egen_addr_1, "husnummer") . "</cbc:BuildingNumber>\n";
$l_retur .= "<cbc:CityName>" . $egen_bynavn . "</cbc:CityName>\n";
$l_retur .= "<cbc:PostalZone>" . $egen_postnr . "</cbc:PostalZone>\n";
$l_retur .= "<cac:Country>\n";
$l_retur .= "<cbc:IdentificationCode>" . oioubl_landekode($egen_land) . "</cbc:IdentificationCode>\n";
$l_retur .= "</cac:Country>\n";
$l_retur .= "</cac:PostalAddress>\n";
$l_retur .= "<cac:PartyTaxScheme>\n";
$l_retur .= "<cbc:CompanyID schemeID=\"DK:SE\">DK" . $egen_cvrnr . "</cbc:CompanyID>\n";
$l_retur .= "<cac:TaxScheme>\n";
$l_retur .= "<cbc:ID schemeAgencyID=\"320\" schemeID=\"urn:oioubl:id:taxschemeid-1.1\">63</cbc:ID>\n";
$l_retur .= "<cbc:Name>Moms</cbc:Name>\n";
$l_retur .= "</cac:TaxScheme>\n";
$l_retur .= "</cac:PartyTaxScheme>\n";
$l_retur .= "<cac:PartyLegalEntity>\n";
$l_retur .= "<cbc:RegistrationName>" . $egen_firmanavn . "</cbc:RegistrationName>\n";
$l_retur .= "<cbc:CompanyID schemeID=\"DK:CVR\">DK" . $egen_cvrnr . "</cbc:CompanyID>\n";
$l_retur .= "</cac:PartyLegalEntity>\n";
$l_retur .= "</cac:Party>\n";
$l_retur .= "</cac:AccountingSupplierParty>\n";
$l_retur .= "<cac:AccountingCustomerParty>\n";
$l_retur .= "<cac:Party>\n";
$l_retur .= "<cbc:EndpointID schemeAgencyID=\"9\" schemeID=\"GLN\">" . $r_faktura['ean'] . "</cbc:EndpointID>\n";
$l_retur .= "<cac:PartyIdentification>\n";
$l_retur .= "<cbc:ID schemeID=\"DK:CVR\">DK" . $cvrnr . "</cbc:ID>\n";
$l_retur .= "</cac:PartyIdentification>\n";
$l_retur .= "<cac:PartyName>\n";
$l_retur .= "<cbc:Name>" . $firmanavn . "</cbc:Name>\n";
$l_retur .= "</cac:PartyName>\n";
$l_retur .= "<cac:PostalAddress>\n";
$l_retur .= "<cbc:AddressFormatCode listAgencyID=\"320\" listID=\"urn:oioubl:codelist:addressformatcode-1.1\">StructuredDK</cbc:AddressFormatCode>\n";
if (oioubl_vej($addr_1, "vejnavn")) {
$l_retur .= "<cbc:StreetName>" . oioubl_vej($addr_1, "vejnavn") . "</cbc:StreetName>\n";
} elseif (oioubl_vej($addr_2, "vejnavn")) {
$l_retur .= "<cbc:StreetName>" . oioubl_vej($addr_2, "vejnavn") . "</cbc:StreetName>\n";
} else {
$l_retur .= "<cbc:StreetName>?</cbc:StreetName>\n";
}
if (oioubl_vej($addr_1, "husnummer")) {
$l_retur .= "<cbc:BuildingNumber>" . oioubl_vej($addr_1, "husnummer") . "</cbc:BuildingNumber>\n";
} elseif (!oioubl_vej($addr_1, "husnummer") && oioubl_vej($addr_2, "husnummer")) {
$l_retur .= "<cbc:BuildingNumber>" . oioubl_vej($addr_2, "husnummer") . "</cbc:BuildingNumber>\n";
} else {
$l_retur .= "<cbc:BuildingNumber>0</cbc:BuildingNumber>\n";
}
$l_retur .= "<cbc:CityName>" . $bynavn . "</cbc:CityName>\n";
$l_retur .= "<cbc:PostalZone>" . $postnr . "</cbc:PostalZone>\n";
$l_retur .= "<cac:Country>\n";
$l_retur .= "<cbc:IdentificationCode>" . oioubl_landekode($land) . "</cbc:IdentificationCode>\n";
$l_retur .= "</cac:Country>\n";
$l_retur .= "</cac:PostalAddress>\n";
$l_retur .= "<cac:PartyLegalEntity>\n";
$l_retur .= "<cbc:RegistrationName>" . $firmanavn . "</cbc:RegistrationName>\n";
$l_retur .= "<cbc:CompanyID schemeID=\"DK:CVR\">DK" . $cvrnr . "</cbc:CompanyID>\n";
$l_retur .= "</cac:PartyLegalEntity>\n";
$l_retur .= "<cac:Contact>\n";
$l_retur .= oioubl_kontaktinfo($kontakt, "BuyerContact");
# $l_retur.="<cbc:Telephone>".$tlf."</cbc:Telephone>\n";
# $l_retur.="<cbc:ElectronicMail>".$email."</cbc:ElectronicMail>\n";
$l_retur .= "</cac:Contact>\n";
$l_retur .= "</cac:Party>\n";
$l_retur .= "</cac:AccountingCustomerParty>\n";
if ($l_doctype == "Invoice") {
$l_retur .= "<cac:Delivery>\n";
$l_retur .= "<cbc:ActualDeliveryDate>" . $r_faktura['ordredate'] . "</cbc:ActualDeliveryDate>\n";
$l_retur .= "</cac:Delivery>\n";
$l_retur .= "<cac:PaymentMeans>\n";
$l_retur .= "<cbc:ID>1</cbc:ID>\n";
$l_retur .= "<cbc:PaymentMeansCode>42</cbc:PaymentMeansCode>\n";
$l_retur .= "<cbc:PaymentDueDate>{$l_forfaldsdate}</cbc:PaymentDueDate>\n";
$l_retur .= "<cbc:PaymentChannelCode listAgencyID=\"320\" listID=\"urn:oioubl:codelist:paymentchannelcode-1.1\">DK:BANK</cbc:PaymentChannelCode>\n";
$l_retur .= "<cac:PayeeFinancialAccount>\n";
$l_retur .= "<cbc:ID>" . str_replace(" ", "", $r_egen['bank_konto']) . "</cbc:ID>\n";
$l_retur .= "<cac:FinancialInstitutionBranch>\n";
$l_retur .= "<cbc:ID>" . $r_egen['bank_reg'] . "</cbc:ID>\n";
$l_retur .= "</cac:FinancialInstitutionBranch>\n";
$l_retur .= "</cac:PayeeFinancialAccount>\n";
$l_retur .= "</cac:PaymentMeans>\n";
$l_retur .= "<cac:PaymentTerms>\n";
$l_retur .= "<cbc:ID>1</cbc:ID>\n";
$l_retur .= "<cbc:PaymentMeansID>1</cbc:PaymentMeansID>\n";
$l_retur .= "<cbc:Amount currencyID=\"{$l_valutakode}\">" . sprintf("%01.2f", $l_sumbeloeb + $l_momsbeloeb) . "</cbc:Amount>\n";
$l_retur .= "</cac:PaymentTerms>\n";
}
$l_retur .= "<cac:TaxTotal>\n";
$l_retur .= "<cbc:TaxAmount currencyID=\"{$l_valutakode}\">" . sprintf("%01.2f", $l_momsbeloeb) . "</cbc:TaxAmount>\n";
$l_retur .= "<cac:TaxSubtotal>\n";
$l_retur .= "<cbc:TaxableAmount currencyID=\"{$l_valutakode}\">" . sprintf("%01.2f", $l_momspligtigt) . "</cbc:TaxableAmount>\n";
$l_retur .= "<cbc:TaxAmount currencyID=\"{$l_valutakode}\">" . sprintf("%01.2f", $l_momsbeloeb) . "</cbc:TaxAmount>\n";
$l_retur .= "<cac:TaxCategory>\n";
$l_retur .= "<cbc:ID schemeAgencyID=\"320\" schemeID=\"urn:oioubl:id:taxcategoryid-1.1\">StandardRated</cbc:ID>\n";
$l_retur .= "<cbc:Percent>" . $l_momssats . "</cbc:Percent>\n";
$l_retur .= "<cac:TaxScheme>\n";
$l_retur .= "<cbc:ID schemeAgencyID=\"320\" schemeID=\"urn:oioubl:id:taxschemeid-1.1\">63</cbc:ID>\n";
$l_retur .= "<cbc:Name>Moms</cbc:Name>\n";
$l_retur .= "</cac:TaxScheme>\n";
$l_retur .= "</cac:TaxCategory>\n";
$l_retur .= "</cac:TaxSubtotal>\n";
$l_retur .= "</cac:TaxTotal>\n";
$l_retur .= "<cac:LegalMonetaryTotal>\n";
$l_retur .= "<cbc:LineExtensionAmount currencyID=\"{$l_valutakode}\">" . sprintf("%01.2f", $l_sumbeloeb) . "</cbc:LineExtensionAmount>\n";
$l_retur .= "<cbc:TaxExclusiveAmount currencyID=\"{$l_valutakode}\">" . sprintf("%01.2f", $l_momsbeloeb) . "</cbc:TaxExclusiveAmount>\n";
$l_retur .= "<cbc:TaxInclusiveAmount currencyID=\"{$l_valutakode}\">" . sprintf("%01.2f", $l_sumbeloeb + $l_momsbeloeb) . "</cbc:TaxInclusiveAmount>\n";
$l_retur .= "<cbc:PayableAmount currencyID=\"{$l_valutakode}\">" . sprintf("%01.2f", $l_sumbeloeb + $l_momsbeloeb) . "</cbc:PayableAmount>\n";
$l_retur .= "</cac:LegalMonetaryTotal>\n";
# Ordrelinjer
$tjeksum = 0;
$posnr = 0;
#20150922
$query = db_select("select * from ordrelinjer where ordre_id = {$l_ordreid} order by posnr", __FILE__ . " linje " . __LINE__);
while ($r_linje = db_fetch_array($query)) {
$posnr++;
#20150922
if ($db_encode != "UTF8") {
$varenr = utf8_encode($r_linje['varenr']);
$enhed = utf8_encode($r_linje['enhed']);
$beskrivelse = utf8_encode($r_linje['beskrivelse']);
} else {
$varenr = $r_linje['varenr'];
$enhed = $r_linje['enhed'];
$beskrivelse = $r_linje['beskrivelse'];
}
if (!$beskrivelse) {
$beskrivelse = ".";
}
$varenr = htmlspecialchars($varenr, ENT_QUOTES);
$enhed = htmlspecialchars($enhed, ENT_QUOTES);
$beskrivelse = htmlspecialchars($beskrivelse, ENT_QUOTES);
$pris = $r_linje['pris'] * 1;
$antal = $r_linje['antal'];
if (!$antal) {
#20150922
$pris = 0;
$antal = 1;
}
$momsfri = $r_linje['momsfri'];
$varemomssats = $r_linje['momssats'] * 1;
if (!$momsfri && !$varemomssats) {
$varemomssats = $l_momssats;
}
if ($varemomssats > $l_momssats) {
$varemomssats = $l_momssats;
}
if (!$varenr) {
$varenr = '.';
}
#phr 20080803 + 20150922
if ($r_linje['procent']) {
$pris *= $r_linje['procent'] / 100;
}
#20150525
$pris = $pris - $r_linje['rabat'] * $pris / 100;
#20140206 + næste 2 linjer
$linjepris = afrund($r_linje['antal'] * $pris, 2);
$pris = afrund($pris, 2);
$linjemoms = afrund($linjepris / 100 * $varemomssats, 2);
if ($l_ptype == "PCM") {
$l_fortegn = -1;
$tjeksum -= $linjepris;
#20150825
} else {
$l_fortegn = 1;
$tjeksum += $linjepris;
}
$l_retur .= "<cac:" . $l_doctype . "Line>\n";
$l_retur .= "<cbc:ID>" . $posnr . "</cbc:ID>\n";
$l_retur .= "<cbc:" . $l2_doctype . "Quantity unitCode=\"" . oioubl_enhed($enhed) . "\">" . $l_fortegn * $antal . "</cbc:" . $l2_doctype . "Quantity>\n";
$l_retur .= "<cbc:LineExtensionAmount currencyID=\"{$l_valutakode}\">" . sprintf("%01.2f", $l_fortegn * $linjepris) . "</cbc:LineExtensionAmount>\n";
$l_retur .= "<cac:TaxTotal>\n";
$l_retur .= "<cbc:TaxAmount currencyID=\"{$l_valutakode}\">" . sprintf("%01.2f", $l_fortegn * $linjemoms) . "</cbc:TaxAmount>\n";
#20150825
$l_retur .= "<cac:TaxSubtotal>\n";
$l_retur .= "<cbc:TaxableAmount currencyID=\"{$l_valutakode}\">" . sprintf("%01.2f", $l_fortegn * $linjepris) . "</cbc:TaxableAmount>\n";
$l_retur .= "<cbc:TaxAmount currencyID=\"{$l_valutakode}\">" . sprintf("%01.2f", $l_fortegn * $linjemoms) . "</cbc:TaxAmount>\n";
$l_retur .= "<cac:TaxCategory>\n";
if ($momsfri) {
$l_retur .= "<cbc:ID schemeAgencyID=\"320\" schemeID=\"urn:oioubl:id:taxcategoryid-1.1\">ZeroRated</cbc:ID>\n";
} else {
$l_retur .= "<cbc:ID schemeAgencyID=\"320\" schemeID=\"urn:oioubl:id:taxcategoryid-1.1\">StandardRated</cbc:ID>\n";
}
$l_retur .= "<cbc:Percent>" . $varemomssats . "</cbc:Percent>\n";
$l_retur .= "<cac:TaxScheme>\n";
$l_retur .= "<cbc:ID schemeAgencyID=\"320\" schemeID=\"urn:oioubl:id:taxschemeid-1.1\">63</cbc:ID>\n";
$l_retur .= "<cbc:Name>Moms</cbc:Name>\n";
$l_retur .= "</cac:TaxScheme>\n";
$l_retur .= "</cac:TaxCategory>\n";
$l_retur .= "</cac:TaxSubtotal>\n";
$l_retur .= "</cac:TaxTotal>\n";
$l_retur .= "<cac:Item>\n";
$l_retur .= "<cbc:Description>" . $beskrivelse . "</cbc:Description>\n";
$tmp = substr(utf8_decode($beskrivelse), 0, 40);
$tmp = utf8_encode($tmp);
$l_retur .= "<cbc:Name>" . $tmp . "</cbc:Name>\n";
# $l_retur.="<cbc:Name>".substr($beskrivelse,0,15)."</cbc:Name>\n";
$l_retur .= "<cac:SellersItemIdentification>\n";
$l_retur .= "<cbc:ID>" . $varenr . "</cbc:ID>\n";
$l_retur .= "</cac:SellersItemIdentification>\n";
$l_retur .= "</cac:Item>\n";
$l_retur .= "<cac:Price>\n";
$l_retur .= "<cbc:PriceAmount currencyID=\"{$l_valutakode}\">" . sprintf("%01.2f", $pris) . "</cbc:PriceAmount>\n";
# 20120515
$l_retur .= "<cbc:BaseQuantity unitCode=\"ANN\">1</cbc:BaseQuantity>\n";
$l_retur .= "<cbc:OrderableUnitFactorRate>1</cbc:OrderableUnitFactorRate>\n";
$l_retur .= "</cac:Price>\n";
$l_retur .= "</cac:" . $l_doctype . "Line>\n";
}
if ($tjeksum != $l_sumbeloeb) {
echo "{$tjeksum}!={$l_sumbeloeb}";
$l_retur .= "<cac:" . $l_doctype . "Line>\n";
$tmp = $posnr + 1;
$l_retur .= "<cbc:ID>" . $tmp . "</cbc:ID>\n";
$l_retur .= "<cbc:" . $l2_doctype . "Quantity unitCode=\"" . oioubl_enhed($enhed) . "\">1</cbc:" . $l2_doctype . "Quantity>\n";
$l_retur .= "<cbc:LineExtensionAmount currencyID=\"{$l_valutakode}\">" . sprintf("%01.2f", $l_sumbeloeb - $tjeksum) . "</cbc:LineExtensionAmount>\n";
$l_retur .= "<cac:TaxTotal>\n";
$l_retur .= "<cbc:TaxAmount currencyID=\"{$l_valutakode}\">" . sprintf("%01.2f", 0) . "</cbc:TaxAmount>\n";
$l_retur .= "<cac:TaxSubtotal>\n";
$l_retur .= "<cbc:TaxableAmount currencyID=\"{$l_valutakode}\">" . sprintf("%01.2f", $l_sumbeloeb - $tjeksum) . "</cbc:TaxableAmount>\n";
$l_retur .= "<cbc:TaxAmount currencyID=\"{$l_valutakode}\">" . sprintf("%01.2f", 0) . "</cbc:TaxAmount>\n";
$l_retur .= "<cac:TaxCategory>\n";
if ($momsfri) {
$l_retur .= "<cbc:ID schemeAgencyID=\"320\" schemeID=\"urn:oioubl:id:taxcategoryid-1.1\">ZeroRated</cbc:ID>\n";
} else {
$l_retur .= "<cbc:ID schemeAgencyID=\"320\" schemeID=\"urn:oioubl:id:taxcategoryid-1.1\">StandardRated</cbc:ID>\n";
}
$l_retur .= "<cbc:Percent>" . $varemomssats . "</cbc:Percent>\n";
$l_retur .= "<cac:TaxScheme>\n";
$l_retur .= "<cbc:ID schemeAgencyID=\"320\" schemeID=\"urn:oioubl:id:taxschemeid-1.1\">63</cbc:ID>\n";
$l_retur .= "<cbc:Name>Moms</cbc:Name>\n";
$l_retur .= "</cac:TaxScheme>\n";
$l_retur .= "</cac:TaxCategory>\n";
$l_retur .= "</cac:TaxSubtotal>\n";
$l_retur .= "</cac:TaxTotal>\n";
$l_retur .= "<cac:Item>\n";
$l_retur .= "<cbc:Description>Afrunding</cbc:Description>\n";
# $tmp=substr(utf8_decode($beskrivelse),0,40);
# $tmp=utf8_encode($tmp);
$l_retur .= "<cbc:Name>Afrunding</cbc:Name>\n";
# $l_retur.="<cbc:Name>".substr($beskrivelse,0,15)."</cbc:Name>\n";
$l_retur .= "<cac:SellersItemIdentification>\n";
$l_retur .= "<cbc:ID>0</cbc:ID>\n";
$l_retur .= "</cac:SellersItemIdentification>\n";
$l_retur .= "</cac:Item>\n";
$l_retur .= "<cac:Price>\n";
$l_retur .= "<cbc:PriceAmount currencyID=\"{$l_valutakode}\">" . sprintf("%01.2f", $l_sumbeloeb - $tjeksum) . "</cbc:PriceAmount>\n";
# 20120515
$l_retur .= "<cbc:BaseQuantity unitCode=\"ANN\">1</cbc:BaseQuantity>\n";
$l_retur .= "<cbc:OrderableUnitFactorRate>1</cbc:OrderableUnitFactorRate>\n";
$l_retur .= "</cac:Price>\n";
$l_retur .= "</cac:" . $l_doctype . "Line>\n";
}
$l_retur .= "</" . $l_doctype . ">\n";
# $l_retur.=oioubl_bottom($l_doctype);
return $l_retur;
}
$q = db_select("select id,kontonr from adresser where art = 'K' and gruppe='{$debkredgrp[$y]}'", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$adr_konto_id[$z] = $r['id'];
$adr_kontonr[$z] = $r['kontonr'];
$z++;
}
for ($z = 0; $z < count($adr_konto_id); $z++) {
$dkksum[$z] = 0;
#cho "select amount,valutakurs from openpost where udlignet='0' and konto_id='$adr_konto_id[$z]'<br>";
$q = db_select("select amount,valutakurs from openpost where udlignet='0' and konto_id='{$adr_konto_id[$z]}'", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$dkksum[$z] += $r['amount'] * 100 / $r['valutakurs'];
}
$valutasaldo = $dkksum[$z] * $gl_kurs / 100;
$ny_saldo = $valutasaldo * $ny_kurs / 100;
$diff = afrund($ny_saldo - $dkksum[$z], 3);
if ($diff) {
$qtxt = "insert into openpost (konto_id, konto_nr, amount, beskrivelse, udlignet, transdate, kladde_id, refnr,valuta,valutakurs,udlign_id,udlign_date) values ('{$adr_konto_id[$z]}', '{$adr_kontonr[$z]}', '{$diff}', '{$posttekst}', '1', '" . date("Y-m-d") . "', '0', '0','-','0','0','" . date("Y-m-d") . "')";
#cho "$qtxt<br>";
db_modify($qtxt, __FILE__ . " linje " . __LINE__);
}
}
}
}
if ($id) {
db_modify("update valuta set kurs='{$ny_kurs}', valdate='{$ny_valdate}' where id = '{$id}'");
} else {
db_modify("insert into valuta(kurs, valdate, gruppe) values('{$ny_kurs}', '{$ny_valdate}', '{$kodenr}')", __FILE__ . " linje " . __LINE__);
}
#exit;
transaktion('commit');
$ordresum[$x] = $r['sum'];
$momssum[$x] = $r['moms'];
$momssats[$x] = $r['momssats'];
#cho "O $ordre_id[$x] Sum: $ordresum[$x] Moms: $momssum[$x]<br>";
$x++;
}
print "<table><tbody>";
print "<tr><td>Dato</td><td>Bon nr</td><td>Diff sum</td><td>Diff moms</td><td>Diff i alt</td></tr>";
$m_sum = 0;
$s_sum = 0;
for ($x = 0; $x < count($ordre_id); $x++) {
for ($y = 0; $y < count($l_ordre_id); $y++) {
if ($ordre_id[$x] == $l_ordre_id[$y]) {
$s = afrund($ordresum[$x] - $l_ordresum[$y], 2);
if (!$l_momsfri[$y]) {
$l_momssum[$y] = $l_ordresum[$y] * $momssats[$x] / 100;
}
$m = afrund($momssum[$x] - $l_momssum[$y], 2);
if ($s || $m) {
$s_sum += $s;
$m_sum += $m;
print "<tr><td>" . dkdato($bondate[$x]) . "</td><td>{$bonnr[$x]}</td><td align=\"right\">" . dkdecimal($s) . "</td><td align=\"right\">" . dkdecimal($m) . "</td><td align=\"right\">" . dkdecimal($s + $m) . "</td><td></tr>";
#cho "<Fejl på Nummer $ordrenr[$x]($ordre_id[$x]) Sumdiff=$s, Momsdiff=$m<br>Ordersum: $ordresum[$x] Ordrelinjesum: $l_ordresum[$y]<br>";
}
#else echo "Ingen fejl på ID $ordre_id[$x]. Sumdiff=$s, Momsdiff=$m<br>";
}
}
}
print "<tr><td colspan=\"2\"><b>I alt</b></td><td align=\"right\"><b>" . dkdecimal($s_sum) . "</b></td><td align=\"right\"><b>" . dkdecimal($m_sum) . "</b></td><td align=\"right\"><b>" . dkdecimal($s_sum + $m_sum) . "</b></td><td></tr>";
print "</tbody></table>";
#if ($bogfor) transaktion('commit');
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>";
}
}
# db_modify("update varer set beholdning = '$batch_t_antal[$x]' where id='$vare_id[$x]'",__FILE__ . " linje " . __LINE__);
}
if (!isset($batchvare[$x])) {
$batchvare[$x] = NULL;
}
if (!$batchvare[$x]) {
$tmp = $batch_t_antal[$x];
if ($date == $dd) {
$q2 = db_select("select * from batch_salg where vare_id={$vare_id[$x]}", __FILE__ . " linje " . __LINE__);
} else {
$q2 = db_select("select * from batch_salg where vare_id={$vare_id[$x]} and salgsdate <= '{$date}'", __FILE__ . " linje " . __LINE__);
}
while ($r2 = db_fetch_array($q2)) {
$batch_s_antal[$x] = afrund($batch_s_antal[$x] + $r2['antal'], 2);
$batch_t_antal[$x] = afrund($batch_t_antal[$x] - $r2['antal'], 2);
$handlet[$x] = 1;
# $batch_pris[$x]=$batch_pris[$x]-($r1['pris']*$r2['antal']);
}
if ($tmp * $batch_t_antal[$x] != 0) {
$batch_pris[$x] = $batch_pris[$x] / $tmp * $batch_t_antal[$x];
} else {
$batch_pris[$x] = 0;
}
}
if (isset($_GET['ajour']) && $_GET['ajour'] == 1 && $batch_t_antal[$x] != $beholdning[$x]) {
db_modify("update varer set beholdning = '{$batch_t_antal[$x]}' where id = '{$vare_id[$x]}'", __FILE__ . " linje " . __LINE__);
}
if ($batch_k_antal[$x] || $batch_s_antal[$x] || $beholdning[$x] || $handlet[$x]) {
if ($linjebg != $bgcolor5) {
$linjebg = $bgcolor5;
function ordrelinjer($x, $sum, $dbsum, $blandet_moms, $moms, $antal_ialt, $leveres_ialt, $tidl_lev_ialt, $levdiff, $masterprojekt, $linje_id, $kred_linje_id, $posnr, $varenr, $beskrivelse, $enhed, $pris, $rabat, $rabatart, $procent, $antal, $leveres, $vare_id, $momsfri, $rabatgruppe, $m_rabat, $varemomssats, $serienr, $samlevare, $folgevare, $projekt, $kdo, $kobs_ordre_pris, $ko_ant, $kostpris, $db, $dg, $dk_db, $dk_dg, $readonly, $omvbet, $saet, $saetnr)
{
print "<!--function ordrelinjer start-->";
global $art;
global $brugsamletpris;
global $genfakt;
global $fokus;
global $hurtigfakt;
global $id;
global $incl_moms;
global $momssats;
global $valuta;
global $valutakurs;
global $vis_projekt;
global $status;
global $ny_pos;
global $procentfakt;
global $omkunde;
global $difkto;
global $rvnr;
global $vis_saet;
$dkantal = 0;
$tidl_lev = 0;
# ($rvnr)?$disabled='disabled':$disabled=NULL;
if (!$samlevare || !$brugsamletpris) {
$ny_pos++;
}
#20150317
#lse cho "$beskrivelse $pris<br>";
# if (!$ny_pos) $ny_pos=1;
if ($readonly) {
$readonly = "readonly=\"readonly\"";
}
if ($varenr) {
if ($rabatart == 'amount') {
$ialt = ($pris - $rabat) * $antal;
} else {
$ialt = ($pris - $pris / 100 * $rabat) * $antal;
}
if ($procentfakt) {
$ialt *= $procent / 100;
} else {
$procent = 100;
}
$ialt = afrund($ialt, 3);
# 20150130 rettet til 3 decimaler
$sum += $ialt;
$dkpris = dkdecimal($pris, 2);
$dkrabat = dkdecimal($rabat, 3);
$dkprocent = dkdecimal($procent, 2);
if ($momsfri != 'on') {
$moms += afrund($ialt * $varemomssats / 100, 3);
# 20150130 rettet til 3 decimaler
if ($varemomssats != $momssats) {
$blandet_moms = 1;
}
#tilfojet 20100923 grundet afrundingsfejl på ordre med rabat
if ($incl_moms) {
$dkpris = dkdecimal($pris + $pris * $varemomssats / 100);
}
} else {
$blandet_moms = 1;
}
#tilfojet 20100923 grundet afrundingsfejl på ordre med rabat
if ($antal) {
if ($art == 'DK') {
$dkantal = dkdecimal($antal * -1);
} else {
$dkantal = dkdecimal($antal);
}
if (substr($dkantal, -1) == '0') {
$dkantal = substr($dkantal, 0, -1);
}
if (substr($dkantal, -1) == '0') {
$dkantal = substr($dkantal, 0, -2);
}
}
} else {
$antal = 0;
$dkantal = '';
$dkpris = '';
$dkrabat = '';
$ialt = '';
}
$art == 'OT' || $saetnr || $rvnr && $rabat ? $disabled = 'disabled' : ($disabled = NULL);
// Her disables inputfield hvis art er OT. #20140716
print "<input type=\"hidden\" name=\"linje_id[{$x}]\" value=\"{$linje_id}\">\n";
print "<input type=\"hidden\" name=\"kred_linje_id[{$x}]\" value=\"{$kred_linje_id}\">\n";
print "<input type=\"hidden\" name=\"vare_id[{$x}]\" value=\"{$vare_id}\">\n";
print "<input type=\"hidden\" name=\"antal[{$x}]\" value=\"{$antal}\">\n";
print "<input type=\"hidden\" name=\"serienr[{$x}]\" value=\"{$serienr}\">\n";
print "<input type=\"hidden\" name=\"momsfri[{$x}]\" value=\"{$momsfri}\">\n";
print "<input type=\"hidden\" name=\"varemomssats[{$x}]\" value=\"{$varemomssats}\">\n";
print "<input type=\"hidden\" name=\"proc{$x}\" value=\"{$procent}\">\n";
print "<input type=\"hidden\" name=\"saet[{$x}]\" value=\"{$saet}\">\n";
print "<input type=\"hidden\" name=\"samlevare[{$x}]\" value=\"{$samlevare}\">\n";
# if ($art=='OT' || $saetnr || ($rvnr && $rabat)) { // Når input fields er 'disabled' bliver de ikke opdateret, derfor tilføjes hidden fields
print "<input type=\"hidden\" name=\"beskrivelse{$x}\" value=\"{$beskrivelse}\">\n";
if ($fokus != "pris{$x}") {
print "<input type=\"hidden\" name=\"pris{$x}\" value=\"{$dkpris}\">\n";
}
print "<input type=\"hidden\" name=\"raba{$x}\" value=\"{$dkrabat}\">\n";
print "<input type=\"hidden\" name=\"proc{$x}\" value=\"{$dkprocent}\">\n";
if ($fokus == 'dkan' . $x) {
#20151019
print "<input type=\"hidden\" name=\"dkantal[{$x}]\" value=\"{$dkantal}\">\n";
print "<input type=\"hidden\" name=\"fokus\" value=\"pris{$x}\">\n";
}
$prplho = NULL;
if ($fokus == 'pris' . $x) {
#20151019
if ($pris == 0) {
$prplho = "placeholder=\"0,00\"";
} else {
$fokus = 'vare0';
}
}
# }
if ($saet && $samlevare) {
#cho "x $beskrivelse $pris<br>";
print "<input type=\"hidden\" name=\"posn{$x}\" value=\"{$ny_pos}\">\n";
print "<input type=\"hidden\" name=\"vare{$x}\" value=\"{$varenr}\">\n";
print "<input type=\"hidden\" name=\"dkan{$x}\" value=\"{$dkantal}\">\n";
} else {
print "<tr>\n";
print "<td valign=\"top\"><input class=\"inputbox\" type=\"text\" {$readonly} style=\"text-align:right\" size=\"3\" name=\"posn{$x}\" value=\"{$ny_pos}\" {$disabled}></td>\n";
print "<td valign=\"top\"><input class=\"inputbox\" type=\"text\" style=\"background: none repeat scroll 0 0 #e4e4ee\" readonly=\"readonly\" size=\"12\" name=\"vare{$x}\" onfocus=\"document.forms[0].fokus.value=this.name;\" value=\"{$varenr}\" onchange=\"javascript:docChange = true;\" {$disabled}></td>\n";
if ($fokus == 'dkan' . $x) {
print "<td valign=\"top\"><input class=\"inputbox\" type=\"text\" style=\"text-align:right\" {$readonly} size=\"4\" name=\"dkan{$x}\" placeholder=\"{$dkantal}\" value=\"\" {$disabled}></td>\n";
} else {
print "<td valign=\"top\"><input class=\"inputbox\" type=\"text\" style=\"text-align:right\" {$readonly} size=\"4\" name=\"dkan{$x}\" value=\"{$dkantal}\" {$disabled}></td>\n";
}
print "<td valign=\"top\"><input class=\"inputbox\" type=\"text\" style=\"background: none repeat scroll 0 0 #e4e4ee\" readonly=\"readonly\" size=\"3\" value=\"{$enhed}\" onchange=\"javascript:docChange = true;\" {$disabled}></td>\n";
$title = var2str($beskrivelse, $id, $posnr, $varenr, $dkantal, $enhed, $dkpris, $dkprocent, $serienr, $varemomssats, $dkrabat);
//print "<td valign=\"top\" title=\"$title\"><input class=\"inputbox\" type=\"text\" $readonly size=\"58\" name=\"beskrivelse$x\" value=\"$beskrivelse\" onchange=\"javascript:docChange = true;\"></td>\n";
if ($rvnr && $varenr == $rvnr || $saetnr && $samlevare) {
$dis = $disabled;
} elseif ($saetnr || $rvnr && $rabat) {
$dis = NULL;
} else {
$dis = $disabled;
}
print "<td valign=\"top\" title=\"{$title}\"><textarea class=\"autosize inputbox ordreText comment\" {$readonly} rows=\"1\" cols=\"58\" name=\"beskrivelse{$x}\" onchange=\"javascript:docChange = true;\" {$dis}>{$beskrivelse}</textarea></td>\n";
}
if ($saet) {
print "<td><input type=\"hidden\" name=\"pris{$x}\" value=\"{$dkpris}\"></td><td>\n\t\t\t<input class=\"inputbox\" type=\"hidden\" name=\"raba{$x}\" value=\"{$dkrabat}\"></td>\n\t\t\t<input type=\"hidden\" name=\"posn{$x}\" value=\"{$ny_pos}\">\n";
} elseif ($saetnr) {
print "<td><input type=\"hidden\" name=\"pris{$x}\" value=\"" . dkdecimal($pris) . "\"></td><td><input class=\"inputbox\" type=\"hidden\" name=\"raba{$x}\" value=\"0\"></td>";
} elseif (!$rvnr) {
print "<td valign=\"top\" title=\"db: {$dk_db} - dg: {$dk_dg}%\"><input class=\"inputbox\" type=\"text\" {$readonly} style=\"text-align:right\" size=\"10\" {$prplho} name=\"pris{$x}\" value=\"{$dkpris}\" onchange=\"javascript:docChange = true;\" onfocus=\"if(this.value == '0,00') {this.value=''}\" onblur=\"if(this.value == ''){this.value ='0,00'}\" {$disabled}></td>\n";
#2013.11.29 Fjerner 0,00 ved fokus, og tilføjer 0,00 hvis feltet er tomt
$title = $dkantal . "*" . dkdecimal($rabat / 100 * $pris) . "% = " . dkdecimal($antal * ($rabat / 100) * $pris);
print "<td valign=\"top\" title=\"{$title}\"><input class=\"inputbox\" type=\"text\" {$readonly} style=\"text-align:right\" size=\"4\" name=\"raba{$x}\" value=\"{$dkrabat}\" onchange=\"javascript:docChange = true;\" onfocus=\"if(this.value == '0,00') {this.value=''}\" onblur=\"if(this.value == ''){this.value ='0,00'}\" {$disabled}></td>\n";
} else {
print "<td></td><td></td>";
}
if ($procentfakt) {
print "<td valign=\"top\" title=\"{$title}\"><input class=\"inputbox\" type=\"text\" {$readonly} style=\"text-align:right\" size=\"4\" name=\"proc{$x}\" value=\"{$dkprocent}\" onchange=\"javascript:docChange = true;\" {$disabled}></td>\n";
$db = $db - (100 - $procent) / 100 * $pris;
}
$db = $db * $antal;
if ($ialt != 0) {
$dg = $db * 100 / $ialt;
} else {
$dg = 0;
}
$dbsum = $dbsum + $db;
$dk_db = dkdecimal($db);
$dk_dg = dkdecimal($dg);
if ($art == 'DK') {
$ialt = $ialt * -1;
}
if ($varenr) {
if ($rvnr) {
$disabled = 'disabled';
if ($incl_moms && !$momsfri) {
$tmp = dkdecimal($antal * ($pris + $pris * $varemomssats / 100));
} else {
$tmp = dkdecimal($pris);
}
} else {
if ($incl_moms && !$momsfri) {
$tmp = dkdecimal($ialt + $ialt * $varemomssats / 100);
} else {
$tmp = dkdecimal($ialt);
}
}
} else {
$tmp = NULL;
}
if ($saet) {
print "<td></td>";
} elseif ($saetnr || $varenr == $rvnr) {
#cho __line__." $linje_id $beskrivelse $pris<br>";
#cho "select lev_varenr from ordrelinjer where samlevare='on' and saet='$saetnr' and ordre_id='$id'<br>";
if ($saetnr) {
$r = db_fetch_array(db_select("select lev_varenr from ordrelinjer where samlevare='on' and saet='{$saetnr}' and ordre_id='{$id}'"));
} else {
$r = db_fetch_array(db_select("select lev_varenr from ordrelinjer where varenr='{$rvnr}' and ordre_id='{$id}'"));
}
list($lev_vnr) = explode("|", $r['lev_varenr']);
print "<td valign=\"top\" align=\"right\" title=\"db: {$dk_db} - dg: {$dk_dg}%\"><input class=\"inputbox\" type=\"text\" readonly=\"readonly\" style=\"background: none repeat scroll 0 0 #e4e4ee; text-align:right\" size=\"10\" value=\"" . dkdecimal($lev_vnr) . "\" disabled></td>\n";
} else {
print "<td valign=\"top\" align=\"right\" title=\"db: {$dk_db} - dg: {$dk_dg}%\"><input class=\"inputbox\" type=\"text\" readonly=\"readonly\" style=\"background: none repeat scroll 0 0 #e4e4ee; text-align:right\" size=\"10\" value=\"{$tmp}\" {$disabled}></td>\n";
}
if ($vis_projekt && !$masterprojekt) {
print "<td><select class=\"inputbox\" name=\"projekt[{$x}]\">\n";
$list = array();
$beskriv = array();
$z = 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)) {
$z++;
$list[$z] = $r['kodenr'];
$beskriv[$z] = $r['beskrivelse'];
}
for ($a = 0; $a <= $z; $a++) {
if ($projekt != $list[$a]) {
print "<option value=\"{$list[$a]}\" title=\"{$beskriv[$a]}\">{$list[$a]}</option>\n";
} else {
print "<option value=\"{$list[$a]}\" title=\"{$beskriv[$a]}\" selected=\"selected\">{$list[$a]}</option>\n";
}
}
print "</select></td>";
}
if ($genfakt) {
print "<td title=\"Afmærk dette felt hvis ordrelinjen ikke skal med ved genfakturering / kopiering.\"><input class=\"inputbox\" name=\"kdo[{$x}]\" type=\"checkbox\" {$kdo}></td>\n";
}
# }
# else print "<td></td>";
if ($status >= 1 && $hurtigfakt != 'on') {
if ($vare_id || $varenr) {
$batch = "?";
# print "<td title=\"kostpris\">Projekt</span></td>\n";
$tidl_lev = 0;
$query = db_select("select gruppe,beholdning from varer where id = {$vare_id}", __FILE__ . " linje " . __LINE__);
$row = db_fetch_array($query);
$beholdning = $row['beholdning'];
$query = db_select("select box8,box9 from grupper where art='VG' and kodenr='{$row['gruppe']}'", __FILE__ . " linje " . __LINE__);
$row = db_fetch_array($query);
$row['box6'] == 'on' ? $omvare = 1 : ($omvare = 0);
# vare som er omfattet af omvendt betalingspligt
$row['box8'] == 'on' ? $lagervare = 1 : ($lagervare = 0);
$row['box9'] == 'on' ? $batchvare = 1 : ($batchvare = 0);
if ($antal) {
$query = db_select("select * from batch_salg where linje_id = '{$linje_id}' and ordre_id={$id} and vare_id = {$vare_id}", __FILE__ . " linje " . __LINE__);
while ($row = db_fetch_array($query)) {
$y++;
$batch = 'V';
$tidl_lev = $tidl_lev + $row['antal'];
}
if ($batchvare) {
$z = 0;
$query = db_select("select * from reservation where vare_id = {$vare_id}", __FILE__ . " linje " . __LINE__);
while ($row = db_fetch_array($query)) {
if ($row['linje_id'] == $linje_id || $row['batch_salg_id'] == $linje_id * -1) {
$z = $z + $row['antal'];
$batch = "V";
} elseif ($row['batch_kob_id'] < 0) {
$reserveret = $reserveret + $row['antal'];
} elseif ($row['batch_salg_id'] == 0) {
$paavej = $paavej + $row['antal'];
}
}
if ($z + $tidl_lev < $antal) {
$batch = "?";
}
} else {
$batch = "";
}
if ($tidl_lev < $antal || $batch == "?") {
$status = 1;
}
}
/*
if ($antal<0) {
$tidl_lev=0;
$query = db_select("select * from batch_kob where linje_id = '$linje_id' and ordre_id=$id",__FILE__ . " linje " . __LINE__); #20071004
while($row = db_fetch_array($query)) $tidl_lev=$tidl_lev-$row['antal'];
if ($antal>$tidl_lev+$leveres) $leveres=$antal-$tidl_lev;
# elseif ($antal>$tidl_lev+$leveres) $leveres=$antal+$tidl_lev;
$query = db_select("select * from reservation where linje_id = '$linje_id'",__FILE__ . " linje " . __LINE__);
if (($row = db_fetch_array($query))&&($beholdning>=0)) {
if ($antal+$tidl_lev!=$row['antal']) db_modify ("update reservation set antal=$antal*-1 where linje_id=$linje_id and batch_salg_id=0",__FILE__ . " linje " . __LINE__);
}
elseif ($antal-$tidl_lev!=0) db_modify("insert into reservation (linje_id,vare_id,batch_salg_id,antal) values ($linje_id,$vare_id,0,$antal*-1)",__FILE__ . " linje " . __LINE__);
}
elseif ($leveres+$tidl_lev>$antal) $leveres=$antal-$tidl_lev;
*/
if ($art == 'DK') {
$dklev = dkdecimal($leveres * -1);
$dk_tidl_lev = dkdecimal($tidl_lev * -1);
$lever_modtag = "modtag";
} else {
$dklev = dkdecimal($leveres);
$dk_tidl_lev = dkdecimal($tidl_lev);
$lever_modtag = "lever";
}
if (substr($dklev, -1) == '0') {
$dklev = substr($dklev, 0, -1);
}
if (substr($dklev, -1) == '0') {
$dklev = substr($dklev, 0, -2);
}
if (substr($dk_tidl_lev, -1) == '0') {
$dk_tidl_lev = substr($dk_tidl_lev, 0, -1);
}
if (substr($dk_tidl_lev, -1) == '0') {
$dk_tidl_lev = substr($dk_tidl_lev, 0, -2);
}
print "<input type=\"hidden\" name=tidl_lev[{$x}] value=\"{$dk_tidl_lev}\">\n";
$temp = $beholdning - $reserveret;
$status = 2;
$beholdning = $beholdning * 1;
$beholdning = dkdecimal($beholdning);
if (substr($beholdning, -1) == '0') {
$beholdning = substr($beholdning, 0, -1);
}
if (substr($beholdning, -1) == '0') {
$beholdning = substr($beholdning, 0, -2);
}
if (!$lagervare) {
$beholdning = "ikke lagerført";
}
$tmp = afrund(abs($antal) - abs($tidl_lev), 2);
#20131004
if ($samlevare && $saet) {
echo "";
} else {
if ($tmp) {
if (abs($antal) != abs($tidl_lev)) {
print "<td title=\"Lagerbeholdning: {$beholdning}. Mangler fortsat at " . $lever_modtag . "e resten.\"><input class=\"inputbox\" {$readonly} type=\"text\" style=\"background: none repeat scroll 0 0 #ffa; text-align:right\" size=\"4\" name=\"leve{$x}\" value=\"{$dklev}\" onchange=\"javascript:docChange = true;\"></td>\n";
} else {
print "<td title=\"Lagerbeholdning: {$beholdning}. Intet " . $lever_modtag . "et endnu.\"><input class=\"inputbox\" {$readonly} type=\"text\" style=\"text-align:right\" size=\"4\" name=\"leve{$x}\" value=\"{$dklev}\" onchange=\"javascript:docChange = true;\"></td>\n";
}
print "<td title=\"Tidligere " . $lever_modtag . "et {$dk_tidl_lev} på denne ordre.\">({$dk_tidl_lev})</td>\n";
if ($batchvare && $antal > 0) {
print "<td align=\"center\" onClick=\"batch({$linje_id})\" title=\"Vælg fra købsordre\"><img alt=\"Serienummer\" src=\"../ikoner/serienr.png\"></td>\n";
} elseif ($serienr) {
print "<td align=\"center\" onClick=\"serienummer({$linje_id})\" title=\"Vælg serienr\"><img alt=\"Serienummer\" src=\"../ikoner/serienr.png\"></td>\n";
}
$levdiff = 1;
} else {
if ($antal == $tidl_lev) {
$dklev = 0;
}
print "<td title=\"Lagerbeholdning: {$beholdning}. Alt " . $lever_modtag . "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}\" onchange=\"javascript:docChange = true;\"></td>\n";
print "<td title=\"Tidligere " . $lever_modtag . "et {$dk_tidl_lev} på denne ordre.\">({$dk_tidl_lev})</td>\n";
}
if ($linje_id && $leveret != $tidl_lev) {
db_modify("update ordrelinjer set leveret={$tidl_lev} where id={$linje_id}", __FILE__ . " linje " . __LINE__);
}
}
}
} elseif ($serienr) {
print "<td align=\"center\" onClick=\"serienummer({$linje_id})\" title=\"Vælg serienr\"><img alt=\"Serienummer\" src=\"../ikoner/serienr.png\"></td>\n";
}
# if ($samlevare=='on') print "<td align=\"center\" onClick=\"stykliste($vare_id)\" title=\"Vis stykliste\"><img alt=\"Stykliste\" src=\"../ikoner/stykliste.png\"></td>\n";
if (!$rabat && $m_rabat && !$rabatgruppe) {
print "</tr><tr>\n";
print "<td><input class=\"inputbox\" readonly=\"readonly\" style=\"text-align:right\" size=\"3\" value={$x}></td>\n";
print "<td><input class=\"inputbox\" readonly=\"readonly\" size=\"12\" value=\"\"></td>\n";
print "<td><input class=\"inputbox\" readonly=\"readonly\" style=\"text-align:right\" size=\"4\" value={$dkantal}></td>\n";
print "<td><input class=\"inputbox\" readonly=\"readonly\" size=\"3\" value=\"{$enhed}\"></td>\n";
$rabatpct = afrund($m_rabat * 100 / $pris, 2);
$rabatart == 'amount' ? $rabattxt = findtekst(466, $sprog_id) : ($rabattxt = findtekst(467, $sprog_id));
$rabattxt = str_replace('$rabatpct', $rabatpct, $rabattxt);
$title = var2str($rabattxt, $id, $posnr, $varenr, $dkantal, $enhed, $dkpris, $dkprocent, $serienr[$x], $varemomssats, $dkrabat);
print "<td title=\"{$title}\"><input class=\"inputbox\" readonly=\"readonly\" size=\"58\" value=\"{$rabattxt}\"></td>\n";
if ($momsfri != 'on') {
$moms += afrund($m_rabat * $antal * $varemomssats / 100, 2);
if ($varemomssats != $momssats) {
$blandet_moms = 1;
}
#tilfojet 20100923 grundet afrundingsfejl på ordre med rabat
}
if ($incl_moms) {
$m_rabat += $m_rabat * $varemomssats / 100;
}
print "<td><input class=\"inputbox\" readonly=\"readonly\" style=\"text-align:right\" size=\"10\" value=\"" . dkdecimal($m_rabat) . "\"></td>\n";
print "<td><input class=\"inputbox\" readonly=\"readonly\" style=\"text-align:right\" size=\"4\" value=\"\" onchange=\"javascript:docChange = true;\"></td>\n";
print "<td><input class=\"inputbox\" readonly=\"readonly\" style=\"text-align:right\" size=\"10\" value=\"" . dkdecimal($m_rabat * $antal) . "\"></td>\n";
$sum += afrund($m_rabat * $antal, 2);
}
if ($omkunde) {
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}></td>\n";
}
print "</tr>\n";
if ($readonly) {
print "<input type=\"hidden\" name=\"posn{$x}\" value=\"{$ny_pos}\">\n";
print "<input type=\"hidden\" name=\"vare{$x}\" value=\"{$varenr}\">\n";
print "<input type=\"hidden\" name=\"dkan{$x}\" value=\"{$dkantal}\">\n";
print "<input type=\"hidden\" name=\"beskrivelse{$x}\" value=\"{$beskrivelse}\">\n";
print "<input type=\"hidden\" name=\"pris{$x}\" value=\"{$dkpris}\">\n";
print "<input type=\"hidden\" name=\"raba{$x}\" value=\"{$dkrabat}\">\n";
}
$antal_ialt = $antal_ialt + $antal;
#10.10.2007
$leveres_ialt = $leveres_ialt + abs($leveres);
#abs tilfoejet 2009.01.26 grundet manglende lev_mulighed med ens antal positive og negative leveringer i ordre 98 i saldi_104
$tidl_lev_ialt = $tidl_lev_ialt + $tidl_lev;
#10.10.2007
#cho "Sum $sum<br>";
return $sum . chr(9) . $dbsum . chr(9) . $blandet_moms . chr(9) . $moms . chr(9) . $antal_ialt . chr(9) . $leveres_ialt . chr(9) . $tidl_lev_ialt . chr(9) . $tidl_lev . chr(9) . $levdiff;
print "<!--function ordrelinjer s**t-->";
}
$salgssum[$x] = $tmp;
$x++;
} elseif ($r2['bogf_konto']) {
$salgssum[$x] += $tmp;
}
$moms_sum += $tmp * $r2['momssats'] / 100;
}
}
# echo "M2 $r[valutakurs] $moms_sum";
$dkkmoms_sum = $moms_sum;
if ($ordrekurs && $ordrekurs != 100) {
$dkkmoms_sum *= $ordrekurs / 100;
}
# echo " -> $dkkmoms_sum<br>";
$dkkmoms_sum = afrund($dkkmoms_sum, 2);
$moms_sum = afrund($moms_sum, 2);
# echo " -> $dkkmoms_sum<br>";
#echo "$vis A $fejl | $moms | $moms_sum<br>";
if (abs($moms - $moms_sum) > 0.1) {
#echo "B $fejl | $moms | $moms_sum<br>";
$fejl++;
#cho "C $fejl | $moms | $moms_sum<br>";
# if (abs($moms - $moms_sum)<0.5) echo "TJEK DEN HER !!!!!!!!!!!!!!!!!!!!<br>";
if ($vis) {
echo "fakturanr " . $r['fakturanr'] . " | ID: " . $r['id'] . "<br>";
}
if ($vis) {
echo "{$r['moms']} | {$moms_sum}<br>";
}
$samle_id = NULL;
$samleamount = NULL;
}
$saetpris += $linjepris[$x];
print "<input type=\"hidden\" name=\"linje_id[{$x}]\" value=\"{$linje_id[$x]}\">\n\n\t\t\t\t\t<input type=\"hidden\" name=\"varenr[{$x}]\" value=\"{$varenr[$x]}\">\n\n\t\t\t\t\t<input type=\"hidden\" name=\"pris[{$x}]\" value=\"{$pris[$x]}\">\n\n\t\t\t\t\t<input type=\"hidden\" name=\"antal[{$x}]\" value=\"{$antal[$x]}\">\n\n\t\t\t\t\t<input type=\"hidden\" name=\"normalpris[{$x}]\" value=\"{$normalpris[$x]}\">\n\n\t\t\t\t\t<input type=\"hidden\" name=\"beskrivelse[{$x}]\" value=\"{$beskrivelse[$x]}\">\n\n\t\t\t\t\t<input type=\"hidden\" name=\"momssats[{$x}]\" value=\"{$varemomssats[$x]}\">\n\n\t\t\t\t\t<input type=\"hidden\" name=\"leveret[{$x}]\" value=\"{$leveret[$x]}\">\n\n\t\t\t\t\t<input type=\"hidden\" name=\"notes[{$x}]\" value=\"{$notes[$x]}\">\n";
if (!$samlevare[$x]) {
print "<tr>";
print "<td>{$beskrivelse[$x]} </td>\n";
print "<td align=\"right\">" . str_replace(".", ",", $antal[$x]) . "</td>\n";
print "<td align=\"right\">" . dkdecimal($normalpris[$x]) . "</td>\n";
$medtag[$x] ? $medtag[$x] = "checked" : ($medtag[$x] = NULL);
print "<td align=\"right\"><input style=\"width:50px;height:30px;\" name=\"medtag[{$x}]\" type=\"checkbox\" {$medtag[$x]} onfocus=\"document.forms[0].fokus.value=this.name;\"></td>";
print "<tr>";
}
}
}
print "<tr><td colspan=\"4\"><hr></td></tr>";
$saetpris = afrund($saetpris, 2);
# $saetpris=pos_afrund($saetpris,$difkto);
print "<tr><td>\n\t<input type=\"hidden\" name=\"kostsum\" value=\"{$kostsum}\">\n\t<input type=\"hidden\" name=\"normalsum\" value=\"{$normalsum}\">\n\t<input type=\"hidden\" name=\"saetpris\" value=\"{$saetpris}\">\n\t<input type=\"hidden\" name=\"saet\" value=\"{$saet}\">\n\t<!--Kostpris</td><td colspan=\"2\" align=\"right\">" . dkdecimal($kostsum) . "--></td></tr>";
print "<tr><td>Normalpris</td><td title=\"Kostpris: " . dkdecimal($kostsum) . "\" colspan=\"2\" align=\"right\">" . dkdecimal($normalsum) . "</td></tr>";
if (in_array("checked", $medtag)) {
print "<tr><td>Sætpris</td><td title=\"Kostpris: " . dkdecimal($kostsum) . "\" colspan=\"2\" align=\"right\"><input type=\"text\" style=\"text-align:right\" value=\"" . dkdecimal($saetpris) . "\" name=\"ny_saetpris\"></td></tr>";
}
print "<tr><td colspan=\"4\"><hr></td></tr>";
print "<tr><td colspan=\"4\"><input type=\"hidden\" name=\"fokus\"><input type=\"hidden\" name=\"pre_fokus\" value=\"{$fokus}\">";
print "<input style=\"width:100%;height:40px;font-size:120%\" type=\"submit\" name=\"opdater\" value=\"Opdater\"></td></tr>";
print "</form>";
print "</tbody></table></td><td width=\"10%\"><br></td>";
$fokus = "ny_saetpris";
tastatur($id, $fokus, $saet);
function tastatur($id, $fokus, $saet)
{
function aar_x($id, $kodenr, $beskrivelse, $startmd, $startaar, $slutmd, $slutaar, $aaben)
{
global $overfor_til;
$r = db_fetch_array(db_select("select max(kodenr) as max_aar from grupper where art = 'RA'", __FILE__ . " linje " . __LINE__));
$max_aar = $r['max_aar'];
$pre_regnaar = $kodenr - 1;
$query = db_select("select * from grupper where art = 'RA' and kodenr = '{$pre_regnaar}'", __FILE__ . " linje " . __LINE__);
if ($row = db_fetch_array($query)) {
$pre_startmd = $row['box1'];
$pre_startaar = $row['box2'];
$pre_slutmd = $row['box3'];
$pre_slutaar = $row['box4'];
}
$pre_slutdato = 31;
while (!checkdate($pre_slutmd, $pre_slutdato, $pre_slutaar)) {
$pre_slutdato = $pre_slutdato - 1;
if ($pre_slutdato < 28) {
break 1;
}
}
$pre_regnstart = $pre_startaar . "-" . $pre_startmd . "-" . '01';
$pre_regnslut = $pre_slutaar . "-" . $pre_slutmd . "-" . $pre_slutdato;
print "<form name=aar_1 action=regnskabskort.php method=post>";
if ($id) {
print "<tr><td colspan=5 align = center><big><b>Ret {$kodenr}. regnskabsår: {$beskrivelse}</td></tr>\n";
} else {
print "<tr><td colspan=5 align = center><big><b>Opret {$kodenr}. regnskabsår: {$beskrivelse}</td></tr>\n";
}
print "<tr><td colspan=5 align=center><table width=100% border=0><tbody><tr>";
###########################table 8d start
print "<tr><td></td><td align=center>Start</td><td align=center>Start</td><td align=center>S**t</td><td align=center>S**t</td><td align=center>Bogføring</td></tr>\n";
print "<tr><td align=center>Beskrivelse</td><td align=center>måned</td><td align=center>år</td><td align=center>måned</td><td align=center>år</td><td align=center>tilladt</td></tr>\n";
print "<tr><input type=hidden name=kodenr value={$kodenr}><input type=hidden name=id value='{$id}'\t>";
print "<td align=center><input type=text size=30 name=beskrivelse value=\"{$beskrivelse}\" onchange=\"javascript:docChange = true;\"></td>";
print "<td align=center><input readonly=readonly style=\"text-align:right\" size=2 name=startmd value={$startmd}></td>";
print "<td align=center><input readonly=readonly style=\"text-align:right\" size=4 name=startaar value={$startaar}></td>";
print "<td align=center><input type=text style=\"text-align:right\" size=2 name=slutmd value={$slutmd} onchange=\"javascript:docChange = true;\"></td>";
print "<td align=center><input type=text style=\"text-align:right\" size=4 name=slutaar value={$slutaar} onchange=\"javascript:docChange = true;\"></td>";
strstr($aaben, 'on') ? $checked = 'checked' : ($checked = NULL);
if (!$id) {
$checked = 'checked';
}
print "<td align=center><input type=checkbox name=aaben {$checked} onchange=\"javascript:docChange = true;\"></td>";
print "</tr>\n</tbody></table></td></tr>\n";
#####################################################table 8d s**t
print "<tr><td colspan=2 align=center> Primotal for {$kodenr}. regnskabsår:</td><td align = center> saldo</td><td align = center> overfør til</td><td align = center> ny primo</td></tr>\n";
$tmp = $kodenr;
$kontoantal = 0;
while ($kontoantal < 1 && $tmp > 0) {
#Hvis der ikke er oprettet konti for indevaerende regsskabsaar, hentes konti fra forrige.
$query = db_select("select primo, kontonr, beskrivelse from kontoplan where kontotype='S' and regnskabsaar='{$tmp}' order by kontonr", __FILE__ . " linje " . __LINE__);
while ($row = db_fetch_array($query)) {
$kontoantal++;
$primo[$kontoantal] = $row['primo'];
$kontonr[$kontoantal] = $row['kontonr'];
}
$tmp--;
}
$pre_regnaar = $kodenr - 1;
$r = db_fetch_array(db_select("select box2 from grupper where kodenr='{$pre_regnaar}' and art='RA'", __FILE__ . " linje " . __LINE__));
$r['box2'] >= '2015' ? $aut_lager = 'on' : ($aut_lager = NULL);
if (!$pre_regnaar) {
echo "regnaar mangler";
exit;
}
if ($aut_lager) {
$x = 0;
$varekob = array();
$q = db_select("select box1,box2,box3 from grupper where art = 'VG' and box8 = 'on'", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
if ($r['box1'] && !in_array($r['box3'], $varekob)) {
$varelager_i[$x] = $r['box1'];
$varelager_u[$x] = $r['box2'];
$varekob[$x] = $r['box3'];
$x++;
}
}
}
$ny_sum = 0;
$resultat = 0;
$q = db_select("select * from kontoplan where kontotype='D' and regnskabsaar={$pre_regnaar} order by kontonr", __FILE__ . " linje " . __LINE__);
$y = 0;
while ($r = db_fetch_array($q)) {
$resultat += afrund($r['primo'], 2);
$q2 = db_select("select * from transaktioner where transdate>='{$pre_regnstart}' and transdate<='{$pre_regnslut}' and kontonr='{$r['kontonr']}'", __FILE__ . " linje " . __LINE__);
while ($r2 = db_fetch_array($q2)) {
$resultat += afrund($r2['debet'] - $r2['kredit'], 2);
}
if ($aut_lager) {
if (in_array($r['kontonr'], $varekob)) {
$l_a_primo[$x] = find_lagervaerdi($r['kontonr'], $pre_regnstart);
$l_a_sum[$x] = find_lagervaerdi($r['kontonr'], $pre_regnslut);
# Varekøb (debet) debiteres lager primo og krediteres lager saldo. Dvs tallet mindskes hvis lager øges
$resultat += $l_a_primo[$x];
$resultat -= $l_a_sum[$x];
}
if (in_array($r['kontonr'], $varelager_i) || in_array($r['kontonr'], $varelager_u)) {
$l_a_primo[$x] = find_lagervaerdi($r['kontonr'], $pre_regnstart);
$l_a_sum[$x] = find_lagervaerdi($r['kontonr'], $pre_regnslut);
# Varelager (debet) krediteres lager primo og og debiteres lager saldo. Dvs tallet øges hvis lager øges
$resultat -= $l_a_primo[$x];
$resultat += $l_a_sum[$x];
}
}
}
$resultat = afrund($resultat, 2);
$r = db_fetch_array(db_select("select * from kontoplan where kontotype='X' and regnskabsaar={$pre_regnaar}", __FILE__ . " linje " . __LINE__));
$sideskift = $r['kontonr'] * 1;
if ($sideskift) {
$q2 = db_select("select * from transaktioner where transdate>='{$pre_regnstart}' and transdate<='{$pre_regnslut}' and kontonr='{$sideskift}'", __FILE__ . " linje " . __LINE__);
while ($r2 = db_fetch_array($q2)) {
$resultat += afrund($r2['debet'] - $r2['kredit'], 2);
}
$saldosum = $resultat;
print "<td><br /></td>";
print "<td>Resultat</td>";
print "<input type=hidden name=kontonr[0] value={$sideskift}>";
print "<td width=10 align=right><input type=hidden name=saldo[0] value={$resultat}>" . dkdecimal($resultat) . "</td>";
print "<td><SELECT NAME=overfor_til[0]>";
if ($r['overfor_til']) {
print "<option>{$r['overfor_til']}</option>";
}
print "<option>{$kontonr[$y]}</option>";
for ($x = 1; $x <= $kontoantal; $x++) {
print "<option>{$kontonr[$x]}</option>";
}
print "</SELECT></td>";
print "<td width=10><br /></td></tr>\n";
$ny_sum += $ny_primo[$y];
}
#cho "select * from kontoplan where kontotype='S' and regnskabsaar='$pre_regnaar' order by kontonr<br>";
$query = db_select("select * from kontoplan where kontotype='S' and regnskabsaar='{$pre_regnaar}' order by kontonr", __FILE__ . " linje " . __LINE__);
$y = 0;
while ($row = db_fetch_array($query)) {
$y++;
$ny_primo[$y] = 0;
for ($x = 1; $x <= $kontoantal; $x++) {
if ($kontonr[$x] == $row['kontonr']) {
$ny_primo[$y] = $primo[$x];
# $overfor_til[$y]=$row['overfor_til'];
}
}
$belob = 0;
$belob = $row['primo'];
print "<tr><input type=hidden name=kontonr[{$y}] value={$row['kontonr']}>";
$q2 = db_select("select * from transaktioner where transdate>='{$pre_regnstart}' and transdate<='{$pre_regnslut}' and kontonr='{$row['kontonr']}'", __FILE__ . " linje " . __LINE__);
while ($r2 = db_fetch_array($q2)) {
$belob += afrund($r2['debet'] - $r2['kredit'], 2);
}
if ($aut_lager) {
if (in_array($row['kontonr'], $varekob)) {
$l_a_primo[$x] = find_lagervaerdi($row['kontonr'], $pre_regnstart);
$l_a_sum[$x] = find_lagervaerdi($row['kontonr'], $pre_regnslut);
# Varekøb (debet) debiteres lager primo og krediteres lager saldo. Dvs tallet mindskes hvis lager øges
$belob += $l_a_primo[$x];
$belob -= $l_a_sum[$x];
}
if (in_array($row['kontonr'], $varelager_i) || in_array($row['kontonr'], $varelager_u)) {
$l_a_primo[$x] = find_lagervaerdi($row['kontonr'], $pre_regnstart);
$l_a_sum[$x] = find_lagervaerdi($row['kontonr'], $pre_regnslut);
# Varelager (debet) krediteres lager primo og og debiteres lager saldo. Dvs tallet øges hvis lager øges
$belob -= $l_a_primo[$x];
$belob += $l_a_sum[$x];
}
}
$saldosum = $saldosum + $belob;
print "<td>{$row['kontonr']}</td>";
print "<td>{$row['beskrivelse']}</td>";
print "<td width=10 align=right><input type=hidden name=saldo[{$y}] value={$belob}>" . dkdecimal($belob) . "</td>";
print "<td><SELECT NAME=overfor_til[{$y}]>";
if ($row['overfor_til'] && in_array($row['overfor_til'], $kontonr)) {
print "<option>{$row['overfor_til']}</option>";
} elseif (in_array($row['kontonr'], $kontonr)) {
print "<option>{$row['kontonr']}</option>";
} else {
print "<option></option>";
}
for ($x = 1; $x <= $kontoantal; $x++) {
print "<option>{$kontonr[$x]}</option>";
}
print "</SELECT></td>";
print "<td width=10 align=right><input type=hidden name=ny_primo[{$y}] value={$ny_primo[$y]}>" . dkdecimal($ny_primo[$y]) . "</td></tr>\n";
$ny_sum = $ny_sum + $ny_primo[$y];
}
print "<td></td><td></td><td align=right>" . dkdecimal($saldosum) . "</td><td></td><td align=right>" . dkdecimal($ny_sum) . "</td></tr>\n";
if ($debetsum - $kreditsum != 0) {
print "<BODY onLoad=\"javascript:alert('Konti er ikke i balance')\">";
}
# print "<tr><td colspan = 3> Overfr �ningsbalance</td><td align=center><input type=checkbox name=primotal checked></td></tr>\n";
print "<input type=hidden name=kontoantal value={$y}>";
print "<tr><td colspan = 5 align = center><input type=submit accesskey=\"g\" value=\"Gem/opdatér\" name=\"submit\" onclick=\"javascript:docChange = false;\">";
if ($regnaar == $max_aar) {
print "<input type=submit value=\"Slet\" name=\"submit\" onclick=\"javascript:docChange = false;\">";
}
print "</td></tr>\n";
print "</form>";
exit;
}
function valutaopslag($amount, $valuta, $transdate)
{
global $connection;
global $fejltext;
$r = db_fetch_array(db_select("select * from valuta where gruppe = '{$valuta}' and valdate <= '{$transdate}' order by valdate desc", __FILE__ . " linje " . __LINE__));
if ($r['kurs']) {
$kurs = $r['kurs'];
$amount = afrund($amount * $kurs / 100, 2);
# decimal rettet fra 3 til 2 20090617 grundet fejl i saldi_58_20090617-2224
} else {
$r = db_fetch_array(db_select("select box1 from grupper where art = 'VK' and kodenr = '{$valuta}'", __FILE__ . " linje " . __LINE__));
$tmp = dkdato($transdate);
$fejltext = "---";
print "<BODY onLoad=\"javascript:alert('Ups - ingen valutakurs for {$r['box1']} den {$tmp}')\">";
}
$r = db_fetch_array(db_select("select box3 from grupper where art = 'VK' and kodenr = '{$valuta}'", __FILE__ . " linje " . __LINE__));
$diffkonto = $r['box3'];
return array($amount, $diffkonto, $kurs);
# 3'die parameter tilfojet 2009.02.10
}
function bogfor_nu($id, $webservice)
{
include "../includes/genberegn.php";
include "../includes/forfaldsdag.php";
global $db;
global $regnaar;
global $valuta;
global $valutakurs;
global $difkto;
global $title;
# print "<table><tbody>";
$svar = "OK";
$d_kontrol = 0;
$k_kontrol = 0;
$logdate = date("Y-m-d");
$logtime = date("H:i");
$q = db_select("select box1, box2, box3, box4, box5 from grupper where art='RB'", __FILE__ . " linje " . __LINE__);
if ($r = db_fetch_array($q)) {
if (trim($r['box3']) == "on") {
$faktbill = 1;
} else {
$faktbill = 0;
}
if (trim($r['box4']) == "on") {
$modtbill = 1;
} else {
$modtbill = 0;
}
if (trim($r['box5']) == "on") {
$no_faktbill = 1;
$faktbill = 0;
} else {
$no_faktbill = 0;
}
}
$projekt = array();
$x = 0;
$q = db_select("select * from ordrer where id='{$id}'", __FILE__ . " linje " . __LINE__);
if ($r = db_fetch_array($q)) {
$art = $r['art'];
$konto_id = $r['konto_id'];
$kontonr = str_replace(" ", "", $r['kontonr']);
$firmanavn = trim($r['firmanavn']);
$modtagelse = $r['modtagelse'];
$transdate = $r['fakturadate'];
$fakturanr = $r['fakturanr'];
$ordrenr = $r['ordrenr'];
#echo "$firmanavn | $ordrenr<br>";
$valuta = $r['valuta'];
$kred_ord_id = $r['kred_ord_id'];
if (!$valuta) {
$valuta = 'DKK';
}
$projekt[0] = $r['projekt'] * 1;
$betalingsbet = $r['betalingsbet'];
$betalingsdage = $r['betalingsdage'] * 1;
# $refnr;
$moms = $r['moms'] * 1;
# else {$moms=afrund($r['sum']*$r['momssats']/100,2);}
$sum = $r['sum'] + $moms;
#echo "sum $r[sum] + $moms = $sum<br>";
#exit;
$ordreantal = $x;
$forfaldsdate = usdate(forfaldsdag($r['fakturadate'], $betalingsbet, $betalingsdage));
$r2 = db_fetch_array(db_select("select id, afd from ansatte where navn = '{$r['ref']}'", __FILE__ . " linje " . __LINE__));
$afd = $r2['afd'] * 1;
#sikkerhed for at 'afd' har en vaerdi
$ansat = $r2['id'] * 1;
if ($no_faktbill == 1) {
$bilag = '0';
} else {
$bilag = trim($fakturanr);
}
$udlign = 0;
if (substr($art, 1, 1) == 'K') {
$beskrivelse = "Kreditnota - " . $fakturanr;
$r = db_fetch_array(db_select("select fakturanr,fakturadate from ordrer where id='{$kred_ord_id}'", __FILE__ . " linje " . __LINE__));
$tmp = $sum * -1;
if (db_fetch_array(db_select("select * from openpost where konto_id='{$konto_id}' and amount='{$tmp}' and faktnr='{$r['fakturanr']}' and transdate='{$r['fakturadate']}' and udlignet != '1'", __FILE__ . " linje " . __LINE__))) {
db_modify("update openpost set udlignet = 1 where konto_id='{$konto_id}' and amount='{$tmp}' and faktnr='{$r['fakturanr']}' and transdate='{$r['fakturadate']}'");
$udlign = 1;
}
} elseif ($art == 'PO') {
$beskrivelse = "Bon - " . $fakturanr;
} else {
$beskrivelse = "Faktura - " . $fakturanr;
}
if ($art != 'PO') {
db_modify("insert into openpost (konto_id, konto_nr, faktnr, amount, beskrivelse, udlignet, transdate, kladde_id, refnr, valuta, valutakurs, forfaldsdate) values ('{$konto_id}', '{$kontonr}', '{$fakturanr}', '{$sum}', '{$beskrivelse}', '{$udlign}', '{$transdate}', '{$udlign}', '{$id}', '{$valuta}', '{$valutakurs}','{$forfaldsdate}')", __FILE__ . " linje " . __LINE__);
$r = db_fetch_array(db_select("select gruppe from adresser where id='{$konto_id}'", __FILE__ . " linje " . __LINE__));
$r = db_fetch_array(db_select("select beskrivelse, box2 from grupper where art = 'DG' and kodenr='{$r['gruppe']}'", __FILE__ . " linje " . __LINE__));
$kontonr = $r['box2'];
# Kontonr aendres fra at vaere leverandoerkontonr til finanskontonr
$tekst = "Kontonummer for Debitorgruppe `{$r['beskrivelse']}` er ikke gyldigt";
if (!$kontonr && $webservice) {
return $tekst;
} elseif (!$kontonr) {
print "<BODY onLoad=\"javascript:alert('{$tekst}')\">";
}
} else {
$kontonr = "58200";
}
# midleritdig kun til brug med POS
if ($sum > 0) {
$debet = $sum;
$kredit = '0';
} else {
$debet = '0';
$kredit = $sum * -1;
}
if ($valutakurs) {
$kredit = afrund($kredit * $valutakurs / 100, 3);
$debet = afrund($debet * $valutakurs / 100, 3);
}
# Omregning til DKR.
$d_kontrol = $d_kontrol + $debet;
$k_kontrol = $k_kontrol + $kredit;
$debet = afrund($debet, 2);
$kredit = afrund($kredit, 2);
#echo "A insert into transaktioner (bilag, transdate, beskrivelse, kontonr, faktura, debet, kredit, kladde_id, afd, logdate, logtime, projekt, ansat, ordre_id) values ('0', '$transdate', '$beskrivelse', '$kontonr', '$fakturanr', '$debet', '$kredit', '0', $afd, '$logdate', '$logtime', '$projekt[0]', '$ansat', '$id')<br>";
db_modify("insert into transaktioner (bilag, transdate, beskrivelse, kontonr, faktura, debet, kredit, kladde_id, afd, logdate, logtime, projekt, ansat, ordre_id) values ('0', '{$transdate}', '{$beskrivelse}', '{$kontonr}', '{$fakturanr}', '{$debet}', '{$kredit}', '0', {$afd}, '{$logdate}', '{$logtime}', '{$projekt['0']}', '{$ansat}', '{$id}')", __FILE__ . " linje " . __LINE__);
if ($valutakurs) {
$maxdif = 2;
}
#Der tillades 2 oeres afrundingsdiff
$p = 0;
$q = db_select("select distinct(projekt) from ordrelinjer where ordre_id={$id} and vare_id >\t'0'", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$p++;
$projekt[$p] = $r['projekt'] * 1;
}
$projektantal = $p;
for ($t = 1; $t <= 2; $t++) {
for ($p = 1; $p <= $projektantal; $p++) {
$y = 0;
$tjek = array();
$bogf_konto = array();
if ($t == 1) {
#echo "select * from ordrelinjer where ordre_id='$id' and projekt='$projekt[$p]' and posnr>=0<br>";
$q = db_select("select * from ordrelinjer where ordre_id='{$id}' and projekt='{$projekt[$p]}' and posnr>=0", __FILE__ . " linje " . __LINE__);
} else {
#echo "select * from ordrelinjer where ordre_id='$id' and projekt='$projekt[$p]' and posnr<0<br>";
$q = db_select("select * from ordrelinjer where ordre_id='{$id}' and projekt='{$projekt[$p]}' and posnr<0", __FILE__ . " linje " . __LINE__);
}
while ($r = db_fetch_array($q)) {
if ($valutakurs) {
$maxdif = $maxdif + 2;
}
#Og yderligere 2 pr ordrelinje.
$tmp = $projekt[$p] . ":" . $r['bogf_konto'];
if (!in_array($r['bogf_konto'], $bogf_konto)) {
$y++;
$bogf_konto[$y] = $r['bogf_konto'];
$pris[$y] = $r['pris'] * $r['antal'] - $r['pris'] * $r['antal'] * $r['rabat'] / 100;
$pris[$y] = afrund($pris[$y], 3);
#Afrunding tilfoejet 2009.01.26 grundet diff i ordre 98 i saldi_104
} else {
for ($a = 1; $a <= $y; $a++) {
if ($bogf_konto[$a] == $r['bogf_konto']) {
$pris[$a] = $pris[$a] + ($r['pris'] * $r['antal'] - $r['pris'] * $r['antal'] * $r['rabat'] / 100);
$pris[$a] = afrund($pris[$a], 3);
#Afrunding tilfoejet 2009.01.26 grundet diff i ordre 98 i saldi_104
}
}
}
}
$ordrelinjer = $y;
#echo "ol $ordrelinjer<br>";
for ($y = 1; $y <= $ordrelinjer; $y++) {
if ($bogf_konto[$y]) {
if ($pris[$y] > 0) {
$kredit = $pris[$y];
$debet = 0;
} else {
$kredit = 0;
$debet = $pris[$y] * -1;
}
if ($t == 1 && $valutakurs) {
$kredit = $kredit * $valutakurs / 100;
$debet = $debet * $valutakurs / 100;
}
# Omregning til DKR.
$kredit = afrund($kredit, 3);
$debet = afrund($debet, 3);
$d_kontrol = $d_kontrol + $debet;
$k_kontrol = $k_kontrol + $kredit;
$debet = afrund($debet, 2);
$kredit = afrund($kredit, 2);
#echo "B insert into transaktioner (bilag, transdate, beskrivelse, kontonr, faktura, debet, kredit, kladde_id, afd, logdate, logtime, projekt, ansat, ordre_id) values ('0', '$transdate', '$beskrivelse', '$bogf_konto[$y]', '$fakturanr', '$debet', '$kredit', '0','$afd', '$logdate', '$logtime', '$projekt[$p]', '$ansat', '$id')<br>";
db_modify("insert into transaktioner (bilag, transdate, beskrivelse, kontonr, faktura, debet, kredit, kladde_id, afd, logdate, logtime, projekt, ansat, ordre_id) values ('0', '{$transdate}', '{$beskrivelse}', '{$bogf_konto[$y]}', '{$fakturanr}', '{$debet}', '{$kredit}', '0','{$afd}', '{$logdate}', '{$logtime}', '{$projekt[$p]}', '{$ansat}', '{$id}')", __FILE__ . " linje " . __LINE__);
}
}
}
}
$query = db_select("select gruppe from adresser where id='{$konto_id}';", __FILE__ . " linje " . __LINE__);
$row = db_fetch_array($query);
$query = db_select("select box1 from grupper where art='DG' and kodenr='{$row['gruppe']}';", __FILE__ . " linje " . __LINE__);
$row = db_fetch_array($query);
$box1 = substr(trim($row[box1]), 1, 1);
$query = db_select("select box1 from grupper where art='SM' and kodenr='{$box1}'", __FILE__ . " linje " . __LINE__);
$row = db_fetch_array($query);
$box1 = trim($row['box1']);
if ($moms > 0) {
$kredit = $moms;
$debet = '0';
} else {
$kredit = '0';
$debet = $moms * -1;
}
if ($valutakurs) {
$kredit = afrund($kredit * $valutakurs / 100, 3);
$debet = afrund($debet * $valutakurs / 100, 3);
}
# Omregning til DKR.
$kredit = afrund($kredit, 3);
$debet = afrund($debet, 3);
$d_kontrol = $d_kontrol + $debet;
$k_kontrol = $k_kontrol + $kredit;
$diff = afrund($d_kontrol - $k_kontrol, 3);
$absdiff = abs($diff);
if ($moms && $valutakurs && $valutakurs != 100 && $absdiff >= 0.01 && $absdiff <= 0.05) {
if ($debet > 0) {
$debet = $debet + $diff;
$d_kontrol = $d_kontrol + $diff;
} elseif ($kredit > 0) {
$kredit = $kredit + $diff;
$k_kontrol = $k_kontrol + $diff;
}
}
#echo "moms $moms<br>";
$moms = afrund($moms, 2);
#echo "C insert into transaktioner (bilag, transdate, beskrivelse, kontonr, faktura, debet, kredit, kladde_id, afd, logdate, logtime, projekt, ansat, ordre_id) values ('0', '$transdate', '$beskrivelse', '$box1', '$fakturanr', '$debet', '$kredit', '0', '$afd', '$logdate', '$logtime', '$projekt[0]', '$ansat', '$id')<br>";
if ($moms) {
db_modify("insert into transaktioner (bilag, transdate, beskrivelse, kontonr, faktura, debet, kredit, kladde_id, afd, logdate, logtime, projekt, ansat, ordre_id) values ('0', '{$transdate}', '{$beskrivelse}', '{$box1}', '{$fakturanr}', '{$debet}', '{$kredit}', '0', '{$afd}', '{$logdate}', '{$logtime}', '{$projekt['0']}', '{$ansat}', '{$id}')", __FILE__ . " linje " . __LINE__);
}
$valutakurs = $valutakurs * 1;
#echo "update ordrer set status=4, valutakurs=$valutakurs where id=$id<br>";
db_modify("update ordrer set status=4, valutakurs={$valutakurs} where id={$id}", __FILE__ . " linje " . __LINE__);
db_modify("delete from ordrelinjer where ordre_id={$id} and posnr < 0", __FILE__ . " linje " . __LINE__);
}
$d_kontrol = afrund($d_kontrol, 2);
$k_kontrol = afrund($k_kontrol, 2);
#echo "$d_kontrol $k_kontrol<br>";
if ($diff = afrund($d_kontrol - $k_kontrol)) {
if ($valuta != 'DKK' && abs($diff) <= $maxdif) {
#Der maa max vaere en afvigelse paa 1 oere pr ordrelinje m fremmed valuta;
$debet = 0;
$kredit = 0;
if ($diff < 0) {
$debet = $diff * -1;
} else {
$kredit = $diff;
}
$debet = afrund($debet, 2);
$kredit = afrund($kredit, 2);
#echo "D insert into transaktioner (bilag, transdate, beskrivelse, kontonr, faktura, debet, kredit, kladde_id, afd, logdate, logtime, projekt, ansat, ordre_id) values ('0', '$transdate', '$beskrivelse', '$difkto', '$fakturanr', '$debet', '$kredit', '0', '$afd', '$logdate', '$logtime', '$projekt[0]', '$ansat', '$id')<br>";
db_modify("insert into transaktioner (bilag, transdate, beskrivelse, kontonr, faktura, debet, kredit, kladde_id, afd, logdate, logtime, projekt, ansat, ordre_id) values ('0', '{$transdate}', '{$beskrivelse}', '{$difkto}', '{$fakturanr}', '{$debet}', '{$kredit}', '0', '{$afd}', '{$logdate}', '{$logtime}', '{$projekt['0']}', '{$ansat}', '{$id}')", __FILE__ . " linje " . __LINE__);
} else {
# echo "Id $id<br>";
# echo "D $d_kontrol K $k_kontrol<br>";
$message = $db . " | Uoverensstemmelse i posteringssum: ordre_id={$id}, d={$d_kontrol}, k={$k_kontrol} | " . __FILE__ . " linje " . __LINE__ . " | " . $brugernavn . " " . date("Y-m-d H:i:s");
$headers = 'From: fejl@saldi.dk' . "\r\n" . 'Reply-To: fejl@saldi.dk' . "\r\n" . 'X-Mailer: PHP/' . phpversion();
mail('*****@*****.**', 'SALDI Fejl', $message, $headers);
if (!$webservice) {
print "<BODY onLoad=\"javascript:alert('Der er konstateret en uoverensstemmelse i posteringssummen, ordre {$ordrenr}, kontakt DANOSOFT på telefon 4690 2208')\">";
} else {
return "Der er konstateret en uoverensstemmelse i posteringssummen, ordre {$ordrenr}, kontakt DANOSOFT på telefon 4690 2208' debet {$debet} != kredit {$kredit}";
}
# print "<meta http-equiv=\"refresh\" content=\"0;URL=ordre.php?id=$id\">";
exit;
}
}
if ($title != "Massefakturering" && !$webservice) {
genberegn($regnaar);
}
return $svar;
}
$qtxt = "select id,kontonr from adresser where art = '" . substr($art[$x], 0, 1) . "' and gruppe='{$kodenr[$x]}'";
$q = db_select($qtxt, __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$adr_konto_id[$z] = $r['id'];
$adr_kontonr[$z] = $r['kontonr'];
$z++;
}
for ($z = 0; $z < count($adr_konto_id); $z++) {
#cho "$z select amount,valutakurs from openpost where udlignet='0' and konto_id='$adr_konto_id[$z]'<br>";
$qtxt = "select amount,valutakurs from openpost where udlignet='0' and konto_id='{$adr_konto_id[$z]}'<br>";
$q = db_select("select amount,valutakurs from openpost where udlignet='0' and konto_id='{$adr_konto_id[$z]}'", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$gruppesum += $r['amount'] * 100 / $r['valutakurs'];
}
}
$gruppesum = afrund($gruppesum, 3);
if ($gruppesum > 0) {
$debkred = 'kredit';
} elseif ($gruppesum < 0) {
$debkred = 'debet';
}
$gruppesum = abs($gruppesum);
if ($gruppesum) {
$posttekst = "samlekonto D{$kodenr[$x]} flyttet fra konto {$gl_smlkto} til {$box2[$x]} af {$brugernavn}";
$qtxt = "insert into transaktioner";
$qtxt .= "(kontonr,bilag,transdate,logdate,logtime,beskrivelse,{$debkred},faktura,kladde_id,afd,ansat,projekt,valuta,valutakurs,ordre_id,moms)";
$qtxt .= "values";
$qtxt .= "('{$gl_smlkto}','0','" . date("Y-m-d") . "','" . date("Y-m-d") . "','" . date("H:i") . "','{$posttekst}','{$gruppesum}','0','0','0','0','','DKK','100','0','0')";
db_modify($qtxt, __FILE__ . " linje " . __LINE__);
$debkred == 'debet' ? $debkred = 'kredit' : ($debkred = 'debet');
$qtxt = "insert into transaktioner";
function opret_saet($id, $master_id, $saetpris, $momssats, $antal_ny, $incl_moms)
{
gendan_saet($id);
# $antal_ny*=1; remmet 20150312 da værdien skal være 1 hvis der ikke er nogen værdi!
if (!$antal_ny && $antal_ny != '0') {
$antal_ny = 1;
}
$antal_ny *= 1;
if (!$antal_ny) {
return 0;
}
$saetpris *= $antal_ny;
if (!$saetpris) {
$r = db_fetch_array(db_select("select salgspris from varer where id = '{$master_id}'", __FILE__ . " linje " . __LINE__));
$saetpris = $r['salgspris'];
if ($incl_moms) {
$r = db_fetch_array(db_select("select momssats from ordrer where id = '{$id}'", __FILE__ . " linje " . __LINE__));
$momssats = $r['momssats'];
$saetpris += $saetpris * $momssats / 100;
}
}
if (!$momssats && $incl_moms) {
$r = db_fetch_array(db_select("select momssats from ordrer where id = '{$id}'", __FILE__ . " linje " . __LINE__));
$momssats = $r['momssats'];
$saetpris += $saetpris * $momssats / 100;
}
$r = db_fetch_array(db_select("select max(saet) as saetnr from ordrelinjer where ordre_id = '{$id}'", __FILE__ . " linje " . __LINE__));
$saetnr = $r['saetnr'] + 1;
$normalsum = 0;
$q = db_select("select vare_id,antal from styklister where indgaar_i = '{$master_id}'", __FILE__ . " linje " . __LINE__);
$x = 0;
while ($r = db_fetch_array($q)) {
$antal[$x] = $r['antal'] * $antal_ny;
$vare_id[$x] = $r['vare_id'];
$r2 = db_fetch_array(db_select("select varer.id,varer.varenr,varer.salgspris,varer.beskrivelse,varer.gruppe,grupper.box7 from varer,grupper where varer.id = '{$r['vare_id']}' and grupper.kodenr=varer.gruppe", __FILE__ . " linje " . __LINE__));
$varenr[$x] = $r2['varenr'];
$pris[$x] = afrund($r2['salgspris'], 2);
$beskrivelse[$x] = $r2['beskrivelse'];
$momsfri[$x] = $r2['box7'];
if ($incl_moms && $momssats && !$momsfri[$x]) {
$pris[$x] += afrund($pris[$x] * $momssats / 100, 3);
}
$linjepris[$x] = afrund($antal[$x] * $pris[$x], 3);
$normalsum += $linjepris[$x];
$x++;
}
$rabat = $normalsum - $saetpris;
$rabat = afrund($rabat * 100 / $normalsum, 3);
$tjeksum = 0;
for ($x = 0; $x < count($vare_id); $x++) {
opret_ordrelinje($id, $vare_id[$x], $varenr[$x], $antal[$x], '', $pris[$x], $rabat, 100, 'PO', '', '', '0', $incl_moms, '', '', '', $saetnr);
$linjesum = $antal[$x] * $pris[$x];
$linjesum -= afrund($linjesum * $rabat / 100, 3);
# if ($momssats && !$momsfri[$x]) $linjesum+=afrund($linjesum*$momssats/100,2);
$tjeksum += $linjesum;
}
$diff = afrund($saetpris - $tjeksum, 3);
$r = db_fetch_array(db_select("select id,varenr,salgspris,beskrivelse from varer where id = '{$master_id}'", __FILE__ . " linje " . __LINE__));
opret_ordrelinje($id, $r['id'], $r['varenr'], 1, '', $diff, 20, 100, 'PO', '', '', '0', $incl_moms, '', '', '', $saetnr);
$lev_varenr = $saetpris . "|" . $rabat;
db_modify("update ordrelinjer set samlevare='on',lev_varenr='{$lev_varenr}',kostpris='0' where ordre_id='{$id}' and saet='{$saetnr}' and vare_id='{$master_id}'", __FILE__ . " linje " . __LINE__);
}
} elseif ($deb_valuta == $valuta) {
$amount = $r2['amount'];
} else {
$amount = $dkkamount;
}
}
} else {
$dkkamount = $r1['amount'] * 100 / $valutakurs;
$amount = $r1['amount'];
}
if ($deb_valuta == 'DKK') {
$amount = $dkkamount;
}
$forfalden += afrund($amount, 2);
#20140628
$dkkforfalden += afrund($dkkamount, 2);
#20140628
$belob = dkdecimal($amount);
for ($z = 1; $z <= $var_antal; $z++) {
if ($variabel[$z] == "dato") {
$z_dato = $z;
skriv($str[$z], "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", dkdato($r1['forfaldsdato']), "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
}
if ($variabel[$z] == "faktnr") {
$z_faktnr = $z;
skriv($str[$z], "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$r1['faktnr']}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
}
if ($variabel[$z] == "beskrivelse") {
$z_beskrivelse = $z;
skriv($str[$z], "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$r1['beskrivelse']}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
}
if ($ordreliste[$x]) {
if (!in_array($ordreliste[$x], $ordre_id)) {
$ordreliste[$x] = 0;
} else {
# 20131001 ->
$r = db_fetch_array(db_select("select momssats from ordrer where id = '{$ordreliste[$x]}'", __FILE__ . " linje " . __LINE__));
$momssats = $r['momssats'];
$bl_moms = 0;
$momssum = 0;
$ordresum = 0;
$q = db_select("select antal,pris,rabat,momsfri from ordrelinjer where ordre_id = '{$ordreliste[$x]}' and vare_id>'0'", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$linjesum = afrund($r['antal'] * ($r['pris'] - $r['pris'] * $r['rabat'] / 100), 2);
$ordresum += $linjesum;
if ($momssats && !$r['momsfri']) {
$momssum += afrund($linjesum * $momssats / 100, 2);
} elseif ($momssats && $r['momsfri']) {
$bl_moms = 1;
}
}
if ($momssats && !$bl_moms) {
$momssum = $ordresum * $momssats / 100;
}
db_modify("update ordrer set sum='{$ordresum}',moms='{$momssum}' where id='{$ordreliste[$x]}' and status < '3'", __FILE__ . " linje " . __LINE__);
}
}
}
if ($submit == 'Fakturer' && !$fejltekst) {
$y = 0;
$udskriv = NULL;
for ($x = 0; $x <= $ordreantal; $x++) {
function pos_moms($momskode)
{
$query = db_select("select box1 from grupper where art='SM' and kodenr='{$momskode}'", __FILE__ . " linje " . __LINE__);
$row = db_fetch_array($query);
$box1 = trim($row['box1']);
if ($moms > 0) {
$kredit = $moms;
$debet = '0';
} else {
$kredit = '0';
$debet = $moms * -1;
}
if ($valutakurs) {
$kredit = afrund($kredit * $valutakurs / 100, 3);
$debet = afrund($debet * $valutakurs / 100, 3);
}
# Omregning til DKR.
$kredit = afrund($kredit, 3);
$debet = afrund($debet, 3);
$d_kontrol = $d_kontrol + $debet;
$k_kontrol = $k_kontrol + $kredit;
$diff = afrund($d_kontrol - $k_kontrol, 3);
$absdiff = abs($diff);
if ($moms && $valutakurs && $valutakurs != 100 && $absdiff >= 0.01 && $absdiff <= 0.05) {
if ($debet > 0) {
$debet = $debet + $diff;
$d_kontrol = $d_kontrol + $diff;
} elseif ($kredit > 0) {
$kredit = $kredit + $diff;
$k_kontrol = $k_kontrol + $diff;
}
}
#echo "moms $moms<br>";
$moms = afrund($moms, 2);
return $moms;
}
function formularprint($id, $formular, $lev_nr, $charset, $udskriv_alle_til)
{
print "<!--function formularprint start-->";
include "../includes/std_func.php";
include "../includes/var2str.php";
global $db;
global $db_id;
global $dkdato;
global $form_id;
global $charset;
global $formularsprog;
global $fp;
global $gebyr;
global $ialt;
# global $id;
global $lev_nr;
global $linjeafstand;
global $logo;
global $logoart;
global $moms;
global $momsgrundlag;
global $momssats;
global $nextside;
global $printerid;
global $ref;
global $side;
global $subtotal;
global $sum;
global $transportsum;
global $y;
global $ya;
global $mailantal;
global $bruger_id;
global $sprog_id;
global $exec_path;
global $vis_saet;
global $brugsamletpris;
$fp1 = NULL;
$kommentarprint = NULL;
$skjul_nul_lin = NULL;
$folgeseddel = 0;
$mailantal = 0;
$nomailantal = 0;
$side_x = 210;
$side_y = 297;
$side_x = afrund($side_x * 2.86, 0);
$side_y = afrund($side_y * 2.86, 0);
$preview = NULL;
$initext = "%!\n%%Creator: Saldi\n%%Pages: 1\n%%BoundingBox: 0 0 {$side_x} {$side_y}\n%%EndComments\n<< /PageSize [{$side_x} {$side_y}] >> setpagedevice\n";
#$initext="%!\n%%Creator: Saldi\n%%Pages: 1\n%%EndComments\n";
$form = array();
$q = db_SELECT("select box2,box14 from grupper where art = 'DIV' and kodenr = '3'", __FILE__ . " linje " . __LINE__);
$r = db_fetch_array($q);
$rabatvare_id = $r['box2'] * 1;
$brugsamletpris = $r['box14'];
if ($vis_saet) {
$brugsamletpris = 'on';
}
if ($id == -1) {
# Saa er der flere fakturaer
$ordre_antal = $_GET['ordre_antal'];
$ordre_id = explode(",", $_GET['skriv']);
if (strpos($formular, ",")) {
list($formular, $folgeseddel) = explode(",", $formular);
}
} elseif (!is_numeric($id)) {
$preview = 1;
$ordre_id[0] = 0;
$ordre_antal = 1;
} else {
$ordre_id[0] = $id;
$ordre_antal = 1;
}
if ($formular == 3) {
$folgeseddel = 1;
}
if ($formular != 3 && $folgeseddel) {
for ($q = 0; $q < $ordre_antal; $q++) {
$form[$q] = $formular;
$r = db_fetch_array(db_select("select lev_addr1,lev_postnr from ordrer where id = {$ordre_id[$q]}", __FILE__ . " linje " . __LINE__));
if ($r['lev_addr1'] && $r['lev_postnr']) {
$form[$q] = 3;
$ordre_antal++;
for ($z = $ordre_antal; $z > $q; $z--) {
$ordre_id[$z] = $ordre_id[$z - 1];
}
$q++;
$form[$q] = $formular;
}
}
}
$r = db_fetch_array(db_select("select box6,box12 from grupper where art = 'POS' and kodenr = '2'", __FILE__ . " linje " . __LINE__));
$vis_saet = trim($r['box12']);
if ($vis_saet) {
$brugsamletpris = 'on';
}
$r = db_fetch_array(db_select("select * from grupper where art='DIV' and kodenr='3'", __FILE__ . " linje " . __LINE__));
$incl_moms = $r['box1'];
if ($folgeseddel) {
$kommentarprint = $r['box3'];
$skjul_nul_lin = $r['box8'];
}
$fsize = filesize("../includes/faktinit.ps");
$initfil = fopen("../includes/faktinit.ps", "r");
$initext = $initext . fread($initfil, $fsize);
fclose($initfil);
if (!file_exists("../temp/{$db}")) {
mkdir("../temp/{$db}", 0775);
}
$mappe = "../temp/{$db}/{$bruger_id}" . "_*";
system("rm -r {$mappe}");
$mappe = "../temp/{$db}/" . abs($bruger_id) . "_" . date("his");
mkdir("{$mappe}", 0775);
if ($ordre_antal > 1) {
$printfilnavn = 'udskrift';
if ($formular <= 1) {
$printfilnavn = "tilbud";
}
if ($formular == 2) {
$printfilnavn = "ordrebek";
}
if ($formular == 3) {
$printfilnavn = "flg_seddel";
}
if ($formular == 4) {
$printfilnavn = "faktura";
}
if ($formular == 9) {
$printfilnavn = "plukliste";
}
if ($formular == 12) {
$printfilnavn = "forslag";
}
if ($formular == 13) {
$printfilnavn = "rekvisition";
}
if ($formular == 14) {
$printfilnavn = "lev_fakt";
}
$fp1 = fopen("{$mappe}/{$printfilnavn}", "w");
}
for ($o = 0; $o < $ordre_antal; $o++) {
$fp = $fp1;
if (isset($form[$o])) {
$formular = $form[$o];
}
$varenr = array();
$lev_varenr = array();
$leveres = array();
$vare_id = array();
$linje_id = array();
$antal = array();
$tidl_lev = array();
$rest = array();
$enhed = array();
$rabat = array();
$momssats = array();
$pris = array();
$l_sum = array();
$linjesum = array();
$sum = '';
$transportsum = 0;
if ($preview) {
$ref = 'Egen ref';
$ordrenr = 'Ordrenummer';
$fakturanr = 'Fakturanummer';
$mail_fakt = '';
$email[0] = 'Kundens email';
$pbs = '';
} else {
$query = db_select("select afd,status,email,ordrenr,fakturanr,mail_fakt,pbs,art,ref,sprog,udskriv_til,mail_subj,mail_text,dokument,procenttillag from ordrer where id = '{$ordre_id[$o]}'", __FILE__ . " linje " . __LINE__);
$row = db_fetch_array($query);
$status = $row['status'];
$afd = $row['afd'];
$art = $row['art'];
$ref = $row['ref'];
$ordrenr = $row['ordrenr'];
if (!$udskriv_alle_til) {
$udskriv_til = $row['udskriv_til'];
} else {
$udskriv_til = $udskriv_alle_til;
}
$fakturanr = $row['fakturanr'];
$mail_fakt = $row['mail_fakt'];
$email[0] = $row['email'];
$pbs = $row['pbs'];
$mail_subj = $row['mail_subj'];
$mail_text = $row['mail_text'];
$mail_bilag = $row['dokument'];
$procenttillag = $row['procenttillag'] * 1;
# $ordresum=$row['sum'];
# $ordremomssum=$row['moms'];
$formularsprog = strtolower($row['sprog']);
if (!$formularsprog) {
$formularsprog = "dansk";
}
if ($formular == 4 || $formular == 5) {
if (!$fakturanr) {
#20130508
return "Fakturering afbrudt (Fakturanr mangler)";
} elseif ($row['status'] < 3) {
#20130508
return "Fakturering afbrudt (Status ikke opdateret)";
} elseif ($row['art'] == "DK") {
$formular = 5;
} else {
$formular = 4;
}
}
$y = 185;
$antal_ordrelinjer = 25;
$x = 0;
$r = db_fetch_array(db_SELECT("select adresser.gruppe,ordrer.procenttillag from ordrer,adresser where ordrer.id = '{$ordre_id[$o]}' and adresser.id=ordrer.konto_id", __FILE__ . " linje " . __LINE__));
$gruppe = $r['gruppe'];
$procenttillag = $r['procenttillag'];
$r = db_fetch_array(db_select("select box8 from grupper where art='DG' and kodenr='{$gruppe}'", __FILE__ . " linje " . __LINE__));
$b2b = $r['box8'];
}
$bgr = "bg";
if ($formular == 5 && file_exists("../logolib/{$db_id}/kreditnota_bg.pdf")) {
$bgr = "kreditnota_bg";
} elseif ($formular >= 3 && file_exists("../logolib/{$db_id}/faktura_bg.pdf")) {
$bgr = "faktura_bg";
} elseif ($formular == 2 && file_exists("../logolib/{$db_id}/ordrer_bg.pdf")) {
$bgr = "ordrer_bg";
} elseif ($formular <= 1 && file_exists("../logolib/{$db_id}/tilbud_bg.pdf")) {
$bgr = "tilbud_bg";
}
#cho "formular: $formular bg: $bgr<br>";
#exit();
print "<!-- kommentar for at skjule uddata til siden \n";
if (!file_exists("../logolib/{$db_id}")) {
mkdir("../logolib/{$db_id}");
}
if (system("which pdftk") && file_exists("../logolib/{$db_id}/{$bgr}.pdf")) {
$logoart = 'PDF';
} elseif ($udskriv_til == 'PDF-tekst') {
$logoart = 'PDF';
} elseif (file_exists("../logolib/{$db_id}/{$formular}.ps")) {
$logo = "../logolib/{$db_id}/{$formular}.ps";
$logoart = 'PS';
} elseif (file_exists("../logolib/{$db_id}/{$bgr}.ps")) {
$logo = "../logolib/{$db_id}/{$bgr}.ps";
$logoart = 'PS';
} else {
$query = db_select("select * from formularer where formular = '{$formular}' and art = '1' and beskrivelse = 'LOGO' and lower(sprog)='{$formularsprog}'", __FILE__ . " linje " . __LINE__);
if ($row = db_fetch_array($query)) {
$logo_X = $row['xa'] * 2.86;
$logo_Y = $row['ya'] * 2.86;
} else {
$logo_X = 430;
$logo_Y = 758;
}
if (file_exists("../logolib/logo_{$db_id}.eps")) {
$logo = "../logolib/logo_{$db_id}.eps";
} else {
$logo = "../logolib/logo.eps";
}
$logoart = 'EPS';
}
print "-->\n";
if ($logoart != 'PDF') {
$fsize = filesize($logo);
$logofil = fopen($logo, "r");
$translate = 0;
$logo = "";
while (!feof($logofil)) {
$linje = fgets($logofil);
if ($logoart == 'EPS') {
if (substr($linje, 0, 2) != "%!") {
if (strstr($linje, "translate") && !$translate) {
$linje = "{$logo_X} {$logo_Y} translate \n";
$translate = 1;
}
$logo = $logo . $linje;
}
} else {
if (strstr($linje, 'showpage')) {
$linje = '';
}
if (strstr($linje, '%%PageTrailer')) {
$linje = '';
}
if (strstr($linje, '%%Trailer')) {
$linje = '';
}
if (strstr($linje, '%%Pages:')) {
$linje = '';
}
if (strstr($linje, '%%EOF')) {
$linje = '';
}
$logo = $logo . $linje;
}
}
fclose($logofil);
}
#cho "select * from formularer where formular = '$formular' and art = '3' and lower(sprog)='$formularsprog'<br>";
$query = db_select("select * from formularer where formular = '{$formular}' and art = '3' and lower(sprog)='{$formularsprog}'", __FILE__ . " linje " . __LINE__);
while ($row = db_fetch_array($query)) {
if ($row['beskrivelse'] == 'generelt') {
$antal_ordrelinjer = $row['xa'];
$ya = $row['ya'];
$linjeafstand = $row['xb'];
# $Opkt=$y-($antal_ordrelinjer*$linjeafstand);
} else {
$x++;
$variabel[$x] = $row['beskrivelse'];
$justering[$x] = $row['justering'];
$xa[$x] = $row['xa'];
$str[$x] = $row['str'];
$laengde[$x] = $row['xb'];
$color[$x] = $row['color'];
$fed[$x] = $row['fed'];
$kursiv[$x] = $row['kursiv'];
$form_font[$x] = $row['font'];
}
$var_antal = $x;
}
if ($formular == 3 && !$lev_nr) {
$r2 = db_fetch_array(db_select("select MAX(lev_nr) as lev_nr from batch_salg where ordre_id = {$ordre_id[$o]}", __FILE__ . " linje " . __LINE__));
$lev_nr = $r2['lev_nr'] * 1;
}
if ($formular == 3 || $formular == 9) {
$udskriv_til = 'PDF';
}
if ($mail_fakt && $formular != 3 && $udskriv_til != 'PDF') {
$mailantal++;
if ($formular <= 1) {
$pfnavn = "tilbud" . $ordrenr;
}
if ($formular == 2) {
$pfnavn = "ordrebek" . $ordrenr;
}
if ($formular == 4) {
$pfnavn = "fakt" . $fakturanr;
}
if ($formular == 5) {
$pfnavn = "kn" . $fakturanr;
}
if ($formular == 9) {
$pfnavn = "plukliste" . $ordrenr;
}
if ($formular == 12) {
$printfilnavn = "forslag" . $ordrenr;
}
if ($formular == 13) {
$printfilnavn = "rekvisition.{$ordrenr}";
}
if ($formular == 14) {
$printfilnavn = "lev_fakt.{$ordrenr}";
}
$email[$mailantal] = $email[0];
$mailsprog[$mailantal] = $formularsprog;
$form_nr[$mailantal] = $formular;
$pfliste[$mailantal] = $pfnavn;
$pfnavn = $mappe . "/" . $pfnavn;
$fp2 = fopen("{$pfnavn}", "w");
$fp = $fp2;
} else {
$nomailantal++;
if ($ordre_antal <= 1) {
#mere sige navn til udskrifter.
if ($formular <= 1) {
$printfilnavn = "tilbud" . $ordrenr;
}
if ($formular == 2) {
$printfilnavn = "ordrebek" . $ordrenr;
}
if ($formular == 3) {
$printfilnavn = "flgs" . $ordrenr . "_" . $lev_nr;
}
if ($formular == 4) {
$printfilnavn = "fakt" . $fakturanr;
}
if ($formular == 5) {
$printfilnavn = "kn" . $fakturanr;
}
if ($formular == 9) {
$printfilnavn = "plukliste" . $ordrenr;
}
if ($formular == 12) {
$printfilnavn = "forslag" . $ordrenr;
}
if ($formular == 13) {
$printfilnavn = "rekvisition.{$ordrenr}";
}
if ($formular == 14) {
$printfilnavn = "lev_fakt.{$ordrenr}";
}
$pfnavn = $mappe . "/" . $printfilnavn;
$fp = fopen("{$pfnavn}", "w");
}
}
$side = 1;
if ($logoart == 'PS') {
fwrite($fp, $logo);
}
fwrite($fp, $initext);
$rabat[0] = formulartekst($ordre_id[$o], $formular, $formularsprog);
if ($ordre_id[$o]) {
$id = $ordre_id[$o];
$x = 0;
$sum = 0;
$moms = 0;
$momssum = 0;
$tmp = 0;
$saetnr = 0;
#cho "$formular<br>";
#xit;
if ($preview) {
for ($x = 1; $x <= 22; $x++) {
$posnr[$x] = $x;
$varenr[$x] = utf8_iso8859('Varenr') . $x;
$projekt[$x] = utf8_iso8859('Projektnr');
$beskrivelse[$x] = utf8_iso8859('Eksempel på en linjetekst');
}
} else {
if ($brugsamletpris) {
$r = db_fetch_array(db_select("select varenr from ordrelinjer where ordre_id = {$ordre_id[$o]} and vare_id='{$rabatvare_id}'", __FILE__ . " linje " . __LINE__));
if ($r['varenr']) {
$rabatvarenr = $r['varenr'];
$rvnr = 1;
} else {
$rvnr = 0;
}
}
# if ($rvnr) $qtxt="select * from ordrelinjer where ordre_id = '$ordre_id[$o]' order by saet,posnr";
# else
#20150302
if ($brugsamletpris && $formular == 3) {
$qtxt = "select * from ordrelinjer where ordre_id = '{$ordre_id[$o]}' and samlevare != 'on' and varenr != '{$rabatvarenr}' order by posnr";
} else {
$qtxt = "select * from ordrelinjer where ordre_id = '{$ordre_id[$o]}' order by posnr";
}
$q = db_select($qtxt, __FILE__ . " linje " . __LINE__);
while ($row = db_fetch_array($q)) {
if ($row['posnr'] > 0 && (!$row['samlevare'] || !is_numeric($row['samlevare'])) && (!in_array($row['posnr'], $posnr) || $formular != 3)) {
# if ($x>=1 && $row['saet'] && !$saet[$x]) {
# $x++;
# $beskrivelse[$x]=" ";
# $saet[$x]=0;
# $samlevare[$x]=0;
# } elseif ($x>=1 && $saet[$x] && $samlevare[$x]) {
# $x--;
# }
$x++;
$posnr[$x] = trim($row['posnr']);
$varenr[$x] = trim($row['varenr']);
$lev_varenr[$x] = trim($row['lev_varenr']);
$projekt[$x] = $row['projekt'];
$beskrivelse[$x] = stripslashes(trim($row['beskrivelse']));
if ($varenr[$x]) {
$vare_id[$x] = $row['vare_id'];
$linje_id[$x] = $row['id'];
$antal[$x] = $row['antal'] * 1;
$leveres[$x] = $row['leveres'] * 1;
$dkantal[$x] = str_replace(".", ",", $antal[$x]);
$momsfri[$x] = $row['momsfri'];
$omvbet[$x] = $row['omvbet'];
$saet[$x] = $row['saet'];
$samlevare[$x] = $row['samlevare'];
#cho "$posnr[$x] $saet[$x] $samlevare[$x]<br>";
$varemomssats[$x] = $row['momssats'] * 1;
if (!$momsfri[$x] && !$varemomssats[$x]) {
$varemomssats[$x] = $momssats;
}
if ($varemomssats[$x] > $momssats) {
$varemomssats[$x] = $momssats;
}
list($a, $b) = explode(",", $dkantal[$x]);
if ($b) {
$dkantal[$x] = "{$a},{$b}";
} else {
$dkantal[$x] = $a;
}
if ($formular == 5) {
$antal[$x] = $antal[$x] * -1;
$dkantal[$x] = str_replace("-", "", $dkantal[$x]);
}
if ($formular == 3 || $formular == 9) {
if (in_array('lokation', $variabel)) {
$r2 = db_fetch_array(db_select("select location from varer where id='{$vare_id[$x]}'", __FILE__ . " linje " . __LINE__));
if ($r2['location']) {
if ($afd && strstr($r2['location'], "|")) {
# 20150417 Ændret strpos til strstr
$lokation = array();
$lokation = explode("|", $r2['location']);
$beskrivelse[$x] .= chr(9) . $lokation[$afd - 1];
} else {
$beskrivelse[$x] .= chr(9) . $r2['location'];
}
}
}
$lev_nr *= 1;
$lev_antal[$x] = 0;
$q2 = db_select("select antal from batch_salg where linje_id = {$linje_id[$x]} and lev_nr = {$lev_nr}", __FILE__ . " linje " . __LINE__);
while ($r2 = db_fetch_array($q2)) {
$lev_antal[$x] = $lev_antal[$x] + $r2['antal'];
}
$tidl_lev[$x] = 0;
$q2 = db_select("select antal from batch_salg where linje_id = {$linje_id[$x]} and lev_nr < {$lev_nr}", __FILE__ . " linje " . __LINE__);
while ($r2 = db_fetch_array($q2)) {
$tidl_lev[$x] = $tidl_lev[$x] + $r2['antal'];
}
$rest[$x] = $antal[$x] - $lev_antal[$x] - $tidl_lev[$x];
}
$enhed[$x] = $row['enhed'];
$pris[$x] = $row['pris'];
# if ($rvnr) {
# if ($varenr[$x]=='R') list($pris[$x])=explode("|",$row['lev_varenr']);
# $rabat[$x]=0;
# } else {
$rabat[$x] = $row['rabat'];
# }
$procent[$x] = $row['procent'];
$row['rabat'] != 0 ? $m_rabat[$x] = 0 : ($m_rabat[$x] = $row['m_rabat'] * 1);
$rabatart[$x] = $row['rabatart'];
if ($rabatart[$x] == "amount") {
$l_sum[$x] = afrund(($pris[$x] - $rabat[$x]) * $antal[$x], 2);
$linjesum[$x] = ($pris[$x] - $rabat[$x]) * $antal[$x];
$linjemoms[$x] = $varemomssats[$x] / 100 * (($pris[$x] - $rabat[$x]) * $antal[$x]);
} else {
$l_sum[$x] = afrund($row['pris'] * $antal[$x] - $pris[$x] * $antal[$x] * $rabat[$x] / 100, 2);
#Afrunding tilfoejet 2009.01.26 grundet diff i ordre 98 i saldi_104
$linjesum[$x] = $row['pris'] * $antal[$x] - $pris[$x] * $antal[$x] * $rabat[$x] / 100;
$linjemoms[$x] = $varemomssats[$x] / 100 * ($pris[$x] * $antal[$x] - $row['pris'] * $antal[$x] * $rabat[$x] / 100);
}
if ($momsfri[$x] == 'on' || $omvbet[$x]) {
$linjemoms[$x] = 0;
}
if ($procent[$x] || $procent[$x] == '0') {
$l_sum[$x] = afrund($l_sum[$x] - $l_sum[$x] * (100 - $procent[$x]) / 100, 2);
$linjesum[$x] = afrund($linjesum[$x] - $linjesum[$x] * (100 - $procent[$x]) / 100, 2);
$linjemoms[$x] = afrund($linjemoms[$x] - $linjemoms[$x] * (100 - $procent[$x]) / 100, 2);
}
$sum += $linjesum[$x];
if ($momsfri[$x] != 'on' && !$omvbet[$x]) {
$moms += afrund($l_sum[$x] * $varemomssats[$x] / 100, 3);
#Decimaltal aendret til 3 2010.12.17 grundet momsdiff (0,01 kr) i ordre id 371 i saldi_297
$momssum += afrund($linjesum[$x], 2);
#Afrunding tilfoejet 2009.01.26 grundet diff i ordre 98 i saldi_104
if ($incl_moms && !$b2b) {
$tmp = afrund($pris[$x] + $pris[$x] * $varemomssats[$x] / 100, 2);
if ($rabatart[$x] == "amount") {
$linjesum[$x] = ($tmp - $rabat[$x]) * $antal[$x];
} else {
$linjesum[$x] = $tmp * $antal[$x] - $tmp * $antal[$x] * $rabat[$x] / 100;
}
$pris[$x] = $tmp;
}
}
if ($rvnr) {
if ($varenr[$x] == $rabatvarenr) {
list($pris[$x]) = explode("|", $row['lev_varenr']);
}
$rabat[$x] = 0;
$linjesum[$x] = ($pris[$x] - $rabat[$x]) * $antal[$x];
}
} else {
$dkantal[$x] = NULL;
$varemomssats[$x] = NULL;
}
$beskrivelse[$x] = var2str($beskrivelse[$x], $ordre_id[$o], $posnr[$x], $varenr[$x], $dkantal[$x], $enhed[$x], $pris[$x], $procent[$x], $serienr[$x], $varemomssats[$x], $rabat[$x]);
if ($formular == 3 && $skjul_nul_lin && !$lev_antal[$x]) {
$varenr[$x] = NULL;
}
#
} else {
$dkantal[$x] = NULL;
}
if ($saet[$x]) {
if ($lev_varenr[$x]) {
list($linjesum[$x]) = explode("|", $lev_varenr[$x], 2);
$dkantal[$x] = '';
} else {
$linjesum[$x] = '';
}
$pris[$x] = '';
/*
if ($saetnr && $saetnr!=$saet[$x]) {
$r=db_fetch_array(db_select("select beskrivelse from varer where id = '$svid'",__FILE__ . " linje " . __LINE__));
$beskrivelse[$x]=$r['beskrivelse'];
$linjesum[$x]=$saetpris;
$saet[$x]=0;
$saetpris=0;
$saetpris=afrund($linjesum[$x-1],2);
} else $saetpris+=afrund($linjesum[$x],2);
$saetnr=$saet[$x];
*/
}
}
/*
if ($saet[$x] && $saetnr) {
$x++;
$r=db_fetch_array(db_select("select beskrivelse from varer where id = '$svid'",__FILE__ . " linje " . __LINE__));
$beskrivelse[$x]=$r['beskrivelse'];
$linjesum[$x]=$saetpris;
$saetpris=0;
}
*/
$tmp = $row['rabat'] * 1;
if ($x > 0 && $formular < 4 && !$tmp && $m_rabat[$x] && $status < 3) {
$y = $x;
$x++;
$posnr[$x] = $posnr[$y];
$vare_id[$x] = $vare_id[$y];
$varenr[$x] = $varenr[$y];
$lev_varenr[$x] = $lev_varenr[$y];
$antal[$x] = $antal[$y];
$projekt[$x] = $projekt[$y];
# $beskrivelse[$x]=findtekst(366,$sprog_id);
$dkantal[$x] = $dkantal[$y];
$lev_antal[$x] = $lev_antal[$y];
$leveres[$x] = $leveres[$y];
$tidl_lev[$x] = $tidl_lev[$y];
$rest[$x] = $rest[$y];
$enhed[$x] = '';
$rabat[$x] = $rabat[$y];
$incl_moms && !$b2b ? $tmp = $m_rabat[$y] + $m_rabat[$y] * $varemomssats[$y] / 100 : ($tmp = $m_rabat[$y]);
$pris[$x] = $tmp * -1;
$rabatpct = afrund($tmp * 100 / usdecimal($pris[$y]), 2);
$l_sum[$x] = afrund($tmp * -$antal[$x], 3);
$linjesum[$x] = $l_sum[$x];
# $linjesum[$x]=dkdecimal($l_sum[$x]);
if ($varemomssats[$y] > 0) {
$linjemoms[$x] = $varemomssats[$y] * $linjesum[$x] * 0.01;
} else {
$linjemoms[$x] = $varemomssats[$y] * $linjesum[$x];
}
$sum += $l_sum[$x];
if ($momsfri[$y] != 'on' && !$omvbet[$x]) {
$moms += afrund($m_rabat[$y] * $antal[$x] * $varemomssats[$y] / -100, 3);
$momssum = $momssum + afrund($m_rabat[$y] * -$antal[$x], 2);
}
$rabatart[$x] == 'amount' ? $beskrivelse[$x] = findtekst(466, $sprog_id) : ($beskrivelse[$x] = findtekst(467, $sprog_id));
$beskrivelse[$x] = str_replace('$rabatpct', $rabatpct, $beskrivelse[$x]);
}
$linjeantal = $x;
}
if ($status < 3 && $procenttillag > 0) {
$r = db_fetch_array(db_select("select box13 from grupper where art = 'DIV' and kodenr = '3'", __FILE__ . " linje " . __LINE__));
list($tmp, $procentvare) = explode(chr(9), $r['box13']);
if ($procentvare && ($r = db_fetch_array(db_select("select beskrivelse from varer where varenr='{$procentvare}'", __FILE__ . " linje " . __LINE__)))) {
$x++;
$linjeantal++;
$posnr[$x] = $posnr[$x - 1] + 1;
$varenr[$x] = $procentvare;
$beskrivelse[$x] = $r['beskrivelse'];
$procent[$x] = $r['procent'];
$dkantal[$x] = 1;
$linjesum[$x] = $sum * $procenttillag / 100;
if ($momssats) {
$momssum += $linjesum[$x];
}
$linjemoms[$x] = $linjesum[$x] / 100 * $momssats;
$sum += $sum * $procenttillag / 100;
$moms += $linjemoms[$x];
$pris[$x] = $linjesum[$x];
}
}
$y = $ya;
$y_tjek = $y;
$Opkt = $y - $antal_ordrelinjer * $linjeafstand;
for ($x = 1; $x <= $linjeantal; $x++) {
$beskrivelse[$x] = str_replace('$procenttillæg;', dkdecimal($procenttillag), $beskrivelse[$x]);
$beskrivelse[$x] = str_replace('$procenttillæg', dkdecimal($procenttillag), $beskrivelse[$x]);
$beskrivelse[$x] = str_replace('$antal;', $dkantal[$x], $beskrivelse[$x]);
$beskrivelse[$x] = str_replace('$pris;', $pris[$x], $beskrivelse[$x]);
$beskrivelse[$x] = str_replace('$linjesum;', $linjesum[$x], $beskrivelse[$x]);
$beskrivelse[$x] = str_replace('$varenr;', $varenr[$x], $beskrivelse[$x]);
$beskrivelse[$x] = str_replace('$rabat;', $rabat[$x], $beskrivelse[$x]);
$beskrivelse[$x] = str_replace('$procent;', $procent[$x], $beskrivelse[$x]);
$beskrivelse[$x] = str_replace('$antal', $dkantal[$x], $beskrivelse[$x]);
$beskrivelse[$x] = str_replace('$pris', $pris[$x], $beskrivelse[$x]);
$beskrivelse[$x] = str_replace('$linjesum', $linjesum[$x], $beskrivelse[$x]);
$beskrivelse[$x] = str_replace('$varenr', $varenr[$x], $beskrivelse[$x]);
$beskrivelse[$x] = str_replace('$rabat', $rabat[$x], $beskrivelse[$x]);
$beskrivelse[$x] = str_replace('$procent', $procent[$x], $beskrivelse[$x]);
if ($charset == "utf-8") {
$varenr[$x] = utf8_iso8859($varenr[$x]);
$lev_varenr[$x] = utf8_iso8859($lev_varenr[$x]);
$beskrivelse[$x] = utf8_iso8859($beskrivelse[$x]);
}
/*
if ($saet[$x]) {
$linjesum[$x]='';
$linjemoms[$x]='';
$pris[$x]='';
$rabat[$x]='';
$procent[$x]='';
} else {
*/
$linjesum[$x] = dkdecimal($linjesum[$x]);
$linjemoms[$x] = dkdecimal($linjemoms[$x]);
$pris[$x] = dkdecimal($pris[$x]);
$rabat[$x] = dkdecimal($rabat[$x]);
$procent[$x] = dkdecimal($procent[$x]);
# }
$transportsum = $transportsum + $l_sum[$x - 1];
$skriv = 0;
if ($kommentarprint == 'on' || $formular != 3 || $varenr[$x]) {
$skriv = 1;
}
#Fordi tekst uden varenr ikke skal med paa foelgesedlen med mindre det er angivet i "formularprint";
# if ($saet[$x] && $samlevare[$x]) $skriv=0; #Fordi tekst uden varenr ikke skal med paa foelgesedlen med mindre det er angivet i "formularprint";
if ($skriv) {
for ($z = 1; $z <= $var_antal; $z++) {
if (substr($variabel[$z], 0, 8) == "fritekst") {
$tmp = substr($variabel[$z], 9);
$svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$tmp}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
}
if ($y_tjek != $y) {
#Det først skrevne felt på en linje bliver "ædt" ved sideskift. Derfor dette dummy felt.
$svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
$y_tjek = $y;
}
if ($variabel[$z] == "posnr") {
$svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$posnr[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
} elseif ($variabel[$z] == "varenr") {
$svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$varenr[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
} elseif ($variabel[$z] == "lev_varenr") {
$svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$lev_varenr[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
} elseif ($variabel[$z] == "leveres") {
$svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$leveres[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
} elseif ($variabel[$z] == "projekt") {
$svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$projekt[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
} elseif ($variabel[$z] == "antal") {
$svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$dkantal[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
} elseif ($variabel[$z] == "lev_antal") {
$svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$lev_antal[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
} elseif ($variabel[$z] == "tidl_lev") {
$svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$tidl_lev[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
} elseif ($variabel[$z] == "lev_rest") {
$svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$rest[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
} elseif ($variabel[$z] == "pris") {
$svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$pris[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
} elseif ($variabel[$z] == "enhed") {
$svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$enhed[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
} elseif ($variabel[$z] == "momssats") {
$svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$varemomssats[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
} elseif ($variabel[$z] == "rabat") {
$svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$rabat[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
} elseif ($variabel[$z] == "procent") {
$svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$procent[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
} elseif ($variabel[$z] == "linjemoms") {
$svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$linjemoms[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
} elseif ($variabel[$z] == "varemomssats") {
$svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$varemomssats[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
} elseif ($variabel[$z] == "linjesum") {
$svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$linjesum[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
} elseif ($variabel[$z] != "beskrivelse" && $variabel[$z] != "lokation") {
$svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$variabel[$z]}", "fritekst_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
} elseif ($variabel[$z] == "beskrivelse") {
$skriv_beskriv[$x] = $z;
}
}
if ($z = $skriv_beskriv[$x]) {
$y2 = ombryd("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$beskrivelse[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", $laengde[$z], $formular, $linjeafstand);
}
$y = $y2;
if ($y == 0) {
$y = $ya;
}
$y = $y - $linjeafstand;
}
}
if ($brugsamletpris) {
$r = db_fetch_array(db_select("select sum,moms from ordrer where id = '{$id}'"));
$sum = $r['sum'];
$moms = $r['moms'];
}
$momssum = afrund($momssum, 2);
$sum = afrund($sum, 2);
$ialt = dkdecimal($sum + $moms);
$momsgrundlag = dkdecimal($momssum);
$moms = dkdecimal($moms);
$sum = dkdecimal($sum);
}
if ($id) {
find_form_tekst($id, 'S', $formular, 0, $linjeafstand, "");
}
# Sum paa sidste side.
if ($ordre_id[$o]) {
bundtekst($ordre_id[$o]);
}
# Uden denne skrives kun side 1
if ($mail_fakt) {
fclose($fp2);
}
#cho "$o A $ordre_id[$o] $mappe/$pfliste[$o]<br>";
}
fclose($fp);
#cho "$mailantal -> $nomailantal<br>";
#xit;
if ($mailantal > 0) {
ini_set("include_path", ".:../phpmailer");
require "class.phpmailer.php";
if (!isset($exec_path)) {
$exec_path = "/usr/bin";
}
for ($x = 1; $x <= $mailantal; $x++) {
#cho "$x B $ordre_id[$x] $mappe/$pfliste[$x]<br>";
print "<!-- kommentar for at skjule uddata til siden \n";
system("{$exec_path}/ps2pdf {$mappe}/{$pfliste[$x]} {$mappe}/{$pfliste[$x]}.pdf");
print "--> \n";
if ($logoart == 'PDF') {
print "<!-- kommentar for at skjule uddata til siden \n";
$out = $mappe . "/" . $pfliste[$x] . "x.pdf";
system("{$exec_path}/pdftk {$mappe}/{$pfliste[$x]}.pdf background ../logolib/{$db_id}/{$bgr}.pdf output {$out}");
# unlink ("$mappe/$pfliste[$x].pdf");
system("mv {$out} {$mappe}/{$pfliste[$x]}.pdf");
print "--> \n";
}
$o = $x - 1;
$svar = send_mails("{$ordre_id[$o]}", "{$mappe}/{$pfliste[$x]}.pdf", $email[$x], $mailsprog[$x], $form_nr[$x], "{$mail_subj}", "{$mail_text}", "{$mail_bilag}", $x);
# return($svar);
}
}
#if ($mailantal>0) include("mail_faktura.php");
if ($nomailantal > 0) {
print "<meta http-equiv=\"refresh\" content=\"0;URL=../includes/udskriv.php?ps_fil={$mappe}/{$printfilnavn}&id={$id}&udskriv_til={$udskriv_til}&art={$art}&bgr={$bgr}\">";
} elseif ($popup) {
print "<meta http-equiv=\"refresh\" content=\"0;URL=../includes/luk.php\">";
}
#else print "<meta http-equiv=\"refresh\" content=\"0;URL=ordre.php?id=$id\">";
return 'OK';
print "<!--function formularprint s**t-->";
}
function send_mails($kontoantal, $konto_id, $email, $fra, $til)
{
global $db;
global $brugernavn;
global $bgcolor;
global $bgcolor5;
global $charset;
ini_set("include_path", ".:../phpmailer");
require "class.phpmailer.php";
$tmpmappe = "../temp/{$db}/" . str_replace(" ", "_", $brugernavn);
mkdir($tmpmappe);
for ($x = 1; $x <= $kontoantal; $x++) {
mkdir("{$tmpmappe}/{$x}");
if ($konto_id[$x] && $email[$x] && $fra[$x] && $til[$x] && strpos($email[$x], '@')) {
$fromdate[$x] = usdate($fra[$x]);
$todate[$x] = usdate($til[$x]);
$mailtext = "<!DOCTYPE html PUBLIC \"-//W3C//DTD HTMP 4.01 Transitional//EN\">\n";
$mailtext .= "<html><head><meta content=\"text/html; charset=ISO-8859-15\" http-equiv=\"content-type\">\n";
$row = db_fetch_array(db_select("select firmanavn from adresser where art = 'S'", __FILE__ . " linje " . __LINE__));
$mailtext .= "<title>Kontoudtog fra {$row['firmanavn']}</title></head>\n";
$mailtext .= "<body bgcolor={$bgcolor} link='#000000' vlink='#000000' alink='#000000' center=''>\n";
$mailtext .= "<table width = 100% cellpadding=\"0\" cellspacing=\"0\" border=\"0\"><tbody>\n";
$mailtext .= "<tr><td colspan=\"5\"><b>{$row['firmanavn']}</b></td><td colspan=\"2\" align=\"right\">Dato</td><td align=right> " . date('d-m-Y') . "</td></tr>\n";
$mailtext .= "<tr><td colspan=8><hr></td></tr>\n";
$mailtext .= "<tr><td colspan=\"8\" style=\"font-size:115%;font-weight:bold\">Kontoudtog</td></tr>\n";
$row = db_fetch_array(db_select("select * from adresser where id={$konto_id[$x]}", __FILE__ . " linje " . __LINE__));
$mailtext .= "<tr><td colspan=\"5\">{$row['firmanavn']}</td><td colspan=\"2\" align=\"right\">Kontonr.</td><td align=right> {$row['kontonr']}</td></tr>\n";
$mailtext .= "<tr><td colspan=\"8\">{$row['addr1']}</td></tr>\n";
if ($row[addr2]) {
$mailtext .= "<tr><td colspan=\"8\">{$row['addr2']}</td></tr>\n";
}
$mailtext .= "<tr><td colspan=\"8\">{$row['postnr']} {$row['bynavn']}</td></tr>\n";
$mailtext .= "<tr><td><br></td></tr>\n";
$mailtext .= "<tr><td width=\"10%\"> Dato</td><td width=\"5%\"> Bilag</td><td width=\"5%\"> Faktura</td><td width=\"40%\" align=\"center\"> Tekst</td><td> Forfaldsdato</td><td width=\"10%\" align=\"right\"> Debet</td><td width=\"10%\" align=\"right\"> Kredit</td><td width=\"10%\" align=\"right\"> Saldo</td></tr>\n";
$mailtext .= "<tr><td colspan=8><hr></td></tr>\n";
$betalingsbet = trim($row['betalingsbet']);
$betalingsdage = $row['betalingsdage'];
$kontosum = 0;
$primo = 0;
$primoprint = 0;
$query = db_select("select * from openpost where konto_id={$konto_id[$x]} and transdate<='{$todate[$x]}' order by transdate, faktnr", __FILE__ . " linje " . __LINE__);
while ($row = db_fetch_array($query)) {
$amount = afrund($row['amount'], 2);
$forfaldsdag = NULL;
if ($row['forfaldsdate']) {
$forfaldsdag = dkdato($row['forfaldsdate']);
}
if ($row['transdate'] < $fromdate[$x]) {
$primoprint = 0;
$kontosum = $kontosum + $amount;
} else {
if ($primoprint == 0) {
$tmp = dkdecimal($kontosum);
$linjebg = $bgcolor5;
$color = '#000000';
$mailtext .= "<tr bgcolor=\"{$linjebg}\"><td colspan=\"3\"></td><td>Primosaldo</td><td colspan=\"3\"></td><td align=right> {$tmp}</td></tr>\n";
$primoprint = 1;
}
if ($linjebg != $bgcolor) {
$linjebg = $bgcolor;
$color = '#000000';
} elseif ($linjebg != $bgcolor5) {
$linjebg = $bgcolor5;
$color = '#000000';
}
$mailtext .= "<tr bgcolor=\"{$linjebg}\"><td> " . dkdato($row['transdate']) . " </td><td> {$row['refnr']} </td><td> {$row['faktnr']} </td><td> {$row['beskrivelse']}</td>\n";
if ($amount < 0) {
$tmp = 0 - $amount;
} else {
$tmp = $amount;
}
$tmp = dkdecimal($tmp);
if (!$forfaldsdag) {
$forfaldsdag = forfaldsdag($row['transdate'], $betalingsbet, $betalingsdage);
}
if ($row[udlignet] != '1' && $forfaldsdag < $currentdate) {
$stil = "<span style='color: rgb(255, 0, 0);'>";
} else {
$stil = "<span style='color: rgb(0, 0, 0);'>";
}
if ($amount > 0) {
$mailtext .= "<td>{$stil}{$forfaldsdag}</td><td align=right>{$stil} {$tmp}</td><td></td>\n";
$forfaldsum = $forfaldsum + $amount;
} else {
$mailtext .= "<td></td><td></td><td align=right>{$stil}{$tmp}</td>\n";
}
$kontosum = $kontosum + $amount;
$tmp = dkdecimal($kontosum);
$mailtext .= "<td align=right> {$tmp}</td>\n";
$mailtext .= "</tr>\n";
}
}
if ($primoprint == 0) {
$tmp = dkdecimal($kontosum);
$mailtext .= "<tr><td></td><td></td><td></td><td> Primosaldo</td><td></td><td></td><td></td><td align=right> {$tmp}</td></tr>\n";
}
$mailtext .= "<tr><td colspan=\"8\"><hr></td></tr>\n";
$row = db_fetch_array(db_select("select * from adresser where art = 'S'", __FILE__ . " linje " . __LINE__));
$mailtext .= "<tr><td colspan=\"8\">\n";
if ($row['bank_konto']) {
$mailtext .= "<p>Et eventuelt udestående bedes indbetalt hurtigst muligt på vores bankkonto med\n";
if ($row['bank_reg']) {
$mailtext .= " reg.nr. " . $row['bank_reg'] . " og";
}
$mailtext .= " kontonr. " . $row['bank_konto'];
if ($row['bank_navn']) {
$mailtext .= " i " . $row['bank_navn'];
}
$mailtext .= ".</p>\n";
}
if ($row['tlf']) {
$mailtext .= "<p>Hvis du har spørgsmål, så kontakt os på telefon " . $row['tlf'];
$mailtext .= ".</p>\n</td></tr>\n";
}
$mailtext .= "<tr><td colspan=\"8\"><hr></td></tr>\n";
$mailtext .= "<tr><td colspan=\"8\" align=\"center\">\n";
$mailtext .= "<p style=\"font-size:80%\">" . $row['firmanavn'];
if ($row['addr1']) {
$mailtext .= " * " . $row['addr1'];
}
if ($row['addr2']) {
$mailtext .= " * " . $row['addr2'];
}
if ($row['postnr']) {
$mailtext .= " * " . $row['postnr'] . " " . $row['bynavn'];
}
if ($row['tlf']) {
$mailtext .= " * tlf " . $row['tlf'];
}
if ($row['fax']) {
$mailtext .= " * fax " . $row['fax'];
}
if ($row['cvr']) {
$mailtext .= " * cvr " . $row['fax'];
}
$mailtext .= "<p>\n</td></tr>\n";
$mailtext .= "</table></body></html>\n";
#echo "select * from adresser where art='S'<br>";
$row = db_fetch_array(db_select("select * from adresser where art='S'", __FILE__ . " linje " . __LINE__));
$afsendermail = $row['email'];
$afsendernavn = $row['firmanavn'];
#echo "AFSM $afsendermail<br>";
if ($charset == "UTF-8") {
$subjekt = utf8_decode($subjekt);
$mailtext = utf8_decode($mailtext);
$afsendernavn = utf8_decode($afsendernavn);
$afsendermail = utf8_decode($afsendermail);
#echo "MM $mailtext<br>";
}
$fp = fopen("{$tmpmappe}/{$x}/kontoudtog.html", "w");
fwrite($fp, $mailtext);
fclose($fp);
$mail = new PHPMailer();
$mail->IsSMTP();
// send via SMTP
$mail->Host = "localhost";
// SMTP servers
$mail->SMTPAuth = false;
// turn on SMTP authentication
if (strpos($_SERVER['SERVER_NAME'], 'saldi.dk')) {
#20121029
if ($_SERVER['SERVER_NAME'] == 'ssl.saldi.dk') {
$mail->From = $db . '@ssl.saldi.dk';
} elseif ($_SERVER['SERVER_NAME'] == 'ssl2.saldi.dk') {
$mail->From = $db . '@ssl2.saldi.dk';
} elseif ($_SERVER['SERVER_NAME'] == 'ssl3.saldi.dk') {
$mail->From = $db . '@ssl3.saldi.dk';
} else {
$mail->From = '*****@*****.**';
}
#20140128
$mail->FromName = $afsendernavn;
} else {
$mail->From = $afsendermail;
$mail->FromName = $afsendernavn;
}
if (strpos($email[$x], ";")) {
#20150305-2
$tmp = array();
$tmp = explode(";", $email[$x]);
for ($i = 0; $i < count($tmp); $i++) {
if (strpos($tmp[$i], "@")) {
$mail->AddAddress($tmp[$i]);
}
}
} else {
$mail->AddAddress($email[$x]);
}
$mail->AddBCC($afsendermail);
$mail->AddReplyTo($afsendermail, $afsendernavn);
$mail->WordWrap = 50;
// set word wrap
$mail->AddAttachment("{$tmpmappe}/{$x}/kontoudtog.html");
// attachment
$mail->IsHTML(true);
// send as HTML
$mail->Subject = "Kontoudtog fra {$afsendernavn}";
$mailbody = "<html><body>\n";
$mailbody .= "<p>Hermed fremsendes kontoudtog fra " . $afsendernavn . ".</p>\n";
$mailbody .= "<p>Den vedlagte fil er en HTML-fil og kan ses i din webbrowser eksempelvis \n";
$mailbody .= "ved at dobbeltklikke på den.</p>\n";
$mailbody .= "<hr />\n<p>";
$mailbody .= $row['firmanavn'] . "<br />\n";
if ($row['addr1']) {
$mailbody .= $row['addr1'] . "<br />\n";
}
if ($row['addr2']) {
$mailbody .= $row['addr2'] . "<br />\n";
}
if ($row['postnr']) {
$mailbody .= $row['postnr'] . " " . $row['bynavn'] . "<br />\n";
}
if ($row['tlf']) {
$mailbody .= "tlf " . $row['tlf'];
}
if ($row['fax']) {
$mailbody .= " * fax " . $row['fax'];
}
if ($row['cvr']) {
$mailbody .= " * cvr " . $row['fax'];
}
$mailbody .= "</p></body></html>";
$mailaltbody = "Hermed fremsendes kontoudtog fra " . $afsendernavn . ".\n\n";
$mailaltbody .= "Den vedlagte fil er en HTML-fil og kan ses i din webbrowser eksempelvis \n";
$mailaltbody .= "ved at dobbeltklikke på den.\n";
$mailaltbody .= "-- \n";
$mailaltbody .= $row['firmanavn'] . "\n";
if ($row['addr1']) {
$mailaltbody .= $row['addr1'] . "\n";
}
if ($row['addr2']) {
$mailaltbody .= $row['addr2'] . "\n";
}
if ($row['postnr']) {
$mailaltbody .= $row['postnr'] . " " . $row['bynavn'] . "\n";
}
if ($row['tlf']) {
$mailaltbody .= "tlf " . $row['tlf'];
}
if ($row['fax']) {
$mailaltbody .= " * fax " . $row['fax'];
}
if ($row['cvr']) {
$mailaltbody .= " * cvr " . $row['fax'];
}
if ($charset == "UTF-8") {
$mailbody = utf8_decode($mailbody);
$mailaltbody = utf8_decode($mailaltbody);
}
$mail->Body = $mailbody;
$mail->AltBody = $mailaltbody;
if (!$mail->Send()) {
echo "Fejl i afsendelse til {$email[$x]}<p>";
echo "Mailer Error: " . $mail->ErrorInfo;
exit;
}
echo "Kontoudtog sendt til {$email[$x]}<br>";
# sleep(2);
}
}
for ($x = 1; $x <= $kontoantal; $x++) {
unlink("{$tmpmappe}/{$x}/kontoudtog.html");
rmdir("{$tmpmappe}/{$x}");
}
# unlink("$tmpmappe/kontoudtog.html");
rmdir($tmpmappe);
}
function invoice($string)
{
$webservice = '1';
$fp = fopen("../temp/invoice.log", "w");
list($s_id, $tmp) = explode(chr(9), $string);
if (!$s_id) {
return '1' . chr(9) . "Missing session ID";
}
# include("../includes/select.php");
include "../includes/connect.php";
include "../includes/online.php";
include "../includes/std_func.php";
include "../includes/ordrefunc.php";
include "../includes/formfunk.php";
$linje = NULL;
$ordre_id = str_replace($s_id, "", $string);
$ordre_id = str_replace(chr(9), "", $ordre_id);
$ordre_id = str_replace(chr(10), "", $ordre_id);
$ordre_id = str_replace(chr(13), "", $ordre_id);
# $ordre_id=str_replace(" ","",$ordre_id);
$ordre_id = strtolower($ordre_id);
list($table, $tmp) = explode("set", $ordre_id, 2);
$table = trim($table);
$r = db_fetch_array(db_select("select momssats from ordrer where id = '{$ordre_id}'", __FILE__ . " linje " . __LINE__));
$momssats = $r['momssats'] * 1;
$x = 0;
$ordresum = 0;
$momssum = 0;
$kostsum = 0;
$momsdiff = 0;
$q = db_select("select * from ordrelinjer where ordre_id = '{$ordre_id}'", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
if ($r['vare_id']) {
$linjesum = $r['pris'] * $r['antal'] - $r['pris'] * $r['antal'] * $r['rabat'] / 100;
$ordresum += $linjesum;
$linjemoms = $linjesum * $r['momssats'] / 100;
$momssum += $linjemoms;
if ($r['momssats'] != $momssats || $r['momsfri']) {
$momsdiff = 1;
}
$kostsum += $r['kostpris'] * $r['antal'];
}
$ordresum = afrund($ordresum, 2);
if (!$momsdiff) {
$momssum = $ordresum * $momssats / 100;
}
$momssum = afrund($momssum, 2);
}
transaktion('begin');
$linje = "update ordrer set status = '2',levdate = ordredate,fakturadate = ordredate,sum='{$ordresum}',moms='{$momssum}',udskriv_til='email',mail_fakt='on',momssats='{$momssats}',kostpris='{$kostsum}',projekt='' where id = '{$ordre_id}'";
fwrite($fp, $linje . "\n");
$svar = db_modify($linje, __FILE__ . " linje " . __LINE__);
list($fejl, $svar) = explode(chr(9), $svar);
if ($fejl) {
return $fejl . chr(9) . $svar;
}
$linje = "update ordrelinjer set projekt = '' where ordre_id = '{$ordre_id}'";
fwrite($fp, $linje . "\n");
$svar = db_modify($linje, __FILE__ . " linje " . __LINE__);
list($fejl, $svar) = explode(chr(9), $svar);
if ($fejl) {
return $fejl . chr(9) . $svar;
}
$linje = "update ordrelinjer set leveres = antal where ordre_id = '{$ordre_id}' and vare_id>'0'";
fwrite($fp, $linje . "\n");
$svar = db_modify($linje, __FILE__ . " linje " . __LINE__);
list($fejl, $svar) = explode(chr(9), $svar);
if ($fejl) {
return $fejl . chr(9) . $svar;
}
$linje = "levering({$ordre_id},'on','','on')";
fwrite($fp, $linje . "\n");
$svar = levering($ordre_id, 'on', '', 'on');
if ($svar != 'OK') {
return '1' . chr(9) . $svar;
}
$linje = "update ordrelinjer set leveret = antal,leveres='0' where ordre_id = '{$ordre_id}' and vare_id>'0'";
fwrite($fp, $linje . "\n");
$svar = db_modify($linje, __FILE__ . " linje " . __LINE__);
$linje = "bogfor({$ordre_id},'on')";
fwrite($fp, $linje . "\n");
$svar = bogfor($ordre_id, 'on');
list($fejl, $svar) = explode(chr(9), $svar);
fwrite($fp, $fejl . " " . $svar . "\n");
if ($fejl != 'OK') {
$linje = "{$fejl}";
# fwrite($fp,$linje."\n");
return '1' . chr(9) . $fejl;
} else {
transaktion('commit');
}
$linje = "formularprint({$ordre_id},'4','1',{$charset},'email')";
fwrite($fp, $linje . "\n");
$svar = formularprint($ordre_id, '4', '1', $charset, 'email');
fwrite($fp, $linje . "Svar " . $svar . "\n");
if ($svar && $svar != 'OK') {
return '1' . chr(9) . $svar;
} else {
fclose($fp);
return '0' . chr(9) . $ordre_id;
}
}
function udskriv($idnumre, $bilagsnumre, $kladdenumre, $fakturanumre, $kontonumre, $transdatoer, $logdatoer, $debetbelob, $kreditbelob, $logtid, $beskrivelse, $sort, $start, $skriv, $projektnumre)
{
global $bgcolor;
global $bgcolor5;
global $linjeantal;
global $regnaar;
global $vis_projekt;
global $rettigheder;
global $csv;
if ($sort == 'id') {
$sort = 'transaktioner.id';
}
$ret_projekt = substr($rettigheder, 1, 1);
if ($csv) {
$fp = fopen("../temp/{$db}/kontrolspor.csv", "w");
fwrite($fp, "Id" . chr(9) . "Dato" . chr(9) . "Logdato" . chr(9) . "Logtid" . chr(9) . "Kladde id" . chr(9) . "Bilag" . chr(9) . "Kontonr" . chr(9) . "Kontonavn" . chr(9) . "Faktura" . chr(9) . "Debet" . chr(9) . "Kredit" . chr(9) . "Projekt" . chr(9) . "Beskrivelse\n");
}
$udvaelg = '';
if ($idnumre) {
$udvaelg = $udvaelg . udvaelg($idnumre, 'transaktioner.id', 'NR');
}
if ($bilagsnumre) {
$udvaelg = $udvaelg . udvaelg($bilagsnumre, 'transaktioner.bilag', 'NR');
}
if ($kladdenumre) {
$udvaelg = $udvaelg . udvaelg($kladdenumre, 'transaktioner.kladde_id', 'NR');
}
if ($fakturanumre) {
$udvaelg = $udvaelg . udvaelg($fakturanumre, 'transaktioner.faktura', 'TEXT');
}
if ($kontonumre) {
$udvaelg = $udvaelg . udvaelg($kontonumre, 'transaktioner.kontonr', 'NR');
}
if ($transdatoer) {
$udvaelg = $udvaelg . udvaelg($transdatoer, 'transaktioner.transdate', 'DATO');
}
if ($logdatoer) {
$udvaelg = $udvaelg . udvaelg($logdatoer, 'transaktioner.logdate', 'DATO');
}
if ($debetbelob) {
$udvaelg = $udvaelg . udvaelg($debetbelob, 'transaktioner.debet', 'BELOB');
}
if ($kreditbelob) {
$udvaelg = $udvaelg . udvaelg($kreditbelob, 'transaktioner.kredit', 'BELOB');
}
if ($projektnumre) {
$udvaelg = $udvaelg . udvaelg($projektnumre, 'transaktioner.projekt', '');
}
if ($logtid) {
$udvaelg = $udvaelg . udvaelg($logtid, 'transaktioner.logtime', 'TID');
}
$udvaelg = trim($udvaelg);
if (substr($udvaelg, 0, 3) == 'and') {
$udvaelg = "where" . substr($udvaelg, 3);
}
if ($sort == "logdate") {
$sort = $sort . ", logtime";
}
$beskrivelse = trim(strtolower($beskrivelse));
if (substr($beskrivelse, 0, 1) == '*') {
$beskrivelse = substr($beskrivelse, 1);
$startstjerne = 1;
}
if (substr($beskrivelse, -1, 1) == '*') {
$beskrivelse = substr($beskrivelse, 0, strlen($beskrivelse) - 1);
$slutstjerne = 1;
}
$b_strlen = strlen($beskrivelse);
if (!$udvaelg) {
$udvaelg = "where";
} else {
$udvaelg = $udvaelg . " and";
}
$x = 0;
# echo "select transaktioner.*, kontoplan.beskrivelse as kontonavn from transaktioner, kontoplan $udvaelg kontoplan.regnskabsaar='$regnaar' and kontoplan.kontonr = transaktioner.kontonr order by $sort<br>";
$query = db_select("select transaktioner.*, kontoplan.beskrivelse as kontonavn from transaktioner, kontoplan {$udvaelg} kontoplan.regnskabsaar='{$regnaar}' and kontoplan.kontonr = transaktioner.kontonr order by {$sort}", __FILE__ . " linje " . __LINE__);
while ($row = db_fetch_array($query)) {
if ($beskrivelse && $row['beskrivelse']) {
$udskriv = 0;
if ($startstjerne) {
if ($slutstjerne) {
if (strpos(strtolower($row['beskrivelse']), $beskrivelse)) {
$udskriv = 1;
}
} elseif (substr(strtolower($row['beskrivelse']), -$b_strlen, $b_strlen) == $beskrivelse) {
$udskriv = 1;
}
} elseif ($slutstjerne) {
if (substr(strtolower($row['beskrivelse']), 0, $b_strlen) == $beskrivelse) {
$udskriv = 1;
}
} elseif (strtolower($row['beskrivelse']) == $beskrivelse) {
$udskriv = 1;
}
} else {
$udskriv = 1;
}
if ($udskriv) {
$x++;
}
# echo "(($x>=$start)&&($x<$start+$linjeantal) && ($udskriv))<br>";
if ($x >= $start && $x < $start + $linjeantal && $udskriv || $csv) {
$y++;
if ($csv || $skriv) {
# echo "Y1 $y<br>";
$transdato = dkdato($row['transdate']);
$logdato = dkdato($row['logdate']);
$debetsum = afrund($debetsum + $row['debet'], 2);
$kreditsum = afrund($kreditsum + $row['kredit'], 2);
if ($skriv && !$csv) {
if ($linjebg != $bgcolor) {
$linjebg = $bgcolor;
$color = '#000000';
} else {
$linjebg = $bgcolor5;
$color = '#000000';
}
print "<tr bgcolor=\"{$linjebg}\">";
print "<td align=right> {$row['id']}</span><br></td>";
print "<td align=right> {$transdato}<br></td>";
print "<td align=right> {$logdato}<br></td>";
print "<td align=right>" . substr($row['logtime'], 0, 5) . "<br></td>";
print "<td align=right> {$row['kladde_id']}<br></td>";
print "<td align=right> {$row['bilag']}<br></td>";
print "<td align=right><span title='{$row['kontonavn']}'>{$row['kontonr']}<br></span></td>";
print "<td align=right> {$row['faktura']}<br></td>";
if ($row[debet]) {
print "<td align=right> " . dkdecimal($row['debet']) . "<br></td>";
} else {
print "<td> </td>";
}
if ($row[kredit]) {
print "<td align=right> " . dkdecimal($row['kredit']) . "<br></td>";
} else {
print "<td> </td>";
}
if ($vis_projekt) {
$row['projekt'] && $ret_projekt ? $title = "Projektnummeret kan rettes ved at klikke her" : ($title = NULL);
$ret_projekt ? $tmp = "<a href=\"../includes/ret_transaktion.php?id={$row['id']}&felt=projekt\">{$row['projekt']}</a>" : ($tmp = $row['projekt']);
print "<td align=right title=\"{$title}\">{$tmp}<br></td>";
}
print "<td> {$row['beskrivelse']}<br></td>";
print "</tr>\n";
}
if ($csv) {
fwrite($fp, $row['id'] . chr(9) . $transdato . chr(9) . $logdato . chr(9) . substr($row['logtime'], 0, 5) . chr(9) . $row['kladde_id'] . chr(9) . $row['bilag'] . chr(9) . $row['kontonr'] . chr(9) . utf8_decode(stripslashes($row['kontonavn'])) . chr(9) . $row['faktura'] . chr(9) . dkdecimal($row['debet']) . chr(9) . dkdecimal($row['kredit']) . chr(9) . $row['projekt'] . chr(9) . utf8_decode(stripslashes($row['beskrivelse'])) . "\n");
}
}
}
}
if ($csv) {
fclose($fp);
print "<BODY onLoad=\"JavaScript:window.open('../temp/{$db}/kontrolspor.csv' ,'' ,'{$jsvars}');\">\n";
}
if (!$csv && ($debetsum || $kreditsum)) {
$vis_projekt ? $colspan = 12 : ($colspan = 11);
print "<tr><td colspan=\"{$colspan}\"><hr></td></tr>";
print "<td colspan=8>Kontrolsum<br></td><td align=right>" . dkdecimal($debetsum) . "<br></td><td align=right>" . dkdecimal($kreditsum) . "<br></td><td><br></td></tr>";
}
# print "<tr><td colspan=11><hr></td></tr>";
# echo "Y2 $y<br>";
return $y;
}
function tastatur($status)
{
print "\n<!-- Function tastatur (start)-->\n";
global $id;
global $bon;
global $fokus;
global $sum;
global $modtaget;
global $modtaget2;
global $kontonr;
global $varelinjer;
global $varenr_ny;
global $indbetaling;
global $betalingsbet;
global $bordnr;
$sum = afrund($sum, 2);
$modtaget = afrund($modtaget, 2);
$modtaget2 = afrund($modtaget2, 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']);
$vis_kontoopslag = $r['box11'];
$vis_hurtigknap = $r['box12'];
$vis_indbetaling = $r['box14'];
$timeout = $r['box13'] * 1;
$r = db_fetch_array(db_select("select box6 from grupper where art = 'POS' and kodenr = '2'", __FILE__ . " linje " . __LINE__));
$div_kort_kto = $r['box6'];
print "<input type=hidden name=\"sum\" value=\"{$sum}\">\n";
print "<input type=hidden name=\"kontonr\" value=\"{$kontonr}\">\n";
print "<TR><TD height=\"100%\" valign=\"top\" align=\"center\"><TABLE BORDER=\"0\" CELLPADDING=\"4\" CELLSPACING=\"4\"><TBODY>\n";
print "<TR>\n";
if ($status < 3) {
$stil = "STYLE=\"width: 4.5em;height: 2em;font-size:150%;\"";
print "<TD><INPUT TYPE=\"button\" {$stil} NAME=\"one\" VALUE=\"1\" OnClick=\"pos_ordre.{$fokus}.value += '1';pos_ordre.{$fokus}.focus();\"></TD>\n";
print "<TD><INPUT TYPE=\"button\" {$stil} NAME=\"two\" VALUE=\"2\" OnCLick=\"pos_ordre.{$fokus}.value += '2';pos_ordre.{$fokus}.focus();\"></TD>\n";
print "<TD><INPUT TYPE=\"button\" {$stil} NAME=\"three\" VALUE=\"3\" OnClick=\"pos_ordre.{$fokus}.value += '3';pos_ordre.{$fokus}.focus();\"></TD>\n";
print "<TD><INPUT TYPE=\"button\" {$stil} NAME=\"plus\" VALUE=\"+\" OnClick=\"pos_ordre.{$fokus}.value += '+';pos_ordre.{$fokus}.focus();\"></TD>\n";
print "</TR><TR>\n";
print "<TD><INPUT TYPE=\"button\" {$stil} NAME=\"four\" VALUE=\"4\" OnClick=\"pos_ordre.{$fokus}.value += '4';pos_ordre.{$fokus}.focus();\"></TD>\n";
print "<TD><INPUT TYPE=\"button\" {$stil} NAME=\"five\" VALUE=\"5\" OnCLick=\"pos_ordre.{$fokus}.value += '5';pos_ordre.{$fokus}.focus();\"></TD>\n";
print "<TD><INPUT TYPE=\"button\" {$stil} NAME=\"six\" VALUE=\"6\" OnClick=\"pos_ordre.{$fokus}.value += '6';pos_ordre.{$fokus}.focus();\"></TD>\n";
print "<TD><INPUT TYPE=\"button\" {$stil} NAME=\"minus\" VALUE=\"-\" OnClick=\"pos_ordre.{$fokus}.value += '-';pos_ordre.{$fokus}.focus();\"></TD>\n";
print "</TR><TR>\n";
print "<TD><INPUT TYPE=\"button\" {$stil} NAME=\"seven\" VALUE=\"7\" OnClick=\"pos_ordre.{$fokus}.value += '7';pos_ordre.{$fokus}.focus();\"></TD>\n";
print "<TD><INPUT TYPE=\"button\" {$stil} NAME=\"eight\" VALUE=\"8\" OnCLick=\"pos_ordre.{$fokus}.value += '8';pos_ordre.{$fokus}.focus();\"></TD>\n";
print "<TD><INPUT TYPE=\"button\" {$stil} NAME=\"nine\" VALUE=\"9\" OnClick=\"pos_ordre.{$fokus}.value += '9';pos_ordre.{$fokus}.focus();\"></TD>\n";
print "<TD><INPUT TYPE=\"button\" {$stil} NAME=\"times\" VALUE=\"x\" OnClick=\"pos_ordre.{$fokus}.value += '*'\"></TD>\n";
print "</TR><TR>\n";
print "<TD><INPUT TYPE=\"button\" {$stil} NAME=\"zero\" VALUE=\",\" OnClick=\"pos_ordre.{$fokus}.value += ',';pos_ordre.{$fokus}.focus();\"></TD>\n";
print "<TD><INPUT TYPE=\"button\" {$stil} NAME=\"zero\" VALUE=\"0\" OnClick=\"pos_ordre.{$fokus}.value += '0';pos_ordre.{$fokus}.focus();\"></TD>\n";
print "<TD><INPUT TYPE=\"button\" {$stil} NAME=\"DoIt\" VALUE=\"=\" OnClick=\"pos_ordre.{$fokus}.value = eval(pos_ordre.{$fokus}.value);pos_ordre.{$fokus}.focus();\"></TD>\n";
print "<TD><INPUT TYPE=\"button\" {$stil} NAME=\"div\" VALUE=\"/\" OnClick=\"pos_ordre.{$fokus}.value += '/';pos_ordre.{$fokus}.focus();\"></TD>\n";
print "</TR><TR>\n";
print "<TD><INPUT TYPE=\"button\" {$stil} NAME=\"clear\" VALUE=\"Ryd\" OnClick=\"pos_ordre.{$fokus}.value = '';pos_ordre.{$fokus}.focus();\"></TD>\n";
if ($id) {
print "<TD><INPUT TYPE=\"submit\" {$stil} NAME=\"afslut\"VALUE=\"Afslut\" OnClick=\"pos_ordre.{$fokus}.value += 'a';pos_ordre.{$fokus}.focus();\"></TD>\n";
print "<TD onclick=\"return confirm('Slet alt og start forfra')\"><INPUT TYPE=\"submit\" {$stil} NAME=\"forfra\"VALUE=\"Forfra\" OnClick=\"pos_ordre.{$fokus}.value += 'f';pos_ordre.{$fokus}.focus();\"></TD>\n";
} else {
print "<TD COLSPAN=\"2\"></TD>\n";
}
if ($fokus == 'modtaget') {
print "<TD onclick=\"return confirm('Tilbage til varescanning')\"><INPUT TYPE=\"submit\" {$stil} NAME=\"tilbage\"VALUE=\"Tilbage\" OnClick=\"pos_ordre.{$fokus}.value += 't';pos_ordre.{$fokus}.focus();\"></TD>\n";
print "</TR><TR>\n";
print "<TD COLSPAN=\"3\"></TD>\n";
}
print "<TR><TD COLSPAN=\"4\"><HR></TD></tr>\n";
$stil2 = "STYLE=\"width: 9.5em;height: 2em;font-size:150%;\"";
print "<TR>\n";
#cho "$fokus=='modtaget' && $modtaget>=$sum && !$indbetaling<br>\n";
if ($fokus == 'varenr_ny') {
print "<TD COLSPAN=\"2\"><INPUT TYPE=\"submit\" {$stil2} NAME=\"varer\"VALUE=\"Varer\" OnClick=\"pos_ordre.{$fokus}.value += 'v';pos_ordre.{$fokus}.focus();\"></TD>\n";
} elseif ($fokus == 'antal_ny' || $fokus == 'pris_ny') {
#20130310 Tilføjet: || $fokus=='pris_ny'
if ($fokus == 'antal_ny') {
print "<TD COLSPAN=\"1\"><INPUT TYPE=\"submit\" {$stil} NAME=\"pris\"VALUE=\"Pris\" OnClick=\"pos_ordre.{$fokus}.value += 'p';pos_ordre.{$fokus}.focus();\"></TD>\n";
} else {
print "<TD COLSPAN=\"1\"></TD>\n";
}
print "<TD COLSPAN=\"1\"><INPUT TYPE=\"submit\" {$stil} NAME=\"rabat\"VALUE=\"Rabat\" OnClick=\"pos_ordre.{$fokus}.value += 'r';pos_ordre.{$fokus}.focus();\"></TD>\n";
} elseif ($fokus == 'modtaget' && $modtaget >= $sum && !$indbetaling && $betalingsbet != 'Kontant') {
print "<TR><TD COLSPAN=\"2\"><INPUT TYPE=\"submit\" {$stil2} NAME=\"betaling\" VALUE=\"Konto\" OnClick=\"pos_ordre.{$fokus}.value += 'k';pos_ordre.{$fokus}.focus();\"></TD>\n";
} elseif ($fokus == 'modtaget2' && $modtaget + $modtaget2 >= $sum && !$indbetaling) {
print "<TR><TD COLSPAN=\"2\"><INPUT TYPE=\"submit\" {$stil2} NAME=\"betaling2\" VALUE=\"Konto\" OnClick=\"pos_ordre.{$fokus}.value += 'k';pos_ordre.{$fokus}.focus();\"></TD>\n";
} elseif ($indbetaling && $modtaget >= $indbetaling) {
print "<TR><TD COLSPAN=\"2\"><INPUT TYPE=\"submit\" {$stil2} NAME=\"betaling\" VALUE=\"Kontant\" OnClick=\"pos_ordre.{$fokus}.value += 'c';pos_ordre.{$fokus}.focus();\"></TD>\n";
} else {
print "<TD colspan=2></TD>\n";
}
print "<TD colspan=2><INPUT TYPE=\"submit\" {$stil2} NAME=\"OK\" VALUE=\"Enter\"></TD></tr>\n";
if ($vis_hurtigknap && $fokus == 'antal_ny') {
print "<TR><TD COLSPAN=\"2\"><INPUT TYPE=\"submit\" {$stil2} NAME=\"betaling\" VALUE=\"Kontant på beløb\" OnClick=\"pos_ordre.{$fokus}.value += 'c';pos_ordre.{$fokus}.focus();\"></TD>\n";
}
if ($vis_kontoopslag && !$varenr_ny && !$indbetaling) {
print "<TR><TD COLSPAN=\"2\"><INPUT TYPE=\"submit\" {$stil2} NAME=\"kontoopslag\" VALUE=\"Kontoopslag\"></TD></tr>\n";
}
if (($fokus == 'modtaget' || $fokus == 'modtaget2') && (!$kontonr || $betalingsbet == 'Kontant') || $indbetaling && $modtaget >= $indbetaling && $kontonr) {
if ($div_kort_kto) {
#20140129
$fokus == 'modtaget2' ? $tmp = "betaling2" : ($tmp = "betaling");
print "<TR><TD COLSPAN=\"2\"><INPUT TYPE=\"submit\" {$stil2} NAME={$tmp} VALUE=\"Betalingskort\" OnClick=\"pos_ordre.{$fokus}.value += 'd';pos_ordre.{$fokus}.focus();\"></TD></tr>\n";
} else {
for ($x = 0; $x < $kortantal; $x++) {
$fokus == 'modtaget2' ? $tmp = "betaling2" : ($tmp = "betaling");
print "<TR><TD COLSPAN=\"2\"><INPUT TYPE=\"submit\" {$stil2} NAME={$tmp} VALUE=\"{$korttyper[$x]}\" OnClick=\"pos_ordre.{$fokus}.value += 'd';pos_ordre.{$fokus}.focus();\"></TD></tr>\n";
}
}
if (!$indbetaling) {
if ($fokus == 'modtaget2') {
$tmp = "betaling2";
} else {
$tmp = "betaling";
}
print "<TR><TD COLSPAN=\"2\"><INPUT TYPE=\"submit\" {$stil2} NAME={$tmp} VALUE=\"Kontant\" OnClick=\"pos_ordre.{$fokus}.value += 'c';pos_ordre.{$fokus}.focus();\"></TD></tr>\n";
}
# print "<TR><TD COLSPAN=\"2\"><INPUT TYPE=\"submit\" $stil2 NAME=\"betaling\" VALUE=\"Konto\" OnClick=\"pos_ordre.$fokus.value += 'k';pos_ordre.$fokus.focus();\"></TD></tr>\n";
} elseif ($id && $kontonr && !$varelinjer && !$indbetaling) {
if ($vis_indbetaling) {
print "<TR><TD COLSPAN=\"2\"><INPUT TYPE=\"submit\" {$stil2} NAME=\"indbetaling\" VALUE=\"Indbetaling\" OnClick=\"pos_ordre.{$fokus}.value += 'i';pos_ordre.{$fokus}.focus();\"></TD>\n";
}
}
} else {
# print "<input type=\"hidden\" name=\"bon\" value = \"\">\n";
$stil2 = "STYLE=\"width: 9.5em;height: 2em;font-size:150%;\"";
print "<TD COLSPAN=\"2\"><INPUT TYPE=\"submit\" {$stil2} NAME=\"udskriv\"VALUE=\"Udskriv\"></TD>\n";
print "<TD COLSPAN=\"2\"><INPUT TYPE=\"submit\" {$stil2} NAME=\"ny\"VALUE=\"Ny kunde\"></TD></TR>\n";
print "<TD COLSPAN=\"4\"><br></TD></TR>\n";
print "<TD COLSPAN=\"4\"><br></TD></TR>\n";
print "<TD COLSPAN=\"4\" align=\"center\"><INPUT TYPE=\"submit\" {$stil2} NAME=\"krediter\"VALUE=\"Korrektion\"></TD>\n";
# print "<TD COLSPAN=\"2\"><INPUT TYPE=\"submit\" $stil2 NAME=\"ny\"VALUE=\"Ny kunde\"></TD>\n";
if ($timeout && !$bon) {
print "<meta http-equiv=\"refresh\" content=\"{$timeout};URL=pos_ordre.php?id=0\">\n";
}
}
print "</tr>\n";
print "</TBODY></TABLE></TD></tr>\n";
print "\n<!-- Function tastatur (s**t)-->\n";
}
print "<td colspan=15><b>{$beskrivelse[$x]}<br></b></td>";
} elseif ($kontotype[$x] != 'Z') {
# if ($kontotype[$x]!='Z') {$link="<a href=kontospec.php?kontonr=$kontonr[$x]&month=";}
# else {$link='';}
print "<td>{$kontonr[$x]}<br></td>";
print "<td>{$beskrivelse[$x]}<br></td>";
$ultimo[$x] = 0;
# print "<td align=right>$tal<br></td>";
for ($z = 1; $z <= $maanedantal; $z++) {
if ($kontotype[$x] != 'Z') {
if ($udfyld) {
$tmp = afrund($amount[$x][$z] * $procent / 100, 0);
if ($plusminus == "+") {
$amount[$x][$z] = afrund($amount[$x][$z] + $tmp, 0);
} else {
$amount[$x][$z] = afrund($amount[$x][$z] - $tmp, 0);
}
}
$tal = $amount[$x][$z];
$ultimo[$x] += $tal;
if (!$tal) {
$tal = "";
}
print "<td title=\"" . $id[$x][$z] . "\"><input type=\"text\" size=\"6\" style=\"text-align:right\" name=\"amount[{$x}][{$z}]\" value=\"{$tal}\"></td>";
$tmp = $id[$x][$z];
print "<input type = \"hidden\" name=\"id[{$x}][{$z}]\" value=\"{$tmp}\">";
} else {
print "<td align=right>{$tal}<br></td>";
}
$budget_csvdata .= "\"{$tal}\";";
# 20150622
function bogfor($id)
{
global $regnaar;
global $valuta;
global $valutakurs;
global $difkto;
global $sprog_id;
$d_kontrol = 0;
$k_kontrol = 0;
$linjesum = 0;
$fakturasum = 0;
$momssum = 0;
$logdate = date("Y-m-d");
$logtime = date("H:i");
$q = db_select("select box1, box2, box4, box5 from grupper where art='RB'", __FILE__ . " linje " . __LINE__);
if ($r = db_fetch_array($q)) {
if (trim($r['box4']) == "on") {
$modtbill = 1;
} else {
$modtbill = 0;
}
if (trim($r['box5']) == "on") {
$no_faktbill = 1;
$faktbill = 0;
} else {
$no_faktbill = 0;
}
}
$x = 0;
$q = db_select("select * from ordrer where id='{$id}'", __FILE__ . " linje " . __LINE__);
if ($r = db_fetch_array($q)) {
$art = $r['art'];
$konto_id = $r['konto_id'];
$lev_kontonr = str_replace(" ", "", $r['kontonr']);
$firmanavn = addslashes(trim($r['firmanavn']));
$modtagelse = $r['modtagelse'];
$transdate = $r['fakturadate'];
$fakturanr = addslashes($r['fakturanr']);
$ordrenr = $r['ordrenr'];
$projekt[0] = $r['projekt'];
$valuta = $r['valuta'];
$valutakurs = $r['valutakurs'] * 1;
$moms = $r['moms'] * 1;
$momssats = $r['momssats'] * 1;
$sum = $r['sum'];
$omlev = $r['omvbet'];
$ordreantal = $x;
if ($r = db_fetch_array(db_select("select afd from ansatte where navn = '{$r['ref']}'", __FILE__ . " linje " . __LINE__))) {
$afd = $r['afd'];
}
$afd = $afd * 1;
#sikkerhed for at 'afd' har en vaerdi
$ansat = $r['id'] * 1;
if ($no_faktbill == 1) {
$bilag = '0';
} else {
$bilag = trim($fakturanr);
}
$r = db_fetch_array(db_select("select gruppe from adresser where id='{$konto_id}'", __FILE__ . " linje " . __LINE__));
$r = db_fetch_array(db_select("select box1,box2 from grupper where art = 'KG' and kodenr='{$r['gruppe']}'", __FILE__ . " linje " . __LINE__));
$kontonr = $r['box2'];
$box1 = substr(trim($r['box1']), 0, 1);
if ($box1 && ($box1 != 'E' || $box1 != 'Y')) {
$sum = $sum + $moms;
}
#moms tillaegges summen der ikke er eu moms.
########### OPENPOST ->
if (substr($art, 1, 1) == 'K') {
$beskrivelse = "Lev. kn.nr: " . $fakturanr . ", modt. nr " . $modtagelse;
} else {
$beskrivelse = "Lev. fakt.nr:" . $fakturanr . ", modt.nr: " . $modtagelse;
}
#cho "insert into openpost (konto_id, konto_nr, faktnr, amount, beskrivelse, udlignet, transdate, kladde_id, refnr, valuta, valutakurs,projekt) values ('$konto_id', '$lev_kontonr', '$fakturanr', $sum*-1, '$beskrivelse', '0', '$transdate', '0', '$id', '$valuta', '$valutakurs','$projekt[0]')<br>";
db_modify("insert into openpost (konto_id, konto_nr, faktnr, amount, beskrivelse, udlignet, transdate, kladde_id, refnr, valuta, valutakurs,projekt) values ('{$konto_id}', '{$lev_kontonr}', '{$fakturanr}', {$sum}*-1, '{$beskrivelse}', '0', '{$transdate}', '0', '{$id}', '{$valuta}', '{$valutakurs}','{$projekt['0']}')", __FILE__ . " linje " . __LINE__);
$r = db_fetch_array(db_select("select max(id) as id from openpost where konto_id = '{$konto_id}' and faktnr = '{$fakturanr}' and refnr='{$id}'", __FILE__ . " linje " . __LINE__));
$openpost_id = $r['id'];
########### <- OPENPOST
$tekst = findtekst(157, $sprog_id);
if ($kontonr) {
$r = db_fetch_array(db_select("select id from kontoplan where kontonr='{$kontonr}' and regnskabsaar = '{$regnaar}' and lukket!='on'", __FILE__ . " linje " . __LINE__));
if (!$r['id']) {
print "<BODY onLoad=\"javascript:alert('{$tekst}')\">";
exit;
print "<meta http-equiv=\"refresh\" content=\"0;URL=ordre.php?id={$id}\">";
exit;
}
} else {
print "<BODY onLoad=\"javascript:alert('{$tekst}')\">";
print "<meta http-equiv=\"refresh\" content=\"0;URL=ordre.php?id={$id}\">";
exit;
}
if ($sum > 0) {
$kredit = $sum;
$debet = '0';
} else {
$kredit = '0';
$debet = $sum * -1;
}
if ($valutakurs) {
$kredit = afrund($kredit * $valutakurs / 100, 3);
$debet = afrund($debet * $valutakurs / 100, 3);
}
# Omregning til DKK.
$debet = afrund($debet, 2);
$kredit = afrund($kredit, 2);
$d_kontrol = $d_kontrol + $debet;
$k_kontrol = $k_kontrol + $kredit;
$fakturasum += $debet - $kredit;
if ($modtbill) {
$bilag = $modtagelse * 1;
} else {
$bilag = '0';
}
if ($sum) {
#cho "insert into transaktioner (bilag,transdate,beskrivelse,kontonr,faktura,debet,kredit,kladde_id,afd,logdate,logtime,projekt,ansat,ordre_id) values ('$bilag','$transdate','$beskrivelse','$kontonr','$fakturanr','$debet','$kredit','0',$afd,'$logdate','$logtime','$projekt[0]','$ansat','$id')<br>";
db_modify("insert into transaktioner (bilag,transdate,beskrivelse,kontonr,faktura,debet,kredit,kladde_id,afd,logdate,logtime,projekt,ansat,ordre_id) values ('{$bilag}','{$transdate}','{$beskrivelse}','{$kontonr}','{$fakturanr}','{$debet}','{$kredit}','0',{$afd},'{$logdate}','{$logtime}','{$projekt['0']}','{$ansat}','{$id}')", __FILE__ . " linje " . __LINE__);
}
if ($valutakurs) {
$maxdif = 2;
}
#Der tillades 2 oeres afrundingsdiff
$p = 0;
$projektliste = '';
$q = db_select("select distinct(projekt) from ordrelinjer where ordre_id={$id} and vare_id >\t'0'", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$p++;
$projekt[$p] = $r['projekt'];
$projektliste ? $projektliste .= "<br>" . $projekt[$p] : ($projektliste = $projekt[$p]);
}
$projektantal = $p;
if ($projektantal) {
db_modify("update openpost set projekt='{$projektliste}' where id='{$openpost_id}'", __FILE__ . " linje " . __LINE__);
}
for ($t = 1; $t <= 2; $t++) {
for ($p = 1; $p <= $projektantal; $p++) {
$y = 0;
$bogf_konto = array();
if ($t == 1) {
$q = db_select("select * from ordrelinjer where ordre_id={$id} and posnr>=0 and projekt='{$projekt[$p]}'", __FILE__ . " linje " . __LINE__);
} else {
$q = db_select("select * from ordrelinjer where ordre_id={$id} and posnr<0 and projekt='{$projekt[$p]}'", __FILE__ . " linje " . __LINE__);
}
while ($r = db_fetch_array($q)) {
if ($valutakurs) {
$maxdif = $maxdif + 2;
}
#Og yderligere 2 pr ordrelinje.
if (!in_array($r['bogf_konto'], $bogf_konto)) {
$y++;
$bogf_konto[$y] = $r['bogf_konto'];
$pos[$y] = $r['posnr'];
$pris[$y] = afrund($r['pris'] * $r['antal'] - $r['pris'] * $r['antal'] * $r['rabat'] / 100, 2);
#20110124 afrund dec aendret fra 3 til 2 saldi_205 ordre_id 997
} else {
for ($a = 1; $a <= $y; $a++) {
if ($bogf_konto[$a] == $r['bogf_konto']) {
$tmp = afrund($r['pris'] * $r['antal'] - $r['pris'] * $r['antal'] * $r['rabat'] / 100, 2);
#20110124 afrund dec aendret fra 3 til 2 saldi_205 ordre_id 997
$pris[$a] += $tmp;
}
}
}
}
if ($projekt[0] && !$projekt[$p]) {
$projekt[$p] = $projekt[0];
}
$ordrelinjer = $y;
for ($y = 1; $y <= $ordrelinjer; $y++) {
if ($bogf_konto[$y]) {
if ($pris[$y] > 0) {
$debet = $pris[$y];
$kredit = 0;
} else {
$debet = 0;
$kredit = $pris[$y] * -1;
}
$tmp1 = $kredit * $valutakurs / 100;
$tmp2 = $debet * $valutakurs / 100;
if ($t == 1 && $valutakurs) {
$kredit = afrund($kredit * $valutakurs / 100, 3);
$debet = afrund($debet * $valutakurs / 100, 3);
}
# Omregning til DKK.
$debet = afrund($debet, 2);
$kredit = afrund($kredit, 2);
$d_kontrol = $d_kontrol + $debet;
$k_kontrol = $k_kontrol + $kredit;
$linjesum += $debet - $kredit;
if ($pris[$y]) {
db_modify("insert into transaktioner (bilag,transdate,beskrivelse,kontonr,faktura,debet,kredit,kladde_id,afd,logdate,logtime,projekt,ansat,ordre_id) values ('{$bilag}','{$transdate}','{$beskrivelse}','{$bogf_konto[$y]}','{$fakturanr}','{$debet}','{$kredit}','0','{$afd}','{$logdate}','{$logtime}','{$projekt[$p]}','{$ansat}','{$id}')", __FILE__ . " linje " . __LINE__);
}
}
}
}
}
$r = db_fetch_array(db_select("select gruppe from adresser where id='{$konto_id}'", __FILE__ . " linje " . __LINE__));
$r = db_fetch_array(db_select("select box1,box6 from grupper where art='KG' and kodenr='{$r['gruppe']}'", __FILE__ . " linje " . __LINE__));
$box1 = substr(trim($r['box1']), 1, 1);
$smomsnr = substr(trim($r['box6']), 1, 1);
if (!$box1) {
$moms = 0;
}
#################### EU varekoeb moms ################
if (substr(trim($r['box1']), 0, 1) == 'E') {
$r = db_fetch_array(db_select("select box1,box2,box3 from grupper where art='EM' and kodenr='{$box1}'", __FILE__ . " linje " . __LINE__));
$kmomskto = trim($r['box3']);
# Ser lidt forvirrende ud,men den er go nok - fordi koebsmomsen ligger i box 3 v. udenlandsmoms.
$emomskto = $r['box1'];
$moms = $sum / 100 * $r['box2'];
#moms af varekoeb i udland beregnes
if ($moms > 0) {
$kredit = $moms;
$debet = '0';
} else {
$kredit = '0';
$debet = $moms * -1;
}
if ($valutakurs) {
$kredit = afrund($kredit * $valutakurs / 100, 3);
$debet = afrund($debet * $valutakurs / 100, 3);
}
# Omregning til DKK.
$momssum += $debet - $kredit;
$d_kontrol = $d_kontrol + $debet;
$k_kontrol = $k_kontrol + $kredit;
if ($moms) {
db_modify("insert into transaktioner (bilag,transdate,beskrivelse,kontonr,faktura,debet,kredit,kladde_id,afd,logdate,logtime,projekt,ansat,ordre_id) values ('{$bilag}','{$transdate}','{$beskrivelse}','{$emomskto}','{$fakturanr}','{$debet}','{$kredit}','0','{$afd}','{$logdate}','{$logtime}','{$projekt[$p]}','{$ansat}','{$id}')", __FILE__ . " linje " . __LINE__);
}
#################### EU ydelseskoeb moms ################
} elseif (substr(trim($r['box1']), 0, 1) == 'Y') {
$r = db_fetch_array(db_select("select box1,box2,box3 from grupper where art='YM' and kodenr='{$box1}'", __FILE__ . " linje " . __LINE__));
$kmomskto = trim($r['box3']);
# Ser lidt forvirrende ud,men den er go nok - fordi koebsmomsen ligger i box 3 v. udenlandsmoms.
$emomskto = $r['box1'];
$moms = $sum / 100 * $r['box2'];
#moms af varekoeb i udland beregnes
if ($moms > 0) {
$kredit = $moms;
$debet = '0';
} else {
$kredit = '0';
$debet = $moms * -1;
}
if ($valutakurs) {
$kredit = afrund($kredit * $valutakurs / 100, 3);
$debet = afrund($debet * $valutakurs / 100, 3);
}
# Omregning til DKK.
$momssum += $debet - $kredit;
$d_kontrol = $d_kontrol + $debet;
$k_kontrol = $k_kontrol + $kredit;
if ($moms) {
db_modify("insert into transaktioner (bilag,transdate,beskrivelse,kontonr,faktura,debet,kredit,kladde_id,afd,logdate,logtime,projekt,ansat,ordre_id) values ('{$bilag}','{$transdate}','{$beskrivelse}','{$emomskto}','{$fakturanr}','{$debet}','{$kredit}','0','{$afd}','{$logdate}','{$logtime}','{$projekt[$p]}','{$ansat}','{$id}')", __FILE__ . " linje " . __LINE__);
}
####################
} else {
#cho "$omlev && $smomsnr<br>";
if ($omlev && $smomsnr) {
#cho "select box1,box2,box3 from grupper where art='SM' and kodenr='$smomsnr'<br>";
$r = db_fetch_array(db_select("select box1,box2,box3 from grupper where art='SM' and kodenr='{$smomsnr}'", __FILE__ . " linje " . __LINE__));
$smomskto = $r['box1'];
#cho "SM $smomskto<br>";
$smoms = 0;
#cho "select * from ordrelinjer where ordre_id='$id' and omvbet='on' and momsfri!='on'<br>";
$q = db_select("select * from ordrelinjer where ordre_id='{$id}' and omvbet='on' and momsfri!='on'", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$linjesum = afrund($r['pris'] * $r['antal'] - $r['pris'] * $r['antal'] * $r['rabat'] / 100, 2);
#cho "LS $linjesum<br>";
$smoms += afrund($linjesum * $momssats / 100, 2);
#cho "MS $smoms<br>";
}
}
$moms += $smoms;
#cho "Moms $moms<br>";
if ($smoms > 0) {
$kredit = $smoms;
$debet = '0';
} else {
$kredit = '0';
$debet = $smoms * -1;
}
if ($valutakurs) {
$kredit = afrund($kredit * $valutakurs / 100, 3);
$debet = afrund($debet * $valutakurs / 100, 3);
}
# Omregning til DKK.
$kredit = afrund($kredit, 3);
$debet = afrund($debet, 3);
$d_kontrol = $d_kontrol + $debet;
$k_kontrol = $k_kontrol + $kredit;
if ($smoms) {
#cho "SM $smoms D $debet K $kredit<br>";
$tmp = $beskrivelse . " (Omvendt betaling)";
#cho "insert into transaktioner (bilag,transdate,beskrivelse,kontonr,faktura,debet,kredit,kladde_id,afd,logdate,logtime,projekt,ansat,ordre_id) values ('$bilag','$transdate','$tmp','$smomskto','$fakturanr','$debet','$kredit','0','$afd','$logdate','$logtime','$projekt[0]','$ansat','$id')<br>";
db_modify("insert into transaktioner (bilag,transdate,beskrivelse,kontonr,faktura,debet,kredit,kladde_id,afd,logdate,logtime,projekt,ansat,ordre_id) values ('{$bilag}','{$transdate}','{$tmp}','{$smomskto}','{$fakturanr}','{$debet}','{$kredit}','0','{$afd}','{$logdate}','{$logtime}','{$projekt['0']}','{$ansat}','{$id}')", __FILE__ . " linje " . __LINE__);
}
$r = db_fetch_array(db_select("select box1 from grupper where art='KM' and kodenr='{$box1}'", __FILE__ . " linje " . __LINE__));
$kmomskto = trim($r['box1']);
}
if ($moms > 0) {
$debet = $moms;
$kredit = '0';
} else {
$debet = '0';
$kredit = $moms * -1;
}
if ($valutakurs) {
$kredit = afrund($kredit * $valutakurs / 100, 3);
$debet = afrund($debet * $valutakurs / 100, 3);
}
# Omregning til DKK.
$kredit = afrund($kredit, 3);
$debet = afrund($debet, 3);
$d_kontrol = $d_kontrol + $debet;
$k_kontrol = $k_kontrol + $kredit;
$momssum += $debet - $kredit;
$moms = afrund($moms, 2);
if ($moms) {
#cho "insert into transaktioner (bilag,transdate,beskrivelse,kontonr,faktura,debet,kredit,kladde_id,afd,logdate,logtime,projekt,ansat,ordre_id) values ('$bilag','$transdate','$beskrivelse','$kmomskto','$fakturanr','$debet','$kredit','0','$afd','$logdate','$logtime','$projekt[0]','$ansat','$id')<br>";
db_modify("insert into transaktioner (bilag,transdate,beskrivelse,kontonr,faktura,debet,kredit,kladde_id,afd,logdate,logtime,projekt,ansat,ordre_id) values ('{$bilag}','{$transdate}','{$beskrivelse}','{$kmomskto}','{$fakturanr}','{$debet}','{$kredit}','0','{$afd}','{$logdate}','{$logtime}','{$projekt['0']}','{$ansat}','{$id}')", __FILE__ . " linje " . __LINE__);
}
db_modify("update ordrer set status=4,valutakurs={$valutakurs} where id={$id}", __FILE__ . " linje " . __LINE__);
db_modify("delete from ordrelinjer where ordre_id={$id} and posnr < 0", __FILE__ . " linje " . __LINE__);
}
$d_kontrol = afrund($d_kontrol, 2);
$k_kontrol = afrund($k_kontrol, 2);
if ($diff = afrund($d_kontrol - $k_kontrol, 2)) {
if ($valuta != 'DKK' && abs($diff) <= $maxdif) {
#Der maa max vaere en afvigelse paa 1 oere pr ordrelinje m fremmed valuta;
$debet = 0;
$kredit = 0;
if ($diff < 0) {
$debet = $diff * -1;
} else {
$kredit = $diff;
}
$debet = afrund($debet, 2);
$kredit = afrund($kredit, 2);
db_modify("insert into transaktioner (bilag,transdate,beskrivelse,kontonr,faktura,debet,kredit,kladde_id,afd,logdate,logtime,projekt,ansat,ordre_id) values ('{$bilag}','{$transdate}','{$beskrivelse}','{$difkto}','{$fakturanr}','{$debet}','{$kredit}','0','{$afd}','{$logdate}','{$logtime}','{$projekt['0']}','{$ansat}','{$id}')", __FILE__ . " linje " . __LINE__);
} else {
print "<BODY onLoad=\"javascript:alert('Der er konstateret en uoverensstemmelse i posteringssummen, kontakt DANOSOFT på telefon 4690 2208')\">";
print "<meta http-equiv=\"refresh\" content=\"0;URL=ordre.php?id={$id}\">";
exit;
}
}
#print "<BODY onLoad=\"javascript:alert('xxxxxxxxxxxxxxxxxxxx')\">";
#xit;
# genberegn($regnaar);
}
}
}
$qtxt = "select gruppe,art from adresser where id = '{$konto_id}'";
$r = db_fetch_array(db_select($qtxt, __FILE__ . " linje " . __LINE__));
$gruppe = trim($r['gruppe']);
$art = trim($r['art']);
if (substr($art, 0, 1) == 'D') {
$art = 'DG';
} else {
$art = 'KG';
}
$qtxt = "select box2 from grupper where art='{$art}' and kodenr='{$gruppe}'";
$r = db_fetch_array(db_select($qtxt, __FILE__ . " linje " . __LINE__));
#cho "$samlekonto=$r[box2]<br>";
$samlekonto = $r['box2'];
$dkkdiff = afrund($dkkdiff, 2);
$qtxt = "select sum(debet) as debet, sum(kredit) as kredit from transaktioner where kontonr='{$samlekonto}'";
$r = db_fetch_array(db_select($qtxt, __FILE__ . " linje " . __LINE__));
$tmp = $r['debet'] - $r['kredit'];
#cho "saldo $tmp<br>";
if ($godkend) {
transaktion('begin');
if ($dkkdiff >= 0.01) {
$qtxt = "insert into transaktioner (kontonr, bilag, transdate, logdate, logtime, beskrivelse, kredit, kladde_id,afd, ansat, projekt, ordre_id)values('{$diffkto}','0','{$bfdate}','{$logdate}','{$logtime}','{$beskrivelse}','{$dkkdiff}','0','0','0','0','0')";
db_modify($qtxt, __FILE__ . " linje " . __LINE__);
$qtxt = "insert into transaktioner (kontonr, bilag, transdate, logdate, logtime, beskrivelse, debet, kladde_id,afd, ansat, projekt, ordre_id)values('{$samlekonto}','0','{$bfdate}','{$logdate}','{$logtime}','{$beskrivelse}','{$dkkdiff}','0','0','0','0','0')";
db_modify($qtxt, __FILE__ . " linje " . __LINE__);
$tmp = $dkkdiff * -1;
} elseif ($dkkdiff <= -0.01) {
$tmp = $dkkdiff * -1;
$qtxt = "insert into transaktioner (kontonr, bilag, transdate, logdate, logtime, beskrivelse, debet, kladde_id,afd, ansat, projekt, ordre_id)values({$diffkto}, '0','{$bfdate}','{$logdate}','{$logtime}','{$beskrivelse}','{$tmp}','0','0','0','0','0')";
