function stykliste($id, $udskriv, $udvalg)
{
global $charset;
$x = 0;
$query = db_select("select * from styklister where indgaar_i='{$id}' order by posnr");
while ($row = db_fetch_array($query)) {
$x++;
$vare_id[$x] = $row['vare_id'];
$antal[$x] = $row['antal'];
$posnr[$x] = $row['posnr'];
}
$vareantal = $x;
$query = db_select("select varenr, beskrivelse from varer where id={$id}");
$row = db_fetch_array($query);
if ($udskriv) {
print "<table cellpadding=\"1\" cellspacing=\"1\" border=\"1\" width=80% align=center><tbody>";
print "<tr><td colspan=6 align=center><big><b>Stykliste for <a href=varekort.php?id={$id}>" . htmlentities($row['varenr'], ENT_COMPAT, $charset) . "</a></b></big></td></tr>";
print "<tr><td align=center> Varenr:</td><td align=center> Beskrivelse</td><td align=center> Kostpris</td><td align=center> Antal</td><td align=center> Sum</td></tr>";
}
for ($x = 1; $x <= $vareantal; $x++) {
$query = db_select("select * from varer where id={$vare_id[$x]}");
$row = db_fetch_array($query);
$query2 = db_select("select kostpris from vare_lev where vare_id={$row['id']} order by posnr");
if ($row2 = db_fetch_array($query2)) {
$sum = $row2['kostpris'] * $antal[$x];
$ialt = $ialt + $sum;
$pris = dkdecimal($row2['kostpris']);
} else {
$query2 = db_select("select kostpris from varer where id={$row['id']}");
$row2 = db_fetch_array($query2);
$sum = $row2['kostpris'] * $antal[$x];
$ialt = $ialt + $sum;
$pris = dkdecimal($row2['kostpris']);
}
$sum = dkdecimal($sum);
if ($udskriv) {
print "<tr><td>" . htmlentities($row['varenr'], ENT_COMPAT, $charset) . "</td><td>" . htmlentities($row['beskrivelse'], ENT_COMPAT, $charset) . "</td><td align=right> {$pris}</td><td align=right> {$antal[$x]}</td><td align=right> {$sum}</td></tr>";
}
}
# $ialt=dkdecimal($ialt);
if ($udskriv) {
print "<tr><td colspan=5><br></td></tr><tr><td colspan=4> I alt</td></td><td align=right>" . dkdecimal($ialt) . "</td></tr>";
print "<tbody></table>";
}
return $ialt;
}
print "<table width=\"400\" align=\"center\" border=\"0\" cellspacing=\"2\" cellpadding=\"0\"><tbody>";
#B2
$filnavn = "../temp/" . $db . "/" . $ordre_id . ".csv";
#echo "Filnavn $filnavn<br>";
$fp = fopen($filnavn, "w");
fwrite($fp, "Pos" . chr(9) . "Vores varenummer" . chr(9) . "Deres varenummer" . chr(9) . "Beskrivelse" . chr(9) . "Antal" . chr(9) . "Pris" . chr(9) . "Rabat" . chr(9) . "I alt" . chr(9) . "\n");
$q = db_select("select * from ordrelinjer where ordre_id = {$ordre_id} order by posnr");
while ($r = db_fetch_array($q)) {
$beskrivelse = str_replace(chr(9), " ", $r['beskrivelse']);
$varenr = str_replace(chr(9), " ", $r['varenr']);
$lev_vnr = str_replace(chr(9), " ", $r['lev_vnr']);
if ($charset == 'UTF-8') {
$beskrivelse = utf8_decode($beskrivelse);
$varenr = utf8_decode($varenr);
$lev_vnr = utf8_decode($lev_vnr);
}
$antal = dkdecimal($r['antal']);
$pris = dkdecimal($r['pris']);
$rabat = dkdecimal($r['rabat']);
$ialt = dkdecimal($r['pris'] * $r['antal'] - $r['pris'] * $r['antal'] / 100 * $r['rabat']);
fwrite($fp, $r[posnr] . chr(9) . $varenr . chr(9) . $lev_vnr . chr(9) . $beskrivelse . chr(9) . $antal . chr(9) . $pris . chr(9) . $rabat . chr(9) . $ialt . "\n");
}
fclose($fp);
print "<tr><td align=center> Klik her: </td><td {$top_bund} title=\"Åbner csv filen. Højreklik for at gemme\"> <a href=\"{$filnavn}\">Åben ordrefil</a></td></tr>";
print "</tbody></table></td></tr>";
#B2 s**t
print "</tbody></table>";
#A s**t
?>
</body></html>
#cho "$qtxt<br>";
$q = db_select($qtxt, __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
if (!in_array($r['id'], $shop_saldi_id)) {
$forslag_id[$x] = $r['id'];
$forslag_vnr[$x] = $r['varenr'];
$forslag_besk[$x] = $r['beskrivelse'];
$forslag_grp[$x] = $r['gruppe'];
$x++;
}
}
print "<tr><td>Shop vare ID:</td><td>{$shop_id}</td></tr>";
print "<tr><td>Shop vare nr:</td><td>{$shop_vnr}</td></tr>";
print "<tr><td>Beskrivelse:</td><td>{$beskrivelse}</td></tr>";
print "<tr><td>Pris:</td><td>" . dkdecimal($pris) . "</td></tr>";
print "<tr><td>Tilbudspris:</td><td>" . dkdecimal($specialpris) . "</td></tr>";
if (count($forslag_id) >= 1) {
print "<form name=\"hent_varer\" action=\"hent_varer.php?shop_id={$shop_id}&shop_vnr={$shop_vnr}&beskrivelse={$beskrivelse}&pris={$pris}&specialpris={$specialpris}\" method=post autocomplete=\"off\">\n";
print "<tr><td>Varen er ikke bundet til nogen vare i Saldi, men vi har følgende forslag:</td>";
print "<td><select name=\"saldi_id\">";
for ($x = 0; $x < count($forslag_id); $x++) {
print "<option value=\"{$forslag_id[$x]}\">{$forslag_vnr[$x]},{$forslag_besk[$x]}</option>";
}
print "</select></td></tr>";
print "<tr><td colspan=\"2\" align=\"center\"><input type=\"submit\"name=\"tilknyt\" value=\"Tilknyt\"> <a href={$url}&next_id={$shop_id}><input type=\"button\" value=\"Spring over\"></td></tr>";
print "</form>";
if (count($forslag_vnr) == 1 && $forslag_vnr[0] == $shop_id) {
$qtxt = "select id from shop_varer where saldi_id='{$forslag_id['0']}'";
$r = db_fetch_array(db_select($qtxt, __FILE__ . " linje " . __LINE__));
if ($r['id']) {
$qtxt = "update shop_varer set shop_id='{$shop_id}' where id ='{$r['id']}'";
if ($valuta == $valuta_kode[$x]) {
print "<option value='{$valuta_kode[$x]}'>{$valuta_kode[$x]} : {$valuta_navn[$x]}</option>";
}
}
for ($x = 0; $x < count($valuta_kode); $x++) {
if ($valuta != $valuta_kode[$x]) {
print "<option value='{$valuta_kode[$x]}'>{$valuta_kode[$x]} : {$valuta_navn[$x]}</option>";
}
}
print "</select></td></tr>";
} else {
print "<input type=\"hidden\" name=\"{$valuta_kode[$x]}\" value='DKK'>";
}
}
if ($kontotype == 'Drift' || $kontotype == 'Status') {
print "<tr><td colspan=\"2\">Saldo</td><td>{$valuta}: " . dkdecimal($saldo * 100 / $valutakurs) . "</td><tr>";
}
if ($lukket == 'on') {
$lukket = "checked";
}
print "<tr><td colspan=\"2\">Lukket</td>";
print "<td><input type=checkbox name=lukket {$lukket}></td></tr>\n";
print "<tr><td><br></td></tr>\n";
print "<tr><td><br></td></tr>\n";
print "<tr><td colspan=4 align=center>";
print "<table width=\"100%\" cellpadding=\"0\" cellspaci ng=\"0\" border=\"0\"><tbody>";
print "<td align=center><input type=submit accesskey=\"g\" value=\"Gem/opdatér\" name=\"gem\"></td>";
if ($slet == 1) {
print "<td align = center><input type=submit accesskey=\"s\" value=\" Slet \" name=\"slet\" onclick=\"return confirm('Vil du slette konto {$kontonr}?')\" ></td>";
}
print "</tr>\n</tbody></table>";
function find_kassesalg($kasse, $optalt)
{
global $regnaar;
global $straksbogfor;
$dd = date("Y-m-d");
$r = db_fetch_array(db_select("select * from grupper where art = 'RA' and kodenr = '{$regnaar}'", __FILE__ . " linje " . __LINE__));
$startmd = $r['box1'];
$startaar = $r['box2'];
#cho "startmd $startmd startaar $startaar<br>\n";
$regnstart = $startaar . "-" . $startmd . "-01";
$r = db_fetch_array(db_select("select * from grupper where art = 'POS' and kodenr = '1'", __FILE__ . " linje " . __LINE__));
$kassekonti = explode(chr(9), $r['box2']);
$kortantal = $r['box4'] * 1;
$kortnavne = $r['box5'];
$kortnavn = explode(chr(9), $kortnavne);
$kortkonti = $r['box6'];
$kortkonto = explode(chr(9), $kortkonti);
$straksbogfor = $r['box9'];
for ($x = 0; $x < count($kortnavn); $x++) {
$kortsum[$x] = 0;
}
$r = db_fetch_array(db_select("select * from grupper where art = 'POS' and kodenr = '2'", __FILE__ . " linje " . __LINE__));
$byttepenge = $r['box1'];
#cho "byt $byttepenge<br>\n";
#$byttepenge='';
$k = $kasse - 1;
#cho "select primo from kontoplan where regnskabsaar = '$regnaar' and kontonr = '$kassekonti[$k]'<br>\n";
if (!$byttepenge) {
$r = db_fetch_array(db_select("select primo from kontoplan where regnskabsaar = '{$regnaar}' and kontonr = '{$kassekonti[$k]}'", __FILE__ . " linje " . __LINE__));
$byttepenge = $r['primo'];
#cho "select sum(debet) as debet,sum(kredit) as kredit from transaktioner where transdate < '$dd' and transdate >= '$regnstart' and kontonr = '$kassekonti[$k]'<br>\n";
$r = db_fetch_array(db_select("select sum(debet) as debet,sum(kredit) as kredit from transaktioner where transdate < '{$dd}' and transdate >= '{$regnstart}' and kontonr = '{$kassekonti[$k]}' and kasse_nr='{$kasse}'", __FILE__ . " linje " . __LINE__));
$byttepenge += $r['debet'] - $r['kredit'];
#cho "byt $byttepenge<br>\n";
}
$r = db_fetch_array(db_select("select sum(debet) as debet,sum(kredit) as kredit from transaktioner where transdate = '{$dd}' and kontonr = '{$kassekonti[$k]}' and kasse_nr='{$kasse}'", __FILE__ . " linje " . __LINE__));
$tilgang = $r['debet'] - $r['kredit'];
if (!$straksbogfor) {
#cho "select sum(sum+moms) as sum from ordrer where status = '3' and art = 'PO' and fakturadate <= '$dd' and felt_5='$kasse'<br>";
$q = db_select("select * from ordrer where status = '3' and art = 'PO' and fakturadate <= '{$dd}' and felt_5='{$kasse}'", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$retur = $r['felt_2'] + $r['felt_4'] - ($r['sum'] + $r['moms']);
if ($r['felt_1'] == 'Kontant') {
$tilgang += $r['felt_2'] - $retur;
}
if ($r['felt_3'] == 'Kontant') {
$tilgang += $r['felt_4'] - $retur;
}
for ($x = 0; $x < count($kortnavn); $x++) {
if ($r['felt_1'] == $kortnavn[$x]) {
$kortsum[$x] += $r['felt_2'];
}
if ($r['felt_3'] == $kortnavn[$x]) {
$kortsum[$x] += $r['felt_4'];
}
}
}
}
if ($kortantal) {
# $kortsum[]=0;
# fwrite($fp,"\n\nSalg paa kort\n\n");
for ($x = 0; $x < $kortantal; $x++) {
if ($kortkonto[$x]) {
#cho "select sum(debet) as debet,sum(kredit) as kredit from transaktioner where transdate = '$dd' and kontonr = '$kortkonto[$x]' and kasse_nr = '$kasse'<br>\n";
$r = db_fetch_array(db_select("select sum(debet) as debet,sum(kredit) as kredit from transaktioner where transdate = '{$dd}' and kontonr = '{$kortkonto[$x]}' and kasse_nr = '{$kasse}'", __FILE__ . " linje " . __LINE__));
$kortsum[$x] += dkdecimal($r['debet'] - $r['kredit']);
}
}
}
# $kassesum=dkdecimal($byttepenge+$tilgang);
# $byttepenge=dkdecimal($byttepenge);
# $tilgang=dkdecimal($tilgang);
$diff = $optalt - ($byttepenge + $tilgang);
$diff < 0 ? $prefix = NULL : ($prefix = "+");
$kortsummer = $kortsum[0];
for ($x = 1; $x < $kortantal; $x++) {
$kortsummer .= chr(9) . $kortsum[$x];
}
return array($byttepenge, $tilgang, $diff, $kortantal, $kortkonti, $kortnavne, $kortsummer);
}
include "../includes/online.php";
include "../includes/std_func.php";
$returside = "../diverse.php";
$filnavn = "../temp/" . trim($db . "_debitorer_" . date("Y-m-d") . ".csv");
$fp = fopen($filnavn, "w");
if (fwrite($fp, "kontonr" . chr(9) . "firmanavn" . chr(9) . "addr1" . chr(9) . "addr2" . chr(9) . "postnr" . chr(9) . "bynavn" . chr(9) . "land" . chr(9) . "kontakt" . chr(9) . "tlf" . chr(9) . "fax" . chr(9) . "email" . chr(9) . "web" . chr(9) . "notes" . chr(9) . "kreditmax" . chr(9) . "betalingsbet" . chr(9) . "betalingsdage" . chr(9) . "cvrnr" . chr(9) . "ean" . chr(9) . "institution" . chr(9) . "gruppe" . chr(9) . "kontoansvarlig" . chr(9) . "oprettet" . chr(9) . "kontakt_navn" . chr(9) . "kontakt_addr1" . chr(9) . "kontakt_addr2" . chr(9) . "kontakt_postnr" . chr(9) . "kontakt_bynavn" . chr(9) . "kontakt_tlf" . chr(9) . "kontakt_fax" . chr(9) . "kontakt_email" . chr(9) . "kontakt_notes]\r\n")) {
$q = db_select("select * from adresser where art='D' order by kontonr", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$ansatte = 0;
if ($r['kontoansvarlig']) {
$r2 = db_fetch_array(db_select("select initialer from ansatte where id='{$r['kontoansvarlig']}'", __FILE__ . " linje " . __LINE__));
$kontoansvarlig = $r2['initialer'];
} else {
$kontoansvarlig = '';
}
$kreditmax = dkdecimal($r['kreditmax']);
$oprettet = dkdato($r['oprettet']);
$tmp1 = str_replace("\n", "\\n", $r[kontonr] . chr(9) . chr(32) . $r[firmanavn] . chr(32) . chr(9) . chr(32) . $r[addr1] . chr(32) . chr(9) . chr(32) . $r[addr2] . chr(32) . chr(9) . chr(32) . $r[postnr] . chr(32) . chr(9) . chr(32) . $r[bynavn] . chr(32) . chr(9) . chr(32) . $r[land] . chr(32) . chr(9) . chr(32) . $r[kontakt] . chr(32) . chr(9) . chr(32) . $r[tlf] . chr(32) . chr(9) . chr(32) . $r[fax] . chr(32) . chr(9) . chr(32) . $r[email] . chr(32) . chr(9) . chr(32) . $r[web] . chr(32) . chr(9) . chr(32) . $r[notes] . chr(32) . chr(9) . $kreditmax . chr(9) . chr(32) . $r[betalingsbet] . chr(32) . chr(9) . $r[betalingsdage] . chr(9) . chr(32) . $r[cvrnr] . chr(32) . chr(9) . chr(32) . $r[ean] . chr(32) . chr(9) . chr(32) . $r[institution] . chr(32) . chr(9) . $r[gruppe] . chr(9) . chr(32) . $kontoansvarlig . chr(32) . chr(9) . chr(32) . $oprettet);
$tmp1 = str_replace("\r", "\\r", $tmp1);
if ($charset == 'UTF-8') {
$tmp1 = utf8_decode($tmp1);
}
$q2 = db_select("select * from ansatte where konto_id='{$r['id']}' order by navn", __FILE__ . " linje " . __LINE__);
while ($r2 = db_fetch_array($q2)) {
$ansatte++;
$tmp2 = str_replace("\n", "\\n", $r2[navn] . chr(32) . chr(9) . chr(32) . $r2[addr1] . chr(32) . chr(9) . chr(32) . $r2[addr2] . chr(32) . chr(9) . chr(32) . $r2[postnr] . chr(32) . chr(9) . chr(32) . $r2[bynavn] . chr(32) . chr(9) . chr(32) . $r2[tlf] . chr(32) . chr(9) . chr(32) . $r2[fax] . chr(32) . chr(9) . chr(32) . $r2[email] . chr(32) . chr(9) . chr(32) . $r2[notes]);
$tmp2 = str_replace("\r", "\\r", $tmp2);
if ($charset == 'UTF-8') {
$tmp2 = utf8_decode($tmp2);
}
$linje = $tmp1 . chr(32) . chr(9) . chr(32) . $tmp2;
function vis_data($filnavn, $splitter, $feltnavn, $feltantal, $leverandor, $varegrp, $rabat)
{
global $font;
list($kontonr, $tmp) = split(" : ", $leverandor);
if (!$feltnavn) {
$feltnavn = array();
}
$fp = fopen("../temp/" . $filnavn, "r");
if ($fp) {
$linje = fgets($fp);
$tmp = $linje;
while ($tmp = substr(strstr($tmp, ";"), 1)) {
$semikolon++;
}
$tmp = $linje;
while ($tmp = substr(strstr($tmp, ","), 1)) {
$komma++;
}
$tmp = $linje;
while ($tmp = substr(strstr($tmp, chr(9)), 1)) {
$tabulator++;
}
$tmp = '';
if ($komma > $semikolon && $komma > $tabulator) {
$tmp = 'Komma';
$feltantal = $komma;
} elseif ($semikolon > $tabulator && $semikolon > $komma) {
$tmp = 'Semikolon';
$feltantal = $semikolon;
} elseif ($tabulator > $semikolon && $tabulator > $komma) {
$tmp = 'Tabulator';
$feltantal = $tabulator;
}
if (!$splitter) {
$splitter = $tmp;
} elseif ($splitter == "Brdr. Dahl") {
$feltantal = 7;
}
}
fclose($fp);
print "<tr><td width=100% align=center><table width=\"100%\" border=\"0\" cellspacing=\"1\" cellpadding=\"1\"><tbody>";
print "<form enctype=\"multipart/form-data\" action=\"vareimport.php\" method=\"POST\">";
#print "<tr><td colspan=6 width=100% align=center>$font $filnavn</td></tr>";
print "<tr><td colspan={$feltantal} align=center>{$font} Separatortegn <select name=splitter>\n";
if ($splitter) {
print "<option>{$splitter}</option>\n";
}
if ($splitter != 'Semikolon') {
print "<option>Semikolon</option>\n";
}
if ($splitter != 'Komma') {
print "<option>Komma</option>\n";
}
if ($splitter != 'Tabulator') {
print "<option>Tabulator</option>\n";
}
if ($splitter != 'Brdr. Dahl') {
print "<option>Brdr. Dahl</option>\n";
}
print "</select>";
print " Leverandør <select name=leverandor>\n";
if ($leverandor) {
print "<option>{$leverandor}</option>\n";
}
$q = db_select("select * from adresser where art='K'");
print "<option></option>";
while ($r = db_fetch_array($q)) {
if ($r[kontonr] != $kontonr) {
print "<option>{$r['kontonr']} : {$r['firmanavn']}</option>";
}
}
print "</select>";
if (!in_array('Varegrp.', $feltnavn)) {
print " Varegrp. <select name=varegrp>\n";
if ($varegrp) {
print "<option>{$varegrp}</option>\n";
}
$q = db_select("select * from grupper where art='VG'");
print "<option></option>";
while ($r = db_fetch_array($q)) {
if ($r[kodenr] != $kodenr) {
print "<option>{$r['kodenr']} : {$r['beskrivelse']}</option>";
}
}
print "</select>";
}
if (!in_array('Kostpris', $feltnavn) && in_array('Salgspris', $feltnavn)) {
print " Rabat <input type=text name = rabat size=2 value={$rabat}> %\n";
}
print "<input type=\"hidden\" name=\"filnavn\" value={$filnavn}>";
print "<input type=\"hidden\" name=\"feltantal\" value={$feltantal}>";
print " <input type=\"submit\" name=submit value=\"Vis\" />";
if (in_array('Beskrivelse', $feltnavn) && in_array('Salgspris', $feltnavn) && (in_array('Kostpris', $feltnavn) || $rabat) && in_array('Enhed', $feltnavn) && (in_array('Varegrp.', $feltnavn) || $varegrp)) {
print " <input type=\"submit\" name=submit value=\"Flyt\" />";
}
print "</td></tr>";
if (!$splitter || $splitter == 'Semikolon') {
$splitter = ';';
} elseif ($splitter == 'Komma') {
$splitter = ',';
} elseif ($splitter == 'Tabulator') {
$splitter = chr(9);
} elseif ($splitter == 'Brdr. Dahl') {
$feltantal = 7;
}
for ($y = 0; $y < $feltantal; $y++) {
print "<td><select name=feltnavn[{$y}]>\n";
if ($feltnavn[$y] == 'Varegrp.' && $varegrp) {
$feltnavn[$y] == '';
}
print "<option>{$feltnavn[$y]}</option>\n";
if (!in_array('Eget varenr.', $feltnavn) && !in_array('Begge varenr.', $feltnavn)) {
print "<option>Eget varenr.</option>\n";
}
if (!in_array('Lev. varenr.', $feltnavn) && !in_array('Begge varenr.', $feltnavn)) {
print "<option>Lev. varenr.</option>\n";
}
if (!in_array('Eget varenr.', $feltnavn) && !in_array('Lev. varenr.', $feltnavn) && !in_array('Begge varenr.', $feltnavn)) {
print "<option>Begge varenr.</option>\n";
} elseif ($feltnavn[$y] == 'Eget varenr.' && !in_array('Lev. varenr.', $feltnavn) && !in_array('Begge varenr.', $feltnavn)) {
print "<option>Begge varenr.</option>\n";
} elseif ($feltnavn[$y] == 'Begge varenr.') {
print "<option>Eget varenr.</option>\n";
print "<option>Lev. varenr.</option>\n";
}
if (!in_array('Beskrivelse', $feltnavn)) {
print "<option>Beskrivelse</option>\n";
}
if (!in_array('Salgspris', $feltnavn)) {
print "<option>Salgspris</option>\n";
}
if (!in_array('Kostpris', $feltnavn) && !$rabat) {
print "<option>Kostpris</option>\n";
}
if (!in_array('Enhed', $feltnavn)) {
print "<option>Enhed</option>\n";
}
if (!in_array('Varegrp.', $feltnavn) && !$varegrp) {
print "<option>Varegrp.</option>\n";
}
if ($feltnavn[$y]) {
print "<option></option>\n";
}
print "</select>";
if ($feltnavn[$y] == 'Salgspris' && $rabat) {
print "</td><td>{$font} Kostpris\n";
}
print "</td>";
}
print "</form>";
$fp = fopen("../temp/" . $filnavn, "r");
if ($fp) {
$x = 0;
while (!feof($fp)) {
$x++;
$linje = fgets($fp);
$felt = array();
if ($splitter == 'Brdr. Dahl') {
print "<tr>";
$felt[0] = substr($linje, 1, 10);
$felt[1] = substr($linje, 12, 35);
$felt[2] = substr($linje, 47, 10);
$felt[3] = substr($linje, 58, 3);
$felt[4] = substr($linje, 61, 3);
$felt[5] = substr($linje, 64, 1);
$felt[6] = substr($linje, 65, 3);
$felt[1] = str_replace(chr(145), "æ", $felt[1]);
$felt[1] = str_replace(chr(155), "ø", $felt[1]);
$felt[1] = str_replace(chr(134), "å", $felt[1]);
$felt[1] = str_replace(chr(146), "Æ", $felt[1]);
$felt[1] = str_replace(chr(157), "Ø", $felt[1]);
$felt[1] = str_replace(chr(143), "Å", $felt[1]);
} else {
$felt = split($splitter, $linje);
}
for ($y = 0; $y < $feltantal; $y++) {
if ($feltnavn[$y] == 'Varegrp.' && !in_array($felt[$y], $feltnavn)) {
$linjefarve[$x] = 'red';
}
}
for ($y = 0; $y < $feltantal; $y++) {
if (substr($felt[$y], 0, 1) == '"' && substr($felt[$y], -1) == '"') {
$felt[$y] = substr($felt[$y], 1, strlen($felt[$y]) - 2);
}
if ($linjefarve[$x] == 'red' && $feltnavn[$y]) {
print "<td><FONT COLOR=#FF0000><small>{$felt[$y]} </small></td>";
} elseif ($feltnavn[$y]) {
if ($feltnavn[$y] == 'Salgspris') {
$tmp = dkdecimal($felt[$y] / 100);
print "<td><FONT COLOR=#000000><small>{$tmp} </small></td>";
if ($rabat) {
$tmp = dkdecimal($felt[$y] / 100 - $felt[$y] / 10000 * $rabat);
print "<td><FONT COLOR=#000000><small>{$tmp} </small></td>";
}
} else {
print "<td><FONT COLOR=#000000><small>{$felt[$y]} </small></td>";
}
} else {
print "<td><FONT COLOR=#999999><small>{$felt[$y]} </small></td>";
}
}
print "</tr>";
}
if ($linjefarve) {
print "<BODY onLoad=\"javascript:alert('Røde linjer vil ikke blive importeret - varegruppe findes ikke')\">";
}
}
fclose($fp);
print "</tbody></table>";
print "</td></tr>";
}
if ($charset == "UTF-8") {
$overskrift = utf8_decode($overskrift);
}
if (fwrite($fp, "{$overskrift}\r\n")) {
$z = 0;
$q = db_select("select varer.id,varer.varenr,varer.beskrivelse,variant_varer.variant_stregkode,variant_varer.variant_type,variant_varer.variant_salgspris,variant_varer.variant_kostpris,variant_varer.variant_vejlpris from varer,variant_varer where varer.id=variant_varer.vare_id order by varer.varenr,variant_varer.variant_stregkode", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$z++;
if ($z >= $start && $z <= $s**t) {
$vare_id = $r['id'];
$varenr = $r['varenr'];
$beskrivelse = $r['beskrivelse'];
$variant_stregkode = $r['variant_stregkode'];
$variant_type = explode(chr(9), $r['variant_type']);
# $variant_lager=$r['lager'];
$linje = '"' . $varenr . '"' . chr(9) . '"' . $beskrivelse . '"' . chr(9) . '"' . $variant_stregkode . '"' . chr(9) . dkdecimal($r['variant_kostpris']) . chr(9) . dkdecimal($r['variant_salgspris']) . chr(9) . dkdecimal($r['variant_vejlpris']);
for ($x = 0; $x < count($varianter_id); $x++) {
# $linje.=chr(9)."$varianter_beskrivelse[$x]";
$tmp = NULL;
for ($y = 0; $y < count($varianttyper_id); $y++) {
#20140526
if (isset($varianttyper_id[$y]) && isset($variant_type[$x]) && $varianttyper_id[$y] == $variant_type[$x]) {
$tmp = $varianttyper_beskrivelse[$y];
}
}
$linje .= chr(9) . '"' . "{$tmp}" . '"';
}
$linje = str_replace("\n", "", $linje);
if ($charset == "UTF-8") {
$linje = utf8_decode($linje);
}
if (!$start) {
$start = 1;
}
if ($s**t > $vareantal) {
$s**t = $vareantal;
}
for ($x = $start; $x <= $s**t; $x++) {
$href = "prislister.php?ordre_id={$ordre_id}&prisliste={$prisliste}&indset={$varenr[$x]}&fokus={$fokus}";
print "<tr>";
print "<td><a href=\"{$href}\">{$varenr[$x]}</a></td>";
print "<td>{$ean[$x]}</td>";
print "<td>{$prisgruppe[$x]}</td>";
print "<td>{$beskrivelse[$x]}</td>";
print "<td>{$enhed[$x]}</td>";
print "<td align=\"right\">" . dkdecimal($salgspris[$x]) . "</td>";
print "<td align=\"right\">" . dkdecimal($kostpris[$x]) . "</td>";
print "<td></td>";
print "</tr>";
}
print "</tbody></table>";
print "</td></tr>";
function udvaelg($x, $a, $b)
{
$a = trim(strtolower($a));
$b = trim(strtolower($b));
# if (substr($b,0,1)=='f') #echo "$b - ";
if (substr($a, 0, 1) == '*' && substr($a, -1) == '*') {
$a = substr($a, 1, strlen($a) - 2);
if (!strstr($b, $a)) {
$x--;
}
$erh = "ERH351";
} else {
$erh = "ERH356";
}
if ($erh == "ERH351" || $erh == "ERH357" || $erh == "ERH358" || $erh == "SDCK020") {
$modt_konto = $r['modt_fi'];
$kort_ref = $r['betal_id'];
} elseif ($r['faktnr']) {
$kort_ref = "Fakt: " . $r['faktnr'];
}
if ($r['forfaldsdate']) {
$forfaldsdag = str_replace("-", "", dkdato($r['forfaldsdate']));
} else {
$forfaldsdag = str_replace("-", "", forfaldsdag($r['transdate'], $r['betalingsbet'], $r['betalingsdage']));
}
$belob = dkdecimal($r['amount'] * -1);
$valuta = $r['valuta'];
if (!$valuta) {
$valuta = 'DKK';
}
if ($r['betal_id']) {
if (substr($r['betal_id'], 0, 1) == "+") {
$betal_id = substr($r['betal_id'], 1);
list($tmp, $tmp2) = explode("<", $betal_id);
if ($tmp == '04' || $tmp == '15') {
$erh = 'ERH352';
} elseif ($tmp == '71') {
$erh = 'ERH351';
} elseif ($tmp == '73') {
$erh = 'ERH357';
} elseif ($tmp == '75') {
function inset_ordrer($antal_ordrer, $leverance_id, $dkdd, $ordre_id, $cvrnr, $bank_reg, $bank_konto, $pbs_nr, $ny_pbs_aftale, $kontonr)
{
global $id;
global $lnr;
global $afslut;
global $linje;
global $linjeoid;
global $delsystem;
global $charset;
global $lev_pbs;
global $debitorgruppe;
include "../includes/forfaldsdag.php";
$r042sum = 0;
$r022lin = 0;
$r052lin = 0;
$lnr++;
$linje[$lnr] = "BS002" . $cvrnr[0] . $delsystem . "0601" . $leverance_id . filler(19, " ") . $dkdd . "\n";
if ($afslut) {
db_modify("insert into pbs_linjer (liste_id,linje) values ('{$id}','{$linje[$lnr]}')", __FILE__ . " linje " . __LINE__);
}
$lnr++;
$linje[$lnr] = "BS012" . $pbs_nr[0] . "0112" . filler(5, " ") . $debitorgruppe . filler(15, "0") . filler(4, " ") . "00000000" . $bank_reg[0] . $bank_konto[0] . "\n";
if ($afslut) {
db_modify("insert into pbs_linjer (liste_id,linje) values ('{$id}','{$linje[$lnr]}')", __FILE__ . " linje " . __LINE__);
}
for ($x = 1; $x <= $antal_ordrer; $x++) {
$r = db_fetch_array(db_select("select * from ordrer where id='{$ordre_id[$x]}'", __FILE__ . " linje " . __LINE__));
$fakturanr = $r['fakturanr'];
$kontonr = $r['kontonr'];
$firmanavn = $r['firmanavn'];
$adresse = $r['addr1'];
if ($r['addr2']) {
$adresse = $adresse . ", " . $r['addr2'];
}
$postnr = $r['postnr'];
$ean = $r['ean'];
$institution = $r['institution'];
$sum = $r['sum'];
$moms = $r['moms'];
$belob = round(($r['sum'] + $r['moms']) * 100, 0);
$r042sum = $r042sum + $belob;
$fakturadate = $r['fakturadate'];
$betalingsbet = $r['betalingsbet'];
$betalingsdage = $r['betalingsdage'];
$udskriv_til = $r['udskriv_til'];
# tilfoejet 20.03.2011
while (strlen($kontonr) < 15) {
$kontonr = "0" . $kontonr;
}
# 20140122 Denne + næste 3 linjer flyttet over nedenstående else
while (strlen($pbs_nr[$x]) < 9) {
$pbs_nr[$x] = "0" . $pbs_nr[$x];
}
list($dd, $mm, $yy) = explode("-", forfaldsdag($fakturadate, $betalingsbet, $betalingsdage));
$forfaldsdag = $dd . $mm . $yy;
if ($lev_pbs == 'B') {
$firmanavn = '';
$adresse = '';
$postnr = '';
$ean = '';
$institution = '';
} else {
#else indsat 20140121
if ($charset == "UTF-8") {
$firmanavn = utf8_decode($firmanavn);
$adresse = utf8_decode($adresse);
$institution = utf8_decode($institution);
}
if ($udskriv_til == 'PBS_FI') {
$pbs_nr[$x] = '000000000';
}
# tilfoejet 20.03.2011 # rettet til '000000000' 20140207
$r022lin++;
$lnr++;
$linje[$lnr] = "BS022" . $pbs_nr[0] . "0240" . "00001" . $debitorgruppe . $kontonr . $pbs_nr[$x] . addslashes($firmanavn) . "\n";
$linjeoid[$lnr] = "{$ordre_id[$x]}";
if ($afslut) {
if ($charset == "UTF-8") {
$linje[$lnr] = utf8_encode($linje[$lnr]);
}
db_modify("insert into pbs_linjer (liste_id,linje) values ('{$id}','{$linje[$lnr]}')", __FILE__ . " linje " . __LINE__);
}
if ($ean) {
$lnr++;
$r022lin++;
$linje[$lnr] = "BS022" . $pbs_nr[0] . "0240" . "00002" . $debitorgruppe . $kontonr . $pbs_nr[$x] . $ean . "\n";
$linjeoid[$lnr] = "{$ordre_id[$x]}";
if ($afslut) {
db_modify("insert into pbs_linjer (liste_id,linje) values ('{$id}','{$linje[$lnr]}')", __FILE__ . " linje " . __LINE__);
}
$linjenr = "00003";
} else {
$linjenr = "00002";
}
$lnr++;
$r022lin++;
$linje[$lnr] = "BS022" . $pbs_nr[0] . "0240" . $linjenr . $debitorgruppe . $kontonr . $pbs_nr[$x] . $adresse . "\n";
$linjeoid[$lnr] = "{$ordre_id[$x]}";
if ($afslut) {
if ($charset == "UTF-8") {
$linje[$lnr] = utf8_encode($linje[$lnr]);
}
db_modify("insert into pbs_linjer (liste_id,linje) values ('{$id}','{$linje[$lnr]}')", __FILE__ . " linje " . __LINE__);
}
$r022lin++;
while (strlen($postnr) < 4) {
$postnr = "0" . $postnr;
}
$lnr++;
$linje[$lnr] = "BS022" . $pbs_nr[0] . "0240" . "00009" . $debitorgruppe . $kontonr . $pbs_nr[$x] . filler(15, " ") . $postnr . "\n";
$linjeoid[$lnr] = "{$ordre_id[$x]}";
if ($afslut) {
db_modify("insert into pbs_linjer (liste_id,linje) values ('{$id}','{$linje[$lnr]}')", __FILE__ . " linje " . __LINE__);
}
}
if ($belob > 0) {
$felt10 = "1";
} elseif ($belob < 0) {
$felt10 = "2";
$belob = $belob * -1;
} else {
$felt10 = "0";
}
while (strlen($belob) < 13) {
$belob = "0" . $belob;
}
$lnr++;
$linje[$lnr] = "BS042" . $pbs_nr[0] . "0280" . "00000" . $debitorgruppe . $kontonr . $pbs_nr[$x] . $forfaldsdag . $felt10 . $belob . filler(30, " ") . "00" . "\n";
$linjeoid[$lnr] = "{$ordre_id[$x]}";
if ($afslut) {
db_modify("insert into pbs_linjer (liste_id,linje) values ('{$id}','{$linje[$lnr]}')", __FILE__ . " linje " . __LINE__);
}
$r052lin++;
$recordnr = "00001";
$beskrivelse = "Fakturadato " . dkdato($fakturadate) . " Fakturanr: {$fakturanr} ";
if ($charset == "UTF-8") {
$belob = utf8_decode($belob);
$beskrivelse = utf8_decode($beskrivelse);
}
while (strlen($beskrivelse) < 65) {
$beskrivelse = $beskrivelse . " ";
}
$lnr++;
$linje[$lnr] = "BS052" . $pbs_nr[0] . "0241" . $recordnr . $debitorgruppe . $kontonr . $pbs_nr[$x] . " " . addslashes($beskrivelse) . "\n";
$linjeoid[$lnr] = "{$ordre_id[$x]}";
if ($afslut) {
if ($charset == "UTF-8") {
$linje[$lnr] = utf8_encode($linje[$lnr]);
}
db_modify("insert into pbs_linjer (liste_id,linje) values ('{$id}','{$linje[$lnr]}')", __FILE__ . " linje " . __LINE__);
}
$r052lin++;
$recordnr = "00001";
$beskrivelse = "Beskrivelse";
$antal = "Antal";
$pris = "Pris";
$belob = "Beløb";
if ($charset == "UTF-8") {
$belob = utf8_decode($belob);
$beskrivelse = utf8_decode($beskrivelse);
}
while (strlen($recordnr) < 5) {
$recordnr = "0" . $recordnr;
}
while (strlen($beskrivelse) < 35) {
$beskrivelse = $beskrivelse . " ";
}
while (strlen($antal) < 5) {
$antal = " " . $antal;
}
while (strlen($pris) < 10) {
$pris = " " . $pris;
}
while (strlen($belob) < 10) {
$belob = " " . $belob;
}
$lnr++;
$linje[$lnr] = "BS052" . $pbs_nr[0] . "0241" . $recordnr . $debitorgruppe . $kontonr . $pbs_nr[$x] . " " . addslashes($beskrivelse) . $antal . $pris . $belob . "\n";
$linjeoid[$lnr] = "{$ordre_id[$x]}";
if ($afslut) {
if ($charset == "UTF-8") {
$linje[$lnr] = utf8_encode($linje[$lnr]);
}
db_modify("insert into pbs_linjer (liste_id,linje) values ('{$id}','{$linje[$lnr]}')", __FILE__ . " linje " . __LINE__);
}
$y = 0;
$q = db_select("select * from ordrelinjer where ordre_id='{$ordre_id[$x]}' order by posnr", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$y++;
$r052lin++;
$beskrivelse = var2str($r['beskrivelse'], $ordre_id[$x]);
$antal = $r['antal'] * 1;
$pris = dkdecimal($r['pris']);
$belob = dkdecimal($r['pris'] * $r['antal']);
$recordnr++;
if ($charset == "UTF-8") {
$beskrivelse = utf8_decode($beskrivelse);
}
while (strlen($recordnr) < 5) {
$recordnr = "0" . $recordnr;
}
if (strlen($beskrivelse) > 35) {
$beskrivelse = substr($beskrivelse, 0, 35);
}
while (strlen($beskrivelse) < 35) {
$beskrivelse = $beskrivelse . " ";
}
while (strlen($antal) < 5) {
$antal = " " . $antal;
}
while (strlen($pris) < 10) {
$pris = " " . $pris;
}
while (strlen($belob) < 10) {
$belob = " " . $belob;
}
$lnr++;
$linje[$lnr] = "BS052" . $pbs_nr[0] . "0241" . $recordnr . $debitorgruppe . $kontonr . $pbs_nr[$x] . " " . addslashes(addslashes($beskrivelse)) . $antal . $pris . $belob . "\n";
$linjeoid[$lnr] = "{$ordre_id[$x]}";
if ($afslut) {
if ($charset == "UTF-8") {
$linje[$lnr] = utf8_encode($linje[$lnr]);
}
db_modify("insert into pbs_linjer (liste_id,linje) values ('{$id}','{$linje[$lnr]}')", __FILE__ . " linje " . __LINE__);
}
}
if ($sum) {
$r052lin++;
$recordnr++;
$beskrivelse = "Netto Beløb";
$dksum = dkdecimal($sum);
if ($charset == "UTF-8") {
$beskrivelse = utf8_decode($beskrivelse);
}
while (strlen($recordnr) < 5) {
$recordnr = "0" . $recordnr;
}
while (strlen($beskrivelse) < 50) {
$beskrivelse = $beskrivelse . " ";
}
while (strlen($dksum) < 10) {
$dksum = " " . $dksum;
}
$lnr++;
$linje[$lnr] = "BS052" . $pbs_nr[0] . "0241" . $recordnr . $debitorgruppe . $kontonr . $pbs_nr[$x] . " " . addslashes($beskrivelse) . $dksum . "\n";
$linjeoid[$lnr] = "{$ordre_id[$x]}";
if ($afslut) {
if ($charset == "UTF-8") {
$linje[$lnr] = utf8_encode($linje[$lnr]);
}
db_modify("insert into pbs_linjer (liste_id,linje) values ('{$id}','{$linje[$lnr]}')", __FILE__ . " linje " . __LINE__);
}
}
if ($moms) {
$r052lin++;
$recordnr++;
$beskrivelse = "Moms";
$dkmoms = dkdecimal($moms);
if ($charset == "UTF-8") {
$beskrivelse = utf8_decode($beskrivelse);
}
while (strlen($recordnr) < 5) {
$recordnr = "0" . $recordnr;
}
while (strlen($beskrivelse) < 50) {
$beskrivelse = $beskrivelse . " ";
}
while (strlen($dkmoms) < 10) {
$dkmoms = " " . $dkmoms;
}
$lnr++;
$linje[$lnr] = "BS052" . $pbs_nr[0] . "0241" . $recordnr . $debitorgruppe . $kontonr . $pbs_nr[$x] . " " . addslashes($beskrivelse) . $dkmoms . "\n";
$linjeoid[$lnr] = "{$ordre_id[$x]}";
if ($afslut) {
if ($charset == "UTF-8") {
$linje[$lnr] = utf8_encode($linje[$lnr]);
}
db_modify("insert into pbs_linjer (liste_id,linje) values ('{$id}','{$linje[$lnr]}')", __FILE__ . " linje " . __LINE__);
}
}
if ($sum || $moms) {
$r052lin++;
$recordnr++;
$beskrivelse = "Total Beløb";
$ialt = dkdecimal($sum + $moms);
if ($charset == "UTF-8") {
$beskrivelse = utf8_decode($beskrivelse);
}
while (strlen($recordnr) < 5) {
$recordnr = "0" . $recordnr;
}
while (strlen($beskrivelse) < 50) {
$beskrivelse = $beskrivelse . " ";
}
while (strlen($ialt) < 10) {
$ialt = " " . $ialt;
}
$lnr++;
$linjeoid[$lnr] = "{$ordre_id[$x]}";
$linje[$lnr] = "BS052" . $pbs_nr[0] . "0241" . $recordnr . $debitorgruppe . $kontonr . $pbs_nr[$x] . " " . addslashes($beskrivelse) . $ialt . "\n";
if ($afslut) {
if ($charset == "UTF-8") {
$linje[$lnr] = utf8_encode($linje[$lnr]);
}
db_modify("insert into pbs_linjer (liste_id,linje) values ('{$id}','{$linje[$lnr]}')", __FILE__ . " linje " . __LINE__);
}
}
}
while (strlen($antal_ordrer) < 11) {
$antal_ordrer = "0" . $antal_ordrer;
}
while (strlen($r042sum) < 15) {
$r042sum = "0" . $r042sum;
}
while (strlen($r022lin) < 11) {
$r022lin = "0" . $r022lin;
}
while (strlen($r052lin) < 11) {
$r052lin = "0" . $r052lin;
}
$lnr++;
$linje[$lnr] = "BS092" . $pbs_nr[0] . "0112" . filler(5, "0") . $debitorgruppe . filler(4, " ") . $antal_ordrer . $r042sum . $r052lin . filler(15, " ") . $r022lin . "\n";
$linjeoid[$lnr] = "{$ordre_id[$x]}";
if ($afslut) {
db_modify("insert into pbs_linjer (liste_id,linje) values ('{$id}','{$linje[$lnr]}')", __FILE__ . " linje " . __LINE__);
}
$lnr++;
# $linje[$lnr]="BS992".$cvrnr[0]."BS10601"."00000000001".$antal_ordrer.$r042sum.$r052lin.filler(15,"0").$r022lin.filler(34,"0")."\n";
$linje[$lnr] = "BS992" . $cvrnr[0] . $delsystem . "0601" . "00000000001" . $antal_ordrer . $r042sum . $r052lin . filler(15, "0") . $r022lin . filler(34, "0") . "\n";
$linjeoid[$lnr] = "{$ordre_id[$x]}";
if ($afslut) {
db_modify("insert into pbs_linjer (liste_id,linje) values ('{$id}','{$linje[$lnr]}')", __FILE__ . " linje " . __LINE__);
}
}
if ($row['kontotype'] == 'H') {
print "<td><span style=\"color:{$color};\"><br></span></td>\n";
} elseif ($row['kontotype'] == 'D') {
print "<td><span style=\"color:{$color};\">Drift<br></span></td>\n";
} elseif ($row['kontotype'] == 'S') {
print "<td><span style=\"color:{$color};\">Status<br></span></td>\n";
} elseif ($row['kontotype'] == 'Z') {
print "<td><span style=\"color:{$color};\">Sum {$row['fra_kto']} - {$row['til_kto']}<br></span></td>\n";
} elseif ($row['kontotype'] == 'R') {
print "<td><span style=\"color:{$color};\">Resultat = {$row['fra_kto']}<br></span></td>\n";
} else {
print "<td><span style=\"color:{$color};\">Sideskift<br></span></td>\n";
}
print "<td align=\"center\"><span style=\"color:{$color};\">{$row['moms']}<br></span></td>\n";
if ($row['kontotype'] != 'H' && $row['kontotype'] != 'X') {
print "<td align=\"right\" title=\"DKK " . dkdecimal($row['saldo'] * 1) . "\"><span style=\"color:{$color};\">" . dkdecimal($row['saldo'] * 100 / $row['valutakurs']) . "<br></span></td>\n";
} else {
print "<td><br></td>\n";
}
print "<td align=\"center\"><span style=\"color:{$color};\">{$valutanavn[$valuta]}<br></span></td>\n";
print "<td align=\"center\"><span style=\"color:{$color};\">{$row['genvej']}<br></span></td>\n";
print "</tr>\n";
if ($row['kontotype'] == 'H') {
$linjebg = $bgcolor4;
$color = '#000000';
}
}
if (!$menu == 'T') {
print "</tbody>\n</table>\n\t</td></tr>\n</tbody></table>";
} else {
print "</tbody></table></div><!-- end of rightContent --></div><!-- end of maincontentLargeHolder -->";
function varegruppe($date_from, $date_to, $varenr, $varenavn, $varegruppe, $detaljer, $vk_kost, $afd)
{
# global $connection;
global $top_bund;
global $md;
global $returside;
global $jsvars;
if ($detaljer) {
$cols = 9;
} else {
$cols = 11;
}
list($gruppenr, $tmp) = explode(":", $varegruppe);
# if ($returside) $luk= "<a accesskey=L href=\"$returside\">";
# else
$luk = "<a accesskey=L href=\"rapport.php?varegruppe={$varegruppe}&afd={$afd}&date_from={$date_from}&date_to={$date_to}&varenr={$varenr}&varenavn={$varenavn}&detaljer={$detaljer}\">";
print "<table width = 100% cellpadding=\"1\" cellspacing=\"1\" border=\"0\"><tbody>";
print "<tr><td colspan=\"{$cols}\" height=\"9\">";
print "<table width=\"100%\" align=\"center\" border=\"0\" cellspacing=\"3\" cellpadding=\"0\"><tbody>";
#B
print "<td width=\"10%\" {$top_bund}>{$luk} Luk</a></td>";
print "<td width=\"80%\" {$top_bund}>Rapport - varesalg";
if ($afd) {
$r = db_fetch_array(db_select("select beskrivelse from grupper where art = 'AFD' and kodenr = '{$afd}'", __FILE__ . " linje " . __LINE__));
print " - afd {$afd} {$r['beskrivelse']}";
}
print "</td>";
print "<td width=\"10%\" {$top_bund}><br></td>";
print "</tbody></table>";
#B s**t
print "</td></tr>";
$lagergruppe = array();
if ($gruppenr) {
$qtxt = "select box8,box9 from grupper where kodenr ='{$gruppenr}' and art='VG'";
$r = db_fetch_array(db_select($qtxt, __FILE__ . " linje " . __LINE__));
$batch_kontrol = $r['box9'];
if ($r['box8'] == 'on') {
$lagergruppe[0] = $gruppenr;
}
} else {
$x = 0;
$qtxt = "select kodenr,box8,box9 from grupper where art='VG' order by kodenr";
$q = db_select($qtxt, __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
if ($r['box8'] == 'on') {
$lagergruppe[$x] = $r['kodenr'];
$x++;
}
}
}
$antal = 0;
$k_antal = 0;
$s_antal = 0;
$kontonr = array();
$x = 0;
$tmp = "";
if ($gruppenr) {
$tmp = "where " . nr_cast(gruppe) . "={$gruppenr}";
}
if ($varenr && $varenr != '*') {
if (strstr($varenr, "*")) {
if (substr($varenr, 0, 1) == '*') {
$varenr = "%" . substr($varenr, 1);
}
if (substr($varenr, -1, 1) == '*') {
$varenr = substr($varenr, 0, strlen($varenr) - 1) . "%";
}
}
$low = strtolower($varenr);
$upp = strtoupper($varenr);
if ($tmp) {
$tmp .= " and (varenr LIKE '" . db_escape_string($varenr) . "' or lower(varenr) LIKE '" . db_escape_string($low) . "' or upper(varenr) LIKE '" . db_escape_string($upp) . "')";
} else {
$tmp = "where (varenr LIKE '" . db_escape_string($varenr) . "' or lower(varenr) LIKE '" . db_escape_string($low) . "' or upper(varenr) LIKE '" . db_escape_string($upp) . "')";
}
}
if ($varenavn && $varenavn != '*') {
if (strstr($varenavn, "*")) {
if (substr($varenavn, 0, 1) == '*') {
$varenavn = "%" . substr($varenavn, 1);
}
if (substr($varenavn, -1, 1) == '*') {
$varenavn = substr($varenavn, 0, strlen($varenavn) - 1) . "%";
}
}
$low = strtolower($varenavn);
$upp = strtoupper($varenavn);
if ($tmp) {
$tmp .= " and (beskrivelse LIKE '" . db_escape_string($varenavn) . "' or lower(beskrivelse) LIKE '" . db_escape_string($low) . "' or upper(beskrivelse) LIKE '" . db_escape_string($upp) . "')";
} else {
$tmp = "where (beskrivelse LIKE '" . db_escape_string($varenavn) . "' or lower(beskrivelse) LIKE '" . db_escape_string($low) . "' or upper(beskrivelse) LIKE '" . db_escape_string($upp) . "')";
}
}
$qtxt = "select id,gruppe,samlevare from varer {$tmp} order by beskrivelse";
$x = 0;
$query = db_select("{$qtxt}", __FILE__ . " linje " . __LINE__);
while ($row = db_fetch_array($query)) {
if (!$row['samlevare'] || in_array($row['gruppe'], $lagergruppe)) {
#20151105
$x++;
$vare_id[$x] = $row['id'];
}
#cho "A $vare_id[$x]<br>";
}
$v_id = array();
$x = 0;
# finder alle konti med bevaegelser i den anfoerte periode eller aabne poster fra foer perioden
$qtxt = "select batch_salg.vare_id,batch_salg.pris from batch_salg,varer";
if ($afd) {
$qtxt .= ",ordrer";
}
$qtxt .= " where batch_salg.fakturadate>='{$date_from}' and batch_salg.fakturadate<='{$date_to}' and batch_salg.vare_id = varer.id";
if ($afd) {
$qtxt .= " and batch_salg.ordre_id = ordrer.id and ordrer.afd='{$afd}'";
}
$qtxt .= " order by varer.beskrivelse";
$query = db_select($qtxt, __FILE__ . " linje " . __LINE__);
while ($row = db_fetch_array($query)) {
if (in_array(trim($row['vare_id']), $vare_id) && !in_array(trim($row['vare_id']), $v_id)) {
$x++;
$v_id[$x] = trim($row['vare_id']);
#cho "B $v_id[$x]<br>";
}
}
#cho "select vare_id, pris from batch_kob where fakturadate>='$date_from' and fakturadate<='$date_to' order by vare_id<br>";
$query = db_select("select batch_kob.vare_id,batch_kob.pris from batch_kob,varer where batch_kob.fakturadate>='{$date_from}' and batch_kob.fakturadate<='{$date_to}' and batch_kob.vare_id = varer.id order by varer.beskrivelse", __FILE__ . " linje " . __LINE__);
while ($row = db_fetch_array($query)) {
if (in_array(trim($row['vare_id']), $vare_id) && !in_array(trim($row['vare_id']), $v_id)) {
$x++;
$v_id[$x] = trim($row['vare_id']);
}
}
$vareantal = $x;
# print "<tr><td colspan=8><hr></td></tr>";
# print "<tr><td width=10%> Dato</td><td width=10%> Bilag</td><td width=50%> Tekst</td><td width=10% align=right> Debet</td><td width=10% align=right> Kredit</td><td width=10% align=right> Saldo</td></tr>";
if (!$detaljer) {
print "<tr><td><b>Varenr.</b></td>\n\t\t\t\t<td><b>Enhed</b></td>\n\t\t\t\t<td><b>Beskrivelse</b></td>\n\t\t\t\t<td align=\"right\"><b>Købt</b></td>\n\t\t\t\t<td align=\"right\"><b>Købspris</b></td>\n\t\t\t\t<td align=\"right\"><b>Solgt</b></td>\n\t\t\t\t<td align=\"right\"><b>Salgspris</b></td>\n\t\t\t\t<td align=\"right\"><b>Reguleret</b></td>\n\t\t\t\t<td align=\"right\"><b>DB</b></td>\n\t\t\t\t<td align=\"right\"><b>DG</b></td>\n\t\t\t\t<td align=\"right\"><b>Til- / afgang</b></td></tr>";
}
$tt_kobt = 0;
$tt_solgt = 0;
$tt_regul = 0;
$tt_k_pris = 0;
$tt_s_pris = 0;
$tt_kost = 0;
$tt_db = 0;
$varenr = array();
$enhed = array();
$beskrivelse = array();
for ($x = 1; $x <= $vareantal; $x++) {
$r = db_fetch_array(db_select("select * from varer where id={$v_id[$x]}", __FILE__ . " linje " . __LINE__));
$varenr[$x] = $r['varenr'];
$enhed[$x] = $r['enhed'];
$beskrivelse[$x] = $r['beskrivelse'];
$v_kostpris[$x] = $r['kostpris'];
$samlevare[$x] = $r['samlevare'];
}
for ($x = 1; $x <= $vareantal; $x++) {
$y = 0;
$fakturadate = array();
$bk_id = array();
$linje_id = array();
$k_ordre_id = array();
$k_antal = array();
$pris = array();
$t_kobt = 0;
$t_regul = 0;
$t_k_pris = 0;
$t_moms = 0;
$qtxt = "select * from batch_kob where vare_id='{$v_id[$x]}' order by fakturadate,ordre_id";
$q = db_select($qtxt, __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$ok = 1;
if ($r['fakturadate'] && $r['fakturadate'] <= $date_to && $r['fakturadate'] >= $date_from) {
$bk_id[$y] = $r['id'];
$linje_id[$y] = $r['linje_id'];
$fakturadate[$y] = $r['fakturadate'];
$k_ordre_id[$y] = $r['ordre_id'];
if ($vk_kost) {
$k_antal[$y] = $r['antal'];
$pris[$y] = $v_kostpris;
} else {
$k_antal[$y] = $r['antal'];
$pris[$y] = $r['pris'];
}
if ($linje_id[$y]) {
$qtxt = "select momssats,momsfri,omvbet from ordrelinjer where id='{$linje_id[$y]}'";
if ($r1 = db_fetch_array(db_select($qtxt, __FILE__ . " linje " . __LINE__))) {
$momssats[$y] = $r1['momssats'];
$momsfri[$y] = $r1['momsfri'];
$omvbet[$y] = $r1['omvbet'];
if ($momsfri[$y] || $omvbet[$y]) {
$moms[$y] = 0;
} elseif ($momssats[$y] == '') {
$momssats[$y] = find_varemomssats($linje_id[$y]);
} else {
$moms[$y] = $pris[$y] / 100 * $momssats[$y];
}
} else {
$ok = 0;
}
} else {
if (!$k_ordre_id[$y]) {
$t_regul += $k_antal[$y];
$tt_regul += $k_antal[$y];
}
$ok = 0;
}
if ($ok) {
$t_kobt += $k_antal[$y];
$t_k_pris += $pris[$y] * $k_antal[$y];
$tt_kobt += $k_antal[$y];
$tt_k_pris += $pris[$y] * $k_antal[$y];
$t_moms += $moms[$y];
}
$y++;
} else {
# if ($r['ordre_id']) $tt_kobt=$r['antal'];
# else $tt_regul+=$r['antal'];
}
}
if ($detaljer) {
print "<tr><td colspan=\"{$cols}\"><hr></td></tr>";
print "<tr><td><br></td></tr>";
print "<tr><td><br></td></tr>";
print "<tr><td colspan=\"3\">{$varenr[$x]}</td></tr>";
print "<tr><td colspan=\"3\">{$enhed[$x]}</td></tr>";
print "<tr><td colspan=\"3\">{$beskrivelse[$x]}</td></tr>";
print "<tr><td><br></td></tr>";
print "<tr><td>Købsdato</td><td align=\"right\">Antal</td><td align=\"right\">Pris</td><td align=\"right\">Moms</td><td align=\"right\">Incl. moms</td><td align=\"right\">Ordre</td></tr>";
print "<tr><td colspan=\"{$cols}\"><hr></td></tr>";
for ($y = 0; $y < count($k_antal); $y++) {
if ($k_ordre_id[$y]) {
if ($detaljer) {
print "<tr><td>" . dkdato($fakturadate[$y]) . "</td><td align=\"right\">" . dkdecimal($k_antal[$y], 2) . "</td>";
}
$linjepris = $pris[$y] * $k_antal[$y];
$kobssum += $t_kobt;
print "<td align=\"right\">" . dkdecimal($pris[$y], 2) . "</td><td align=\"right\">" . dkdecimal($moms[$y], 2) . "</td><td align=\"right\">" . dkdecimal($pris[$y] + $moms[$y], 2) . "</td>";
print "<td align=right onClick=\"javascript:k_ordre=window.open('../kreditor/ordre.php?id={$k_ordre_id[$y]}&returside=../includes/luk.php','k_ordre','width=800,height=400,{$jsvars}')\"> <u>Se</u></td></tr>";
}
}
print "<tr><td colspan=\"{$cols}\"><hr></td></tr>";
print "<tr><td></td><td align=\"right\"><b>" . dkdecimal($t_kobt, 2) . "</b></td><td align=\"right\"><b>" . dkdecimal($t_k_pris, 2) . "</b></td><td align=\"right\"><b>" . dkdecimal($t_moms, 2) . "</b></td><td align=\"right\"><b>" . dkdecimal($t_k_pris + $t_moms, 2) . "</b></td></tr>";
print "<tr><td colspan=\"{$cols}\"><hr></td></tr>";
}
$fakturadate = array();
$bs_id = array();
$linje_id = array();
$s_ordre_id = array();
$s_antal = array();
$pris = array();
$t_solgt = 0;
# $t_regul=0;
$t_s_pris = 0;
$t_kost = 0;
$t_moms = 0;
$t_db = 0;
$y = 0;
$qtxt = "select * from batch_salg";
if ($afd) {
$qtxt .= ",ordrer";
}
$qtxt .= " where batch_salg.vare_id='{$v_id[$x]}'";
if ($afd) {
$qtxt .= " and batch_salg.ordre_id=ordrer.id and ordrer.afd={$afd}";
}
$qtxt .= " order by batch_salg.fakturadate";
$q = db_select($qtxt, __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$ok = 1;
if ($r['fakturadate'] && $r['fakturadate'] <= $date_to && $r['fakturadate'] >= $date_from) {
$bs_id[$y] = $r['id'];
$fakturadate[$y] = $r['fakturadate'];
$s_antal[$y] = $r['antal'];
$pris[$y] = $r['pris'];
$s_ordre_id[$y] = $r['ordre_id'];
$linje_id[$y] = $r['linje_id'];
if ($linje_id[$y]) {
if ($r1 = db_fetch_array(db_select("select ordrelinjer.id,ordrelinjer.kostpris,ordrelinjer.momssats,ordrelinjer.momsfri,ordrelinjer.omvbet from ordrelinjer where ordrelinjer.id='{$linje_id[$y]}'", __FILE__ . " linje " . __LINE__))) {
if ($vk_kost) {
$kostpris[$y] = $v_kostpris;
} else {
$kostpris[$y] = $r1['kostpris'];
}
$momssats[$y] = $r1['momssats'];
$momsfri[$y] = $r1['momsfri'];
$omvbet[$y] = $r1['omvbet'];
if ($momsfri[$y] || $omvbet[$y]) {
$moms[$y] = 0;
} elseif ($momssats[$y] == '') {
$momssats[$y] = find_varemomssats($linje_id[$y]);
} else {
$moms[$y] = $pris[$y] / 100 * $momssats[$y];
}
} else {
$ok = 0;
}
list($koordpr, $koordnr, $koordant, $koordid, $koordart) = explode(chr(9), find_kostpris($v_id[$x], $linje_id[$y]));
$kobs_ordre_pris = explode(",", $koordpr);
$ko_ant[$y] = count($kobs_ordre_pris);
$kobs_ordre_id = explode(",", $koordid);
$kobs_ordre_antal = explode(",", $koordant);
$kobs_ordre_art = explode(",", $koordart);
#20151210 ->
if ($ko_ant[$y]) {
$kostpris[$y] = 0;
for ($z = 0; $z < $ko_ant[$y]; $z++) {
$kostpris[$y] += $kobs_ordre_pris[$z];
}
$kostpris[$y] /= $ko_ant[$y];
} elseif ($vk_kost) {
$kostpris[$y] = $v_kostpris;
}
} else {
$ok = 0;
}
if ($ok) {
#<- 20151210
if ($s_ordre_id[$y]) {
$t_solgt += $s_antal[$y];
$t_s_pris += $pris[$y] * $s_antal[$y];
$tt_solgt += $s_antal[$y];
$tt_s_pris += $pris[$y] * $s_antal[$y];
$t_moms += $moms[$y] * $s_antal[$y];
$t_kost += $kostpris[$y] * $s_antal[$y];
$tt_kost += $kostpris[$y] * $s_antal[$y];
$db[$y] = $pris[$y] - $kostpris[$y];
$t_db += $db[$y] * $s_antal[$y];
$tt_db += $db[$y] * $s_antal[$y];
if ($s_antal[$y] < 0) {
$db[$y] *= -1;
}
# 20160201 # Flyttet under sammentælling
if ($pris[$y] != 0) {
$dg[$y] = $db[$y] * 100 / $pris[$y];
} else {
$dg[$y] = 0;
}
} else {
$t_regul += $s_antal[$y];
$tt_regul += $s_antal[$y];
}
}
$y++;
} else {
# if ($r['ordre_id']) $tt_solgt+=$r['antal'];
# else $tt_regul+=$r['antal'];
}
}
if ($t_s_pris && $t_db) {
$t_dg = $t_db * 100 / $t_s_pris;
} else {
$t_dg = 100;
}
if ($detaljer) {
print "<tr><td>Salgsdato</td><td align=\"right\">Antal</td><td align=\"right\">Pris</td><td align=\"right\">Moms</td><td align=\"right\">Incl.moms</td><td align=\"right\">Kostpris</td><td align=\"right\">DB</td><td align=\"right\">DG</td><td align=\"right\">Ordre</td></tr>";
for ($y = 0; $y < count($linje_id); $y++) {
if ($s_ordre_id[$y]) {
print "<tr><td>" . dkdato($fakturadate[$y]) . "</td><td align=right>" . dkdecimal($s_antal[$y], 2) . "</td>";
print "<td align=right>" . dkdecimal($pris[$y], 2) . "</td>";
print "<td align=right>" . dkdecimal($moms[$y], 2) . "</td>";
print "<td align=right>" . dkdecimal($pris[$y] + $moms[$y], 2) . "</td>";
print "<td align=right>" . dkdecimal($kostpris[$y], 2) . "</td>";
print "<td align=right>" . dkdecimal($db[$y], 2) . "</td>";
print "<td align=right> " . dkdecimal($dg[$y], 2) . "%</td>";
print "<td align=right onClick=\"javascript:s_ordre=window.open('../debitor/ordre.php?id={$s_ordre_id[$y]}&returside=../includes/luk.php','s_ordre','width=800,height=400,{$jsvars}')\"> <u>Se</u></td></tr>";
}
}
print "<tr><td colspan=\"{$cols}\"><hr></td></tr>";
print "<tr><td></td>";
print "<td align=right> <b>" . dkdecimal($t_solgt, 2) . "</b></td>";
print "<td align=right> <b>" . dkdecimal($t_s_pris, 2) . "</b></td>";
print "<td align=right> <b>" . dkdecimal($t_moms, 2) . "</b></td>";
print "<td align=right> <b>" . dkdecimal($t_s_pris + $t_moms, 2) . "</b></td>";
print "<td align=right> <b>" . dkdecimal($t_kost, 2) . "</b></td>";
print "<td align=right> <b>" . dkdecimal($t_db, 2) . "</b></td>";
print "<td align=right> <b>" . dkdecimal($t_dg, 2) . "%</b></td></tr>";
print "<tr><td colspan=\"{$cols}\"><hr></td></tr>";
print "<tr><td>Lagerreguleret</td><td align=\"right\">Antal</td></tr>";
for ($y = 0; $y < count($bk_id); $y++) {
if (!$k_ordre_id[$y]) {
print "<tr><td>" . dkdato($fakturadate[$y]) . "</td><td align=right>" . dkdecimal($k_antal[$y], 2) . "</td></tr>";
}
}
for ($y = 0; $y < count($bs_id); $y++) {
if (!$s_ordre_id[$y]) {
print "<tr><td>" . dkdato($fakturadate[$y]) . "</td><td align=right>-" . dkdecimal($s_antal[$y], 2) . "</td></tr>";
#20160418
}
}
print "<tr><td colspan=\"{$cols}\"><hr></td></tr>";
print "<tr><td>Samlet til-/afgang i perioden</td><td align=right> <b>" . dkdecimal($t_kobt + $t_regul - $t_solgt, 2) . "</b></td><tr>";
#20151105
} else {
print "<tr><td>{$varenr[$x]}</td>";
print "<td>{$enhed[$x]}</td>";
print "<td>{$beskrivelse[$x]}</td>";
print "<td align=right>" . dkdecimal($t_kobt, 2) . "</td>";
print "<td align=right>" . dkdecimal($t_k_pris, 2) . "</td>";
print "<td align=right>" . dkdecimal($t_solgt, 2) . "</td>";
print "<td align=right>" . dkdecimal($t_s_pris, 2) . "</td>";
print "<td align=right>" . dkdecimal($t_regul, 2) . "</td>";
print "<td align=right>" . dkdecimal($t_db, 2) . "</td>";
print "<td align=right>" . dkdecimal($t_dg, 2) . "%</td>";
print "<td align=right>" . dkdecimal($t_kobt + $t_regul - $t_solgt, 2) . "</td><tr>";
#20151105
}
if ($detaljer) {
print "<tr><td colspan=\"{$cols}\"><hr></td></tr>";
}
}
if (!$detaljer) {
if ($tt_s_pris && $tt_db) {
$tt_dg = $tt_db * 100 / $tt_s_pris;
} else {
$tt_dg = 100;
}
print "<tr><td colspan=\"{$cols}\"><hr></td></tr>";
print "<tr><td Colspan=\"3\"><b>Summeret</b></td>\n\t\t\t\t<td align=\"right\">Købt</td>\n\t\t\t\t<td align=\"right\">Købspris</td>\n\t\t\t\t<td align=\"right\">Solgt</td>\n\t\t\t\t<td align=\"right\">Salgspris</td>\n\t\t\t\t<td align=\"right\">Reguleret</td>\n\t\t\t\t<td align=\"right\">DB</td>\n\t\t\t\t<td align=\"right\">DG</td>\n\t\t\t\t<td align=\"right\">Samlet til-/afgang i perioden</td></tr>";
print "<tr><td>{$varenr[$x]}</td>";
print "<td>{$enhed[$x]}</td>";
print "<td>{$beskrivelse[$x]}</td>";
print "<td align=right> <b>" . dkdecimal($tt_kobt, 2) . "</b></td>";
print "<td align=right> <b>" . dkdecimal($tt_k_pris, 2) . "</b></td>";
print "<td align=right> <b>" . dkdecimal($tt_solgt, 2) . "</b></td>";
print "<td align=right> <b>" . dkdecimal($tt_s_pris, 2) . "</b></td>";
print "<td align=right> <b>" . dkdecimal($tt_regul, 2) . "</b></td>";
print "<td align=right> <b>" . dkdecimal($tt_db, 2) . "</b></td>";
print "<td align=right> <b>" . dkdecimal($tt_dg, 2) . "%</b></td>";
print "<td align=right><b>" . dkdecimal($tt_kobt + $tt_regul - $tt_solgt, 2) . "</b></td><tr>";
}
/*
print "<tr><td colspan=9><hr></td></tr>";
print "<tr><td></td><td></td><td></td><td align=\"right\"><b>";
print dkdecimal($t_solgt);
# print "</b></td><td align=right> <b>".dkdecimal($talkob)."</b></td>";
print "<td align=right> <b>".dkdecimal($t_s_pris)."</b></td>";
print "<td align=right> <b>".dkdecimal($t_moms)."</b></td>";
print "<td align=right> <b>".dkdecimal($t_s_pris+$t_moms)."</b></td>";
$db[$y]=$t_s_pris-$t_kost;
print "<td align=right> <b>".dkdecimal($t_db)."</b></td>";
if ($tsalg!=0) {$dg[$y]=$db[$y]*100/$talsalg;}
else {$dg[$y]=100;}
print "<td align=right> <b>".dkdecimal($dg[$y])."</b></td></tr>";
print "<tr><td colspan=8><hr></td></tr>";
*/
print "</tbody></table>";
}
}
print "<tr><td align = center colspan=2><input type=submit accesskey=\"g\" value=\"Gem/opdatér\" name=\"enheder\"></td></tr>";
print "</tbody></table border=1>";
print "<td width=50% valign=top><table cellpadding=\"1\" cellspacing=\"1\" border=\"1\"><tbody>";
print "<form name=materialer action=enheder.php method=post>";
print "<tr><td align=center valign=top> Materiale</td><td align=center valign=top> Densitet</td></tr>";
for ($x = 1; $x <= $max_antal; $x++) {
if ($mat_id[$x]) {
print "<tr><td> {$mat_beskrivelse[$x]}</td><td><a href=enheder.php?mat_id={$mat_id[$x]}> {$mat_densitet[$x]}</a></td></tr>";
} else {
print "<tr><td><br></td></tr>";
}
}
if ($mat_ret_id) {
$query = db_select("select * from materialer where id = {$mat_ret_id}");
$row = db_fetch_array($query);
$mat_beskrivelse[$mat_ret_id] = $row['beskrivelse'];
$mat_densitet[$mat_ret_id] = dkdecimal($row['densitet']);
print "<input type=hidden name=mat_id value={$mat_ret_id}>";
print "<tr><td><input type=text size=25 name=mat_beskrivelse[{$mat_ret_id}] value='{$mat_beskrivelse[$mat_ret_id]}'></td><td><input type=text size=3 name=mat_densitet[{$mat_ret_id}] value={$mat_densitet[$mat_ret_id]}\t></td><tr>";
} else {
print "<tr><td><input type=text size=25 name=mat_beskrivelse[0]></td><td><input type=text size=3 name=mat_densitet[0]></td><tr>";
}
print "<tr><td align = center colspan=2><input type=submit accesskey=\"g\" value=\"Gem/opdatér\" name=\"materialer\"></td></tr>";
print "</tbody></table>";
print "</tbody></table>";
?>
</td></tr>
</tbody></table>
</body></html>
function vareopslag($art, $sort, $fokus, $id, $vis_kost, $ref, $find)
{
global $bgcolor;
global $bgcolor5;
global $bordnr;
global $brugernavn;
global $incl_moms;
global $momssats;
if ($art == 'PO') {
$incl_moms = 'on';
}
$lagernr = array();
$lagernavn = array();
$momsfri = array();
$x = 0;
$q = db_select("select kodenr from grupper where art='VG' and box7 = 'on'", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$momsfri[$x] = $r['kodenr'];
$x++;
}
$lager = NULL;
$linjebg = NULL;
if ($id && (!$art || !$ref)) {
$r = db_fetch_array(db_select("select art,ref from ordrer where id='{$id}'", __FILE__ . " linje " . __LINE__));
if (!$art) {
$art = $r['art'];
}
if (!$ref) {
$ref = $r['ref'];
}
}
if (!$ref) {
$ref = $brugernavn;
}
if ($find) {
$find = strtolower($find);
$find = str_replace("*", "%", $find);
# $focus="lower($focus)";
}
if ($art == 'PO' && !strpos($_SERVER['PHP_SELF'], 'pos_ordre')) {
$art = 'DO';
}
if ($art == 'DO' || $art == 'DK') {
sidehoved($id, "../debitor/ordre.php", "../lager/varekort.php", $fokus, "Kundeordre {$id} - Vareopslag");
$href = "ordre.php";
} elseif ($art == 'PO') {
# print "<tr><td colspan=\"5\"><hr>";
# sidehoved($id, "../debitor/pos_ordre.php", "", $fokus, "POS ordre $id - Vareopslag");
# print "<hr></td></tr>";
$href = "pos_ordre.php";
}
print "<script type=\"text/javascript\" src=\"https://code.jquery.com/jquery-latest.min.js\"></script>\n";
print "<script language=\"javascript\" type=\"text/javascript\" src=\"../javascript/arrowkey.js\"></script>\n";
print "<script type=\"text/javascript\">\n\t\t\$(document).ready(function () {\n\t\t\t\t\$('input[type=\"text\"],textarea,a[href]').keyup(function (e) {\n\t\t\t\t\t\tif (e.which === 27) {\n\t\t\t\t\t\t\twindow.location.href = '{$href}?id={$id}';\n\t\t\t\t\t\t}\n\t\t\t\t});\n\t\t});\n </script>";
/*
print "<script type=\"text/javascript\">
var TableBackgroundNormalColor = \"$bgcolor\";
var TableBackgroundMouseoverColor = \"$bgcolor5\";
// These two functions need no customization.
function ChangeBackgroundColor(row) { row.style.backgroundColor = TableBackgroundMouseoverColor; }
function RestoreBackgroundColor(row) { row.style.backgroundColor = TableBackgroundNormalColor; }
</script>";
*/
print "<table cellpadding=\"1\" cellspacing=\"1\" border=\"0\" width=\"100%\" valign = \"top\"><tbody>";
$linjebg = $bgcolor;
$color = '#000000';
# $linjebg=$bgcolor5; $color='#000000';
print "<tr {$linjebg}>";
if ($art != 'PO') {
$listeantal = 0;
$q = db_select("select id,beskrivelse from grupper where art='PL' and box4='on' order by beskrivelse", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$listeantal++;
$prisliste[$listeantal] = $r['id'];
$listenavn[$listeantal] = $r['beskrivelse'];
}
if ($listeantal) {
print "<form name=\"prisliste\" action=\"../includes/prislister.php?start=0&ordre_id={$id}&fokus={$fokus}\" method=\"post\">";
print "<td><select name=prisliste>";
for ($x = 1; $x <= $listeantal; $x++) {
print "<option value=\"{$prisliste[$x]}\">{$listenavn[$x]}</option>";
}
print "</select></td><td><input type=\"submit\" name=\"prislist\" value=\"Vis\"></td>";
}
if ($vis_kost) {
print "<td colspan=8 align=center><a href={$href}?sort=varenr&funktion=vareOpslag&fokus={$fokus}&id={$id}>Udelad kostpriser</a></td></tr>";
} else {
print "<td colspan=5 align=center><a href={$href}?sort=varenr&funktion=vareOpslag&fokus={$fokus}&id={$id}&vis_kost=on>Vis kostpriser</a></td></tr>";
}
$rowheight = NULL;
} else {
$rowheight = "height=\"50\"";
}
print "<td><b><a href={$href}?sort=varenr&funktion=vareOpslag&fokus={$fokus}&id={$id}&vis_kost={$vis_kost}&bordnr={$bordnr}>Varenr</a></b></td>";
print "<td><b> Enhed</b></td>";
print "<td><b><a href={$href}?sort=beskrivelse&funktion=vareOpslag&fokus={$fokus}&id={$id}&vis_kost={$vis_kost}&bordnr={$bordnr}>Beskrivelse</a></b></td>";
print "<td align=right><b><a href={$href}?sort=salgspris&funktion=vareOpslag&fokus={$fokus}&id={$id}&bordnr={$bordnr}>Salgspris</a></b></td>";
print "<td align=right><b><a href={$href}?sort=beholdning&funktion=vareOpslag&fokus={$fokus}&id={$id}&bordnr={$bordnr}>Beholdning</a></b></td>";
if ($vis_kost) {
print "<td align=right><b> Kostpris</b></td>";
}
# if ($art!='PO') print"<td align=right><b><a href=$href?sort=beholdning&funktion=vareOpslag&fokus=$fokus&id=$id&vis_kost=$vis_kost>Beh.</a></b></td>";
print "<td><br></td>";
print " </tr>\n";
if ($ref) {
$r = db_fetch_array(db_select("select afd from ansatte where navn = '{$ref}' or initialer = '{$ref}'", __FILE__ . " linje " . __LINE__));
$afd = $r['afd'];
$x = 0;
$q = db_select("select max(kodenr) as lagerantal from grupper where art='LG'", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$lagernavn[$x] = $r['beskrivelse'];
$lagernr[$x] = $r['kodenr'];
$x++;
}
$r = db_fetch_array(db_select("select kodenr from grupper where box1='{$afd}' and art='LG'", __FILE__ . " linje " . __LINE__));
$lager = $r['kodenr'] * 1;
}
if (!$sort) {
$sort = 'varenr';
}
if ($find) {
$qtxt = "select * from varer where lukket != '1' and lower({$fokus}) like '{$find}' order by {$sort}";
} else {
$qtxt = "select * from varer where lukket != '1' order by {$sort}";
}
if ($art == 'PO') {
if ($linjebg != $bgcolor) {
$linjebg = $bgcolor;
$color = '#000000';
} else {
$linjebg = $bgcolor5;
$color = '#000000';
}
print "<tr bgcolor=\"{$linjebg}\" onclick=\"window.document.location='{$href}?id={$id}&bordnr={$bordnr}';\">";
print "<td colspan=\"5\" {$rowheight} align=\"center\"><big><big>Tilbage</big></big></td></tr>\n";
}
$x = 0;
#cho "$qtxt<br>";
$q = db_select($qtxt, __FILE__ . " linje " . __LINE__);
while ($row = db_fetch_array($q)) {
$vare_id = $row['id'] * 1;
$beholdning = $row['beholdning'] * 1;
# if ($row['samlevare']) $beholdning=find_samlebeholdning($vare_id);
$x++;
if ($linjebg != $bgcolor) {
$linjebg = $bgcolor;
$color = '#000000';
} else {
$linjebg = $bgcolor5;
$color = '#000000';
}
print "<tr bgcolor=\"{$linjebg}\">";
#onclick=\"window.document.location='$href?vare_id=$row[id]&fokus=$fokus&id=$id&bordnr=$bordnr';\"
# ($art=='PO')?$hreftxt="$href?vare_id=$row[id]&fokus=$fokus&id=$id&bordnr=$bordnr":$hreftxt="";
$hreftxt = "{$href}?vare_id={$row['id']}&fokus={$fokus}&id={$id}&bordnr={$bordnr}";
#"$href?vare_id=$row[id]&fokus=$fokus&id=$id&bordnr=$bordnr";
print "<td {$rowheight} ><a onfocus=\"this.style.fontSize = '20px';\" onblur=\"this.style.fontSize = '12px';\" id=\"opslag_{$x}\" href=\"{$hreftxt}\">{$row['varenr']}</a></td>";
print "<td>{$row['enhed']}<br></td>";
print "<td>{$row['beskrivelse']}<br></td>";
if ($incl_moms && !in_array($row['gruppe'], $momsfri)) {
$salgspris = $row['salgspris'] + $row['salgspris'] * $momssats / 100;
} else {
$salgspris = $row['salgspris'];
}
print "<td align=right>" . dkdecimal($salgspris) . "<br></td>";
if ($vis_kost == 'on') {
$query2 = db_select("select kostpris from vare_lev where vare_id = '{$vare_id}' order by posnr", __FILE__ . " linje " . __LINE__);
$row2 = db_fetch_array($query2);
$kostpris = dkdecimal($row2['kostpris']);
print "<td align=right>{$kostpris}<br></td>";
}
$reserveret = 0;
if ($lager >= 1) {
$q2 = db_select("select * from batch_kob where vare_id='{$vare_id}' and rest>0 and lager={$lager}", __FILE__ . " linje " . __LINE__);
while ($r2 = db_fetch_array($q2)) {
$q3 = db_select("select * from reservation where batch_kob_id={$r2['id']}", __FILE__ . " linje " . __LINE__);
while ($r3 = db_fetch_array($q3)) {
$reserveret = $reserveret + $r3['antal'];
}
}
$linjetext = "<span title= 'Reserveret: {$reserveret}'>";
$lager <= 1 ? $l = "and lager<='{$lager}'" : ($l = "and lager='{$lager}'");
$r2 = db_fetch_array(db_select("select beholdning from lagerstatus where vare_id='{$vare_id}' {$l}", __FILE__ . " linje " . __LINE__));
$beholdning = $r2['beholdning'] * 1;
print "<td align=right>{$linjetext} " . dkdecimal($beholdning) . "</span></td>";
} else {
$q2 = db_select("select * from batch_kob where vare_id='{$vare_id}' and rest > 0", __FILE__ . " linje " . __LINE__);
while ($r2 = db_fetch_array($q2)) {
$q3 = db_select("select * from reservation where batch_kob_id={$r2['id']}", __FILE__ . " linje " . __LINE__);
while ($r3 = db_fetch_array($q3)) {
$reserveret = $reserveret + $r3['antal'];
}
}
$linjetext = "<span title= 'Reserveret: {$reserveret}'>";
print "<td align=right>{$linjetext} " . dkdecimal($beholdning) . "</span></td>";
}
print "</tr>\n";
}
print "</tbody></table>\n";
print "<body onload=\"document.links['opslag_1'].focus();\" >\n";
# print "<script language=\"javascript\">
# document.getElementById[\"opslag_1\"].focus();
# </script>";
exit;
}
if (isset($_GET['land'])) {
$land = $_GET['land'];
}
if (isset($_GET['kontakt'])) {
$kontakt = $_GET['kontakt'];
}
if (isset($_GET['tlf'])) {
$tlf = $_GET['tlf'];
}
$kategori_antal = 0;
if (!isset($vis_lev_addr)) {
$vis_lev_addr = 'checked';
}
print "<BODY onLoad=\"javascript:docChange = true;\">\n";
}
$kreditmax = dkdecimal($kreditmax);
if ($r = db_fetch_array(db_select("select * from grupper where art='DebInfo'", __FILE__ . " linje " . __LINE__))) {
$cat_id = explode(chr(9), $r['box1']);
$cat_beskrivelse = explode(chr(9), $r['box2']);
$cat_antal = count($cat_id);
$status_id = explode(chr(9), $r['box3']);
$status_beskrivelse = explode(chr(9), $r['box4']);
$status_antal = count($status_id);
} else {
db_modify("insert into grupper(beskrivelse,art) values ('Div DebitorInfo','DebInfo')", __FILE__ . " linje " . __LINE__);
}
if ($kontotype == "privat") {
if (!$fornavn && !$efternavn && $firmanavn) {
list($fornavn, $efternavn) = explode(",", split_navn($firmanavn));
list($lev_fornavn, $lev_efternavn) = explode(",", split_navn($lev_firmanavn));
db_modify("update adresser set fornavn='" . db_escape_string($fornavn) . "',efternavn='" . db_escape_string($efternavn) . "' where id = '{$id}'", __FILE__ . " linje " . __LINE__);
function vareopslag($sort, $fokus, $id, $vis_kost, $ref, $find, $retur)
{
global $bgcolor;
global $bgcolor5;
if ($find) {
$find = str_replace("*", "%", $find);
$find = " and {$fokus} like {$find} and id!='{$id}'";
} else {
$find = " and id!='{$id}'";
}
# sidehoved($id, "$retur", "../lager/$retur", $fokus, "Kundeordre $id - vareopslag");
# print"<table width=\"100%\" height=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\"><tbody>";
# print"<tr><td valign=\"top\">";
print "<table cellpadding=\"1\" cellspacing=\"1\" border=\"0\t\" width=\"100%\" valign = \"top\">";
print "<tbody><tr>";
print "<td><a href=\"{$retur}?fokus={$fokus}&id={$id}\">Luk</a></td>";
if ($vis_kost) {
print "<td colspan=7 align=center><a href={$retur}?sort=varenr&funktion=vareopslag&x={$x}&fokus={$fokus}&id={$id}&find={$find}>Udelad kostpriser</a></td></tr>";
} else {
print "<td colspan=3 align=center><a href={$retur}?sort=varenr&funktion=vareopslag&x={$x}&fokus={$fokus}&id={$id}&vis_kost=on&find={$find}>Vis kostpriser</a></td></tr>";
}
print "<td><b><a href={$retur}?sort=varenr&funktion=vareopslag&x={$x}&fokus={$fokus}&id={$id}&vis_kost={$vis_kost}&find={$find}>Varenr</a></b></td>";
print "<td><b> Enhed</b></td>";
print "<td><b><a href={$retur}?sort=beskrivelse&funktion=vareopslag&x={$x}&fokus={$fokus}&id={$id}&vis_kost={$vis_kost}&find={$find}>Beskrivelse</a></b></td>";
print "<td align=right><b><a href={$retur}?sort=salgspris&funktion=vareopslag&x={$x}&fokus={$fokus}&id={$id}&find={$find}>Salgspris</a></b></td>";
if ($vis_kost) {
print "<td align=right><b> Kostpris</b></td>";
}
print "<td align=right><b><a href={$retur}?sort=beholdning&funktion=vareopslag&x={$x}&fokus={$fokus}&id={$id}&vis_kost={$vis_kost}&find={$find}>Beh.</a></b></td>";
print "<td><br></td>";
# print"<td><br></td><td><b>Kunde</b></td>";
print " </tr>\n";
print "<tr><td colspan=\"6\"><hr></td></tr>";
if ($ref) {
if ($row = db_fetch_array(db_select("select afd from ansatte where navn = '{$ref}'"))) {
if ($row = db_fetch_array(db_select("select kodenr from grupper where box1='{$row['afd']}' and art='LG'"))) {
$lager = $row['kodenr'];
}
}
}
$lager = $lager * 1;
if (!$sort) {
$sort = varenr;
}
if ($find) {
$query = db_select("select * from varer where lukket != '1' {$find} order by {$sort}");
} else {
$query = db_select("select * from varer where lukket != '1' order by {$sort}");
}
while ($row = db_fetch_array($query)) {
$query2 = db_select("select box8 from grupper where art='VG' and kodenr='{$row['gruppe']}'");
$row2 = db_fetch_array($query2);
if ($row2[box8] == 'on' || $row[samlevare] == 'on') {
if ($row[beholdning] != '0' and !$row[beholdning]) {
db_modify("update varer set beholdning='0' where id={$row['id']}");
}
} elseif ($row[beholdning]) {
db_modify("update varer set beholdning='0' where id={$row['id']}");
}
if ($linjebg != $bgcolor) {
$linjebg = $bgcolor;
$color = '#000000';
} else {
$linjebg = $bgcolor5;
$color = '#000000';
}
print "<tr bgcolor=\"{$linjebg}\">";
print "<td><a href=\"{$retur}?vare_id={$row['id']}&fokus={$fokus}&id={$id}\">{$row['varenr']}</a></td>";
print "<td>{$row['enhed']}<br></td>";
print "<td>{$row['beskrivelse']}<br></td>";
$salgspris = dkdecimal($row[salgspris]);
print "<td align=right>{$salgspris}<br></td>";
if ($vis_kost == 'on') {
$query2 = db_select("select kostpris from vare_lev where vare_id = {$row['id']} order by posnr");
$row2 = db_fetch_array($query2);
$kostpris = dkdecimal($row2[kostpris]);
print "<td align=right>{$kostpris}<br></td>";
}
$reserveret = 0;
# $linjetext="<span title= 'Der er $y i tilbud og $z i ordre '>";
if ($lager >= 1) {
$q2 = db_select("select * from batch_kob where vare_id={$row['id']} and rest>0 and lager={$lager}");
while ($r2 = db_fetch_array($q2)) {
$q3 = db_select("select * from reservation where batch_kob_id={$r2['id']}");
while ($r3 = db_fetch_array($q3)) {
$reserveret = $reserveret + $r3[antal];
}
}
$linjetext = "<span title= 'Reserveret: {$reserveret}'>";
if ($r2 = db_fetch_array(db_select("select beholdning from lagerstatus where vare_id={$row['id']} and lager={$lager}"))) {
print "<td align=right>{$linjetext} {$r2['beholdning']}</span></td>";
}
} else {
$q2 = db_select("select * from batch_kob where vare_id={$row['id']} and rest > 0");
while ($r2 = db_fetch_array($q2)) {
$q3 = db_select("select * from reservation where batch_kob_id={$r2['id']}");
while ($r3 = db_fetch_array($q3)) {
$reserveret = $reserveret + $r3[antal];
}
}
$linjetext = "<span title= 'Reserveret: {$reserveret}'>";
print "<td align=right>{$linjetext} {$row['beholdning']}</span></td>";
}
print "</tr>\n";
}
print "</tbody></table></td></tr></tbody></table>";
exit;
}
function vis_aabne_poster($dato_fra, $dato_til, $konto_fra, $konto_til, $art)
{
global $bgcolor;
global $bgcolor5;
print "<tr><td><table width=100% cellpadding=\"0\" cellspacing=\"0\" border=\"0\"><tbody>\n";
print "<tr><td>Kontonr</td><td>Firmanavn</td><td align=right>>90</td><td align=right>60-90</td><td align=right>30-60</td><td align=right>8-30</td><td align=right>0-8</td><td align=right>I alt</td><tr>";
$currentdate = date("Y-m-d");
$fromdate = usdate($dato_fra);
$todate = usdate($dato_til);
# echo "SS $fromdate $todate KF $konto_fra<br>";
/*
# Finder start og s**t paa regnskabsaar
for ($x=1; $x<=12; $x++) {
if ($maaned_fra==$md[$x]){$maaned_fra=$x;}
if ($maaned_til==$md[$x]){$maaned_til=$x;}
}
$query = db_select("select * from grupper where kodenr='$regnaar' and art='RA'",__FILE__ . " linje " . __LINE__);
$row = db_fetch_array($query);
# $regnaar=$row[kodenr];
$startmaaned=$row['box1']*1;
$startaar=$row['box2']*1;
$slutmaaned=$row['box3']*1;
$slutaar=$row['box4']*1;
$slutdato=31;
##
if ($maaned_fra) $startmaaned=$maaned_fra;
if ($maaned_til) $slutmaaned=$maaned_til;
if (!is_numeric($startmaaned)) {
if (strstr($startmaaned," ")) list($tmp,$startmaaned)=explode(" ",$startmaaned);
if (!is_numeric($startmaaned)) list ($tmp,$startmaaned)=explode(" ",find_maaned_nr($startmaaned));
}
if (!is_numeric($slutmaaned)) {
if (strstr($slutmaaned," ")) list($tmp,$slutmaaned)=explode(" ",$slutmaaned);
if (!is_numeric($slutmaaned)) list ($tmp,$slutmaaned)=explode(" ",find_maaned_nr($slutmaaned));
}
while (!checkdate($slutmaaned,$slutdato,$slutaar)) {
$slutdato=$slutdato-1;
if ($slutdato<28) break;
}
# if ($slutmaaned<10){$slutmaaned="0".$slutmaaned;}
$regnstart = $startaar. "-" . $startmaaned . "-" . '01';
$regnslut = $slutaar . "-" . $slutmaaned . "-" . $slutdato;
*/
#$regnslut = "2005-05-04";
print "<form name=aabenpost action=rapport.php method=post>";
print "<tr><td colspan=10><hr></td></tr>\n";
$x = 0;
# echo "KF $konto_fra<br>";
if (is_numeric($konto_fra) && is_numeric($konto_til)) {
$tekst = "select * from adresser where " . nr_cast('kontonr') . ">='{$konto_fra}' and " . nr_cast('kontonr') . "<='{$konto_til}' and art = 'D' order by " . nr_cast('kontonr') . "";
} elseif ($konto_fra && $konto_fra != '*') {
$konto_fra = str_replace("*", "%", $konto_fra);
$tmp1 = strtolower($konto_fra);
$tmp2 = strtoupper($konto_fra);
$tekst = "select * from adresser where (firmanavn like '{$konto_fra}' or lower(firmanavn) like '{$tmp1}' or upper(firmanavn) like '{$tmp2}') and art = 'D' order by firmanavn";
} else {
$tekst = "select * from adresser where art = '{$art}' order by firmanavn";
}
# echo "tekst $tekst<br>";
$kontonr = array();
$x = 0;
$q = db_select("{$tekst}", __FILE__ . " linje " . __LINE__);
# if ($konto_fra && $konto_til) $tmp=nr_cast('kontonr').">='$konto_fra' and ".nr_cast('kontonr')."<='$konto_til' and ";
# elseif ($konto_fra) $tmp=nr_cast('kontonr').">='$konto_fra' and ";
# elseif ($konto_til) $tmp=nr_cast('kontonr')."<='$konto_til'and ";
# else $tmp="";
# $q = db_select("select * from adresser where $tmp art = '$art' order by firmanavn",__FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$x++;
$konto_id[$x] = $r['id'];
print "<input type=hidden name=konto_id[{$x}] value={$konto_id[$x]}>";
$kontonr[$x] = trim($r['kontonr']);
$firmanavn[$x] = stripslashes($r['firmanavn']);
$addr1[$x] = stripslashes($r['addr1']);
$addr2[$x] = stripslashes($r['addr2']);
$postnr[$x] = trim($r['postnr']);
$bynavn[$x] = stripslashes($r['bynavn']);
$email[$x] = trim($r['email']);
$betalingsbet[$x] = trim($r['betalingsbet']);
$betalingsdage[$x] = trim($r['betalingsdage']);
}
$kontoantal = $x;
$sum = 0;
for ($x = 1; $x <= $kontoantal; $x++) {
$amount = 0;
$udlignet = 1;
$rykkerbelob = 0;
$forfalden = 0;
$forfalden_plus8 = 0;
$forfalden_plus30 = 0;
$forfalden_plus60 = 0;
$forfalden_plus90 = 0;
$y = 0;
$faktnr = array();
$f = 0;
if ($art == 'D') {
$tmp = "";
} else {
$tmp = "desc";
}
# if ($fromdate && $todate) $q=db_select("select * from openpost where transdate>='$fromdate' and transdate<='$todate' and konto_id='$konto_id[$x]'",__FILE__ . " linje " . __LINE__);
# elseif ($todate) $q=db_select("select * from openpost where transdate<='$todate' and konto_id='$konto_id[$x]'",__FILE__ . " linje " . __LINE__);
# else $q=db_select("select * from openpost where konto_id='$konto_id[$x]'",__FILE__ . " linje " . __LINE__);
# if ($fromdate && $todate) $tekst="select * from openpost where transdate>='$fromdate' and transdate<='$todate' and konto_id='$konto_id[$x]' order by faktnr,amount $tmp";
if ($todate) {
$tekst = "select * from openpost where transdate<='{$todate}' and konto_id='{$konto_id[$x]}' order by faktnr,amount {$tmp}";
} else {
$tekst = "select * from openpost where konto_id='{$konto_id[$x]}' order by faktnr,amount {$tmp}";
}
$q = db_select("{$tekst}", __FILE__ . " linje " . __LINE__);
# if ($regnaar) $q=db_select("select * from openpost where konto_id=$id[$x] and transdate <= '$regnslut' order by faktnr,amount $tmp",__FILE__ . " linje " . __LINE__);
# else $q=db_select("select * from openpost where konto_id=$id[$x] and udlignet!='1' order by faktnr,amount $tmp",__FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
if ($r['udlignet'] != 1 || $r['transdate'] <= $todate && $r['udlign_date'] && $r['udlign_date'] > $todate) {
if ($r['faktnr'] && !in_array($r['faktnr'], $faktnr)) {
$f++;
$faktnr[$f] = $r['faktnr'];
$forfaldsdag = $r['forfaldsdate'];
} elseif (!$r['faktnr']) {
$forfaldsdag = $r['transdate'];
}
$oid = $r['id'];
$transdate = $r['transdate'];
if ($r['valuta']) {
$valuta = $r['valuta'];
} else {
$valuta = 'DKK';
}
if ($r['valutakurs']) {
$valutakurs = $r['valutakurs'];
} else {
$valutakurs = 100;
}
$udlignet = "0";
$amount = $r['amount'];
if ($amount > 0) {
$amount += 0.0001;
} else {
$amount -= 0.0001;
}
if (!$forfaldsdag && $art == 'D' && $amount < 0) {
$forfaldsdag = $r['transdate'];
} elseif (!$forfaldsdag && $art == 'K' && $amount > 0) {
$forfaldsdag = $r['transdate'];
} elseif (!$forfaldsdag) {
$forfaldsdag = $r['forfaldsdate'];
}
if ($r['faktnr'] && !$r['kladde_id'] && ($amount > 0 || $amount < 0 && strstr($r['beskrivelse'], "Lev. fakt")) && $r['refnr'] > 1) {
#rettet 20090715
if ($r2 = db_fetch_array(db_select("select betalingsbet, betalingsdage from ordrer where id='{$r['refnr']}' and fakturanr = '{$r['faktnr']}'", __FILE__ . " linje " . __LINE__))) {
$betalingsbet[$x] = trim($r2['betalingsbet']);
$betalingsdage[$x] = trim($r2['betalingsdage']);
$tmp = usdate(forfaldsdag($transdate, $betalingsbet[$x], $betalingsdage[$x]));
if ($tmp != $forfaldsdag) {
$forfaldsdag = $tmp;
db_modify("update openpost set forfaldsdate = '{$forfaldsdag}' where id='{$oid}'", __FILE__ . " linje " . __LINE__);
}
}
}
#elseif ()
$amount = $amount * $valutakurs / 100;
if ($amount > 0) {
$amount = round($amount + 0.0001, 2);
} else {
$amount = round($amount - 0.0001, 2);
}
### nedenstående er indført grundet en fejl i 2.0.3 som skrev forkert forfaldsdato i openpost og fjernet i 2.0.8.
# $tmp=usdate(forfaldsdag($transdate, $betalingsbet[$x], $betalingsdage[$x]));
# if ($tmp && !$forfaldsdag) db_modify("update openpost set forfaldsdate='$tmp' where id='$oid'",__FILE__ . " linje " . __LINE__);
# $forfaldsdag=$tmp;
################
$fakt_utid = strtotime($transdate);
$forf_utid = strtotime($forfaldsdag);
$dage = round(($forf_utid - $fakt_utid) / 86400, 0);
$forfaldsdag_plus8 = usdate(forfaldsdag($transdate, 'netto', $dage + 8));
$forfaldsdag_plus30 = usdate(forfaldsdag($transdate, 'netto', $dage + 30));
$forfaldsdag_plus60 = usdate(forfaldsdag($transdate, 'netto', $dage + 60));
$forfaldsdag_plus90 = usdate(forfaldsdag($transdate, 'netto', $dage + 90));
if ($forfaldsdag < $currentdate) {
$rykkerbelob = $rykkerbelob + $amount;
}
if ($forfaldsdag < $currentdate && $forfaldsdag_plus8 > $currentdate) {
$forfalden = $forfalden + $amount;
}
if ($forfaldsdag_plus8 <= $currentdate && $forfaldsdag_plus30 > $currentdate) {
$forfalden_plus8 = $forfalden_plus8 + $amount;
}
if ($forfaldsdag_plus30 <= $currentdate && $forfaldsdag_plus60 > $currentdate) {
$forfalden_plus30 = $forfalden_plus30 + $amount;
}
if ($forfaldsdag_plus60 <= $currentdate && $forfaldsdag_plus90 > $currentdate) {
$forfalden_plus60 = $forfalden_plus60 + $amount;
}
if ($forfaldsdag_plus90 <= $currentdate) {
$forfalden_plus90 = $forfalden_plus90 + $amount;
}
$y = $y + $amount;
}
}
$y > 0 ? $y = round($y + 0.0001, 2) : ($y = round($y - 0.0001, 2));
if ($y > 0.01 || $udlignet == "0") {
if ($linjebg != $bgcolor) {
$linjebg = $bgcolor;
$color = '#000000';
} elseif ($linjebg != $bgcolor5) {
$linjebg = $bgcolor5;
$color = '#000000';
}
$forfaldsum = $forfaldsum + $forfalden;
$forfaldsum_plus8 = $forfaldsum_plus8 + $forfalden_plus8;
$forfaldsum_plus30 = $forfaldsum_plus30 + $forfalden_plus30;
$forfaldsum_plus60 = $forfaldsum_plus60 + $forfalden_plus60;
$forfaldsum_plus90 = $forfaldsum_plus90 + $forfalden_plus90;
$sum = $sum + $y;
print "<tr bgcolor=\"{$linjebg}\">";
if ($popup) {
print "<td onClick=\"window.open('rapport.php?rapportart=kontokort&dato_fra={$dato_fra}&dato_til={$dato_til}&konto_fra={$kontonr[$x]}&konto_til={$kontonr[$x]}&submit=ok','kreditorrapport','{$jsvars}')\" onMouseOver=\"this.style.cursor = 'pointer'\"><a>";
} else {
print "<td><a href=rapport.php?rapportart=kontokort&kilde=openpost&kto_fra={$konto_fra}&kilde_kto_til={$konto_til}&dato_fra={$dato_fra}&dato_til={$dato_til}&konto_fra={$kontonr[$x]}&konto_til={$kontonr[$x]}&submit=ok>";
}
print "<span title='Klik for detaljer' style=\"text-decoration: underline;\">{$kontonr[$x]}</span></a></td>";
print "<td>{$firmanavn[$x]}</td>";
/*
if ($forfalden_plus90 != 0) $color="rgb(255, 0, 0)";
else $color="rgb(0, 0, 0)";
$tmp=dkdecimal($forfalden_plus90);
print "<td align=right><span style='color: $color;'>$tmp</span></td>";
if ($forfalden_plus60 != 0) $color="rgb(255, 0, 0)";
else $color="rgb(0, 0, 0)";
$tmp=dkdecimal($forfalden_plus60);
print "<td align=right><span style='color: $color;'>$tmp</span></td>";
if ($forfalden_plus60 != 0) $color="rgb(255, 0, 0)";
else $color="rgb(0, 0, 0)";
$tmp=dkdecimal($forfalden_plus30);
print "<td align=right><span style='color: $color;'>$tmp</span></td>";
if ($forfalden_plus30 != 0) $color="rgb(255, 0, 0)";
else $color="rgb(0, 0, 0)";
$tmp=dkdecimal($forfalden_plus8);
print "<td align=right><span style='color: $color;'>$tmp</span></td>";
if ($forfalden != 0) $color="rgb(255, 0, 0)";
else $color="rgb(0, 0, 0)";
$tmp=dkdecimal($forfalden);
*/
if ($art == 'D' && $forfalden_plus90 > 0 || $art == 'K' && $forfalden_plus90 < 0) {
$color = "rgb(255, 0, 0)";
} else {
$color = "rgb(0, 0, 0)";
}
$tmp = dkdecimal($forfalden_plus90);
print "<td align=right><span style='color: {$color};'>{$tmp}</span></td>";
if ($art == 'D' && $forfalden_plus60 > 0 || $art == 'K' && $forfalden_plus60 < 0) {
$color = "rgb(255, 0, 0)";
} else {
$color = "rgb(0, 0, 0)";
}
$tmp = dkdecimal($forfalden_plus60);
print "<td align=right><span style='color: {$color};'>{$tmp}</span></td>";
if ($art == 'D' && $forfalden_plus30 > 0 || $art == 'K' && $forfalden_plus30 < 0) {
$color = "rgb(255, 0, 0)";
} else {
$color = "rgb(0, 0, 0)";
}
$tmp = dkdecimal($forfalden_plus30);
print "<td align=right><span style='color: {$color};'>{$tmp}</span></td>";
if ($art == 'D' && $forfalden_plus8 > 0 || $art == 'K' && $forfalden_plus8 < 0) {
$color = "rgb(255, 0, 0)";
} else {
$color = "rgb(0, 0, 0)";
}
$tmp = dkdecimal($forfalden_plus8);
print "<td align=right><span style='color: {$color};'>{$tmp}</span></td>";
if ($art == 'D' && $forfalden > 0 || $art == 'K' && $forfalden < 0) {
$color = "rgb(255, 0, 0)";
} else {
$color = "rgb(0, 0, 0)";
}
$tmp = dkdecimal($forfalden);
print "<td align=right><span style='color: {$color};'>{$tmp}</span></td>";
$tmp = dkdecimal($y);
if (abs($y) < 0.01) {
print "<td align=right title=\"Klik her for at udligne åbne poster\"><a href=\"rapport.php?submit=ok&rapportart=openpost&dato_fra={$dato_fra}&dato_til={$dato_til}&konto_fra={$konto_fra}&konto_til={$konto_til}&udlign={$konto_id[$x]}\">{$tmp}</a></td>";
} else {
print "<td align=right>{$tmp}</td>";
}
if ($kontoudtog[$x] == 'on' && $art == "D") {
print "<td align=center><input type=checkbox name=kontoudtog[{$x}] checked>";
} elseif ($art == "D") {
print "<td align=center><input type=checkbox name=kontoudtog[{$x}]>";
}
print "</tr>\n";
}
print "<input type=hidden name=rykkerbelob[{$x}] value={$rykkerbelob}>";
}
print "<tr><td colspan=10><hr></td></tr>\n";
print "<tr><td><br></td><td>I alt</td>";
if ($forfaldsum_plus90 != 0) {
$color = "rgb(255, 0, 0)";
} else {
$color = "rgb(0, 0, 0)";
}
$tmp = dkdecimal($forfaldsum_plus90);
print "<td align=right><span style='color: {$color};'>{$tmp}</span></td>";
if ($forfaldsum_plus60 != 0) {
$color = "rgb(255, 0, 0)";
} else {
$color = "rgb(0, 0, 0)";
}
$tmp = dkdecimal($forfaldsum_plus60);
print "<td align=right><span style='color: {$color};'>{$tmp}</span></td>";
if ($forfaldsum_plus60 != 0) {
$color = "rgb(255, 0, 0)";
} else {
$color = "rgb(0, 0, 0)";
}
$tmp = dkdecimal($forfaldsum_plus30);
print "<td align=right><span style='color: {$color};'>{$tmp}</span></td>";
if ($forfaldsum_plus30 != 0) {
$color = "rgb(255, 0, 0)";
} else {
$color = "rgb(0, 0, 0)";
}
$tmp = dkdecimal($forfaldsum_plus8);
print "<td align=right><span style='color: {$color};'>{$tmp}</span></td>";
if ($forfaldsum != 0) {
$color = "rgb(255, 0, 0)";
} else {
$color = "rgb(0, 0, 0)";
}
$tmp = dkdecimal($forfaldsum);
print "<td align=right><span style='color: {$color};'>{$tmp}</span></td>";
$color = "rgb(0, 0, 0)";
$tmp = dkdecimal($sum);
print "<td align=right><span style='color: {$color};'>{$tmp}</span></td>";
print "<input type=hidden name=rapportart value=\"openpost\">";
print "<input type=hidden name=regnaar value={$regnaar}>";
print "<input type=hidden name=dato_fra value={$dato_fra}>";
print "<input type=hidden name=dato_til value={$dato_til}>";
print "<input type=hidden name=konto_fra value={$konto_fra}>";
print "<input type=hidden name=konto_til value={$konto_til}>";
print "<input type=hidden name=kontoantal value={$kontoantal}>";
if ($art == 'D') {
print "<tr><td colspan=10 align=center><span title=\"Klik her for at maile kontoudtog til de modtagere som er afmærket herover\"><input type=submit value=\"Mail kontoudtog\" name=\"submit\"></span> \n\t\t<span title='Klik her for at oprette rykker til de som er afmærkede herover'><input type=submit value=\"Opret rykker\" name=\"submit\"></span> \n\t\t<span onmouseover=\"return overlib('" . findtekst(242, $sprog_id) . "', WIDTH=800);\" onmouseout=\"return nd();\"><input type=submit value=\"Ryk alle\" name=\"submit\"></span></td></tr>\n";
}
print "</form>\n";
print "<tr><td colspan=10><hr></td></tr>\n";
print "</tbody></table>";
}
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;
}
print "<td title=\"Hvis dette felt er afmærket medtages linjen ikke ved næste genfakturering\" align = \"center\">\n\t\t<input class=\"inputbox\" {$onfocus} type=\"checkbox\" name=\"kdo_{$y}\" checked></td>";
print "</tr>";
if ($procenttillag[$x]) {
$tillag = $ordresum * $procenttillag[$x] / 100;
#echo htmlentities($procentbeskr)." -> $procenttillag[$x]<br>";
$pctbesk = str_replace('$procenttillæg;', dkdecimal($procenttillag[$x]), $procentbeskr);
print "<tr>";
print "<td></td>";
print "<td>{$procentvare}</td>";
print "<td></td>";
print "<td>{$pctbesk}</td>";
print "<td colspan=\"2\"></td>";
if ($procentfakt) {
print "<td></td>";
}
print "<td align=\"right\">" . dkdecimal($tillag) . "</td>";
print "<td</td>";
print "</tr>";
}
print "</tbody></table></td></tr>";
}
print "<input type=\"hidden\" name=\"fokus\" id=\"fokus\">";
print "<input type=\"hidden\" name=\"linjeantal\" value=\"{$y}\">";
if ($submit != 'Fakturer' || $fejltekst) {
print "<td align=\"center\" width={$width}><input type=\"submit\" style=\"width:80px\" accesskey=\"g\" value=\"Gem\" name=\"submit\" onclick=\"javascript:docChange = false;\">\n";
if (!$fejltekst) {
print " <input type=\"submit\" style=\"width:80px\" accesskey=\"f\" value=\"Fakturer\" name=\"submit\" onclick=\"javascript:docChange = false;\">\n";
}
print "</td>";
}
print "</tbody></table></td></tr>";
function bidrag($feltnavn, $sum, $sum_m_moms, $kostpris, $udlignet)
{
global $ialt;
global $totalkost;
global $genberegn;
$ialt = $ialt + $sum;
$totalkost = $totalkost + $kostpris;
$dk_db = dkdecimal($sum - $kostpris, 2);
$sum = round($sum, 2);
$kostpris = round($kostpris, 2);
if ($sum) {
$dk_dg = dkdecimal(($sum - $kostpris) * 100 / $sum, 2);
} else {
$dk_dg = '0,00';
}
$feltnavn == 'sum' ? $tmp = $sum : ($tmp = $sum_m_moms);
$tmp = dkdecimal($tmp, 2);
if ($genberegn) {
print "<span title= 'db: {$dk_db} - dg: {$dk_dg}%'>{$tmp}/{$dk_db}/{$dk_dg}%<br></span>";
} else {
if ($udlignet) {
$span = "style='color: #000000;' title='db: {$dk_db} - dg: {$dk_dg}%'";
} else {
$span = "style='color: #FF0000;' title='Ikke udlignet\r\ndb: {$dk_db} - dg: {$dk_dg}%'";
}
print "<span {$span}>{$tmp}<br></span>";
}
}
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-->";
}
if ($ret) {
$tekst = "Skriv fra & til dato som mmddåå:mmddåå. Hvis der kun skrives én dato, sættes dato til dags dato.";
print "<form name=omsaetning action=top100.php method=post>";
print "<tr><td colspan=4 align=center title=\"{$tekst}\">Vælg periode <input type=text name=periode value=\"{$periode}\"> ";
print "<input type=submit accesskey=\"O\" value=\"OK\" name=\"submit\"></td></tr>";
print "<tr><td colspan=4><hr></td></tr>\n";
print "</form>";
} else {
$x = 0;
print "<tr><td>Nr.</td><td>Kontonr.</td><td>Firmanavn</td><td align=right>Omsætning</td><tr>\n";
print "<tr><td colspan=4><hr></td></tr>\n";
$q = db_select("select konto_id, sum(sum) as totalsum from ordrer where (art='DO' or art= 'DK') and fakturadate>='{$from}' and fakturadate<='{$to}' group by konto_id order by sum(sum) desc", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$x++;
if ($x <= 100) {
$sum = dkdecimal($r['totalsum']);
$r2 = db_fetch_array(db_select("select * from adresser where id='{$r['konto_id']}'", __FILE__ . " linje " . __LINE__));
if (!isset($linjebg) || $linjebg != $bgcolor) {
$linjebg = $bgcolor;
$color = '#000000';
} else {
$linjebg = $bgcolor5;
$color = '#000000';
}
print "<tr bgcolor=\"{$linjebg}\"><td>{$x}</td>";
print "<td>{$r2['kontonr']}</td><td>{$r2['firmanavn']}</td><td align=right>{$sum}</td></tr>\n";
}
}
print "</tbody></table>";
}
?>
$txt = str_replace('$stregkode', $r['varenr'], $txt);
}
if (strpos($txt, '$enhedspris/$enhed')) {
if ($r['enhed'] && $r['indhold']) {
$txt = str_replace('$enhedspris', dkdecimal($r['pris'] / $r['indhold']), $txt);
$txt = str_replace('$enhed', $r['enhed'], $txt);
} else {
$txt = str_replace('($enhedspris/$enhed)', '', $txt);
$txt = str_replace('$enhedspris/$enhed', '', $txt);
}
} else {
$txt = str_replace('$enhedspris', dkdecimal($r['pris'] / $r['indhold']), $txt);
$txt = str_replace('$enhed', $r['enhed'], $txt);
}
$txt = str_replace('$img', $img, $txt);
$txt = str_replace('$pris', dkdecimal($salgspris), $txt);
$txt = str_replace('$dkkpris', $dkkpris, $txt);
$txt = str_replace('$enhed', $r['enhed'], $txt);
$txt = str_replace('$varemrk', $r['trademark'], $txt);
$txt = str_replace('$indhold', $r['indhold'], $txt);
$txt = str_replace('$special_pris', $special_price, $txt);
$txt = str_replace('$special_fra_dato', dkdato($r['special_from_date']), $txt);
$txt = str_replace('$special_til_dato', dkdato($r['special_to_date']), $txt);
$txt = str_replace('$special_fra_tid', substr($r['special_from_time'], 0, 5), $txt);
$txt = str_replace('$special_til_tid', substr($r['special_to_time'], 0, 5), $txt);
$fp = fopen("../temp/{$db}/label.html", 'w');
fwrite($fp, $txt);
fclose($fp);
include "../temp/{$db}/label.html";
/*
if ($beskrivelse) { #Dymo
function menubuttons($id, $menu_id, $vare_id, $plads)
{
global $afd_navn;
global $bgcolor5;
global $bon;
global $bord;
global $bordnr;
global $bordnavn;
global $brugernavn;
global $fokus;
global $folger;
global $indbetaling;
global $kasse;
global $kontonr;
global $momssats;
global $pris_ny;
global $sum;
global $url;
global $varenr_ny;
global $vare_id;
global $vare_id_ny;
#echo $fokus;
$dd = date("Y-m-d");
$tt = date("H:i:s");
if ($kasse == "?") {
find_kasse($kasse);
}
$vare_id || $vare_id_ny ? $disabled = "disabled=\"disabled\"" : ($disabled = NULL);
$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
if ($varenr_ny && $plads == 'H') {
#20140702
$tmp = strtolower($varenr_ny);
$r = db_fetch_array(db_select("select id,folgevare from varer where lower(varenr) = '{$tmp}' or lower(stregkode) = '{$tmp}'", __FILE__ . " linje " . __LINE__));
$vare_id = $r['id'];
if ($r['folgevare'] < 0) {
$menu_id = $r['folgevare'] * -1;
$folger = $vare_id;
}
} elseif ($folger && $plads == 'H') {
$r = db_fetch_array(db_select("select folgevare from varer where id = '{$folger}'", __FILE__ . " linje " . __LINE__));
if ($menu_id != abs($r['folgevare'])) {
$folger = NULL;
}
}
#elseif ($folger && $plads!='H') $menu_id=NULL;
$kasse = trim($kasse);
$r = db_fetch_array(db_select("select * from grupper where art = 'POS' and kodenr='1'", __FILE__ . " linje " . __LINE__));
$kasseantal = $r['box1'] * 1;
$afd = explode(chr(9), $r['box3']);
$tmp = $kasse - 1;
$afdnr = $afd[$tmp];
$r = db_fetch_array(db_select("select * from grupper where art = 'AFD' and kodenr='{$afdnr}'", __FILE__ . " linje " . __LINE__));
$afd_navn = $r['beskrivelse'];
$tid = date("H:i");
if (!$menu_id && $menu_id != '0' && $afd_navn) {
$r = db_fetch_array(db_select("select kodenr from grupper where art='POSBUT' and kode='{$plads}' and box1='{$afdnr}' and (box7 < box8) and (box7<='{$tid}' and box8>='{$tid}')", __FILE__ . " linje " . __LINE__));
$menu_id = $r['kodenr'];
}
if (!$menu_id && $menu_id != '0') {
$qtxt = "select kodenr from grupper where art='POSBUT' and kode='{$plads}' and (box7 < box8) and (box7<='{$tid}' and box8>='{$tid}')";
$r = db_fetch_array(db_select($qtxt, __FILE__ . " linje " . __LINE__));
$menu_id = $r['kodenr'];
if (!$menu_id && $menu_id != '0') {
#her tages højde for at s**t tidspkt kan være mindre en starttidspkt
$qtxt = "select kodenr from grupper where art='POSBUT' and (box7 > box8) and ((box7>='{$tid}' and box8>='{$tid}') or (box7<='{$tid}' and box8<='{$tid}'))";
$r = db_fetch_array(db_select($qtxt, __FILE__ . " linje " . __LINE__));
$menu_id = $r['kodenr'];
}
}
$qtxt = "select * from grupper where art='POSBUT' and kodenr='{$menu_id}'";
$r = db_fetch_array(db_select($qtxt, __FILE__ . " linje " . __LINE__));
$r['kode'] == 'H' ? $menu = 'sidemenu' : ($menu = 'bundmenu');
$menuid = $r['kodenr'];
$beskrivelse = $r['box1'];
$cols = $r['box2'];
$rows = $r['box3'];
$height = $r['box4'];
$width = $r['box5'];
$radius = $r['box11'];
$fontsize = $r['box10'];
$cellspacing = 0;
if (!$fontsize) {
$fontsize = $height * $width / 200;
}
# $stil="style=\"width:".$width."px;height:".$height."px;text-align:center;font-size:".$fontsize."px; background-color:#$b;\"";
$stil = "STYLE=\"display: table-cell;moz-border-radius:" . $radius . "px;-webkit-border-radius:" . $radius . "px;width:" . $width . "px;height:" . $height . "px;";
$stil .= "text-align:center;vertical-align:middle;font-size:" . $fontsize . "px;border: 1px solid #{$bgcolor5};white-space: normal;background-color: {$b};\"";
$nostil = "STYLE=\"display: table-cell;moz-border-radius:0px;-webkit-border-radius:0px;width:" . $width . "px;height:" . $height . "px;text-align:center;";
$nostil .= "vertical-align:middle;font-size:" . $fontsize . "px;white-space: normal;border: 0px solid #{$bgcolor};\"";
# background-color: $bgcolor;\"";
$twidth = $width * $cols . "px";
$theight = $height * $rows . "px";
print "<table border=\"0\" cellspacing=\"{$cellspacing}\" cellpadding=\"1\" width=\"{$twidth}\" height=\"{$theight}\" valign=\"top\"><tbody>\n";
# table 1 ->
if (substr($beskrivelse, 0, 1) != "!") {
print "<tr><td colspan=\"{$cols}\" align=\"center\" bgcolor=\"{$bgcolor5}\">{$beskrivelse}</td></tr>\n";
}
for ($x = 1; $x <= $rows; $x++) {
print "<tr>\n";
for ($y = 1; $y <= $cols; $y++) {
$qtxt = "select * from pos_buttons where menu_id={$menuid} and row='{$x}' and col='{$y}'";
$r = db_fetch_array(db_select($qtxt, __FILE__ . " linje " . __LINE__));
$a = $r['beskrivelse'];
$b = $r['color'];
$c = $r['vare_id'] * 1;
$d = $r['funktion'] * 1;
if ($a == '--') {
print "<td><input type=\"button\" {$stil} value= \"\"></td>";
} elseif ($a == '---') {
print "<td width=\"" . $width . "px\" {$nostil}></td>";
} elseif ($a || $a == '0') {
if ($d < 6) {
$knap = "<input type=\"button\" {$stil} value= \"{$a}\">";
$knap = str_replace("background-color: ;", "background-color: {$b};", $knap);
}
if (!$d || $d == 1) {
if (strpos($a, '$pris')) {
$ugedag = date('N');
$uxtid = date("U");
$tidspkt = date("H:i:s");
$qtxt = "select salgspris from varetilbud where vare_id={$c} and ugedag='{$ugedag}' and startdag<='{$uxtid}' and slutdag >='{$uxtid}' and starttid <='{$tidspkt}' and sluttid >='{$tidspkt}'";
$r = db_fetch_array(db_select($qtxt, __FILE__ . " linje " . __LINE__));
if ($r['salgspris']) {
$pris = $r['salgspris'];
} else {
$qtxt = "select salgspris,special_price,special_from_date,special_to_date,special_from_time,special_to_time from varer where id={$c}";
$r = db_fetch_array(db_select($qtxt, __FILE__ . " linje " . __LINE__));
#echo "($r[special_from_date] <= $dd && $r[special_to_date] >= $dd && $r[special_from_time] <= $tt && $r[special_to_time] >= $tt)<br>";
if ($r['special_from_date'] <= $dd && $r['special_to_date'] >= $dd && $r['special_from_time'] <= $tt && $r['special_to_time'] >= $tt) {
$pris = $r['special_price'];
} else {
$pris = $r['salgspris'];
}
}
$pris = dkdecimal($pris + $pris * $momssats / 100, 2);
if (strpos($knap, '$pris')) {
$knap = str_replace('$pris', " {$pris}", $knap);
$tmp = 1;
$knap = str_replace("\n", " ", $knap, $tmp);
}
}
print "<td><a style=\"text-decoration:none\" href=pos_ordre.php?id={$id}&{$menu}={$menu_id}&vare_id={$vare_id}&vare_id_ny={$c}&varenr_ny={$varenr_ny}&pris_ny={$pris_ny}&folger={$folger}&fokus={$fokus}&bordnr={$bordnr}>{$knap}</a>\n";
} elseif ($d == 2) {
print "<td><a style=\"text-decoration:none\" href=pos_ordre.php?id={$id}&vare_id={$vare_id}&{$menu}={$c}&varenr_ny={$varenr_ny}&pris_ny={$pris_ny}&folger={$folger}&fokus={$fokus}&bordnr={$bordnr}>{$knap}</a>\n";
} elseif ($d == 3) {
print "<td><a style=\"text-decoration:none\" href=pos_ordre.php?id={$id}&konto_id={$c}&varenr_ny={$varenr_ny}&pris_ny={$pris_ny}&folger={$folger}&fokus={$fokus}&bordnr={$bordnr}>{$knap}</a>\n";
} elseif ($d == 4) {
print "<td><a style=\"text-decoration:none\" href=pos_ordre.php?id={$id}&spec_func=spec_{$c}&varenr_ny={$varenr_ny}&pris_ny={$pris_ny}&folger={$folger}&fokus={$fokus}&bordnr={$bordnr}>{$knap}</a>\n";
} elseif ($d == 5) {
$tmp = str_replace("background-color: ;", "background-color: {$b};", $stil);
print "<td><INPUT TYPE=\"button\" {$tmp} NAME=\"{$a}\" VALUE=\"{$a}\" OnClick=\"pos_ordre.{$fokus}.value += '{$a}';pos_ordre.{$fokus}.focus();\">\n";
} elseif ($d == 6) {
if ($c == 1) {
$txt = 'Bord';
for ($z = 0; $z < count($bord); $z++) {
if ($bordnr == $z) {
$txt = $bord[$z];
}
}
$tmp = str_replace("background-color: ;", "background-color: {$b};", $stil);
print "<td><INPUT {$disabled} {$tmp} TYPE=\"submit\" NAME=\"bordvalg\" VALUE=\"{$txt}\">";
} elseif ($c == '2') {
$txt = str_replace('$brugernavn', $brugernavn, $a);
$tmp = str_replace("background-color: ;", "background-color: {$b};", $stil);
print "<td><INPUT {$disabled} onclick=\"window.location.href='pos_ordre.php?id={$id}&skift_bruger=1&bordnr={$bordnr}'\" type=\"button\" {$tmp} value= \"{$txt}\">\n";
} elseif ($c == '3') {
$tmp = str_replace("background-color: ;", "background-color: {$b};", $stil);
print "<td><INPUT {$disabled} {$tmp} TYPE=\"submit\" NAME=\"del_bord\" VALUE=\"Del bord\">";
} elseif ($c == '4') {
$tmp = str_replace("background-color: ;", "background-color: {$b};", $stil);
print "<td><INPUT {$tmp} TYPE=\"submit\" NAME=\"OK\" VALUE=\"Enter\">";
} elseif ($c == '5') {
$tmp = str_replace("background-color: ;", "background-color: {$b};", $stil);
print "<td><input {$disabled} type=\"button\" onclick=\"window.location.href='pos_ordre.php?id={$id}&find_bon=1'\" {$tmp} value=\"{$a}\">\n";
# $knap=str_replace("background-color: ;","background-color: $b;",$knap);
# print "<td>".$knap;
} elseif ($c == '6') {
$tmp = str_replace("background-color: ;", "background-color: {$b};", $stil);
print "<td><INPUT {$disabled} {$tmp} TYPE=\"submit\" NAME=\"flyt_bord\" VALUE=\"Flyt bord\">";
} elseif ($c == '7') {
$knap = "<input {$disabled} type=\"button\" onclick=\"window.location.href='pos_ordre.php?id={$id}&kasse={$kasse}&kassebeholdning=on&bordnr={$bordnr}'\" {$stil} value=\"{$a}\">\n";
$knap = str_replace("background-color: ;", "background-color: {$b};", $knap);
print "<td>" . $knap;
} elseif ($c == '8') {
$knap = "<input {$disabled} type=\"button\" onclick=\"window.location.href='pos_ordre.php?id={$id}&kasse=?&bordnr={$bordnr}'\" {$stil} value=\"Kasse {$kasse}\">\n";
$knap = str_replace("background-color: ;", "background-color: {$b};", $knap);
print "<td>" . $knap;
} elseif ($c == '9' || $c == '23') {
$kstil = str_replace("background-color: ;", "background-color: {$b};", $stil);
$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($b, '#ff0000', $kstil);
}
if ($c == 9) {
print "<td><INPUT {$disabled} {$kstil} TYPE=\"submit\" NAME=\"koekken\"VALUE=\"{$a}\">";
} else {
print "<td><INPUT {$disabled} {$kstil} TYPE=\"submit\" NAME=\"send_koekken\"VALUE=\"{$a}\">";
}
} elseif ($c == '10') {
$knap = "<input {$disabled} type=\"button\" onclick=\"window.location.href='../index/menu.php'\" {$stil} value=\"{$a}\">\n";
$knap = str_replace("background-color: ;", "background-color: {$b};", $knap);
print "<td>" . $knap;
} elseif ($c == '11') {
$tmp = str_replace("background-color: ;", "background-color: {$b};", $stil);
print "<td><INPUT {$disabled} {$tmp} TYPE=\"submit\" NAME=\"skuffe\" VALUE=\"Skuffe\">";
} elseif ($c == '12') {
$tmp = str_replace("background-color: ;", "background-color: {$b};", $stil);
print "<td><INPUT {$disabled} {$tmp} TYPE=\"submit\" NAME=\"udskriv\" VALUE=\"Udskriv\">";
} elseif ($c == '13') {
$tmp = str_replace("background-color: ;", "background-color: {$b};", $stil);
print "<td onclick=\"return confirm('Slet alt og start forfra')\"><INPUT TYPE=\"submit\" {$tmp} NAME=\"forfra\"VALUE=\"Forfra\" OnClick=\"pos_ordre.{$fokus}.value += 'f';pos_ordre.{$fokus}.focus();\">\n";
} elseif ($c == '14') {
$knap = "<input {$disabled} onclick=\"window.location.href='pos_ordre.php?id={$id}&skift_bruger=2&brugernavn={$a}&bordnr={$bordnr}&{$menu}={$menu_id}'\" type=\"button\" {$stil} value= \"{$a}\">\n";
if (strtolower($brugernavn) == strtolower($a)) {
$knap = str_replace("background-color: ;", "background-color: #00ff00;", $knap);
} else {
$knap = str_replace("background-color: ;", "background-color: {$b};", $knap);
}
print "<td>" . $knap;
} elseif ($c == '15') {
$tmp = str_replace("background-color: ;", "background-color: {$b};", $stil);
print "<td><INPUT TYPE=\"button\" {$tmp} NAME=\"clear\" VALUE=\"Ryd\" OnClick=\"pos_ordre.{$fokus}.value = '';pos_ordre.{$fokus}.focus();\">";
} elseif ($c == '16') {
$tmp = str_replace("background-color: ;", "background-color: {$b};", $stil);
print "<TD><INPUT TYPE=\"submit\" {$tmp} NAME=\"afslut\"VALUE=\"{$a}\" OnClick=\"pos_ordre.{$fokus}.value += 'a';pos_ordre.{$fokus}.focus();\">\n";
} elseif ($c == '17') {
$tmp = str_replace("background-color: ;", "background-color: {$b};", $stil);
$disabled ? $dis = NULL : ($dis = "disabled='disabled'");
print "<td><INPUT TYPE=\"submit\" {$tmp} {$dis} NAME=\"{$a}\" VALUE=\"{$a}\" OnClick=\"pos_ordre.{$fokus}.value += 'p';pos_ordre.{$fokus}.focus();\">\n";
} elseif ($c == '18') {
$disabled ? $dis = NULL : ($dis = "disabled='disabled'");
$tmp = str_replace("background-color: ;", "background-color: {$b};", $stil);
print "<td><INPUT TYPE=\"submit\" {$tmp} {$dis} NAME=\"{$a}\" VALUE=\"{$a}\" OnClick=\"pos_ordre.{$fokus}.value += 'r';pos_ordre.{$fokus}.focus();\">\n";
} elseif ($c == '19') {
$tmp = str_replace("background-color: ;", "background-color: {$b};", $stil);
print "<TD><INPUT TYPE=\"submit\" {$stil} NAME=\"tilbage\"VALUE=\"Tilbage\" OnClick=\"pos_ordre.{$fokus}.value += 't';pos_ordre.{$fokus}.focus();\"></TD>\n";
# 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";
} elseif ($c == '20') {
$knap = "<input {$disabled} type=\"button\" onclick=\"window.location.href='pos_ordre.php'\" {$stil} value=\"{$a}\">\n";
$knap = str_replace("background-color: ;", "background-color: {$b};", $knap);
print "<td>" . $knap;
$r = db_fetch_array(db_select("select box13 from grupper where art = 'POS' and kodenr = '1'", __FILE__ . " linje " . __LINE__));
$timeout = $r['box13'] * 1;
if ($timeout && !$bon) {
print "<meta http-equiv=\"refresh\" content=\"{$timeout};URL=pos_ordre.php?id=0\">\n";
}
} elseif ($c == '21') {
$tmp = str_replace("background-color: ;", "background-color: {$b};", $stil);
print "<TD align=\"center\"><INPUT TYPE=\"submit\" {$tmp} NAME=\"krediter\" VALUE=\"{$a}\">\n";
} elseif ($c == '22') {
$tmp = str_replace("background-color: ;", "background-color: {$b};", $stil);
if ($_COOKIE['salditerm']) {
$terminal_ip = $_COOKIE['salditerm'];
}
if (!$terminal_ip || $terminal_ip == 'box') {
$filnavn = "http://saldi.dk/kasse/" . $_SERVER['REMOTE_ADDR'] . ".ip";
if ($fp = fopen($filnavn, 'r')) {
$terminal_ip = trim(fgets($fp));
fclose($fp);
}
}
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'];
}
$href = "http://{$terminal_ip}/pointd/point.php?url={$url}&id={$id}&kasse={$kasse}";
print "<td><input {$disabled} type=\"button\" onclick=\"window.location.href='{$href}'\" {$tmp} value=\"{$a}\">\n";
} elseif ($c == '23') {
#se ved c==9
} elseif ($c == '24') {
$tmp = str_replace("background-color: ;", "background-color: {$b};", $stil);
$a = str_replace('$bord', $bord[$bordnr], $a);
print "<td><INPUT {$disabled} {$tmp} TYPE=\"submit\" NAME=\"kor_bord\"VALUE=\"{$a}\">";
} elseif ($c == '25') {
$tmp = str_replace("background-color: ;", "background-color: {$b};", $stil);
print "<TD align=\"center\"><INPUT TYPE=\"submit\" {$disabled} {$tmp} NAME=\"kontoopslag\" VALUE=\"{$a}\">\n";
} elseif ($c == '26') {
$tmp = str_replace("background-color: ;", "background-color: {$b};", $stil);
!$kontonr || $sum || $disabled ? $dis = "disabled='disabled'" : ($dis = NULL);
print "<TD align=\"center\"><INPUT TYPE=\"submit\" {$dis} {$tmp} NAME=\"indbetal\" VALUE=\"{$a}\" OnClick=\"pos_ordre.{$fokus}.value += 'i';pos_ordre.{$fokus}.focus();\">\n";
} elseif ($c == '27') {
$tmp = str_replace("background-color: ;", "background-color: {$b};", $stil);
print "<TD align=\"center\"><INPUT TYPE=\"submit\" {$tmp} NAME=\"betaling\" VALUE=\"{$a}\" OnClick=\"pos_ordre.{$fokus}.value += 'k';pos_ordre.{$fokus}.focus();\">\n";
} elseif ($c == '28') {
$tmp = str_replace("background-color: ;", "background-color: {$b};", $stil);
list($txt, $m) = explode("+", $a);
print "<input type=\"hidden\" name=\"sidemenu\" value=\"{$m}\">";
print "<td><INPUT {$tmp} TYPE=\"submit\" NAME=\"OK\" VALUE=\"{$txt}\">";
} elseif ($c == '29') {
$tmp = str_replace("background-color: ;", "background-color: {$b};", $stil);
print "<TD><INPUT TYPE=\"submit\" {$tmp} {$disabled} NAME=\"afslut\"VALUE=\"{$a}\" OnClick=\"pos_ordre.{$fokus}.value = 'v';pos_ordre.{$fokus}.focus();\">\n";
} elseif ($c == '30') {
$disabled ? $dis = "disabled='disabled'" : ($dis = NULL);
$tmp = str_replace("background-color: ;", "background-color: {$b};", $stil);
if ($sum && $kontonr) {
$returnconfirm = "onclick=\"javascript:return confirm('Flyt denne ordre til kontant eller anden kunde?')\"";
}
# elseif ($sum) $returnconfirm="onclick=\"javascript:return confirm('Flyt denne ordre til kunde?')\"";
# else $returnconfirm=NULL;
$returnconfirm = NULL;
print "<TD align=\"center\"><INPUT TYPE=\"submit\" {$dis} {$tmp} NAME=\"stamkunder\" VALUE=\"{$a}\" {$returnconfirm}>\n";
} elseif ($c == '31') {
!$kontonr || $disabled ? $dis = "disabled='disabled'" : ($dis = NULL);
$tmp = str_replace("background-color: ;", "background-color: {$b};", $stil);
print "<TD align=\"center\"><INPUT TYPE=\"submit\" {$dis} {$tmp} NAME=\"kontoudtog\" VALUE=\"{$a}\">\n";
} elseif ($c == '32') {
$tmp = str_replace("background-color: ;", "background-color: {$b};", $stil);
print "<td><INPUT {$disabled} {$tmp} TYPE=\"submit\" NAME=\"udskriv_sidste\" VALUE=\"{$a}\">";
} else {
$knap = str_replace('$kasse', $kasse, $knap);
$knap = str_replace('$brugernavn', $brugernavn, $knap);
$tmp = systemknap($c);
if (strpos($tmp, 'nclick')) {
$knap = str_replace(">", $tmp . ">", $knap);
} else {
$knap = str_replace("type=\"button\"", $tmp, $knap);
}
print "<td>" . $knap;
}
} elseif ($d == 7) {
$tmp = str_replace("background-color: ;", "background-color: {$b};", $stil);
(!$id && !$varenr_ny || !$sum || $kontonr) && !$indbetaling ? $tmp2 = "disabled=disabled " . $tmp : ($tmp2 = $tmp);
if ($a == 'Kontant') {
print "<TD><INPUT TYPE=\"submit\" {$tmp2} NAME='betaling' VALUE=\"{$a}\" OnClick=\"pos_ordre.{$fokus}.value += 'c';pos_ordre.{$fokus}.focus();\"></TD>\n";
} elseif ($a == 'Kontant på beløb') {
print "<TD><INPUT TYPE=\"submit\" {$tmp2} NAME='betaling' VALUE=\"{$a}\" OnClick=\"pos_ordre.{$fokus}.value += 'c';pos_ordre.{$fokus}.focus();\"></TD>\n";
} elseif ($a == 'Konto') {
!$kontonr || !$sum ? $tmp2 = "disabled=disabled " . $tmp : ($tmp2 = $tmp);
print "<TD><INPUT TYPE=\"submit\" {$tmp2} NAME='betaling' VALUE=\"{$a}\" OnClick=\"pos_ordre.{$fokus}.value += 'c';pos_ordre.{$fokus}.focus();\"></TD>\n";
} else {
print "<TD><INPUT TYPE=\"submit\" {$tmp2} NAME='betaling' VALUE=\"{$a}\" OnClick=\"pos_ordre.{$fokus}.value += 'd';pos_ordre.{$fokus}.focus();\"></TD>\n";
}
#20160418
} elseif ($d == 8) {
$tmp = str_replace("background-color: ;", "background-color: {$b};", $stil);
(!$id && !$varenr_ny || !$sum || $kontonr) && !$indbetaling ? $tmp2 = "disabled=disabled " . $tmp : ($tmp2 = $tmp);
print "<TD align=\"center\"><INPUT TYPE=\"submit\" {$tmp2} NAME=\"betvaluta\" VALUE=\"{$a}\"></TD>\n";
} else {
print "<td><br>";
}
print "</td>\n";
} else {
print "<td></td>";
}
}
print "</tr>\n";
}
print "</tbody></table>\n";
# <- table 1
}
if ($linjebg != $bgcolor) {
$linjebg = $bgcolor;
$color = '#000000';
} else {
$linjebg = $bgcolor5;
$color = '#000000';
}
print "<tr bgcolor=\"{$linjebg}\">";
print "<td><small>{$font} {$row['varenr']}</a></small></td>";
print "<td><small>{$font} {$row['beskrivelse']}<br></small></td>";
$salgspris = dkdecimal($row[salgspris]);
print "<td align=right><small>{$font} {$salgspris}<br></small></td>";
if ($vis_kost == 'on') {
$query2 = db_select("select kostpris from vare_lev where vare_id = {$row['id']} order by posnr");
$row2 = db_fetch_array($query2);
$kostpris = dkdecimal($row2[kostpris]);
print "<td align=right><small>{$font} {$kostpris}<br></small></td>";
}
$reserveret = 0;
# $linjetext="<span title= 'Der er $y i tilbud og $z i ordre '>";
if ($lager >= 1) {
$q2 = db_select("select * from batch_kob where vare_id={$row['id']} and rest>0 and lager={$lager}");
while ($r2 = db_fetch_array($q2)) {
$q3 = db_select("select * from reservation where batch_kob_id={$r2['id']}");
while ($r3 = db_fetch_array($q3)) {
$reserveret = $reserveret + $r3[antal];
}
}
$linjetext = "<span title= 'Reserveret: {$reserveret}'>";
if ($r2 = db_fetch_array(db_select("select beholdning from lagerstatus where vare_id={$row['id']} and lager={$lager}"))) {
print "<td align=right>{$linjetext}<small>{$font} {$r2['beholdning']}</small></span></td>";
echo $bgcolor2;
?>
">Beskrivelse</a></b></td>
<td align=right><b><font face="Helvetica, Arial, sans-serif" color="<?php
echo $bgcolor2;
?>
">Kurs</a></b></td>
</tr>
<?php
$x = 0;
$dd = date("Y-m-d");
$q = db_select("select * from grupper where art = 'VK' order by box1");
while ($r = db_fetch_array($q)) {
$x++;
if ($r2 = db_fetch_array(db_select("select kurs from valuta where gruppe='{$r['kodenr']}' and valdate <= '{$dd}' order by valdate desc"))) {
$kurs = dkdecimal($r2['kurs']);
} else {
$kurs = "-";
}
if ($bgcolor1 != $bgcolor) {
$bgcolor1 = $bgcolor;
$color = '#000000';
} elseif ($bgcolor1 != $bgcolor5) {
$bgcolor1 = $bgcolor5;
$color = '#000000';
}
print "<tr bgcolor=\"{$bgcolor1}\">";
print "<td><a href=valutakort.php?kodenr={$r['kodenr']}&valuta={$r['box1']}>{$font} {$r['box1']}</a><br></small></td>";
print "<td><small>{$font} {$r['beskrivelse']}<br></small></td>";
print "<td align=right><small>{$font} {$kurs}<br></small></td>";
print "</tr>";
function udskriv($start, $s**t, $sort, $udskriv, $udvalg)
{
global $lagerantal;
global $varenummer;
global $v_startstjerne;
global $v_slutstjerne;
global $v_strlen;
global $beskrivelse;
global $b_startstjerne;
global $b_slutstjerne;
global $b_strlen;
global $forslag;
global $beholdning;
global $i_tilbud;
global $i_ordre;
global $i_forslag;
global $bestilt;
global $brugernavn;
global $bgcolor;
global $bgcolor5;
global $alle_varer;
global $charset;
global $popup;
global $vis_lev;
global $incl_moms;
$tidspkt = time("u");
$z = 0;
$z1 = 0;
$linjebg = NULL;
$varer_i_ordre = array();
$vis_VG = array();
$vis_K = array();
if ($r = db_fetch_array(db_select("select * from grupper where art='VV' and box1='{$brugernavn}'", __FILE__ . " linje " . __LINE__))) {
$vis_VG = explode(",", $r['box2']);
if ($r['box3']) {
$vis_K = explode(",", $r['box3']);
} else {
$vis_VG[0] = 1;
}
$vis_lukkede = $r['box4'];
} else {
db_modify("insert into grupper (beskrivelse, art, box1, box2, box3, box4) values ('varevisning', 'VV', '{$brugernavn}', 'on', 'on', 'on')", __FILE__ . " linje " . __LINE__);
}
if ($vis_lukkede != 'on') {
$udvalg = $udvalg . " and lukket != '1'";
}
if (!$vis_VG[0]) {
if ($vis_VG[1]) {
$udvalg = $udvalg . " and (gruppe = '{$vis_VG['1']}'";
$x = 2;
while ($vis_VG[$x]) {
$udvalg = $udvalg . " or gruppe = '{$vis_VG[$x]}'";
$x++;
}
$udvalg = $udvalg . ")";
} else {
$udvalg = $udvalg . " and gruppe = ''";
}
}
if (!$vis_K[0]) {
$lev_vare_liste = array();
$x = 1;
if ($vis_K[1]) {
$tmp = "where lev_id = '{$vis_K['1']}'";
$x = 2;
while ($vis_K[$x]) {
$tmp = $tmp . " or lev_id = '{$vis_K[$x]}'";
$x++;
}
}
$y = 0;
$q = db_select("select distinct vare_id from vare_lev {$tmp}", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$y++;
$lev_vare_liste[$y] = $r['vare_id'];
}
}
if ($forslag) {
$x = 0;
$lagergrupper = array();
$q = db_select("select * from grupper where art='VG' and box8='on'", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$x++;
$lagergrupper[$x] = $r['kodenr'];
}
}
if (($beholdning || $forslag) && !$udskriv) {
$varer_i_ordre = find_varer_i_ordre();
}
if (!$s**t) {
$s**t = $start + 50;
}
if ($beskrivelse || $varenummer || $forslag) {
$s**t = 999999;
}
$query = db_select("select * from varer where id > 0 {$udvalg} order by {$sort}", __FILE__ . " linje " . __LINE__);
while ($row = db_fetch_array($query)) {
# if ($row['stregkode'] && $varenummer == $row['stregkode']) { #remmet phr 2011-04-11 grundet probl. med 2 varer hvor ene vares nummer = anden vares stregkode.
# $varenummer=$row['varenr'];
# }
$z++;
# $z bruges som taeller til at kontrollere hvor mange linjer der indgaar i listen.
$vis1 = 1;
$vis2 = 1;
if ($udskriv && $forslag && !$alle_varer) {
if (isset($forslag[$z])) {
$vis1 = 1;
$vis2 = 1;
} else {
$vis1 = 0;
}
}
// Her frasorteres varer som ikke kommer fra den valgte lev.
if (isset($vis_K[1]) && $vis1 == 1 && isset($lev_vare_liste) && in_array($row['id'], $lev_vare_liste) || $vis_K[0]) {
} elseif (!$vis_K[1] && $vis1 == 1 && isset($lev_vare_liste) && !in_array($row['id'], $lev_vare_liste)) {
} elseif (!$forslag) {
$vis1 = 0;
$z--;
}
if (isset($vis_K[1]) && $vis2 == 1 && isset($lev_vare_liste) && in_array($row['id'], $lev_vare_liste) || $vis_K[0]) {
} elseif (!$vis_K[1] && $vis2 == 1 && isset($lev_vare_liste) && !in_array($row['id'], $lev_vare_liste)) {
} else {
$vis2 = 0;
}
// Her frasorteres varer i bestillingsforslag som ikke lagerfoerte - skal staa nederst i frasortering.
if ($forslag && !in_array($row['gruppe'], $lagergrupper)) {
$vis1 = 0;
$vis2 = 0;
}
// frasortering s**t
if (($z >= $start && $z < $s**t || $forslag) && $vis1 == 1 && $vis2 == 1) {
$z1++;
if ($udskriv) {
$y = 0;
$linjebg != $bgcolor ? $linjebg = $bgcolor : ($linjebg = $bgcolor5);
$row['lukket'] == '1' ? $color = 'red' : ($color = 'black');
print "<tr bgcolor=\"{$linjebg}\">";
$kort = "kort" . $row['id'];
if ($popup) {
print "<td onMouseOver=\"this.style.cursor = 'pointer'\"; onClick=\"javascript:{$kort}=window.open('varekort.php?opener=varer.php&id={$row['id']}&returside=../includes/luk.php','{$kort}','scrollbars=1,resizable=1');{$kort}.focus();\"><FONT style=\"color:{$color};\"><span style=\"text-decoration: underline;\">" . htmlentities(stripslashes($row['varenr']), ENT_COMPAT, $charset) . "</span></td>";
} else {
print "<td> <a href=\"varekort.php?id={$row['id']}&returside=varer.php\"><FONT style=\"COLOR:{$color};\">" . htmlentities(stripslashes($row['varenr']), ENT_COMPAT, $charset) . "</font></a></td>";
}
print "<td><FONT style=\"color:{$color}\">" . htmlentities(stripslashes($row['enhed']), ENT_COMPAT, $charset) . "</font><br></td>";
print "<td><FONT style=\"color:{$color}\">" . htmlentities(stripslashes($row['beskrivelse']), ENT_COMPAT, $charset) . "</font><br></td>";
if (!$vis_lev) {
if ($lagerantal > 1 && !$forslag) {
$r2 = db_fetch_array(db_select("select sum(beholdning) as lagersum from lagerstatus where vare_id = {$row['id']}", __FILE__ . " linje " . __LINE__));
$diff = $row['beholdning'] - $r2['lagersum'];
for ($x = 1; $x <= $lagerantal; $x++) {
$qtxt = "select lager, beholdning from lagerstatus where vare_id = {$row['id']} and lager = {$x}";
$r2 = db_fetch_array(db_select($qtxt, __FILE__ . " linje " . __LINE__));
$y = $r2['beholdning'];
if ($x == 1) {
$y += $diff;
}
if ($y >= 1) {
print "<td align=center onClick=\"lagerflyt({$row['id']}, {$x})\" onMouseOver=\"this.style.cursor = 'pointer'\"><span title= 'Flyt til andet lager'><u>" . dkdecimal($y) . "</u></td>";
} else {
print "<td align=center>" . dkdecimal($y) . "</td></td>";
}
}
}
# if (($beholdning||$forslag)&&!$udskriv) {
# if (in_array($row['id'],$varer_i_ordre)) {
if ($forslag || $beholdning) {
$tmp = find_beholdning($row['id'], $udskriv);
$i_tilbud[$z] = $tmp[1];
$it_ordrenr[$z] = $tmp[5];
$i_ordre[$z] = $tmp[2];
$io_ordrenr[$z] = $tmp[6];
$i_forslag[$z] = $tmp[3];
$if_ordrenr[$z] = $tmp[7];
$bestilt[$z] = $tmp[4];
$b_ordrenr[$z] = $tmp[8];
}
if ($beholdning) {
$it_ordrenr[$z] ? $title = "title=\"Tilbud: {$it_ordrenr[$z]}\"" : ($title = "title=\"\"");
print "<td align=\"right\" {$title}>{$i_tilbud[$z]}</td>";
$io_ordrenr[$z] ? $title = "title=\"Ordre: {$io_ordrenr[$z]}\"" : ($title = "title=\"\"");
print "<td align=\"right\" {$title}>{$i_ordre[$z]}</td>";
$b_ordrenr[$z] ? $title = "title=\"Ordre: {$b_ordrenr[$z]}\"" : ($title = "title=\"\"");
print "<td align=\"right\" {$title}>{$bestilt[$z]}</td>";
}
print "<td align=right>" . dkdecimal($row['beholdning']) . "</td>";
if ($forslag) {
$tmp = $row['beholdning'] - $i_ordre[$z];
if ($row['min_lager'] * 1 > $tmp || $alle_varer) {
$gb = $gb + 1;
$genbestil[$z] = $row['max_lager'] - $row['beholdning'] + $i_ordre[$z];
if ($genbestil[$z] < 0) {
$genbestil[$z] = 0;
}
print "<td align=right><input class=\"inputbox\" type=\"text\" style=\"text-align:right;width:60px\" name=\"gb_antal_{$gb}\" value=\"{$genbestil[$z]}\"></td>";
print "<input type=\"hidden\" name=\"gb_id_{$gb}\" value=\"{$row['id']}\">";
print "<input type=\"hidden\" name=\"genbestil_ant\" value=\"{$gb}\">";
} else {
print "<td></td>";
}
}
}
if (!$forslag) {
$salgspris = dkdecimal($row['salgspris'] * (100 + $incl_moms) / 100);
print "<td align=right>{$salgspris}<br></td>";
}
if ($vis_lev == 'on') {
$query2 = db_select("select kostpris, lev_id, lev_varenr from vare_lev where vare_id = {$row['id']} order by posnr", __FILE__ . " linje " . __LINE__);
$row2 = db_fetch_array($query2);
if ($row2['lev_id']) {
$lev_varenr = $row2['lev_varenr'];
$levquery = db_select("select kontonr, firmanavn from adresser where id={$row2['lev_id']}", __FILE__ . " linje " . __LINE__);
$levrow = db_fetch_array($levquery);
$kostpris = dkdecimal($row2['kostpris']);
} elseif ($row['samlevare'] == 'on') {
$kostpris = dkdecimal($row['kostpris']);
}
print "<td align=right>{$kostpris}</td>";
$query2 = db_select("select box8 from grupper where art='VG' and kodenr='{$row['gruppe']}'", __FILE__ . " linje " . __LINE__);
$row2 = db_fetch_array($query2);
if ($row2['box8'] == 'on' || $row['samlevare'] == 'on') {
$ordre_id = array();
$x = 0;
$query2 = db_select("select id from ordrer where status >= 1 and status < 3 and art = 'DO'", __FILE__ . " linje " . __LINE__);
while ($row2 = db_fetch_array($query2)) {
$x++;
$ordre_id[$x] = $row2['id'];
}
$x = 0;
$query2 = db_select("select id, ordre_id, antal from ordrelinjer where vare_id = {$row['id']}", __FILE__ . " linje " . __LINE__);
while ($row2 = db_fetch_array($query2)) {
if (in_array($row2['ordre_id'], $ordre_id)) {
$x = $x + $row2['antal'];
$query3 = db_select("select antal from batch_salg where linje_id = {$row2['id']}", __FILE__ . " linje " . __LINE__);
while ($row3 = db_fetch_array($query3)) {
$x = $x - $row3['antal'];
}
}
}
$linjetext = "<span title= 'Der er {$x} i ordre'>";
print "<td align=right>{$linjetext}{$row['beholdning']}</span></td>";
print "<td></td>";
print "<td>{$levrow['kontonr']} - " . htmlentities(stripslashes($levrow['firmanavn']), ENT_COMPAT, $charset) . "</td>";
print "<td>" . htmlentities(stripslashes($lev_varenr), ENT_COMPAT, $charset) . "</td>";
} else {
print "<td></td>";
}
}
print "</tr>\n";
} elseif ($forslag || $beholdning) {
if (in_array($row['id'], $varer_i_ordre)) {
$tmp = find_beholdning($row['id'], $udskriv);
$i_tilbud[$z] = $tmp[1];
$it_ordrenr[$z] = $tmp[5];
$i_ordre[$z] = $tmp[2];
$io_ordrenr[$z] = $tmp[6];
$i_forslag[$z] = $tmp[3];
$if_ordrenr[$z] = $tmp[7];
$bestilt[$z] = $tmp[4];
$b_ordrenr[$z] = $tmp[8];
} else {
$i_tilbud[$z] = 0;
$i_ordre[$z] = 0;
$i_forslag[$z] = 0;
$bestilt[$z] = 0;
}
if ($row['min_lager'] * 1 > $row['beholdning'] - $i_ordre[$z] + $i_forslag[$z] + $bestilt[$z]) {
$genbestil[$z] = $row['max_lager'] - $row['beholdning'] + $i_ordre[$z] - ($i_forslag[$z] + $bestilt[$z]);
if ($forslag) {
$forslag[$z] = $row['id'];
}
}
}
} elseif ($udskriv && $z >= $s**t && !$forslag) {
break;
}
if ($z >= $s**t) {
break;
}
if (time("u") - $tidspkt > 60) {
print "<BODY onLoad=\"javascript:alert('Timeout - reducer linjeantal')\">";
break;
}
}
return $z;
}
$color = '#000000';
} else {
$linjebg = $bgcolor5;
$color = '#000000';
}
print "<tr bgcolor=\"{$linjebg}\">";
print "<td>";
if ($bilag[$x]) {
print "<a href=kontospec.php?bilag={$bilag[$x]} target=\"_blank\">{$bilag[$x]}</a><br>";
}
print "</td>";
print "<td>" . dkdato($transdate[$x]) . "</a><br></td>";
print "<td>{$beskrivelse[$x]}</a><br></td>";
print "<td align=\"right\">{$kontonr}</a><br></td>";
print "<td align=\"right\">" . dkdecimal($debet[$x]) . "</a><br></td>";
print "<td align=\"right\">" . dkdecimal($kredit[$x]) . "</a><br></td>";
print "<td align=\"right\" title=\"Ordrenr: {$ordrenr[$x]}\">{$faktura[$x]}</a><br></td>";
print "<td align=\"right\"><a href=kassekladde.php?kladde_id={$kladde_id[$x]}&returside=kontospec.php target=\"_blank\">{$kladde_id[$x]}</a><br></td>";
print "<td align=\"right\">{$afd[$x]}</a><br></td>";
print "<td align=\"right\">{$projekt[$x]}</a><br></td>";
print "</tr>";
}
}
function lagerbev($kontonr, $varekob, $varelager_i, $varelager_u, $regnstart, $regnslut)
{
$r = db_fetch_array(db_select("select kontotype from kontoplan where kontonr='{$kontonr}' order by regnskabsaar desc limit 1", __FILE__ . " linje " . __LINE__));
$kontotype = $r['kontotype'];
if (in_array($kontonr, $varekob) || in_array($kontonr, $varelager_i) || in_array($kontonr, $varelager_u)) {
$z = 0;
$lager = array();
$gruppe = array();
function pos_valg()
{
global $sprog_id;
global $bgcolor;
global $bgcolor5;
$kassekonti = array();
$afd = array();
$r = db_fetch_array(db_select("select * from grupper where art = 'POS' and kodenr = '1'", __FILE__ . " linje " . __LINE__));
$id1 = $r['id'];
$kasseantal = $r['box1'] * 1;
$kassekonti = explode(chr(9), $r['box2']);
$afd = explode(chr(9), $r['box3']);
$kortantal = $r['box4'] * 1;
$korttyper = explode(chr(9), $r['box5']);
$kortkonti = explode(chr(9), $r['box6']);
$moms = explode(chr(9), $r['box7']);
$rabatvareid = $r['box8'] * 1;
$r['box9'] ? $straksbogfor = 'checked' : ($straksbogfor = '');
$r['box10'] ? $udskriv_bon = 'checked' : ($udskriv_bon = '');
$r['box11'] ? $vis_kontoopslag = 'checked' : ($vis_kontoopslag = '');
$r['box12'] ? $vis_hurtigknap = 'checked' : ($vis_hurtigknap = '');
$timeout = $r['box13'] * 1;
$r['box14'] ? $vis_indbetaling = 'checked' : ($vis_indbetaling = '');
if ($r = db_fetch_array(db_select("select * from grupper where art = 'POS' and kodenr = '2'", __FILE__ . " linje " . __LINE__))) {
$id2 = $r['id'];
} else {
db_modify("insert into grupper(beskrivelse,kode,kodenr,art,box1,box2,box3,box4,box5,box6,box7,box8,box9,box10,box11,box12,box13,box14)values('Pos valg','','2','POS','0','','','','','','','','','','','','','')", __FILE__ . " linje " . __LINE__);
$r = db_fetch_array(db_select("select * from grupper where art = 'POS' and kodenr = '2'", __FILE__ . " linje " . __LINE__));
$id2 = $r['id'];
}
$kasseprimo = dkdecimal($r['box1']);
$r['box2'] ? $optalassist = 'checked' : ($optalassist = NULL);
$printer_ip = explode(chr(9), $r['box3']);
$terminal_ip = explode(chr(9), $r['box4']);
$betalingskort = explode(chr(9), $r['box5']);
#20131210
$div_kort_kto = $r['box6'];
#20140129
#cho $r[box7];
if ($r['box7']) {
$bord = explode(chr(9), str_replace("\n", " ", $r['box7']));
}
#20140506
$mellemkonti = explode(chr(9), $r['box8']);
$diffkonti = explode(chr(9), $r['box9']);
$koekkenprinter = explode(chr(9), $r['box10']);
$vare_id = $r['box11'];
$r['box12'] ? $vis_saet = 'checked' : ($vis_saet = '');
$q = db_select("select * from grupper where art = 'POSBUT'", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$posbuttons++;
}
if ($vare_id) {
$r = db_fetch_array(db_select("select varenr from varer where id = '{$vare_id}'", __FILE__ . " linje " . __LINE__));
$varenr = $r['varenr'];
}
if ($rabatvareid) {
$r = db_fetch_array(db_select("select varenr from varer where id = '{$rabatvareid}'", __FILE__ . " linje " . __LINE__));
$rabatvarenr = $r['varenr'];
}
$x = 0;
if ($kasseantal) {
$q = db_select("select * from grupper where art = 'AFD' order by kodenr", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$x++;
$afd_nr[$x] = $r['kodenr'];
$afd_navn[$x] = $r['beskrivelse'];
}
$afd_antal = $x;
$x = 0;
$q = db_select("select * from grupper where art = 'SM' order by kodenr", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$x++;
$moms_nr[$x] = $r['kodenr'];
$moms_navn[$x] = $r['beskrivelse'];
}
$moms_antal = $x;
}
print "<form name=diverse action=diverse.php?sektion=pos_valg method=post>";
print "<tr><td colspan='6'><hr></td></tr>";
print "<tr bgcolor='{$bgcolor5}'><td colspan='6'><b><u>" . findtekst(265, $sprog_id) . "</u></b></td></tr>";
print "<tr><td colspan='6'><br></td></tr>";
print "<input type=hidden name=id1 value='{$id1}'>";
print "<input type=hidden name=id2 value='{$id2}'>";
print "<tr><td title='" . findtekst(266, $sprog_id) . "'>" . findtekst(267, $sprog_id) . "</td><td><input class='inputbox' type='text' style='text-align:right;width:70px;' name='kasseantal' value='{$kasseantal}'></td></tr>";
# print "<tr><td title='".findtekst(285,$sprog_id)."'>".findtekst(285,$sprog_id)."</td>";
if ($kasseantal) {
# print "<tr><td title='".findtekst(730,$sprog_id)."'>".findtekst(729,$sprog_id)."</td><td><input class='inputbox' type='text' style='text-align:right;width:70px;' name='varenr' value='$varenr'></td></tr>";
print "<tr><td title='" . findtekst(288, $sprog_id) . "'>" . findtekst(287, $sprog_id) . "</td><td><input class='inputbox' type='text' style='text-align:right;width:70px;' name='rabatvarenr' value='{$rabatvarenr}'></td></tr>";
print "<tr><td colspan='6'><hr></td></tr>";
print "<tr><td>" . findtekst(272, $sprog_id) . "</td>";
if ($afd_antal) {
print "<td title='" . findtekst(273, $sprog_id) . "'>" . findtekst(274, $sprog_id) . "</td>";
}
if ($moms_antal) {
print "<td title='" . findtekst(285, $sprog_id) . "'>" . findtekst(286, $sprog_id) . "</td>";
}
print "<td title='" . findtekst(275, $sprog_id) . "'>" . findtekst(276, $sprog_id) . "</td>";
print "<td title='" . findtekst(716, $sprog_id) . "'>" . findtekst(715, $sprog_id) . "</td>";
print "<td title='" . findtekst(722, $sprog_id) . "'>" . findtekst(721, $sprog_id) . "</td>";
print "<td title='" . findtekst(705, $sprog_id) . "'><!--Tekst 705-->" . findtekst(704, $sprog_id) . "<!--Tekst 704--></td>";
print "<td title='" . findtekst(707, $sprog_id) . "'><!--Tekst 707-->" . findtekst(706, $sprog_id) . "<!--Tekst 706--></td>";
print "<td title='" . findtekst(726, $sprog_id) . "'><!--Tekst 726-->" . findtekst(725, $sprog_id) . "<!--Tekst 725--></td></tr>";
for ($x = 0; $x < $kasseantal; $x++) {
print "<tr bgcolor={$bgcolor5}>";
$tmp = $x + 1;
print "<td>{$tmp}</td>";
if ($afd_antal) {
print "<td title='" . findtekst(273, $sprog_id) . "'><SELECT class='inputbox' NAME=afd_nr[{$x}] title='" . findtekst(273, $sprog_id) . "'>";
for ($y = 1; $y <= $afd_antal; $y++) {
if ($afd[$x] == $afd_nr[$y]) {
print "<option value='{$afd_nr[$y]}'>{$afd_navn[$y]}</option>";
}
}
print "<option value='0'></option>";
for ($y = 1; $y <= $afd_antal; $y++) {
if ($afd[$x] != $afd_nr[$y]) {
print "<option value='{$afd_nr[$y]}'>{$afd_navn[$y]}</option>";
}
}
-(print "</SELECT></td>");
}
if ($moms_antal) {
print "<td title='" . findtekst(273, $sprog_id) . "'><SELECT class='inputbox' NAME=moms_nr[{$x}] title='" . findtekst(273, $sprog_id) . "'>";
for ($y = 1; $y <= $moms_antal; $y++) {
if ($moms[$x] == $moms_nr[$y]) {
print "<option value='{$moms_nr[$y]}'>{$moms_navn[$y]}</option>";
}
}
print "<option value='0'></option>";
for ($y = 1; $y <= $moms_antal; $y++) {
if ($moms[$x] != $moms_nr[$y]) {
print "<option value='{$moms_nr[$y]}'>{$moms_navn[$y]}</option>";
}
}
-(print "</SELECT></td>");
}
print "<td><input class='inputbox' type='text' style='text-align:right;width:50px;' name='kassekonti[{$x}]' value='{$kassekonti[$x]}'></td>";
print "<td><input class='inputbox' type='text' style='text-align:right;width:50px;' name='mellemkonti[{$x}]' value='{$mellemkonti[$x]}'></td>";
print "<td><input class='inputbox' type='text' style='text-align:right;width:50px;' name='diffkonti[{$x}]' value='{$diffkonti[$x]}'></td>";
if (!$printer_ip[$x]) {
$printer_ip[$x] = 'localhost';
}
print "<td><input class='inputbox' type='text' style='text-align:right;width:100px;' name='printer_ip[{$x}]' value='{$printer_ip[$x]}'></td>";
print "<td align='center'><input class='inputbox' type='text' style='text-align:right;width:100px;' name='terminal_ip[{$x}]' value='{$terminal_ip[$x]}'></td>";
print "<td align='center'><input class='inputbox' type='text' style='text-align:right;width:100px;' name='koekkenprinter[{$x}]' value='{$koekkenprinter[$x]}'></td></tr>";
}
}
print "<tr><td colspan='6'><hr></td></tr>";
print "<tr><td title='" . findtekst(279, $sprog_id) . "'>" . findtekst(280, $sprog_id) . "</td><td><input class='inputbox' type='text' style='text-align:right' size='1' name='kortantal' value='{$kortantal}'></td></tr>";
if ($kortantal) {
print "<tr><td></td><td title='" . findtekst(281, $sprog_id) . "'>" . findtekst(283, $sprog_id) . "</td>";
print "<td title='" . findtekst(282, $sprog_id) . "'>" . findtekst(284, $sprog_id) . "</td>";
print "<td title='" . findtekst(711, $sprog_id) . "'>" . findtekst(710, $sprog_id) . "</td></tr>";
print "<tr><td colspan='6'></td></tr>";
for ($x = 0; $x < $kortantal; $x++) {
$betalingskort[$x] ? $betalingskort[$x] = 'checked' : ($betalingskort[$x] = NULL);
# 20131210
print "<tr bgcolor={$bgcolor5}>";
$tmp = $x + 1;
print "<td>{$tmp}</td>";
print "<td title='" . findtekst(281, $sprog_id) . "'><input class='inputbox' type='text' style='text-align:left' size='15' name='korttyper[{$x}]' value='{$korttyper[$x]}'></td>";
print "<td title='" . findtekst(282, $sprog_id) . "'><input class='inputbox' type='text' style='text-align:right' size='3' name='kortkonti[{$x}]' value='{$kortkonti[$x]}'></td>";
print "<td title='" . findtekst(711, $sprog_id) . "' align='center'><input class='inputbox' type='checkbox' style='text-align:right' name='betalingskort[{$x}]' {$betalingskort[$x]}></td></tr>";
#20131210
}
$bet_term = NULL;
for ($x = 0; $x < count($terminal_ip); $x++) {
if ($terminal_ip[$x]) {
$bet_term = 1;
}
#Så er der betalinggsterminal på min 1. kasse.
}
if ($bet_term) {
$tmp++;
print "<tr bgcolor={$bgcolor5}>";
print "<td>{$tmp}</td>";
print "<td title='" . findtekst(713, $sprog_id) . "'>" . findtekst(712, $sprog_id) . "</td>";
print "<td title='" . findtekst(713, $sprog_id) . "'><input class='inputbox' type='text' style='text-align:right' size='3' name='div_kort_kto' value='{$div_kort_kto}'></td>";
print "<td title='" . findtekst(713, $sprog_id) . "' align='center'><INPUT DISABLED='disabled' class='inputbox' type='checkbox' style='text-align:right' checked></td></tr>";
}
}
print "<tr><td colspan='6'><hr></td></tr>";
# 20140508 ->
$bordantal = count($bord);
print "<tr><td title='" . findtekst(673, $sprog_id) . "'>" . findtekst(674, $sprog_id) . "</td><td><input class='inputbox' type='text' style='text-align:right' size='1' name='bordantal' value='{$bordantal}'></td></tr>";
if ($bordantal) {
print "<tr><td></td><td title='" . findtekst(675, $sprog_id) . "'>" . findtekst(676, $sprog_id) . "</td></tr>";
print "<tr><td colspan='6'></td></tr>";
for ($x = 0; $x < $bordantal; $x++) {
print "<tr bgcolor={$bgcolor5}>";
$tmp = $x + 1;
print "<td>{$tmp}</td>";
print "<td title='" . findtekst(675, $sprog_id) . "'><input class='inputbox' type='text' style='text-align:left' size='15' name='bord[{$x}]' value='{$bord[$x]}'></td></tr>";
}
}
print "<tr><td colspan='6'><hr></td></tr>";
# <- 20140508
print "<tr><td title='" . findtekst(453, $sprog_id) . "'>" . findtekst(454, $sprog_id) . "</td><td title='" . findtekst(453, $sprog_id) . "'><input class='inputbox' type='checkbox' name='straksbogfor' {$straksbogfor}></td></tr>";
print "<tr><td title='" . findtekst(456, $sprog_id) . "'>" . findtekst(457, $sprog_id) . "</td><td title='" . findtekst(456, $sprog_id) . "'><input class='inputbox' type='checkbox' name='udskriv_bon' {$udskriv_bon}></td></tr>";
print "<tr><td title='" . findtekst(458, $sprog_id) . "'>" . findtekst(459, $sprog_id) . "</td><td title='" . findtekst(458, $sprog_id) . "'><input class='inputbox' type='checkbox' name='vis_hurtigknap' {$vis_hurtigknap}></td></tr>";
print "<tr><td title='" . findtekst(460, $sprog_id) . "'>" . findtekst(461, $sprog_id) . "</td><td title='" . findtekst(460, $sprog_id) . "'><input class='inputbox' type='checkbox' name='vis_kontoopslag' {$vis_kontoopslag}></td></tr>";
print "<tr><td title='" . findtekst(464, $sprog_id) . "'>" . findtekst(465, $sprog_id) . "</td><td title='" . findtekst(464, $sprog_id) . "'><input class='inputbox' type='checkbox' name='vis_indbetaling' {$vis_indbetaling}></td></tr>";
print "<tr><td title='" . findtekst(734, $sprog_id) . "'>" . findtekst(735, $sprog_id) . "</td><td title='" . findtekst(744, $sprog_id) . "'><input class='inputbox' type='checkbox' name='vis_saet' {$vis_saet}></td></tr>";
print "<tr><td title='" . findtekst(462, $sprog_id) . "'>" . findtekst(463, $sprog_id) . "</td><td title='" . findtekst(462, $sprog_id) . "'><input class='inputbox' type='text' style='text-align:right;width:25px' name='timeout' value='{$timeout}'></td></tr>";
print "<tr><td title='" . findtekst(701, $sprog_id) . "'>" . findtekst(700, $sprog_id) . "</td><td title='" . findtekst(701, $sprog_id) . "'><input class='inputbox' type='text' style='text-align:right;width:100px' name='kasseprimo' value='{$kasseprimo}'></td></tr>";
print "<tr><td title='" . findtekst(703, $sprog_id) . "'>" . findtekst(702, $sprog_id) . "</td><td title='" . findtekst(703, $sprog_id) . "'><input class='inputbox' type='checkbox' name='optalassist' {$optalassist}></td></tr>";
print "<tr><td><br></td></tr>";
print "<tr><td><br></td></tr>";
print "<td><br></td><td><br></td><td><br></td><td align = center><input type=submit accesskey='g' value='Gem/opdatér' name='submit'></td>";
print "</form>";
print "<tr><td><a href=posmenuer.php>Klik her for at oprette / rette genvejstaster på kassesiden</a></td></tr>";
}
