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