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; }
$bynavn = db_escape_string(trim($_POST['bynavn'])); $tlf = db_escape_string(trim($_POST['tlf'])); $fax = db_escape_string(trim($_POST['fax'])); $mobil = db_escape_string(trim($_POST['mobil'])); $privattlf = db_escape_string(trim($_POST['privattlf'])); $email = db_escape_string(trim($_POST['email'])); $cprnr = db_escape_string(trim($_POST['cprnr'])); $notes = db_escape_string(trim($_POST['notes'])); $bank = db_escape_string(trim($_POST['bank'])); $loen = usdecimal($_POST['loen']); $extraloen = usdecimal($_POST['extraloen']); $lukket = trim($_POST['lukket']); $startdato = db_escape_string(trim($_POST['startdato'])); $slutdato = db_escape_string(trim($_POST['slutdato'])); $startdato ? $startdate = usdate($startdato) : ($startdate = NULL); $slutdato ? $slutdate = usdate($slutdato) : ($sluttdate = NULL); $trainee = trim($_POST['trainee']); list($afd, $x) = explode(":", $_POST['afd']); $afd = $afd * 1; $returside = $_POST['returside']; $fokus = $_POST['fokus']; $provision = $_POST['provision']; $provision_id = $_POST['provision_id']; $gruppe_id = $_POST['gruppe_id']; $pro_antal = $_POST['pro_antal']; if (!is_numeric($nummer) && $id) { #20140923 $messages = "Skal være et tal"; } elseif ($id && ($r = db_fetch_array(db_select("SELECT id FROM ansatte WHERE nummer='{$nummer}' AND id != '{$id}'", __FILE__ . " linje " . __LINE__)))) { $messages = "Medarbejdernummer eksisterer i forvejen "; } else {
$gl_logintekst = if_isset($_POST['gl_logintekst']); $logintekst = if_isset($_POST['logintekst']); for ($x = 1; $x <= $db_antal; $x++) { # if (!isset($gl_lukket[$x])) echo "HMM"; if (!isset($lukket[$x])) { $lukket[$x] = NULL; } if (!$lukkes[$x]) { $lukkes[$x] = "2099-12-31"; } else { $lukkes[$x] = usdate($lukkes[$x]); } if (!$betalt_til[$x]) { $betalt_til[$x] = "2099-12-31"; } else { $betalt_til[$x] = usdate($betalt_til[$x]); } if ($gl_brugerantal[$x] != $brugerantal[$x] || $gl_posteringer[$x] != $posteringer[$x] || $gl_lukket[$x] != $lukket[$x] || $gl_lukkes[$x] != $lukkes[$x] || $gl_betalt_til[$x] != $betalt_til[$x] || $gl_logintekst[$x] != $logintekst[$x]) { if ($saldiregnskab) { $modify = "update regnskab set brugerantal='{$brugerantal[$x]}',posteringer='{$posteringer[$x]}',lukket='{$lukket[$x]}',lukkes='{$lukkes[$x]}',betalt_til='{$betalt_til[$x]}',logintekst='{$logintekst[$x]}' where id = '{$id[$x]}'"; } else { $modify = "update regnskab set\tbrugerantal='{$brugerantal[$x]}',posteringer='{$posteringer[$x]}',lukket='{$lukket[$x]}'where id = '{$id[$x]}'"; } if ($id[$x]) { db_modify($modify, __FILE__ . " linje " . __LINE__); } } } } print "<table width=\"100%\" height=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\"><tbody>"; print "<tr><td align=\"center\" valign=\"top\" height=\"25\">";
$ny_beholdning[0] = if_isset($_GET['ny_beholdning']); if (isset($_POST['cancel'])) { $id = if_isset($_POST['id']); print "<meta http-equiv=\"refresh\" content=\"0;URL=varekort.php?id={$id['0']}\">"; exit; } if ($_POST['bilag'] || $_POST['bilag'] == '0') { $id = if_isset($_POST['id']); $ny_beholdning = if_isset($_POST['ny_beholdning']); $dato = if_isset($_POST['dato']); $bilag = if_isset($_POST['bilag']); if (!is_numeric($bilag) || strlen($bilag) > 9) { print "<BODY onLoad=\"javascript:alert('Bilagsnummer skal være et positivt tal og må maks indeholder 9 cifre')\">"; $fejl = 1; } $transdate = usdate($dato); list($y, $m, $d) = explode("-", $transdate); $ym = $y . $m; if (checkdate($m, $d, $y)) { if ($ym < $aarstart || $ym > $aarslut) { print "<BODY onLoad=\"javascript:alert('Dato udenfor regnskabsår')\">"; $fejl = 1; } } else { print "<BODY onLoad=\"javascript:alert('Dato skal være i formatet 'dd-mm-yyyy')\">"; $fejl = 1; } } if ($antal >= 1) { $r = db_fetch_array(db_select("select * from grupper where kodenr='{$regnaar}' and art='RA'", __FILE__ . " linje " . __LINE__)); $startaar = $r['box2'] * 1;
function vis_aabne_poster($dato_fra, $dato_til, $konto_fra, $konto_til, $art) { global $bgcolor; global $bgcolor5; print "<tr><td><table width=100% cellpadding=\"0\" cellspacing=\"0\" border=\"0\"><tbody>\n"; print "<tr><td>Kontonr</td><td>Firmanavn</td><td align=right>>90</td><td align=right>60-90</td><td align=right>30-60</td><td align=right>8-30</td><td align=right>0-8</td><td align=right>I alt</td><tr>"; $currentdate = date("Y-m-d"); $fromdate = usdate($dato_fra); $todate = usdate($dato_til); # echo "SS $fromdate $todate KF $konto_fra<br>"; /* # Finder start og s**t paa regnskabsaar for ($x=1; $x<=12; $x++) { if ($maaned_fra==$md[$x]){$maaned_fra=$x;} if ($maaned_til==$md[$x]){$maaned_til=$x;} } $query = db_select("select * from grupper where kodenr='$regnaar' and art='RA'",__FILE__ . " linje " . __LINE__); $row = db_fetch_array($query); # $regnaar=$row[kodenr]; $startmaaned=$row['box1']*1; $startaar=$row['box2']*1; $slutmaaned=$row['box3']*1; $slutaar=$row['box4']*1; $slutdato=31; ## if ($maaned_fra) $startmaaned=$maaned_fra; if ($maaned_til) $slutmaaned=$maaned_til; if (!is_numeric($startmaaned)) { if (strstr($startmaaned," ")) list($tmp,$startmaaned)=explode(" ",$startmaaned); if (!is_numeric($startmaaned)) list ($tmp,$startmaaned)=explode(" ",find_maaned_nr($startmaaned)); } if (!is_numeric($slutmaaned)) { if (strstr($slutmaaned," ")) list($tmp,$slutmaaned)=explode(" ",$slutmaaned); if (!is_numeric($slutmaaned)) list ($tmp,$slutmaaned)=explode(" ",find_maaned_nr($slutmaaned)); } while (!checkdate($slutmaaned,$slutdato,$slutaar)) { $slutdato=$slutdato-1; if ($slutdato<28) break; } # if ($slutmaaned<10){$slutmaaned="0".$slutmaaned;} $regnstart = $startaar. "-" . $startmaaned . "-" . '01'; $regnslut = $slutaar . "-" . $slutmaaned . "-" . $slutdato; */ #$regnslut = "2005-05-04"; print "<form name=aabenpost action=rapport.php method=post>"; print "<tr><td colspan=10><hr></td></tr>\n"; $x = 0; # echo "KF $konto_fra<br>"; if (is_numeric($konto_fra) && is_numeric($konto_til)) { $tekst = "select * from adresser where " . nr_cast('kontonr') . ">='{$konto_fra}' and " . nr_cast('kontonr') . "<='{$konto_til}' and art = 'D' order by " . nr_cast('kontonr') . ""; } elseif ($konto_fra && $konto_fra != '*') { $konto_fra = str_replace("*", "%", $konto_fra); $tmp1 = strtolower($konto_fra); $tmp2 = strtoupper($konto_fra); $tekst = "select * from adresser where (firmanavn like '{$konto_fra}' or lower(firmanavn) like '{$tmp1}' or upper(firmanavn) like '{$tmp2}') and art = 'D' order by firmanavn"; } else { $tekst = "select * from adresser where art = '{$art}' order by firmanavn"; } # echo "tekst $tekst<br>"; $kontonr = array(); $x = 0; $q = db_select("{$tekst}", __FILE__ . " linje " . __LINE__); # if ($konto_fra && $konto_til) $tmp=nr_cast('kontonr').">='$konto_fra' and ".nr_cast('kontonr')."<='$konto_til' and "; # elseif ($konto_fra) $tmp=nr_cast('kontonr').">='$konto_fra' and "; # elseif ($konto_til) $tmp=nr_cast('kontonr')."<='$konto_til'and "; # else $tmp=""; # $q = db_select("select * from adresser where $tmp art = '$art' order by firmanavn",__FILE__ . " linje " . __LINE__); while ($r = db_fetch_array($q)) { $x++; $konto_id[$x] = $r['id']; print "<input type=hidden name=konto_id[{$x}] value={$konto_id[$x]}>"; $kontonr[$x] = trim($r['kontonr']); $firmanavn[$x] = stripslashes($r['firmanavn']); $addr1[$x] = stripslashes($r['addr1']); $addr2[$x] = stripslashes($r['addr2']); $postnr[$x] = trim($r['postnr']); $bynavn[$x] = stripslashes($r['bynavn']); $email[$x] = trim($r['email']); $betalingsbet[$x] = trim($r['betalingsbet']); $betalingsdage[$x] = trim($r['betalingsdage']); } $kontoantal = $x; $sum = 0; for ($x = 1; $x <= $kontoantal; $x++) { $amount = 0; $udlignet = 1; $rykkerbelob = 0; $forfalden = 0; $forfalden_plus8 = 0; $forfalden_plus30 = 0; $forfalden_plus60 = 0; $forfalden_plus90 = 0; $y = 0; $faktnr = array(); $f = 0; if ($art == 'D') { $tmp = ""; } else { $tmp = "desc"; } # if ($fromdate && $todate) $q=db_select("select * from openpost where transdate>='$fromdate' and transdate<='$todate' and konto_id='$konto_id[$x]'",__FILE__ . " linje " . __LINE__); # elseif ($todate) $q=db_select("select * from openpost where transdate<='$todate' and konto_id='$konto_id[$x]'",__FILE__ . " linje " . __LINE__); # else $q=db_select("select * from openpost where konto_id='$konto_id[$x]'",__FILE__ . " linje " . __LINE__); # if ($fromdate && $todate) $tekst="select * from openpost where transdate>='$fromdate' and transdate<='$todate' and konto_id='$konto_id[$x]' order by faktnr,amount $tmp"; if ($todate) { $tekst = "select * from openpost where transdate<='{$todate}' and konto_id='{$konto_id[$x]}' order by faktnr,amount {$tmp}"; } else { $tekst = "select * from openpost where konto_id='{$konto_id[$x]}' order by faktnr,amount {$tmp}"; } $q = db_select("{$tekst}", __FILE__ . " linje " . __LINE__); # if ($regnaar) $q=db_select("select * from openpost where konto_id=$id[$x] and transdate <= '$regnslut' order by faktnr,amount $tmp",__FILE__ . " linje " . __LINE__); # else $q=db_select("select * from openpost where konto_id=$id[$x] and udlignet!='1' order by faktnr,amount $tmp",__FILE__ . " linje " . __LINE__); while ($r = db_fetch_array($q)) { if ($r['udlignet'] != 1 || $r['transdate'] <= $todate && $r['udlign_date'] && $r['udlign_date'] > $todate) { if ($r['faktnr'] && !in_array($r['faktnr'], $faktnr)) { $f++; $faktnr[$f] = $r['faktnr']; $forfaldsdag = $r['forfaldsdate']; } elseif (!$r['faktnr']) { $forfaldsdag = $r['transdate']; } $oid = $r['id']; $transdate = $r['transdate']; if ($r['valuta']) { $valuta = $r['valuta']; } else { $valuta = 'DKK'; } if ($r['valutakurs']) { $valutakurs = $r['valutakurs']; } else { $valutakurs = 100; } $udlignet = "0"; $amount = $r['amount']; if ($amount > 0) { $amount += 0.0001; } else { $amount -= 0.0001; } if (!$forfaldsdag && $art == 'D' && $amount < 0) { $forfaldsdag = $r['transdate']; } elseif (!$forfaldsdag && $art == 'K' && $amount > 0) { $forfaldsdag = $r['transdate']; } elseif (!$forfaldsdag) { $forfaldsdag = $r['forfaldsdate']; } if ($r['faktnr'] && !$r['kladde_id'] && ($amount > 0 || $amount < 0 && strstr($r['beskrivelse'], "Lev. fakt")) && $r['refnr'] > 1) { #rettet 20090715 if ($r2 = db_fetch_array(db_select("select betalingsbet, betalingsdage from ordrer where id='{$r['refnr']}' and fakturanr = '{$r['faktnr']}'", __FILE__ . " linje " . __LINE__))) { $betalingsbet[$x] = trim($r2['betalingsbet']); $betalingsdage[$x] = trim($r2['betalingsdage']); $tmp = usdate(forfaldsdag($transdate, $betalingsbet[$x], $betalingsdage[$x])); if ($tmp != $forfaldsdag) { $forfaldsdag = $tmp; db_modify("update openpost set forfaldsdate = '{$forfaldsdag}' where id='{$oid}'", __FILE__ . " linje " . __LINE__); } } } #elseif () $amount = $amount * $valutakurs / 100; if ($amount > 0) { $amount = round($amount + 0.0001, 2); } else { $amount = round($amount - 0.0001, 2); } ### nedenstående er indført grundet en fejl i 2.0.3 som skrev forkert forfaldsdato i openpost og fjernet i 2.0.8. # $tmp=usdate(forfaldsdag($transdate, $betalingsbet[$x], $betalingsdage[$x])); # if ($tmp && !$forfaldsdag) db_modify("update openpost set forfaldsdate='$tmp' where id='$oid'",__FILE__ . " linje " . __LINE__); # $forfaldsdag=$tmp; ################ $fakt_utid = strtotime($transdate); $forf_utid = strtotime($forfaldsdag); $dage = round(($forf_utid - $fakt_utid) / 86400, 0); $forfaldsdag_plus8 = usdate(forfaldsdag($transdate, 'netto', $dage + 8)); $forfaldsdag_plus30 = usdate(forfaldsdag($transdate, 'netto', $dage + 30)); $forfaldsdag_plus60 = usdate(forfaldsdag($transdate, 'netto', $dage + 60)); $forfaldsdag_plus90 = usdate(forfaldsdag($transdate, 'netto', $dage + 90)); if ($forfaldsdag < $currentdate) { $rykkerbelob = $rykkerbelob + $amount; } if ($forfaldsdag < $currentdate && $forfaldsdag_plus8 > $currentdate) { $forfalden = $forfalden + $amount; } if ($forfaldsdag_plus8 <= $currentdate && $forfaldsdag_plus30 > $currentdate) { $forfalden_plus8 = $forfalden_plus8 + $amount; } if ($forfaldsdag_plus30 <= $currentdate && $forfaldsdag_plus60 > $currentdate) { $forfalden_plus30 = $forfalden_plus30 + $amount; } if ($forfaldsdag_plus60 <= $currentdate && $forfaldsdag_plus90 > $currentdate) { $forfalden_plus60 = $forfalden_plus60 + $amount; } if ($forfaldsdag_plus90 <= $currentdate) { $forfalden_plus90 = $forfalden_plus90 + $amount; } $y = $y + $amount; } } $y > 0 ? $y = round($y + 0.0001, 2) : ($y = round($y - 0.0001, 2)); if ($y > 0.01 || $udlignet == "0") { if ($linjebg != $bgcolor) { $linjebg = $bgcolor; $color = '#000000'; } elseif ($linjebg != $bgcolor5) { $linjebg = $bgcolor5; $color = '#000000'; } $forfaldsum = $forfaldsum + $forfalden; $forfaldsum_plus8 = $forfaldsum_plus8 + $forfalden_plus8; $forfaldsum_plus30 = $forfaldsum_plus30 + $forfalden_plus30; $forfaldsum_plus60 = $forfaldsum_plus60 + $forfalden_plus60; $forfaldsum_plus90 = $forfaldsum_plus90 + $forfalden_plus90; $sum = $sum + $y; print "<tr bgcolor=\"{$linjebg}\">"; if ($popup) { print "<td onClick=\"window.open('rapport.php?rapportart=kontokort&dato_fra={$dato_fra}&dato_til={$dato_til}&konto_fra={$kontonr[$x]}&konto_til={$kontonr[$x]}&submit=ok','kreditorrapport','{$jsvars}')\" onMouseOver=\"this.style.cursor = 'pointer'\"><a>"; } else { print "<td><a href=rapport.php?rapportart=kontokort&kilde=openpost&kto_fra={$konto_fra}&kilde_kto_til={$konto_til}&dato_fra={$dato_fra}&dato_til={$dato_til}&konto_fra={$kontonr[$x]}&konto_til={$kontonr[$x]}&submit=ok>"; } print "<span title='Klik for detaljer' style=\"text-decoration: underline;\">{$kontonr[$x]}</span></a></td>"; print "<td>{$firmanavn[$x]}</td>"; /* if ($forfalden_plus90 != 0) $color="rgb(255, 0, 0)"; else $color="rgb(0, 0, 0)"; $tmp=dkdecimal($forfalden_plus90); print "<td align=right><span style='color: $color;'>$tmp</span></td>"; if ($forfalden_plus60 != 0) $color="rgb(255, 0, 0)"; else $color="rgb(0, 0, 0)"; $tmp=dkdecimal($forfalden_plus60); print "<td align=right><span style='color: $color;'>$tmp</span></td>"; if ($forfalden_plus60 != 0) $color="rgb(255, 0, 0)"; else $color="rgb(0, 0, 0)"; $tmp=dkdecimal($forfalden_plus30); print "<td align=right><span style='color: $color;'>$tmp</span></td>"; if ($forfalden_plus30 != 0) $color="rgb(255, 0, 0)"; else $color="rgb(0, 0, 0)"; $tmp=dkdecimal($forfalden_plus8); print "<td align=right><span style='color: $color;'>$tmp</span></td>"; if ($forfalden != 0) $color="rgb(255, 0, 0)"; else $color="rgb(0, 0, 0)"; $tmp=dkdecimal($forfalden); */ if ($art == 'D' && $forfalden_plus90 > 0 || $art == 'K' && $forfalden_plus90 < 0) { $color = "rgb(255, 0, 0)"; } else { $color = "rgb(0, 0, 0)"; } $tmp = dkdecimal($forfalden_plus90); print "<td align=right><span style='color: {$color};'>{$tmp}</span></td>"; if ($art == 'D' && $forfalden_plus60 > 0 || $art == 'K' && $forfalden_plus60 < 0) { $color = "rgb(255, 0, 0)"; } else { $color = "rgb(0, 0, 0)"; } $tmp = dkdecimal($forfalden_plus60); print "<td align=right><span style='color: {$color};'>{$tmp}</span></td>"; if ($art == 'D' && $forfalden_plus30 > 0 || $art == 'K' && $forfalden_plus30 < 0) { $color = "rgb(255, 0, 0)"; } else { $color = "rgb(0, 0, 0)"; } $tmp = dkdecimal($forfalden_plus30); print "<td align=right><span style='color: {$color};'>{$tmp}</span></td>"; if ($art == 'D' && $forfalden_plus8 > 0 || $art == 'K' && $forfalden_plus8 < 0) { $color = "rgb(255, 0, 0)"; } else { $color = "rgb(0, 0, 0)"; } $tmp = dkdecimal($forfalden_plus8); print "<td align=right><span style='color: {$color};'>{$tmp}</span></td>"; if ($art == 'D' && $forfalden > 0 || $art == 'K' && $forfalden < 0) { $color = "rgb(255, 0, 0)"; } else { $color = "rgb(0, 0, 0)"; } $tmp = dkdecimal($forfalden); print "<td align=right><span style='color: {$color};'>{$tmp}</span></td>"; $tmp = dkdecimal($y); if (abs($y) < 0.01) { print "<td align=right title=\"Klik her for at udligne åbne poster\"><a href=\"rapport.php?submit=ok&rapportart=openpost&dato_fra={$dato_fra}&dato_til={$dato_til}&konto_fra={$konto_fra}&konto_til={$konto_til}&udlign={$konto_id[$x]}\">{$tmp}</a></td>"; } else { print "<td align=right>{$tmp}</td>"; } if ($kontoudtog[$x] == 'on' && $art == "D") { print "<td align=center><input type=checkbox name=kontoudtog[{$x}] checked>"; } elseif ($art == "D") { print "<td align=center><input type=checkbox name=kontoudtog[{$x}]>"; } print "</tr>\n"; } print "<input type=hidden name=rykkerbelob[{$x}] value={$rykkerbelob}>"; } print "<tr><td colspan=10><hr></td></tr>\n"; print "<tr><td><br></td><td>I alt</td>"; if ($forfaldsum_plus90 != 0) { $color = "rgb(255, 0, 0)"; } else { $color = "rgb(0, 0, 0)"; } $tmp = dkdecimal($forfaldsum_plus90); print "<td align=right><span style='color: {$color};'>{$tmp}</span></td>"; if ($forfaldsum_plus60 != 0) { $color = "rgb(255, 0, 0)"; } else { $color = "rgb(0, 0, 0)"; } $tmp = dkdecimal($forfaldsum_plus60); print "<td align=right><span style='color: {$color};'>{$tmp}</span></td>"; if ($forfaldsum_plus60 != 0) { $color = "rgb(255, 0, 0)"; } else { $color = "rgb(0, 0, 0)"; } $tmp = dkdecimal($forfaldsum_plus30); print "<td align=right><span style='color: {$color};'>{$tmp}</span></td>"; if ($forfaldsum_plus30 != 0) { $color = "rgb(255, 0, 0)"; } else { $color = "rgb(0, 0, 0)"; } $tmp = dkdecimal($forfaldsum_plus8); print "<td align=right><span style='color: {$color};'>{$tmp}</span></td>"; if ($forfaldsum != 0) { $color = "rgb(255, 0, 0)"; } else { $color = "rgb(0, 0, 0)"; } $tmp = dkdecimal($forfaldsum); print "<td align=right><span style='color: {$color};'>{$tmp}</span></td>"; $color = "rgb(0, 0, 0)"; $tmp = dkdecimal($sum); print "<td align=right><span style='color: {$color};'>{$tmp}</span></td>"; print "<input type=hidden name=rapportart value=\"openpost\">"; print "<input type=hidden name=regnaar value={$regnaar}>"; print "<input type=hidden name=dato_fra value={$dato_fra}>"; print "<input type=hidden name=dato_til value={$dato_til}>"; print "<input type=hidden name=konto_fra value={$konto_fra}>"; print "<input type=hidden name=konto_til value={$konto_til}>"; print "<input type=hidden name=kontoantal value={$kontoantal}>"; if ($art == 'D') { print "<tr><td colspan=10 align=center><span title=\"Klik her for at maile kontoudtog til de modtagere som er afmærket herover\"><input type=submit value=\"Mail kontoudtog\" name=\"submit\"></span> \n\t\t<span title='Klik her for at oprette rykker til de som er afmærkede herover'><input type=submit value=\"Opret rykker\" name=\"submit\"></span> \n\t\t<span onmouseover=\"return overlib('" . findtekst(242, $sprog_id) . "', WIDTH=800);\" onmouseout=\"return nd();\"><input type=submit value=\"Ryk alle\" name=\"submit\"></span></td></tr>\n"; } print "</form>\n"; print "<tr><td colspan=10><hr></td></tr>\n"; print "</tbody></table>"; }
function 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; }
function bogfor_nu($id, $kilde) { include "../includes/genberegn.php"; include "../includes/forfaldsdag.php"; global $db; global $regnaar; global $valuta; global $valutakurs; global $difkto; global $title; $kilde == 'on' ? $webservice = 'on' : ($webservice = NULL); /* $r = db_fetch_array(db_select("select box7 from grupper where art = 'DIV' and kodenr = '3'",__FILE__ . " linje " . __LINE__)); $tjek_lagerdiff=$r['box7']; if ($tjek_lagerdiff) { include("../includes/genberegn.php"); include("../includes/lagervaerdi.php"); $pre_stockvalue=lagervaerdi($regnaar); $pre_finans=finanslager($regnaar); $pre_lagerdiff=$pre_finans-$pre_stockvalue; #cho "$pre_lagerdiff=$pre_finans-$pre_stockvalue<br>"; } */ # print "<table><tbody>"; $svar = "OK"; $regnaar = $regnaar * 1; #20130820 --> $x = 0; if ($webservice) { $qtxt = "select distinct(kontonr) as kontonr from kontoplan where (kontotype='D' or kontotype='S')"; } else { $qtxt = "select kontonr from kontoplan where regnskabsaar='{$regnaar}' and (kontotype='D' or kontotype='S')"; } $q = db_select($qtxt, __FILE__ . " linje " . __LINE__); while ($r = db_fetch_array($q)) { $kontoplan[$x] = $r['kontonr']; $x++; } # <-- 20130820 # $fp=fopen("../temp/bogfor_nu.log","w"); # $linje="select * from ordrer where id = $id"; # fwrite($fp,$qtxt."\n"); $d_kontrol = 0; $k_kontrol = 0; $logdate = date("Y-m-d"); $logtime = date("H:i"); $uxtid = date("U"); $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(); $idliste = array(); if (is_numeric($id)) { $tmp = "id = '" . $id . "'"; } else { $idliste = explode(",", $id); $antal = count($idliste); #cho " id er array<br>"; $tmp = "(id = '" . $idliste[0] . "'"; for ($x = 1; $x < $antal; $x++) { $tmp .= " or id = '" . $idliste[$x] . "'"; } $tmp .= ")"; } $x = 0; $moms = 0; $sum = 0; $modtaget = 0; $modtaget2 = 0; $betaling = array(); #20150518 (Denne og de to næste er flyttet fra "over select * from pos_betalinger") $modtaget = array(); #20150518 $bnr = -1; #20150518 #cho "select * from ordrer where $tmp<br>"; $q = db_select("select * from ordrer where {$tmp}", __FILE__ . " linje " . __LINE__); while ($r = db_fetch_array($q)) { #cho "Sum $r[sum] $r[moms]<br>"; $art = $r['art']; if ($kilde == 'Dagsafslutning') { $art = 'PO'; } $ordre_id = $r['id']; #20120905 $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']; $momssats = $r['momssats'] * 1; #cho "$firmanavn | $ordrenr<br>"; $valuta = $r['valuta']; $kred_ord_id = $r['kred_ord_id']; if (!$valuta) { $valuta = 'DKK'; } $projekt[0] = $r['projekt']; $betalingsbet = $r['betalingsbet']; $betalingsdage = $r['betalingsdage'] * 1; $betalt = $r['betalt'] * 1; /* if ($art=='PO') { $betaling=$r['felt_1']; $modtaget+=$r['felt_2']; $betaling2=$r['felt_3']; $modtaget2+=$r['felt_4']; $kasse=$r['felt_5']*1; if ($betalingsbet=='Kontant') { $konto_id=0; $kontonr=NULL; } } else $kasse=0; */ if ($art == 'PO') { #20150505 $qtxt = "select * from pos_betalinger where ordre_id='{$ordre_id}' order by betalingstype"; $q2 = db_select($qtxt, __FILE__ . " linje " . __LINE__); while ($r2 = db_fetch_array($q2)) { # for ($c=0;$c<count($betaling);$c++) echo "$bnr | $c | $bnretaling[$c]==$r2[betalingstype] | $r2[amount]<br>"; if (in_array($r2['betalingstype'], $betaling)) { #cho __line__."<br>"; for ($c = 0; $c < count($betaling); $c++) { if ($betaling[$c] == $r2['betalingstype']) { $modtaget[$c] += $r2['amount']; #cho "B $betaling[$c]==$r2[betalingstype] --> $modtaget[$c] -- $r2[amount]<br>"; } } } else { $bnr++; $betaling[$bnr] = $r2['betalingstype']; $modtaget[$bnr] = $r2['amount']; } } $kasse = $r['felt_5'] * 1; if ($betalingsbet == 'Kontant') { $konto_id = 0; $kontonr = NULL; } } else { $kasse = 0; } # $refnr; if ($momssats) { $moms += $r['moms'] * 1; } # else {$moms=afrund($r['sum']*$r['momssats']/100,2);} $sum += $r['sum'] + $r['moms']; $ordreantal = $x; $forfaldsdate = usdate(forfaldsdag($r['fakturadate'], $betalingsbet, $betalingsdage)); if ($art == 'PO') { $r2 = db_fetch_array(db_select("select id, afd from ansatte where initialer = '{$r['ref']}'", __FILE__ . " linje " . __LINE__)); } else { $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 ($sum) { /* if ($art=='PO' && $betalt >= $sum) { $kontonr=0; $konto_id=0; } */ if ($art != 'PO') { $r = db_fetch_array(db_select("select gruppe from adresser where id='{$konto_id}'", __FILE__ . " linje " . __LINE__)); $debitorgruppe = $r['gruppe']; $r = db_fetch_array(db_select("select box1 from grupper where art='DG' and kodenr='{$debitorgruppe}'", __FILE__ . " linje " . __LINE__)); $momskode = substr(trim($r['box1']), 1, 1); if ($moms && !$momskode) { return "Debitorgruppe {$debitorgruppe} ikke tilnkyttet en momsgruppe"; } } else { #saa er det en kontantordre # global $kasse; # global $betaling; # global $betaling2; # global $modtaget; # global $modtaget2; $tmparray = array(); $r = db_fetch_array(db_select("select * from grupper where art = 'POS' and kodenr = '1'", __FILE__ . " linje " . __LINE__)); $tmparray = explode(chr(9), $r['box7']); $momskode = $tmparray[$kasse - 1]; if ($moms && !$momskode) { return "Fejl i momskode for kasse {$kasse}!"; } } if (!is_numeric($id) || $betalingsbet == "Kontant" || $betalingsbet == "Kreditkort" || $betalingsbet == "Forud" && $art == 'PO') { #20130820+20150306 $tmp = NULL; $openpost = NULL; $r = db_fetch_array(db_select("select * from grupper where art = 'DIV' and kodenr = '3'", __FILE__ . " linje " . __LINE__)); #cho "select * from grupper where art = 'DIV' and kodenr = '3'<br>"; if ($betalingsbet == "Kontant") { $tmp = $r['box7']; } elseif ($betalingsbet == "Kreditkort") { $tmp = $r['box10']; } #cho "tmp $tmp<br>"; if ($tmp) { if (in_array($tmp, $kontoplan)) { $openpost = NULL; $kontonr = $tmp; } else { $tekst = "Kontonummer for {$betalingsbet} er ikke gyldigt\\nTjek Indstillinger > Diverse >Ordrerelaterede valg"; return $tekst; } } else { $openpost = 1; } } elseif ($art == 'PO' && !$kontonr) { $openpost = NULL; } else { $openpost = 1; } if (substr($art, 1, 1) == 'K' && $openpost && $kred_ord_id) { $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 ($r2 = 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__))) { $transdate > $r2['transdate'] ? $udlign_date = $transdate : ($udlign_date = $r2['transdate']); $r2 = db_fetch_array(db_select("select max(udlign_id) as udlign_id from openpost", __FILE__ . " linje " . __LINE__)); $udlign_id = $r2['udlign_id'] + 1; db_modify("update openpost set udlignet='1',udlign_date='{$udlign_date}',udlign_id='{$udlign_id}' where konto_id='{$konto_id}' and amount='{$tmp}' and faktnr='{$r['fakturanr']}' and transdate='{$r['fakturadate']}'", __FILE__ . " linje " . __LINE__); $udlign = 1; } } elseif ($art == 'PO') { is_numeric($id) ? $beskrivelse = "Bon - " . $fakturanr : ($beskrivelse = "Kontantsalg kasse - " . $kasse); if ($kilde == 'Dagsafslutning') { $beskrivelse = $kilde . " - kassenr: " . $kasse; } } elseif ($openpost) { $beskrivelse = "Faktura - " . $fakturanr; } elseif ($betalingsbet == "Kontant") { $beskrivelse = "Kontantsalg: Faktura - " . $fakturanr; } else { $beskrivelse = "Kreditkort salg: Faktura - " . $fakturanr; } # 20120905 - Indsat grundet dobbelt bogforing af ordre id 4207 i regnskab saldi_510 #cho "select id from transaktioner where ordre_id='$ordre_id'<br>"; if ($r = db_fetch_array(db_select("select id,ordre_id from transaktioner where ordre_id='{$ordre_id}'", __FILE__ . " linje " . __LINE__))) { $tekst = "Bogføring afbrudt - tjek kontrolspor (id {$r['id']} oid {$r['ordre_id']})"; print "<BODY onLoad=\"javascript:alert('{$tekst}')\">"; return $tekst; } if ($kontonr && $openpost) { $tmp = $sum; if (db_fetch_array(db_select("select id from openpost where konto_id='{$konto_id}' and konto_nr='{$kontonr}' and faktnr='{$fakturanr}' and amount='{$tmp}' and beskrivelse='{$beskrivelse}' and udlignet='{$udlign}' and transdate='{$transdate}' and kladde_id='{$udlign}' and refnr='{$id}' and valuta='{$valuta}' and valutakurs='{$valutakurs}' and forfaldsdate='{$forfaldsdate}'", __FILE__ . " linje " . __LINE__))) { $tekst = "Bogføring afbrudt - tjek kontrolspor"; print "<BODY onLoad=\"javascript:alert('{$tekst}')\">"; return $tekst; } if ($udlign && $udlign_id && $udlign_date) { db_modify("insert into openpost (konto_id,konto_nr,faktnr,amount,beskrivelse,udlignet,udlign_id,udlign_date,transdate,uxtid,kladde_id,refnr,valuta,valutakurs,forfaldsdate,projekt) values ('{$konto_id}','{$kontonr}','{$fakturanr}','{$tmp}','{$beskrivelse}','{$udlign}','{$udlign_id}','{$udlign_date}','{$transdate}','{$uxtid}','{$udlign}','{$id}','{$valuta}','{$valutakurs}','{$forfaldsdate}','{$projekt['0']}')", __FILE__ . " linje " . __LINE__); } else { db_modify("insert into openpost (konto_id,konto_nr,faktnr,amount,beskrivelse,udlignet,transdate,uxtid,kladde_id,refnr,valuta,valutakurs,forfaldsdate,projekt) values ('{$konto_id}','{$kontonr}','{$fakturanr}','{$tmp}','{$beskrivelse}','{$udlign}','{$transdate}','{$uxtid}','{$udlign}','{$id}','{$valuta}','{$valutakurs}','{$forfaldsdate}','{$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']; $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}')\">"; } } if (!in_array($kontonr, $kontoplan) && $art != 'PO') { $tekst = "Kontonummer {$kontonr} findes ikke i kontoplanen for regnskabsaar {$regnaar}"; return $tekst; exit; } if ($art == 'PO' && $sum) { #saa er det en kontantordre (POS) $retur = $sum; $tmparray = array(); $r = db_fetch_array(db_select("select box6 from grupper where art = 'POS' and kodenr = '2'", __FILE__ . " linje " . __LINE__)); $div_kort_kto = trim($r['box6']); $r = db_fetch_array(db_select("select * from grupper where art = 'POS' and kodenr = '1'", __FILE__ . " linje " . __LINE__)); if (!$konto_id) { #20140616 $tmparray = explode(chr(9), $r['box2']); $kassekto = $tmparray[$kasse - 1]; $kontonr = $kassekto; } #else $tmparray = explode(chr(9), $r['box3']); $afd = $tmparray[$kasse - 1] * 1; $tmparray = explode(chr(9), $r['box5']); $kortantal = $r['box4'] * 1; $korttyper = explode(chr(9), $r['box5']); $kortkonti = explode(chr(9), $r['box6']); $kortnavn = NULL; if ($div_kort_kto) { #20140129 for ($b = 0; $b < count($betaling); $b++) { #20150505 if (strpos($betaling[$b], "|")) { list($betaling[$b], $kortnavn) = explode("|", $betaling[$b]); } } # if (strpos($betaling2,"|")) list($betaling2,$kortnavn)=explode("|",$betaling2); $korttyper[$kortantal] = 'Betalingskort'; $kortkonti[$kortantal] = $div_kort_kto; $kortantal++; } for ($x = 0; $x < $kortantal; $x++) { #20150505 #cho __LINE__." $korttyper[$x] -->"; for ($b = 0; $b < count($betaling); $b++) { #cho __LINE__." $betaling[$b]==$korttyper[$x] -->"; #cho "$modtaget[$b]<br>"; if ($betaling[$b] == $korttyper[$x]) { $kontonr = $kortkonti[$x]; #20150507 $debet = afrund($modtaget[$b], 2); $kredit = '0'; $d_kontrol = $d_kontrol + $debet; $k_kontrol = $k_kontrol + $kredit; $retur = $retur - $modtaget[$b]; $sum = $sum - $modtaget[$b]; if ($debet) { if (is_numeric($id)) { $qtxt = "insert into transaktioner (bilag,transdate,beskrivelse,kontonr,faktura,debet,kredit,kladde_id,afd,logdate,logtime,projekt,ansat,ordre_id,kasse_nr) values ('0','{$transdate}','{$beskrivelse}','{$kortkonti[$x]}','{$fakturanr}','{$debet}','{$kredit}','0',{$afd},'{$logdate}','{$logtime}','{$projekt['0']}','{$ansat}','{$id}','{$kasse}')"; } else { $qtxt = "insert into transaktioner (bilag,transdate,beskrivelse,kontonr,faktura,debet,kredit,kladde_id,afd,logdate,logtime,projekt,ansat,ordre_id,kasse_nr) values ('0','{$transdate}','{$beskrivelse}','{$kortkonti[$x]}','0','{$debet}','{$kredit}','0',{$afd},'{$logdate}','{$logtime}','{$projekt['0']}','{$ansat}','0','{$kasse}')"; } db_modify($qtxt, __FILE__ . " linje " . __LINE__); $qtxt = "update kontoplan set saldo=saldo+'{$debet}' where kontonr='{$kortkonti[$x]}' and regnskabsaar='{$regnaar}'"; db_modify($qtxt, __FILE__ . " linje " . __LINE__); } } #xit; /* if ($betaling2==$korttyper[$x]) { $debet=afrund($modtaget2,2); $kredit='0'; $d_kontrol=$d_kontrol+$debet; $k_kontrol=$k_kontrol+$kredit; $sum=$sum-$modtaget2; if (is_numeric($id)) { $qtxt="insert into transaktioner (bilag,transdate,beskrivelse,kontonr,faktura,debet,kredit,kladde_id,afd,logdate,logtime,projekt,ansat,ordre_id,kasse_nr) values ('0','$transdate','$beskrivelse','$kortkonti[$x]','$fakturanr','$debet','$kredit','0',$afd,'$logdate','$logtime','$projekt[0]','$ansat','$id','$kasse')"; } else { $qtxt="insert into transaktioner (bilag,transdate,beskrivelse,kontonr,faktura,debet,kredit,kladde_id,afd,logdate,logtime,projekt,ansat,ordre_id,kasse_nr) values ('0','$transdate','$beskrivelse','$kortkonti[$x]','0','$debet','$kredit','0',$afd,'$logdate','$logtime','$projekt[0]','$ansat','0','$kasse')"; } db_modify($qtxt,__FILE__ . " linje " . __LINE__); $qtxt="update kontoplan set saldo=saldo+'$debet' where kontonr='$kortkonti[$x]' and regnskabsaar='$regnaar'"; db_modify($qtxt,__FILE__ . " linje " . __LINE__); } */ } } #cho __LINE__." $konto_id | $openpost -> $kontonr<br>"; if (!$konto_id) { $kontonr = $kassekto; } #20150518 (Ellers fortsætter den med at bogføre på samme kontonr) #20150521 #cho __LINE__." $konto_id-> $kontonr<br>"; } $sum = afrund($sum, 3); if ($sum) { 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); if (is_numeric($id)) { $qtxt = "insert into transaktioner (bilag,transdate,beskrivelse,kontonr,faktura,debet,kredit,kladde_id,afd,logdate,logtime,projekt,ansat,ordre_id,kasse_nr) values ('0','{$transdate}','{$beskrivelse}','{$kontonr}','{$fakturanr}','{$debet}','{$kredit}','0',{$afd},'{$logdate}','{$logtime}','{$projekt['0']}','{$ansat}','{$id}','{$kasse}')"; } else { $qtxt = "insert into transaktioner (bilag,transdate,beskrivelse,kontonr,faktura,debet,kredit,kladde_id,afd,logdate,logtime,projekt,ansat,ordre_id,kasse_nr) values ('0','{$transdate}','{$beskrivelse}','{$kontonr}','0','{$debet}','{$kredit}','0',{$afd},'{$logdate}','{$logtime}','{$projekt['0']}','{$ansat}','0','{$kasse}')"; } #cho __LINE__." $qtxt<br>"; #xit; db_modify($qtxt, __FILE__ . " linje " . __LINE__); $tmp = $debet - $kredit; $qtxt = "update kontoplan set saldo=saldo+'{$tmp}' where kontonr='{$kontonr}' and regnskabsaar='{$regnaar}'"; db_modify($qtxt, __FILE__ . " linje " . __LINE__); } if ($valutakurs) { $maxdif = 2; } #Der tillades 2 oeres afrundingsdiff $p = 0; $projektliste = ''; if (is_numeric($id)) { $tmp = "ordre_id = '" . $id . "'"; } else { $idliste = explode(",", $id); $antal = count($idliste); $tmp = "(ordre_id = '" . $idliste[0] . "'"; for ($x = 1; $x < $antal; $x++) { $tmp .= " or ordre_id = '" . $idliste[$x] . "'"; } $tmp .= ")"; } db_modify("update ordrelinjer set projekt='' where projekt is NULL and {$tmp}", __FILE__ . " linje " . __LINE__); $q = db_select("select distinct(projekt) from ordrelinjer where {$tmp} and vare_id >'0'", __FILE__ . " linje " . __LINE__); while ($r = db_fetch_array($q)) { # if(trim($r['projekt'])) { $p++; $projekt[$p] = trim($r['projekt']); $projektliste ? $projektliste .= "<br>" . $projekt[$p] : ($projektliste = $projekt[$p]); # } } $p ? $projektantal = $p : ($projektantal = 1); if ($projektliste && $openpost) { db_modify("update openpost set projekt='{$projektliste}' where id='{$openpost_id}'", __FILE__ . " linje " . __LINE__); } # for ($p=1;$p<=$projektantal;$p++) for ($t = 1; $t <= 2; $t++) { for ($p = 1; $p <= $projektantal; $p++) { $y = 0; $tjek = array(); $bogf_konto = array(); if (is_numeric($id)) { $tmp = "ordre_id = '" . $id . "'"; } else { $idliste = explode(",", $id); $antal = count($idliste); $tmp = "(ordre_id = '" . $idliste[0] . "'"; for ($x = 1; $x < $antal; $x++) { $tmp .= " or ordre_id = '" . $idliste[$x] . "'"; } $tmp .= ")"; } if ($t == 1) { $qtxt = "select * from ordrelinjer where {$tmp} and projekt='{$projekt[$p]}' and posnr>='0' order by bogf_konto"; } else { $qtxt = "select * from ordrelinjer where {$tmp} and projekt='{$projekt[$p]}' and posnr<'0' order by bogf_konto"; } #cho __LINE__."$qtxt<br>"; $q = db_select($qtxt, __FILE__ . " linje " . __LINE__); while ($r = db_fetch_array($q)) { #cho __LINE__." $y<br>"; if ($valutakurs && $valutakurs != 100) { $maxdif = $maxdif + 2; } #Og yderligere 2 pr ordrelinje. if (!in_array($r['bogf_konto'], $bogf_konto)) { $y++; $bogf_konto[$y] = $r['bogf_konto']; if ($r['rabatart'] == 'amount') { # $pris[$y]=$r['pris']*$r['antal']-($r['rabat']*$r['antal']); # remmet 20140424b $linjesum = $r['pris'] * $r['antal'] - $r['rabat'] * $r['antal']; #20140424b $r['procent'] || $r['procent'] != '' ? $pris[$y] = $linjesum * $r['procent'] / 100 : ($pris[$y] = $linjesum); #20140424b } else { # $pris[$y]=$r['pris']*$r['antal']-($r['pris']*$r['antal']*$r['rabat']/100); # remmet 20140424b $linjesum = $r['pris'] * $r['antal'] - $r['pris'] * $r['antal'] * $r['rabat'] / 100; #20140424b $r['procent'] || $r['procent'] != '' ? $pris[$y] = $linjesum * $r['procent'] / 100 : ($pris[$y] = $linjesum); #20140424b if ($art == 'PO') { $pris[$y] = afrund($pris[$y], 3); } else { $pris[$y] = afrund($pris[$y], 3); } #Afrunding tilfoejet 2009.01.26 grundet diff i ordre 98 i saldi_104 -- 2011.02.07 ændret til 2 decimaler ordre_id 1325 saldi_329 #cho "$pris[$y]<br>"; } } else { for ($a = 1; $a <= $y; $a++) { if ($bogf_konto[$a] == $r['bogf_konto']) { if ($r['rabatart'] == 'amount') { # $pris[$a]+=$r['pris']*$r['antal']-($r['rabat']*$r['antal']); # remmet 20140424b $linjesum = $r['pris'] * $r['antal'] - $r['rabat'] * $r['antal']; #20140424b } else { # $pris[$a]=$pris[$a]+($r['pris']*$r['antal']-($r['pris']*$r['antal']*$r['rabat']/100)); # remmet 20140424b $linjesum = $r['pris'] * $r['antal'] - $r['pris'] * $r['antal'] * $r['rabat'] / 100; #20140424b } $r['procent'] || $r['procent'] != '' ? $pris[$a] += $linjesum * $r['procent'] / 100 : ($pris[$a] += $linjesum); #20140424b if ($art == 'PO') { $pris[$a] = afrund($pris[$a], 3); } else { $pris[$a] = afrund($pris[$a], 3); } #Afrunding tilfoejet 2009.01.26 grundet diff i ordre 98 i saldi_104 -- 2011.02.07 ændret til 2 decimaler ordre_id 1325 saldi_329 } } } } $ordrelinjer = $y; if ($indbetaling) { $ordrelinjer = 0; } for ($y = 1; $y <= $ordrelinjer; $y++) { if ($bogf_konto[$y] && $pris[$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); if (is_numeric($id)) { $qtxt = "insert into transaktioner (bilag,transdate,beskrivelse,kontonr,faktura,debet,kredit,kladde_id,afd,logdate,logtime,projekt,ansat,ordre_id,kasse_nr) values ('0','{$transdate}','{$beskrivelse}','{$bogf_konto[$y]}','{$fakturanr}','{$debet}','{$kredit}','0','{$afd}','{$logdate}','{$logtime}','{$projekt[$p]}','{$ansat}','{$id}','{$kasse}')"; } else { $qtxt = "insert into transaktioner (bilag,transdate,beskrivelse,kontonr,faktura,debet,kredit,kladde_id,afd,logdate,logtime,projekt,ansat,ordre_id,kasse_nr) values ('0','{$transdate}','{$beskrivelse}','{$bogf_konto[$y]}','0','{$debet}','{$kredit}','0','{$afd}','{$logdate}','{$logtime}','{$projekt[$p]}','{$ansat}','0','{$kasse}')"; } #cho __LINE__."$qtxt<br>"; db_modify($qtxt, __FILE__ . " linje " . __LINE__); $tmp = $debet - $kredit; $qtxt = "update kontoplan set saldo=saldo+'{$tmp}' where kontonr='{$bogf_konto[$y]}' and regnskabsaar='{$regnaar}'"; db_modify($qtxt, __FILE__ . " linje " . __LINE__); } elseif ($pris[$y]) { $svar = "Fejl i kontoopsætning"; if (!$webservice) { print "<BODY onLoad=\"javascript:alert('{$svar}')\">"; } else { return "{$svar}"; } exit; } } } } #xit; if ($momskode) { $query = db_select("select box1 from grupper where art='SM' and kodenr='{$momskode}'", __FILE__ . " linje " . __LINE__); $row = db_fetch_array($query); if ($box1 = trim($row['box1'])) { # 20150522 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; } } $moms = afrund($moms, 2); if ($moms) { if (is_numeric($id)) { $qtxt = "insert into transaktioner (bilag,transdate,beskrivelse,kontonr,faktura,debet,kredit,kladde_id, afd, logdate, logtime, projekt, ansat, ordre_id,kasse_nr) values ('0', '{$transdate}', '{$beskrivelse}', '{$box1}', '{$fakturanr}', '{$debet}', '{$kredit}', '0', '{$afd}', '{$logdate}', '{$logtime}', '{$projekt['0']}', '{$ansat}', '{$id}','{$kasse}')"; } else { $qtxt = "insert into transaktioner (bilag, transdate, beskrivelse, kontonr, faktura, debet, kredit, kladde_id, afd, logdate, logtime, projekt, ansat, ordre_id,kasse_nr) values ('0', '{$transdate}', '{$beskrivelse}', '{$box1}', '0', '{$debet}', '{$kredit}', '0', '{$afd}', '{$logdate}', '{$logtime}', '{$projekt['0']}', '{$ansat}', '0','{$kasse}')"; } #cho __LINE__." $qtxt<br>"; db_modify($qtxt, __FILE__ . " linje " . __LINE__); $tmp = $debet - $kredit; $qtxt = "update kontoplan set saldo=saldo+'{$tmp}' where kontonr='{$box1}' and regnskabsaar='{$regnaar}'"; db_modify($qtxt, __FILE__ . " linje " . __LINE__); } $valutakurs = $valutakurs * 1; } elseif ($moms) { return "Fejl i momsopsætning"; } } if (is_numeric($id)) { $tmp = "id = '" . $id . "'"; } else { $idliste = explode(",", $id); $antal = count($idliste); $tmp = "(id = '" . $idliste[0] . "'"; for ($x = 1; $x < $antal; $x++) { $tmp .= " or id = '" . $idliste[$x] . "'"; } $tmp .= ")"; } $tidspkt = date("H:i"); db_modify("update ordrer set status='4',valutakurs='{$valutakurs}' where {$tmp}", __FILE__ . " linje " . __LINE__); if (is_numeric($id)) { $tmp = "ordre_id = '" . $id . "'"; } else { $idliste = explode(",", $id); $antal = count($idliste); $tmp = "(ordre_id = '" . $idliste[0] . "'"; for ($x = 1; $x < $antal; $x++) { $tmp .= " or ordre_id = '" . $idliste[$x] . "'"; } $tmp .= ")"; } db_modify("delete from ordrelinjer where {$tmp} 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)) { $debet = 0; $kredit = 0; if ($diff < 0) { $debet = $diff * -1; } else { $kredit = $diff; } $debet = afrund($debet, 2); $kredit = afrund($kredit, 2); #cho "$diff > maxdif $maxdif<br>"; if ($art == 'PO') { #20140628 #cho "select box1,box2 from grupper where grupper.art='OreDif'<br>"; $r = db_fetch_array(db_select("select box1,box2 from grupper where grupper.art='OreDif'", __FILE__ . " linje " . __LINE__)); $difkto = $r['box2'] * 1; $maxdif = $r['box1'] * 100; if (!db_fetch_array(db_select("select id from kontoplan where kontonr='{$difkto}' and regnskabsaar='{$regnaar}'", __FILE__ . " linje " . __LINE__))) { return "Kontonr {$difkto} (Øredifferencer) eksisterer ikke"; } $diff = 0; $q = db_select("select debet,kredit from transaktioner where beskrivelse='{$beskrivelse}' and logdate='{$logdate}' and logtime='{$logtime}' and kasse_nr='{$kasse}'", __FILE__ . " linje " . __LINE__); while ($r = db_fetch_array($q)) { $d = afrund($r['debet'], 2); $k = afrund($r['kredit'], 2); #cho "tmp $d $k<br>"; $diff += $d - $k; } if ($diff) { if ($diff < 0) { $debet = $diff * -1; } else { $kredit = $diff; } $debet = afrund($debet, 2); $kredit = afrund($kredit, 2); if (is_numeric($id)) { $qtxt = "insert into transaktioner (bilag,transdate,beskrivelse,kontonr,faktura,debet,kredit,kladde_id,afd,logdate,logtime,projekt,ansat,ordre_id,kasse_nr) values ('0','{$transdate}','{$beskrivelse}','{$difkto}','{$fakturanr}','{$debet}','{$kredit}','0','{$afd}','{$logdate}','{$logtime}','{$projekt['0']}','{$ansat}','{$id}','{$kasse}')"; } else { $qtxt = "insert into transaktioner (bilag,transdate,beskrivelse,kontonr,faktura,debet,kredit,kladde_id,afd,logdate,logtime,projekt,ansat,ordre_id,kasse_nr) values ('0','{$transdate}','{$beskrivelse}','{$difkto}','0','{$debet}','{$kredit}','0','{$afd}','{$logdate}','{$logtime}','{$projekt['0']}','{$ansat}','0','{$kasse}')"; } #cho __LINE__." $qtxt<br>"; db_modify($qtxt, __FILE__ . " linje " . __LINE__); $tmp = $debet - $kredit; db_modify("update kontoplan set saldo=saldo+'{$tmp}' where kontonr='{$difkto}' and regnskabsaar='{$regnaar}'", __FILE__ . " linje " . __LINE__); } #xit; } elseif ($valuta != 'DKK' && abs($diff) <= $maxdif) { #Der maa max vaere en afvigelse paa 1 oere pr ordrelinje m fremmed valuta; $r = db_fetch_array(db_select("select box3 as difkto from grupper where grupper.art='VK' and grupper.box1='{$valuta}'", __FILE__ . " linje " . __LINE__)); $difkto = $r['difkto'] * 1; if (!db_fetch_array(db_select("select id from kontoplan where kontonr='{$difkto}' and regnskabsaar='{$regnaar}'", __FILE__ . " linje " . __LINE__))) { return "Kontonr {$difkto} (kursdiff) eksisterer ikke"; } if (is_numeric($id)) { $qtxt = "insert into transaktioner (bilag,transdate,beskrivelse,kontonr,faktura,debet,kredit,kladde_id,afd,logdate,logtime,projekt,ansat,ordre_id,kasse_nr) values ('0','{$transdate}','{$beskrivelse}','{$difkto}','{$fakturanr}','{$debet}','{$kredit}','0','{$afd}','{$logdate}','{$logtime}','{$projekt['0']}','{$ansat}','{$id}','{$kasse}')"; } else { $qtxt = "insert into transaktioner (bilag,transdate,beskrivelse,kontonr,faktura,debet,kredit,kladde_id,afd,logdate,logtime,projekt,ansat,ordre_id,kasse_nr) values ('0','{$transdate}','{$beskrivelse}','{$difkto}','0','{$debet}','{$kredit}','0','{$afd}','{$logdate}','{$logtime}','{$projekt['0']}','{$ansat}','0','{$kasse}')"; } #cho __LINE__."$qtxt<br>"; db_modify($qtxt, __FILE__ . " linje " . __LINE__); $tmp = $debet - $kredit; db_modify("update kontoplan set saldo=saldo+'{$tmp}' where kontonr='{$difkto}' and regnskabsaar='{$regnaar}'", __FILE__ . " linje " . __LINE__); #xit; } elseif (abs($diff) < 0.05) { if ($r = db_fetch_array(db_select("select * from grupper where art = 'OreDif'", __FILE__ . " linje " . __LINE__))) { $oredifkto = $r['box2']; } else { return 'Manglende kontonummer til øredifferencer - Se indstillinger -> diverse -> ørediff'; } $r = db_fetch_array(db_select("select id from kontoplan where kontotype = 'D' and kontonr = '{$oredifkto}' and regnskabsaar='{$regnaar}'", __FILE__ . " linje " . __LINE__)); if ($r['id']) { if (is_numeric($id)) { $qtxt = "insert into transaktioner (bilag,transdate,beskrivelse,kontonr,faktura,debet,kredit,kladde_id,afd,logdate,logtime,projekt,ansat,ordre_id,kasse_nr) values ('0','{$transdate}','{$beskrivelse}','{$oredifkto}','{$fakturanr}','{$debet}','{$kredit}','0','{$afd}','{$logdate}','{$logtime}','{$projekt['0']}','{$ansat}','{$id}','{$kasse}')"; } else { $qtxt = "insert into transaktioner (bilag,transdate,beskrivelse,kontonr,faktura,debet,kredit,kladde_id,afd,logdate,logtime,projekt,ansat,ordre_id,kasse_nr) values ('0','{$transdate}','{$beskrivelse}','{$oredifkto}','0','{$debet}','{$kredit}','0','{$afd}','{$logdate}','{$logtime}','{$projekt['0']}','{$ansat}','0','{$kasse}')"; } #cho __LINE__."$qtxt<br>"; db_modify($qtxt, __FILE__ . " linje " . __LINE__); $tmp = $debet - $kredit; db_modify("update kontoplan set saldo=saldo+'{$tmp}' where kontonr='{$oredifkto}' and regnskabsaar='{$regnaar}'", __FILE__ . " linje " . __LINE__); } else { return 'Manglende kontonummer til øredifferencer - Se indstillinger -> diverse -> ørediff'; } } else { $svar = "Der er konstateret en uoverensstemmelse i posteringssummen, ID {$ordre_id} ordre {$ordrenr}, d={$d_kontrol}, k={$k_kontrol} kontakt DANOSOFT på telefon 4690 2208"; if ($art == 'PO') { echo "{$svar}<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); return "{$svar}"; #20130506 exit; } } if ($konto_id) { $r = db_fetch_array(db_select("select sum(amount) from openpost where udlignet!='1' and konto_id = '{$konto_id}'", __FILE__ . " linje " . __LINE__)); $saldo = $r['amount'] * 1; db_modify("update adresser set saldo='{$saldo}' where id='{$konto_id}'", __FILE__ . " linje " . __LINE__); } if ($title != "Massefakturering" && !$webservice && $art != 'PO') { genberegn($regnaar); } return $svar; }
$dato = date("d-m-Y"); $kurs = NULL; $valuta = NULL; $beskrivelse = NULL; $kodenr = if_isset($_GET['kodenr']); $id = if_isset($_GET['id']); if (isset($_GET['ret'])) { print "<BODY onLoad=\"javascript:alert('Ved kursændring skal du ikke rette kursen, men tilføje en ny kurs med angivelse af dato for kursændringen.\\nEllers risikerer du at lave rod i dit regnskab ')\">"; } if (isset($_POST['submit'])) { $dato = addslashes(if_isset($_POST['dato'])); $kurs = addslashes(if_isset($_POST['kurs'])); $valuta = addslashes(if_isset($_POST['valuta'])); $beskrivelse = addslashes(if_isset($_POST['beskrivelse'])); $difkto = if_isset($_POST['difkto']) * 1; $ny_valdate = usdate($dato); $ny_kurs = usdecimal($kurs); $r = db_fetch_array(db_select("select max(transdate) as transdate from transaktioner where valuta = '{$kodenr}'", __FILE__ . " linje " . __LINE__)); $transdate = $r['transdate']; if ($ny_valdate <= $transdate) { print "<BODY onLoad=\"javascript:alert('Det er foretaget posteringer i {$vauta} efter {$dato}! Kursændring afbrudt')\">"; $dato = NULL; } if (!($r = db_fetch_array(db_select("select id from kontoplan where kontonr='{$difkto}' and kontotype = 'D' and regnskabsaar= '{$regnaar}'")))) { print "<BODY onLoad=\"javascript:alert('Driftkonto {$difkto} eksisterer ikke')\">"; $difkto = ''; $kodenr = -1; } #cho "$difkto && is_numeric($kodenr) && $dato && $kurs && $dato!=\"-\" && $kurs!=\"-\"<br>"; if ($difkto && is_numeric($kodenr) && $dato && $kurs && $dato != "-" && $kurs != "-") { if ($id) {
$mailmodt_id = $r['box1']; $email = $r['box2']; $ffdage = $r['box5']; $chkdate = $r['box8']; if (!$ffdage || $chkdate == $dd) { echo ''; } else { $rykkerdate = usdate(forfaldsdag($dd, 'netto', $ffdage)); $x = 0; $konto_id = array(); $x = 0; # $q=db_select("select openpost.* from openpost,adresser where openpost.udlignet = '0' and openpost.forfaldsdate >= '$rykkerdate' and openpost.amount>'0' and adresser.id=openpost.konto_id and adresser.art = 'D' order by openpost.konto_id",__FILE__ . " linje " . __LINE__); $q = db_select("select openpost.* from openpost,adresser where openpost.udlignet = '0' and openpost.amount>'0' and adresser.id=openpost.konto_id and adresser.art = 'D' order by openpost.konto_id", __FILE__ . " linje " . __LINE__); while ($r = db_fetch_array($q)) { # echo "$r[forfaldsdate] <= $dd<br>"; $rykkerdate = usdate(forfaldsdag($r['forfaldsdate'], 'netto', $ffdage)); # echo "$rykkerdate <= $dd<br>"; if ($rykkerdate <= $dd) { if (!db_fetch_array(db_select("select id from ordrelinjer where enhed = '{$r['id']}'", __FILE__ . " linje " . __LINE__))) { #Tjekker om der allerede eksisterer en rykker på ordren. if (!in_array($r['konto_id'], $konto_id)) { $konto_id[$x] = $r['konto_id']; #Liste over konto id numre der skal rykkes $x++; } } } } $ff_antal = $x; #echo "$ff_antal $rykkerdate <br>"; #exit;
function opdater_varer($kodenr, $art, $box1, $box2, $box3, $box4) { if ($art == 'VPG' && $kodenr) { if ($box1) { $box1 = usdecimal($box1); } if ($box2) { $box2 = usdecimal($box2); } if ($box3) { $box3 = usdecimal($box3); } if ($box4) { $box4 = usdecimal($box4); } if ($box1) { db_modify("update varer set kostpris='{$box1}' where prisgruppe = '{$kodenr}'", __FILE__ . " linje " . __LINE__); } if ($box2) { db_modify("update varer set salgspris='{$box2}' where prisgruppe = '{$kodenr}'", __FILE__ . " linje " . __LINE__); } if ($box3) { db_modify("update varer set retail_price='{$box3}' where prisgruppe = '{$kodenr}'", __FILE__ . " linje " . __LINE__); } if ($box4) { db_modify("update varer set tier_price='{$box4}' where prisgruppe = '{$kodenr}'", __FILE__ . " linje " . __LINE__); } return $box1 . ";" . $box2 . ";" . $box3 . ";" . $box4; } if ($art == 'VTG' && $kodenr) { if ($box1) { $box1 = usdecimal($box1); } if ($box2) { $box2 = usdecimal($box2); } if ($box3) { $box3 = usdate($box3); } if ($box4) { $box4 = usdate($box4); } if ($box1) { db_modify("update varer set special_price='{$box1}' where tilbudgruppe = '{$kodenr}'", __FILE__ . " linje " . __LINE__); } if ($box2) { db_modify("update varer set campaign_cost='{$box2}' where tilbudgruppe = '{$kodenr}'", __FILE__ . " linje " . __LINE__); } if ($box3) { db_modify("update varer set special_from_date='{$box3}' where tilbudgruppe = '{$kodenr}'", __FILE__ . " linje " . __LINE__); } if ($box4) { db_modify("update varer set special_to_date='{$box4}' where tilbudgruppe = '{$kodenr}'", __FILE__ . " linje " . __LINE__); } return $box1 . ";" . $box2 . ";" . $box3 . ";" . $box4; } if ($art == 'VRG' && $kodenr) { if ($box2) { $box2 = usdecimal($box2); } if ($box3) { $box3 = usdecimal($box3); } if ($box1) { db_modify("update varer set m_type='{$box1}' where rabatgruppe = '{$kodenr}'", __FILE__ . " linje " . __LINE__); } if ($box2) { db_modify("update varer set m_rabat='{$box2}' where rabatgruppe = '{$kodenr}'", __FILE__ . " linje " . __LINE__); } if ($box3) { db_modify("update varer set m_antal='{$box3}' where rabatgruppe = '{$kodenr}'", __FILE__ . " linje " . __LINE__); } } }
function flyt_data($kladde_id, $filnavn, $splitter, $feltnavn, $feltantal, $bilag, $datoformat) { global $charset; transaktion('begin'); $splitter = chr(9); $fp = fopen($filnavn . "2", "r"); if ($fp) { $x = 0; while (!feof($fp)) { $skriv_linje = 0; if ($linje = trim(fgets($fp))) { $x++; $skriv_linje = 1; $felt = array(); $felt = explode($splitter, $linje); for ($y = 0; $y <= $feltantal; $y++) { $felt[$y] = trim($felt[$y]); if (substr($felt[$y], 0, 1) == '"' && substr($felt[$y], -1) == '"') { $felt[$y] = substr($felt[$y], 1, strlen($felt[$y]) - 2); } if ($feltnavn[$y] == 'dato') { $felt[$y] = datotjek($datoformat, $felt[$y]); } # if ($feltnavn[$y]=='dato') $felt[$y]=str_replace(".","-",$felt[$y]); if ($feltnavn[$y] == 'belob') { if (nummertjek($felt[$y]) == 'US') { $felt[$y] = dkdecimal($felt[$y]); } elseif (nummertjek($felt[$y]) != 'DK') { $skriv_linje = 0; } } } } if ($skriv_linje == 1) { for ($y = 0; $y <= $feltantal; $y++) { $bilag = $bilag * 1; if ($feltnavn[$y] == 'bilag') { $bilag = $felt[$y] * 1; } if ($feltnavn[$y] == 'belob') { $amount = usdecimal($felt[$y]); } elseif ($feltnavn[$y] == "dato") { $transdate = usdate($felt[$y]); } elseif ($feltnavn[$y] == "beskrivelse") { $beskrivelse = addslashes($felt[$y]); } elseif ($feltnavn[$y] == "debet") { $d_type = "F"; $debet = $felt[$y]; } elseif ($feltnavn[$y] == "kredit") { $d_type = "F"; $kredit = $felt[$y]; } elseif ($feltnavn[$y] == "debitor") { $d_type = "D"; $debet = $felt[$y]; } elseif ($feltnavn[$y] == "kreditor") { $k_type = "K"; $kredit = $felt[$y]; } elseif ($feltnavn[$y] == "fakturanr") { $fakturanr = addslashes($felt[$y]); } } if (!$transdate) { $transdate = date('Y-m-d'); } #20150105 if ($amount * 1 != 0) { # $debet=$debet*1;$kredit=$kredit*1; $felttext1 = NULL; $felttext2 = NULL; if (is_numeric($debet)) { $felttext1 = "d_type,debet,"; $felttext2 = "'{$d_type}','{$debet}',"; } if (is_numeric($kredit)) { $felttext1 = $felttext1 . "k_type,kredit,"; $felttext2 = $felttext2 . "'{$k_type}','{$kredit}',"; } db_modify("insert into kassekladde (bilag, transdate, beskrivelse,{$felttext1} faktura, amount, kladde_id) values ('{$bilag}', '{$transdate}', '{$beskrivelse}',{$felttext2} '{$fakturanr}','{$amount}', '{$kladde_id}')", __FILE__ . " linje " . __LINE__); if (!in_array('bilag', $feltnavn)) { $bilag++; } } } } } fclose($fp); unlink($filnavn); # sletter filen. unlink($filnavn . "2"); # sletter filen. transaktion('commit'); print "<meta http-equiv=\"refresh\" content=\"0;URL=kassekladde.php?kladde_id={$kladde_id}\">"; }
if (isset($_POST['kontosaldo'])) { $rapportart = 'kontosaldo'; } if (isset($_POST['kontokort'])) { $rapportart = 'kontokort'; } if (isset($_POST['dato'])) { $dato = $_POST['dato']; list($dato_fra, $dato_til) = explode(":", $dato); # if (!$dato_til) { # $dato_til=$dato_fra; # $dato_fra='010100'; # } # echo "dato $dato | $dato_fra | $dato_til<br>"; $fromdate = usdate($dato_fra); $todate = usdate($dato_til); # echo "dato $dato | $dato_fra | $dato_til<br>"; } if (isset($_POST['konto'])) { $konto = $_POST['konto']; list($konto_fra, $konto_til) = explode(":", $konto); if (is_numeric($konto_fra) && !$konto_til) { $konto_til = $konto_fra; } # echo "konto $dato | $konto_fra | $konto_til<br>"; } #echo "R $rapportart<br>"; $husk = if_isset($_POST['husk']); if (isset($_POST['salgsstat']) && $_POST['salgsstat']) { if ($husk) { db_modify("update grupper set box1='{$husk}',box2='{$dato_fra}',box3='{$dato_til}',box4='{$konto_fra}',box5='{$konto_til}',box6='{$rapportart}' where art='DRV' and kodenr='{$bruger_id}'", __FILE__ . " linje " . __LINE__);
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; }
function autoudlign($udlign) { $y = 0; $v = 0; # global $regnaar; global $dato_til; # if ($r = db_fetch_array(db_select("select box1, box2, box3, box4 from grupper where art='RA' and kodenr='$regnaar'",__FILE__ . " linje " . __LINE__))){ # if ($maaned_til <= $r['box3']) $s**t="31-".trim($maaned_til)."-".$slutaar=trim($r['box4']); # else $s**t="31-".trim($maaned_til)."-".$slutaar=trim($r['box2']); # if (!$dato_til) { $periodeslut = '2999-12-31'; } else { $periodeslut = usdate($dato_til); } transaktion('begin'); $udlign = $udlign * 1; #cho "udlign $udlign<br>"; if ($udlign > 0) { #sker kun når kontoens saldo er 0 db_modify("update openpost set udlignet='0' where udlignet is NULL and konto_id='{$udlign}'", __FILE__ . " linje " . __LINE__); db_modify("update openpost set udlign_id='0' where udlign_id is NULL and konto_id='{$udlign}'", __FILE__ . " linje " . __LINE__); $q1 = db_select("SELECT MAX(udlign_id) as udlign_id from openpost", __FILE__ . " linje " . __LINE__); if ($r1 = db_fetch_array($q1)) { $y = $r1['udlign_id']; } $tilfoj = "konto_id={$udlign} and udlignet!='1' and"; } else { $tilfoj = "udlignet='1' and"; } #cho "tilføj: $tilfoj<br>"; $sum = 0; for ($i = 1; $i <= 5; $i++) { $udligndate = "1970-01-01"; $kontrol = array(); $x = 0; $qtxt = "SELECT id, faktnr,amount,konto_id,transdate,valutakurs from openpost where {$tilfoj} "; if ($i <= 2) { $qtxt .= "faktnr != '' and transdate <= '{$periodeslut}' and udlign_id = '0' order by transdate"; } elseif ($i == 3) { $qtxt .= "faktnr != '' and transdate <= '{$periodeslut}' and udlign_id = '0' order by transdate"; } elseif ($i == 4) { $qtxt .= "faktnr = '' and transdate <= '{$periodeslut}' and udlign_id = '0' order by transdate"; } elseif ($i == 5) { $qtxt .= "udlign_id = '0' and transdate <= '{$periodeslut}' order by transdate"; } #cho __line__." X $x $qtxt<br>"; $q1 = db_select($qtxt, __FILE__ . " linje " . __LINE__); while ($r1 = db_fetch_array($q1)) { #cho "R1 $r1[id]<br>"; if (!in_array($r1['id'], $kontrol)) { $x++; $id[$x] = $r1['id']; #cho "ID $id[$x]<br>"; $faktnr[$x] = $r1['faktnr']; $amount[$x] = $r1['amount'] * -1; if ($r1['transdate'] > $udligndate) { $udligndate = $r1['transdate']; } $sum += $r1['amount'] * $r1['valutakurs'] / 100; $konto_id[$x] = $r1['konto_id']; } #cho __line__." $sum Amount $amount[$x]<br>"; } $faktantal = $x; if ($sum == 0) { $y++; for ($x = 1; $x <= $faktantal; $x++) { #cho "update openpost set udlignet='1', udlign_id='$y', udlign_date='$udligndate' where id='$id[$x]'<br>"; db_modify("update openpost set udlignet='1', udlign_id='{$y}', udlign_date='{$udligndate}' where id='{$id[$x]}'", __FILE__ . " linje " . __LINE__); } } else { #cho "faktantal $faktantal<br>"; for ($x = 1; $x <= $faktantal; $x++) { if ($i == 1) { $qtxt = "SELECT id, transdate, faktnr from openpost where {$tilfoj} id != '{$id[$x]}' and amount='{$amount[$x]}' and konto_id='{$konto_id[$x]}' and udlignet='1' and transdate <= '{$periodeslut}' and udlign_id = '0' order by transdate"; } elseif ($i == 2) { $qtxt = "SELECT id, transdate from openpost where {$tilfoj} id != '{$id[$x]}' and amount='{$amount[$x]}' and konto_id='{$konto_id[$x]}' and udlign_id = '0' and udlignet='1' and transdate <= '{$periodeslut}' order by transdate"; } elseif ($i <= 4) { $qtxt = "SELECT id, transdate from openpost where {$tilfoj} id != '{$id[$x]}' and amount='{$amount[$x]}' and konto_id='{$konto_id[$x]}' and udlign_id = '0' and udlignet='1' and transdate <= '{$periodeslut}' order by transdate"; } elseif ($i == 5) { $qtxt = "SELECT id, transdate from openpost where {$tilfoj} id != '{$id[$x]}' and udlign_id = '0' and transdate <= '{$periodeslut}'"; } $z = 0; #cho __line__." X $x $qtxt<br>"; $q1 = db_select($qtxt, __FILE__ . " linje " . __LINE__); if (($r1 = db_fetch_array($q1)) && !in_array($r1[id], $kontrol)) { $z++; $id2 = $r1['id']; #cho "ID2 $id2<br> "; $transdate = $r1['transdate']; } if ($z == 1 && !in_array($id[$x], $kontrol) && !in_array($id2, $kontrol)) { $y++; $v++; $kontrol[$v] = $id[$x]; $v++; $kontrol[$v] = $id2; #cho __line__." update openpost set udlignet='1', udlign_id='$y', udlign_date='$transdate' where id='$id[$x]'<br>"; db_modify("update openpost set udlignet='1', udlign_id='{$y}', udlign_date='{$transdate}' where id='{$id[$x]}'", __FILE__ . " linje " . __LINE__); #cho __line__." update openpost set udlignet='1', udlign_id='$y', udlign_date='$transdate' where id='$id[$x]'<br>"; db_modify("update openpost set udlignet='1', udlign_id='{$y}', udlign_date='{$transdate}' where id='{$id2}'", __FILE__ . " linje " . __LINE__); } } } $y++; #cho "$y<br>"; if ($udlign > 0) { #Hvis der er nogen tilbage som ikke er blevet udlignet $q1 = db_select("SELECT id, transdate from openpost where konto_id='{$udlign}' and udlignet = '0' and transdate <= '{$periodeslut}'", __FILE__ . " linje " . __LINE__); while ($r1 = db_fetch_array($q1)) { #cho __line__." update openpost set udlignet='1', udlign_id='$y', udlign_date='$r1[transdate]' where id='$r1[id]'<br>"; db_modify("update openpost set udlignet='1', udlign_id='{$y}', udlign_date='{$r1['transdate']}' where id='{$r1['id']}'", __FILE__ . " linje " . __LINE__); } } } #exit; 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>"; }
$qtxt="select * from adresser where art = $art order by firmanavn"; $q=db_select($qtxt,__FILE__ . " linje " . __LINE__); while($r=db_fetch_array($q)){ $konto_id[$x]=$r['konto_id']; $kontonr[$x]=$r['kontonr']; $firmanavn[$x]=$r['firmanavn']; $x; } */ $x = 0; $y = 0; $qtxt = "select ordrelinjer.vare_id,ordrelinjer.varenr,ordrelinjer.beskrivelse,ordrelinjer.antal,ordrelinjer.pris,ordrelinjer.rabat,"; $qtxt .= "ordrer.konto_id,ordrer.kontonr,ordrer.firmanavn,ordrer.id,ordrer.fakturadate from ordrer,ordrelinjer,adresser "; $qtxt .= "where ordrelinjer.ordre_id=ordrer.id and adresser.id=ordrer.konto_id and adresser.art='{$art}' "; if ($dato_fra && $dato_til) { $qtxt .= "and ordrer.fakturadate>='" . usdate($dato_fra) . "' and ordrer.fakturadate<='" . usdate($dato_til) . "' "; } if ($konto_fra && $konto_til) { $qtxt .= "and ordrer.kontonr>='{$konto_fra}' and ordrer.kontonr<='{$konto_til}' "; } elseif ($kontonr) { $qtxt .= "and ordrer.kontonr like '" . str_replace('*', '%', $kontonr) . "' "; } if ($firmanavn) { $qtxt .= "and lower(ordrer.firmanavn) like '" . str_replace('*', '%', strtolower($firmanavn)) . "' "; } if ($adresse) { $qtxt .= "and ordrer.adresse like '" . str_replace('*', '%', strtolower($adresse)) . "' "; } if ($postnr) { $qtxt .= "and ordrer.postnr like '" . str_replace('*', '%', strtolower($postnr)) . "' "; }
function indsaet_linjer($kladde_id, $bilag, $dato, $beskrivelse, $d_type, $debet, $k_type, $kredit, $faktura, $belob, $afd, $ansat, $projekt, $valuta, $forfaldsdato, $betal_id, $momsfri) { global $fejl; $date = usdate($dato); $amount = usdecimal($belob); if ($forfaldsdato) { $forfaldsdate = usdate($forfaldsdato); } else { $forfaldsdate = NULL; } $bilag = str_replace('+', ':', $bilag); #jeg ved ikke hvorfor, men den vil ikke splitte med "+" list($bilag, $antal) = explode(':', $bilag); if ($ansat) { $r = db_fetch_array(db_select("select id from adresser where art = 'S'", __FILE__ . " linje " . __LINE__)); $tmp = $r['id'] * 1; $r = db_fetch_array(db_select("select id from ansatte where initialer = '{$ansat}' and konto_id = '{$tmp}'", __FILE__ . " linje " . __LINE__)); $ansat_id = $r['id']; } $ansat_id = $ansat_id * 1; if ($valuta && $valuta != 'DKK') { $r = db_fetch_array(db_select("select kodenr from grupper where box1 = '{$valuta}' and art = 'VK'", __FILE__ . " linje " . __LINE__)); if ($r['kodenr']) { $valutakode = $r['kodenr'] * 1; } else { $fejl = 1; print "<BODY onLoad=\"javascript:alert('Valuta {$valuta} eksisterer ikke (Bilag {$bilag})')\">"; } } else { $valutakode = 0; } if (!$fejl) { if ($antal == "=") { if (!$forfaldsdate) { $forfaldsdate = $date; } db_modify("insert into kassekladde (bilag,kladde_id,transdate,beskrivelse,d_type,debet,k_type,kredit,faktura,amount,afd,ansat,projekt,valuta,forfaldsdate,betal_id,momsfri) values ('{$bilag}','{$kladde_id}','{$date}','{$beskrivelse}','{$d_type}','{$debet}','{$k_type}','{$kredit}','{$faktura}','{$amount}','{$afd}','{$ansat_id}','{$projekt}','{$valutakode}','{$forfaldsdate}','{$betal_id}','{$momsfri}')", __FILE__ . " linje " . __LINE__); } else { $antal = $antal * 1; } if ($antal > 25) { #20150521 print "<BODY onLoad=\"javascript:alert('Du forsøger at indsætte {$antal} bilagslinjer! Max er 25!')\">"; $antal = 0; } for ($x = 1; $x <= $antal; $x++) { db_modify("insert into kassekladde (bilag, kladde_id, transdate) values ('{$bilag}', '{$kladde_id}', '{$date}')", __FILE__ . " linje " . __LINE__); db_modify("insert into tmpkassekl (bilag, kladde_id, transdate) values ('{$bilag}', '{$kladde_id}', '{$dato}')", __FILE__ . " linje " . __LINE__); } } if (!$fokus) { $fokus = "ny_kladdenote"; } }
//2015.03.16 //2015.04.09 Sidste side blev ikke udskrevet v. flere sider. Ændrer $side til $side-1. 20150409 @session_start(); $s_id = session_id(); include "../includes/connect.php"; include "../includes/online.php"; include "../includes/std_func.php"; include "../includes/formfunk.php"; include "../includes/forfaldsdag.php"; $konto_fra = if_isset($_GET['konto_fra']); $konto_til = if_isset($_GET['konto_til']); $dato_fra = if_isset($_GET['dato_fra']); $dato_til = if_isset($_GET['dato_til']); $kontoart = if_isset($_GET['kontoart']); $dato_fra ? $dato_fra = usdate($dato_fra) : ($dato_fra = "1970-01-01"); $dato_til = usdate($dato_til); $formular = 11; $fsize = filesize("../includes/faktinit.ps"); $fp = fopen("../includes/faktinit.ps", "r"); $initext = fread($fp, $fsize); fclose($fp); if (!$formularsprog) { $formularsprog = 'dansk'; } $r = db_fetch_array(db_select("select count(id) as antal from formularer where formular = '{$formular}' and lower(sprog)='{$formularsprog}'", __FILE__ . " linje " . __LINE__)); if ($r['antal'] < 5) { include "../includes/formularimport.php"; formularimport("../importfiler/formular.txt", '11'); } print "<!-- kommentar for at skjule uddata til siden \n"; if (!file_exists("../logolib/{$db_id}")) {
$fejllinje = 1; $fejldato++; } elseif ($felt1 == '"H"') { list($felt1, $k_kontonr, $bilag, $faktnr, $faktdate, $betaldate, $transdate, $belob, $moms, $art, $valuta, $betal_id, $beskrivelse, $tmp, $tmp) = split(chr(9), $linje); #echo "$faktdate"; $fejllinje = 0; $k_kontonr = str_replace("\"", "", $k_kontonr); $faktnr = str_replace("\"", "", $faktnr); $beskrivelse = str_replace("\"", "", $beskrivelse); $valuta = str_replace("\"", "", $valuta); $betal_id = str_replace("\"", "", $betal_id); $faktdato = substr($faktdate, 4, 2) . substr($faktdate, 2, 2) . substr($faktdate, 0, 2); $faktdate = usdate($faktdato); #echo " - $faktdate<br>"; $betaldato = substr($betaldate, 4, 2) . substr($betaldate, 2, 2) . substr($betaldate, 0, 2); $forfaldsdate = usdate($betaldato); $amount = usdecimal($belob); if ($art == '"K"') { $amount = $amount * -1; } $r = db_fetch_array(db_select("select kodenr from grupper where art='VK' and box1='{$valuta}'", __FILE__ . " linje " . __LINE__)); $valutakode = $r['kodenr'] * 1; db_modify("insert into kassekladde(bilag,transdate,beskrivelse,k_type,faktura,amount,kladde_id,kredit,valuta,forfaldsdate,betal_id) values ('{$bilag}','{$faktdate}','{$beskrivelse}','K','{$faktnr}','{$amount}','{$kladde_id}','{$k_kontonr}','{$valutakode}','{$forfaldsdate}','{$betal_id}')", __FILE__ . " linje " . __LINE__); } elseif ($felt1 == '"K"') { list($felt1, $kontonr, $projekt, $ansat, $beskrivelse, $belob, $moms) = split(chr(9), $linje); $kontonr = str_replace("\"", "", $kontonr); $projekt = str_replace("\"", "", $projekt); $beskrivelse = str_replace("\"", "", $beskrivelse); if ($projekt) { $projekt = $projekt * 1; $extra = ",projekt";
if (isset($_POST['salgspris']) && $_POST['salgspris']) { $id = $_POST['id']; $startdato = $_POST['startdato']; $slutdato = $_POST['slutdato']; $starttid = $_POST['starttid']; $sluttid = $_POST['sluttid']; $salgspris = $_POST['salgspris']; $kostpris = $_POST['kostpris']; $ugedag = $_POST['ugedag']; $slet = $_POST['slet']; for ($x = 0; $x <= count($id) + 1; $x++) { if ($slet[$x] && $id[$x]) { db_modify("delete from varetilbud where id={$id[$x]}", __FILE__ . " linje " . __LINE__); } else { $startdag[$x] = strtotime(usdate($startdato[$x])); $slutdag[$x] = strtotime(usdate($slutdato[$x])); if (!$starttid[$x]) { $starttid[$x] = "00:00:00"; } else { $starttid[$x] = tjektid($starttid[$x]); } if (!$sluttid[$x]) { $sluttid[$x] = "24:00:00"; } else { $sluttid[$x] = tjektid($sluttid[$x]); } $salgspris[$x] *= 0.8; $kostpris[$x] *= 1; if ($id[$x]) { $qtxt = "update varetilbud set"; $qtxt .= " startdag='{$startdag[$x]}',slutdag='{$slutdag[$x]}',starttid='{$starttid[$x]}',sluttid='{$sluttid[$x]}',ugedag='{$ugedag[$x]}',";
include "../includes/online.php"; include "../includes/std_func.php"; include "../includes/forfaldsdag.php"; include "../includes/ordrefunc.php"; # include("../includes/db_query.php"); if ($popup) { $returside = "../includes/luk.php"; } else { $returside = "../index/menu.php"; } if (isset($_POST['submit']) && $_POST['submit']) { $submit = strtolower(trim($_POST['submit'])); $varegruppe = trim($_POST['varegruppe']); $afd = $_POST['afd']; $date_from = usdate($_POST['dato_fra']); $date_to = usdate($_POST['dato_til']); # $md=$_POST['md']; $varenr = $_POST['varenr']; $varenavn = $_POST['varenavn']; $detaljer = $_POST['detaljer']; $vk_kost = $_POST['vk_kost']; $varenr = trim($varenr); $varenavn = trim($varenavn); } else { $varegruppe = if_isset($_GET['varegruppe']); $afd = if_isset($_GET['afd']); $date_from = if_isset($_GET['date_from']); $date_to = if_isset($_GET['date_to']); $varenr = if_isset($_GET['varenr']); $varenavn = if_isset($_GET['varenavn']); $detaljer = $_GET['detaljer'];
function flytordre($kladde_id, $ordre_id) { global $regnaar; global $connection; global $aarstart; global $aarslut; include "../includes/forfaldsdag.php"; transaktion("begin"); if (!$aarstart) { $query = db_select("select box1, box2, box3, box4 from grupper where art='RA' and kodenr='{$regnaar}'", __FILE__ . " linje " . __LINE__); if ($row = db_fetch_array($query)) { $year = trim($row['box2']); $aarstart = trim($year . $row['box1']); $year = trim($row['box4']); $aarslut = trim($year . $row['box3']); } } $query = db_select("select box1, box2, box3, box4, box5 from grupper where art='RB'", __FILE__ . " linje " . __LINE__); if ($row = db_fetch_array($query)) { if (trim($row['box3']) == "on") { $faktbill = 1; } else { $faktbill = 0; } if (trim($row['box4']) == "on") { $modtbill = 1; } else { $modtbill = 0; } if (trim($row['box5']) == "on") { $no_faktbill = 1; $faktbill = 0; } else { $no_faktbill = 0; } } $x = 0; $query = db_select("select * from ordrer where status=3 and id='{$ordre_id}' order by fakturadate", __FILE__ . " linje " . __LINE__); if ($row = db_fetch_array($query)) { list($year, $month, $day) = split('-', $row['fakturadate']); $ym = $year . $month; if ($ym >= $aarstart && $ym <= $aarslut) { $id = $row['id']; $art = $row['art']; $konto_id = $row['konto_id']; $kontonr = str_replace(" ", "", $row['kontonr']); $firmanavn = trim($row['firmanavn']); $modtagelse = $row['modtagelse']; $transdate = $row['fakturadate']; $forfaldsdate = usdate(forfaldsdag($transdate, $row['betalingsbet'], $row['betalingsdage'])); $fakturanr = addslashes($row['fakturanr']); $ordrenr = $row['ordrenr']; $valuta = $row['valuta']; if ($valuta && $valuta != 'DKK') { $r = db_fetch_array(db_select("select kodenr from grupper where box1='{$valuta}' and art='VK'", __FILE__ . " linje " . __LINE__)); $valuta = $r['kodenr'] * 1; } else { $valuta = 0; } $projekt[0] = $row['projekt']; $moms = $row['moms'] * 1; $sum = $row['sum'] + $moms; $ordreantal = $x; $q = db_select("select id, afd from ansatte where navn = '{$row['ref']}'", __FILE__ . " linje " . __LINE__); $r = db_fetch_array($q); $afd = $r['afd'] * 1; $ansat = $r['id'] * 1; if (!$konto_id) { $firmanavn = "Kontantsalg"; $betalt = $row['betalt']; $retur = $betalt - $sum; $betaling1 = $row['felt_1']; $betalt1 = $row['felt_2'] * 1; $betaling2 = $row['felt_3']; $betalt2 = $row['felt_4'] * 1; $kasse = $row['felt_5'] * 1; $kortnavn = array(); $kortkto = array(); $r = db_fetch_array(db_select("select * from grupper where art = 'POS' and kodenr='{$kasse}'", __FILE__ . " linje " . __LINE__)); $tmparray = explode(chr(9), $r['box2']); $kontonr = $tmparray[$kasse - 1]; $kortnavn = explode(chr(9), $r['box5']); $kortkto = explode(chr(9), $r['box6']); $tmparray = explode(chr(9), $r['box7']); $momsgruppe = $tmparray[$kasse - 1]; $z = 0; if ($betaling1 == 'Kontant') { $kortkto1 = $kontonr; $betalt1 = $betalt1 - $retur; $retur = 0; } if ($betaling2 == 'Kontant') { $kortkto2 = $kontonr; $betalt2 = $betalt2 - $retur; $retur = 0; } while ($kortkto[$z]) { if ($betaling1 == $kortnavn[$z]) { $kortkto1 = $kortkto[$z]; } if ($betaling2 == $kortnavn[$z]) { $kortkto2 = $kortkto[$z]; } $z++; } $r = db_fetch_array(db_select("select box1 from grupper where art='SM' and kodenr='{$momskode}'", __FILE__ . " linje " . __LINE__)); $box1 = trim($r['box1']); } if (substr($art, 0, 1) == 'K' && $modtagelse > 0 && $modtbill == 1) { $bilag = $modtagelse; } elseif ((substr($art, 0, 1) == 'D' || $art == 'PO') && $no_faktbill == 1) { $bilag = '0'; } elseif ((substr($art, 0, 1) == 'D' || $art == 'PO') && $faktbill == 1) { $bilag = trim($fakturanr); } else { $tmp1 = substr($aarstart, 0, 4) . "-" . substr($aarstart, 4, 2) . "-01"; $tmp2 = 31; while (!checkdate(substr($aarslut, 4, 2), $tmp2, substr($aarslut, 0, 4))) { $tmp2--; if ($tmp2 < 28) { break 1; } #20130210 } $tmp2 = substr($aarslut, 0, 4) . "-" . substr($aarslut, 4, 2) . "-" . $tmp2; $row = db_fetch_array(db_select("select MAX(bilag) as bilag from kassekladde where transdate>='{$tmp1}' and transdate<='{$tmp2}'", __FILE__ . " linje " . __LINE__)); $bilag = $row['bilag'] + 1; } $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']; } $projektantal = $p; if (substr($art, 0, 1) == 'K') { if (substr($art, 1, 1) == 'K') { $beskrivelse = "Lev. Kreditnota - " . $fakturanr; } else { $beskrivelse = "Lev.Faktura - " . $fakturanr; } $beskrivelse = addslashes($beskrivelse); db_modify("insert into kassekladde (bilag, transdate, beskrivelse, k_type, kredit, faktura, amount, momsfri, kladde_id, afd, valuta, projekt, ansat, ordre_id) values ('{$bilag}', '{$transdate}', '{$beskrivelse}', 'K', '{$kontonr}', '{$fakturanr}', '{$sum}', 'on', '{$kladde_id}', '{$afd}', '{$valuta}', '{$projekt['0']}', '{$ansat}', '{$ordre_id}')", __FILE__ . " linje " . __LINE__); for ($p = 1; $p <= $projektantal; $p++) { $query = db_select("select * from ordrelinjer where ordre_id='{$id}' and projekt = '{$projekt[$p]}'", __FILE__ . " linje " . __LINE__); $y = 0; $bogf_konto = array(); while ($row = db_fetch_array($query)) { $bogf_kto = $row['bogf_konto']; if ($valuta != 'DKK' && $row['posnr'] < 0) { $bogf_kto = $bogf_kto * -1; } if (!in_array($bogf_kto, $bogf_konto)) { $y++; $posnr[$y] = $row['posnr']; $bogf_konto[$y] = trim($bogf_kto); $pris[$y] = afrund($row['pris'] * $row['antal'] - $row['pris'] * $row['antal'] * $row['rabat'] / 100, 3); } else { for ($a = 1; $a <= $y; $a++) { if ($bogf_konto[$a] == $bogf_kto) { $pris[$a] = $pris[$a] + afrund($row['pris'] * $row['antal'] - $row['pris'] * $row['antal'] * $row['rabat'] / 100, 3); } } } } if ($valuta) { for ($a = 1; $a <= $y; $a++) { $bogf_konto[$a] = abs($bogf_konto[$a]); } } $ordrelinjer = $y; for ($y = 1; $y <= $ordrelinjer; $y++) { if ($bogf_konto[$y]) { if ($posnr[$y] < 0) { $tmpvaluta = 0; } else { $tmpvaluta = $valuta; } $kontoart[$y] = $art; if ($pris[$y] < 0) { $pris[$y] = $pris[$y] * -1; db_modify("insert into kassekladde (bilag, transdate, beskrivelse, k_type, kredit, faktura, amount, momsfri, kladde_id, afd, valuta, projekt, ansat, ordre_id) values ('{$bilag}', '{$transdate}', '{$beskrivelse}', 'F', '{$bogf_konto[$y]}', '{$fakturanr}', '{$pris[$y]}', 'on', '{$kladde_id}', '{$afd}', '{$tmpvaluta}', '{$projekt[$p]}', '{$ansat}', '{$ordre_id}')", __FILE__ . " linje " . __LINE__); } elseif ($pris[$y] > 0) { db_modify("insert into kassekladde (bilag, transdate, beskrivelse, d_type, debet, faktura, amount, momsfri, kladde_id, afd, valuta, projekt, ansat, ordre_id) values ('{$bilag}', '{$transdate}', '{$beskrivelse}', 'F', '{$bogf_konto[$y]}', '{$fakturanr}', '{$pris[$y]}', 'on', '{$kladde_id}', '{$afd}', '{$tmpvaluta}', '{$projekt[$p]}', '{$ansat}', '{$ordre_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='KG' and kodenr='{$row['gruppe']}';", __FILE__ . " linje " . __LINE__); $row = db_fetch_array($query); $box1 = substr(trim($row['box1']), 1, 1); if (substr(trim($row['box1']), 0, 1) == 'E') { $query = db_select("select box1, box2, box3 from grupper where art='EM' and kodenr='{$box1}'", __FILE__ . " linje " . __LINE__); $row = db_fetch_array($query); $box1 = trim($row['box3']); # Ser lidt forvirrende ud, men den er go nok - fordi koebsmomsen ligger i box 3 v. udenlandsmoms. $moms = $sum / 100 * $row['box2']; #moms af varekoeb i udland beregnes db_modify("insert into kassekladde (bilag, transdate, beskrivelse, k_type, kredit, faktura, amount, momsfri, kladde_id, afd, valuta, projekt, ansat, ordre_id) values ('{$bilag}', '{$transdate}', '{$beskrivelse}', 'F', '{$row['box1']}', '{$fakturanr}', '{$moms}', 'on', '{$kladde_id}', '{$afd}', '{$valuta}', '{$projekt['0']}', '{$ansat}', '{$ordre_id}')", __FILE__ . " linje " . __LINE__); } else { $query = db_select("select box1 from grupper where art='KM' and kodenr='{$box1}'", __FILE__ . " linje " . __LINE__); $row = db_fetch_array($query); $box1 = trim($row['box1']); } db_modify("insert into kassekladde (bilag, transdate, beskrivelse, d_type, debet, faktura, amount, momsfri, kladde_id, afd, valuta, projekt, ansat, ordre_id) values ('{$bilag}', '{$transdate}', '{$beskrivelse}', 'F', '{$box1}', '{$fakturanr}', '{$moms}', 'on', '{$kladde_id}', '{$afd}', '{$valuta}', '{$projekt['0']}', '{$ansat}', '{$ordre_id}')", __FILE__ . " linje " . __LINE__); } else { #################### Debitor / POS ordrer #################### if ($art == 'RB') { $beskrivelse = "Rykker - " . $ordrenr; } elseif (substr($art, 1, 1) == 'K') { $beskrivelse = "Kreditnota - " . $fakturanr; } elseif ($art == 'PO') { $beskrivelse = "Kassebon - " . $fakturanr; } else { $beskrivelse = "Faktura - " . $fakturanr; } if ($sum < 0) { if ($art == 'PO') { $dk = 'F'; } else { $dk = 'D'; } $tmp = $sum * -1; #indsat 50.02.11 grunder vejl v. hentning af kreditnota db_modify("insert into kassekladde (bilag, transdate, beskrivelse, k_type, kredit, faktura, amount, momsfri, kladde_id, afd, valuta, projekt, ansat, ordre_id) values ('{$bilag}', '{$transdate}', '{$beskrivelse}', '{$dk}', '{$kontonr}', '{$fakturanr}', '{$tmp}', 'on', '{$kladde_id}', '{$afd}', '{$valuta}', '{$projekt['0']}', '{$ansat}', '{$ordre_id}')", __FILE__ . " linje " . __LINE__); } else { if ($art == 'PO') { if ($betaling1 && $betalt1) { db_modify("insert into kassekladde (bilag,transdate,beskrivelse,d_type,debet,faktura,amount,momsfri,kladde_id,afd,valuta,projekt,ansat,ordre_id,forfaldsdate) values ('{$bilag}','{$transdate}','{$beskrivelse}','F','{$kortkto1}','{$fakturanr}','{$betalt1}','on','{$kladde_id}','{$afd}','{$valuta}','{$projekt['0']}','{$ansat}','{$ordre_id}','{$forfaldsdate}')", __FILE__ . " linje " . __LINE__); } if ($betaling2 && $betalt2) { db_modify("insert into kassekladde (bilag,transdate,beskrivelse,d_type,debet,faktura,amount,momsfri,kladde_id,afd,valuta,projekt,ansat,ordre_id,forfaldsdate) values ('{$bilag}','{$transdate}','{$beskrivelse}','F','{$kortkto2}','{$fakturanr}','{$betalt2}','on','{$kladde_id}','{$afd}','{$valuta}','{$projekt['0']}','{$ansat}','{$ordre_id}','{$forfaldsdate}')", __FILE__ . " linje " . __LINE__); } if ($retur) { db_modify("insert into kassekladde (bilag,transdate,beskrivelse,k_type,kredit,faktura,amount,momsfri,kladde_id,afd,valuta,projekt,ansat,ordre_id,forfaldsdate) values ('{$bilag}','{$transdate}','{$beskrivelse}','F','{$kontonr}','{$fakturanr}','{$retur}','on','{$kladde_id}','{$afd}','{$valuta}','{$projekt['0']}','{$ansat}','{$ordre_id}','{$forfaldsdate}')", __FILE__ . " linje " . __LINE__); } } else { db_modify("insert into kassekladde (bilag,transdate,beskrivelse,d_type,debet,faktura,amount,momsfri,kladde_id,afd,valuta,projekt,ansat,ordre_id,forfaldsdate) values ('{$bilag}','{$transdate}','{$beskrivelse}','D','{$kontonr}','{$fakturanr}','{$sum}','on','{$kladde_id}','{$afd}','{$valuta}','{$projekt['0']}','{$ansat}','{$ordre_id}','{$forfaldsdate}')", __FILE__ . " linje " . __LINE__); } } for ($p = 1; $p <= $projektantal; $p++) { $query = db_select("select * from ordrelinjer where ordre_id={$id} and projekt = '{$projekt[$p]}'", __FILE__ . " linje " . __LINE__); $y = 0; $bogf_konto = array(); while ($row = db_fetch_array($query)) { $bogf_kto = $row['bogf_konto']; if ($valuta != 'DKK' && $row['posnr'] < 0) { $bogf_kto = $bogf_kto * -1; } if (!in_array($bogf_kto, $bogf_konto)) { $y++; $posnr[$y] = $row['posnr']; $bogf_konto[$y] = $bogf_kto; $pris[$y] = afrund($row['pris'] * $row['antal'] - $row['pris'] * $row['antal'] * $row['rabat'] / 100, 3); } else { for ($a = 1; $a <= $y; $a++) { if ($bogf_konto[$a] == $bogf_kto) { $pris[$a] = $pris[$a] + afrund($row['pris'] * $row['antal'] - $row['pris'] * $row['antal'] * $row['rabat'] / 100, 3); } } } } if ($valuta) { for ($a = 1; $a <= $y; $a++) { $bogf_konto[$a] = abs($bogf_konto[$a]); } } $ordrelinjer = $y; for ($y = 1; $y <= $ordrelinjer; $y++) { if ($bogf_konto[$y]) { if ($posnr[$y] < 0) { $tmpvaluta = 0; } else { $tmpvaluta = $valuta; } if ($pris[$y] < 0) { $pris[$y] = $pris[$y] * -1; db_modify("insert into kassekladde (bilag, transdate, beskrivelse, d_type, debet, faktura, amount, momsfri, kladde_id, afd, valuta, projekt, ansat, ordre_id) values ('{$bilag}', '{$transdate}', '{$beskrivelse}', 'F', '{$bogf_konto[$y]}', '{$fakturanr}', '{$pris[$y]}', 'on', '{$kladde_id}', '{$afd}', '{$tmpvaluta}', '{$projekt[$p]}', '{$ansat}', '{$ordre_id}')", __FILE__ . " linje " . __LINE__); } elseif ($pris[$y] > 0) { db_modify("insert into kassekladde (bilag, transdate, beskrivelse, k_type, kredit, faktura, amount, momsfri, kladde_id, afd, valuta, projekt, ansat, ordre_id) values ('{$bilag}', '{$transdate}', '{$beskrivelse}', 'F', '{$bogf_konto[$y]}', '{$fakturanr}', '{$pris[$y]}', 'on', '{$kladde_id}', '{$afd}', '{$tmpvaluta}', '{$projekt[$p]}', '{$ansat}', '{$ordre_id}')", __FILE__ . " linje " . __LINE__); } } } } if ($art != 'RB') { if ($art != 'PO') { $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 from grupper where art='DG' and kodenr='{$r['gruppe']}'", __FILE__ . " linje " . __LINE__)); $momsgruppe = substr(trim($r['box1']), 1, 1); } $r = db_fetch_array(db_select("select box1 from grupper where art='SM' and kodenr='{$momsgruppe}'", __FILE__ . " linje " . __LINE__)); $box1 = trim($r['box1']); if ($moms && $box1) { db_modify("insert into kassekladde (bilag, transdate, beskrivelse, k_type, kredit, faktura, amount, momsfri, kladde_id, afd, valuta, projekt, ansat, ordre_id) values ('{$bilag}', '{$transdate}', '{$beskrivelse}', 'F', '{$box1}', '{$fakturanr}', '{$moms}', 'on', '{$kladde_id}', '{$afd}', '{$valuta}', '{$projekt['0']}', '{$ansat}', '{$ordre_id}')", __FILE__ . " linje " . __LINE__); } } } db_modify("update ordrer set status=4 where id={$id}", __FILE__ . " linje " . __LINE__); db_modify("delete from ordrelinjer where ordre_id={$id} and posnr < 0", __FILE__ . " linje " . __LINE__); } else { print "<BODY onLoad=\"javascript:alert('Ordredato uden for regnskabsår!')\">"; } } transaktion("commit"); #exit; }
function overfoer_data($filnavn, $splitter, $feltnavn, $feltantal) { global $charset; $x = 0; $fp = fopen("../importfiler/postnr.csv", "r"); if ($fp) { while (!feof($fp)) { $x++; $linje = trim(fgets($fp)); list($postnr[$x], $bynavn[$x]) = split(chr(9), $linje); } } fclose($fp); $postnr_antal = $x; $fp = fopen("{$filnavn}", "r"); if ($fp) { for ($y = 1; $y < 4; $y++) { $linje = fgets($fp); } $tmp = $linje; while ($tmp = substr(strstr($tmp, ";"), 1)) { $semikolon++; } $tmp = $linje; while ($tmp = substr(strstr($tmp, ","), 1)) { $komma++; } $tmp = $linje; while ($tmp = substr(strstr($tmp, chr(9)), 1)) { $tabulator++; } $tmp = ''; if ($komma > $semikolon && $komma > $tabulator) { $tmp = 'Komma'; $feltantal = $komma; } elseif ($semikolon > $tabulator && $semikolon > $komma) { $tmp = 'Semikolon'; $feltantal = $semikolon; } elseif ($tabulator > $semikolon && $tabulator > $komma) { $tmp = 'Tabulator'; $feltantal = $tabulator; } if (!$splitter) { $splitter = $tmp; } $cols = $feltantal + 1; } fclose($fp); for ($y = 0; $y <= $feltantal; $y++) { for ($x = 0; $x <= $felt_antal; $x++) { if ($felt_navn[$x] && $feltnavn[$y] == $felt_navn[$x] && $felt_aktiv[$x] == 1) { print "<BODY onLoad=\"javascript:alert('Der kan kun være 1 kolonne med {$felt_navn[$x]}')\">"; $feltnavn[$y] = ''; } elseif ($felt_navn[$x] && $feltnavn[$y] == $felt_navn[$x]) { $felt_aktiv[$x] = 1; } } } print "<tr><td colspan={$cols}><hr></td></tr>\n"; if (!$splitter || $splitter == 'Semikolon') { $splitter = ';'; } elseif ($splitter == 'Komma') { $splitter = ','; } elseif ($splitter == 'Tabulator') { $splitter = chr(9); } # print "<tr><td><span title='Angiv 1. bilagsnummer'><input type=text size=4 name=bilag value=$bilag></span></td>"; transaktion('begin'); #echo "delete from kontoplan where regnskabsaar='$regnskabsaar'<br>"; #db_modify("delete from de where regnskabsaar='$regnskabsaar'"); $fp = fopen("{$filnavn}", "r"); if ($fp) { $kontonumre = array(); $x = 0; $imp_antal = 0; while (!feof($fp)) { $skriv_linje = 0; if ($linje = trim(fgets($fp))) { $x++; $skriv_linje = 1; if ($charset == 'UTF-8') { $linje = utf8_encode($linje); } $felt = array(); $felt = opdel($splitter, $linje); for ($y = 0; $y <= $feltantal; $y++) { $felt[$y] = trim($felt[$y]); $feltnavn[$y] = strtolower($feltnavn[$y]); if (substr($felt[$y], 0, 1) == '"' && substr($felt[$y], -1) == '"') { $felt[$y] = substr($felt[$y], 1, strlen($felt[$y]) - 2); } if ($feltnavn[$y] == 'kontonr' && !is_numeric($felt[$y])) { $kontonr = 0; $skriv_linje = 2; # print "<BODY onLoad=\"javascript:alert('Røde linjer indeholder fejl (kontonummer ikke numerisk) og bliver ikke importeret')\">"; # print "<BODY onLoad=\"javascript:alert('Kontonrnummer skal være numerisk')\">"; } elseif ($feltnavn[$y] == 'kontonr') { $kontonr = $felt[$y]; } if ($feltnavn[$y] == "postnr") { list($felt[$y], $bynavn[$y]) = split(" ", $felt[$y], 2); } if ($feltnavn[$y] == 'kontoansvarlig' && $felt[$y] && $kontonr) { $r = db_fetch_array(db_select("select id from adresser where kontonr='{$kontonr}'", __FILE__ . " linje " . __LINE__)); $konto_id = $r['id'] * 1; $r = db_fetch_array(db_select("select id from ansatte where initialer='{$felt[$y]}' and konto_id={$konto_id}", __FILE__ . " linje " . __LINE__)); $felt[$y] = $r['id'] * 1; } elseif ($feltnavn[$y] == 'kontoansvarlig') { $felt[$y] = '0'; } if ($feltnavn[$y] == 'oprettet' && $felt[$y] && $kontonr) { $felt[$y] = usdate($felt[$y]); } elseif ($feltnavn[$y] == 'oprettet') { $felt[$y] = date("Y-m-d"); } if ($feltnavn[$y] == 'kreditmax') { $felt[$y] = usdecimal($felt[$y]); } if ($feltnavn[$y] == 'betalingsdage') { $felt[$y] = $felt[$y] * 1; } } } if ($skriv_linje == 1) { $addr_a = ''; $addr_b = ''; $kontakt_a = ''; $kontakt_b = ''; for ($y = 0; $y <= $feltantal; $y++) { if ($feltnavn[$y]) { $felt[$y] = addslashes($felt[$y]); if (!strstr($feltnavn[$y], "kontakt_")) { if ($y > 0) { $addr_a = $addr_a . ","; $addr_b = $addr_b . ","; } $addr_a = $addr_a . $feltnavn[$y]; $addr_b = $addr_b . "'" . $felt[$y] . "'"; } else { if ($kontakt_a) { $kontakt_a = $kontakt_a . ","; $kontakt_b = $kontakt_b . ","; } $tmp = substr($feltnavn[$y], 8); $kontakt_a = $kontakt_a . $tmp; $kontakt_b = $kontakt_b . "'" . $felt[$y] . "'"; } } } if ($r = db_fetch_array(db_select("select id from adresser where kontonr='{$kontonr}'", __FILE__ . " linje " . __LINE__))) { $imp_antal++; db_modify("delete from adresser where id = '{$r['id']}'", __FILE__ . " linje " . __LINE__); db_modify("insert into adresser(id,{$addr_a},art) values ({$r['id']},{$addr_b},'K')", __FILE__ . " linje " . __LINE__); } else { $imp_antal++; db_modify("insert into adresser({$addr_a}, art) values ({$addr_b}, 'K')", __FILE__ . " linje " . __LINE__); } $r = db_fetch_array(db_select("select id from adresser where kontonr='{$kontonr}' and art = 'K'", __FILE__ . " linje " . __LINE__)); $konto_id = $r['id']; if ($kontakt_a && !($r = db_fetch_array(db_select("select id from ansatte where konto_id='{$konto_id}'", __FILE__ . " linje " . __LINE__)))) { db_modify("insert into ansatte({$kontakt_a}, konto_id) values ({$kontakt_b}, '{$konto_id}')", __FILE__ . " linje " . __LINE__); } } } } fclose($fp); transaktion('commit'); print "</tbody></table>"; print "</td></tr>"; print "<BODY onLoad=\"javascript:alert('{$imp_antal} adresser importeret')\">"; print "<meta http-equiv=\"refresh\" content=\"0;URL=../includes/luk.php\">"; }
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); }
$gl_betalingsbet = $r['betalingsbet']; $gl_betalingsdage = $r['betalingsdage']; $betalingsdage[$x] = str_replace("*=", "", $betalingsdage[$x]); $ny_betalingsbet = $betalingsbet[$x]; $ny_betalingsdage = $betalingsdage[$x]; } elseif ($gl_betalingsbet && $ny_betalingsbet && $betalingsbet[$x] == $gl_betalingsbet && $betalingsdage[$x] == $gl_betalingsdage) { $betalingsbet[$x] = $ny_betalingsbet; $betalingsdage[$x] = $ny_betalingsdage; } if (!$betalingsbet[$x]) { $betalingsbet[$x] = 'Netto'; } $firmanavn[$x] = db_escape_string($firmanavn[$x]); $email[$x] = db_escape_string($email[$x]); $fakturadate = usdate($fakturadato[$x]); $nextfakt = usdate($genfakt[$x]); $udskriv_til[$x] == 'email' ? $mail_fakt = 'on' : ($mail_fakt = ''); $udskriv_til[$x] == 'PBS_BS' || $udskriv_til[$x] == 'PBS_FI' ? $pbs = 'on' : ($pbs = ''); if ($udskriv_til[$x] == 'oioubl') { if ($art == "DO") { $oioubl = 'faktura'; } else { $oioubl = 'kreditnota'; } } else { $oioubl = NULL; } db_modify("update ordrer set firmanavn='{$firmanavn[$x]}',fakturadate='{$fakturadate}',nextfakt='{$nextfakt}',email='{$email[$x]}',udskriv_til='{$udskriv_til[$x]}',mail_fakt='{$mail_fakt}',projekt='{$projekt[$x]}',betalingsbet='{$betalingsbet[$x]}',betalingsdage='{$betalingsdage[$x]}',procenttillag='{$procenttillag[$x]}' where id='{$ordreliste[$x]}'", __FILE__ . " linje " . __LINE__); if ($nextfakt <= $fakturadate) { $fejltekst = "Genfaktureringsdato skal være efter fakturadato ({$firmanavn[$x]})"; }
$id = $_POST['id']; $egen_id = $_POST['egen_id']; $historik_id = $_POST['historik_id']; $ansat = $_POST['ansat']; $kontakt = $_POST['kontakt']; if ($_POST['oprettet']) { $oprettet = $_POST['oprettet']; } if ($_POST['kontaktet']) { $kontaktet = usdate($_POST['kontaktet']); } else { $kontaktet = date("Y-m-d"); } $kontaktes = $_POST['kontaktes']; if ($kontaktes) { $kontaktes = usdate($kontaktes); } else { $kontaktes = NULL; } $notat = addslashes(trim($_POST['note'])); if ($kontaktes || $notat) { $r = db_fetch_array(db_select("select id from ansatte where konto_id = '{$egen_id}' and navn = '{$ansat}'", __FILE__ . " linje " . __LINE__)); $ansat_id = $r['id'] * 1; $r = db_fetch_array(db_select("select id from ansatte where konto_id = '{$id}' and navn = '{$kontakt}'", __FILE__ . " linje " . __LINE__)); $kontakt_id = $r['id'] * 1; if ($historik_id) { db_modify("update historik set kontakt_id = {$kontakt_id}, ansat_id = {$ansat_id}, notat = '{$notat}', kontaktet = '{$kontaktet}' where id = {$historik_id}", __FILE__ . " linje " . __LINE__); } else { $notedate = date("Y-m-d"); $r = db_fetch_array(db_select("select id from ansatte where konto_id = '{$egen_id}' and navn = '{$ansat}'", __FILE__ . " linje " . __LINE__)); $ansat_id = $r[id] * 1;
function overfoer_data($filnavn, $splitter, $feltnavn, $feltantal) { global $charset; global $kontotype; global $art; $x = 0; $fp = fopen("../importfiler/postnr.csv", "r"); if ($fp) { while (!feof($fp)) { $x++; $linje = trim(fgets($fp)); list($postnr[$x], $bynavn[$x]) = explode(chr(9), $linje); } } fclose($fp); $postnr_antal = $x; $fp = fopen("{$filnavn}", "r"); if ($fp) { for ($y = 1; $y < 4; $y++) { $linje = fgets($fp); } $tmp = $linje; while ($tmp = substr(strstr($tmp, ";"), 1)) { $semikolon++; } $tmp = $linje; while ($tmp = substr(strstr($tmp, ","), 1)) { $komma++; } $tmp = $linje; while ($tmp = substr(strstr($tmp, chr(9)), 1)) { $tabulator++; } $tmp = ''; if ($komma > $semikolon && $komma > $tabulator) { $tmp = 'Komma'; $feltantal = $komma; } elseif ($semikolon > $tabulator && $semikolon > $komma) { $tmp = 'Semikolon'; $feltantal = $semikolon; } elseif ($tabulator > $semikolon && $tabulator > $komma) { $tmp = 'Tabulator'; $feltantal = $tabulator; } if (!$splitter) { $splitter = $tmp; } $cols = $feltantal + 1; } fclose($fp); for ($y = 0; $y <= $feltantal; $y++) { for ($x = 0; $x <= $felt_antal; $x++) { if ($felt_navn[$x] && $feltnavn[$y] == $felt_navn[$x] && $felt_aktiv[$x] == 1) { print "<BODY onLoad=\"javascript:alert('Der kan kun være 1 kolonne med {$felt_navn[$x]}')\">"; $feltnavn[$y] = ''; } elseif ($felt_navn[$x] && $feltnavn[$y] == $felt_navn[$x]) { $felt_aktiv[$x] = 1; } } } print "<tr><td colspan={$cols}><hr></td></tr>\n"; if (!$splitter || $splitter == 'Semikolon') { $splitter = ';'; } elseif ($splitter == 'Komma') { $splitter = ','; } elseif ($splitter == 'Tabulator') { $splitter = chr(9); } transaktion('begin'); #$felt_antal=$feltantal; $ryd_firmanavn = 0; $fp = fopen("{$filnavn}", "r"); if ($fp) { $kontonumre = array(); $x = 0; $imp_antal = 0; while (!feof($fp)) { # $feltantal=$felt_antal; $skriv_linje = 0; if ($linje = trim(fgets($fp))) { $x++; $skriv_linje = 1; if ($charset == 'UTF-8') { $linje = utf8_encode($linje); } $felt = array(); $felt = opdel($splitter, $linje); # if ($ryd_firmanavn) $felt[$ryd_firmanavn]=''; if (in_array('pbs_nr', $feltnavn) && !in_array('pbs', $feltnavn)) { $feltantal++; $pbs = $feltantal; $feltnavn[$feltantal] = 'pbs'; $felt[$feltantal] = ''; } if (in_array('husnr', $feltnavn)) { $felt = add2felt($feltantal, 'husnr', 'addr1', $feltnavn, $felt); } if (in_array('etage', $feltnavn)) { $felt = add2felt($feltantal, 'etage', 'addr1', $feltnavn, $felt); } if (in_array('fornavn', $feltnavn) && !in_array('firmanavn', $feltnavn)) { $feltantal++; $ryd_firmanavn = $feltantal; $feltnavn[$feltantal] = 'firmanavn'; $felt[$feltantal] = ''; } if (in_array('efternavn', $feltnavn) && !in_array('firmanavn', $feltnavn)) { $feltantal++; $ryd_firmanavn = $feltantal; $feltnavn[$feltantal] = 'firmanavn'; $felt[$feltantal] = ''; } if (in_array('fornavn', $feltnavn)) { $felt = add2felt($feltantal, 'fornavn', 'firmanavn', $feltnavn, $felt); } if (in_array('efternavn', $feltnavn)) { $felt = add2felt($feltantal, 'efternavn', 'firmanavn', $feltnavn, $felt); } for ($y = 0; $y <= $feltantal; $y++) { $felt[$y] = trim($felt[$y]); $feltnavn[$y] = strtolower($feltnavn[$y]); if (substr($felt[$y], 0, 1) == '"' && substr($felt[$y], -1) == '"') { $felt[$y] = substr($felt[$y], 1, strlen($felt[$y]) - 2); } if ($feltnavn[$y] == 'kontonr' && !is_numeric($felt[$y])) { $kontonr = 0; $skriv_linje = 2; } elseif ($feltnavn[$y] == 'kontonr') { $kontonr = $felt[$y]; } if ($feltnavn[$y] == 'pbs_nr' && $felt[$y]) { $felt[$pbs] = 'on'; } if ($feltnavn[$y] == "postnr") { list($felt[$y], $bynavn[$y]) = explode(" ", $felt[$y], 2); } if ($feltnavn[$y] == 'kontoansvarlig' && $felt[$y] && $kontonr) { $r = db_fetch_array(db_select("select id from adresser where kontonr='{$kontonr}'", __FILE__ . " linje " . __LINE__)); $konto_id = $r['id'] * 1; $r = db_fetch_array(db_select("select id from ansatte where initialer='{$felt[$y]}' and konto_id={$konto_id}", __FILE__ . " linje " . __LINE__)); $felt[$y] = $r['id'] * 1; } elseif ($feltnavn[$y] == 'kontoansvarlig') { $felt[$y] = '0'; } if ($feltnavn[$y] == 'oprettet' && $felt[$y] && $kontonr) { $felt[$y] = usdate($felt[$y]); } elseif ($feltnavn[$y] == 'oprettet') { $felt[$y] = date("Y-m-d"); } if ($feltnavn[$y] == 'kreditmax') { $felt[$y] = usdecimal($felt[$y]); } if ($feltnavn[$y] == 'betalingsdage') { $felt[$y] = $felt[$y] * 1; } } } if ($skriv_linje == 1) { $addr_a = ''; $addr_b = ''; $upd = ''; $kontakt_a = ''; $kontakt_b = ''; for ($y = 0; $y <= $feltantal; $y++) { if ($feltnavn[$y] && $feltnavn[$y] != 'husnr' && $feltnavn[$y] != 'etage') { $felt[$y] = trim(addslashes($felt[$y])); if (!strstr($feltnavn[$y], "kontakt_")) { if ($y > 0) { $addr_a = $addr_a . ","; $addr_b = $addr_b . ","; $upd = $upd . ","; } $addr_a = $addr_a . $feltnavn[$y]; $addr_b = $addr_b . "'" . $felt[$y] . "'"; $upd = $upd . $feltnavn[$y] . "='" . $felt[$y] . "'"; } else { if ($kontakt_a) { $kontakt_a = $kontakt_a . ","; $kontakt_b = $kontakt_b . ","; } $tmp = substr($feltnavn[$y], 8); $kontakt_a = $kontakt_a . $tmp; $kontakt_b = $kontakt_b . "'" . $felt[$y] . "'"; } } } if (!strpos($addr_a, 'lukket')) { $addr_a = $addr_a . ",lukket"; $addr_b = $addr_b . ",''"; } if (!strpos($addr_a, 'gruppe')) { $addr_a = $addr_a . ",gruppe"; $addr_b = $addr_b . ",'1'"; $upd = $upd . ",gruppe='1'"; } if (!strpos($addr_a, 'art')) { $addr_a = $addr_a . ",art"; $addr_b = $addr_b . ",'{$art}'"; $upd = $upd . ",art='{$art}'"; } else { for ($y = 0; $y <= $feltantal; $y++) { if ($feltnavn[$y] == 'art') { $art = $felt[$y]; } } } if ($r = db_fetch_array(db_select("select id from adresser where kontonr='{$kontonr}' and art='{$art}'", __FILE__ . " linje " . __LINE__))) { $konto_id = $r['id']; $imp_antal++; # echo "update adresser set $upd where id='$konto_id'<br>"; db_modify("update adresser set {$upd} where id='{$konto_id}'", __FILE__ . " linje " . __LINE__); } else { $imp_antal++; db_modify("insert into adresser({$addr_a},kontotype) values ({$addr_b},'{$kontotype}')", __FILE__ . " linje " . __LINE__); $r = db_fetch_array(db_select("select id from adresser where kontonr='{$kontonr}' and art = 'D'", __FILE__ . " linje " . __LINE__)); $konto_id = $r['id']; } if ($kontakt_a && !($r = db_fetch_array(db_select("select id from ansatte where konto_id='{$konto_id}'", __FILE__ . " linje " . __LINE__)))) { db_modify("insert into ansatte({$kontakt_a},konto_id) values ({$kontakt_b},'{$konto_id}')", __FILE__ . " linje " . __LINE__); } } } } fclose($fp); transaktion('commit'); print "</tbody></table>"; print "</td></tr>"; print "<BODY onLoad=\"javascript:alert('{$imp_antal} adresser importeret')\">"; if ($popup) { print "<meta http-equiv=\"refresh\" content=\"0;URL=../includes/luk.php\">"; } else { print "<meta http-equiv=\"refresh\" content=\"0;URL=../systemdata/diverse.php\">"; } #exit; }
function txtdaterange($date1, $date2) { if (nulldate($date1) && nulldate($date2)) { return "always"; } if (nulldate($date1) && !nulldate($date2)) { return "before " . usdate($date2); } if (!nulldate($date1) && nulldate($date2)) { return "after " . usdate($date1); } if (!nulldate($date1) && !nulldate($date2)) { return "between " . usdate($date1) . " and " . usdate($date2); } return "????"; }
$day = date("d"); $month = date("m"); $year = date("y"); $tmp = $year - 1; if ($tmp < 10) { $tmp = "0" . $tmp; } if (!$periode) { $periode = "{$day}" . "{$month}" . "{$tmp}" . ":" . "{$day}" . "{$month}" . "{$year}"; } list($fra, $til) = split(":", $periode); if (!$til) { $til = date("dmY"); } $from = usdate($fra); $to = usdate($til); $fra = dkdato($from); $til = dkdato($to); print "<table width = 100% cellpadding=\"0\" cellspacing=\"0\" border=\"0\"><tbody>"; print "<tr><td colspan=\"4\" height=\"8\">"; print "<table width=\"100%\" align=\"center\" border=\"0\" cellspacing=\"3\" cellpadding=\"0\"><tbody>"; #B $tekst = "Klik her for at lukke \"Top100\""; print "<td width=\"10%\" {$top_bund} title='{$tekst}'><a href=../includes/luk.php accesskey=L>Luk</a></td>"; print "<td width=\"80%\" {$top_bund}>Top 100 i perioden: {$fra} til {$til}</td>"; $tekst = "Klik her for at vælge en anden periode"; print "<td width=\"10%\" {$top_bund} title='{$tekst}'><a href=top100.php?periode={$periode}&ret=on accesskey=P>Periode<br></a></td>"; print "</tbody></table>"; print "</td></tr>\n"; if ($ret) { $tekst = "Skriv fra & til dato som mmddåå:mmddåå. Hvis der kun skrives én dato, sættes dato til dags dato.";
$returside = "rapport.php?varegruppe={$varegruppe}"; } if (isset($_POST['dato']) && $_POST['dato']) { $dato = $_POST['dato']; $varegruppe = trim($_POST['varegruppe']); setcookie("saldi_lagerstatus", $varegruppe); } elseif (!$varegruppe) { $dato = date("d-m-Y"); $varegruppe = $_COOKIE['saldi_lagerstatus']; if (!$varegruppe) { $varegruppe = "0:Alle"; } } $csv = if_isset($_GET['csv']); $dd = date("Y-m-d"); $date = usdate($dato); $dato = dkdato($date); $x = 0; $q1 = db_select("select kodenr, box9 from grupper where art = 'VG' and box8 = 'on'", __FILE__ . " linje " . __LINE__); while ($r1 = db_fetch_array($q1)) { $x++; $lagervare[$x] = $r1['kodenr']; $batchvare[$x] = $r1['box9']; } $x = 0; $q1 = db_select("select kodenr from grupper where art = 'LG'", __FILE__ . " linje " . __LINE__); while ($r1 = db_fetch_array($q1)) { $x++; $lager[$x] = $r1['kodenr']; } if (count($lager) >= 1) {