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; }