function betalingsdage($fakturadate, $forfaldsdate)
{
list($faktaar, $faktmd, $faktdag) = split("-", $fakturadate);
list($forfaldsaar, $forfaldsmd, $forfaldsdag) = split("-", $forfaldsdate);
$diffaar = $forfaldsaar - $faktaar;
$diffmd = $forfaldsmd - $faktmd;
$diffdag = $forfaldsdag - $faktdag;
$dage = 0;
if ($diffmd) {
switch ($faktmd) {
case 1:
case 3:
case 5:
case 7:
case 8:
case 10:
case 12:
$dage = $dage + 31 - $faktdag;
break;
case 2:
if (checkdate($faktmd, 29, $faktaar)) {
$dage = $dage + 29 - $faktdag;
} else {
$dage = $dage + 28 - $faktdag;
}
break;
case 4:
case 6:
case 9:
case 11:
$dage = $dage + 30 - $faktdag;
break;
}
$dage = $dage + $forfaldsdag;
}
if ($diffaar) {
}
return dkdato($forfaldsaar . "-" . $forfaldsmd . "-" . $betalingsdage);
}
function forfaldsdag($fakturadate, $betalingsbet, $betalingsdage)
{
$betalingsbet = strtolower($betalingsbet);
list($faktaar, $faktmd, $faktdag) = explode("-", $fakturadate);
$forfaldsaar = $faktaar;
$forfaldsmd = $faktmd;
$forfaldsdag = $faktdag;
$slutdag = 31;
if ($fakturadate && $betalingsbet != "efterkrav" && $betalingsbet != "kontant") {
while (!checkdate($forfaldsmd, $slutdag, $forfaldsaar)) {
$slutdag--;
if ($slutdag < 27) {
break 1;
}
}
if ($betalingsbet != "netto") {
$forfaldsdag = $slutdag;
}
# Saa maa det vaere lb. md
$forfaldsdag = $forfaldsdag + $betalingsdage;
while ($forfaldsdag > $slutdag) {
$forfaldsmd++;
if ($forfaldsmd > 12) {
$forfaldsaar++;
$forfaldsmd = 1;
}
$forfaldsdag = $forfaldsdag - $slutdag;
$slutdag = 31;
while (!checkdate($forfaldsmd, $slutdag, $forfaldsaar)) {
$slutdag--;
if ($slutdag < 27) {
break 1;
}
}
}
}
return dkdato($forfaldsaar . "-" . $forfaldsmd . "-" . $forfaldsdag);
}
$lev_pbs_nr = $r['pbs_nr'];
$lev_pbs = $r['pbs'];
$y = -1;
for ($x = 0; $x < $ordreantal; $x++) {
if ($r = db_fetch_array(db_select("select * from ordrer where id = '{$ordreliste[$x]}' and status<'3'", __FILE__ . " linje " . __LINE__))) {
$y++;
$id[$y] = $r['id'] * 1;
$konto_id[$y] = $r['konto_id'] * 1;
$kontonr[$y] = $r['kontonr'];
$firmanavn[$y] = stripslashes(htmlentities(trim($r['firmanavn']), ENT_COMPAT, $charset));
$addr1[$y] = stripslashes(htmlentities(trim($r['addr1']), ENT_COMPAT, $charset));
$addr2[$y] = stripslashes(htmlentities(trim($r['addr2']), ENT_COMPAT, $charset));
$postnr[$y] = stripslashes(htmlentities(trim($r['postnr']), ENT_COMPAT, $charset));
$bynavn[$y] = stripslashes(htmlentities(trim($r['bynavn']), ENT_COMPAT, $charset));
$fakturadato[$y] = dkdato($r['fakturadate']);
$genfakt[$y] = dkdato($r['nextfakt']);
$betalingsbet[$y] = $r['betalingsbet'];
$betalingsdage[$y] = $r['betalingsdage'];
$udskriv_til[$y] = $r['udskriv_til'];
$email[$y] = $r['email'];
$projekt[$y] = $r['projekt'];
$procenttillag[$y] = $r['procenttillag'] * 1;
if (!$email[$y] && $udskriv_til[$y] == 'email') {
$udskriv_til[$y] = 'PDF';
}
$r = db_fetch_array(db_select("select pbs_nr,pbs from adresser where id = '{$konto_id[$y]}'", __FILE__ . " linje " . __LINE__));
$pbs[$y] = $r['pbs'];
$pbs_nr[$y] = $r['pbs_nr'];
$r = db_fetch_array(db_select("select * from adresser where id = '{$konto_id[$y]}'", __FILE__ . " linje " . __LINE__));
$stam_firmanavn[$y] = stripslashes(htmlentities(trim($r['firmanavn']), ENT_COMPAT, $charset));
$stam_addr1[$y] = stripslashes(htmlentities(trim($r['addr1']), ENT_COMPAT, $charset));
print "<td width=\"115\"><FONT FACE={$font} SIZE=\"2\">" . findtekst(20, $sprog_id) . "</font></td>";
print "<td width=\"115\"><FONT FACE={$font} SIZE=\"2\">" . findtekst(21, $sprog_id) . "</font></td>";
print "<td width=\"115\"><FONT FACE={$font} SIZE=\"2\">" . findtekst(22, $sprog_id) . "</font></td>";
print "<td width=\"115\"><FONT FACE={$font} SIZE=\"2\">" . findtekst(23, $sprog_id) . "</font></td></tr>";
$x = 1;
#while (isset($felt_id[2][$x])|isset($felt_id[3][$x])|isset($felt_id[4][$x])|isset($felt_id[5][$x])|isset($felt_id[6][$x])|isset($felt_id[7][$x])) {
while ($x <= 5) {
for ($i = 2; $i <= 7; $i++) {
if (!isset($felt_indhold[$i][$x])) {
$felt_indhold[$i][$x] = NULL;
}
}
$sum5 = $sum5 + $felt_indhold[5][$x];
$sum6 = $sum6 + $felt_indhold[6][$x];
$sum7 = $sum7 + $felt_indhold[7][$x];
print "<tr><td width=\"115\"><FONT FACE={$font} SIZE=\"2\">" . dkdato($felt_indhold[2][$x]) . "<br></font></td>";
print "<td width=\"115\"><FONT FACE={$font} SIZE=\"2\">" . $felt_indhold[3][$x] . "<br></font></td>";
print "<td width=\"115\"><FONT FACE={$font} SIZE=\"2\">" . $felt_indhold[4][$x] . "<br></font></td>";
if ($felt_indhold[5][$x]) {
$tmp = dkdecimal($felt_indhold[5][$x]);
} else {
$tmp = '';
}
print "<td width=\"115\" align=right><FONT FACE={$font} SIZE=\"2\">{$tmp}<br></font></td>";
if ($felt_indhold[6][$x]) {
$tmp = dkdecimal($felt_indhold[6][$x]);
} else {
$tmp = '';
}
print "<td width=\"115\" align=right><FONT FACE={$font} SIZE=\"2\">{$tmp}<br></font></td>";
if ($felt_indhold[7][$x]) {
$modt_konto = $r['modt_reg'] . $tmp;
if ($r['erh']) {
$erh = $r['erh'];
} elseif ($r['modt_fi']) {
$erh = "ERH351";
} else {
$erh = "ERH356";
}
if ($erh == "ERH351" || $erh == "ERH357" || $erh == "ERH358" || $erh == "SDCK020") {
$modt_konto = $r['modt_fi'];
$kort_ref = $r['betal_id'];
} elseif ($r['faktnr']) {
$kort_ref = "Fakt: " . $r['faktnr'];
}
if ($r['forfaldsdate']) {
$forfaldsdag = str_replace("-", "", dkdato($r['forfaldsdate']));
} else {
$forfaldsdag = str_replace("-", "", forfaldsdag($r['transdate'], $r['betalingsbet'], $r['betalingsdage']));
}
$belob = dkdecimal($r['amount'] * -1);
$valuta = $r['valuta'];
if (!$valuta) {
$valuta = 'DKK';
}
if ($r['betal_id']) {
if (substr($r['betal_id'], 0, 1) == "+") {
$betal_id = substr($r['betal_id'], 1);
list($tmp, $tmp2) = explode("<", $betal_id);
if ($tmp == '04' || $tmp == '15') {
$erh = 'ERH352';
} elseif ($tmp == '71') {
$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.";
print "<form name=omsaetning action=top100.php method=post>";
print "<tr><td colspan=4 align=center title=\"{$tekst}\">Vælg periode <input type=text name=periode value=\"{$periode}\"> ";
$kred_ord_id = $row['kred_ord_id'];
$levdate = $row['levdate'];
$valuta = $row['valuta'];
$projekt[0] = $row['projekt'];
$cvrnr = $row['cvrnr'];
if ($valuta && $valuta != 'DKK') {
if ($r = db_fetch_array(db_select("select valuta.kurs as kurs, grupper.box3 as difkto from valuta, grupper where grupper.art='VK' and grupper.box1='{$valuta}' and valuta.gruppe=" . nr_cast("grupper.kodenr", __FILE__ . " linje " . __LINE__) . " and valuta.valdate <= '{$levdate}' order by valuta.valdate desc", __FILE__ . " linje " . __LINE__))) {
$valutakurs = $r['kurs'] * 1;
$difkto = $r['difkto'] * 1;
if (!db_fetch_array(db_select("select id from kontoplan where kontonr='{$difkto}' and regnskabsaar='{$regnaar}'", __FILE__ . " linje " . __LINE__))) {
print "<BODY onLoad=\"javascript:alert('Kontonr {$difkto} (kursdiff) eksisterer ikke')\">";
print "<meta http-equiv=\"refresh\" content=\"0;URL=ordre.php?id={$id}\">";
exit;
}
} else {
$tmp = dkdato($levdate);
print "<BODY onLoad=\"javascript:alert('Der er ikke nogen valutakurs for {$valuta} den {$tmp}')\">";
print "<meta http-equiv=\"refresh\" content=\"0;URL=ordre.php?id={$id}\">";
exit;
}
} else {
$valuta = 'DKK';
$valutakurs = 100;
}
if (!$row['levdate']) {
print "<BODY onLoad=\"javascript:alert('Leveringsdato SKAL udfyldes')\">";
print "<meta http-equiv=\"refresh\" content=\"0;URL=ordre.php?id={$id}\">";
exit;
} elseif (!trim($row['fakturanr'])) {
print "<BODY onLoad=\"javascript:alert('Fakturanummer SKAL udfyldes og må ikke være 0')\">";
print "<meta http-equiv=\"refresh\" content=\"0;URL=ordre.php?id={$id}\">";
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);
}
$regnskab[$x] = $r['regnskab'];
$db_navn[$x] = $r['db'];
$posteringer[$x] = $r['posteringer'] * 1;
$posteret[$x] = $r['posteret'] * 1;
$brugerantal[$x] = $r['brugerantal'] * 1;
$sidst[$x] = $r['sidst'];
# $oprettet[$x]=date("d-m-Y",$r['oprettet']);
$lukket[$x] = if_isset($r['lukket']);
$lukkes[$x] = if_isset($r['lukkes']);
$betalt_til[$x] = if_isset($r['betalt_til']);
$logintekst[$x] = if_isset($r['logintekst']);
if ($lukkes[$x]) {
$lukkes[$x] = dkdato($lukkes[$x]);
}
if ($betalt_til[$x]) {
$betalt_til[$x] = dkdato($betalt_til[$x]);
}
}
}
$antal = $x;
if ($beregn) {
$y = date("Y") - 1;
$m = date("m");
$d = date("d");
$dd = $y . "-" . $m . "-" . $d;
for ($x = 1; $x <= $antal; $x++) {
db_connect("{$sqhost}", "{$squser}", "{$sqpass}", "{$db_navn[$x]}", __FILE__ . " linje " . __LINE__);
# db_connect ("host=$sqhost dbname=$db_navn user=$squser password=$sqpass");
$r = db_fetch_array(db_select("select count(id) as transantal from transaktioner where logdate >= '{$dd}'", __FILE__ . " linje " . __LINE__));
$posteringer[$x] = $r['transantal'] * 1;
if ($r = db_fetch_array(db_select("select max(logdate) as logdate from transaktioner", __FILE__ . " linje " . __LINE__))) {
function sidste_5($kontonr, $art, $dk)
{
global $kladde_id;
global $charset;
if ($dk == "D") {
$txt = "select bilag,transdate,beskrivelse,debet as kontonr from kassekladde where k_type = '{$art}' and kredit = '{$kontonr}' and kladde_id != '{$kladde_id}' order by transdate desc";
} else {
$txt = "select bilag,transdate,beskrivelse,kredit as kontonr from kassekladde where d_type = '{$art}' and debet = '{$kontonr}' and kladde_id != '{$kladde_id}' order by transdate desc";
}
$retur = "<table border=1><tbody>";
if ($art == 'K') {
$retur .= "<tr><td colspan=4>Sidste 5 posteringer for kreditor: {$kontonr}</td></tr>";
} else {
$retur .= "<tr><td colspan=4>Sidste 5 posteringer for debitor: {$kontonr}</td></tr>";
}
$retur .= "<tr><td>bilag</td><td>dato</td><td>tekst</td><td>kontonr</td></tr>";
$x = 0;
if (is_numeric($kontonr)) {
$q = db_select($txt, __FILE__ . " linje " . __LINE__);
while ($x < 5 && ($r = db_fetch_array($q))) {
if ($r['kontonr']) {
$x++;
// 20130221 htmlentities på beskrivelse:
$retur .= "<tr><td align=right>" . $r['bilag'] . "</td><td>" . dkdato($r['transdate']) . "</td><td>" . htmlentities($r['beskrivelse'], ENT_QUOTES, "{$charset}") . "</td><td>" . $r['kontonr'] . "</td></tr>";
}
}
$retur .= "</tbody></table>";
}
if ($x) {
return $retur;
} else {
return NULL;
}
}
$txt = str_replace('($enhedspris/$enhed)', '', $txt);
$txt = str_replace('$enhedspris/$enhed', '', $txt);
}
} else {
$txt = str_replace('$enhedspris', dkdecimal($r['pris'] / $r['indhold']), $txt);
$txt = str_replace('$enhed', $r['enhed'], $txt);
}
$txt = str_replace('$img', $img, $txt);
$txt = str_replace('$pris', dkdecimal($salgspris), $txt);
$txt = str_replace('$dkkpris', $dkkpris, $txt);
$txt = str_replace('$enhed', $r['enhed'], $txt);
$txt = str_replace('$varemrk', $r['trademark'], $txt);
$txt = str_replace('$indhold', $r['indhold'], $txt);
$txt = str_replace('$special_pris', $special_price, $txt);
$txt = str_replace('$special_fra_dato', dkdato($r['special_from_date']), $txt);
$txt = str_replace('$special_til_dato', dkdato($r['special_to_date']), $txt);
$txt = str_replace('$special_fra_tid', substr($r['special_from_time'], 0, 5), $txt);
$txt = str_replace('$special_til_tid', substr($r['special_to_time'], 0, 5), $txt);
$fp = fopen("../temp/{$db}/label.html", 'w');
fwrite($fp, $txt);
fclose($fp);
include "../temp/{$db}/label.html";
/*
if ($beskrivelse) { #Dymo
print "<tr><td></td></tr>\n";
print "<tr><td align=\"center\"><font face=\"verdana\" size=\"2\">$beskrivelse</font></td></tr>\n";
print "<tr><td align=\"center\"><font face=\"verdana\" size=\"2\">Pris: ".dkdecimal($pris);
if ($enhed && $indhold) {
print " (".dkdecimal($pris/$indhold)."/$enhed)";
}
print "</font></td></tr>\n";
function valutaopslag($amount, $valuta, $transdate)
{
global $connection;
global $fejltext;
$r = db_fetch_array(db_select("select * from valuta where gruppe = '{$valuta}' and valdate <= '{$transdate}' order by valdate desc", __FILE__ . " linje " . __LINE__));
if ($r['kurs']) {
$kurs = $r['kurs'];
$amount = afrund($amount * $kurs / 100, 2);
# decimal rettet fra 3 til 2 20090617 grundet fejl i saldi_58_20090617-2224
} else {
$r = db_fetch_array(db_select("select box1 from grupper where art = 'VK' and kodenr = '{$valuta}'", __FILE__ . " linje " . __LINE__));
$tmp = dkdato($transdate);
$fejltext = "---";
print "<BODY onLoad=\"javascript:alert('Ups - ingen valutakurs for {$r['box1']} den {$tmp}')\">";
}
$r = db_fetch_array(db_select("select box3 from grupper where art = 'VK' and kodenr = '{$valuta}'", __FILE__ . " linje " . __LINE__));
$diffkonto = $r['box3'];
return array($amount, $diffkonto, $kurs);
# 3'die parameter tilfojet 2009.02.10
}
if ($fakturadate && $betalingsbet != "Efterkrav") {
while (!checkdate($forfaldsmd, $slutdag, $forfaldsaar)) {
$slutdag--;
if ($slutdag < 27) {
break 1;
}
}
if ($betalingsbet != "Netto") {
$forfaldsdag = $slutdag;
}
# Saa maa det vaere lb. md
$forfaldsdag = $forfaldsdag + $betalingsdage;
while ($forfaldsdag > $slutdag) {
$forfaldsmd++;
if ($forfaldsmd > 12) {
$forfaldsaar++;
$fortfaldsmd = 1;
}
$forfaldsdag = $forfaldsdag - $slutdag;
$slutdag = 31;
while (!checkdate($forfaldsmd, $slutdag, $forfaldsaar)) {
$slutdag--;
if ($slutdag < 27) {
break 1;
}
}
}
}
$forfaldsdato = dkdato($forfaldsaar . "-" . $forfaldsmd . "-" . $forfaldsdag);
$fakturadato = dkdato($fakturadate);
}
print "<td colspan=2 align=right><input type=submit accesskey=\"g\" value=\"Gem\" name=\"submit\" onclick=\"javascript:docChange = false;\"></td></tr>\n";
}
print "</td></tbody></table></td>";
#tabel3b s**t;
print "<td colspan=4><textarea name=\"note\" rows=\"10\" cols=\"100\" onchange=\"javascript:docChange = true;\">{$notat}</textarea></td></tr>\n";
print "</form>";
$q = db_select("select * from historik where konto_id = {$id} order by kontaktet desc, id desc", __FILE__ . " linje " . __LINE__);
print "<tr><td colspan=6><hr></td></tr>";
while ($r = db_fetch_array($q)) {
$ansat_id = $r['ansat_id'] * 1;
$kontakt_id = $r['kontakt_id'] * 1;
$ansat = str_replace(" ", " ", $r1['navn']);
$notedato = dkdato($r['notedate']);
$kontaktet = dkdato($r['kontaktet']);
if ($r['kontaktes']) {
$kontaktes = dkdato($r['kontaktes']);
} else {
$kontaktes = '';
}
$r1 = db_fetch_array(db_select("select navn from ansatte where id = {$ansat_id}", __FILE__ . " linje " . __LINE__));
$ansat = str_replace(" ", " ", $r1['navn']);
$r1 = db_fetch_array(db_select("select navn, tlf, mobil, email, notes from ansatte where id = {$kontakt_id}", __FILE__ . " linje " . __LINE__));
$kontakt = str_replace(" ", " ", $r1['navn']);
$notat = str_replace(" ", " ", htmlentities($r['notat'], ENT_COMPAT, $charset));
$notat = str_replace("\n", "<br>", $notat);
$dokument = $r['dokument'];
print "<tr><td><table border=0 width=100%><tbody>";
print "<tr><td colspan=2 width=100% >{$ansat} =><span title=\"D: {$r1['tlf']} M: {$r1['mobil']} E: {$r1['email']} B: {$r1['notes']}\"> {$kontakt}</span></td></tr>";
print "<tr><td colspan=2>{$kontaktet} {$kontaktes}</td></tr>";
# if ($r[notedate]==date("Y-m-d"))
print "<tr><td><a href=historikkort.php?id={$id}&historik_id={$r['id']}&handling=ret> ret </a> <a href=historikkort.php?id={$id}&historik_id={$r['id']}&handling=slet onClick=\"return Slet()\"> slet </a></td>";
function varelinjer($ordre_id, $faktdate, $udlign_date, $provision, $faktnr, $firmanavn, $pro_procent)
{
global $kostkilde;
$linje_id = array();
# $q1 = db_select("SELECT DISTINCT ordrelinjer.id as linje_id, ordrelinjer.vare_id as vare_id, ordrelinjer.antal as antal, ordrelinjer.pris as pris, ordrelinjer.rabat as rabat, varer.kostpris as kostpris, varer.gruppe as gruppe, batch_salg.batch_kob_id as batch_kob_id from ordrelinjer, varer, batch_salg where ordrelinjer.ordre_id='$ordre_id' and varer.id = ordrelinjer.vare_id and batch_salg.linje_id=ordrelinjer.id");
$q1 = db_select("SELECT DISTINCT ordrelinjer.id as linje_id, ordrelinjer.vare_id as vare_id, ordrelinjer.antal as antal, ordrelinjer.pris as pris, ordrelinjer.rabat as rabat, varer.kostpris as kostpris, varer.gruppe as gruppe from ordrelinjer, varer where ordrelinjer.ordre_id='{$ordre_id}' and varer.id = ordrelinjer.vare_id");
$y = 1000;
while ($r1 = db_fetch_array($q1)) {
if (!in_array($r1[linje_id], $linje_id)) {
$y++;
$linje_id[$y] = $r1['linje_id'];
$pris[$y] = 0;
$kostpris[$y] = 0;
$pris[$y] = ($r1['pris'] - $r1['pris'] / 100 * $r1['rabat']) * $r1['antal'];
$pris[$x] = $pris[$x] + $pris[$y];
if ($kostkilde == 'kort') {
$kostpris[$y] = $r1['kostpris'] * $r1['antal'];
$kostpris[$x] = $kostpris[$x] + $kostpris[$y];
} else {
$r2 = db_fetch_array(db_select("SELECT box8 from grupper where art='VG' and kodenr = '{$r1['gruppe']}'"));
if ($r2[box8] == 'on') {
$q3 = db_select("SELECT batch_salg.antal as antal, batch_kob.pris as kostpris from batch_kob, batch_salg where batch_salg.linje_id='{$r1['linje_id']}' and batch_kob.id=batch_salg.batch_kob_id");
while ($r3 = db_fetch_array($q3)) {
# $r3=db_fetch_array(db_select("SELECT pris as kostpris from batch_kob where id= '$r1[batch_kob_id]'"));
$kostpris[$y] = $r3['kostpris'] * $r3['antal'];
# if ($faktnr==168) echo "168 - $pris[$y]=($r1[pris]-($r1[pris]/100*$r1[rabat]))*$r1[antal] --- $kostpris[$y]=$r3[kostpris]*$r3[antal]<br>";
# if ($faktnr==173) echo "173 - $pris[$y]=($r1[pris]-($r1[pris]/100*$r1[rabat]))*$r1[antal] --- $kostpris[$y]=$r3[kostpris]*$r3[antal]<br>";
# if ($faktnr==174) echo "174 - $pris[$y]=($r1[pris]-($r1[pris]/100*$r1[rabat]))*$r1[antal] --- $kostpris[$y]=$r3[kostpris]*$r3[antal]<br>";
$kostpris[$x] = $kostpris[$x] + $kostpris[$y];
}
} else {
$kostpris[$y] = $r1['kostpris'] * $r1['antal'];
$kostpris[$x] = $kostpris[$x] + $kostpris[$y];
}
}
}
}
$tmp = $pris[$x] - $kostpris[$x];
$tmp2 = $tmp / 100 * $provision / 100 * $pro_procent;
print "<tr><td>" . dkdato($faktdate) . "</td><td> " . dkdato($udlign_date) . "</td>";
print "<td align=right onClick=\"javascript:d_ordre=window.open('../debitor/ordre.php?id={$ordre_id}','d_ordre','scrollbars=yes,resizable=yes,dependent=yes');d_ordre.focus();\" onMouseOver=\"this.style.cursor = 'pointer'\"><u><span title=\"{$firmanavn}\">{$faktnr}</span></u></td>";
print "<td align=right>" . dkdecimal($kostpris[$x]) . "</td><td align=right>" . dkdecimal($pris[$x]) . "</td><td align=right>" . dkdecimal($tmp) . "</td><td align=right>" . dkdecimal($tmp2) . "</td></tr>";
return array($pris[$x], $kostpris[$x], $tmp2);
}
function udskriv($idnumre, $bilagsnumre, $kladdenumre, $fakturanumre, $kontonumre, $transdatoer, $logdatoer, $debetbelob, $kreditbelob, $logtid, $beskrivelse, $sort, $start, $skriv, $projektnumre)
{
global $bgcolor;
global $bgcolor5;
global $linjeantal;
global $regnaar;
global $vis_projekt;
global $rettigheder;
global $csv;
if ($sort == 'id') {
$sort = 'transaktioner.id';
}
$ret_projekt = substr($rettigheder, 1, 1);
if ($csv) {
$fp = fopen("../temp/{$db}/kontrolspor.csv", "w");
fwrite($fp, "Id" . chr(9) . "Dato" . chr(9) . "Logdato" . chr(9) . "Logtid" . chr(9) . "Kladde id" . chr(9) . "Bilag" . chr(9) . "Kontonr" . chr(9) . "Kontonavn" . chr(9) . "Faktura" . chr(9) . "Debet" . chr(9) . "Kredit" . chr(9) . "Projekt" . chr(9) . "Beskrivelse\n");
}
$udvaelg = '';
if ($idnumre) {
$udvaelg = $udvaelg . udvaelg($idnumre, 'transaktioner.id', 'NR');
}
if ($bilagsnumre) {
$udvaelg = $udvaelg . udvaelg($bilagsnumre, 'transaktioner.bilag', 'NR');
}
if ($kladdenumre) {
$udvaelg = $udvaelg . udvaelg($kladdenumre, 'transaktioner.kladde_id', 'NR');
}
if ($fakturanumre) {
$udvaelg = $udvaelg . udvaelg($fakturanumre, 'transaktioner.faktura', 'TEXT');
}
if ($kontonumre) {
$udvaelg = $udvaelg . udvaelg($kontonumre, 'transaktioner.kontonr', 'NR');
}
if ($transdatoer) {
$udvaelg = $udvaelg . udvaelg($transdatoer, 'transaktioner.transdate', 'DATO');
}
if ($logdatoer) {
$udvaelg = $udvaelg . udvaelg($logdatoer, 'transaktioner.logdate', 'DATO');
}
if ($debetbelob) {
$udvaelg = $udvaelg . udvaelg($debetbelob, 'transaktioner.debet', 'BELOB');
}
if ($kreditbelob) {
$udvaelg = $udvaelg . udvaelg($kreditbelob, 'transaktioner.kredit', 'BELOB');
}
if ($projektnumre) {
$udvaelg = $udvaelg . udvaelg($projektnumre, 'transaktioner.projekt', '');
}
if ($logtid) {
$udvaelg = $udvaelg . udvaelg($logtid, 'transaktioner.logtime', 'TID');
}
$udvaelg = trim($udvaelg);
if (substr($udvaelg, 0, 3) == 'and') {
$udvaelg = "where" . substr($udvaelg, 3);
}
if ($sort == "logdate") {
$sort = $sort . ", logtime";
}
$beskrivelse = trim(strtolower($beskrivelse));
if (substr($beskrivelse, 0, 1) == '*') {
$beskrivelse = substr($beskrivelse, 1);
$startstjerne = 1;
}
if (substr($beskrivelse, -1, 1) == '*') {
$beskrivelse = substr($beskrivelse, 0, strlen($beskrivelse) - 1);
$slutstjerne = 1;
}
$b_strlen = strlen($beskrivelse);
if (!$udvaelg) {
$udvaelg = "where";
} else {
$udvaelg = $udvaelg . " and";
}
$x = 0;
# echo "select transaktioner.*, kontoplan.beskrivelse as kontonavn from transaktioner, kontoplan $udvaelg kontoplan.regnskabsaar='$regnaar' and kontoplan.kontonr = transaktioner.kontonr order by $sort<br>";
$query = db_select("select transaktioner.*, kontoplan.beskrivelse as kontonavn from transaktioner, kontoplan {$udvaelg} kontoplan.regnskabsaar='{$regnaar}' and kontoplan.kontonr = transaktioner.kontonr order by {$sort}", __FILE__ . " linje " . __LINE__);
while ($row = db_fetch_array($query)) {
if ($beskrivelse && $row['beskrivelse']) {
$udskriv = 0;
if ($startstjerne) {
if ($slutstjerne) {
if (strpos(strtolower($row['beskrivelse']), $beskrivelse)) {
$udskriv = 1;
}
} elseif (substr(strtolower($row['beskrivelse']), -$b_strlen, $b_strlen) == $beskrivelse) {
$udskriv = 1;
}
} elseif ($slutstjerne) {
if (substr(strtolower($row['beskrivelse']), 0, $b_strlen) == $beskrivelse) {
$udskriv = 1;
}
} elseif (strtolower($row['beskrivelse']) == $beskrivelse) {
$udskriv = 1;
}
} else {
$udskriv = 1;
}
if ($udskriv) {
$x++;
}
# echo "(($x>=$start)&&($x<$start+$linjeantal) && ($udskriv))<br>";
if ($x >= $start && $x < $start + $linjeantal && $udskriv || $csv) {
$y++;
if ($csv || $skriv) {
# echo "Y1 $y<br>";
$transdato = dkdato($row['transdate']);
$logdato = dkdato($row['logdate']);
$debetsum = afrund($debetsum + $row['debet'], 2);
$kreditsum = afrund($kreditsum + $row['kredit'], 2);
if ($skriv && !$csv) {
if ($linjebg != $bgcolor) {
$linjebg = $bgcolor;
$color = '#000000';
} else {
$linjebg = $bgcolor5;
$color = '#000000';
}
print "<tr bgcolor=\"{$linjebg}\">";
print "<td align=right> {$row['id']}</span><br></td>";
print "<td align=right> {$transdato}<br></td>";
print "<td align=right> {$logdato}<br></td>";
print "<td align=right>" . substr($row['logtime'], 0, 5) . "<br></td>";
print "<td align=right> {$row['kladde_id']}<br></td>";
print "<td align=right> {$row['bilag']}<br></td>";
print "<td align=right><span title='{$row['kontonavn']}'>{$row['kontonr']}<br></span></td>";
print "<td align=right> {$row['faktura']}<br></td>";
if ($row[debet]) {
print "<td align=right> " . dkdecimal($row['debet']) . "<br></td>";
} else {
print "<td> </td>";
}
if ($row[kredit]) {
print "<td align=right> " . dkdecimal($row['kredit']) . "<br></td>";
} else {
print "<td> </td>";
}
if ($vis_projekt) {
$row['projekt'] && $ret_projekt ? $title = "Projektnummeret kan rettes ved at klikke her" : ($title = NULL);
$ret_projekt ? $tmp = "<a href=\"../includes/ret_transaktion.php?id={$row['id']}&felt=projekt\">{$row['projekt']}</a>" : ($tmp = $row['projekt']);
print "<td align=right title=\"{$title}\">{$tmp}<br></td>";
}
print "<td> {$row['beskrivelse']}<br></td>";
print "</tr>\n";
}
if ($csv) {
fwrite($fp, $row['id'] . chr(9) . $transdato . chr(9) . $logdato . chr(9) . substr($row['logtime'], 0, 5) . chr(9) . $row['kladde_id'] . chr(9) . $row['bilag'] . chr(9) . $row['kontonr'] . chr(9) . utf8_decode(stripslashes($row['kontonavn'])) . chr(9) . $row['faktura'] . chr(9) . dkdecimal($row['debet']) . chr(9) . dkdecimal($row['kredit']) . chr(9) . $row['projekt'] . chr(9) . utf8_decode(stripslashes($row['beskrivelse'])) . "\n");
}
}
}
}
if ($csv) {
fclose($fp);
print "<BODY onLoad=\"JavaScript:window.open('../temp/{$db}/kontrolspor.csv' ,'' ,'{$jsvars}');\">\n";
}
if (!$csv && ($debetsum || $kreditsum)) {
$vis_projekt ? $colspan = 12 : ($colspan = 11);
print "<tr><td colspan=\"{$colspan}\"><hr></td></tr>";
print "<td colspan=8>Kontrolsum<br></td><td align=right>" . dkdecimal($debetsum) . "<br></td><td align=right>" . dkdecimal($kreditsum) . "<br></td><td><br></td></tr>";
}
# print "<tr><td colspan=11><hr></td></tr>";
# echo "Y2 $y<br>";
return $y;
}
function formulartekst($id, $formular, $formularsprog)
{
print "<!--function formulartekst start-->";
# global $formular;
global $momssats;
global $dkdato;
global $connection;
global $fp;
global $side;
# global $formularsprog;
if ($id) {
$rabat = 0;
include "../includes/ordreopslag.php";
if ($art == "DO") {
$art = "Faktura";
} else {
$art = "Kreditnota";
}
$query = db_select("select * from ordrelinjer where ordre_id = '{$id}' and rabat > '0'", __FILE__ . " linje " . __LINE__);
if ($row = db_fetch_array($query)) {
$rabat = "y";
}
$faktdato = dkdato($fakturadate);
$query = db_select("select * from ordrelinjer where ordre_id = '{$id}' and rabat > '0'", __FILE__ . " linje " . __LINE__);
if ($row = db_fetch_array($query)) {
$rabat = "y";
}
}
#cho "select * from formularer where formular = '$formular' and art = '1' and beskrivelse != 'LOGO' and lower(sprog)='$formularsprog'<br>";
$query = db_select("select * from formularer where formular = '{$formular}' and art = '1' and beskrivelse != 'LOGO' and lower(sprog)='{$formularsprog}'", __FILE__ . " linje " . __LINE__);
while ($row = db_fetch_array($query)) {
$xa = $row['xa'] * 2.86;
$ya = $row['ya'] * 2.86;
$xb = $row['xb'] * 2.86;
$yb = $row['yb'] * 2.86;
$lw = $row['str'];
$color = $row['color'];
$tmp = strlen($color);
for ($a = $tmp; $a < 9; $a++) {
$color = "0" . $color;
}
$tmp1 = substr($color, -9, 3) / 100;
$tmp2 = substr($color, -6, 3) / 100;
$tmp3 = substr($color, -3, 3) / 100;
$color = "{$tmp1} {$tmp2} {$tmp3} setrgbcolor";
if ($xa) {
fwrite($fp, " {$xa} {$ya} moveto {$xb} {$yb} lineto {$lw} setlinewidth {$color} stroke \n");
}
}
if ($id) {
find_form_tekst($id, 'A', $formular, 0, 0, 0);
}
return $rabat;
print "<!--function formulartekst s**t-->";
}
function momsangivelse($regnaar, $maaned_fra, $maaned_til, $aar_fra, $aar_til, $dato_fra, $dato_til, $konto_fra, $konto_til, $rapportart, $ansat_fra, $ansat_til, $afd, $projekt_fra, $projekt_til, $simulering, $lagerbev)
{
global $connection;
global $top_bund;
global $md;
global $ansatte;
global $ansatte_id;
global $afd_navn;
global $prj_navn_fra;
global $prj_navn_til;
global $menu;
$medtag_primo = if_isset($_GET['medtag_primo']);
if ($row = db_fetch_array(db_select("select firmanavn from adresser where art='S'", __FILE__ . " linje " . __LINE__))) {
$firmanavn = $row['firmanavn'];
}
if ($afd && ($row = db_fetch_array(db_select("select beskrivelse from grupper where art='AFD' and kodenr='{$afd}'", __FILE__ . " linje " . __LINE__)))) {
$afd_navn = $row['beskrivelse'];
}
$regnaar = $regnaar * 1;
#fordi den er i tekstformat og skal vaere numerisk
# list ($x, $maaned_fra) = explode(" ", $maaned_fra);
# list ($x, $maaned_til) = explode(" ", $maaned_til);
$maaned_fra = trim($maaned_fra);
$maaned_til = trim($maaned_til);
$konto_fra = trim($konto_fra);
$konto_til = trim($konto_til);
$mf = $maaned_fra;
$mt = $maaned_til;
for ($x = 1; $x <= 12; $x++) {
if ($maaned_fra == $md[$x]) {
$maaned_fra = $x;
}
if ($maaned_til == $md[$x]) {
$maaned_til = $x;
}
if (strlen($maaned_fra) == 1) {
$maaned_fra = "0" . $maaned_fra;
}
if (strlen($maaned_til) == 1) {
$maaned_til = "0" . $maaned_til;
}
}
$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;
##
$regnaarstart = $startaar . "-" . $startmaaned . "-" . '01';
if ($maaned_fra) {
$startmaaned = $maaned_fra;
}
if ($maaned_til) {
$slutmaaned = $maaned_til;
}
if ($dato_fra) {
$startdato = $dato_fra;
}
if ($dato_til) {
$slutdato = $dato_til;
}
# if ($slutmaaned<10){$slutmaaned="0".$slutmaaned;}
while (!checkdate($startmaaned, $startdato, $startaar)) {
$startdato = $startdato - 1;
if ($startdato < 28) {
break 1;
}
}
while (!checkdate($slutmaaned, $slutdato, $slutaar)) {
$slutdato = $slutdato - 1;
if ($slutdato < 28) {
break 1;
}
}
if (strlen($startdato) < 2) {
$startdato = "0" . $startdato;
}
$regnstart = $aar_fra . "-" . $startmaaned . "-" . $startdato;
$regnslut = $aar_til . "-" . $slutmaaned . "-" . $slutdato;
# $regnstart = $startaar. "-" . $startmaaned . "-" . $startdato;
# $regnslut = $slutaar . "-" . $slutmaaned . "-" . $slutdato;
# print " <a accesskey=L href=\"rapport.php?rapportart=$rapportart®naar=$regnaar&dato_fra=$startdato&maaned_fra=$mf&dato_til=$slutdato&maaned_til=$mt&konto_fra=$konto_fra&konto_til=$konto_til&afd=$afd\">Luk</a><br><br>";
print "<table width = 100% cellpadding=\"1\" cellspacing=\"1\" border=\"0\"><tbody>";
if ($menu == 'T') {
$leftbutton = "<a title=\"Klik her for at komme til forsiden af rapporter\" href=\"rapport.php?rapportart=kontokort®naar={$regnaar}&dato_fra={$startdato}&maaned_fra={$mf}&aar_fra={$aar_fra}&dato_til={$slutdato}&maaned_til={$mt}&aar_til={$aar_til}&konto_fra={$konto_fra}&konto_til={$konto_til}&ansat_fra={$ansat_fra}&ansat_til={$ansat_til}&afd={$afd}&projekt_fra={$projekt_fra}&projekt_til={$projekt_til}&simulering={$simulering}&lagerbev={$lagerbev}\" accesskey=\"L\">LUK</a>";
$rightbutton = "";
include "../includes/topmenu.php";
} elseif ($menu == 'S') {
include "../includes/sidemenu.php";
} else {
print "<tr><td colspan=\"6\" height=\"8\">";
print "<table width=\"100%\" align=\"center\" border=\"0\" cellspacing=\"3\" cellpadding=\"0\"><tbody>";
#B
print "<td width=\"10%\" {$top_bund}><a accesskey=L href=\"rapport.php?rapportart={$rapportart}®naar={$regnaar}&dato_fra={$startdato}&maaned_fra={$mf}&aar_fra={$aar_fra}&dato_til={$slutdato}&maaned_til={$mt}&aar_til={$aar_til}&konto_fra={$konto_fra}&konto_til={$konto_til}&ansat_fra={$ansat_fra}&ansat_til={$ansat_til}&afd={$afd}&projekt_fra={$projekt_fra}&projekt_til={$projekt_til}&simulering={$simulering}&lagerbev={$lagerbev}\">Luk</a></td>";
print "<td width=\"80%\" {$top_bund}> Rapport - " . ucfirst($rapportart) . "</td>";
print "<td width=\"10%\" {$top_bund}><br></td>";
print "</tbody></table>";
#B s**t
print "</td></tr>";
}
print "<tr><td colspan=\"4\"><big><big>" . ucfirst($rapportart) . "</span></big></big></td>";
print "<td colspan=2 align=right><table style=\"text-align: left; width: 400px;\" border=\"0\" cellspacing=\"1\" cellpadding=\"1\"><tbody><tr>";
if ($afd) {
print "<td>Afdeling</span></td>";
print "<td>{$afd}: {$afd_navn}</span></td></tr>";
}
print "<td>Regnskabsår</span></td>";
print "<td>{$regnaar}.</span></td></tr>";
print "<tr><td>Periode</span></td>";
print "<td>Fra </td><td>" . dkdato($regnstart) . "</td></tr><tr><td></td><td>Til </td><td>" . dkdato($regnslut) . "</span></td></tr>";
if ($ansat_fra) {
if (!$ansat_til || $ansat_fra == $ansat_til) {
print "<tr><td>Medarbejder</span></td><td>{$ansatte}</span></td></tr>";
} else {
print "<tr><td>Medarbejdere</span></td><td>{$ansatte}</span></td></tr>";
}
}
if ($afd) {
print "<tr><td>Afdeling</span></td><td>{$afd_navn}</span></td></tr>";
}
if ($projekt_fra) {
print "<tr><td>Projekt</td>";
if (!strstr($projekt_fra, "?")) {
print "<td>{$prj_navn_fra} ";
if ($projekt_til && $projekt_fra != $projekt_til) {
print "- {$prj_navn_til} ";
}
} else {
print "<td>{$projekt_fra} ";
}
print "</td></tr>";
}
print "</tbody></table></td></tr>";
print "<tr><td colspan=4><big><b>{$firmanavn}</b></big></td></tr>";
print "<tr><td colspan=6><hr></td></tr>";
$dim = '';
if ($afd || $ansat_fra || $projekt_fra) {
if ($afd) {
$dim = "and afd = {$afd} ";
}
if ($ansat_fra) {
$dim = $dim . "and ansat = '{$ansat_fra}' ";
}
$projekt_fra = str2low($projekt_fra);
$projekt_til = str2low($projekt_til);
if ($projekt_fra && $projekt_til && $projekt_fra != $projekt_til) {
$dim = $dim . " and lower(projekt) >= '{$projekt_fra}' and lower(projekt) <= '{$projekt_til}' ";
} elseif ($projekt_fra) {
$tmp = str_replace("?", "_", $projekt_fra);
if (substr($tmp, -1) == '_') {
while (substr($tmp, -1) == '_') {
$tmp = substr($tmp, 0, strlen($tmp) - 1);
}
$tmp = str2low($tmp) . "%";
}
$dim = $dim . "and lower(projekt) LIKE '{$tmp}' ";
}
}
$row = db_fetch_array($query = db_select("select box1, box2 from grupper where art='MR'", __FILE__ . " linje " . __LINE__));
if ($row[box1] && $row[box2]) {
$konto_fra = $row['box1'];
$konto_til = $row['box2'];
$x = 0;
$query = db_select("select * from kontoplan where regnskabsaar='{$regnaar}' and kontonr>={$konto_fra} and kontonr<={$konto_til} order by kontonr", __FILE__ . " linje " . __LINE__);
while ($row = db_fetch_array($query)) {
$x++;
$kontonr[$x] = $row['kontonr'] * 1;
$kontobeskrivelse[$x] = $row['beskrivelse'];
$kontotype[$x] = $row['kontotype'];
$primo[$x] = $row['primo'];
$aarsum[$x] = 0;
}
$kontoantal = $x;
$kto_aar[$x] = 0;
$kto_periode[$x] = 0;
$ktonr = array();
$x = 0;
$query = db_select("select * from transaktioner where transdate>='{$regnstart}' and transdate<='{$regnslut}' and kontonr>='{$konto_fra}' and kontonr<='{$konto_til}' {$dim} order by kontonr", __FILE__ . " linje " . __LINE__);
while ($row = db_fetch_array($query)) {
if (!in_array($row['kontonr'], $ktonr)) {
# Her fanges konto med bevaegelser i perioden.
$x++;
$ktonr[$x] = $row['kontonr'] * 1;
$kto_aar[$x] = 0;
if ($medtag_primo && !$afd && ($r2 = db_fetch_array(db_select("select primo from kontoplan where regnskabsaar='{$regnaar}' and kontonr={$ktonr[$x]} and kontotype='S'", __FILE__ . " linje " . __LINE__)))) {
$kto_aar[$x] = afrund($r2['primo'], 2);
}
}
$kto_aar[$x] = $kto_aar[$x] + afrund($row['debet'], 2) - afrund($row['kredit'], 2);
}
$kto_antal = $x;
if ($medtag_primo && !$afd) {
for ($x = 1; $x <= $kontoantal; $x++) {
# Her fanges konto med primovaerdi og ingen bevaegelser i perioden.
if (!in_array($kontonr[$x], $ktonr)) {
if ($primo[$x]) {
$kto_antal++;
$ktonr[$kto_antal] = $kontonr[$x];
$kto_aar[$kto_antal] = $primo[$x];
}
}
}
}
for ($x = 1; $x <= $kontoantal; $x++) {
for ($y = 1; $y <= $kto_antal; $y++) {
if ($kontotype[$x] == 'D' || $kontotype[$x] == 'S') {
if ($kontonr[$x] == $ktonr[$y]) {
$aarsum[$x] = $aarsum[$x] + $kto_aar[$y];
}
} elseif ($kontotype[$x] == 'Z') {
if ($fra_kto[$x] <= $ktonr[$y] && $kontonr[$x] >= $ktonr[$y] && $kontonr[$x] != $ktonr[$y]) {
$aarsum[$x] = $aarsum[$x] + $kto_aar[$y];
}
}
}
}
for ($x = 1; $x <= $kontoantal; $x++) {
if ($kontonr[$x] >= $konto_fra && $kontonr[$x] <= $konto_til) {
print "<tr>";
$aarsum[$x] = afrund($aarsum[$x], 0);
print "<td>{$kontonr[$x]} </td>";
$tmp = kontobemaerkning($kontobeskrivelse[$x]);
print "<td {$tmp} colspan=3>{$kontobeskrivelse[$x]} </td>";
$row = db_fetch_array($query = db_select("select art from grupper where box1='{$kontonr[$x]}' and art<>'MR'", __FILE__ . " linje " . __LINE__));
if ($row[art] == 'SM' || $row[art] == 'YM' || $row[art] == 'EM') {
print "<td> </td>";
$tmp = dkdecimal($aarsum[$x] * -1);
} else {
$tmp = dkdecimal($aarsum[$x]);
}
print "<td align=right>{$tmp} </td>";
print "</tr>\n";
$afgiftssum = $afgiftssum + $aarsum[$x];
}
}
$tmp = dkdecimal($afgiftssum * -1);
print "<tr><td colspan=6><hr></td></tr>";
print "<tr><td></td><td> Afgiftsbeløb i alt </td><td colspan=4 align=right>{$tmp} </td></tr>";
print "<tr><td colspan=6><hr></td></tr>";
# Kommentering fjernes, naar Rubrik-konti er klar
# # Tilfoejer de fem Rubrik-konti: A1, A2, B1, B2 og C
# $row = db_fetch_array($query = db_select("select box3, box4, box5, box6, box7 from grupper where art='MR'",__FILE__ . " linje " . __LINE__));
#
# momsrubrik($row[box3], "Rubrik A. Værdien uden moms af varekøb i andre EU-lande (EU-erhvervelser)", $regnaar, $regnstart, $regnslut);
# momsrubrik($row[box4], "Rubrik A. Værdien uden moms af ydelseskøb i andre EU-lande", $regnaar, $regnstart, $regnslut);
# momsrubrik($row[box5], "Rubrik B. Værdien af varesalg uden moms til andre EU-lande (EU-leverancer)", $regnaar, $regnstart, $regnslut);
# momsrubrik($row[box6], "Rubrik B. Værdien af visse ydelsessalg uden moms til andre EU-lande", $regnaar, $regnstart, $regnslut);
# momsrubrik($row[box7], "Rubrik C. Værdien af andre varer og ydelser, der leveres uden afgift", $regnaar, $regnstart, $regnslut);
$x = 0;
print "<tr><td colspan=6><hr></td></tr>";
print "</tbody></table>";
} else {
print "<BODY onLoad=\"javascript:alert('Rapportspecifikation ikke defineret (Indstillinger -> Moms)')\">";
print "<meta http-equiv=\"refresh\" content=\"0;URL=rapport.php?rapportart=kontokort®naar={$regnaar}&dato_fra={$startdato}&maaned_fra={$mf}&dato_til={$slutdato}&maaned_til={$mt}&konto_fra={$konto_fra}&konto_til={$konto_til}&ansat_fra={$ansat_fra}&afd={$afd}&projekt_fra={$projekt_fra}&projekt_til={$projekt_til}&simulering={$simulering}&lagerbev={$lagerbev}\">";
}
}
$kodenr = $kodenr * 1;
$r = db_fetch_array(db_select("select max(transdate) as transdate from transaktioner where valuta = '{$kodenr}'", __FILE__ . " linje " . __LINE__));
$transdate = $r['transdate'];
$q = db_select("select * from valuta where gruppe = '{$kodenr}' order by valdate desc", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$x++;
if ($bgcolor1 != $bgcolor) {
$bgcolor1 = $bgcolor;
$color = '#000000';
} elseif ($bgcolor1 != $bgcolor5) {
$bgcolor1 = $bgcolor5;
$color = '#000000';
}
print "<tr bgcolor=\"{$bgcolor1}\">";
$kurs = dkdecimal($r['kurs']);
$dato = dkdato($r['valdate']);
print "<td> {$dato}</td>";
print "<td align=\"right\"> {$kurs} </td>";
if ($r['valdate'] >= $transdate) {
print "<td align=\"center\"><a {$disabled} href=\"valutakort.php?id={$r['id']}&kodenr={$kodenr}&ret=1\"> Ret</a><br></td>";
}
print "</tr>";
}
}
function ny_valuta()
{
$isovaluta = array("AED", "AFN", "ALL", "AMD", "ANG", "AOA", "ARS", "AUD", "AWG", "AZN", "BAM", "BBD", "BDT", "BGN", "BHD", "BIF", "BMD", "BND", "BOB", "BOV", "BRL", "BSD", "BTN", "BWP", "BYR", "BZD", "CAD", "CDF", "CHE", "CHF", "CHW", "CLF", "CLP", "CNY", "COP", "COU", "CRC", "CUC", "CUP", "CVE", "CZK", "DJF", "DKK", "DOP", "DZD", "EGP", "ERN", "ETB", "EUR", "FJD", "FKP", "GBP", "GEL", "GHS", "GIP", "GMD", "GNF", "GTQ", "GYD", "HKD", "HNL", "HRK", "HTG", "HUF", "IDR", "ILS", "INR", "IQD", "IRR", "ISK", "JMD", "JOD", "JPY", "KES", "KGS", "KHR", "KMF", "KPW", "KRW", "KWD", "KYD", "KZT", "LAK", "LBP", "LKR", "LRD", "LSL", "LYD", "MAD", "MDL", "MGA", "MKD", "MMK", "MNT", "MOP", "MRO", "MUR", "MVR", "MWK", "MXN", "MXV", "MYR", "MZN", "NAD", "NGN", "NIO", "NOK", "NPR", "NZD", "OMR", "PAB", "PEN", "PGK", "PHP", "PKR", "PLN", "PYG", "QAR", "RON", "RSD", "RUB", "RWF", "SAR", "SBD", "SDG", "SEK", "SGD", "SHP", "SLL", "SOS", "SRD", "SSP", "STD", "SYP", "SZL", "THB", "TJS", "TMT", "TND", "TOP", "TRY", "TTD", "TWD", "TZS", "UAH", "UGX", "USD", "UYU", "UZS", "VEF", "VND", "VUV", "XAF", "XBT", "XCD", "XOF", "XPF", "XUA", "YER", "ZAR", "ZMW", "ZWL");
# 20150327v
$r = db_fetch_array(db_select("select * from grupper where art = 'VK'", __FILE__ . " linje " . __LINE__));
$difkto = $r['box3'];
print "<form name=valutakort action=valutakort.php?kodenr=ny method=post>";
function hentordrer($kladde_id)
{
global $regnaar;
global $connection;
global $aarstart;
global $aarslut;
global $bgcolor;
global $bgcolor2;
$ksnr = array();
if (!$aarstart) {
$query = db_select("select box1, box2, box3, box4 from grupper where art='RA' and kodenr='{$regnaar}'", __FILE__ . " linje " . __LINE__);
if ($row = db_fetch_array($query)) {
$year = trim($row['box2']);
$aarstart = trim($year . $row['box1']);
$year = trim($row['box4']);
$aarslut = trim($year . $row['box3']);
}
}
$x = 0;
$ks = 0;
print "<tr><td align=center><table border=1 cellspacing=0 cellpadding=0 width=80%><tbody>";
print "<tr><td>Dato</td><td>Beskrivelse</td><td><br></td><td>Debet</td><td><br></td><td>Kredit</td><td>Fakturanr</td>\n\t\t<td align=center>Beløb</td><td align=center>Valuta</td><td align=center><a href=hentordrer.php?kladde_id={$kladde_id}&flyt=alle>Flyt alle</a></td></tr>";
$query = db_select("select * from ordrer where status=3 order by fakturadate,fakturanr", __FILE__ . " linje " . __LINE__);
while ($row = db_fetch_array($query)) {
$x++;
$id[$x] = $row['id'];
$art[$x] = $row['art'];
$konto_id[$x] = $row['konto_id'] * 1;
$kontonr[$x] = trim($row['kontonr']);
if (!in_array($kontonr[$x], $ksnr)) {
$ks++;
$ksnr[$ks] = $kontonr[$x];
}
$firmanavn[$x] = trim($row['firmanavn']);
$fakturadato[$x] = dkdato($row['fakturadate']);
$fakturanr[$x] = trim($row['fakturanr']);
$valuta[$x] = trim($row['valuta']);
if ($valuta[$x]) {
$valutakurs[$x] = $row['valutakurs'] * 1;
} else {
$valutakurs[$x] = 100;
$valuta[$x] = 'DKK';
}
$moms[$x] = $row['moms'] * 1;
$sum[$x] = $row['sum'] + $moms[$x];
if (!$konto_id[$x]) {
$firmanavn[$x] = "Kassebon";
$betalt[$x] = $row['betalt'];
$retur[$x] = $betalt[$x] - $sum[$x];
$betaling1[$x] = $row['felt_1'];
$betalt1[$x] = $row['felt_2'] * 1;
$betaling2[$x] = $row['felt_3'];
$betalt2[$x] = $row['felt_4'] * 1;
$kasse[$x] = $row['felt_5'] * 1;
$kortnavn[$x] = array();
$kortkto[$x] = array();
$r = db_fetch_array(db_select("select * from grupper where art = 'POS' and kodenr='{$kasse[$x]}'", __FILE__ . " linje " . __LINE__));
$tmparray = explode(chr(9), $r['box2']);
$kontonr[$x] = $tmparray[$kasse[$x] - 1];
if (!in_array($kontonr[$x], $ksnr)) {
$ks++;
$ksnr[$ks] = $kontonr[$x];
}
$kortnavn[$x] = explode(chr(9), $r['box5']);
$kortkto[$x] = explode(chr(9), $r['box6']);
$tmparray = explode(chr(9), $r['box7']);
$momsgruppe[$x] = $tmparray[$kasse[$x] - 1];
$z = 0;
if ($betaling1[$x] == 'Kontant') {
$kortkto1[$x] = $kontonr[$x];
$betalt1[$x] = $betalt1[$x] - $retur[$x];
$retur[$x] = 0;
}
if ($betaling2[$x] == 'Kontant') {
$kortkto2[$x] = $kontonr[$x];
$betalt2[$x] = $betalt2[$x] - $retur[$x];
$retur[$x] = 0;
}
while ($kortkto[$x][$z]) {
if (!in_array($kontonr[$x], $ksnr)) {
$ks++;
$ksnr[$ks] = $kortkto[$x][$z];
}
if ($betaling1[$x] == $kortnavn[$x][$z]) {
$kortkto1[$x] = $kortkto[$x][$z];
}
if ($betaling2[$x] == $kortnavn[$x][$z]) {
$kortkto2[$x] = $kortkto[$x][$z];
}
$z++;
}
# $r=db_fetch_array(db_select("select box1 from grupper where art='SM' and kodenr='$momskode'",__FILE__ . " linje " . __LINE__));
# $momsgruppe[$x]=trim($r['box1']);
}
}
$ordreantal = $x;
if (!$ordreantal) {
print "<meta http-equiv=\"refresh\" content=\"0;URL=kassekladde.php?kladde_id={$kladde_id}\">";
}
for ($x = 1; $x <= $ordreantal; $x++) {
if ($bg != $bgcolor) {
$bg = $bgcolor;
} else {
$bg = $bgcolor2;
}
print "<tr bgcolor={$bg}><td></td></tr>";
$query = db_select("select ordrelinjer.*, kontoplan.beskrivelse as kontonavn from ordrelinjer, kontoplan where kontoplan.kontonr=ordrelinjer.bogf_konto and kontoplan.regnskabsaar='{$regnaar}' and ordrelinjer.ordre_id={$id[$x]}", __FILE__ . " linje " . __LINE__);
$y = 0;
$bogf_konto = array();
while ($row = db_fetch_array($query)) {
$bogf_kto = $row['bogf_konto'];
if (!in_array($kontonr[$x], $ksnr)) {
$ks++;
$ksnr[$ks] = $kortkto[$x][$z];
}
if ($valuta[$x] != 'DKK' && $row['posnr'] < 0) {
$bogf_kto = $bogf_kto * -1;
}
#Ordrelinjer med negativt posnr skal bogfores i DKK og derfor isoleres
$kontonavn[$x] = str_replace(" ", " ", $row['kontonavn']);
if (!in_array($bogf_kto, $bogf_konto)) {
$y++;
$posnr[$y] = $row['posnr'];
$bogf_konto[$y] = trim($bogf_kto);
$pris[$y] = afrund($row['pris'] * $row['antal'] - $row['pris'] * $row['antal'] * $row['rabat'] / 100, 3);
} else {
for ($a = 1; $a <= $y; $a++) {
if ($bogf_konto[$a] == $bogf_kto) {
$pris[$a] = $pris[$a] + afrund($row['pris'] * $row['antal'] - $row['pris'] * $row['antal'] * $row['rabat'] / 100, 3);
}
}
}
}
if ($valuta[$x] != 'DKK') {
for ($a = 1; $a <= $y; $a++) {
$bogf_konto[$a] = abs($bogf_konto[$a]);
}
}
$ksantal = $ks;
#################### Kreditorordrer ###################
if (substr($art[$x], 0, 1) == 'K') {
for ($ks = 1; $ks <= $ksantal; $ks++) {
if ($ksnr[$ks] == $kontonr[$x]) {
$ksum[$ks] = $ksum[$ks] - $sum[$x];
}
}
if ($sum[$x] < 0) {
$dksum = dkdecimal($sum[$x] * -1);
print "<tr bgcolor={$bg}><td>{$fakturadato[$x]}<br></td><td>{$firmanavn[$x]}<br></td><td>K<br></td><td>{$kontonr[$x]}<br></td><td><br></td><td><br></td><td>{$fakturanr[$x]}<br></td><td align=right>{$dksum}<br></td><td align=right>{$valuta[$x]}<br></td>";
} else {
$dksum = dkdecimal($sum[$x]);
print "<tr bgcolor={$bg}><td>{$fakturadato[$x]}<br></td><td>{$firmanavn[$x]}<br></td><td><br></td><td><br></td><td>K<br></td><td>{$kontonr[$x]}<br></td><td>{$fakturanr[$x]}<br></td><td align=right>{$dksum}<br></td><td align=right>{$valuta[$x]}<br></td>";
}
print "<td align=center><a href=hentordrer.php?kladde_id={$kladde_id}&ordre_id={$id[$x]}>Flyt til kladde</a><br></td></tr>";
$ordrelinjer = $y;
for ($y = 1; $y <= $ordrelinjer; $y++) {
if ($bogf_konto[$y]) {
if ($posnr[$y] < 0) {
$tmpvaluta = 'DKK';
} else {
$tmpvaluta = $valuta[$x];
}
$kontoart[$y] = $art[$x];
if ($pris[$y] < 0) {
$tmp = dkdecimal($pris[$y] * -1);
print "<tr bgcolor={$bg}><td>{$fakturadato[$x]}<br></td><td>{$firmanavn[$x]}<br></td><td><br></td><td><br></td><td>F<br></td><td><span title='{$kontonavn[$x]}'>{$bogf_konto[$y]}</span><br></td><td>{$fakturanr[$x]}<br></td><td align=right>{$tmp}<br></td><td align=right>{$tmpvaluta}<br></td></tr>";
} elseif ($pris[$y] > 0) {
$tmp = dkdecimal($pris[$y]);
print "<tr bgcolor={$bg}><td>{$fakturadato[$x]}<br></td><td>{$firmanavn[$x]}<br></td><td>F<br></td><td><span title='{$kontonavn[$x]}'>{$bogf_konto[$y]}</span><br></td><td><br></td><td><br></td><td>{$fakturanr[$x]}<br></td><td align=right>{$tmp}<br></td><td align=right>{$tmpvaluta}<br></td></tr>";
}
}
}
$query = db_select("select gruppe from adresser where id='{$konto_id[$x]}';", __FILE__ . " linje " . __LINE__);
$row = db_fetch_array($query);
$query = db_select("select box1 from grupper where art='KG' and kodenr='{$row['gruppe']}';", __FILE__ . " linje " . __LINE__);
$row = db_fetch_array($query);
$box1 = substr(trim($row['box1']), 1, 1);
if (substr(trim($row['box1']), 0, 1) == 'E') {
$query = db_select("select grupper.box1, grupper.box2, grupper.box3, kontoplan.beskrivelse as kontonavn from grupper, kontoplan where grupper.art='EM' and grupper.kodenr='{$box1}' and kontoplan.kontonr=" . nr_cast("grupper.box1") . " and kontoplan.regnskabsaar='{$regnaar}'", __FILE__ . " linje " . __LINE__);
$row = db_fetch_array($query);
$box1 = $row['box3'] * 1;
# Ser lidt forvirrende ud, men den er go nok - fordi kbsmomsen ligger i box 3 v. udenlandsmoms.
$moms[$x] = $sum[$x] / 100 * $row['box2'];
$kontonavn[$x] = str_replace(" ", " ", $row['kontonavn']);
$tmp = dkdecimal($moms[$x]);
if ($moms[$x] > 0) {
print "<tr bgcolor={$bg}><td>{$fakturadato[$x]}<br></td><td>{$firmanavn[$x]}<br></td><td><br></td><td><br></td><td>F<br></td><td><span title='{$kontonavn[$x]}'>{$row['box1']}<br></td><td>{$fakturanr[$x]}<br></td><td align=right>{$tmp}<br></td><td align=right>{$valuta[$x]}<br></td></tr>";
} elseif ($moms[$x] < 0) {
print "<tr bgcolor={$bg}><td>{$fakturadato[$x]}<br></td><td>{$firmanavn[$x]}<br></td><td>F<br></td><td><span title='{$kontonavn[$x]}'>{$row['box3']}<br></td><td><br></td><td><br></td><td>{$fakturanr[$x]}<br></td><td align=right>{$tmp}<br></td><td align=right>{$valuta[$x]}<br></td></tr>";
}
$row = db_fetch_array(db_select("select beskrivelse as kontonavn from kontoplan where kontonr = {$box1} and regnskabsaar='{$regnaar}'", __FILE__ . " linje " . __LINE__));
$kontonavn[$x] = str_replace(" ", " ", $row['kontonavn']);
} else {
$query = db_select("select grupper.box1, kontoplan.beskrivelse as kontonavn from grupper, kontoplan where kontoplan.kontonr=" . nr_cast("grupper.box1") . " and kontoplan.regnskabsaar='{$regnaar}' and art='KM' and kodenr='{$box1}'", __FILE__ . " linje " . __LINE__);
$row = db_fetch_array($query);
$box1 = $row['box1'] * 1;
$kontonavn[$x] = str_replace(" ", " ", $row['kontonavn']);
}
if ($moms[$x] < 0) {
$dkmoms = dkdecimal($moms[$x] * -1);
print "<tr bgcolor={$bg}><td>{$fakturadato[$x]}<br></td><td>{$firmanavn[$x]}<br></td><td><br></td><td><br></td><td>F<br></td><td><span title='{$kontonavn[$x]}'>{$box1}</span><br></td><td>{$fakturanr[$x]}<br></td><td align=right>{$dkmoms}<br></td><td align=right>{$valuta[$x]}<br></td></tr>";
} elseif ($moms[$x] > 0) {
$dkmoms = dkdecimal($moms[$x]);
print "<tr bgcolor={$bg}><td>{$fakturadato[$x]}<br></td><td>{$firmanavn[$x]}<br></td><td>F<br></td><td><span title='{$kontonavn[$x]}'>{$box1}</span><br></td><td><br></td><td><br></td><td>{$fakturanr[$x]}<br></td><td align=right>{$dkmoms}<br></td><td align=right>{$valuta[$x]}<br></td></tr>";
}
} else {
#################### Debitor / POS ordrer ####################
for ($ks = 1; $ks <= $ksantal; $ks++) {
if ($ksnr[$ks] == $kontonr[$x]) {
$ksum[$ks] = $ksum[$ks] + $sum[$x];
}
if ($ksnr[$ks] == $kortkto1[$x]) {
$ksum[$ks] = $ksum[$ks] + $sum[$x];
}
if ($ksnr[$ks] == $kortkto2[$x]) {
$ksum[$ks] = $ksum[$ks] + $sum[$x];
}
}
if ($sum[$x] < 0) {
$dksum = dkdecimal($sum[$x] * -1);
if ($art[$x] != 'PO') {
$r = db_fetch_array(db_select("select beskrivelse as kontonavn from kontoplan where kontonr= '{$kontonr[$x]}' and regnskabsaar='{$regnaar}'", __FILE__ . " linje " . __LINE__));
print "<tr bgcolor={$bg}><td>{$fakturadato[$x]}<br></td><td>{$firmanavn[$x]}<br></td><td><br></td><td><br></td><td>D<br></td><td title='{$r['kontonavn']}'>{$kontonr[$x]}<br></td><td>{$fakturanr[$x]}<br></td><td align=right>{$dksum}<br></td><td align=right>{$valuta[$x]}<br></td></tr>";
} else {
$r = db_fetch_array(db_select("select beskrivelse as kontonavn from kontoplan where kontonr= '{$kontonr[$x]}' and regnskabsaar='{$regnaar}'", __FILE__ . " linje " . __LINE__));
print "<tr bgcolor={$bg}><td>{$fakturadato[$x]}<br></td><td>{$firmanavn[$x]}<br></td><td><br></td><td><br></td><td>F<br></td><td title='{$r['kontonavn']}'>{$kontonr[$x]}<br></td><td>{$fakturanr[$x]}<br></td><td align=right>{$dksum}<br></td><td align=right>{$valuta[$x]}<br></td></tr>";
}
} elseif ($sum[$x] > 0) {
$dksum = dkdecimal($sum[$x]);
if ($art[$x] != 'PO') {
$r = db_fetch_array(db_select("select beskrivelse as kontonavn from kontoplan where kontonr= '{$kontonr[$x]}' and regnskabsaar='{$regnaar}'", __FILE__ . " linje " . __LINE__));
print "<tr bgcolor={$bg}><td>{$fakturadato[$x]}<br></td><td>{$firmanavn[$x]}<br></td><td>D<br></td><td title='{$r['kontonavn']}'>{$kontonr[$x]}</span><br></td><td><br></td><td><br></td><td>{$fakturanr[$x]}<br></td><td align=right>{$dksum}<br></td><td align=right>{$valuta[$x]}<br></td></tr>";
} else {
if ($betaling1[$x]) {
$r = db_fetch_array(db_select("select beskrivelse as kontonavn from kontoplan where kontonr= '{$kortkto1[$x]}' and regnskabsaar='{$regnaar}'", __FILE__ . " linje " . __LINE__));
print "<tr bgcolor={$bg}><td>{$fakturadato[$x]}<br></td><td>{$firmanavn[$x]}<br></td><td>F<br></td><td title='{$r['kontonavn']}'>{$kortkto1[$x]}</span><br></td><td><br></td><td><br></td><td>{$fakturanr[$x]}<br></td><td align=right>{$betalt1[$x]}<br></td><td align=right>{$valuta[$x]}<br></td></tr>";
}
if ($betaling2[$x]) {
$r = db_fetch_array(db_select("select beskrivelse as kontonavn from kontoplan where kontonr= '{$kortkto2[$x]}' and regnskabsaar='{$regnaar}'", __FILE__ . " linje " . __LINE__));
print "<tr bgcolor={$bg}><td>{$fakturadato[$x]}<br></td><td>{$firmanavn[$x]}<br></td><td>F<br></td><td title='{$r['kontonavn']}'>{$kortkto2[$x]}</span><br></td><td><br></td><td><br></td><td>{$fakturanr[$x]}<br></td><td align=right>{$betalt2[$x]}<br></td><td align=right>{$valuta[$x]}<br></td></tr>";
}
if ($retur[$x]) {
$r = db_fetch_array(db_select("select beskrivelse as kontonavn from kontoplan where kontonr= '{$kontonr[$x]}' and regnskabsaar='{$regnaar}'", __FILE__ . " linje " . __LINE__));
print "<tr bgcolor={$bg}><td>{$fakturadato[$x]}<br></td><td>{$firmanavn[$x]}<br></td><td><br></td><td><br></td><td>F<br></td><td title='{$r['kontonavn']}'>{$kontonr[$x]}<br></td><td>{$fakturanr[$x]}<br></td><td align=right>{$retur[$x]}<br></td><td align=right>{$valuta[$x]}<br></td></tr>";
}
}
}
$ordrelinjer = $y;
for ($y = 1; $y <= $ordrelinjer; $y++) {
if ($bogf_konto[$y]) {
$kontoart[$y] = $art[$x];
if ($posnr[$y] < 0) {
$tmpvaluta = 'DKK';
} else {
$tmpvaluta = $valuta[$x];
}
if ($pris[$y] < 0) {
$pris[$y] = $pris[$y] * -1;
$pris[$y] = dkdecimal($pris[$y]);
print "<tr bgcolor={$bg}><td>{$fakturadato[$x]}<br></td><td>{$firmanavn[$x]}<br></td><td>F<br></td><td><span title='{$kontonavn[$x]}'>{$bogf_konto[$y]}</span><br></td><td><br></td><td><br></td><td>{$fakturanr[$x]}<br></td><td align=right>{$pris[$y]}<br></td><td align=right>{$tmpvaluta}<br></td></tr>";
} else {
$r = db_fetch_array(db_select("select beskrivelse as kontonavn from kontoplan where kontonr= '{$bogf_konto[$y]}' and regnskabsaar='{$regnaar}'", __FILE__ . " linje " . __LINE__));
$pris[$y] = dkdecimal($pris[$y]);
print "<tr bgcolor={$bg}><td>{$fakturadato[$x]}<br></td><td>{$firmanavn[$x]}<br></td><td><br></td><td><br></td><td>F<br></td><td><span title='{$r['kontonavn']}'>{$bogf_konto[$y]}</span><br></td><td>{$fakturanr[$x]}<br></td><td align=right>{$pris[$y]}<br></td><td align=right>{$tmpvaluta}<br></td></tr>";
}
}
}
if ($art[$x] != 'PO') {
$r = db_fetch_array(db_select("select gruppe from adresser where id='{$konto_id[$x]}'", __FILE__ . " linje " . __LINE__));
$r = db_fetch_array(db_select("select box1 from grupper where art='DG' and kodenr='{$r['gruppe']}'", __FILE__ . " linje " . __LINE__));
$momsgruppe[$x] = substr(trim($r['box1']), 1);
}
$r = db_fetch_array(db_select("select grupper.box1, kontoplan.beskrivelse as kontonavn from grupper, kontoplan where kontoplan.kontonr=" . nr_cast("grupper.box1") . " and kontoplan.regnskabsaar='{$regnaar}' and grupper.art='SM' and grupper.kodenr='{$momsgruppe[$x]}'", __FILE__ . " linje " . __LINE__));
$bfkto = trim($r['box1']);
$kontonavn[$x] = str_replace(" ", " ", $r['kontonavn']);
$dkmoms = dkdecimal($moms[$x]);
if ($art[$x] == 'DO' && $moms[$x] != 0) {
print "<tr bgcolor={$bg}><td>{$fakturadato[$x]}<br></td><td>{$firmanavn[$x]}<br></td><td><br></td><td><br></td><td>F<br></td><td><span title='{$kontonavn[$x]}'>{$bfkto}</span><br></td><td>{$fakturanr[$x]}<br></td><td align=right>{$dkmoms}<br></td><td align=right>{$valuta[$x]}<br></td></tr>";
} elseif ($art[$x] == 'PO' && $moms[$x] != 0) {
print "<tr bgcolor={$bg}><td>{$fakturadato[$x]}<br></td><td>{$firmanavn[$x]}<br></td><td><br></td><td><br></td><td>F<br></td><td><span title='{$kontonavn[$x]}'>{$bfkto}</span><br></td><td>{$fakturanr[$x]}<br></td><td align=right>{$dkmoms}<br></td><td align=right>{$valuta[$x]}<br></td></tr>";
} elseif ($moms[$x] != 0) {
print "<tr bgcolor={$bg}><td>{$fakturadato[$x]}<br></td><td>{$firmanavn[$x]}<br></td><td>F<br></td><td><span title='{$kontonavn[$x]}'>{$bfkto}</span><br></td><td><br></td><td><br></td><td>{$fakturanr[$x]}<br></td><td align=right>{$dkmoms}<br></td><td align=right>{$valuta[$x]}<br></td></tr>";
}
}
print "<tr bgcolor={$bg}><td colspan=\"9\"><br></td><td align=center><a href=hentordrer.php?kladde_id={$kladde_id}&ordre_id={$id[$x]}>Flyt til kladde</a><br></td></tr>";
$bilag = $bilag + 1;
}
# for ($ks=1;$ks<=$ksantal;$ks++) {
# if ($ksum[$ks]) print "<tr><td>$ksnr[$ks]</td><td>$ksum[$ks]</td></tr>";
# }
print "</tbody></table></td></tr>";
exit;
}
function flyt_data($kladde_id, $filnavn, $bilag, $modkonto)
{
global $charset;
transaktion('begin');
$fp = fopen("{$filnavn}", "r");
if ($fp) {
$y = 0;
$feltantal = 0;
# for ($y=1; $y<20; $y++) {
while ($linje = fgets($fp)) {
$linje = trim(utf8_encode($linje));
if ($linje) {
$y++;
$skriv_linje[$y] = 1;
list($debitor[$y], $beskrivelse[$y], , , $belob[$y], , $date[$y]) = explode(";", $linje);
if (!is_numeric($debitor[$y])) {
$skriv_linje[$y] = 0;
}
$amount[$y] = usdecimal($belob[$y]) * 1;
if (!$amount[$y]) {
$skriv_linje[$y] = 0;
}
list($aar, $maaned, $dag) = explode("-", $date[$y]);
# echo "$maaned,$dag,$aar<br>";
if (checkdate($maaned, $dag, $aar)) {
$dato[$y] = dkdato($date[$y]);
} else {
$skriv_linje[$y] = 0;
}
}
}
}
$linjeantal = $y;
fclose($fp);
for ($x = 1; $x <= $linjeantal; $x++) {
if ($skriv_linje[$x] == 1) {
$bilag++;
db_modify("insert into kassekladde (bilag,transdate,beskrivelse,d_type,debet,k_type,kredit,amount,kladde_id) values ('{$bilag}','{$date[$x]}','{$beskrivelse[$x]}','F','{$modkonto}','D','{$debitor[$x]}','{$amount[$x]}', '{$kladde_id}')", __FILE__ . " linje " . __LINE__);
}
}
fclose($fp);
unlink($filnavn);
# sletter filen.
transaktion('commit');
print "<meta http-equiv=\"refresh\" content=\"0;URL=kassekladde.php?kladde_id={$kladde_id}\">";
}
function bogfor($id, $webservice)
{
echo "<!--function bogfor start-->";
global $regnaar;
global $fakturadate;
global $valutakurs;
global $pbs;
global $mail_fakt;
global $db;
global $brugernavn;
global $momssats;
global $retur;
# $fp=fopen("../temp/ordrefunc.log","a");
# $linje="select * from ordrer where id = $id";
# fwrite($fp,$linje."\n");
$query = db_select("select * from ordrer where id = {$id}", __FILE__ . " linje " . __LINE__);
$row = db_fetch_array($query);
$konto_id = $row['konto_id'];
$ordredate = $row['ordredate'];
$levdate = $row['levdate'];
$fakturadate = $row['fakturadate'];
$nextfakt = $row['nextfakt'];
$art = $row['art'];
$kred_ord_id = $row['kred_ord_id'];
$valuta = $row['valuta'];
$art = $row['art'];
$fakturanr = $row['fakturanr'];
$procenttillag = $row['procenttillag'] * 1;
$momssats = $row['momssats'];
#cho $row['sum']." -> ".$row['moms']."<br>";
if ($art == 'PO') {
$sum = $row['sum'];
$moms = afrund($row['moms'], 2);
#cho "Moms $moms<br>";
$betaling = $row['felt_1'];
$betalt = $row['felt_2'];
$betaling2 = $row['felt_3'];
$betalt2 = $row['felt_4'];
$betalingsbet = $row['betalingsbet'];
if ($betalingsbet == 'Kontant') {
$konto_id = '0';
}
$r = db_fetch_array(db_select("select box2 from grupper where art='OreDif'", __FILE__ . " linje " . __LINE__));
$difkto = $r['box2'];
}
if ($row['status'] > '2') {
return "invoice allready created for order id {$id}";
}
#cho "procenttillag $procenttillag<br>";
if ($procenttillag) {
$sum = 0;
$q = db_select("select * from ordrelinjer where ordre_id='{$id}' order by posnr", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
if ($r['vare_id']) {
$linjesum = $r['antal'] * $r['pris'];
if ($r['rabat']) {
$linjesum -= $linjesum * $r['rabat'] / 100;
}
$linjesum -= $linjesum * (100 - $r['procent']) / 100;
$sum += $linjesum;
}
$posnr = $r['posnr'];
}
$posnr++;
$tillag = $sum / 100 * $procenttillag;
$qtxt = "select box13 from grupper where art = 'DIV' and kodenr = '3'";
#cho "$qtxt<br>";
$r = db_fetch_array(db_select($qtxt, __FILE__ . " linje " . __LINE__));
list($tmp, $procentvare) = explode(chr(9), $r['box13']);
#cho "box13 $r[box13] -> $procentvare<br>";
if ($procentvare) {
$qtxt = "select * from varer where varenr = '{$procentvare}'";
#cho "$qtxt<br>";
$r = db_fetch_array(db_select($qtxt, __FILE__ . " linje " . __LINE__));
if ($r['id']) {
#cho "$id,$r[varenr],1,$r[beskrivelse],$tillag,0,100,$art,'',$posnr,'','','on','percent',''<br>";
$tmp = str_replace('$procenttillæg;', $procenttillag, $r['beskrivelse']);
opret_ordrelinje($id, $r['id'], $r['varenr'], 1, $tmp, $tillag, 0, 100, $art, '', $posnr, '', '', 'on', 'percent', '');
#20140426
$r = db_fetch_array(db_select("select max(id) as linje_id from ordrelinjer where ordre_id='{$id}'", __FILE__ . " linje " . __LINE__));
db_modify("update ordrelinjer set leveres='1' where id='{$r['linje_id']}'", __FILE__ . " linje " . __LINE__);
levering($id, '', '', '');
$sum += $tillag;
#cho "update ordrer set sum=sum+$tillag, moms=moms+$tillag/100*$momssats where id = '$id'<br>";
db_modify("update ordrer set sum=sum+{$tillag}, moms=moms+{$tillag}/100*{$momssats} where id = '{$id}'", __FILE__ . " linje " . __LINE__);
#xit;
} else {
return 'Manglende vare til procenttillæg';
}
} else {
return 'Manglende vare til procenttillæg -- ' . $procentvare;
}
}
# $x=0;
# $saet=array();
$diff = 0;
$saetsum = 0;
$saetmoms = 0;
$q = db_select("select * from ordrelinjer where ordre_id='{$id}' order by saet", __FILE__ . " linje " . __LINE__);
$art == 'DO' ? $dan_kn = 1 : ($dan_kn = 0);
while ($r = db_fetch_array($q)) {
if ($r['vare_id'] && $r['antal'] >= 0) {
$dan_kn = 0;
}
# if ($r['saet'] && in_array($r['saet'],$saet) {
# $saetsum[$x]+=$r['pris']*$r['antal']-($r['pris']*$r['antal']*$r['rabat']/100);
# } elseif ($r['saet']) {
if ($r['saet']) {
$tmp = $r['pris'] * $r['antal'] - $r['pris'] * $r['antal'] * $r['rabat'] / 100;
$saetsum += $tmp;
if (!$r['momsfri'] && $momssats) {
$saetmoms += $tmp * $momssats / 100;
}
}
}
if ($saetsum) {
$r = db_fetch_array(db_select("select box2 from grupper where art='OreDif'", __FILE__ . " linje " . __LINE__));
$difkto = $r['box2'];
$tmp = afrund($saetsum + $saetmoms, 2);
$diff = $tmp - pos_afrund($tmp, $difkto);
# if (afrund($diff,2)) saet_afrund($id,$saetsum,$saetmoms,$difkto);
}
# $q=db_select("select * from ordrelinjer where ordre_id='$id' order by posnr",__FILE__ . " linje " . __LINE__);
# while ($r = db_fetch_array($q)) #cho "Ordrelinje $r[posnr] $r[ordre_id] $r[vare_id] $r[varenr] $r[beskrivelse] >$r[projekt]< $r[bogf_konto]<br>";
#xit;
$query = db_select("select box1, box2, box3, box4 from grupper where art='RA' and kodenr='{$regnaar}'", __FILE__ . " linje " . __LINE__);
if ($row = db_fetch_array($query)) {
$year = $row['box2'] * 1;
$month = $row['box1'] * 1;
#20130411-2
if ($month < 10) {
$month = "0" . $month;
}
#20130411-2
$aarstart = str_replace(" ", "", $year . $month);
$year = $row['box4'] * 1;
$month = $row['box3'] * 1;
if ($month < 10) {
$month = "0" . $month;
}
$aarslut = str_replace(" ", "", $year . $month);
}
$query = db_select("select * from ordrer where id = '{$id}'", __FILE__ . " linje " . __LINE__);
$row = db_fetch_array($query);
if (!$fakturadate) {
if ($webservice) {
return "missing invoicedate for order {$id}";
} else {
print "<meta http-equiv=\"refresh\" content=\"0;URL=../debitor/fakturadato.php?id={$id}&pbs={$pbs}&mail_fakt={$mail_fakt}&returside=bogfor.php\">";
exit;
}
}
if ($valuta && $valuta != 'DKK') {
if ($r = db_fetch_array(db_select("select valuta.kurs as kurs, grupper.box3 as difkto from valuta, grupper where grupper.art='VK' and grupper.box1='{$valuta}' and valuta.gruppe=" . nr_cast("grupper.kodenr") . " and valuta.valdate <= '{$fakturadate}' order by valuta.valdate desc", __FILE__ . " linje " . __LINE__))) {
$valutakurs = $r['kurs'] * 1;
$difkto = $r['difkto'] * 1;
if (!db_fetch_array(db_select("select id from kontoplan where kontonr='{$difkto}' and regnskabsaar='{$regnaar}'", __FILE__ . " linje " . __LINE__))) {
if ($webservice) {
return "Kontonr {$difkto} (kursdiff) eksisterer ikke";
} else {
return "Kontonr {$difkto} (kursdiff) eksisterer ikke";
}
}
} else {
$tmp = dkdato($fakturadate);
return "Der er ikke nogen valutakurs for {$valuta} den {$tmp} (fakturadatoen).";
}
} else {
$valuta = 'DKK';
$valutakurs = 100;
}
if (!$levdate) {
if ($webservice) {
return "Missing deliverydate";
} else {
return "Leveringsdato SKAL udfyldes";
}
}
if ($levdate < $ordredate) {
if ($webservice) {
return "Deliverydate prior to orderdate";
} else {
return "Leveringsdato er før ordredato";
}
}
if ($fakturadate < $levdate) {
if ($webservice) {
return "Invoicedate prior to orderdate";
} else {
return "Fakturadato er før leveringsdato";
}
}
if ($nextfakt && $nextfakt <= $fakturadate) {
if ($webservice) {
return "Next_invoicedate prior to invoicedate";
} else {
return "Genfaktureringsdato skal være efter fakturadato";
}
}
list($year, $month, $day) = explode('-', $fakturadate);
$year = trim($year);
$ym = $year . $month;
if ($art != 'PO' && !$webservice && ($ym < $aarstart || $ym > $aarslut)) {
print "<BODY onLoad=\"javascript:alert('Fakturadato udenfor regnskabsår')\">";
print "<meta http-equiv=\"refresh\" content=\"0;URL=ordre.php?id={$id}\">";
exit;
}
if ($valuta && $valuta != 'DKK') {
if ($r = db_fetch_array(db_select("select valuta.kurs from valuta, grupper where grupper.art='VK' and grupper.box1='{$valuta}' and valuta.gruppe=" . nr_cast("grupper.kodenr") . " and valuta.valdate <= '{$ordredate}' order by valuta.valdate desc", __FILE__ . " linje " . __LINE__))) {
$valutakurs = $r['kurs'];
} else {
$tmp = dkdato($ordredate);
return "Der er ikke nogen valutakurs for {$valuta} den {$ordredate} (ordredatoen)";
}
}
$qtxt = "select * from ordrelinjer where pris != '0' and m_rabat != '0' and rabat = '0' and ordre_id='{$id}'";
if ($r = db_fetch_array(db_select($qtxt, __FILE__ . " linje " . __LINE__))) {
$rabatkontonr = $r['bogf_konto'];
$rabatvareid = $r['id'];
$rabatvarenr = $r['varenr'];
if ($r = db_fetch_array(db_select("select box2 from grupper where art = 'DIV' and kodenr='3'", __FILE__ . " linje " . __LINE__))) {
if ($rabatvareid = $r['box2'] * 1) {
$r = db_fetch_array(db_select("select varenr from varer where id = '{$rabatvareid}'", __FILE__ . " linje " . __LINE__));
$rabatvarenr = $r['varenr'];
}
# else $fejl="Manglende varenummer for rabat (Indstillinger -> Diverse -> Ordrerelaterede valg)";
}
# else $fejl="Manglende varenummer for rabat (Indstillinger -> Diverse -> Ordrerelaterede valg)";
}
#exit;
if (!$fejl) {
#ransaktion("begin"); 20130506
if ($art != "PO") {
$fakturanr = 1;
# select max kan ikke bruges da fakturanr felt ikke er numerisk;
$q = db_select("select fakturanr from ordrer where art = 'DO' or art = 'DK'", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
if ($fakturanr <= $r['fakturanr'] * 1) {
$fakturanr = $r['fakturanr'] + 1;
}
}
$r = db_fetch_array(db_select("select box1 from grupper where art = 'RB' and kodenr='1'", __FILE__ . " linje " . __LINE__));
if ($fakturanr < $r['box1']) {
$fakturanr = $r['box1'];
}
if ($fakturanr < 1) {
$fakturanr = 1;
}
$ny_id = array();
$x = 0;
$q = db_select("select * from ordrelinjer where pris != '0' and m_rabat != '0' and rabat = '0' and ordre_id='{$id}'", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$x++;
$linje_id[$x] = $r['id'] * 1;
$linje_m_rabat[$x] = $r['m_rabat'];
$linje_pris[$x] = $r['pris'];
$linje_rabatart[$x] = $r['rabatart'];
$linje_varenr[$x] = $r['varenr'];
$linje_posnr[$x] = $r['posnr'];
}
$linjeantal = $x;
for ($x = 1; $x <= $linjeantal; $x++) {
$ny_id[$x] = copy_row("ordrelinjer", $linje_id[$x]);
$pris = $linje_m_rabat[$x];
$pris *= -1;
$rabatpct = afrund($linje_m_rabat[$x] * 100 / $linje_pris[$x], 2);
$linje_rabatart[$x] == 'amount' ? $beskrivelse = findtekst(466, $sprog_id) : ($beskrivelse = findtekst(467, $sprog_id));
$beskrivelse = str_replace('$rabatpct', $rabatpct, $beskrivelse);
#cho "update ordrelinjer set posnr=posnr+0.1,varenr='$rabatvarenr',vare_id='$rabatvareid',pris='$pris',kostpris='0',m_rabat='0',beskrivelse='$beskrivelse',bogf_konto='$rabatkontonr',kdo='on' where id=$ny_id[$x]<br>";
#exit;
db_modify("update ordrelinjer set posnr=posnr+0.1,varenr='{$rabatvarenr}',vare_id='{$rabatvareid}',pris='{$pris}',kostpris='0',m_rabat='0',beskrivelse='{$beskrivelse}',bogf_konto='{$rabatkontonr}',kdo='on' where id={$ny_id[$x]}", __FILE__ . " linje " . __LINE__);
$r = db_fetch_array(db_select("select * from ordrelinjer where id='{$ny_id[$x]}'", __FILE__ . " linje " . __LINE__));
#cho "$r[id],$r[ordre_id],$r[posnr],$r[varenr],$r[vare_id],$r[pris],$r[kostpris],$r[m_rabat],$r[beskrivelse],$r[bogf_konto]<br>--<br>";
}
} else {
# Så er det en POS ordre
#cho "$konto_id==0 && $sum+$moms=!$betalt<br>";
$diff = 0;
if ($betaling == 'Kontant' && !$betaling2) {
$tmp1 = afrund($sum + $moms, 2);
$tmp2 = pos_afrund($sum + $moms, $difkto);
if ($afrunding = $tmp2 - $tmp1) {
#cho "A $afrunding $tmp2-$tmp1<br>";
if ($moms) {
$afrundingsmoms = afrund($afrunding * ($moms * 100 / $sum) / 100, 2);
$afrunding = afrund($afrunding - $afrundingsmoms, 2);
$sum += $afrunding;
$moms += $afrundingsmoms;
}
#cho "A1 $afrunding $tmp2-$tmp1<br>";
# $diff=1;
$diff = $afrunding;
}
}
if (afrund($sum + $moms, 2) + $retur != $betalt) {
#20140613
$returdiff = afrund($sum + $moms, 2) + $retur - $betalt;
if (afrund($returdiff, 2) == 0.01) {
$moms = $moms - 0.01;
} elseif (afrund($returdiff, 2) == -0.01) {
$moms = $moms + 0.01;
}
db_modify("update ordrer set sum = '{$sum}',moms='{$moms}' where id = '{$id}'", __FILE__ . " linje " . __LINE__);
}
$a = afrund($sum + $moms, 2);
#20131111 + næste 3 linjer rettet grundet php fejl??
$b = afrund($betalt + $betalt2, 2);
if ($konto_id == 0 && $a != $b) {
# $retur=$a-$b; Hentes fra global.
$tmp2 = afrund($retur, 2);
$tmp1 = pos_afrund($retur, $difkto);
#cho "B $afrunding $tmp2-$tmp1<br>";
if ($afrunding = afrund($tmp2 - $tmp1, 2)) {
#cho "B $afrunding $tmp2-$tmp1<br>";
if ($moms) {
$afrundingsmoms = afrund($afrunding * ($moms * 100 / $sum) / 100, 2);
$afrunding = afrund($afrunding - $afrundingsmoms, 2);
$sum += $afrunding;
$moms += $afrundingsmoms;
}
$diff += $afrunding;
}
}
#xit;
#cho "DK $difkto && DI $diff && AF $afrunding Moms $moms<br>";
$diff = afrund($diff, 2);
#20140613
if ($difkto && $diff) {
$linje_posnr[$x] += 0.1;
# #cho "POI insert into ordrelinjer (posnr,antal,pris,rabat,procent,ordre_id,bogf_konto,beskrivelse,projekt) values ('0','1', '$diff', 0,100, '$id', '$difkto','Afrunding','$projekt')<br>";
db_modify("insert into ordrelinjer (posnr,antal,pris,rabat,procent,ordre_id,bogf_konto,beskrivelse,projekt) values ('0','1', '{$diff}', 0,100, '{$id}', '{$difkto}','Afrunding','{$projekt}')", __FILE__ . " linje " . __LINE__);
db_modify("update ordrer set sum = '{$sum}',moms='{$moms}' where id = '{$id}'", __FILE__ . " linje " . __LINE__);
}
}
#cho "A select * from ordrer where id='$id'<br>";
$q = db_select("select * from ordrer where id='{$id}'", __FILE__ . " linje " . __LINE__);
$r = db_fetch_array($q);
#cho "Sum $r[sum] $r[moms]<br>";
batch_kob($id, $art);
#cho "B select * from ordrer where id='$id'<br>";
$q = db_select("select * from ordrer where id='{$id}'", __FILE__ . " linje " . __LINE__);
$r = db_fetch_array($q);
#cho "Sum $r[sum] $r[moms]<br>";
batch_salg($id);
#cho "D select * from ordrer where id='$id'<br>";
$q = db_select("select * from ordrer where id='{$id}'", __FILE__ . " linje " . __LINE__);
$r = db_fetch_array($q);
#cho "Sum $r[sum] $r[moms]<br>";
#cho "update ordrer set status=3, fakturanr=$fakturanr, valutakurs=$valutakurs where id=$id<br>";
$tidspkt = date("H:i");
db_modify("update ordrer set status='3', fakturanr='{$fakturanr}', tidspkt='{$tidspkt}', valutakurs='{$valutakurs}' where id='{$id}'", __FILE__ . " linje " . __LINE__);
if ($afd) {
db_modify("update ordrer set felt_5='{$afd}' where id='{$id}'", __FILE__ . " linje " . __LINE__);
}
$r = db_fetch_array(db_select("select box5 from grupper where art='DIV' and kodenr='3'", __FILE__ . " linje " . __LINE__));
$straksbogfor = $r['box5'];
$svar = momsupdat($id);
if ($art == 'PO' && !$konto_id) {
$r = db_fetch_array(db_select("select box9 from grupper where art='POS' and kodenr='1'", __FILE__ . " linje " . __LINE__));
$straksbogfor = $r['box9'];
}
#$linje="Straksbogfor $straksbogfor ($id,$webservice)<br>";
#fwrite($fp,$linje."\n");
if ($dan_kn) {
db_modify("update ordrer set art = 'DK' where id = '{$id}'", __FILE__ . " linje " . __LINE__);
}
if ($straksbogfor) {
$svar = bogfor_nu($id, $webservice);
}
#$linje="Svar $svar<br>";
#fwrite($fp,$linje."\n");
if ($svar != "OK") {
return $svar;
exit;
} else {
# exit;
#ransaktion("commit"); 20130506
}
} elseif (!$svar) {
$svar = $fejl;
}
echo "<!--function bogfor s**t-->";
return $svar;
}
# $tmp=dkdecimal($sum,2);
} elseif ($valg != 'faktura') {
if ($vis_felt[$x] == "sum") {
print dkdecimal($sum, 2);
} else {
print dkdecimal($sum_m_moms, 2);
}
}
if ($valg == 'faktura') {
$sum = bidrag($vis_felt[$x], $sum, $sum_m_moms, $kostpris, $udlignet);
# if ($checked[$ordreantal]=='on' || $check_all) $checked[$ordreantal]='checked';
# print "<td align=right><input class=\"inputbox\" type=\"checkbox\" name=\"checked[$ordreantal]\" $checked[$ordreantal]></td>";
# print "<input type=hidden name=ordre_id[$ordreantal] value=$row[id]>";
}
} elseif (strpos($vis_felt[$x], "date") || $vis_felt[$x] == "nextfakt") {
print dkdato($row[$vis_felt[$x]]);
} else {
$tmp = $vis_felt[$x];
print $row[$tmp];
}
print "</td>";
}
if ($valg == 'faktura' || $valg == 'ordrer' && $nextfakt) {
$vis_ret_next = 1;
if ($checked[$ordreantal] == 'on' || $check_all) {
$checked[$ordreantal] = 'checked';
}
print "<td align=right><input class=\"inputbox\" type=\"checkbox\" name=\"checked[{$ordreantal}]\" {$checked[$ordreantal]}></td>";
} else {
print "<td><br></td>";
}
function varegruppe($date_from, $date_to, $varenr, $varenavn, $varegruppe, $detaljer, $vk_kost, $afd)
{
# global $connection;
global $top_bund;
global $md;
global $returside;
global $jsvars;
if ($detaljer) {
$cols = 9;
} else {
$cols = 11;
}
list($gruppenr, $tmp) = explode(":", $varegruppe);
# if ($returside) $luk= "<a accesskey=L href=\"$returside\">";
# else
$luk = "<a accesskey=L href=\"rapport.php?varegruppe={$varegruppe}&afd={$afd}&date_from={$date_from}&date_to={$date_to}&varenr={$varenr}&varenavn={$varenavn}&detaljer={$detaljer}\">";
print "<table width = 100% cellpadding=\"1\" cellspacing=\"1\" border=\"0\"><tbody>";
print "<tr><td colspan=\"{$cols}\" height=\"9\">";
print "<table width=\"100%\" align=\"center\" border=\"0\" cellspacing=\"3\" cellpadding=\"0\"><tbody>";
#B
print "<td width=\"10%\" {$top_bund}>{$luk} Luk</a></td>";
print "<td width=\"80%\" {$top_bund}>Rapport - varesalg";
if ($afd) {
$r = db_fetch_array(db_select("select beskrivelse from grupper where art = 'AFD' and kodenr = '{$afd}'", __FILE__ . " linje " . __LINE__));
print " - afd {$afd} {$r['beskrivelse']}";
}
print "</td>";
print "<td width=\"10%\" {$top_bund}><br></td>";
print "</tbody></table>";
#B s**t
print "</td></tr>";
$lagergruppe = array();
if ($gruppenr) {
$qtxt = "select box8,box9 from grupper where kodenr ='{$gruppenr}' and art='VG'";
$r = db_fetch_array(db_select($qtxt, __FILE__ . " linje " . __LINE__));
$batch_kontrol = $r['box9'];
if ($r['box8'] == 'on') {
$lagergruppe[0] = $gruppenr;
}
} else {
$x = 0;
$qtxt = "select kodenr,box8,box9 from grupper where art='VG' order by kodenr";
$q = db_select($qtxt, __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
if ($r['box8'] == 'on') {
$lagergruppe[$x] = $r['kodenr'];
$x++;
}
}
}
$antal = 0;
$k_antal = 0;
$s_antal = 0;
$kontonr = array();
$x = 0;
$tmp = "";
if ($gruppenr) {
$tmp = "where " . nr_cast(gruppe) . "={$gruppenr}";
}
if ($varenr && $varenr != '*') {
if (strstr($varenr, "*")) {
if (substr($varenr, 0, 1) == '*') {
$varenr = "%" . substr($varenr, 1);
}
if (substr($varenr, -1, 1) == '*') {
$varenr = substr($varenr, 0, strlen($varenr) - 1) . "%";
}
}
$low = strtolower($varenr);
$upp = strtoupper($varenr);
if ($tmp) {
$tmp .= " and (varenr LIKE '" . db_escape_string($varenr) . "' or lower(varenr) LIKE '" . db_escape_string($low) . "' or upper(varenr) LIKE '" . db_escape_string($upp) . "')";
} else {
$tmp = "where (varenr LIKE '" . db_escape_string($varenr) . "' or lower(varenr) LIKE '" . db_escape_string($low) . "' or upper(varenr) LIKE '" . db_escape_string($upp) . "')";
}
}
if ($varenavn && $varenavn != '*') {
if (strstr($varenavn, "*")) {
if (substr($varenavn, 0, 1) == '*') {
$varenavn = "%" . substr($varenavn, 1);
}
if (substr($varenavn, -1, 1) == '*') {
$varenavn = substr($varenavn, 0, strlen($varenavn) - 1) . "%";
}
}
$low = strtolower($varenavn);
$upp = strtoupper($varenavn);
if ($tmp) {
$tmp .= " and (beskrivelse LIKE '" . db_escape_string($varenavn) . "' or lower(beskrivelse) LIKE '" . db_escape_string($low) . "' or upper(beskrivelse) LIKE '" . db_escape_string($upp) . "')";
} else {
$tmp = "where (beskrivelse LIKE '" . db_escape_string($varenavn) . "' or lower(beskrivelse) LIKE '" . db_escape_string($low) . "' or upper(beskrivelse) LIKE '" . db_escape_string($upp) . "')";
}
}
$qtxt = "select id,gruppe,samlevare from varer {$tmp} order by beskrivelse";
$x = 0;
$query = db_select("{$qtxt}", __FILE__ . " linje " . __LINE__);
while ($row = db_fetch_array($query)) {
if (!$row['samlevare'] || in_array($row['gruppe'], $lagergruppe)) {
#20151105
$x++;
$vare_id[$x] = $row['id'];
}
#cho "A $vare_id[$x]<br>";
}
$v_id = array();
$x = 0;
# finder alle konti med bevaegelser i den anfoerte periode eller aabne poster fra foer perioden
$qtxt = "select batch_salg.vare_id,batch_salg.pris from batch_salg,varer";
if ($afd) {
$qtxt .= ",ordrer";
}
$qtxt .= " where batch_salg.fakturadate>='{$date_from}' and batch_salg.fakturadate<='{$date_to}' and batch_salg.vare_id = varer.id";
if ($afd) {
$qtxt .= " and batch_salg.ordre_id = ordrer.id and ordrer.afd='{$afd}'";
}
$qtxt .= " order by varer.beskrivelse";
$query = db_select($qtxt, __FILE__ . " linje " . __LINE__);
while ($row = db_fetch_array($query)) {
if (in_array(trim($row['vare_id']), $vare_id) && !in_array(trim($row['vare_id']), $v_id)) {
$x++;
$v_id[$x] = trim($row['vare_id']);
#cho "B $v_id[$x]<br>";
}
}
#cho "select vare_id, pris from batch_kob where fakturadate>='$date_from' and fakturadate<='$date_to' order by vare_id<br>";
$query = db_select("select batch_kob.vare_id,batch_kob.pris from batch_kob,varer where batch_kob.fakturadate>='{$date_from}' and batch_kob.fakturadate<='{$date_to}' and batch_kob.vare_id = varer.id order by varer.beskrivelse", __FILE__ . " linje " . __LINE__);
while ($row = db_fetch_array($query)) {
if (in_array(trim($row['vare_id']), $vare_id) && !in_array(trim($row['vare_id']), $v_id)) {
$x++;
$v_id[$x] = trim($row['vare_id']);
}
}
$vareantal = $x;
# print "<tr><td colspan=8><hr></td></tr>";
# print "<tr><td width=10%> Dato</td><td width=10%> Bilag</td><td width=50%> Tekst</td><td width=10% align=right> Debet</td><td width=10% align=right> Kredit</td><td width=10% align=right> Saldo</td></tr>";
if (!$detaljer) {
print "<tr><td><b>Varenr.</b></td>\n\t\t\t\t<td><b>Enhed</b></td>\n\t\t\t\t<td><b>Beskrivelse</b></td>\n\t\t\t\t<td align=\"right\"><b>Købt</b></td>\n\t\t\t\t<td align=\"right\"><b>Købspris</b></td>\n\t\t\t\t<td align=\"right\"><b>Solgt</b></td>\n\t\t\t\t<td align=\"right\"><b>Salgspris</b></td>\n\t\t\t\t<td align=\"right\"><b>Reguleret</b></td>\n\t\t\t\t<td align=\"right\"><b>DB</b></td>\n\t\t\t\t<td align=\"right\"><b>DG</b></td>\n\t\t\t\t<td align=\"right\"><b>Til- / afgang</b></td></tr>";
}
$tt_kobt = 0;
$tt_solgt = 0;
$tt_regul = 0;
$tt_k_pris = 0;
$tt_s_pris = 0;
$tt_kost = 0;
$tt_db = 0;
$varenr = array();
$enhed = array();
$beskrivelse = array();
for ($x = 1; $x <= $vareantal; $x++) {
$r = db_fetch_array(db_select("select * from varer where id={$v_id[$x]}", __FILE__ . " linje " . __LINE__));
$varenr[$x] = $r['varenr'];
$enhed[$x] = $r['enhed'];
$beskrivelse[$x] = $r['beskrivelse'];
$v_kostpris[$x] = $r['kostpris'];
$samlevare[$x] = $r['samlevare'];
}
for ($x = 1; $x <= $vareantal; $x++) {
$y = 0;
$fakturadate = array();
$bk_id = array();
$linje_id = array();
$k_ordre_id = array();
$k_antal = array();
$pris = array();
$t_kobt = 0;
$t_regul = 0;
$t_k_pris = 0;
$t_moms = 0;
$qtxt = "select * from batch_kob where vare_id='{$v_id[$x]}' order by fakturadate,ordre_id";
$q = db_select($qtxt, __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$ok = 1;
if ($r['fakturadate'] && $r['fakturadate'] <= $date_to && $r['fakturadate'] >= $date_from) {
$bk_id[$y] = $r['id'];
$linje_id[$y] = $r['linje_id'];
$fakturadate[$y] = $r['fakturadate'];
$k_ordre_id[$y] = $r['ordre_id'];
if ($vk_kost) {
$k_antal[$y] = $r['antal'];
$pris[$y] = $v_kostpris;
} else {
$k_antal[$y] = $r['antal'];
$pris[$y] = $r['pris'];
}
if ($linje_id[$y]) {
$qtxt = "select momssats,momsfri,omvbet from ordrelinjer where id='{$linje_id[$y]}'";
if ($r1 = db_fetch_array(db_select($qtxt, __FILE__ . " linje " . __LINE__))) {
$momssats[$y] = $r1['momssats'];
$momsfri[$y] = $r1['momsfri'];
$omvbet[$y] = $r1['omvbet'];
if ($momsfri[$y] || $omvbet[$y]) {
$moms[$y] = 0;
} elseif ($momssats[$y] == '') {
$momssats[$y] = find_varemomssats($linje_id[$y]);
} else {
$moms[$y] = $pris[$y] / 100 * $momssats[$y];
}
} else {
$ok = 0;
}
} else {
if (!$k_ordre_id[$y]) {
$t_regul += $k_antal[$y];
$tt_regul += $k_antal[$y];
}
$ok = 0;
}
if ($ok) {
$t_kobt += $k_antal[$y];
$t_k_pris += $pris[$y] * $k_antal[$y];
$tt_kobt += $k_antal[$y];
$tt_k_pris += $pris[$y] * $k_antal[$y];
$t_moms += $moms[$y];
}
$y++;
} else {
# if ($r['ordre_id']) $tt_kobt=$r['antal'];
# else $tt_regul+=$r['antal'];
}
}
if ($detaljer) {
print "<tr><td colspan=\"{$cols}\"><hr></td></tr>";
print "<tr><td><br></td></tr>";
print "<tr><td><br></td></tr>";
print "<tr><td colspan=\"3\">{$varenr[$x]}</td></tr>";
print "<tr><td colspan=\"3\">{$enhed[$x]}</td></tr>";
print "<tr><td colspan=\"3\">{$beskrivelse[$x]}</td></tr>";
print "<tr><td><br></td></tr>";
print "<tr><td>Købsdato</td><td align=\"right\">Antal</td><td align=\"right\">Pris</td><td align=\"right\">Moms</td><td align=\"right\">Incl. moms</td><td align=\"right\">Ordre</td></tr>";
print "<tr><td colspan=\"{$cols}\"><hr></td></tr>";
for ($y = 0; $y < count($k_antal); $y++) {
if ($k_ordre_id[$y]) {
if ($detaljer) {
print "<tr><td>" . dkdato($fakturadate[$y]) . "</td><td align=\"right\">" . dkdecimal($k_antal[$y], 2) . "</td>";
}
$linjepris = $pris[$y] * $k_antal[$y];
$kobssum += $t_kobt;
print "<td align=\"right\">" . dkdecimal($pris[$y], 2) . "</td><td align=\"right\">" . dkdecimal($moms[$y], 2) . "</td><td align=\"right\">" . dkdecimal($pris[$y] + $moms[$y], 2) . "</td>";
print "<td align=right onClick=\"javascript:k_ordre=window.open('../kreditor/ordre.php?id={$k_ordre_id[$y]}&returside=../includes/luk.php','k_ordre','width=800,height=400,{$jsvars}')\"> <u>Se</u></td></tr>";
}
}
print "<tr><td colspan=\"{$cols}\"><hr></td></tr>";
print "<tr><td></td><td align=\"right\"><b>" . dkdecimal($t_kobt, 2) . "</b></td><td align=\"right\"><b>" . dkdecimal($t_k_pris, 2) . "</b></td><td align=\"right\"><b>" . dkdecimal($t_moms, 2) . "</b></td><td align=\"right\"><b>" . dkdecimal($t_k_pris + $t_moms, 2) . "</b></td></tr>";
print "<tr><td colspan=\"{$cols}\"><hr></td></tr>";
}
$fakturadate = array();
$bs_id = array();
$linje_id = array();
$s_ordre_id = array();
$s_antal = array();
$pris = array();
$t_solgt = 0;
# $t_regul=0;
$t_s_pris = 0;
$t_kost = 0;
$t_moms = 0;
$t_db = 0;
$y = 0;
$qtxt = "select * from batch_salg";
if ($afd) {
$qtxt .= ",ordrer";
}
$qtxt .= " where batch_salg.vare_id='{$v_id[$x]}'";
if ($afd) {
$qtxt .= " and batch_salg.ordre_id=ordrer.id and ordrer.afd={$afd}";
}
$qtxt .= " order by batch_salg.fakturadate";
$q = db_select($qtxt, __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$ok = 1;
if ($r['fakturadate'] && $r['fakturadate'] <= $date_to && $r['fakturadate'] >= $date_from) {
$bs_id[$y] = $r['id'];
$fakturadate[$y] = $r['fakturadate'];
$s_antal[$y] = $r['antal'];
$pris[$y] = $r['pris'];
$s_ordre_id[$y] = $r['ordre_id'];
$linje_id[$y] = $r['linje_id'];
if ($linje_id[$y]) {
if ($r1 = db_fetch_array(db_select("select ordrelinjer.id,ordrelinjer.kostpris,ordrelinjer.momssats,ordrelinjer.momsfri,ordrelinjer.omvbet from ordrelinjer where ordrelinjer.id='{$linje_id[$y]}'", __FILE__ . " linje " . __LINE__))) {
if ($vk_kost) {
$kostpris[$y] = $v_kostpris;
} else {
$kostpris[$y] = $r1['kostpris'];
}
$momssats[$y] = $r1['momssats'];
$momsfri[$y] = $r1['momsfri'];
$omvbet[$y] = $r1['omvbet'];
if ($momsfri[$y] || $omvbet[$y]) {
$moms[$y] = 0;
} elseif ($momssats[$y] == '') {
$momssats[$y] = find_varemomssats($linje_id[$y]);
} else {
$moms[$y] = $pris[$y] / 100 * $momssats[$y];
}
} else {
$ok = 0;
}
list($koordpr, $koordnr, $koordant, $koordid, $koordart) = explode(chr(9), find_kostpris($v_id[$x], $linje_id[$y]));
$kobs_ordre_pris = explode(",", $koordpr);
$ko_ant[$y] = count($kobs_ordre_pris);
$kobs_ordre_id = explode(",", $koordid);
$kobs_ordre_antal = explode(",", $koordant);
$kobs_ordre_art = explode(",", $koordart);
#20151210 ->
if ($ko_ant[$y]) {
$kostpris[$y] = 0;
for ($z = 0; $z < $ko_ant[$y]; $z++) {
$kostpris[$y] += $kobs_ordre_pris[$z];
}
$kostpris[$y] /= $ko_ant[$y];
} elseif ($vk_kost) {
$kostpris[$y] = $v_kostpris;
}
} else {
$ok = 0;
}
if ($ok) {
#<- 20151210
if ($s_ordre_id[$y]) {
$t_solgt += $s_antal[$y];
$t_s_pris += $pris[$y] * $s_antal[$y];
$tt_solgt += $s_antal[$y];
$tt_s_pris += $pris[$y] * $s_antal[$y];
$t_moms += $moms[$y] * $s_antal[$y];
$t_kost += $kostpris[$y] * $s_antal[$y];
$tt_kost += $kostpris[$y] * $s_antal[$y];
$db[$y] = $pris[$y] - $kostpris[$y];
$t_db += $db[$y] * $s_antal[$y];
$tt_db += $db[$y] * $s_antal[$y];
if ($s_antal[$y] < 0) {
$db[$y] *= -1;
}
# 20160201 # Flyttet under sammentælling
if ($pris[$y] != 0) {
$dg[$y] = $db[$y] * 100 / $pris[$y];
} else {
$dg[$y] = 0;
}
} else {
$t_regul += $s_antal[$y];
$tt_regul += $s_antal[$y];
}
}
$y++;
} else {
# if ($r['ordre_id']) $tt_solgt+=$r['antal'];
# else $tt_regul+=$r['antal'];
}
}
if ($t_s_pris && $t_db) {
$t_dg = $t_db * 100 / $t_s_pris;
} else {
$t_dg = 100;
}
if ($detaljer) {
print "<tr><td>Salgsdato</td><td align=\"right\">Antal</td><td align=\"right\">Pris</td><td align=\"right\">Moms</td><td align=\"right\">Incl.moms</td><td align=\"right\">Kostpris</td><td align=\"right\">DB</td><td align=\"right\">DG</td><td align=\"right\">Ordre</td></tr>";
for ($y = 0; $y < count($linje_id); $y++) {
if ($s_ordre_id[$y]) {
print "<tr><td>" . dkdato($fakturadate[$y]) . "</td><td align=right>" . dkdecimal($s_antal[$y], 2) . "</td>";
print "<td align=right>" . dkdecimal($pris[$y], 2) . "</td>";
print "<td align=right>" . dkdecimal($moms[$y], 2) . "</td>";
print "<td align=right>" . dkdecimal($pris[$y] + $moms[$y], 2) . "</td>";
print "<td align=right>" . dkdecimal($kostpris[$y], 2) . "</td>";
print "<td align=right>" . dkdecimal($db[$y], 2) . "</td>";
print "<td align=right> " . dkdecimal($dg[$y], 2) . "%</td>";
print "<td align=right onClick=\"javascript:s_ordre=window.open('../debitor/ordre.php?id={$s_ordre_id[$y]}&returside=../includes/luk.php','s_ordre','width=800,height=400,{$jsvars}')\"> <u>Se</u></td></tr>";
}
}
print "<tr><td colspan=\"{$cols}\"><hr></td></tr>";
print "<tr><td></td>";
print "<td align=right> <b>" . dkdecimal($t_solgt, 2) . "</b></td>";
print "<td align=right> <b>" . dkdecimal($t_s_pris, 2) . "</b></td>";
print "<td align=right> <b>" . dkdecimal($t_moms, 2) . "</b></td>";
print "<td align=right> <b>" . dkdecimal($t_s_pris + $t_moms, 2) . "</b></td>";
print "<td align=right> <b>" . dkdecimal($t_kost, 2) . "</b></td>";
print "<td align=right> <b>" . dkdecimal($t_db, 2) . "</b></td>";
print "<td align=right> <b>" . dkdecimal($t_dg, 2) . "%</b></td></tr>";
print "<tr><td colspan=\"{$cols}\"><hr></td></tr>";
print "<tr><td>Lagerreguleret</td><td align=\"right\">Antal</td></tr>";
for ($y = 0; $y < count($bk_id); $y++) {
if (!$k_ordre_id[$y]) {
print "<tr><td>" . dkdato($fakturadate[$y]) . "</td><td align=right>" . dkdecimal($k_antal[$y], 2) . "</td></tr>";
}
}
for ($y = 0; $y < count($bs_id); $y++) {
if (!$s_ordre_id[$y]) {
print "<tr><td>" . dkdato($fakturadate[$y]) . "</td><td align=right>-" . dkdecimal($s_antal[$y], 2) . "</td></tr>";
#20160418
}
}
print "<tr><td colspan=\"{$cols}\"><hr></td></tr>";
print "<tr><td>Samlet til-/afgang i perioden</td><td align=right> <b>" . dkdecimal($t_kobt + $t_regul - $t_solgt, 2) . "</b></td><tr>";
#20151105
} else {
print "<tr><td>{$varenr[$x]}</td>";
print "<td>{$enhed[$x]}</td>";
print "<td>{$beskrivelse[$x]}</td>";
print "<td align=right>" . dkdecimal($t_kobt, 2) . "</td>";
print "<td align=right>" . dkdecimal($t_k_pris, 2) . "</td>";
print "<td align=right>" . dkdecimal($t_solgt, 2) . "</td>";
print "<td align=right>" . dkdecimal($t_s_pris, 2) . "</td>";
print "<td align=right>" . dkdecimal($t_regul, 2) . "</td>";
print "<td align=right>" . dkdecimal($t_db, 2) . "</td>";
print "<td align=right>" . dkdecimal($t_dg, 2) . "%</td>";
print "<td align=right>" . dkdecimal($t_kobt + $t_regul - $t_solgt, 2) . "</td><tr>";
#20151105
}
if ($detaljer) {
print "<tr><td colspan=\"{$cols}\"><hr></td></tr>";
}
}
if (!$detaljer) {
if ($tt_s_pris && $tt_db) {
$tt_dg = $tt_db * 100 / $tt_s_pris;
} else {
$tt_dg = 100;
}
print "<tr><td colspan=\"{$cols}\"><hr></td></tr>";
print "<tr><td Colspan=\"3\"><b>Summeret</b></td>\n\t\t\t\t<td align=\"right\">Købt</td>\n\t\t\t\t<td align=\"right\">Købspris</td>\n\t\t\t\t<td align=\"right\">Solgt</td>\n\t\t\t\t<td align=\"right\">Salgspris</td>\n\t\t\t\t<td align=\"right\">Reguleret</td>\n\t\t\t\t<td align=\"right\">DB</td>\n\t\t\t\t<td align=\"right\">DG</td>\n\t\t\t\t<td align=\"right\">Samlet til-/afgang i perioden</td></tr>";
print "<tr><td>{$varenr[$x]}</td>";
print "<td>{$enhed[$x]}</td>";
print "<td>{$beskrivelse[$x]}</td>";
print "<td align=right> <b>" . dkdecimal($tt_kobt, 2) . "</b></td>";
print "<td align=right> <b>" . dkdecimal($tt_k_pris, 2) . "</b></td>";
print "<td align=right> <b>" . dkdecimal($tt_solgt, 2) . "</b></td>";
print "<td align=right> <b>" . dkdecimal($tt_s_pris, 2) . "</b></td>";
print "<td align=right> <b>" . dkdecimal($tt_regul, 2) . "</b></td>";
print "<td align=right> <b>" . dkdecimal($tt_db, 2) . "</b></td>";
print "<td align=right> <b>" . dkdecimal($tt_dg, 2) . "%</b></td>";
print "<td align=right><b>" . dkdecimal($tt_kobt + $tt_regul - $tt_solgt, 2) . "</b></td><tr>";
}
/*
print "<tr><td colspan=9><hr></td></tr>";
print "<tr><td></td><td></td><td></td><td align=\"right\"><b>";
print dkdecimal($t_solgt);
# print "</b></td><td align=right> <b>".dkdecimal($talkob)."</b></td>";
print "<td align=right> <b>".dkdecimal($t_s_pris)."</b></td>";
print "<td align=right> <b>".dkdecimal($t_moms)."</b></td>";
print "<td align=right> <b>".dkdecimal($t_s_pris+$t_moms)."</b></td>";
$db[$y]=$t_s_pris-$t_kost;
print "<td align=right> <b>".dkdecimal($t_db)."</b></td>";
if ($tsalg!=0) {$dg[$y]=$db[$y]*100/$talsalg;}
else {$dg[$y]=100;}
print "<td align=right> <b>".dkdecimal($dg[$y])."</b></td></tr>";
print "<tr><td colspan=8><hr></td></tr>";
*/
print "</tbody></table>";
}
include "../includes/std_func.php";
$returside = "../diverse.php";
$filnavn = "../temp/" . trim($db . "_debitorer_" . date("Y-m-d") . ".csv");
$fp = fopen($filnavn, "w");
if (fwrite($fp, "kontonr" . chr(9) . "firmanavn" . chr(9) . "addr1" . chr(9) . "addr2" . chr(9) . "postnr" . chr(9) . "bynavn" . chr(9) . "land" . chr(9) . "kontakt" . chr(9) . "tlf" . chr(9) . "fax" . chr(9) . "email" . chr(9) . "web" . chr(9) . "notes" . chr(9) . "kreditmax" . chr(9) . "betalingsbet" . chr(9) . "betalingsdage" . chr(9) . "cvrnr" . chr(9) . "ean" . chr(9) . "institution" . chr(9) . "gruppe" . chr(9) . "kontoansvarlig" . chr(9) . "oprettet" . chr(9) . "kontakt_navn" . chr(9) . "kontakt_addr1" . chr(9) . "kontakt_addr2" . chr(9) . "kontakt_postnr" . chr(9) . "kontakt_bynavn" . chr(9) . "kontakt_tlf" . chr(9) . "kontakt_fax" . chr(9) . "kontakt_email" . chr(9) . "kontakt_notes]\r\n")) {
$q = db_select("select * from adresser where art='D' order by kontonr", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$ansatte = 0;
if ($r['kontoansvarlig']) {
$r2 = db_fetch_array(db_select("select initialer from ansatte where id='{$r['kontoansvarlig']}'", __FILE__ . " linje " . __LINE__));
$kontoansvarlig = $r2['initialer'];
} else {
$kontoansvarlig = '';
}
$kreditmax = dkdecimal($r['kreditmax']);
$oprettet = dkdato($r['oprettet']);
$tmp1 = str_replace("\n", "\\n", $r[kontonr] . chr(9) . chr(32) . $r[firmanavn] . chr(32) . chr(9) . chr(32) . $r[addr1] . chr(32) . chr(9) . chr(32) . $r[addr2] . chr(32) . chr(9) . chr(32) . $r[postnr] . chr(32) . chr(9) . chr(32) . $r[bynavn] . chr(32) . chr(9) . chr(32) . $r[land] . chr(32) . chr(9) . chr(32) . $r[kontakt] . chr(32) . chr(9) . chr(32) . $r[tlf] . chr(32) . chr(9) . chr(32) . $r[fax] . chr(32) . chr(9) . chr(32) . $r[email] . chr(32) . chr(9) . chr(32) . $r[web] . chr(32) . chr(9) . chr(32) . $r[notes] . chr(32) . chr(9) . $kreditmax . chr(9) . chr(32) . $r[betalingsbet] . chr(32) . chr(9) . $r[betalingsdage] . chr(9) . chr(32) . $r[cvrnr] . chr(32) . chr(9) . chr(32) . $r[ean] . chr(32) . chr(9) . chr(32) . $r[institution] . chr(32) . chr(9) . $r[gruppe] . chr(9) . chr(32) . $kontoansvarlig . chr(32) . chr(9) . chr(32) . $oprettet);
$tmp1 = str_replace("\r", "\\r", $tmp1);
if ($charset == 'UTF-8') {
$tmp1 = utf8_decode($tmp1);
}
$q2 = db_select("select * from ansatte where konto_id='{$r['id']}' order by navn", __FILE__ . " linje " . __LINE__);
while ($r2 = db_fetch_array($q2)) {
$ansatte++;
$tmp2 = str_replace("\n", "\\n", $r2[navn] . chr(32) . chr(9) . chr(32) . $r2[addr1] . chr(32) . chr(9) . chr(32) . $r2[addr2] . chr(32) . chr(9) . chr(32) . $r2[postnr] . chr(32) . chr(9) . chr(32) . $r2[bynavn] . chr(32) . chr(9) . chr(32) . $r2[tlf] . chr(32) . chr(9) . chr(32) . $r2[fax] . chr(32) . chr(9) . chr(32) . $r2[email] . chr(32) . chr(9) . chr(32) . $r2[notes]);
$tmp2 = str_replace("\r", "\\r", $tmp2);
if ($charset == 'UTF-8') {
$tmp2 = utf8_decode($tmp2);
}
$linje = $tmp1 . chr(32) . chr(9) . chr(32) . $tmp2;
fwrite($fp, $linje . "\r\n");
print "<td>{$liste_dato}</td>";
if ($kan_afsluttes) {
if ($popup) {
print "<td onClick=\"javascript:pbsfile=window.open('pbsfile.php?id={$tmp}&afslut=ok','pbsfile','" . $jsvars . "');pbsfile.focus();\" onMouseOver=\"this.style.cursor = 'pointer'\" title=\"{$tekst}\" align=right><u>afslut</u></td>\n";
} else {
print "<td align=right><a href=pbsfile.php?id={$tmp}&afslut=ok>afslut</a></td>";
}
print "</tr>";
}
}
if ($popup) {
print "<tr><td onClick=\"javascript:pbsfile=window.open('pbsfile.php?id={$id[$x]}','pbsfile','" . $jsvars . "');pbsfile.focus();\" onMouseOver=\"this.style.cursor = 'pointer'\" title=\"{$tekst}\"><u>{$r['id']}</u></td>\n";
} else {
print "<tr><td><a href=pbsfile.php?id={$id[$x]}>{$id[$x]}</a></td>";
}
$liste_dato = dkdato($r['liste_date']);
print "<td>{$liste_dato}</td>";
if (!$r['afsendt']) {
if ($popup) {
print "<td onClick=\"javascript:pbsfile=window.open('pbsfile.php?id={$id[$x]}&afslut=ok','pbsfile','" . $jsvars . "');pbsfile.focus();\" onMouseOver=\"this.style.cursor = 'pointer'\" title=\"{$tekst}\" align=right><u>afslut</u></td>\n";
} else {
print "<td align=right><a href=pbsfile.php?id={$id[$x]}&afslut=ok>afslut</a></td>";
}
# $vis_ny=1;
}
print "</tr>";
/* # udelade 20103105 - Har tilsyneladende ingen anden funktion en at dobbeltudskrive ???
if ($vis_ny) {
$liste_dato=date('d-m-Y');
$tmp=$r['id']+1;
if ($popup) print "<tr><td onClick=\"javascript:pbsfile=window.open('pbsfile.php?id=$r[id]','pbsfile','".$jsvars."');pbsfile.focus();\" onMouseOver=\"this.style.cursor = 'pointer'\" title=\"$tekst\"><u>C $r[id]</u></td>\n";
function pos_txt_print($id, $betaling, $betaling2, $modtaget, $modtaget2, $indbetaling)
{
#cho "$id,$betaling,$betaling2,$modtaget,$modtaget2,$indbetaling<br>\n";
global $db;
global $db_id;
global $brugernavn;
global $bruger_id;
global $momssats;
global $db_encode;
global $printserver;
# $udskriv_bon=1;
include "../includes/ConvertCharset.class.php";
if ($db_encode == "UTF8") {
$FromCharset = "UTF-8";
} else {
$FromCharset = "iso-8859-15";
}
$ToCharset = "cp865";
$convert = new ConvertCharset();
$pfnavn = "../temp/" . $db . "/" . $bruger_id . ".txt";
$fp = fopen("{$pfnavn}", "w");
$r = db_fetch_array(db_select("select * from adresser where art = 'S'", __FILE__ . " linje " . __LINE__));
$firmanavn = $r['firmanavn'];
$addr1 = $r['addr1'];
$addr2 = $r['addr2'];
$postnr = $r['postnr'];
$bynavn = $r['bynavn'];
$tlf = $r['tlf'];
$cvrnr = $r['cvrnr'];
$belob = "beløb";
if ($firmanavn) {
$firmanavn = $convert->Convert($firmanavn, $FromCharset, $ToCharset);
}
if ($addr1) {
$addr1 = $convert->Convert($addr1, $FromCharset, $ToCharset);
}
if ($addr2) {
$addr2 = $convert->Convert($addr2, $FromCharset, $ToCharset);
}
if ($bynavn) {
$bynavn = $convert->Convert($bynavn, $FromCharset, $ToCharset);
}
if ($tlf) {
$tlf = $convert->Convert($tlf, $FromCharset, $ToCharset);
}
if ($cvrnr) {
$cvrnr = $convert->Convert($cvrnr, $FromCharset, $ToCharset);
}
if ($belob) {
$belob = $convert->Convert($belob, $FromCharset, $ToCharset);
}
$r = db_fetch_array(db_select("select * from ordrer where id = '{$id}'", __FILE__ . " linje " . __LINE__));
$konto_id = $r['konto_id'];
$kontonr = $r['kontonr'];
$kundenavn = $r['firmanavn'];
$kundeaddr1 = $r['addr1'];
$kundepostnr = $r['postnr'];
$kundeby = $r['bynavn'];
$kundeordnr = $r['kundeordnr'];
$fakturadate = $r['fakturadate'];
$fakturanr = $r['fakturanr'];
$betalingsbet = $r['betalingsbet'];
$fakturadato = dkdato($r['fakturadate']);
$sum = $r['sum'];
$moms = $r['moms'];
$momssats = $r['momssats'];
$betaling = $r['felt_1'];
$modtaget = $r['felt_2'] * 1;
$betaling2 = $r['felt_3'];
$modtaget2 = $r['felt_4'] * 1;
$betalt = $modtaget + $modtaget2;
$ref = $r['ref'];
$kasse = $r['felt_5'];
$tidspkt = $r['tidspkt'];
$dkdato = dkdato(substr($tidspkt, 0, 10));
$tid = substr($tidspkt, -5);
$bordnr = $r['nr'] * 1;
#20140508
if (!$tid) {
$tid = date("H:i");
}
if (!$betaling) {
$betaling = "Betalt";
}
if ($ref) {
if ($r = db_fetch_array(db_select("select ansat_id from brugere where brugernavn = '{$ref}'", __FILE__ . " linje " . __LINE__))) {
$ansat_id = $r['ansat_id'] * 1;
if ($r = db_fetch_array(db_select("select navn from ansatte where id = '{$ansat_id}'", __FILE__ . " linje " . __LINE__))) {
$ref = $r['navn'];
}
}
}
if (strpos($betaling, "|")) {
list($tmp, $betaling) = explode("|", $betaling);
}
if (strpos($betaling2, "|")) {
list($tmp, $betaling2) = explode("|", $betaling2);
}
if ($kundenavn) {
$kundenavn = $convert->Convert($kundenavn, $FromCharset, $ToCharset);
}
if ($kundeaddr1) {
$kundeaddr1 = $convert->Convert($kundeaddr1, $FromCharset, $ToCharset);
}
if ($kundeby) {
$kundeby = $convert->Convert($kundeby, $FromCharset, $ToCharset);
}
if ($ref) {
$ref = $convert->Convert($ref, $FromCharset, $ToCharset);
}
$r = db_fetch_array(db_select("select * from grupper where art = 'POS' and kodenr = '2'", __FILE__ . " linje " . __LINE__));
$printer_ip = explode(chr(9), $r['box3']);
$tmp = $kasse - 1;
$printserver = $printer_ip[$tmp];
if (!$printserver) {
$printserver = 'localhost';
}
#cho "printserver $printserver<br>";
$x = 0;
$q = db_select("select * from ordrelinjer where ordre_id = '{$id}' and posnr > 0 order by posnr", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$x++;
if ($r['momsfri'] != 'on') {
$pris = $r['pris'] + $r['pris'] / 100 * $momssats;
} else {
$pris = $r['pris'];
}
if (strtoupper($r['varenr']) == 'INDBETALING') {
$pris = $pris * -1;
$sum = $sum * -1;
}
$rabat[$x] = $r['rabat'] * 1;
$rabatart[$x] = $r['rabatart'];
$beskrivelse[$x] = $r['beskrivelse'];
if ($beskrivelse[$x]) {
$beskrivelse[$x] = $convert->Convert($beskrivelse[$x], $FromCharset, $ToCharset);
}
$antal[$x] = $r['antal'] * 1;
$dkkpris[$x] = dkdecimal($pris * $antal[$x]);
while (strlen($dkkpris[$x]) < 9) {
$dkkpris[$x] = " " . $dkkpris[$x];
}
while (strlen($antal[$x]) < 3) {
$antal[$x] = " " . $antal[$x];
}
if (strlen($beskrivelse[$x]) > 26) {
$beskrivelse[$x] = substr($beskrivelse[$x], 0, 25);
}
while (strlen($beskrivelse[$x]) < 26) {
$beskrivelse[$x] = $beskrivelse[$x] . " ";
}
if ($rabat[$x]) {
$y = $x;
$x++;
$antal[$x] = $antal[$y];
if ($rabatart[$y] == 'amount') {
$beskrivelse[$x] = "Rabat";
$pris = $rabat[$y] * -1;
} else {
$beskrivelse[$x] = "Rabat " . $rabat[$y] . "%";
$pris = $r['pris'] / 100 * $rabat[$y] * -1;
}
if ($r['momsfri'] != 'on') {
$pris += $pris / 100 * $momssats;
}
$dkkpris[$x] = dkdecimal($pris * $r['antal']);
while (strlen($dkkpris[$x]) < 9) {
$dkkpris[$x] = " " . $dkkpris[$x];
}
while (strlen($antal[$x]) < 3) {
$antal[$x] = " " . $antal[$x];
}
if (strlen($beskrivelse[$x]) > 26) {
$beskrivelse[$x] = substr($beskrivelse[$x], 0, 25);
}
while (strlen($beskrivelse[$x]) < 26) {
$beskrivelse[$x] = $beskrivelse[$x] . " ";
}
}
$linjeantal = $x;
}
#cho "Sum $sum<br>";
$sum += $moms;
#cho "Sum $sum<br>";
#xit;
if ($konto_id) {
if (!$x) {
$indbetaling = $sum;
}
$gl_saldo = dkdecimal($betaling2);
$ny_saldo = dkdecimal($modtaget2);
}
if ($indbetaling) {
$retur = $modtaget - $indbetaling;
} else {
$retur = $betalt - $sum;
}
$dkksum = dkdecimal($sum);
while (strlen($dkksum) < 9) {
$dkksum = " " . $dkksum;
}
$dkkretur = dkdecimal($retur);
while (strlen($dkkretur) < 9) {
$dkkretur = " " . $dkkretur;
}
$betalt = dkdecimal($betalt);
while (strlen($betalt) < 9) {
$betalt = " " . $betalt;
}
while (strlen($betaling) < 19) {
$betaling = $betaling . " ";
}
while (strlen($betaling2) < 19) {
$betaling2 = $betaling2 . " ";
}
$dkkmodtaget = dkdecimal($modtaget);
while (strlen($dkkmodtaget) < 9) {
$dkkmodtaget = " " . $dkkmodtaget;
}
if ($modtaget2) {
$dkkmodtaget2 = dkdecimal($modtaget2);
while (strlen($dkkmodtaget2) < 9) {
$dkkmodtaget2 = " " . $dkkmodtaget2;
}
}
$dkksum = dkdecimal($sum);
while (strlen($dkksum) < 9) {
$dkksum = " " . $dkksum;
}
$dkkmoms = dkdecimal($moms);
while (strlen($dkkmoms) < 9) {
$dkkmoms = " " . $dkkmoms;
}
$filnavn = "pos_print/pos_print_" . $db_id . ".php";
if (file_exists("{$filnavn}")) {
include "{$filnavn}";
} else {
include "pos_print/pos_print.php";
}
fclose($fp);
}
function inset_ordrer($antal_ordrer, $leverance_id, $dkdd, $ordre_id, $cvrnr, $bank_reg, $bank_konto, $pbs_nr, $ny_pbs_aftale, $kontonr)
{
global $id;
global $lnr;
global $afslut;
global $linje;
global $linjeoid;
global $delsystem;
global $charset;
global $lev_pbs;
global $debitorgruppe;
include "../includes/forfaldsdag.php";
$r042sum = 0;
$r022lin = 0;
$r052lin = 0;
$lnr++;
$linje[$lnr] = "BS002" . $cvrnr[0] . $delsystem . "0601" . $leverance_id . filler(19, " ") . $dkdd . "\n";
if ($afslut) {
db_modify("insert into pbs_linjer (liste_id,linje) values ('{$id}','{$linje[$lnr]}')", __FILE__ . " linje " . __LINE__);
}
$lnr++;
$linje[$lnr] = "BS012" . $pbs_nr[0] . "0112" . filler(5, " ") . $debitorgruppe . filler(15, "0") . filler(4, " ") . "00000000" . $bank_reg[0] . $bank_konto[0] . "\n";
if ($afslut) {
db_modify("insert into pbs_linjer (liste_id,linje) values ('{$id}','{$linje[$lnr]}')", __FILE__ . " linje " . __LINE__);
}
for ($x = 1; $x <= $antal_ordrer; $x++) {
$r = db_fetch_array(db_select("select * from ordrer where id='{$ordre_id[$x]}'", __FILE__ . " linje " . __LINE__));
$fakturanr = $r['fakturanr'];
$kontonr = $r['kontonr'];
$firmanavn = $r['firmanavn'];
$adresse = $r['addr1'];
if ($r['addr2']) {
$adresse = $adresse . ", " . $r['addr2'];
}
$postnr = $r['postnr'];
$ean = $r['ean'];
$institution = $r['institution'];
$sum = $r['sum'];
$moms = $r['moms'];
$belob = round(($r['sum'] + $r['moms']) * 100, 0);
$r042sum = $r042sum + $belob;
$fakturadate = $r['fakturadate'];
$betalingsbet = $r['betalingsbet'];
$betalingsdage = $r['betalingsdage'];
$udskriv_til = $r['udskriv_til'];
# tilfoejet 20.03.2011
while (strlen($kontonr) < 15) {
$kontonr = "0" . $kontonr;
}
# 20140122 Denne + næste 3 linjer flyttet over nedenstående else
while (strlen($pbs_nr[$x]) < 9) {
$pbs_nr[$x] = "0" . $pbs_nr[$x];
}
list($dd, $mm, $yy) = explode("-", forfaldsdag($fakturadate, $betalingsbet, $betalingsdage));
$forfaldsdag = $dd . $mm . $yy;
if ($lev_pbs == 'B') {
$firmanavn = '';
$adresse = '';
$postnr = '';
$ean = '';
$institution = '';
} else {
#else indsat 20140121
if ($charset == "UTF-8") {
$firmanavn = utf8_decode($firmanavn);
$adresse = utf8_decode($adresse);
$institution = utf8_decode($institution);
}
if ($udskriv_til == 'PBS_FI') {
$pbs_nr[$x] = '000000000';
}
# tilfoejet 20.03.2011 # rettet til '000000000' 20140207
$r022lin++;
$lnr++;
$linje[$lnr] = "BS022" . $pbs_nr[0] . "0240" . "00001" . $debitorgruppe . $kontonr . $pbs_nr[$x] . addslashes($firmanavn) . "\n";
$linjeoid[$lnr] = "{$ordre_id[$x]}";
if ($afslut) {
if ($charset == "UTF-8") {
$linje[$lnr] = utf8_encode($linje[$lnr]);
}
db_modify("insert into pbs_linjer (liste_id,linje) values ('{$id}','{$linje[$lnr]}')", __FILE__ . " linje " . __LINE__);
}
if ($ean) {
$lnr++;
$r022lin++;
$linje[$lnr] = "BS022" . $pbs_nr[0] . "0240" . "00002" . $debitorgruppe . $kontonr . $pbs_nr[$x] . $ean . "\n";
$linjeoid[$lnr] = "{$ordre_id[$x]}";
if ($afslut) {
db_modify("insert into pbs_linjer (liste_id,linje) values ('{$id}','{$linje[$lnr]}')", __FILE__ . " linje " . __LINE__);
}
$linjenr = "00003";
} else {
$linjenr = "00002";
}
$lnr++;
$r022lin++;
$linje[$lnr] = "BS022" . $pbs_nr[0] . "0240" . $linjenr . $debitorgruppe . $kontonr . $pbs_nr[$x] . $adresse . "\n";
$linjeoid[$lnr] = "{$ordre_id[$x]}";
if ($afslut) {
if ($charset == "UTF-8") {
$linje[$lnr] = utf8_encode($linje[$lnr]);
}
db_modify("insert into pbs_linjer (liste_id,linje) values ('{$id}','{$linje[$lnr]}')", __FILE__ . " linje " . __LINE__);
}
$r022lin++;
while (strlen($postnr) < 4) {
$postnr = "0" . $postnr;
}
$lnr++;
$linje[$lnr] = "BS022" . $pbs_nr[0] . "0240" . "00009" . $debitorgruppe . $kontonr . $pbs_nr[$x] . filler(15, " ") . $postnr . "\n";
$linjeoid[$lnr] = "{$ordre_id[$x]}";
if ($afslut) {
db_modify("insert into pbs_linjer (liste_id,linje) values ('{$id}','{$linje[$lnr]}')", __FILE__ . " linje " . __LINE__);
}
}
if ($belob > 0) {
$felt10 = "1";
} elseif ($belob < 0) {
$felt10 = "2";
$belob = $belob * -1;
} else {
$felt10 = "0";
}
while (strlen($belob) < 13) {
$belob = "0" . $belob;
}
$lnr++;
$linje[$lnr] = "BS042" . $pbs_nr[0] . "0280" . "00000" . $debitorgruppe . $kontonr . $pbs_nr[$x] . $forfaldsdag . $felt10 . $belob . filler(30, " ") . "00" . "\n";
$linjeoid[$lnr] = "{$ordre_id[$x]}";
if ($afslut) {
db_modify("insert into pbs_linjer (liste_id,linje) values ('{$id}','{$linje[$lnr]}')", __FILE__ . " linje " . __LINE__);
}
$r052lin++;
$recordnr = "00001";
$beskrivelse = "Fakturadato " . dkdato($fakturadate) . " Fakturanr: {$fakturanr} ";
if ($charset == "UTF-8") {
$belob = utf8_decode($belob);
$beskrivelse = utf8_decode($beskrivelse);
}
while (strlen($beskrivelse) < 65) {
$beskrivelse = $beskrivelse . " ";
}
$lnr++;
$linje[$lnr] = "BS052" . $pbs_nr[0] . "0241" . $recordnr . $debitorgruppe . $kontonr . $pbs_nr[$x] . " " . addslashes($beskrivelse) . "\n";
$linjeoid[$lnr] = "{$ordre_id[$x]}";
if ($afslut) {
if ($charset == "UTF-8") {
$linje[$lnr] = utf8_encode($linje[$lnr]);
}
db_modify("insert into pbs_linjer (liste_id,linje) values ('{$id}','{$linje[$lnr]}')", __FILE__ . " linje " . __LINE__);
}
$r052lin++;
$recordnr = "00001";
$beskrivelse = "Beskrivelse";
$antal = "Antal";
$pris = "Pris";
$belob = "Beløb";
if ($charset == "UTF-8") {
$belob = utf8_decode($belob);
$beskrivelse = utf8_decode($beskrivelse);
}
while (strlen($recordnr) < 5) {
$recordnr = "0" . $recordnr;
}
while (strlen($beskrivelse) < 35) {
$beskrivelse = $beskrivelse . " ";
}
while (strlen($antal) < 5) {
$antal = " " . $antal;
}
while (strlen($pris) < 10) {
$pris = " " . $pris;
}
while (strlen($belob) < 10) {
$belob = " " . $belob;
}
$lnr++;
$linje[$lnr] = "BS052" . $pbs_nr[0] . "0241" . $recordnr . $debitorgruppe . $kontonr . $pbs_nr[$x] . " " . addslashes($beskrivelse) . $antal . $pris . $belob . "\n";
$linjeoid[$lnr] = "{$ordre_id[$x]}";
if ($afslut) {
if ($charset == "UTF-8") {
$linje[$lnr] = utf8_encode($linje[$lnr]);
}
db_modify("insert into pbs_linjer (liste_id,linje) values ('{$id}','{$linje[$lnr]}')", __FILE__ . " linje " . __LINE__);
}
$y = 0;
$q = db_select("select * from ordrelinjer where ordre_id='{$ordre_id[$x]}' order by posnr", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$y++;
$r052lin++;
$beskrivelse = var2str($r['beskrivelse'], $ordre_id[$x]);
$antal = $r['antal'] * 1;
$pris = dkdecimal($r['pris']);
$belob = dkdecimal($r['pris'] * $r['antal']);
$recordnr++;
if ($charset == "UTF-8") {
$beskrivelse = utf8_decode($beskrivelse);
}
while (strlen($recordnr) < 5) {
$recordnr = "0" . $recordnr;
}
if (strlen($beskrivelse) > 35) {
$beskrivelse = substr($beskrivelse, 0, 35);
}
while (strlen($beskrivelse) < 35) {
$beskrivelse = $beskrivelse . " ";
}
while (strlen($antal) < 5) {
$antal = " " . $antal;
}
while (strlen($pris) < 10) {
$pris = " " . $pris;
}
while (strlen($belob) < 10) {
$belob = " " . $belob;
}
$lnr++;
$linje[$lnr] = "BS052" . $pbs_nr[0] . "0241" . $recordnr . $debitorgruppe . $kontonr . $pbs_nr[$x] . " " . addslashes(addslashes($beskrivelse)) . $antal . $pris . $belob . "\n";
$linjeoid[$lnr] = "{$ordre_id[$x]}";
if ($afslut) {
if ($charset == "UTF-8") {
$linje[$lnr] = utf8_encode($linje[$lnr]);
}
db_modify("insert into pbs_linjer (liste_id,linje) values ('{$id}','{$linje[$lnr]}')", __FILE__ . " linje " . __LINE__);
}
}
if ($sum) {
$r052lin++;
$recordnr++;
$beskrivelse = "Netto Beløb";
$dksum = dkdecimal($sum);
if ($charset == "UTF-8") {
$beskrivelse = utf8_decode($beskrivelse);
}
while (strlen($recordnr) < 5) {
$recordnr = "0" . $recordnr;
}
while (strlen($beskrivelse) < 50) {
$beskrivelse = $beskrivelse . " ";
}
while (strlen($dksum) < 10) {
$dksum = " " . $dksum;
}
$lnr++;
$linje[$lnr] = "BS052" . $pbs_nr[0] . "0241" . $recordnr . $debitorgruppe . $kontonr . $pbs_nr[$x] . " " . addslashes($beskrivelse) . $dksum . "\n";
$linjeoid[$lnr] = "{$ordre_id[$x]}";
if ($afslut) {
if ($charset == "UTF-8") {
$linje[$lnr] = utf8_encode($linje[$lnr]);
}
db_modify("insert into pbs_linjer (liste_id,linje) values ('{$id}','{$linje[$lnr]}')", __FILE__ . " linje " . __LINE__);
}
}
if ($moms) {
$r052lin++;
$recordnr++;
$beskrivelse = "Moms";
$dkmoms = dkdecimal($moms);
if ($charset == "UTF-8") {
$beskrivelse = utf8_decode($beskrivelse);
}
while (strlen($recordnr) < 5) {
$recordnr = "0" . $recordnr;
}
while (strlen($beskrivelse) < 50) {
$beskrivelse = $beskrivelse . " ";
}
while (strlen($dkmoms) < 10) {
$dkmoms = " " . $dkmoms;
}
$lnr++;
$linje[$lnr] = "BS052" . $pbs_nr[0] . "0241" . $recordnr . $debitorgruppe . $kontonr . $pbs_nr[$x] . " " . addslashes($beskrivelse) . $dkmoms . "\n";
$linjeoid[$lnr] = "{$ordre_id[$x]}";
if ($afslut) {
if ($charset == "UTF-8") {
$linje[$lnr] = utf8_encode($linje[$lnr]);
}
db_modify("insert into pbs_linjer (liste_id,linje) values ('{$id}','{$linje[$lnr]}')", __FILE__ . " linje " . __LINE__);
}
}
if ($sum || $moms) {
$r052lin++;
$recordnr++;
$beskrivelse = "Total Beløb";
$ialt = dkdecimal($sum + $moms);
if ($charset == "UTF-8") {
$beskrivelse = utf8_decode($beskrivelse);
}
while (strlen($recordnr) < 5) {
$recordnr = "0" . $recordnr;
}
while (strlen($beskrivelse) < 50) {
$beskrivelse = $beskrivelse . " ";
}
while (strlen($ialt) < 10) {
$ialt = " " . $ialt;
}
$lnr++;
$linjeoid[$lnr] = "{$ordre_id[$x]}";
$linje[$lnr] = "BS052" . $pbs_nr[0] . "0241" . $recordnr . $debitorgruppe . $kontonr . $pbs_nr[$x] . " " . addslashes($beskrivelse) . $ialt . "\n";
if ($afslut) {
if ($charset == "UTF-8") {
$linje[$lnr] = utf8_encode($linje[$lnr]);
}
db_modify("insert into pbs_linjer (liste_id,linje) values ('{$id}','{$linje[$lnr]}')", __FILE__ . " linje " . __LINE__);
}
}
}
while (strlen($antal_ordrer) < 11) {
$antal_ordrer = "0" . $antal_ordrer;
}
while (strlen($r042sum) < 15) {
$r042sum = "0" . $r042sum;
}
while (strlen($r022lin) < 11) {
$r022lin = "0" . $r022lin;
}
while (strlen($r052lin) < 11) {
$r052lin = "0" . $r052lin;
}
$lnr++;
$linje[$lnr] = "BS092" . $pbs_nr[0] . "0112" . filler(5, "0") . $debitorgruppe . filler(4, " ") . $antal_ordrer . $r042sum . $r052lin . filler(15, " ") . $r022lin . "\n";
$linjeoid[$lnr] = "{$ordre_id[$x]}";
if ($afslut) {
db_modify("insert into pbs_linjer (liste_id,linje) values ('{$id}','{$linje[$lnr]}')", __FILE__ . " linje " . __LINE__);
}
$lnr++;
# $linje[$lnr]="BS992".$cvrnr[0]."BS10601"."00000000001".$antal_ordrer.$r042sum.$r052lin.filler(15,"0").$r022lin.filler(34,"0")."\n";
$linje[$lnr] = "BS992" . $cvrnr[0] . $delsystem . "0601" . "00000000001" . $antal_ordrer . $r042sum . $r052lin . filler(15, "0") . $r022lin . filler(34, "0") . "\n";
$linjeoid[$lnr] = "{$ordre_id[$x]}";
if ($afslut) {
db_modify("insert into pbs_linjer (liste_id,linje) values ('{$id}','{$linje[$lnr]}')", __FILE__ . " linje " . __LINE__);
}
}
$faktura[$x] = "ufakt";
}
if ($linjebg != $bgcolor) {
$linjebg = $bgcolor;
$color = '#000000';
} else {
$linjebg = $bgcolor5;
$color = '#000000';
}
print "<tr bgcolor=\"{$linjebg}\">";
print "<td>";
if ($bilag[$x]) {
print "<a href=kontospec.php?bilag={$bilag[$x]} target=\"_blank\">{$bilag[$x]}</a><br>";
}
print "</td>";
print "<td>" . dkdato($transdate[$x]) . "</a><br></td>";
print "<td>{$beskrivelse[$x]}</a><br></td>";
print "<td align=\"right\">{$kontonr}</a><br></td>";
print "<td align=\"right\">" . dkdecimal($debet[$x]) . "</a><br></td>";
print "<td align=\"right\">" . dkdecimal($kredit[$x]) . "</a><br></td>";
print "<td align=\"right\" title=\"Ordrenr: {$ordrenr[$x]}\">{$faktura[$x]}</a><br></td>";
print "<td align=\"right\"><a href=kassekladde.php?kladde_id={$kladde_id[$x]}&returside=kontospec.php target=\"_blank\">{$kladde_id[$x]}</a><br></td>";
print "<td align=\"right\">{$afd[$x]}</a><br></td>";
print "<td align=\"right\">{$projekt[$x]}</a><br></td>";
print "</tr>";
}
}
function lagerbev($kontonr, $varekob, $varelager_i, $varelager_u, $regnstart, $regnslut)
{
$r = db_fetch_array(db_select("select kontotype from kontoplan where kontonr='{$kontonr}' order by regnskabsaar desc limit 1", __FILE__ . " linje " . __LINE__));
$kontotype = $r['kontotype'];
function gennemse($kilde_id, $kilde, $bilag_id, $bilag, $fokus, $filnavn, $puljefil)
{
global $db;
isset($_POST['slet_bilag']) && $_POST['slet_bilag'] == 'Slet' ? $slet = 1 : ($slet = 0);
isset($_POST['upload_bilag']) && $_POST['upload_bilag'] == 'indsæt' ? $indsaet = 1 : ($inssaet = 0);
$descfil = if_isset($_POST['descfil']);
if (!$dsecfil) {
$descfil = if_isset($_GET['descfil']);
$slet = if_isset($_GET['slet']);
}
if ($descfil && $slet) {
$tmp = str_replace(" ", "\\ ", $descfil);
echo "slettter ../temp/{$db}/pulje/{$descfil}*<br>";
system("rm ../owncloud/{$db}/pulje/{$tmp}*\n");
print "<meta http-equiv=\"refresh\" content=\"0;URL=ublimport.php?bilag={$bilag}&kladde_id=={$kilde_id}&fokus={$fokus}&funktion=gennemse\">";
exit;
}
if ($indsaet) {
echo "indsætter {$puljefil}";
exit;
}
$r = db_fetch_array(db_select("select * from grupper where art='bilag'", __FILE__ . " linje " . __LINE__));
$google_docs = $r['box7'];
if ($bilag_id) {
$r = db_fetch_array(db_select("select * from kassekladde where id='{$bilag_id}'", __FILE__ . " linje " . __LINE__));
if (!$bilag) {
$bilag = $r['bilag'];
}
if (!$dato) {
$dato = dkdato($r['transdate']);
}
if (!$beskrivelse) {
$beskrivelse = $r['beskrivelse'];
}
if (!$debet) {
if ($r['d_type'] != 'F') {
$debet = $r['d_type'] . $r['debet'];
} else {
$debet = $r['debet'];
}
}
if (!$kredit) {
if ($r['k_type'] != 'F') {
$kredit = $r['d_type'] . $r['kredit'];
} else {
$kredit = $r['kredit'];
}
}
if (!$fakturanr) {
$fakturanr = $r['fakturanr'];
}
if (!$sum) {
$sum = dkdecimal($r['amount']);
}
}
$dir = "../owncloud/" . $db . "/pulje";
# $url="http://gateway.saldi.dk/udvikling/temp/$db/pulje/";
$url = "://" . $_SERVER['SERVER_NAME'] . $_SERVER['PHP_SELF'];
$url = str_replace("/kreditor/ublimport.php", "/temp/{$db}/pulje/", $url);
if ($_SERVER['HTTPS']) {
$url = "s" . $url;
}
$url = "http" . $url;
if (!$puljefil) {
if (is_dir($dir)) {
if ($dh = opendir($dir)) {
while (($file = readdir($dh)) !== false) {
if (substr($file, 0, 1) != '.' && substr($file, -4) == '.xml') {
if (!$puljefil) {
$puljefil = $file;
}
}
}
closedir($dh);
}
} else {
echo "Dir eksisterer ikke<br>";
}
}
print "<form name=\"gennemse\" action=\"ublimport.php?funktion=gennemse&puljefil={$puljefil}\" method=\"post\">\n";
print "<input type=\"hidden\" name=\"puljefil\" value={$puljefil}>";
print "<input type=\"hidden\" name=\"filnavn\" value={$filnavn}>";
print "<input type=\"hidden\" name=\"kilde_id\" value={$kilde_id}>";
print "<input type=\"hidden\" name=\"kilde\" value={$kilde}>";
print "<input type=\"hidden\" name=\"bilag_id\" value={$bilag_id}>";
print "<input type=\"hidden\" name=\"bilag\" value={$bilag}>";
print "<input type=\"hidden\" name=\"fokus\" value={$fokus}>";
print "<tr><td width=15% align=center><table width=\"100%\" height=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\" style=\"border: 3px solid rgb(180, 180, 255); padding: 0pt 0pt 1px;\"><tbody>";
print "<tr><td width=100% align=center>";
$fil_nr = 0;
if (is_dir($dir)) {
if ($dh = opendir($dir)) {
while (($file = readdir($dh)) !== false) {
if (substr($file, 0, 1) != '.' && substr($file, -4) == '.xml') {
$file == $puljefil ? $bgcolor = '#aaaaaa' : ($bgcolor = '#ffffff');
$fil_nr++;
print "<tr><td bgcolor=\"{$bgcolor}\"><a href=ublimport.php?funktion=gennemse&kilde_id={$kilde_id}&kilde={$kilde}&bilag={$bilag}&bilag_id={$bilag_id}&dato={$dato}&fokus={$fil_nr}&puljefil={$file} onfocus=\"document.forms[0].fokus.value=this.name;\" id=\"{$fil_nr}\">{$file}</a></td></tr>";
}
}
closedir($dh);
}
}
if ($puljefil) {
$tmp = "../../../owncloud/{$db}/pulje/{$puljefil}";
if (!is_dir("../temp/{$db}/pulje")) {
mkdir("../temp/{$db}/pulje");
}
system("cd ../temp/{$db}/pulje\nrm *\ncp {$tmp} .\n");
} else {
print "<BODY onLoad=\"javascript:alert('Ingen bilag i pulje')\">";
print "<meta http-equiv=\"refresh\" content=\"0;URL=../kreditor/ordreliste.php\">";
}
print "</td></tr>";
print "<tr><td width=100% align=center><br></td></tr>";
print "</table></td>";
print "<td rowspan=\"2\" width=85% height=\"100%\" align=center><table width=\"100%\" height=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\" style=\"border: 3px solid rgb(180, 180, 255); padding: 0pt 0pt 1px;\"><tbody>";
print "<tr><td width=100% align=center>";
$tmp = "../temp/{$db}/pulje/" . $puljefil;
vis_oioubl($tmp);
# $tmp=$url.$puljefil;
# if ($puljefil) {
# if ($google_docs) $src="http://docs.google.com/viewer?url=$tmp&embedded=true";
# else $src=$tmp;
# print "X2<iframe style=\"width:100%;height:100%\" src=\"$src\" frameborder=\"0\">";
# print "</iframe></td></tr>";
# }
print "</tbody></table></td></tr>";
print "<tr><td height=\"100px\"><table width=\"100%\" height=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\" style=\"border: 3px solid rgb(180, 180, 255); padding: 0pt 0pt 1px;\"><tbody>";
$descfil = NULL;
if ($puljefil) {
if (substr($puljefil, -3, 1) == ".") {
$descfil = substr($puljefil, 0, strlen($puljefil) - 3);
} elseif (substr($puljefil, -4, 1) == ".") {
$descfil = substr($puljefil, 0, strlen($puljefil) - 4);
} else {
$descfil = NULL;
}
}
/*
if ($descfil) {
$tmp="../../".$dir."/".$descfil.".desc";
system("cd ../temp/$db/pulje\ncp $tmp .\n");
$fp=fopen("../temp/$db/pulje/$descfil.desc","r");
while($linje=trim(fgets($fp))) {
if (strtolower(substr($linje,0,6))=='bilag:') $bilag=trim(substr($linje,6));
if (strtolower(substr($linje,0,5))=='dato:') $dato=trim(substr($linje,5));
if (strtolower(substr($linje,0,12))=='beskrivelse:') $beskrivelse=trim(substr($linje,12));
if (strtolower(substr($linje,0,6))=='debet:') $debet=trim(substr($linje,6));
if (strtolower(substr($linje,0,7))=='kredit:') $kredit=trim(substr($linje,7));
if (strtolower(substr($linje,0,10))=='fakturanr:') $fakturanr=trim(substr($linje,10));
if (strtolower(substr($linje,0,4))=='sum:') $sum=trim(substr($linje,4));
if (strtolower(substr($linje,0,4))=='sag:') $sag=trim(substr($linje,4));
if (strtolower(substr($linje,0,4))=='afd:') $afd=trim(substr($linje,4));
if (strtolower(substr($linje,0,8))==='projekt:') $projekt=trim(substr($linje,8));
}
}
if (!$dato) $dato=date("d-m-Y");
print "<tr><td>Bilag</td><td><input type=\"text\" style=\"width:150px\" name=\"bilag\" value=\"$bilag\"</td></tr>";
print "<tr><td>Dato</td><td><input type=\"text\" style=\"width:150px\" name=\"dato\" value=\"$dato\"</td></tr>";
print "<tr><td>beskrivelse</td><td><input type=\"text\" style=\"width:150px\" name=\"beskrivelse\" value=\"$beskrivelse\"</td></tr>";
print "<tr><td>Debet</td><td><input type=\"text\" style=\"width:150px\" name=\"debet\" value=\"$debet\"</td></tr>";
print "<tr><td>Kredit</td><td><input type=\"text\" style=\"width:150px\" name=\"kredit\" value=\"$kredit\"</td></tr>";
print "<tr><td>Fakturanr</td><td><input type=\"text\" style=\"width:150px\" name=\"fakturanr\" value=\"$fakturanr\"</td></tr>";
print "<tr><td>Sum</td><td><input type=\"text\" style=\"width:150px\" name=\"sum\" value=\"$sum\"</td></tr>";
print "<tr><td>Sag</td><td><input type=\"text\" style=\"width:150px\" name=\"sag\" value=\"$sag\"</td></tr>";
print "<tr><td>Afd</td><td><input type=\"text\" style=\"width:150px\" name=\"afd\" value=\"$afd\"</td></tr>";
print "<tr><td>Projekt</td><td><input type=\"text\" style=\"width:150px\" name=\"projekt\" value=\"$projekt\"</td></tr>";
*/
print "<tr><td colspan=\"2\"><input style=\"width:100%;height:50px;\" type=\"submit\" name=\"indsaet\" value=\"Indsæt\"</tr>";
print "<tr><td colspan=\"2\"><input style=\"width:100%;height:50px;\" type=\"submit\" name=\"slet_bilag\" value=\"Slet\"</tr>";
print "</tbody></table></td></tr>";
print "<input type=\"hidden\" style=\"width:150px\" name=\"descfil\" value=\"{$descfil}\"</td></tr>";
print "<input type=\"hidden\" style=\"width:150px\" name=\"filnavn\" value=\"" . $url . $puljefil . "\"</td></tr>";
print "</form>";
print "<script language=\"javascript\">";
print "document.gennemse.{$fokus}.focus();";
print "</script>";
exit;
}
