$provision=dkdecimal($r2['provision']);
print "<td>$r1[beskrivelse]</td><td></td><td><input class=\"inputbox\" type=\"text\" style=text-align:right size=\"5\" name=\"provision[$x]\" value=\"$provision\">%</td></tr>\n";
print "<input type=\"hidden\" name=\"gruppe_id[$x]\" value=\"$r1[id]\">";
print "<input type=\"hidden\" name=\"provision_id[$x]\" value=\"$r2[id]\">";
}
print "<input type=\"hidden\" name=\"pro_antal\" value=\"$x\">";
}
*/
print "</tbody></table><!-- <- TABEL body 2 --></td></tr>\n";
print "<tr><td valign=top width=\"150px\">" . findtekst(659, $sprog_id) . "<!--tekst 659--></td><td colspan=\"3\"><textarea name=\"notes\" rows=\"3\" style=\"width:600px\">{$notes}</textarea></td></tr>\n";
if ($lukket && !$slutdate) {
$lukket = "checked";
print "<tr><td valign=top width=\"150px\">" . findtekst(660, $sprog_id) . "<!--tekst 660--></td><td></td><td><input type=\"checkbox\" name=\"lukket\" {$lukket}></td></tr>\n";
} else {
print "<tr><td width=\"150px\">" . findtekst(663, $sprog_id) . "<!--tekst 663--></td><td width=\"180px\"><input class=\"inputbox\" type=\"text\" style=\"width:180px\" name=\"startdato\" value=\"" . dkdato($startdate) . "\"></td>";
print "<td width=\"150px\">" . findtekst(660, $sprog_id) . "<!--tekst 660--></td><td style width=\"180px\"><input class=\"inputbox\" type=\"text\" style=\"width:180px\" name=\"slutdato\" value=\"" . dkdato($slutdate) . "\"></td></tr>\n";
}
if (isset($box) && count($box)) {
print "<tr><td colspan=\"4\"><hr></td></tr>\n";
$kolonne = 0;
for ($x = 1; $x <= 28; $x++) {
if ($feltnavn[$x]) {
if (!$id) {
$box[$x] = NULL;
}
if (!$kolonne) {
print "<tr>";
}
$kolonne++;
if ($felttype[$x] == 'textarea' && $kolonne == 2) {
print "</tr>\n<tr>";
print "<input type=\"hidden\" name=\"std_varegruppe\" value=\"{$std_varegruppe}\">";
print "<tr><td colspan=\"3\" align=\"center\">Skriv rabatsats for relevante prisgrupper fra {$prisliste}</td></tr>";
print "<tr><td colspan=\"3\" align=\"center\">og vælg varegruppe for de prisgrupper som ikke tilhører den generelle varegruppe</td></tr>";
print "<tr><td colspan=\"3\" align=\"center\"><hr></td></tr>";
print "<tr><td align=\"right\">Prisgruppe</td><td align=\"right\">Rabat</td><td align=\"center\">Varegruppe</td></tr>";
for ($x = 0; $x < $prisgruppeantal; $x++) {
print "<input type=\"hidden\" name=\"prisgruppe[{$x}]\" value=\"{$prisgruppe[$x]}\">";
$ny_rabat[$x] = $std_rabat;
for ($y = 0; $y < $rabatantal; $y++) {
if ($rabatgruppe[$y] == $prisgruppe[$x]) {
$ny_rabat[$x] = $rabat[$y];
}
}
print "<tr><td align=\"right\">{$prisgruppe[$x]}</td>";
print "<td align=\"right\"><INPUT CLASS=\"inputbox\" TYPE=text style=\"text-align:right\" size=1 name=ny_rabat[{$x}] value=\"{$ny_rabat[$x]}\"></td>";
print "<td align=\"center\" title=\"" . findtekst(426, $sprog_id) . "\"><!--tekst 426--><select CLASS=\"inputbox\" name=\"ny_gruppe[{$x}]\">";
# $ny_varegruppe[$x]=$std_varegruppe;
# $ny_vgbesk[$x]=$std_vgbesk;
# for ($y=1;$y<=$gpantal;$y++) {
# if ($gruppe[$y]==$prisgruppe[$x]) {
# $ny_varegruppe[$x]=$varegruppe[$x];
# $ny_vgbesk[$x]=$varegruppe[$x];
#
# }
# }
$tjek = 0;
for ($y = 1; $y <= $gpantal; $y++) {
if ($gruppe[$y] == $prisgruppe[$x]) {
print "<option value=\"{$vgrp[$y]}\">{$vgrp[$y]}: {$vgbesk[$y]}</option>";
$tjek = 1;
}
db_modify("update tekster set tekst='{$tekst[$x]}' where id='{$r['id']}'", __FILE__ . " linje " . __LINE__);
}
}
$x = 0;
$q = db_select("select * from tekster where sprog_id={$sprog_id} order by {$sort}", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$x++;
$id[$x] = $r['id'];
$tekst_id[$x] = $r['tekst_id'];
$tekst[$x] = $r['tekst'];
}
$tekstantal = $x;
print "<form name=\"tekster\" action=\"tekster.php?sprog_id={$sprog_id}&sort={$sort}\" method=\"post\">";
print "<input type=hidden name=tekstantal value=\"{$tekstantal}\">";
print "<table border=1><tbody>";
print "<tr><td><a href=tekster.php?sprog_id={$sprog}&sort=tekst_id>Id</a></td>";
print "<td width=400><a href=tekster.php?sprog_id={$sprog}&sort=tekst>" . findtekst(31, $sprog_id) . "</a></td>";
print "<td title=\"" . findtekst(33, $sprog_id) . "\">" . findtekst(32, $sprog_id) . "</td>";
for ($x = 1; $x <= $tekstantal; $x++) {
print "<input type=hidden name=id[{$x}] value=\"{$id[$x]}\">";
print "<input type=hidden name=tekst[{$x}] value=\"{$tekst[$x]}\">";
print "<tr><td>{$tekst_id[$x]}</td><td>{$tekst[$x]}</td>";
# print "<td><textarea class=\"inputbox\" name=\"ny_tekst[$x]\" rows=\"3\" cols=\"85\">$tekst[$x]</textarea></td>";
print "<td><input type=text class=\"inputbox\" name=\"ny_tekst[{$x}]\" size=\"90\" value=\"{$tekst[$x]}\"></td>";
}
print "<tr><td colspan=3 align=center><input type=submit accesskey=\"o\" value=\"OK\" name=\"submit\"></td></tr>";
print "</form>";
print "</tbody></table>";
?>
</body></html>
function formularprint($id, $formular, $lev_nr, $charset, $udskriv_alle_til)
{
print "<!--function formularprint start-->";
include "../includes/std_func.php";
include "../includes/var2str.php";
global $db;
global $db_id;
global $dkdato;
global $form_id;
global $charset;
global $formularsprog;
global $fp;
global $gebyr;
global $ialt;
# global $id;
global $lev_nr;
global $linjeafstand;
global $logo;
global $logoart;
global $moms;
global $momsgrundlag;
global $momssats;
global $nextside;
global $printerid;
global $ref;
global $side;
global $subtotal;
global $sum;
global $transportsum;
global $y;
global $ya;
global $mailantal;
global $bruger_id;
global $sprog_id;
global $exec_path;
global $vis_saet;
global $brugsamletpris;
$fp1 = NULL;
$kommentarprint = NULL;
$skjul_nul_lin = NULL;
$folgeseddel = 0;
$mailantal = 0;
$nomailantal = 0;
$side_x = 210;
$side_y = 297;
$side_x = afrund($side_x * 2.86, 0);
$side_y = afrund($side_y * 2.86, 0);
$preview = NULL;
$initext = "%!\n%%Creator: Saldi\n%%Pages: 1\n%%BoundingBox: 0 0 {$side_x} {$side_y}\n%%EndComments\n<< /PageSize [{$side_x} {$side_y}] >> setpagedevice\n";
#$initext="%!\n%%Creator: Saldi\n%%Pages: 1\n%%EndComments\n";
$form = array();
$q = db_SELECT("select box2,box14 from grupper where art = 'DIV' and kodenr = '3'", __FILE__ . " linje " . __LINE__);
$r = db_fetch_array($q);
$rabatvare_id = $r['box2'] * 1;
$brugsamletpris = $r['box14'];
if ($vis_saet) {
$brugsamletpris = 'on';
}
if ($id == -1) {
# Saa er der flere fakturaer
$ordre_antal = $_GET['ordre_antal'];
$ordre_id = explode(",", $_GET['skriv']);
if (strpos($formular, ",")) {
list($formular, $folgeseddel) = explode(",", $formular);
}
} elseif (!is_numeric($id)) {
$preview = 1;
$ordre_id[0] = 0;
$ordre_antal = 1;
} else {
$ordre_id[0] = $id;
$ordre_antal = 1;
}
if ($formular == 3) {
$folgeseddel = 1;
}
if ($formular != 3 && $folgeseddel) {
for ($q = 0; $q < $ordre_antal; $q++) {
$form[$q] = $formular;
$r = db_fetch_array(db_select("select lev_addr1,lev_postnr from ordrer where id = {$ordre_id[$q]}", __FILE__ . " linje " . __LINE__));
if ($r['lev_addr1'] && $r['lev_postnr']) {
$form[$q] = 3;
$ordre_antal++;
for ($z = $ordre_antal; $z > $q; $z--) {
$ordre_id[$z] = $ordre_id[$z - 1];
}
$q++;
$form[$q] = $formular;
}
}
}
$r = db_fetch_array(db_select("select box6,box12 from grupper where art = 'POS' and kodenr = '2'", __FILE__ . " linje " . __LINE__));
$vis_saet = trim($r['box12']);
if ($vis_saet) {
$brugsamletpris = 'on';
}
$r = db_fetch_array(db_select("select * from grupper where art='DIV' and kodenr='3'", __FILE__ . " linje " . __LINE__));
$incl_moms = $r['box1'];
if ($folgeseddel) {
$kommentarprint = $r['box3'];
$skjul_nul_lin = $r['box8'];
}
$fsize = filesize("../includes/faktinit.ps");
$initfil = fopen("../includes/faktinit.ps", "r");
$initext = $initext . fread($initfil, $fsize);
fclose($initfil);
if (!file_exists("../temp/{$db}")) {
mkdir("../temp/{$db}", 0775);
}
$mappe = "../temp/{$db}/{$bruger_id}" . "_*";
system("rm -r {$mappe}");
$mappe = "../temp/{$db}/" . abs($bruger_id) . "_" . date("his");
mkdir("{$mappe}", 0775);
if ($ordre_antal > 1) {
$printfilnavn = 'udskrift';
if ($formular <= 1) {
$printfilnavn = "tilbud";
}
if ($formular == 2) {
$printfilnavn = "ordrebek";
}
if ($formular == 3) {
$printfilnavn = "flg_seddel";
}
if ($formular == 4) {
$printfilnavn = "faktura";
}
if ($formular == 9) {
$printfilnavn = "plukliste";
}
if ($formular == 12) {
$printfilnavn = "forslag";
}
if ($formular == 13) {
$printfilnavn = "rekvisition";
}
if ($formular == 14) {
$printfilnavn = "lev_fakt";
}
$fp1 = fopen("{$mappe}/{$printfilnavn}", "w");
}
for ($o = 0; $o < $ordre_antal; $o++) {
$fp = $fp1;
if (isset($form[$o])) {
$formular = $form[$o];
}
$varenr = array();
$lev_varenr = array();
$leveres = array();
$vare_id = array();
$linje_id = array();
$antal = array();
$tidl_lev = array();
$rest = array();
$enhed = array();
$rabat = array();
$momssats = array();
$pris = array();
$l_sum = array();
$linjesum = array();
$sum = '';
$transportsum = 0;
if ($preview) {
$ref = 'Egen ref';
$ordrenr = 'Ordrenummer';
$fakturanr = 'Fakturanummer';
$mail_fakt = '';
$email[0] = 'Kundens email';
$pbs = '';
} else {
$query = db_select("select afd,status,email,ordrenr,fakturanr,mail_fakt,pbs,art,ref,sprog,udskriv_til,mail_subj,mail_text,dokument,procenttillag from ordrer where id = '{$ordre_id[$o]}'", __FILE__ . " linje " . __LINE__);
$row = db_fetch_array($query);
$status = $row['status'];
$afd = $row['afd'];
$art = $row['art'];
$ref = $row['ref'];
$ordrenr = $row['ordrenr'];
if (!$udskriv_alle_til) {
$udskriv_til = $row['udskriv_til'];
} else {
$udskriv_til = $udskriv_alle_til;
}
$fakturanr = $row['fakturanr'];
$mail_fakt = $row['mail_fakt'];
$email[0] = $row['email'];
$pbs = $row['pbs'];
$mail_subj = $row['mail_subj'];
$mail_text = $row['mail_text'];
$mail_bilag = $row['dokument'];
$procenttillag = $row['procenttillag'] * 1;
# $ordresum=$row['sum'];
# $ordremomssum=$row['moms'];
$formularsprog = strtolower($row['sprog']);
if (!$formularsprog) {
$formularsprog = "dansk";
}
if ($formular == 4 || $formular == 5) {
if (!$fakturanr) {
#20130508
return "Fakturering afbrudt (Fakturanr mangler)";
} elseif ($row['status'] < 3) {
#20130508
return "Fakturering afbrudt (Status ikke opdateret)";
} elseif ($row['art'] == "DK") {
$formular = 5;
} else {
$formular = 4;
}
}
$y = 185;
$antal_ordrelinjer = 25;
$x = 0;
$r = db_fetch_array(db_SELECT("select adresser.gruppe,ordrer.procenttillag from ordrer,adresser where ordrer.id = '{$ordre_id[$o]}' and adresser.id=ordrer.konto_id", __FILE__ . " linje " . __LINE__));
$gruppe = $r['gruppe'];
$procenttillag = $r['procenttillag'];
$r = db_fetch_array(db_select("select box8 from grupper where art='DG' and kodenr='{$gruppe}'", __FILE__ . " linje " . __LINE__));
$b2b = $r['box8'];
}
$bgr = "bg";
if ($formular == 5 && file_exists("../logolib/{$db_id}/kreditnota_bg.pdf")) {
$bgr = "kreditnota_bg";
} elseif ($formular >= 3 && file_exists("../logolib/{$db_id}/faktura_bg.pdf")) {
$bgr = "faktura_bg";
} elseif ($formular == 2 && file_exists("../logolib/{$db_id}/ordrer_bg.pdf")) {
$bgr = "ordrer_bg";
} elseif ($formular <= 1 && file_exists("../logolib/{$db_id}/tilbud_bg.pdf")) {
$bgr = "tilbud_bg";
}
#cho "formular: $formular bg: $bgr<br>";
#exit();
print "<!-- kommentar for at skjule uddata til siden \n";
if (!file_exists("../logolib/{$db_id}")) {
mkdir("../logolib/{$db_id}");
}
if (system("which pdftk") && file_exists("../logolib/{$db_id}/{$bgr}.pdf")) {
$logoart = 'PDF';
} elseif ($udskriv_til == 'PDF-tekst') {
$logoart = 'PDF';
} elseif (file_exists("../logolib/{$db_id}/{$formular}.ps")) {
$logo = "../logolib/{$db_id}/{$formular}.ps";
$logoart = 'PS';
} elseif (file_exists("../logolib/{$db_id}/{$bgr}.ps")) {
$logo = "../logolib/{$db_id}/{$bgr}.ps";
$logoart = 'PS';
} else {
$query = db_select("select * from formularer where formular = '{$formular}' and art = '1' and beskrivelse = 'LOGO' and lower(sprog)='{$formularsprog}'", __FILE__ . " linje " . __LINE__);
if ($row = db_fetch_array($query)) {
$logo_X = $row['xa'] * 2.86;
$logo_Y = $row['ya'] * 2.86;
} else {
$logo_X = 430;
$logo_Y = 758;
}
if (file_exists("../logolib/logo_{$db_id}.eps")) {
$logo = "../logolib/logo_{$db_id}.eps";
} else {
$logo = "../logolib/logo.eps";
}
$logoart = 'EPS';
}
print "-->\n";
if ($logoart != 'PDF') {
$fsize = filesize($logo);
$logofil = fopen($logo, "r");
$translate = 0;
$logo = "";
while (!feof($logofil)) {
$linje = fgets($logofil);
if ($logoart == 'EPS') {
if (substr($linje, 0, 2) != "%!") {
if (strstr($linje, "translate") && !$translate) {
$linje = "{$logo_X} {$logo_Y} translate \n";
$translate = 1;
}
$logo = $logo . $linje;
}
} else {
if (strstr($linje, 'showpage')) {
$linje = '';
}
if (strstr($linje, '%%PageTrailer')) {
$linje = '';
}
if (strstr($linje, '%%Trailer')) {
$linje = '';
}
if (strstr($linje, '%%Pages:')) {
$linje = '';
}
if (strstr($linje, '%%EOF')) {
$linje = '';
}
$logo = $logo . $linje;
}
}
fclose($logofil);
}
#cho "select * from formularer where formular = '$formular' and art = '3' and lower(sprog)='$formularsprog'<br>";
$query = db_select("select * from formularer where formular = '{$formular}' and art = '3' and lower(sprog)='{$formularsprog}'", __FILE__ . " linje " . __LINE__);
while ($row = db_fetch_array($query)) {
if ($row['beskrivelse'] == 'generelt') {
$antal_ordrelinjer = $row['xa'];
$ya = $row['ya'];
$linjeafstand = $row['xb'];
# $Opkt=$y-($antal_ordrelinjer*$linjeafstand);
} else {
$x++;
$variabel[$x] = $row['beskrivelse'];
$justering[$x] = $row['justering'];
$xa[$x] = $row['xa'];
$str[$x] = $row['str'];
$laengde[$x] = $row['xb'];
$color[$x] = $row['color'];
$fed[$x] = $row['fed'];
$kursiv[$x] = $row['kursiv'];
$form_font[$x] = $row['font'];
}
$var_antal = $x;
}
if ($formular == 3 && !$lev_nr) {
$r2 = db_fetch_array(db_select("select MAX(lev_nr) as lev_nr from batch_salg where ordre_id = {$ordre_id[$o]}", __FILE__ . " linje " . __LINE__));
$lev_nr = $r2['lev_nr'] * 1;
}
if ($formular == 3 || $formular == 9) {
$udskriv_til = 'PDF';
}
if ($mail_fakt && $formular != 3 && $udskriv_til != 'PDF') {
$mailantal++;
if ($formular <= 1) {
$pfnavn = "tilbud" . $ordrenr;
}
if ($formular == 2) {
$pfnavn = "ordrebek" . $ordrenr;
}
if ($formular == 4) {
$pfnavn = "fakt" . $fakturanr;
}
if ($formular == 5) {
$pfnavn = "kn" . $fakturanr;
}
if ($formular == 9) {
$pfnavn = "plukliste" . $ordrenr;
}
if ($formular == 12) {
$printfilnavn = "forslag" . $ordrenr;
}
if ($formular == 13) {
$printfilnavn = "rekvisition.{$ordrenr}";
}
if ($formular == 14) {
$printfilnavn = "lev_fakt.{$ordrenr}";
}
$email[$mailantal] = $email[0];
$mailsprog[$mailantal] = $formularsprog;
$form_nr[$mailantal] = $formular;
$pfliste[$mailantal] = $pfnavn;
$pfnavn = $mappe . "/" . $pfnavn;
$fp2 = fopen("{$pfnavn}", "w");
$fp = $fp2;
} else {
$nomailantal++;
if ($ordre_antal <= 1) {
#mere sige navn til udskrifter.
if ($formular <= 1) {
$printfilnavn = "tilbud" . $ordrenr;
}
if ($formular == 2) {
$printfilnavn = "ordrebek" . $ordrenr;
}
if ($formular == 3) {
$printfilnavn = "flgs" . $ordrenr . "_" . $lev_nr;
}
if ($formular == 4) {
$printfilnavn = "fakt" . $fakturanr;
}
if ($formular == 5) {
$printfilnavn = "kn" . $fakturanr;
}
if ($formular == 9) {
$printfilnavn = "plukliste" . $ordrenr;
}
if ($formular == 12) {
$printfilnavn = "forslag" . $ordrenr;
}
if ($formular == 13) {
$printfilnavn = "rekvisition.{$ordrenr}";
}
if ($formular == 14) {
$printfilnavn = "lev_fakt.{$ordrenr}";
}
$pfnavn = $mappe . "/" . $printfilnavn;
$fp = fopen("{$pfnavn}", "w");
}
}
$side = 1;
if ($logoart == 'PS') {
fwrite($fp, $logo);
}
fwrite($fp, $initext);
$rabat[0] = formulartekst($ordre_id[$o], $formular, $formularsprog);
if ($ordre_id[$o]) {
$id = $ordre_id[$o];
$x = 0;
$sum = 0;
$moms = 0;
$momssum = 0;
$tmp = 0;
$saetnr = 0;
#cho "$formular<br>";
#xit;
if ($preview) {
for ($x = 1; $x <= 22; $x++) {
$posnr[$x] = $x;
$varenr[$x] = utf8_iso8859('Varenr') . $x;
$projekt[$x] = utf8_iso8859('Projektnr');
$beskrivelse[$x] = utf8_iso8859('Eksempel på en linjetekst');
}
} else {
if ($brugsamletpris) {
$r = db_fetch_array(db_select("select varenr from ordrelinjer where ordre_id = {$ordre_id[$o]} and vare_id='{$rabatvare_id}'", __FILE__ . " linje " . __LINE__));
if ($r['varenr']) {
$rabatvarenr = $r['varenr'];
$rvnr = 1;
} else {
$rvnr = 0;
}
}
# if ($rvnr) $qtxt="select * from ordrelinjer where ordre_id = '$ordre_id[$o]' order by saet,posnr";
# else
#20150302
if ($brugsamletpris && $formular == 3) {
$qtxt = "select * from ordrelinjer where ordre_id = '{$ordre_id[$o]}' and samlevare != 'on' and varenr != '{$rabatvarenr}' order by posnr";
} else {
$qtxt = "select * from ordrelinjer where ordre_id = '{$ordre_id[$o]}' order by posnr";
}
$q = db_select($qtxt, __FILE__ . " linje " . __LINE__);
while ($row = db_fetch_array($q)) {
if ($row['posnr'] > 0 && (!$row['samlevare'] || !is_numeric($row['samlevare'])) && (!in_array($row['posnr'], $posnr) || $formular != 3)) {
# if ($x>=1 && $row['saet'] && !$saet[$x]) {
# $x++;
# $beskrivelse[$x]=" ";
# $saet[$x]=0;
# $samlevare[$x]=0;
# } elseif ($x>=1 && $saet[$x] && $samlevare[$x]) {
# $x--;
# }
$x++;
$posnr[$x] = trim($row['posnr']);
$varenr[$x] = trim($row['varenr']);
$lev_varenr[$x] = trim($row['lev_varenr']);
$projekt[$x] = $row['projekt'];
$beskrivelse[$x] = stripslashes(trim($row['beskrivelse']));
if ($varenr[$x]) {
$vare_id[$x] = $row['vare_id'];
$linje_id[$x] = $row['id'];
$antal[$x] = $row['antal'] * 1;
$leveres[$x] = $row['leveres'] * 1;
$dkantal[$x] = str_replace(".", ",", $antal[$x]);
$momsfri[$x] = $row['momsfri'];
$omvbet[$x] = $row['omvbet'];
$saet[$x] = $row['saet'];
$samlevare[$x] = $row['samlevare'];
#cho "$posnr[$x] $saet[$x] $samlevare[$x]<br>";
$varemomssats[$x] = $row['momssats'] * 1;
if (!$momsfri[$x] && !$varemomssats[$x]) {
$varemomssats[$x] = $momssats;
}
if ($varemomssats[$x] > $momssats) {
$varemomssats[$x] = $momssats;
}
list($a, $b) = explode(",", $dkantal[$x]);
if ($b) {
$dkantal[$x] = "{$a},{$b}";
} else {
$dkantal[$x] = $a;
}
if ($formular == 5) {
$antal[$x] = $antal[$x] * -1;
$dkantal[$x] = str_replace("-", "", $dkantal[$x]);
}
if ($formular == 3 || $formular == 9) {
if (in_array('lokation', $variabel)) {
$r2 = db_fetch_array(db_select("select location from varer where id='{$vare_id[$x]}'", __FILE__ . " linje " . __LINE__));
if ($r2['location']) {
if ($afd && strstr($r2['location'], "|")) {
# 20150417 Ændret strpos til strstr
$lokation = array();
$lokation = explode("|", $r2['location']);
$beskrivelse[$x] .= chr(9) . $lokation[$afd - 1];
} else {
$beskrivelse[$x] .= chr(9) . $r2['location'];
}
}
}
$lev_nr *= 1;
$lev_antal[$x] = 0;
$q2 = db_select("select antal from batch_salg where linje_id = {$linje_id[$x]} and lev_nr = {$lev_nr}", __FILE__ . " linje " . __LINE__);
while ($r2 = db_fetch_array($q2)) {
$lev_antal[$x] = $lev_antal[$x] + $r2['antal'];
}
$tidl_lev[$x] = 0;
$q2 = db_select("select antal from batch_salg where linje_id = {$linje_id[$x]} and lev_nr < {$lev_nr}", __FILE__ . " linje " . __LINE__);
while ($r2 = db_fetch_array($q2)) {
$tidl_lev[$x] = $tidl_lev[$x] + $r2['antal'];
}
$rest[$x] = $antal[$x] - $lev_antal[$x] - $tidl_lev[$x];
}
$enhed[$x] = $row['enhed'];
$pris[$x] = $row['pris'];
# if ($rvnr) {
# if ($varenr[$x]=='R') list($pris[$x])=explode("|",$row['lev_varenr']);
# $rabat[$x]=0;
# } else {
$rabat[$x] = $row['rabat'];
# }
$procent[$x] = $row['procent'];
$row['rabat'] != 0 ? $m_rabat[$x] = 0 : ($m_rabat[$x] = $row['m_rabat'] * 1);
$rabatart[$x] = $row['rabatart'];
if ($rabatart[$x] == "amount") {
$l_sum[$x] = afrund(($pris[$x] - $rabat[$x]) * $antal[$x], 2);
$linjesum[$x] = ($pris[$x] - $rabat[$x]) * $antal[$x];
$linjemoms[$x] = $varemomssats[$x] / 100 * (($pris[$x] - $rabat[$x]) * $antal[$x]);
} else {
$l_sum[$x] = afrund($row['pris'] * $antal[$x] - $pris[$x] * $antal[$x] * $rabat[$x] / 100, 2);
#Afrunding tilfoejet 2009.01.26 grundet diff i ordre 98 i saldi_104
$linjesum[$x] = $row['pris'] * $antal[$x] - $pris[$x] * $antal[$x] * $rabat[$x] / 100;
$linjemoms[$x] = $varemomssats[$x] / 100 * ($pris[$x] * $antal[$x] - $row['pris'] * $antal[$x] * $rabat[$x] / 100);
}
if ($momsfri[$x] == 'on' || $omvbet[$x]) {
$linjemoms[$x] = 0;
}
if ($procent[$x] || $procent[$x] == '0') {
$l_sum[$x] = afrund($l_sum[$x] - $l_sum[$x] * (100 - $procent[$x]) / 100, 2);
$linjesum[$x] = afrund($linjesum[$x] - $linjesum[$x] * (100 - $procent[$x]) / 100, 2);
$linjemoms[$x] = afrund($linjemoms[$x] - $linjemoms[$x] * (100 - $procent[$x]) / 100, 2);
}
$sum += $linjesum[$x];
if ($momsfri[$x] != 'on' && !$omvbet[$x]) {
$moms += afrund($l_sum[$x] * $varemomssats[$x] / 100, 3);
#Decimaltal aendret til 3 2010.12.17 grundet momsdiff (0,01 kr) i ordre id 371 i saldi_297
$momssum += afrund($linjesum[$x], 2);
#Afrunding tilfoejet 2009.01.26 grundet diff i ordre 98 i saldi_104
if ($incl_moms && !$b2b) {
$tmp = afrund($pris[$x] + $pris[$x] * $varemomssats[$x] / 100, 2);
if ($rabatart[$x] == "amount") {
$linjesum[$x] = ($tmp - $rabat[$x]) * $antal[$x];
} else {
$linjesum[$x] = $tmp * $antal[$x] - $tmp * $antal[$x] * $rabat[$x] / 100;
}
$pris[$x] = $tmp;
}
}
if ($rvnr) {
if ($varenr[$x] == $rabatvarenr) {
list($pris[$x]) = explode("|", $row['lev_varenr']);
}
$rabat[$x] = 0;
$linjesum[$x] = ($pris[$x] - $rabat[$x]) * $antal[$x];
}
} else {
$dkantal[$x] = NULL;
$varemomssats[$x] = NULL;
}
$beskrivelse[$x] = var2str($beskrivelse[$x], $ordre_id[$o], $posnr[$x], $varenr[$x], $dkantal[$x], $enhed[$x], $pris[$x], $procent[$x], $serienr[$x], $varemomssats[$x], $rabat[$x]);
if ($formular == 3 && $skjul_nul_lin && !$lev_antal[$x]) {
$varenr[$x] = NULL;
}
#
} else {
$dkantal[$x] = NULL;
}
if ($saet[$x]) {
if ($lev_varenr[$x]) {
list($linjesum[$x]) = explode("|", $lev_varenr[$x], 2);
$dkantal[$x] = '';
} else {
$linjesum[$x] = '';
}
$pris[$x] = '';
/*
if ($saetnr && $saetnr!=$saet[$x]) {
$r=db_fetch_array(db_select("select beskrivelse from varer where id = '$svid'",__FILE__ . " linje " . __LINE__));
$beskrivelse[$x]=$r['beskrivelse'];
$linjesum[$x]=$saetpris;
$saet[$x]=0;
$saetpris=0;
$saetpris=afrund($linjesum[$x-1],2);
} else $saetpris+=afrund($linjesum[$x],2);
$saetnr=$saet[$x];
*/
}
}
/*
if ($saet[$x] && $saetnr) {
$x++;
$r=db_fetch_array(db_select("select beskrivelse from varer where id = '$svid'",__FILE__ . " linje " . __LINE__));
$beskrivelse[$x]=$r['beskrivelse'];
$linjesum[$x]=$saetpris;
$saetpris=0;
}
*/
$tmp = $row['rabat'] * 1;
if ($x > 0 && $formular < 4 && !$tmp && $m_rabat[$x] && $status < 3) {
$y = $x;
$x++;
$posnr[$x] = $posnr[$y];
$vare_id[$x] = $vare_id[$y];
$varenr[$x] = $varenr[$y];
$lev_varenr[$x] = $lev_varenr[$y];
$antal[$x] = $antal[$y];
$projekt[$x] = $projekt[$y];
# $beskrivelse[$x]=findtekst(366,$sprog_id);
$dkantal[$x] = $dkantal[$y];
$lev_antal[$x] = $lev_antal[$y];
$leveres[$x] = $leveres[$y];
$tidl_lev[$x] = $tidl_lev[$y];
$rest[$x] = $rest[$y];
$enhed[$x] = '';
$rabat[$x] = $rabat[$y];
$incl_moms && !$b2b ? $tmp = $m_rabat[$y] + $m_rabat[$y] * $varemomssats[$y] / 100 : ($tmp = $m_rabat[$y]);
$pris[$x] = $tmp * -1;
$rabatpct = afrund($tmp * 100 / usdecimal($pris[$y]), 2);
$l_sum[$x] = afrund($tmp * -$antal[$x], 3);
$linjesum[$x] = $l_sum[$x];
# $linjesum[$x]=dkdecimal($l_sum[$x]);
if ($varemomssats[$y] > 0) {
$linjemoms[$x] = $varemomssats[$y] * $linjesum[$x] * 0.01;
} else {
$linjemoms[$x] = $varemomssats[$y] * $linjesum[$x];
}
$sum += $l_sum[$x];
if ($momsfri[$y] != 'on' && !$omvbet[$x]) {
$moms += afrund($m_rabat[$y] * $antal[$x] * $varemomssats[$y] / -100, 3);
$momssum = $momssum + afrund($m_rabat[$y] * -$antal[$x], 2);
}
$rabatart[$x] == 'amount' ? $beskrivelse[$x] = findtekst(466, $sprog_id) : ($beskrivelse[$x] = findtekst(467, $sprog_id));
$beskrivelse[$x] = str_replace('$rabatpct', $rabatpct, $beskrivelse[$x]);
}
$linjeantal = $x;
}
if ($status < 3 && $procenttillag > 0) {
$r = db_fetch_array(db_select("select box13 from grupper where art = 'DIV' and kodenr = '3'", __FILE__ . " linje " . __LINE__));
list($tmp, $procentvare) = explode(chr(9), $r['box13']);
if ($procentvare && ($r = db_fetch_array(db_select("select beskrivelse from varer where varenr='{$procentvare}'", __FILE__ . " linje " . __LINE__)))) {
$x++;
$linjeantal++;
$posnr[$x] = $posnr[$x - 1] + 1;
$varenr[$x] = $procentvare;
$beskrivelse[$x] = $r['beskrivelse'];
$procent[$x] = $r['procent'];
$dkantal[$x] = 1;
$linjesum[$x] = $sum * $procenttillag / 100;
if ($momssats) {
$momssum += $linjesum[$x];
}
$linjemoms[$x] = $linjesum[$x] / 100 * $momssats;
$sum += $sum * $procenttillag / 100;
$moms += $linjemoms[$x];
$pris[$x] = $linjesum[$x];
}
}
$y = $ya;
$y_tjek = $y;
$Opkt = $y - $antal_ordrelinjer * $linjeafstand;
for ($x = 1; $x <= $linjeantal; $x++) {
$beskrivelse[$x] = str_replace('$procenttillæg;', dkdecimal($procenttillag), $beskrivelse[$x]);
$beskrivelse[$x] = str_replace('$procenttillæg', dkdecimal($procenttillag), $beskrivelse[$x]);
$beskrivelse[$x] = str_replace('$antal;', $dkantal[$x], $beskrivelse[$x]);
$beskrivelse[$x] = str_replace('$pris;', $pris[$x], $beskrivelse[$x]);
$beskrivelse[$x] = str_replace('$linjesum;', $linjesum[$x], $beskrivelse[$x]);
$beskrivelse[$x] = str_replace('$varenr;', $varenr[$x], $beskrivelse[$x]);
$beskrivelse[$x] = str_replace('$rabat;', $rabat[$x], $beskrivelse[$x]);
$beskrivelse[$x] = str_replace('$procent;', $procent[$x], $beskrivelse[$x]);
$beskrivelse[$x] = str_replace('$antal', $dkantal[$x], $beskrivelse[$x]);
$beskrivelse[$x] = str_replace('$pris', $pris[$x], $beskrivelse[$x]);
$beskrivelse[$x] = str_replace('$linjesum', $linjesum[$x], $beskrivelse[$x]);
$beskrivelse[$x] = str_replace('$varenr', $varenr[$x], $beskrivelse[$x]);
$beskrivelse[$x] = str_replace('$rabat', $rabat[$x], $beskrivelse[$x]);
$beskrivelse[$x] = str_replace('$procent', $procent[$x], $beskrivelse[$x]);
if ($charset == "utf-8") {
$varenr[$x] = utf8_iso8859($varenr[$x]);
$lev_varenr[$x] = utf8_iso8859($lev_varenr[$x]);
$beskrivelse[$x] = utf8_iso8859($beskrivelse[$x]);
}
/*
if ($saet[$x]) {
$linjesum[$x]='';
$linjemoms[$x]='';
$pris[$x]='';
$rabat[$x]='';
$procent[$x]='';
} else {
*/
$linjesum[$x] = dkdecimal($linjesum[$x]);
$linjemoms[$x] = dkdecimal($linjemoms[$x]);
$pris[$x] = dkdecimal($pris[$x]);
$rabat[$x] = dkdecimal($rabat[$x]);
$procent[$x] = dkdecimal($procent[$x]);
# }
$transportsum = $transportsum + $l_sum[$x - 1];
$skriv = 0;
if ($kommentarprint == 'on' || $formular != 3 || $varenr[$x]) {
$skriv = 1;
}
#Fordi tekst uden varenr ikke skal med paa foelgesedlen med mindre det er angivet i "formularprint";
# if ($saet[$x] && $samlevare[$x]) $skriv=0; #Fordi tekst uden varenr ikke skal med paa foelgesedlen med mindre det er angivet i "formularprint";
if ($skriv) {
for ($z = 1; $z <= $var_antal; $z++) {
if (substr($variabel[$z], 0, 8) == "fritekst") {
$tmp = substr($variabel[$z], 9);
$svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$tmp}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
}
if ($y_tjek != $y) {
#Det først skrevne felt på en linje bliver "ædt" ved sideskift. Derfor dette dummy felt.
$svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
$y_tjek = $y;
}
if ($variabel[$z] == "posnr") {
$svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$posnr[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
} elseif ($variabel[$z] == "varenr") {
$svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$varenr[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
} elseif ($variabel[$z] == "lev_varenr") {
$svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$lev_varenr[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
} elseif ($variabel[$z] == "leveres") {
$svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$leveres[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
} elseif ($variabel[$z] == "projekt") {
$svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$projekt[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
} elseif ($variabel[$z] == "antal") {
$svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$dkantal[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
} elseif ($variabel[$z] == "lev_antal") {
$svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$lev_antal[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
} elseif ($variabel[$z] == "tidl_lev") {
$svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$tidl_lev[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
} elseif ($variabel[$z] == "lev_rest") {
$svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$rest[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
} elseif ($variabel[$z] == "pris") {
$svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$pris[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
} elseif ($variabel[$z] == "enhed") {
$svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$enhed[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
} elseif ($variabel[$z] == "momssats") {
$svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$varemomssats[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
} elseif ($variabel[$z] == "rabat") {
$svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$rabat[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
} elseif ($variabel[$z] == "procent") {
$svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$procent[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
} elseif ($variabel[$z] == "linjemoms") {
$svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$linjemoms[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
} elseif ($variabel[$z] == "varemomssats") {
$svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$varemomssats[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
} elseif ($variabel[$z] == "linjesum") {
$svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$linjesum[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
} elseif ($variabel[$z] != "beskrivelse" && $variabel[$z] != "lokation") {
$svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$variabel[$z]}", "fritekst_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}");
} elseif ($variabel[$z] == "beskrivelse") {
$skriv_beskriv[$x] = $z;
}
}
if ($z = $skriv_beskriv[$x]) {
$y2 = ombryd("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$beskrivelse[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", $laengde[$z], $formular, $linjeafstand);
}
$y = $y2;
if ($y == 0) {
$y = $ya;
}
$y = $y - $linjeafstand;
}
}
if ($brugsamletpris) {
$r = db_fetch_array(db_select("select sum,moms from ordrer where id = '{$id}'"));
$sum = $r['sum'];
$moms = $r['moms'];
}
$momssum = afrund($momssum, 2);
$sum = afrund($sum, 2);
$ialt = dkdecimal($sum + $moms);
$momsgrundlag = dkdecimal($momssum);
$moms = dkdecimal($moms);
$sum = dkdecimal($sum);
}
if ($id) {
find_form_tekst($id, 'S', $formular, 0, $linjeafstand, "");
}
# Sum paa sidste side.
if ($ordre_id[$o]) {
bundtekst($ordre_id[$o]);
}
# Uden denne skrives kun side 1
if ($mail_fakt) {
fclose($fp2);
}
#cho "$o A $ordre_id[$o] $mappe/$pfliste[$o]<br>";
}
fclose($fp);
#cho "$mailantal -> $nomailantal<br>";
#xit;
if ($mailantal > 0) {
ini_set("include_path", ".:../phpmailer");
require "class.phpmailer.php";
if (!isset($exec_path)) {
$exec_path = "/usr/bin";
}
for ($x = 1; $x <= $mailantal; $x++) {
#cho "$x B $ordre_id[$x] $mappe/$pfliste[$x]<br>";
print "<!-- kommentar for at skjule uddata til siden \n";
system("{$exec_path}/ps2pdf {$mappe}/{$pfliste[$x]} {$mappe}/{$pfliste[$x]}.pdf");
print "--> \n";
if ($logoart == 'PDF') {
print "<!-- kommentar for at skjule uddata til siden \n";
$out = $mappe . "/" . $pfliste[$x] . "x.pdf";
system("{$exec_path}/pdftk {$mappe}/{$pfliste[$x]}.pdf background ../logolib/{$db_id}/{$bgr}.pdf output {$out}");
# unlink ("$mappe/$pfliste[$x].pdf");
system("mv {$out} {$mappe}/{$pfliste[$x]}.pdf");
print "--> \n";
}
$o = $x - 1;
$svar = send_mails("{$ordre_id[$o]}", "{$mappe}/{$pfliste[$x]}.pdf", $email[$x], $mailsprog[$x], $form_nr[$x], "{$mail_subj}", "{$mail_text}", "{$mail_bilag}", $x);
# return($svar);
}
}
#if ($mailantal>0) include("mail_faktura.php");
if ($nomailantal > 0) {
print "<meta http-equiv=\"refresh\" content=\"0;URL=../includes/udskriv.php?ps_fil={$mappe}/{$printfilnavn}&id={$id}&udskriv_til={$udskriv_til}&art={$art}&bgr={$bgr}\">";
} elseif ($popup) {
print "<meta http-equiv=\"refresh\" content=\"0;URL=../includes/luk.php\">";
}
#else print "<meta http-equiv=\"refresh\" content=\"0;URL=ordre.php?id=$id\">";
return 'OK';
print "<!--function formularprint s**t-->";
}
if ($popup) {
print "<td width=\"10%\" {$top_bund} onClick=\"javascript:d_ordrer=window.open('ordreliste.php?konto_id={$id}&valg=faktura&returside=../includes/luk.php','d_ordrer','" . $jsvars . "');d_ordrer.focus();\" onMouseOver=\"this.style.cursor = 'pointer'\" title=\"{$tekst}\">" . findtekst(134, $sprog_id) . "<!--tekst 134--></td>\n";
} else {
print "<td width=\"10%\" {$top_bund} title=\"{$tekst}\"><!--tekst 129--><a href=ordreliste.php?konto_id={$id}&valg=faktura&returside=../debitor/debitorkort.php?id={$id}>" . findtekst(134, $sprog_id) . "<!--tekst 134--></td>\n";
}
} else {
print "<td width=\"10%\" {$top_bund}><span style=\"color:#999;\">" . findtekst(134, $sprog_id) . "<!--tekst 134--></span></td>\n";
}
$r = db_fetch_array(db_select("select box7 from grupper where art = 'DIV' and kodenr = '2'", __FILE__ . " linje " . __LINE__));
$jobkort = $r['box7'];
if ($jobkort) {
$tekst = findtekst(312, $sprog_id);
#"Klik her for at åbne listen med arbejdskort"
print "<td width=\"10%\" {$top_bund} title=\"{$tekst}\"><!--tekst 312--><a href=jobliste.php?konto_id={$id}&returside=debitorkort.php>" . findtekst(38, $sprog_id) . "<!--tekst 38--></td>\n";
} else {
print "<td width=\"10%\" {$top_bund}><span style=\"color:#999;\">" . findtekst(38, $sprog_id) . "<!--tekst 38--></span></td>\n";
}
print "<td width=\"25%\" {$top_bund}> </td>\n";
print "</td></tbody></table></td></tr>";
# <- TABEL 1.3
print "</tbody></table>";
# <- TABEL 1
function split_navn($firmanavn)
{
$y = 0;
$tmp = array();
$tmp = explode(" ", $firmanavn);
$x = count($tmp) - 1;
$efternavn = $tmp[$x];
while ($y < $x - 1) {
$fornavn .= $tmp[$y] . " ";
function opret_ordre_kopi($sag_id, $konto_id)
{
#20140730
global $brugernavn;
global $db;
global $default_procenttillag;
$konto_id = $_GET['konto_id'];
$sag_id = $_GET['sag_id'];
$ordre_id = $_GET['ordre_id'];
$returside = urlencode("../sager/sager.php?funktion=vis_sag&sag_id={$sag_id}&konto_id={$konto_id}");
//#cho "(opret_ordre_kopi) konto_id: $konto_id<br>";
//#cho "(opret_ordre_kopi) sag_id: $sag_id<br>";
//#cho "(opret_ordre_kopi) ordre_id: $ordre_id";
//exit();
$query = db_select("select * from adresser where id = '{$konto_id}'", __FILE__ . " linje " . __LINE__);
if ($row = db_fetch_array($query)) {
$kontonr = $row['kontonr'];
$firmanavn = db_escape_string($row['firmanavn']);
$addr1 = db_escape_string($row['addr1']);
$addr2 = db_escape_string($row['addr2']);
$postnr = trim($row['postnr']);
$bynavn = trim($row['bynavn']);
if ($postnr && !$bynavn) {
$bynavn = bynavn($postnr);
}
$bynavn = db_escape_string($bynavn);
$postnr = db_escape_string($postnr);
$land = db_escape_string($row['land']);
$betalingsdage = $row['betalingsdage'];
$betalingsbet = db_escape_string($row['betalingsbet']);
$cvrnr = db_escape_string($row['cvrnr']);
$ean = db_escape_string($row['ean']);
$institution = db_escape_string($row['institution']);
$email = db_escape_string($row['email']);
$mail_fakt = $row['mailfakt'];
if ($row['pbs_nr'] > 0) {
$pbs_nr = $row['pbs_nr'];
$pbs = 'bs';
}
$kontakt = db_escape_string($row['kontakt']);
$notes = db_escape_string($row['notes']);
$gruppe = db_escape_string($row['gruppe']);
$kontoansvarlig = db_escape_string($row['kontoansvarlig']);
$lev_firmanavn = db_escape_string($row['lev_firmanavn']);
$lev_addr1 = db_escape_string($row['lev_addr1']);
$lev_addr2 = db_escape_string($row['lev_addr2']);
$lev_postnr = trim($row['lev_postnr']);
$lev_bynavn = trim($row['lev_bynavn']);
if ($lev_postnr && !$lev_bynavn) {
$lev_bynavn = bynavn($lev_postnr);
}
$lev_bynavn = db_escape_string($lev_bynavn);
$lev_postnr = db_escape_string($lev_postnr);
$lev_land = db_escape_string($row['lev_land']);
$lev_kontakt = db_escape_string($row['lev_kontakt']);
findtekst(244, $sprog_id) == findtekst(255, $sprog_id) ? $felt_1 = db_escape_string($row['felt_1']) : ($felt_1 = '');
findtekst(245, $sprog_id) == findtekst(256, $sprog_id) ? $felt_2 = db_escape_string($row['felt_2']) : ($felt_2 = '');
findtekst(246, $sprog_id) == findtekst(257, $sprog_id) ? $felt_3 = db_escape_string($row['felt_3']) : ($felt_3 = '');
findtekst(247, $sprog_id) == findtekst(258, $sprog_id) ? $felt_4 = db_escape_string($row['felt_4']) : ($felt_4 = '');
findtekst(248, $sprog_id) == findtekst(259, $sprog_id) ? $felt_5 = db_escape_string($row['felt_5']) : ($felt_5 = '');
}
if ($kontoansvarlig) {
$query = db_select("select navn from ansatte where id='{$kontoansvarlig}'", __FILE__ . " linje " . __LINE__);
$row = db_fetch_array($query);
$ref = $row['navn'];
} else {
$row = db_fetch_array(db_select("select ansat_id from brugere where brugernavn = '{$brugernavn}'", __FILE__ . " linje " . __LINE__));
if ($row['ansat_id']) {
$row = db_fetch_array(db_select("select navn from ansatte where id = {$row['ansat_id']}", __FILE__ . " linje " . __LINE__));
if ($row['navn']) {
$ref = $row['navn'];
}
}
}
if ($gruppe) {
$r = db_fetch_array(db_select("select box1,box3,box4,box6,box8 from grupper where art='DG' and kodenr='{$gruppe}'", __FILE__ . " linje " . __LINE__));
$tmp = substr($r['box1'], 1, 1) * 1;
# $rabatsats=$r['box6']*1;
$formularsprog = $r['box4'];
$valuta = $r['box3'];
$b2b = $r['box8'];
$r = db_fetch_array(db_select("select box2 from grupper where art='SM' and kodenr='{$tmp}'", __FILE__ . " linje " . __LINE__));
$momssats = $r['box2'] * 1;
} elseif ($konto_id) {
print "<BODY onLoad=\"javascript:alert('Debitoren er ikke tilknyttet en debitorgruppe')\">\n";
print "<meta http-equiv=\"refresh\" content=\"0;URL=debitorkort.php?id={$konto_id}&returside=../debitor/ordre.php&ordre_id={$id}&fokus={$fokus}?id={$id}\">\n";
exit;
}
// Her oprettes tilbudsnr
if ($r = db_fetch_array(db_select("select * from ordrer where sag_id='{$sag_id}'", __FILE__ . " linje " . __LINE__))) {
$r = db_fetch_array(db_select("select max(tilbudnr) as tilbudnr from ordrer where sag_id='{$sag_id}'", __FILE__ . " linje " . __LINE__));
$tilbudsnummer = $r['tilbudnr'];
$ny_tilbudnr = explode("-", $tilbudsnummer);
// Her fjerner jeg '-', og laver '$ny_tilbudnr' til et array
$ny_tilbudnr[1] = sprintf("%02s", $ny_tilbudnr[1] + 1);
// Her lægges 1 til det sidste nummer. Bruger 'sprintf()' for at sikre et to cifret tal
$tilbudnr = implode("-", $ny_tilbudnr);
// Her sætter jeg begge numre sammen igen med bindestreg
} else {
$r = db_fetch_array(db_select("select sagsnr from sager where id = {$sag_id}", __FILE__ . " linje " . __LINE__));
$tilbudnr = $r['sagsnr'] .= '-01';
// bindestreg foran tilbudsnr. database skal ændres fra integer til text
}
// Her laves nr. Nr bliver brugt til visning af tilbuds-liste i sager.php
if ($r = db_fetch_array(db_select("select * from ordrer where sag_id='{$sag_id}'", __FILE__ . " linje " . __LINE__))) {
$r = db_fetch_array(db_select("select max(nr) as nr from ordrer where sag_id='{$sag_id}'", __FILE__ . " linje " . __LINE__));
$tilbud_nr = $r['nr'] + 1;
} else {
$tilbud_nr = '1';
}
// Her hentes oplysninger fra sager
$r = db_fetch_array(db_select("select * from sager where id='{$sag_id}'", __FILE__ . " linje " . __LINE__));
$sagsnr = $r['sagsnr'];
//$konto_id=$r['konto_id'];
//$firmanavn=htmlspecialchars($r['firmanavn']);
//$addr1=htmlspecialchars($r['addr1']);
//$addr2=htmlspecialchars($r['addr2']);
//$postnr=$r['postnr'];
//$bynavn=htmlspecialchars($r['bynavn']);
//$beskrivelse=htmlspecialchars($r['beskrivelse']);
//$omfang=htmlspecialchars($r['omfang']);
$udf_firmanavn = htmlspecialchars($r['udf_firmanavn']);
$udf_addr1 = htmlspecialchars($r['udf_addr1']);
$udf_addr2 = htmlspecialchars($r['udf_addr2']);
$udf_postnr = $r['udf_postnr'];
$udf_bynavn = htmlspecialchars($r['udf_bynavn']);
$sag_kontakt = htmlspecialchars($r['kontakt']);
if ($sag_kontakt) {
#20160201
$kontakt = $sag_kontakt;
$r = db_fetch_array(db_select("select * from ansatte where navn='{$kontakt}' and konto_id='{$konto_id}'", __FILE__ . " linje " . __LINE__));
$kontakt_tlf = $r['mobil'];
} elseif ($kontakt && !$sag_kontakt) {
$r = db_fetch_array(db_select("select * from ansatte where navn='{$kontakt}' and konto_id='{$konto_id}'", __FILE__ . " linje " . __LINE__));
$kontakt_tlf = $r['mobil'];
}
//$ref=htmlspecialchars($r['ref']);
//$oprettet_af=htmlspecialchars($r['oprettet_af']);
//$dato=date("d-m-y",$r['tidspkt']);
//$tid=date("H:i",$r['tidspkt']);
//$status=$r['status'];
/*
echo "konto_id: $konto_id<br>"; #exit();
echo "kontakt: $kontakt<br>"; #exit();
echo "sag_kontakt: $sag_kontakt<br>"; #exit();
echo "kontakt_tlf: $kontakt_tlf<br>"; exit();
*/
if (!$id && $firmanavn) {
$r = db_fetch_array(db_select("select max(ordrenr) as ordrenr from ordrer where art='DO' or art='DK' order by ordrenr desc", __FILE__ . " linje " . __LINE__));
$ordrenr = $r['ordrenr'] + 1;
$ordredate = date("Y-m-d");
$tidspkt = date("U");
$default_procenttillag *= 1;
$lev_firmanavn ? $vis_lev_addr = 'on' : ($vis_lev_addr = '');
db_modify("insert into ordrer (ordrenr,konto_id,kontonr,firmanavn,addr1,addr2,postnr,bynavn,land,betalingsdage,betalingsbet,cvrnr,ean,institution,email,mail_fakt,notes,art,ordredate,momssats,hvem,tidspkt,ref,valuta,sprog,kontakt,kontakt_tlf,pbs,status,restordre,lev_navn,lev_addr1,lev_addr2,lev_postnr,lev_bynavn,lev_kontakt,vis_lev_addr,felt_1,felt_2,felt_3,felt_4,felt_5,sag_id,tilbudnr,datotid,nr,returside,sagsnr,procenttillag) values ({$ordrenr},'{$konto_id}','{$kontonr}','{$firmanavn}','{$addr1}','{$addr2}','{$postnr}','{$bynavn}','{$land}','{$betalingsdage}','{$betalingsbet}','{$cvrnr}','{$ean}','{$institution}','{$email}','{$mail_fakt}','{$notes}','DO','{$ordredate}','{$momssats}','{$brugernavn}','{$tidspkt}','{$ref}','{$valuta}','{$formularsprog}','{$kontakt}','{$kontakt_tlf}','{$pbs}','0','0','{$udf_firmanavn}','{$udf_addr1}','{$udf_addr2}','{$udf_postnr}','{$udf_bynavn}','{$lev_kontakt}','{$vis_lev_addr}','{$felt_1}','{$felt_2}','{$felt_3}','{$felt_4}','{$felt_5}','{$sag_id}','{$tilbudnr}','{$tidspkt}','{$tilbud_nr}','{$returside}','{$sagsnr}','{$default_procenttillag}')", __FILE__ . " linje " . __LINE__);
$r = db_fetch_array(db_select("select max(id) as id from ordrer where sag_id = '{$sag_id}'", __FILE__ . " linje " . __LINE__));
$nyordre_id = $r['id'];
$x = 0;
$q = db_select("select * from ordrelinjer where ordre_id = '{$ordre_id}'", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$x++;
$ordrelinje_id[$x] = $r['id'];
$varenr_OT[$x] = db_escape_string($r['varenr']);
$beskrivelse_OT[$x] = db_escape_string(trim($r['beskrivelse']));
$enhed_OT[$x] = db_escape_string($r['enhed']);
$posnr_OT[$x] = $r['posnr'];
$pris_OT[$x] = $r['pris'];
$rabat_OT[$x] = $r['rabat'];
$lev_varenr_OT[$x] = db_escape_string($r['lev_varenr']);
//$ordre_id[$x]=$r['ordre_id'];
$serienr_OT[$x] = db_escape_string($r['serienr']);
$vare_id_OT[$x] = trim($r['vare_id']);
$antal_OT[$x] = $r['antal'];
$leveres_OT[$x] = $r['leveres'];
$leveret_OT[$x] = $r['leveret'];
$bogf_konto_OT[$x] = $r['bogf_konto'];
$oprettet_af_OT[$x] = db_escape_string(trim($r['oprettet_af']));
$bogfort_af_OT[$x] = db_escape_string(trim($r['bogfort_af']));
$hvem_OT[$x] = db_escape_string($r['hvem']);
$tidspkt_OT[$x] = db_escape_string($r['tidspkt']);
$kred_linje_id_OT[$x] = $r['kred_linje_id'];
$momsfri_OT[$x] = $r['momsfri'];
$momssats_OT[$x] = $r['momssats'];
$kostpris_OT[$x] = $r['kostpris'];
$samlevare_OT[$x] = $r['samlevare'];
$projekt_OT[$x] = db_escape_string($r['projekt']);
$m_rabat_OT[$x] = $r['m_rabat'];
$rabatgruppe_OT[$x] = $r['rabatgruppe'];
$folgevare_OT[$x] = $r['folgevare'];
$kdo_OT[$x] = $r['kdo'];
$rabatart_OT[$x] = $r['rabatart'];
$variant_id_OT[$x] = db_escape_string($r['variant_id']);
$procent_OT[$x] = $r['procent'];
}
$ordrelinjeantal = $x;
for ($x = 1; $x <= $ordrelinjeantal; $x++) {
if ($ordrelinje_id[$x]) {
//print_r($ordrelinje_id);exit();
if ($pris_OT[$x] != NULL) {
$pris_tbl[$x] = "pris,";
$pris_value[$x] = "'{$pris_OT[$x]}',";
} else {
$pris_tbl[$x] = NULL;
$pris_value[$x] = NULL;
}
if ($rabat_OT[$x] != NULL) {
$rabat_tbl[$x] = "rabat,";
$rabat_value[$x] = "'{$rabat_OT[$x]}',";
} else {
$rabat_tbl[$x] = NULL;
$rabat_value[$x] = NULL;
}
if ($vare_id_OT[$x] != NULL) {
$vare_id_tbl[$x] = "vare_id,";
$vare_id_value[$x] = "'{$vare_id_OT[$x]}',";
} else {
$vare_id_tbl[$x] = NULL;
$vare_id_value[$x] = NULL;
}
if ($antal_OT[$x] != NULL) {
$antal_tbl[$x] = "antal,";
$antal_value[$x] = "'{$antal_OT[$x]}',";
} else {
$antal_tbl[$x] = NULL;
$antal_value[$x] = NULL;
}
if ($leveres_OT[$x] != NULL) {
$leveres_tbl[$x] = "leveres,";
$leveres_value[$x] = "'{$leveres_OT[$x]}',";
} else {
$leveres_tbl[$x] = NULL;
$leveres_value[$x] = NULL;
}
if ($leveret_OT[$x] != NULL) {
$leveret_tbl[$x] = "leveret,";
$leveret_value[$x] = "'{$leveret_OT[$x]}',";
} else {
$leveret_tbl[$x] = NULL;
$leveret_value[$x] = NULL;
}
if ($bogf_konto_OT[$x] != NULL) {
$bogf_konto_tbl[$x] = "bogf_konto,";
$bogf_konto_value[$x] = "'{$bogf_konto_OT[$x]}',";
} else {
$bogf_konto_tbl[$x] = NULL;
$bogf_konto_value[$x] = NULL;
}
if ($kred_linje_id_OT[$x] != NULL) {
$kred_linje_id_tbl[$x] = "kred_linje_id,";
$kred_linje_id_value[$x] = "'{$kred_linje_id_OT[$x]}',";
} else {
$kred_linje_id_tbl[$x] = NULL;
$kred_linje_id_value[$x] = NULL;
}
if ($momssats_OT[$x] != NULL) {
$momssats_tbl[$x] = "momssats,";
$momssats_value[$x] = "'{$momssats_OT[$x]}',";
} else {
$momssats_tbl[$x] = NULL;
$momssats_value[$x] = NULL;
}
if ($kostpris_OT[$x] != NULL) {
$kostpris_tbl[$x] = "kostpris,";
$kostpris_value[$x] = "'{$kostpris_OT[$x]}',";
} else {
$kostpris_tbl[$x] = NULL;
$kostpris_value[$x] = NULL;
}
if ($m_rabat_OT[$x] != NULL) {
$m_rabat_tbl[$x] = "m_rabat,";
$m_rabat_value[$x] = "'{$m_rabat_OT[$x]}',";
} else {
$m_rabat_tbl[$x] = NULL;
$m_rabat_value[$x] = NULL;
}
if ($rabatgruppe_OT[$x] != NULL) {
$rabatgruppe_tbl[$x] = "rabatgruppe,";
$rabatgruppe_value[$x] = "'{$rabatgruppe_OT[$x]}',";
} else {
$rabatgruppe_tbl[$x] = NULL;
$rabatgruppe_value[$x] = NULL;
}
if ($folgevare_OT[$x] != NULL) {
$folgevare_tbl[$x] = "folgevare,";
$folgevare_value[$x] = "'{$folgevare_OT[$x]}',";
} else {
$folgevare_tbl[$x] = NULL;
$folgevare_value[$x] = NULL;
}
db_modify("insert into ordrelinjer (varenr,beskrivelse,enhed,posnr,{$pris_tbl[$x]} {$rabat_tbl[$x]} lev_varenr,ordre_id,serienr,{$vare_id_tbl[$x]} {$antal_tbl[$x]} {$leveres_tbl[$x]} {$leveret_tbl[$x]} {$bogf_konto_tbl[$x]} oprettet_af,bogfort_af,hvem,tidspkt,{$kred_linje_id_tbl[$x]} momsfri,{$momssats_tbl[$x]} {$kostpris_tbl[$x]} samlevare,projekt,{$m_rabat_tbl[$x]} {$rabatgruppe_tbl[$x]} {$folgevare_tbl[$x]} kdo,rabatart,variant_id,procent) values ('{$varenr_OT[$x]}','{$beskrivelse_OT[$x]}','{$enhed_OT[$x]}','{$posnr_OT[$x]}',{$pris_value[$x]} {$rabat_value[$x]} '{$lev_varenr_OT[$x]}','{$nyordre_id}','{$serienr_OT[$x]}',{$vare_id_value[$x]} {$antal_value[$x]} {$leveres_value[$x]} {$leveret_value[$x]} {$bogf_konto_value[$x]} '{$oprettet_af_OT[$x]}','{$bogfort_af_OT[$x]}','{$hvem_OT[$x]}','{$tidspkt_OT[$x]}',{$kred_linje_id_value[$x]} '{$momsfri_OT[$x]}',{$momssats_value[$x]} {$kostpris_value[$x]} '{$samlevare_OT[$x]}','{$projekt_OT[$x]}',{$m_rabat_value[$x]} {$rabatgruppe_value[$x]} {$folgevare_value[$x]} '{$kdo_OT[$x]}','{$rabatart_OT[$x]}','{$variant_id_OT[$x]}','{$procent_OT[$x]}')", __FILE__ . " linje " . __LINE__);
}
}
$query = db_select("select id from ordrer where kontonr='{$kontonr}' and ordredate='{$ordredate}' order by id desc", __FILE__ . " linje " . __LINE__);
if ($row = db_fetch_array($query)) {
$id = $row['id'];
}
}
//#cho $id;
//}
return $id;
}
# tabel 1.2.1.1 ->
print "";
if (file_exists("../img/logo.png")) {
print "<img style=\"border:0px solid;width:50px;heigth:50px\" alt=\"\" src=\"../img/logo.png\">";
}
print "</td><td width=\"80%\" align=\"center\">{$tmp}</td><td width=\"10%\" align=\"right\">";
if (file_exists("../img/logo.png")) {
print "<img style=\"border:0px solid;width:50px;heigth:50px\" alt=\"\" src=\"../img/logo.png\"></td></tr>\n";
}
print "</tbody></table></td></tr>";
# <- tabel 1.2.1.1
print "<tr><td colspan=\"2\"><hr></td></tr>\n";
print "<tr><td>" . findtekst(322, $sprog_id) . "</td>";
print "<td width=\"2%\">";
print "<input class=\"inputbox\" style=\"width:160px\" type=\"TEXT\" NAME=\"regnskab\" value=\"{$regnskab}\">";
print "</tr><tr><td>" . findtekst(323, $sprog_id) . "</td><td><INPUT class=\"inputbox\" style=\"width:160px\" TYPE=\"TEXT\" NAME=\"navn\" value=\"{$brugernavn}\"></td></tr>\n";
print "<tr><td><br></td>";
print "<tr><td colspan=\"2\" align=\"center\"><input type=\"submit\" name=\"send\" value=\"Send\"><input type=\"submit\" name=\"retur\" value=\"Retur\"></td></tr>\n";
print "</tbody></table></FORM></td></tr>\n";
# <- tabel 1.2.1
print "</tbody></table></td></tr>\n";
# <- tabel 1.2
print "<tr><td width=\"100%\"><table><tbody>";
# tabel 1.3 ->
print "<tr><td width=\"10%\"></td><td width=\"80%\">Skriv navn på regnskab, dit brugernavn og klik send, så vil det blive sendt en mail med en midlertidig adgangskode \n\ttil den mailadresse som hører til brugernavnet.<br><br>\nEr det ikke tilknyttet en mail til brugernavnet, sendes mailen til den mailadresse der er registreret\n\tpå regnskabet.<br><br>\nHar du glemt navnet på regnskabet, skal du skrive din mailadresse i feltet \"Brugernavn\" og klikke på send, så bliver navn på det \n\tregnskab som er knyttet til mailadressen sendt sammen med brugernavn til mailadressen.<br><br>\nHar du glemt dit brugernavn, så skriv navnet på dit regnskab i feltet \n\t\"Regnskab\" og der vil blive sendt en liste over brugere til den mail som er knyttet til regnskabet\n.\n\t</td><td width=\"10%\"></td></tr>\n";
print "</tbody></table></td></tr>\n";
# <- tabel 1.3
print "<tr><td align=\"center\" valign=\"bottom\">";
print "<table width=\"100%\" align=\"center\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\"><tbody><tr>";
# tabel 1.3 ->
print "<td width=\"20%\" style=\"border: 1px solid rgb(180, 180, 255);padding: 0pt 0pt 1px;background:url(../img/grey1.gif);\" align=\"left\"> Copyright © 2003-2014 DANOSOFT ApS</td>";
function historik($id, $filnavn)
{
global $db;
global $bruger_id;
global $sprog_id;
global $exec_path;
if (!file_exists("{$filnavn}")) {
print "<BODY onLoad=\"javascript:alert('indlæsning af {$filnavn} fejlet')\">";
return 'indlæsning af $filnavn fejlet';
}
$dd = date("Y-m-d");
$r = db_fetch_array(db_select("select * from ordrer where id='{$id}'", __FILE__ . " linje " . __LINE__));
$konto_id = $r['konto_id'];
$kontakt = $r['kontakt'];
$ref = $r['ref'];
$status = $r['status'];
$art = $r['art'];
if (!$status) {
$notat = findtekst(488, $sprog_id);
} elseif ($status == 1 || $status == 2) {
$notat = findtekst(489, $sprog_id);
} elseif ($art == 'DO') {
$notat = findtekst(498, $sprog_id);
} else {
$notat = findtekst(499, $sprog_id);
}
$tidspkt = date("H:i");
$notat = str_replace('$time', $tidspkt, $notat);
#echo "select id from adresser where art='S'<br>";
$r = db_fetch_array(db_select("select id from adresser where art='S'", __FILE__ . " linje " . __LINE__));
$egen_id = $r['id'] * 1;
#echo "select * from ansatte where konto_id='$egen_id' and navn = '$ref'<br>";
$r = db_fetch_array(db_select("select * from ansatte where konto_id='{$egen_id}' and navn = '{$ref}'", __FILE__ . " linje " . __LINE__));
$ansat_id = $r['id'] * 1;
#echo "select * from ansatte where konto_id='$konto_id' and navn = '$kontakt'<br>";
$r = db_fetch_array(db_select("select * from ansatte where konto_id='{$konto_id}' and navn = '{$kontakt}'", __FILE__ . " linje " . __LINE__));
$kontakt_id = $r['id'] * 1;
#echo "insert into historik(konto_id,kontakt_id,ansat_id,notat,notedate,kontaktet) values ('$konto_id','$kontakt_id','$ansat_id','$notat','$dd','$dd')<br>";
db_modify("insert into historik(konto_id,kontakt_id,ansat_id,notat,notedate,kontaktet) values ('{$konto_id}','{$kontakt_id}','{$ansat_id}','{$notat}','{$dd}','{$dd}')", __FILE__ . " linje " . __LINE__);
#echo "select id from historik where konto_id='$konto_id' and kontakt_id='$kontakt_id' and ansat_id='$ansat_id' and notat='$notat' and notedate='$dd'<br>";
$r = db_fetch_array(db_select("select id from historik where konto_id='{$konto_id}' and kontakt_id='{$kontakt_id}' and ansat_id='{$ansat_id}' and notat='{$notat}' and notedate='{$dd}'", __FILE__ . " linje " . __LINE__));
$bilag_id = $r['id'];
#echo "select * from grupper where art='FTP'<br>";
$r = db_fetch_array(db_select("select * from grupper where art='FTP'", __FILE__ . " linje " . __LINE__));
$box1 = $r['box1'];
$box2 = $r['box2'];
$box3 = $r['box3'];
$mappe = $r['box5'];
$undermappe = "debitor_{$konto_id}";
$ftpfilnavn = "doc_" . $bilag_id;
$fp = fopen("../temp/{$db}/ftpscript.{$bruger_id}", "w");
if ($fp) {
fwrite($fp, "mkdir {$mappe}\ncd {$mappe}\nmkdir {$undermappe}\ncd {$undermappe}\nput {$ftpfilnavn}\nbye\n");
}
fclose($fp);
$pdfnavn = $ftpfilnavn . ".pdf";
$kommando = "cd \"../temp/{$db}\"\nrm \"{$ftpfilnavn}\"\nmv \"../{$filnavn}\" \"{$ftpfilnavn}\"\n{$exec_path}/ps2pdf \"{$ftpfilnavn}\"\n rm \"{$ftpfilnavn}\"\nmv \"{$pdfnavn}\" \"{$ftpfilnavn}\"\n{$exec_path}/ncftp ftp://" . $box2 . ":" . $box3 . "@" . $box1 . " < ftpscript.{$bruger_id} > ftplog\nrm {$ftpfilnavn}\n";
#rm ftpscript.$bruger_id";
system($kommando);
$fp = fopen("../temp/{$db}/ftpscript.{$bruger_id}", "w");
if ($fp) {
fwrite($fp, "cd {$mappe}\ncd {$undermappe}\nget {$ftpfilnavn}\nbye\n");
}
fclose($fp);
$kommando = "cd ../temp/{$db}\n{$exec_path}/ncftp ftp://" . $box2 . ":" . $box3 . "@" . $box1 . " < ftpscript.{$bruger_id} >> ftplog\n";
system($kommando);
$langt_filnavn = "../temp/{$db}/" . $ftpfilnavn;
if (file_exists($langt_filnavn)) {
$tmp = explode("/", $filnavn);
$filnavn = $tmp[count($tmp) - 1];
$filnavn .= ".pdf";
$filnavn = db_escape_string($filnavn);
db_modify("update historik set dokument='{$filnavn}' where id='{$bilag_id}'", __FILE__ . " linje " . __LINE__);
$alerttekst = findtekst(490, $sprog_id);
print "<BODY onLoad=\"javascript:alert('{$alerttekst}')\">";
} else {
$alerttekst = findtekst(506, $sprog_id);
print "<BODY onLoad=\"javascript:alert('{$alerttekst}')\">";
}
}
function login($regnskab, $brugernavn)
{
print "<meta http-equiv=\"refresh\" content=\"0;url=index.php\">\n";
exit;
global $charset;
global $version;
include "../includes/std_func.php";
if (isset($_GET['navn'])) {
$navn = html_entity_decode($_GET['navn'], ENT_COMPAT, $charset);
}
if (isset($_GET['regnskab'])) {
$regnskab = html_entity_decode($_GET['regnskab'], ENT_COMPAT, $charset);
}
if (isset($_GET['tlf'])) {
$kode = $_GET['tlf'];
}
if (isset($brug_timestamp)) {
?>
<script language="javascript" type="text/javascript" src="../javascript/md5.js"></script>
<script language="javascript" type="text/javascript">
function handleLogin (loginForm) {
var inputTimestamp = loginForm.timestamp.value;
var inputPassword = loginForm.password.value;
loginForm.password.value = hex_md5(inputTimestamp+hex_md5(inputPassword));
return true;
}
</script>
<?php
}
# if ($db_encode=="UTF8") $charset="UTF-8";
# else $charset="ISO-8859-1";
if (file_exists("../doc/vejledning.pdf")) {
$vejledning = "../doc/vejledning.pdf";
} else {
$vejledning = "http://saldi.dk/dok/komigang.html";
}
print "<!DOCTYPE html PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\">\n\n\t<html>\n\n\t<head><title>{$title}</title>";
if ($css) {
print "<link rel=\"stylesheet\" type=\"text/css\" href=\"{$css}\">";
}
print "<meta http-equiv=\"content-type\" content=\"text/html; charset={$charset}\"></head>\n";
print "<body><table style=\"width:100%;height:100%;\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\"><tbody>";
# Tabel 1 ->
print "<tr><td align=\"center\" valign=\"top\">";
print "<table width=\"100%\" align=\"center\" border=\"0\" cellspacing=\"2\" cellpadding=\"0\"><tbody>";
#Tabel 1.1 ->
print "<tr><td style=\"border: 1px solid rgb(180, 180, 255);padding: 0pt 0pt 1px;background:url(../img/grey1.gif);\" width=\"45%\"> Ver {$version}</td>";
print "<td style=\"border: 1px solid rgb(180, 180, 255);padding: 0pt 0pt 1px;;background:url(../img/grey1.gif)\" width=\"10%\" align = \"center\"> <a href=\"{$vejledning}\" target=\"_blank\">Vejledning</a></td>\n";
print "<td style=\"border: 1px solid rgb(180, 180, 255);padding: 0pt 0pt 1px;;background:url(../img/grey1.gif)\" width=\"45%\" align = \"right\"> </td></tr>\n";
print "</tbody></table></td></tr><tr><td align=\"center\" valign=\"middle\">\n";
# <- tabel 1.1 s**t
print "<table width=\"350\" align=\"center\" border=\"5\" cellspacing=\"5\" cellpadding=\"5\"><tbody>";
# tabel 1.2 ->
print "<tr><td><FORM name=\"login\" METHOD=\"POST\" ACTION=\"login.php\" onSubmit=\"return handleLogin(this);\"><table width=\"100%\" align=center border=\"0\" cellspacing=\"0\" cellpadding=\"1\"><tbody>";
# tabel 1.2.1 ->
if (isset($mastername) && $mastername) {
$tmp = "<big><big><big><b>{$mastername}</b></big></big></big>";
} elseif (strpos($_SERVER['PHP_SELF'], "beta")) {
$tmp = "<big><big><big><b>!!! BETA !!!</b></big></big></big>";
} else {
$tmp = "<big><big><big><b>SALDI</b></big></big></big>";
}
print "<tr><td colspan=\"2\">";
print "<table width=\"100%\"><tbody><tr><td width=\"10%\">";
# tabel 1.2.1.1 ->
print "";
if (file_exists("../img/logo.png")) {
print "<img style=\"border:0px solid;width:50px;heigth:50px\" alt=\"\" src=\"../img/logo.png\">";
}
print "</td><td width=\"80%\" align=\"center\">{$tmp}</td><td width=\"10%\" align=\"right\">";
if (file_exists("../img/logo.png")) {
print "<img style=\"border:0px solid;width:50px;heigth:50px\" alt=\"\" src=\"../img/logo.png\"></td></tr>\n";
}
print "</tbody></table></td></tr>";
# <- tabel 1.2.1.1
print "<tr><td colspan=\"2\"><hr></td></tr>\n";
print "<tr><td>" . findtekst(322, $sprog_id) . "</td>";
print "<td width=\"2%\">";
if ($login == "dropdown") {
print "<select name=regnskab>";
$query = db_select("select regnskab from regnskab order by regnskab asc", __FILE__ . " linje " . __LINE__);
if (db_num_rows($query) == 0) {
print "<option>Ingen regnskaber oprettet</option>";
} else {
while ($row = db_fetch_array($query)) {
print "<option>" . $row['regnskab'] . "</option>";
}
print "</select>";
}
} elseif ($login == "cookie" && !$navn) {
if (isset($_COOKIE['saldi_std'])) {
$regnskab = $_COOKIE['saldi_std'];
}
print "<input class=\"inputbox\" style=\"width:160px\" type=\"TEXT\" NAME=\"regnskab\" value=\"{$regnskab}\">";
} else {
print "<input class=\"inputbox\" style=\"width:160px\" type=\"TEXT\" NAME=\"regnskab\" value=\"{$regnskab}\">";
}
print "</tr><tr><td>" . findtekst(323, $sprog_id) . "</td><td><INPUT class=\"inputbox\" style=\"width:160px\" TYPE=\"TEXT\" NAME=\"login\" value=\"{$navn}\"></td></tr>\n";
print "<tr><td>" . findtekst(324, $sprog_id) . "</td>";
print "<td><INPUT class=\"inputbox\" style=\"width:160px\" TYPE=\"password\" NAME=\"password\" value=\"{$kode}\"></td></tr>\n";
print "<tr><td colspan=\"2\" align=\"center\"><br></td></tr>\n";
print "<tr><td colspan=\"2\" align=\"center\"><input type=\"submit\" name=\"pwtjek\" value=\"Login\"></td></tr>\n";
if (isset($mastername) && strtolower($mastername) == 'rotary') {
print "<tr><td colspan=\"2\" align=center>" . findtekst(325, $sprog_id) . "</td></tr>\n";
}
print "</tbody></table><INPUT TYPE=\"HIDDEN\" name=\"timestamp\" value=\"" . date("U") . "\"></FORM></td></tr>\n";
# <- tabel 1.2.1
print "</tbody></table></td></tr>\n";
# <- tabel 1.2
print "<tr><td align=\"center\" valign=\"bottom\">";
print "<table width=\"100%\" align=\"center\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\"><tbody><tr>";
# tabel 1.3 ->
print "<td width=\"20%\" style=\"border: 1px solid rgb(180, 180, 255);padding: 0pt 0pt 1px;background:url(../img/grey1.gif);\" align=\"left\"> Copyright © 2003-2012 DANOSOFT ApS</td>";
print "<td width=\"60%\" style=\"border: 1px solid rgb(180, 180, 255);padding: 0pt 0pt 1px;background:url(../img/grey1.gif);\" align=\"center\">Et <a href=\"http://www.saldi.dk\" target=\"blank\">SALDI</a> regnskab</td>";
print "<td width=\"20%\" style=\"border: 1px solid rgb(180, 180, 255);padding: 0pt 0pt 1px;background:url(../img/grey1.gif);\" align=\"left\"><br></td>";
print "</tr></tbody></table>";
# <- tabel 1.3
print "</td></tr>\n";
print "</tbody></table>";
# <- tabel 1
if (!isset($_COOKIE['saldi_std'])) {
print "<script language=\"javascript\" type=\"text/javascript\">";
print "document.login.regnskab.focus();";
print "</script>";
} else {
print "<script language=\"javascript\" type=\"text/javascript\">";
print "document.login.login.focus();";
print "</script>";
}
}
}
} elseif ($login == "cookie" && !$navn) {
if (isset($_COOKIE['saldi_std'])) {
$regnskab = stripslashes($_COOKIE['saldi_std']);
}
print "<input class=\"inputbox\" style=\"width:160px\" type=\"TEXT\" NAME=\"regnskab\" value=\"{$regnskab}\">";
} else {
print "<input class=\"inputbox\" style=\"width:160px\" type=\"TEXT\" NAME=\"regnskab\" value=\"{$regnskab}\">";
}
print "</tr><tr><td>" . findtekst(323, $sprog_id) . "</td><td><INPUT class=\"inputbox\" style=\"width:160px\" TYPE=\"TEXT\" NAME=\"login\" value=\"{$navn}\"></td></tr>\n";
print "<tr><td>" . findtekst(324, $sprog_id) . "</td>";
print "<td><INPUT class=\"inputbox\" style=\"width:160px\" TYPE=\"password\" NAME=\"password\" value=\"{$kode}\"></td></tr>\n";
print "<tr><td colspan=\"2\" align=\"center\"><br></td></tr>\n";
print "<tr><td colspan=\"2\" align=\"center\"><input type=\"submit\" name=\"pwtjek\" value=\"Login\"></td></tr>\n";
if (isset($mastername) && strtolower($mastername) == 'rotary') {
print "<tr><td colspan=\"2\" align=center>" . findtekst(325, $sprog_id) . "</td></tr>\n";
}
print "<input type=\"hidden\" name=\"timestamp\" value=\"" . date("U") . "\">";
#20140428
print "</tbody></table></FORM></td></tr>\n";
# <- tabel 1.2.1
print "<tr><td colspan=\"2\" align=\"center\">\n\t\t<a href=\"glemt_kode.php\">Glemt adgangskode</a>\n\t\t</td></tr>\n";
print "</tbody></table></td></tr>\n";
# <- tabel 1.2
print "<tr><td align=\"center\" valign=\"bottom\">";
print "<table width=\"100%\" align=\"center\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\"><tbody><tr>";
# tabel 1.3 ->
print "<td width=\"20%\" style=\"border: 1px solid rgb(180, 180, 255);padding: 0pt 0pt 1px;background:url(../img/grey1.gif);\" align=\"left\"> Copyright ©{$copyright} DANOSOFT ApS</td>";
print "<td width=\"60%\" style=\"border: 1px solid rgb(180, 180, 255);padding: 0pt 0pt 1px;background:url(../img/grey1.gif);\" align=\"center\">Et <a href=\"http://www.saldi.dk\" target=\"blank\">SALDI</a> regnskab</td>";
print "<td width=\"20%\" style=\"border: 1px solid rgb(180, 180, 255);padding: 0pt 0pt 1px;background:url(../img/grey1.gif);\" align=\"left\"><br></td>";
print "</tr></tbody></table>";
}
}
}
$ff_antal = $x;
#echo "$ff_antal $rykkerdate <br>";
#exit;
#echo "$ff_antal && $email && $bruger_id != $mailmodt_id<br>";
if ($ff_antal && $email && $bruger_id != $mailmodt_id) {
$subjekt = findtekst(238, $sprog_id);
$mailtext = findtekst(239, $sprog_id);
#echo "send_mail($email,$subjekt,$mailtext)<br>";
send_mail($email, $subjekt, $mailtext);
db_modify("update grupper set box8='{$dd}' where art='DIV' and kodenr= '4'");
} elseif ($ff_antal && $bruger_id == $mailmodt_id) {
#echo "$ff_antal && $bruger_id == $mailmodt_id<br>";
$tmp = findtekst(240, $sprog_id);
#echo "$tmp<br>";
print "<BODY onLoad=\"javascript:alert('{$tmp}')\">";
}
# exit;
}
#exit;
function send_mail($email, $subjekt, $mailtext)
{
$r = db_fetch_array(db_select("select * from adresser where art='S'", __FILE__ . " linje " . __LINE__));
$afsendermail = $r['email'];
$afsendernavn = $r['firmanavn'];
/*
echo "<br>Fra $afsendernavn | $afsendermail <br>";
echo "Til $email<br>";
echo "Emne: $subjekt<br>";
ny($ny);
}
if ($_POST) {
$antal_tekster = $_POST['tekstantal'];
$id = $_POST['id'];
$style = $_POST['style'];
$tekst_id[$x] = $_POST['tekst_id'];
}
$x = 0;
$q = db_select("select * from design where art='JOBKORT' order by pos", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$x++;
$id[$x] = $r['id'];
$style[$x] = $r['style'];
$tekst_id[$x] = $r['tekst_id'];
$tekst[$x] = findtekst($tekst_id, $sprog_id);
}
$antal_tekster = $x;
print "<input type=hidden name=antal_tekster value={$antal_tekster}>";
print "<input type=hidden name=antal_rammer value={$antal_rammer}>";
print "<input type=hidden name=antal_input value={$antal_input}>";
print "<input type=hidden name=antal_variabler value={$antal_variabler}>";
print "<div style=\"color: rgb(0, 0, 0); position:absolute;left:10px;top:10px\"><a href=designer.php?ny=ramme>Ny ramme</a></div>";
print "<div style=\"color: rgb(0, 0, 0); position:absolute;left:100px;top:10px\"><a href=designer.php?ny=tekst>Ny tekst</a></div>";
print "<div style=\"color: rgb(0, 0, 0); position:absolute;left:200px;top:10px\"><a href=designer.php?ny=ramme>Ny variabel</a></div>";
print "<div style=\"color: rgb(0, 0, 0); position:absolute;left:10px;top:150px\">Pos</div>";
print "<div style=\"color: rgb(0, 0, 0); position:absolute;left:60px;top:150px\">CSS-stil</div>";
print "<div style=\"color: rgb(0, 0, 0); position:absolute;left:620px;top:150px\">Tekst</div>";
print "<div style=\"color: rgb(0, 0, 0); position:absolute;left:10px;top:175px\"><input type=text size=1 name=pos[0]></div>";
print "<div style=\"color: rgb(0, 0, 0); position:absolute;left:60px;top:175px\"><input type=text size=65 name=style[0]></div>";
print "<div style=\"color: rgb(0, 0, 0); position:absolute;left:620px;top:175px\"><input type=text size=65 name=tekst[0]></div>";
$bgcolor1 = $bgcolor5;
$color = '#000000';
}
print "<tr bgcolor=\"{$bgcolor1}\">";
print "<td><a href=regnskabskort.php?id={$row['id']}> {$row['kodenr']}</a><br></td>";
print "<td> {$row['beskrivelse']}<br></td>";
print "<td> {$row['box1']}<br></td>";
print "<td> {$row['box2']}<br></td>";
print "<td> {$row['box3']}<br></td>";
print "<td> {$row['box4']}<br></td>";
if ($row['kodenr'] != $regnaar && $row['box5'] == 'on') {
print "<td><a href=regnskabsaar.php?aktiver={$row['kodenr']}> Sæt aktivt</a><br></td>";
} elseif ($row['kodenr'] != $regnaar) {
print "<td> Lukket</td>";
} else {
print "<td><font color=#ff0000>Aktivt</font></td>";
}
print "</tr>";
}
$bgcolor1 != $bgcolor ? $bgcolor1 = $bgcolor : ($bgcolor1 = $bgcolor5);
$tekst = (print "<tr bgcolor=\"{$bgcolor1}\"><td colspan=\"7\" style=\"text-align:center\"><a href=\"regnskabskort.php\" title=\"" . findtekst(507, $sprog_id) . "\"><b>" . findtekst(508, $sprog_id) . "</b></a></td></tr>");
if ($x < 1) {
print "<meta http-equiv=refresh content=0;url=regnskabskort.php>";
}
?>
</tbody>
</table>
</td></tr>
</tbody></table>
</body></html>
function forside($dato_fra, $dato_til, $konto_fra, $konto_til, $rapportart, $kontoart)
{
global $brugernavn;
global $bruger_id;
global $top_bund;
global $md;
# global $returside;
global $jsvars;
global $popup;
global $menu;
global $rettigheder;
$husk = "";
#
# #cho "0 DTF $dato_fra $dato_til<br>";
print "<script LANGUAGE=\"JavaScript\" TYPE=\"text/javascript\" SRC=\"../javascript/overlib.js\"></script>";
/*
$r=db_fetch_array(db_select("select regnskabsaar from brugere where brugernavn='$brugernavn'",__FILE__ . " linje " . __LINE__));
$regnaar = $r['regnskabsaar'];
$r=db_fetch_array(db_select("select * from grupper where art = 'RA' and kodenr='$regnaar'",__FILE__ . " linje " . __LINE__));
$start_md=$r['box1']*1;
$start_aar=$r['box2']*1;
$slut_md=$r['box3']*1;
$slut_aar=$r['box4']*1;
if ($start_md<10) $start_md='0'.$start_md;
if ($slut_md<10) $slut_md='0'.$slut_md;
*/
$kontoart == 'D' ? $tekst = 'DRV' : ($tekst = 'KRV');
if ($r = db_fetch_array(db_select("select * from grupper where art = '{$tekst}' and kodenr = '{$bruger_id}'", __FILE__ . " linje " . __LINE__))) {
if ($r['box1']) {
$husk = 'checked';
$dato_fra = $r['box2'];
$dato_til = $r['box3'];
$konto_fra = $r['box4'];
$konto_til = $r['box5'];
$rapportart = $r['box6'];
}
} else {
db_modify("insert into grupper (beskrivelse,kodenr,art) values ('Debitorrapportvisning','{$bruger_id}','{$tekst}')", __FILE__ . " linje " . __LINE__);
}
# db_modify("update grupper set box1='$regnaar',box2='$dato_fra',box3='$dato_til',box4='$konto_fra',box5='$konto_til',box6='$rapportart' where art='DRV' and kodenr='$bruger_id'",__FILE__ . " linje " . __LINE__);
# #cho "1 DTF $dato_fra $dato_til<br>";
$kontoart == 'D' ? $title = findtekst(449, $sprog_id) : ($title = findtekst(450, $sprog_id));
$popup ? $returside = "../includes/luk.php" : ($returside = "../index/menu.php");
print "<table cellpadding=\"1\" cellspacing=\"3\" border=\"0\" width=100% height=100% valign=\"top\"><tbody>";
if ($menu == 'T') {
$leftbutton = "<a title=\"Klik her for at komme til startsiden\" href=\"../index/menu.php\" accesskey=\"L\">LUK</a>";
$rightbutton = NULL;
include "../includes/topmenu.php";
} elseif ($menu == 'S') {
include "../includes/sidemenu.php";
} else {
print "<tr><td height=\"8\" width=\"10%\" {$top_bund}><a href={$returside} accesskey=L>Luk</a></td>";
print "<td width=\"80%\" {$top_bund}>{$title}</td>";
print "<td width=\"10%\" {$top_bund}><br></td>";
print "</tr><tr><td height=99%><br></td></td>";
}
print "<td><table cellpadding=\"1\" cellspacing=\"1\" border=\"0\" align=\"center\"><tbody>\n";
print "<tr><td align=center colspan=\"2\"><big><b>{$title}</b></big><br><br></td></tr>";
# print "<tr><td colspan=\"2\"><hr></td></tr>";
$dato = $dato_fra;
if ($dato_til) {
$dato .= ":{$dato_til}";
}
$konto = $konto_fra;
if ($konto_til) {
$konto .= ":{$konto_til}";
}
$tekst1 = findtekst(437, $sprog_id);
$tekst2 = findtekst(438, $sprog_id);
$tekst3 = findtekst(439, $sprog_id);
$tekst4 = findtekst(440, $sprog_id);
$tekst5 = findtekst(451, $sprog_id);
$tekst6 = findtekst(452, $sprog_id);
$overlib1 = "onmouseover=\"return overlib('" . $tekst1 . "', WIDTH=800);\" onclick=\"return nd();\" onmouseout=\"return nd();\"";
$overlib2 = "onmouseover=\"return overlib('" . $tekst3 . "', WIDTH=800);\" onclick=\"return nd();\" onmouseout=\"return nd();\"";
$overlib3 = "onmouseover=\"return overlib('" . $tekst5 . "', WIDTH=800);\" onclick=\"return nd();\" onmouseout=\"return nd();\"";
print "<tr><td align=\"center\" {$overlib1}>{$tekst2}</td><td align=\"center\" {$overlib2}>{$tekst4}</td><td align=\"center\" {$overlib3}>{$tekst6}</td></tr>";
print "<form name=\"regnskabsaar\" action=\"rapport.php\" method=\"post\">";
print "<tr><td align=\"center\" {$overlib1}><input class=\"inputbox\" style=\"width:129px\" type=\"text\" name=\"dato\" value=\"{$dato}\"></td>";
print "<td align=\"center\" {$overlib2}><input class=\"inputbox\" style=\"width:129px\" type=\"text\" name=\"konto\" value=\"{$konto}\"></td>";
print "<td align=\"center\" {$overlib3}><input class=\"inputbox\" type=\"checkbox\" name=\"husk\" {$husk}></td></tr>";
# print "<input style=\"width:50px\" type=\"submit\" value=\"$tekst\" name=\"find\"></td>";
$tekst1 = findtekst(441, $sprog_id);
$tekst2 = findtekst(444, $sprog_id);
print "<tr><td colspan=\"3\" align=center><input style=\"width:115px\" type=\"submit\" value=\"{$tekst1}\" name=\"openpost\" title=\"{$tekst2}\"> ";
$tekst1 = findtekst(442, $sprog_id);
$tekst2 = findtekst(445, $sprog_id);
print "<input style=\"width:115px\" type=\"submit\" value=\"{$tekst1}\" name=\"kontosaldo\" title=\"{$tekst2}\"> ";
$tekst1 = findtekst(443, $sprog_id);
$tekst2 = findtekst(446, $sprog_id);
print "<input style=\"width:115px\" type=\"submit\" value=\"{$tekst1}\" name=\"kontokort\" title=\"{$tekst2}\"></td></tr>";
if ($kontoart == 'D') {
print "<tr><td colspan=\"3\"><hr></td></tr>";
}
if ($kontoart == 'D') {
$tekst1 = findtekst(447, $sprog_id);
$tekst2 = findtekst(448, $sprog_id);
$tekst3 = findtekst(455, $sprog_id);
print "<tr><td colspan=\"3\" align=center>";
if ($popup) {
print "<span onClick=\"javascript:top100=window.open('top100.php','top100','{$jsvars}');top100.focus();\" title=\"a {$tekst1}\"><input style=\"width:115px\" type=submit value=\"{$tekst2}\" name=\"submit\"></span>";
#print "<span onClick=\"javascript:top100=window.open('top100.php','top100','$jsvars');top100.focus();\" title=\"$tekst1\"><input style=\"width:115px\" type=submit value=\"$tekst2\" name=\"submit\"></span>";
if (db_fetch_array(db_select("select id from grupper where art = 'POS' and box2 >= '1'", __FILE__ . " linje " . __LINE__))) {
print "<span onClick=\"javascript:kassespor=window.open('kassespor.php','kassespor','{$jsvars}');kassespor.focus();\" title=\"{$tekst1}\"><input style=\"width:115px\" type=submit value=\"{$tekst3}\" name=\"submit\"></span>";
}
} else {
print "<span title=\"{$tekst1}\" onClick=\"window.location.href='top100.php'\"><input style=\"width:115px\" type=button value=\"{$tekst2}\" name=\"submit\"></span>";
print "<input title=\"Salgsstat\" style=\"width:115px\" type=\"submit\" value=\"Salgsstat\" name=\"salgsstat\">";
if (db_fetch_array(db_select("select id from grupper where art = 'POS' and box2 >= '1'", __FILE__ . " linje " . __LINE__))) {
print "<a href=\"kassespor.php\"><input title=\"Oversigt over POS transaktioner\" style=\"width:115px\" type=\"button\" value=\"{$tekst3}\"></a>";
}
}
print "</td></tr>";
print "<tr><td colspan=\"3\" align=center>";
if (db_fetch_array(db_select("select id from grupper where art = 'DIV' and kodenr = '2' and box10 >= 'on'", __FILE__ . " linje " . __LINE__))) {
$tekst1 = findtekst(531, $sprog_id);
$tekst2 = findtekst(532, $sprog_id);
print "<span onClick=\"javascript:betalingsliste=window.open('betalingsliste.php','betalingsliste','{$jsvars}');betalingsliste.focus();\" title=\"{$tekst1}\"><input style=\"width:115px\" type=submit value=\"{$tekst2}\" name=\"betalingslister\"></span>";
} elseif (file_exists("../debitor/multiroute.php")) {
print "<span onclick=\"javascript:location.href=('../debitor/multiroute.php')\"><input title=\"Multiroute\" style=\"width:115px\" type=\"button\" value=\"Multiroute\"></span>";
}
print "</td></tr>";
} else {
$tekst1 = findtekst(531, $sprog_id);
$tekst2 = findtekst(532, $sprog_id);
print "<tr><td colspan=\"3\" align=center>";
if (db_fetch_array(db_select("select id from grupper where art = 'DIV' and kodenr = '2' and box10 >= 'on'", __FILE__ . " linje " . __LINE__))) {
print "<span onClick=\"javascript:betalingsliste=window.open('betalingsliste.php','betalingsliste','{$jsvars}');betalingsliste.focus();\" title=\"{$tekst1}\"><input style=\"width:115px\" type=submit value=\"{$tekst2}\" name=\"betalingslister\"></span>";
}
print "<input title=\"Salgsstat\" style=\"width:115px\" type=\"submit\" value=\"Salgsstat\" name=\"salgsstat\">";
}
print "</td></tr></form>";
print "</tbody></table>";
print "</tbody></table>";
}
print "</tr><tr>";
if ($admin || $oprette) {
print "<td {$td} {$stor_knap_bg}><a onfocus=\"this.style.color='{$bgcolor2}'\" onblur=\"this.style.color='#000066'\" href=\"../admin/opret.php\"><big>" . findtekst(339, $sprog_id) . "</big></td>";
} else {
print "<td {$td} {$stor_knap_bg}><span style=\"color:#999;\"><big>" . findtekst(339, $sprog_id) . "</big></td>\n";
}
if ($revisorregnskab) {
# print"</tr><tr>";
# print"<td $td $stor_knap_bg><a onfocus=\"this.style.color='$bgcolor2'\" onblur=\"this.style.color='#000066'\" href=\"../admin/stdkontoplan.php\"><br></td>";
print "</tr><tr>";
print "<td {$td} {$stor_knap_bg}><a onfocus=\"this.style.color='{$bgcolor2}'\" onblur=\"this.style.color='#000066'\" href=\"../admin/vis_regnskaber.php\"><big>" . findtekst(340, $sprog_id) . "</big></td>";
print "</tr><tr>";
if ($admin || $slette) {
print "<td {$td} {$stor_knap_bg}><a onfocus=\"this.style.color='{$bgcolor2}'\" onblur=\"this.style.color='#000066'\" href=\"../admin/slet_regnskab.php\"><big>" . findtekst(341, $sprog_id) . "</big></td>";
} else {
print "<td {$td} {$stor_knap_bg}><span style=\"color:#999;\"><big>" . findtekst(341, $sprog_id) . "</big></td>\n";
}
print "</tr><tr>";
print "<td {$td} {$stor_knap_bg}><a onfocus=\"this.style.color='{$bgcolor2}'\" onblur=\"this.style.color='#000066'\" href=\"../admin/admin_brugere.php\"><big>Brugere</big></td>";
}
print "</tr>";
print "</tbody></table>";
print "</td></tr>";
print "<tr><td align=\"center\" valign=\"bottom\">";
print "<table width=\"100%\" align=\"center\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\"><tbody>";
print "<td align=\"left\" width=\"100%\" {$top_bund}><font face=\"Helvetica, Arial, sans-serif\" color=\"#000000\"> Copyright © 2003-2011 DANOSOFT ApS</td>";
print "</tbody></table>";
print "</td></tr>";
print "</tbody></table>";
print "</body></html>";
/*
print "<tr><td colspan=\"6\"></td></tr>";
print "<Table CELLPADDING=\"0\" cellspacing=\"1\" BORDER=\"0\" width=\"688\">";
#Tabel 1.1.5 start
print "<tr><td colspan=\"6\" height=\"120\" valign=\"top\"><FONT FACE={$font} SIZE=\"2\"><b>" . findtekst(24, $sprog_id) . ":</b><br>" . $felt_indhold[8][1] . "<br></font></td></tr>";
print "</tbody></table>";
# tabel 1.1.5 s**t;
print "<Table CELLPADDING=\"0\" cellspacing=\"1\" BORDER=\"0\" width=\"688\">";
#Tabel 1.1.6 start
print "<tr><td colspan=\"6\"><br><hr></td></tr>";
print "<tr><td colspan=\"6\" height=\"120\" valign=\"top\"><FONT FACE={$font} SIZE=\"2\"><b>" . findtekst(25, $sprog_id) . ":</b><br>" . $felt_indhold[9][1] . "<br></font></td></tr>";
print "</tbody></table>";
# tabel 1.1.6 s**t;
print "<Table CELLPADDING=\"0\" cellspacing=\"1\" BORDER=\"0\" width=\"688\">";
#Tabel 1.1.7 start
print "<tr><td colspan=\"6\"><br><hr></td></tr>";
print "<tr><td colspan=\"6\"><FONT FACE={$font} SIZE=\"2\"><b>" . findtekst(26, $sprog_id) . ":</b><br>" . $felt_indhold[10][1] . "<br></font></td></tr>";
print "</tbody></table>";
# tabel 1.1.7 s**t;
print "</tbody></table>";
# tabel 1.1 s**t;
print "</tbody></table>";
# tabel 1 s**t;
/*
function skriv ($tekst, $left, $top)
print "<div style=\"position:absolute; left:".$left."px; top:".$top."px\">".$tekst."</div>";
}
*/
?>
</body>
</html>
function pos_valg()
{
global $sprog_id;
global $bgcolor;
global $bgcolor5;
$kassekonti = array();
$afd = array();
$r = db_fetch_array(db_select("select * from grupper where art = 'POS' and kodenr = '1'", __FILE__ . " linje " . __LINE__));
$id1 = $r['id'];
$kasseantal = $r['box1'] * 1;
$kassekonti = explode(chr(9), $r['box2']);
$afd = explode(chr(9), $r['box3']);
$kortantal = $r['box4'] * 1;
$korttyper = explode(chr(9), $r['box5']);
$kortkonti = explode(chr(9), $r['box6']);
$moms = explode(chr(9), $r['box7']);
$rabatvareid = $r['box8'] * 1;
$r['box9'] ? $straksbogfor = 'checked' : ($straksbogfor = '');
$r['box10'] ? $udskriv_bon = 'checked' : ($udskriv_bon = '');
$r['box11'] ? $vis_kontoopslag = 'checked' : ($vis_kontoopslag = '');
$r['box12'] ? $vis_hurtigknap = 'checked' : ($vis_hurtigknap = '');
$timeout = $r['box13'] * 1;
$r['box14'] ? $vis_indbetaling = 'checked' : ($vis_indbetaling = '');
if ($r = db_fetch_array(db_select("select * from grupper where art = 'POS' and kodenr = '2'", __FILE__ . " linje " . __LINE__))) {
$id2 = $r['id'];
} else {
db_modify("insert into grupper(beskrivelse,kode,kodenr,art,box1,box2,box3,box4,box5,box6,box7,box8,box9,box10,box11,box12,box13,box14)values('Pos valg','','2','POS','0','','','','','','','','','','','','','')", __FILE__ . " linje " . __LINE__);
$r = db_fetch_array(db_select("select * from grupper where art = 'POS' and kodenr = '2'", __FILE__ . " linje " . __LINE__));
$id2 = $r['id'];
}
$kasseprimo = dkdecimal($r['box1']);
$r['box2'] ? $optalassist = 'checked' : ($optalassist = NULL);
$printer_ip = explode(chr(9), $r['box3']);
$terminal_ip = explode(chr(9), $r['box4']);
$betalingskort = explode(chr(9), $r['box5']);
#20131210
$div_kort_kto = $r['box6'];
#20140129
#cho $r[box7];
if ($r['box7']) {
$bord = explode(chr(9), str_replace("\n", " ", $r['box7']));
}
#20140506
$mellemkonti = explode(chr(9), $r['box8']);
$diffkonti = explode(chr(9), $r['box9']);
$koekkenprinter = explode(chr(9), $r['box10']);
$vare_id = $r['box11'];
$r['box12'] ? $vis_saet = 'checked' : ($vis_saet = '');
$q = db_select("select * from grupper where art = 'POSBUT'", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$posbuttons++;
}
if ($vare_id) {
$r = db_fetch_array(db_select("select varenr from varer where id = '{$vare_id}'", __FILE__ . " linje " . __LINE__));
$varenr = $r['varenr'];
}
if ($rabatvareid) {
$r = db_fetch_array(db_select("select varenr from varer where id = '{$rabatvareid}'", __FILE__ . " linje " . __LINE__));
$rabatvarenr = $r['varenr'];
}
$x = 0;
if ($kasseantal) {
$q = db_select("select * from grupper where art = 'AFD' order by kodenr", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$x++;
$afd_nr[$x] = $r['kodenr'];
$afd_navn[$x] = $r['beskrivelse'];
}
$afd_antal = $x;
$x = 0;
$q = db_select("select * from grupper where art = 'SM' order by kodenr", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$x++;
$moms_nr[$x] = $r['kodenr'];
$moms_navn[$x] = $r['beskrivelse'];
}
$moms_antal = $x;
}
print "<form name=diverse action=diverse.php?sektion=pos_valg method=post>";
print "<tr><td colspan='6'><hr></td></tr>";
print "<tr bgcolor='{$bgcolor5}'><td colspan='6'><b><u>" . findtekst(265, $sprog_id) . "</u></b></td></tr>";
print "<tr><td colspan='6'><br></td></tr>";
print "<input type=hidden name=id1 value='{$id1}'>";
print "<input type=hidden name=id2 value='{$id2}'>";
print "<tr><td title='" . findtekst(266, $sprog_id) . "'>" . findtekst(267, $sprog_id) . "</td><td><input class='inputbox' type='text' style='text-align:right;width:70px;' name='kasseantal' value='{$kasseantal}'></td></tr>";
# print "<tr><td title='".findtekst(285,$sprog_id)."'>".findtekst(285,$sprog_id)."</td>";
if ($kasseantal) {
# print "<tr><td title='".findtekst(730,$sprog_id)."'>".findtekst(729,$sprog_id)."</td><td><input class='inputbox' type='text' style='text-align:right;width:70px;' name='varenr' value='$varenr'></td></tr>";
print "<tr><td title='" . findtekst(288, $sprog_id) . "'>" . findtekst(287, $sprog_id) . "</td><td><input class='inputbox' type='text' style='text-align:right;width:70px;' name='rabatvarenr' value='{$rabatvarenr}'></td></tr>";
print "<tr><td colspan='6'><hr></td></tr>";
print "<tr><td>" . findtekst(272, $sprog_id) . "</td>";
if ($afd_antal) {
print "<td title='" . findtekst(273, $sprog_id) . "'>" . findtekst(274, $sprog_id) . "</td>";
}
if ($moms_antal) {
print "<td title='" . findtekst(285, $sprog_id) . "'>" . findtekst(286, $sprog_id) . "</td>";
}
print "<td title='" . findtekst(275, $sprog_id) . "'>" . findtekst(276, $sprog_id) . "</td>";
print "<td title='" . findtekst(716, $sprog_id) . "'>" . findtekst(715, $sprog_id) . "</td>";
print "<td title='" . findtekst(722, $sprog_id) . "'>" . findtekst(721, $sprog_id) . "</td>";
print "<td title='" . findtekst(705, $sprog_id) . "'><!--Tekst 705-->" . findtekst(704, $sprog_id) . "<!--Tekst 704--></td>";
print "<td title='" . findtekst(707, $sprog_id) . "'><!--Tekst 707-->" . findtekst(706, $sprog_id) . "<!--Tekst 706--></td>";
print "<td title='" . findtekst(726, $sprog_id) . "'><!--Tekst 726-->" . findtekst(725, $sprog_id) . "<!--Tekst 725--></td></tr>";
for ($x = 0; $x < $kasseantal; $x++) {
print "<tr bgcolor={$bgcolor5}>";
$tmp = $x + 1;
print "<td>{$tmp}</td>";
if ($afd_antal) {
print "<td title='" . findtekst(273, $sprog_id) . "'><SELECT class='inputbox' NAME=afd_nr[{$x}] title='" . findtekst(273, $sprog_id) . "'>";
for ($y = 1; $y <= $afd_antal; $y++) {
if ($afd[$x] == $afd_nr[$y]) {
print "<option value='{$afd_nr[$y]}'>{$afd_navn[$y]}</option>";
}
}
print "<option value='0'></option>";
for ($y = 1; $y <= $afd_antal; $y++) {
if ($afd[$x] != $afd_nr[$y]) {
print "<option value='{$afd_nr[$y]}'>{$afd_navn[$y]}</option>";
}
}
-(print "</SELECT></td>");
}
if ($moms_antal) {
print "<td title='" . findtekst(273, $sprog_id) . "'><SELECT class='inputbox' NAME=moms_nr[{$x}] title='" . findtekst(273, $sprog_id) . "'>";
for ($y = 1; $y <= $moms_antal; $y++) {
if ($moms[$x] == $moms_nr[$y]) {
print "<option value='{$moms_nr[$y]}'>{$moms_navn[$y]}</option>";
}
}
print "<option value='0'></option>";
for ($y = 1; $y <= $moms_antal; $y++) {
if ($moms[$x] != $moms_nr[$y]) {
print "<option value='{$moms_nr[$y]}'>{$moms_navn[$y]}</option>";
}
}
-(print "</SELECT></td>");
}
print "<td><input class='inputbox' type='text' style='text-align:right;width:50px;' name='kassekonti[{$x}]' value='{$kassekonti[$x]}'></td>";
print "<td><input class='inputbox' type='text' style='text-align:right;width:50px;' name='mellemkonti[{$x}]' value='{$mellemkonti[$x]}'></td>";
print "<td><input class='inputbox' type='text' style='text-align:right;width:50px;' name='diffkonti[{$x}]' value='{$diffkonti[$x]}'></td>";
if (!$printer_ip[$x]) {
$printer_ip[$x] = 'localhost';
}
print "<td><input class='inputbox' type='text' style='text-align:right;width:100px;' name='printer_ip[{$x}]' value='{$printer_ip[$x]}'></td>";
print "<td align='center'><input class='inputbox' type='text' style='text-align:right;width:100px;' name='terminal_ip[{$x}]' value='{$terminal_ip[$x]}'></td>";
print "<td align='center'><input class='inputbox' type='text' style='text-align:right;width:100px;' name='koekkenprinter[{$x}]' value='{$koekkenprinter[$x]}'></td></tr>";
}
}
print "<tr><td colspan='6'><hr></td></tr>";
print "<tr><td title='" . findtekst(279, $sprog_id) . "'>" . findtekst(280, $sprog_id) . "</td><td><input class='inputbox' type='text' style='text-align:right' size='1' name='kortantal' value='{$kortantal}'></td></tr>";
if ($kortantal) {
print "<tr><td></td><td title='" . findtekst(281, $sprog_id) . "'>" . findtekst(283, $sprog_id) . "</td>";
print "<td title='" . findtekst(282, $sprog_id) . "'>" . findtekst(284, $sprog_id) . "</td>";
print "<td title='" . findtekst(711, $sprog_id) . "'>" . findtekst(710, $sprog_id) . "</td></tr>";
print "<tr><td colspan='6'></td></tr>";
for ($x = 0; $x < $kortantal; $x++) {
$betalingskort[$x] ? $betalingskort[$x] = 'checked' : ($betalingskort[$x] = NULL);
# 20131210
print "<tr bgcolor={$bgcolor5}>";
$tmp = $x + 1;
print "<td>{$tmp}</td>";
print "<td title='" . findtekst(281, $sprog_id) . "'><input class='inputbox' type='text' style='text-align:left' size='15' name='korttyper[{$x}]' value='{$korttyper[$x]}'></td>";
print "<td title='" . findtekst(282, $sprog_id) . "'><input class='inputbox' type='text' style='text-align:right' size='3' name='kortkonti[{$x}]' value='{$kortkonti[$x]}'></td>";
print "<td title='" . findtekst(711, $sprog_id) . "' align='center'><input class='inputbox' type='checkbox' style='text-align:right' name='betalingskort[{$x}]' {$betalingskort[$x]}></td></tr>";
#20131210
}
$bet_term = NULL;
for ($x = 0; $x < count($terminal_ip); $x++) {
if ($terminal_ip[$x]) {
$bet_term = 1;
}
#Så er der betalinggsterminal på min 1. kasse.
}
if ($bet_term) {
$tmp++;
print "<tr bgcolor={$bgcolor5}>";
print "<td>{$tmp}</td>";
print "<td title='" . findtekst(713, $sprog_id) . "'>" . findtekst(712, $sprog_id) . "</td>";
print "<td title='" . findtekst(713, $sprog_id) . "'><input class='inputbox' type='text' style='text-align:right' size='3' name='div_kort_kto' value='{$div_kort_kto}'></td>";
print "<td title='" . findtekst(713, $sprog_id) . "' align='center'><INPUT DISABLED='disabled' class='inputbox' type='checkbox' style='text-align:right' checked></td></tr>";
}
}
print "<tr><td colspan='6'><hr></td></tr>";
# 20140508 ->
$bordantal = count($bord);
print "<tr><td title='" . findtekst(673, $sprog_id) . "'>" . findtekst(674, $sprog_id) . "</td><td><input class='inputbox' type='text' style='text-align:right' size='1' name='bordantal' value='{$bordantal}'></td></tr>";
if ($bordantal) {
print "<tr><td></td><td title='" . findtekst(675, $sprog_id) . "'>" . findtekst(676, $sprog_id) . "</td></tr>";
print "<tr><td colspan='6'></td></tr>";
for ($x = 0; $x < $bordantal; $x++) {
print "<tr bgcolor={$bgcolor5}>";
$tmp = $x + 1;
print "<td>{$tmp}</td>";
print "<td title='" . findtekst(675, $sprog_id) . "'><input class='inputbox' type='text' style='text-align:left' size='15' name='bord[{$x}]' value='{$bord[$x]}'></td></tr>";
}
}
print "<tr><td colspan='6'><hr></td></tr>";
# <- 20140508
print "<tr><td title='" . findtekst(453, $sprog_id) . "'>" . findtekst(454, $sprog_id) . "</td><td title='" . findtekst(453, $sprog_id) . "'><input class='inputbox' type='checkbox' name='straksbogfor' {$straksbogfor}></td></tr>";
print "<tr><td title='" . findtekst(456, $sprog_id) . "'>" . findtekst(457, $sprog_id) . "</td><td title='" . findtekst(456, $sprog_id) . "'><input class='inputbox' type='checkbox' name='udskriv_bon' {$udskriv_bon}></td></tr>";
print "<tr><td title='" . findtekst(458, $sprog_id) . "'>" . findtekst(459, $sprog_id) . "</td><td title='" . findtekst(458, $sprog_id) . "'><input class='inputbox' type='checkbox' name='vis_hurtigknap' {$vis_hurtigknap}></td></tr>";
print "<tr><td title='" . findtekst(460, $sprog_id) . "'>" . findtekst(461, $sprog_id) . "</td><td title='" . findtekst(460, $sprog_id) . "'><input class='inputbox' type='checkbox' name='vis_kontoopslag' {$vis_kontoopslag}></td></tr>";
print "<tr><td title='" . findtekst(464, $sprog_id) . "'>" . findtekst(465, $sprog_id) . "</td><td title='" . findtekst(464, $sprog_id) . "'><input class='inputbox' type='checkbox' name='vis_indbetaling' {$vis_indbetaling}></td></tr>";
print "<tr><td title='" . findtekst(734, $sprog_id) . "'>" . findtekst(735, $sprog_id) . "</td><td title='" . findtekst(744, $sprog_id) . "'><input class='inputbox' type='checkbox' name='vis_saet' {$vis_saet}></td></tr>";
print "<tr><td title='" . findtekst(462, $sprog_id) . "'>" . findtekst(463, $sprog_id) . "</td><td title='" . findtekst(462, $sprog_id) . "'><input class='inputbox' type='text' style='text-align:right;width:25px' name='timeout' value='{$timeout}'></td></tr>";
print "<tr><td title='" . findtekst(701, $sprog_id) . "'>" . findtekst(700, $sprog_id) . "</td><td title='" . findtekst(701, $sprog_id) . "'><input class='inputbox' type='text' style='text-align:right;width:100px' name='kasseprimo' value='{$kasseprimo}'></td></tr>";
print "<tr><td title='" . findtekst(703, $sprog_id) . "'>" . findtekst(702, $sprog_id) . "</td><td title='" . findtekst(703, $sprog_id) . "'><input class='inputbox' type='checkbox' name='optalassist' {$optalassist}></td></tr>";
print "<tr><td><br></td></tr>";
print "<tr><td><br></td></tr>";
print "<td><br></td><td><br></td><td><br></td><td align = center><input type=submit accesskey='g' value='Gem/opdatér' name='submit'></td>";
print "</form>";
print "<tr><td><a href=posmenuer.php>Klik her for at oprette / rette genvejstaster på kassesiden</a></td></tr>";
}
print "<BODY onLoad=\"JavaScript:window.open('formularprint.php?id=-1&ordre_antal={$udskriv_antal}&skriv={$udskriv}&formular=4' , '' , ',statusbar=no,menubar=no,titlebar=no,toolbar=no,scrollbars=yes, location=1');\">";
} else {
print "<meta http-equiv=\"refresh\" content=\"1;URL=ret_genfakt.php?ordreliste={$ny_liste}\">";
}
# print "<BODY onLoad=\"javascript:alert('Genfakturering udført')\">";
# print "<meta http-equiv=\"refresh\" content=\"1;URL=../includes/luk.php\">";
} else {
print "<form name=genfakturer action=genfakturer.php?id={$id}&ordre_antal={$ordre_antal}&genfakt={$ordreliste} method=post>";
print "<table border=0><tbody>";
print "<tr><td>" . findtekst(82, $sprog_id) . "</td><td align=center>" . findtekst(83, $sprog_id) . "</td><td align=center>" . findtekst(84, $sprog_id) . "</td></tr>";
print "<tr><td title='" . findtekst(68, $sprog_id) . "'>" . findtekst(69, $sprog_id) . "</td><td align=center><input type=radio name=org_nr value=1 title='" . findtekst(70, $sprog_id) . "' {$org_nr_on}></td><td align=center><input type=radio name=org_nr value=0 title='" . findtekst(71, $sprog_id) . "' {$org_nr_off}></td></tr>";
print "<tr><td title='" . findtekst(72, $sprog_id) . "'>" . findtekst(73, $sprog_id) . "</td><td align=center><input type=radio name=komplet value=1 title='" . findtekst(74, $sprog_id) . "' {$komplet_on}></td><td align=center><input type=radio name=komplet value=0 title='" . findtekst(75, $sprog_id) . "' {$komplet_off}></td></tr>";
print "<tr><td title='" . findtekst(76, $sprog_id) . "'>" . findtekst(77, $sprog_id) . "</td><td align=center><input type=radio name=fakt_dato value=1 title='" . findtekst(78, $sprog_id) . "' {$fakt_dato_on}></td><td align=center\t><input type=radio name=fakt_dato value=0 title='" . findtekst(79, $sprog_id) . "' {$fakt_dato_off}></td></tr>";
print "<tr><td title='" . findtekst(85, $sprog_id) . "'>" . findtekst(86, $sprog_id) . "</td><td align=center><input type=radio name=opdat_pris value=1 title='" . findtekst(87, $sprog_id) . "' {$opdat_pris_on}></td><td align=center\t><input type=radio name=opdat_pris value=0 title='" . findtekst(88, $sprog_id) . "' {$opdat_pris_off}></td></tr>";
print "<tr><td title='" . findtekst(220, $sprog_id) . "'>" . findtekst(221, $sprog_id) . "</td><td align=center><input type=radio name=slet_gfdato value=1 title='" . findtekst(222, $sprog_id) . "' {$slet_gfdato_on}></td><td align=center\t><input type=radio name=slet_gfdato value=0 title='" . findtekst(223, $sprog_id) . "' {$slet_gfdato_off}></td></tr>";
print "<tr><td colspan=3 align=center><input type=submit name=Ok value=" . findtekst(80, $sprog_id) . "> <input type=submit name=Afbryd value=" . findtekst(81, $sprog_id) . "></td></tr>";
print "</tbody></table>";
print "</form>";
}
function genfakt($id, $org_nr, $fakt_dato, $opdat_pris, $slet_gfdato)
{
transaktion('begin');
if ($r = db_fetch_array(db_select("select * from ordrer where id = {$id}", __FILE__ . " linje " . __LINE__))) {
$pbs = $r['pbs'];
$firmanavn = db_escape_string($r['firmanavn']);
$addr1 = db_escape_string($r['addr1']);
$addr2 = db_escape_string($r['addr2']);
$bynavn = db_escape_string($r['bynavn']);
$land = db_escape_string($r['land']);
$cvrnr = db_escape_string($r['cvrnr']);
$ean = db_escape_string($r['ean']);
function vis_aabne_poster($dato_fra, $dato_til, $konto_fra, $konto_til, $art)
{
global $bgcolor;
global $bgcolor5;
print "<tr><td><table width=100% cellpadding=\"0\" cellspacing=\"0\" border=\"0\"><tbody>\n";
print "<tr><td>Kontonr</td><td>Firmanavn</td><td align=right>>90</td><td align=right>60-90</td><td align=right>30-60</td><td align=right>8-30</td><td align=right>0-8</td><td align=right>I alt</td><tr>";
$currentdate = date("Y-m-d");
$fromdate = usdate($dato_fra);
$todate = usdate($dato_til);
# echo "SS $fromdate $todate KF $konto_fra<br>";
/*
# Finder start og s**t paa regnskabsaar
for ($x=1; $x<=12; $x++) {
if ($maaned_fra==$md[$x]){$maaned_fra=$x;}
if ($maaned_til==$md[$x]){$maaned_til=$x;}
}
$query = db_select("select * from grupper where kodenr='$regnaar' and art='RA'",__FILE__ . " linje " . __LINE__);
$row = db_fetch_array($query);
# $regnaar=$row[kodenr];
$startmaaned=$row['box1']*1;
$startaar=$row['box2']*1;
$slutmaaned=$row['box3']*1;
$slutaar=$row['box4']*1;
$slutdato=31;
##
if ($maaned_fra) $startmaaned=$maaned_fra;
if ($maaned_til) $slutmaaned=$maaned_til;
if (!is_numeric($startmaaned)) {
if (strstr($startmaaned," ")) list($tmp,$startmaaned)=explode(" ",$startmaaned);
if (!is_numeric($startmaaned)) list ($tmp,$startmaaned)=explode(" ",find_maaned_nr($startmaaned));
}
if (!is_numeric($slutmaaned)) {
if (strstr($slutmaaned," ")) list($tmp,$slutmaaned)=explode(" ",$slutmaaned);
if (!is_numeric($slutmaaned)) list ($tmp,$slutmaaned)=explode(" ",find_maaned_nr($slutmaaned));
}
while (!checkdate($slutmaaned,$slutdato,$slutaar)) {
$slutdato=$slutdato-1;
if ($slutdato<28) break;
}
# if ($slutmaaned<10){$slutmaaned="0".$slutmaaned;}
$regnstart = $startaar. "-" . $startmaaned . "-" . '01';
$regnslut = $slutaar . "-" . $slutmaaned . "-" . $slutdato;
*/
#$regnslut = "2005-05-04";
print "<form name=aabenpost action=rapport.php method=post>";
print "<tr><td colspan=10><hr></td></tr>\n";
$x = 0;
# echo "KF $konto_fra<br>";
if (is_numeric($konto_fra) && is_numeric($konto_til)) {
$tekst = "select * from adresser where " . nr_cast('kontonr') . ">='{$konto_fra}' and " . nr_cast('kontonr') . "<='{$konto_til}' and art = 'D' order by " . nr_cast('kontonr') . "";
} elseif ($konto_fra && $konto_fra != '*') {
$konto_fra = str_replace("*", "%", $konto_fra);
$tmp1 = strtolower($konto_fra);
$tmp2 = strtoupper($konto_fra);
$tekst = "select * from adresser where (firmanavn like '{$konto_fra}' or lower(firmanavn) like '{$tmp1}' or upper(firmanavn) like '{$tmp2}') and art = 'D' order by firmanavn";
} else {
$tekst = "select * from adresser where art = '{$art}' order by firmanavn";
}
# echo "tekst $tekst<br>";
$kontonr = array();
$x = 0;
$q = db_select("{$tekst}", __FILE__ . " linje " . __LINE__);
# if ($konto_fra && $konto_til) $tmp=nr_cast('kontonr').">='$konto_fra' and ".nr_cast('kontonr')."<='$konto_til' and ";
# elseif ($konto_fra) $tmp=nr_cast('kontonr').">='$konto_fra' and ";
# elseif ($konto_til) $tmp=nr_cast('kontonr')."<='$konto_til'and ";
# else $tmp="";
# $q = db_select("select * from adresser where $tmp art = '$art' order by firmanavn",__FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$x++;
$konto_id[$x] = $r['id'];
print "<input type=hidden name=konto_id[{$x}] value={$konto_id[$x]}>";
$kontonr[$x] = trim($r['kontonr']);
$firmanavn[$x] = stripslashes($r['firmanavn']);
$addr1[$x] = stripslashes($r['addr1']);
$addr2[$x] = stripslashes($r['addr2']);
$postnr[$x] = trim($r['postnr']);
$bynavn[$x] = stripslashes($r['bynavn']);
$email[$x] = trim($r['email']);
$betalingsbet[$x] = trim($r['betalingsbet']);
$betalingsdage[$x] = trim($r['betalingsdage']);
}
$kontoantal = $x;
$sum = 0;
for ($x = 1; $x <= $kontoantal; $x++) {
$amount = 0;
$udlignet = 1;
$rykkerbelob = 0;
$forfalden = 0;
$forfalden_plus8 = 0;
$forfalden_plus30 = 0;
$forfalden_plus60 = 0;
$forfalden_plus90 = 0;
$y = 0;
$faktnr = array();
$f = 0;
if ($art == 'D') {
$tmp = "";
} else {
$tmp = "desc";
}
# if ($fromdate && $todate) $q=db_select("select * from openpost where transdate>='$fromdate' and transdate<='$todate' and konto_id='$konto_id[$x]'",__FILE__ . " linje " . __LINE__);
# elseif ($todate) $q=db_select("select * from openpost where transdate<='$todate' and konto_id='$konto_id[$x]'",__FILE__ . " linje " . __LINE__);
# else $q=db_select("select * from openpost where konto_id='$konto_id[$x]'",__FILE__ . " linje " . __LINE__);
# if ($fromdate && $todate) $tekst="select * from openpost where transdate>='$fromdate' and transdate<='$todate' and konto_id='$konto_id[$x]' order by faktnr,amount $tmp";
if ($todate) {
$tekst = "select * from openpost where transdate<='{$todate}' and konto_id='{$konto_id[$x]}' order by faktnr,amount {$tmp}";
} else {
$tekst = "select * from openpost where konto_id='{$konto_id[$x]}' order by faktnr,amount {$tmp}";
}
$q = db_select("{$tekst}", __FILE__ . " linje " . __LINE__);
# if ($regnaar) $q=db_select("select * from openpost where konto_id=$id[$x] and transdate <= '$regnslut' order by faktnr,amount $tmp",__FILE__ . " linje " . __LINE__);
# else $q=db_select("select * from openpost where konto_id=$id[$x] and udlignet!='1' order by faktnr,amount $tmp",__FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
if ($r['udlignet'] != 1 || $r['transdate'] <= $todate && $r['udlign_date'] && $r['udlign_date'] > $todate) {
if ($r['faktnr'] && !in_array($r['faktnr'], $faktnr)) {
$f++;
$faktnr[$f] = $r['faktnr'];
$forfaldsdag = $r['forfaldsdate'];
} elseif (!$r['faktnr']) {
$forfaldsdag = $r['transdate'];
}
$oid = $r['id'];
$transdate = $r['transdate'];
if ($r['valuta']) {
$valuta = $r['valuta'];
} else {
$valuta = 'DKK';
}
if ($r['valutakurs']) {
$valutakurs = $r['valutakurs'];
} else {
$valutakurs = 100;
}
$udlignet = "0";
$amount = $r['amount'];
if ($amount > 0) {
$amount += 0.0001;
} else {
$amount -= 0.0001;
}
if (!$forfaldsdag && $art == 'D' && $amount < 0) {
$forfaldsdag = $r['transdate'];
} elseif (!$forfaldsdag && $art == 'K' && $amount > 0) {
$forfaldsdag = $r['transdate'];
} elseif (!$forfaldsdag) {
$forfaldsdag = $r['forfaldsdate'];
}
if ($r['faktnr'] && !$r['kladde_id'] && ($amount > 0 || $amount < 0 && strstr($r['beskrivelse'], "Lev. fakt")) && $r['refnr'] > 1) {
#rettet 20090715
if ($r2 = db_fetch_array(db_select("select betalingsbet, betalingsdage from ordrer where id='{$r['refnr']}' and fakturanr = '{$r['faktnr']}'", __FILE__ . " linje " . __LINE__))) {
$betalingsbet[$x] = trim($r2['betalingsbet']);
$betalingsdage[$x] = trim($r2['betalingsdage']);
$tmp = usdate(forfaldsdag($transdate, $betalingsbet[$x], $betalingsdage[$x]));
if ($tmp != $forfaldsdag) {
$forfaldsdag = $tmp;
db_modify("update openpost set forfaldsdate = '{$forfaldsdag}' where id='{$oid}'", __FILE__ . " linje " . __LINE__);
}
}
}
#elseif ()
$amount = $amount * $valutakurs / 100;
if ($amount > 0) {
$amount = round($amount + 0.0001, 2);
} else {
$amount = round($amount - 0.0001, 2);
}
### nedenstående er indført grundet en fejl i 2.0.3 som skrev forkert forfaldsdato i openpost og fjernet i 2.0.8.
# $tmp=usdate(forfaldsdag($transdate, $betalingsbet[$x], $betalingsdage[$x]));
# if ($tmp && !$forfaldsdag) db_modify("update openpost set forfaldsdate='$tmp' where id='$oid'",__FILE__ . " linje " . __LINE__);
# $forfaldsdag=$tmp;
################
$fakt_utid = strtotime($transdate);
$forf_utid = strtotime($forfaldsdag);
$dage = round(($forf_utid - $fakt_utid) / 86400, 0);
$forfaldsdag_plus8 = usdate(forfaldsdag($transdate, 'netto', $dage + 8));
$forfaldsdag_plus30 = usdate(forfaldsdag($transdate, 'netto', $dage + 30));
$forfaldsdag_plus60 = usdate(forfaldsdag($transdate, 'netto', $dage + 60));
$forfaldsdag_plus90 = usdate(forfaldsdag($transdate, 'netto', $dage + 90));
if ($forfaldsdag < $currentdate) {
$rykkerbelob = $rykkerbelob + $amount;
}
if ($forfaldsdag < $currentdate && $forfaldsdag_plus8 > $currentdate) {
$forfalden = $forfalden + $amount;
}
if ($forfaldsdag_plus8 <= $currentdate && $forfaldsdag_plus30 > $currentdate) {
$forfalden_plus8 = $forfalden_plus8 + $amount;
}
if ($forfaldsdag_plus30 <= $currentdate && $forfaldsdag_plus60 > $currentdate) {
$forfalden_plus30 = $forfalden_plus30 + $amount;
}
if ($forfaldsdag_plus60 <= $currentdate && $forfaldsdag_plus90 > $currentdate) {
$forfalden_plus60 = $forfalden_plus60 + $amount;
}
if ($forfaldsdag_plus90 <= $currentdate) {
$forfalden_plus90 = $forfalden_plus90 + $amount;
}
$y = $y + $amount;
}
}
$y > 0 ? $y = round($y + 0.0001, 2) : ($y = round($y - 0.0001, 2));
if ($y > 0.01 || $udlignet == "0") {
if ($linjebg != $bgcolor) {
$linjebg = $bgcolor;
$color = '#000000';
} elseif ($linjebg != $bgcolor5) {
$linjebg = $bgcolor5;
$color = '#000000';
}
$forfaldsum = $forfaldsum + $forfalden;
$forfaldsum_plus8 = $forfaldsum_plus8 + $forfalden_plus8;
$forfaldsum_plus30 = $forfaldsum_plus30 + $forfalden_plus30;
$forfaldsum_plus60 = $forfaldsum_plus60 + $forfalden_plus60;
$forfaldsum_plus90 = $forfaldsum_plus90 + $forfalden_plus90;
$sum = $sum + $y;
print "<tr bgcolor=\"{$linjebg}\">";
if ($popup) {
print "<td onClick=\"window.open('rapport.php?rapportart=kontokort&dato_fra={$dato_fra}&dato_til={$dato_til}&konto_fra={$kontonr[$x]}&konto_til={$kontonr[$x]}&submit=ok','kreditorrapport','{$jsvars}')\" onMouseOver=\"this.style.cursor = 'pointer'\"><a>";
} else {
print "<td><a href=rapport.php?rapportart=kontokort&kilde=openpost&kto_fra={$konto_fra}&kilde_kto_til={$konto_til}&dato_fra={$dato_fra}&dato_til={$dato_til}&konto_fra={$kontonr[$x]}&konto_til={$kontonr[$x]}&submit=ok>";
}
print "<span title='Klik for detaljer' style=\"text-decoration: underline;\">{$kontonr[$x]}</span></a></td>";
print "<td>{$firmanavn[$x]}</td>";
/*
if ($forfalden_plus90 != 0) $color="rgb(255, 0, 0)";
else $color="rgb(0, 0, 0)";
$tmp=dkdecimal($forfalden_plus90);
print "<td align=right><span style='color: $color;'>$tmp</span></td>";
if ($forfalden_plus60 != 0) $color="rgb(255, 0, 0)";
else $color="rgb(0, 0, 0)";
$tmp=dkdecimal($forfalden_plus60);
print "<td align=right><span style='color: $color;'>$tmp</span></td>";
if ($forfalden_plus60 != 0) $color="rgb(255, 0, 0)";
else $color="rgb(0, 0, 0)";
$tmp=dkdecimal($forfalden_plus30);
print "<td align=right><span style='color: $color;'>$tmp</span></td>";
if ($forfalden_plus30 != 0) $color="rgb(255, 0, 0)";
else $color="rgb(0, 0, 0)";
$tmp=dkdecimal($forfalden_plus8);
print "<td align=right><span style='color: $color;'>$tmp</span></td>";
if ($forfalden != 0) $color="rgb(255, 0, 0)";
else $color="rgb(0, 0, 0)";
$tmp=dkdecimal($forfalden);
*/
if ($art == 'D' && $forfalden_plus90 > 0 || $art == 'K' && $forfalden_plus90 < 0) {
$color = "rgb(255, 0, 0)";
} else {
$color = "rgb(0, 0, 0)";
}
$tmp = dkdecimal($forfalden_plus90);
print "<td align=right><span style='color: {$color};'>{$tmp}</span></td>";
if ($art == 'D' && $forfalden_plus60 > 0 || $art == 'K' && $forfalden_plus60 < 0) {
$color = "rgb(255, 0, 0)";
} else {
$color = "rgb(0, 0, 0)";
}
$tmp = dkdecimal($forfalden_plus60);
print "<td align=right><span style='color: {$color};'>{$tmp}</span></td>";
if ($art == 'D' && $forfalden_plus30 > 0 || $art == 'K' && $forfalden_plus30 < 0) {
$color = "rgb(255, 0, 0)";
} else {
$color = "rgb(0, 0, 0)";
}
$tmp = dkdecimal($forfalden_plus30);
print "<td align=right><span style='color: {$color};'>{$tmp}</span></td>";
if ($art == 'D' && $forfalden_plus8 > 0 || $art == 'K' && $forfalden_plus8 < 0) {
$color = "rgb(255, 0, 0)";
} else {
$color = "rgb(0, 0, 0)";
}
$tmp = dkdecimal($forfalden_plus8);
print "<td align=right><span style='color: {$color};'>{$tmp}</span></td>";
if ($art == 'D' && $forfalden > 0 || $art == 'K' && $forfalden < 0) {
$color = "rgb(255, 0, 0)";
} else {
$color = "rgb(0, 0, 0)";
}
$tmp = dkdecimal($forfalden);
print "<td align=right><span style='color: {$color};'>{$tmp}</span></td>";
$tmp = dkdecimal($y);
if (abs($y) < 0.01) {
print "<td align=right title=\"Klik her for at udligne åbne poster\"><a href=\"rapport.php?submit=ok&rapportart=openpost&dato_fra={$dato_fra}&dato_til={$dato_til}&konto_fra={$konto_fra}&konto_til={$konto_til}&udlign={$konto_id[$x]}\">{$tmp}</a></td>";
} else {
print "<td align=right>{$tmp}</td>";
}
if ($kontoudtog[$x] == 'on' && $art == "D") {
print "<td align=center><input type=checkbox name=kontoudtog[{$x}] checked>";
} elseif ($art == "D") {
print "<td align=center><input type=checkbox name=kontoudtog[{$x}]>";
}
print "</tr>\n";
}
print "<input type=hidden name=rykkerbelob[{$x}] value={$rykkerbelob}>";
}
print "<tr><td colspan=10><hr></td></tr>\n";
print "<tr><td><br></td><td>I alt</td>";
if ($forfaldsum_plus90 != 0) {
$color = "rgb(255, 0, 0)";
} else {
$color = "rgb(0, 0, 0)";
}
$tmp = dkdecimal($forfaldsum_plus90);
print "<td align=right><span style='color: {$color};'>{$tmp}</span></td>";
if ($forfaldsum_plus60 != 0) {
$color = "rgb(255, 0, 0)";
} else {
$color = "rgb(0, 0, 0)";
}
$tmp = dkdecimal($forfaldsum_plus60);
print "<td align=right><span style='color: {$color};'>{$tmp}</span></td>";
if ($forfaldsum_plus60 != 0) {
$color = "rgb(255, 0, 0)";
} else {
$color = "rgb(0, 0, 0)";
}
$tmp = dkdecimal($forfaldsum_plus30);
print "<td align=right><span style='color: {$color};'>{$tmp}</span></td>";
if ($forfaldsum_plus30 != 0) {
$color = "rgb(255, 0, 0)";
} else {
$color = "rgb(0, 0, 0)";
}
$tmp = dkdecimal($forfaldsum_plus8);
print "<td align=right><span style='color: {$color};'>{$tmp}</span></td>";
if ($forfaldsum != 0) {
$color = "rgb(255, 0, 0)";
} else {
$color = "rgb(0, 0, 0)";
}
$tmp = dkdecimal($forfaldsum);
print "<td align=right><span style='color: {$color};'>{$tmp}</span></td>";
$color = "rgb(0, 0, 0)";
$tmp = dkdecimal($sum);
print "<td align=right><span style='color: {$color};'>{$tmp}</span></td>";
print "<input type=hidden name=rapportart value=\"openpost\">";
print "<input type=hidden name=regnaar value={$regnaar}>";
print "<input type=hidden name=dato_fra value={$dato_fra}>";
print "<input type=hidden name=dato_til value={$dato_til}>";
print "<input type=hidden name=konto_fra value={$konto_fra}>";
print "<input type=hidden name=konto_til value={$konto_til}>";
print "<input type=hidden name=kontoantal value={$kontoantal}>";
if ($art == 'D') {
print "<tr><td colspan=10 align=center><span title=\"Klik her for at maile kontoudtog til de modtagere som er afmærket herover\"><input type=submit value=\"Mail kontoudtog\" name=\"submit\"></span> \n\t\t<span title='Klik her for at oprette rykker til de som er afmærkede herover'><input type=submit value=\"Opret rykker\" name=\"submit\"></span> \n\t\t<span onmouseover=\"return overlib('" . findtekst(242, $sprog_id) . "', WIDTH=800);\" onmouseout=\"return nd();\"><input type=submit value=\"Ryk alle\" name=\"submit\"></span></td></tr>\n";
}
print "</form>\n";
print "<tr><td colspan=10><hr></td></tr>\n";
print "</tbody></table>";
}
$sort = $sort . " desc";
} elseif ($nysort) {
$sort = $nysort;
}
print "<table width=100% height=100% border=0 cellspacing=0 cellpadding=0><tbody>";
print "<tr><td height = 25 align=center valign=top>";
print "<table width=100% align=center border=0 cellspacing=2 cellpadding=0><tbody>";
print "<tr>";
print "<td width=10% {$top_bund}>";
if ($popup) {
print "<a href=../includes/luk.php accesskey=L>Luk</a></td>";
} else {
print "<a href=rapport.php accesskey=L>Luk</a></td>";
}
print "<td width=80% {$top_bund}>Kontrolspor</td>";
print "<td width=10% {$top_bund}><a href=kontrolspor.php?sort={$sort}&valg={$valg}{$hreftext}&csv=1' title=\"" . findtekst(505, $sprog_id) . "\">CSV</a></td>";
print "</tr>\n";
print "<tr>";
print "<form name=transaktionsliste action=kontrolspor.php method=post>";
if (!$linjeantal) {
$linjeantal = 50;
}
# echo "A next $next start $start | linjeantal $linjeantal<br>";
$next = udskriv($idnumre, $bilagsnumre, $kladdenumre, $fakturanumre, $kontonumre, $transdatoer, $logdatoer, $debetbelob, $kreditbelob, $logtid, $beskrivelse, $sort, $start + 50, '', $projektnumre);
# echo "B next $next start $start | linjeantal $linjeantal<br>";
if ($start >= $linjeantal) {
$tmp = $start - $linjeantal;
print "<td><a href='kontrolspor.php?sort={$sort}&start={$tmp}'><img src=../ikoner/left.png style=\"border: 0px solid; width: 15px; height: 15px;\"></a></td>";
} else {
print "<td></td>";
}
print "</tbody></table>";
#tabel 1.2 s**t
print "<tr><td colspan=\"3\" align=\"center\" valign=\"bottom\">";
print "<table width=\"100%\" align=\"center\" border=\"0\" cellspacing=\"1\" cellpadding=\"0\"><tbody>";
#tabel 1.3. start
print "<td width=\"40%\" {$top_bund}> </td>";
$tekst = findtekst(132, $sprog_id);
if ($popup) {
print "<td width=\"10%\" {$top_bund} onClick=\"javascript:kontokort=window.open('rapport.php?rapportart=kontokort&konto_fra={$kontonr}&konto_til={$kontonr}&returside=../includes/luk.php','kontokort','" . $jsvars . "');kontokort.focus();\" onMouseOver=\"this.style.cursor = 'pointer'\" title=\"{$tekst}\"><!--tekst 132-->" . findtekst(133, $sprog_id) . "<!--tekst 133--></td>\n";
} else {
print "<td width=\"10%\" {$top_bund} title=\"{$tekst}\"><a href=rapport.php?rapportart=kontokort&konto_fra={$kontonr}&konto_til={$kontonr}&returside=../kreditor/kreditorkort.php?id={$id}>" . findtekst(133, $sprog_id) . "</td>\n";
}
if (substr($rettigheder, 5, 1) == '1') {
$tekst = findtekst(129, $sprog_id);
if ($popup) {
print "<td width=\"10%\" {$top_bund} onClick=\"javascript:d_ordrer=window.open('ordreliste.php?kontonumre={$kontonr}&valg=faktura','d_ordrer','" . $jsvars . "');d_ordrer.focus();\" onMouseOver=\"this.style.cursor = 'pointer'\" title=\"{$tekst}\">" . findtekst(134, $sprog_id) . "</td>\n";
} else {
print "<td width=\"10%\" {$top_bund} title=\"{$tekst}\"><a href=ordreliste.php?kontonumre={$kontonr}&valg=faktura&returside=../kreditor/kreditorkort.php?id={$id}>" . findtekst(134, $sprog_id) . "</td>\n";
}
} else {
print "<td width=\"10%\" {$stor_knap_bg}><span style=\"color:#999;\">" . findtekst(134, $sprog_id) . "</span></td>\n";
}
print "<td width=\"40%\" {$top_bund}> </td>";
#print "<td style=\"border: 1px solid #b4b4ff; padding: 0pt 0pt 1px;\" align=\"left\" background=\"../img/grey1.gif\" width=\"100%\"><br></td>";
print "</tbody></table>";
#tabel 1.3 s**t
print "</td></tr>";
print "</tbody></table>\n";
#tabel 1 s**t
print "<script language=\"javascript\" type=\"text/javascript\" src=\"../javascript/cvrapiopslag.js\"></script>\n";
print "</body></html>";
} else {
print "<td><font color=#ff0000>Aktivt</font></td>";
}
print "</tr>";
print "</tr>";
}
print "</tbody></table></td></tr>";
$r = db_fetch_array(db_select("select box2 from grupper where art = 'USET' and kodenr = '{$bruger_id}'", __FILE__ . " linje " . __LINE__));
print "<form name=brugerdata action=brugerdata.php?popop={$popop} method=post>";
print "<tr><td align=center valign=top>";
print "<table cellpadding=\"1\" cellspacing=\"1\" border=\"1\"><tbody>";
print "<tr><td align=center colspan=2><b>Skift adgangskode</b></td></tr>";
print "<tr><td> Gl. adgangskode</td><td><input type=password size=20 name=glkode></td></tr>";
if ($brugernavn == 'test' && $db == 'test') {
print "<tr><td><span title='Der kan ikke skrives i dette felt i demoversionen'> Ny adgangskode</span></td><td><input type=readonly size=20 name=nykode1 value=''></td></tr>";
} else {
print "<tr><td> Ny adgangskode</td><td><input type=password text size=20 name=nykode1></td></tr>";
}
print "<tr><td>Bekræft ny kode</td><td><input type=password size=20 name=nykode2></td></tr>";
if ($popup) {
$popup = "checked";
}
print "<tr><td title='" . ($tekst = findtekst(207, $sprog_id) . "'>" . ($tekst = findtekst(208, $sprog_id) . "</td><td><input type=checkbox name=popup {$popup}></td></tr>"));
print "<td colspan=2 align = center><input type=submit value=\"Ok\" name=\"submit\"></td>";
print "</form";
print "</tr></tbody></table></td></tr>";
print "</td></tr>";
?>
</tbody></table>
</body></html>
print "</a></b></td>";
print "</tr>\n";
#################################### Sogefelter ##########################################
print "<form name=\"jobliste\" action=\"jobliste.php?{$parameter}\" method=\"post\">";
print "<input type=\"hidden\" name=\"valg\" value=\"{$valg}\">";
print "<input type=\"hidden\" name=\"sort\" value=\"{$sort}\">";
print "<input type=\"hidden\" name=\"nysort\" value=\"{$nysort}\">";
print "<tr>";
print "<td><span title= '" . findtekst(39, $sprog_id) . "'><input type=text size=5 name=felt01 value=\"" . $felt01 . "\"></td>";
print "<td><span title= '" . findtekst(40, $sprog_id) . "'><input type=text size=5 name=felt02 value=\"" . $felt02 . "\"></td>";
print "<td><span title= '" . findtekst(41, $sprog_id) . "'><input type=text size=10 name=felt03 value=\"" . $felt03 . "\"></td>";
print "<td><span title= '" . findtekst(42, $sprog_id) . "'><input type=text size=10 name=felt04 value=\"" . $felt04 . "\"></td>";
print "<td><span title= '" . findtekst(41, $sprog_id) . "'><input type=text size=10 name=felt05 value=\"" . $felt05 . "\"></td>";
print "<td><span title= '" . findtekst(41, $sprog_id) . "'><input type=text size=10 name=felt06 value=\"" . $felt06 . "\"></td>";
print "<td><span title= '" . findtekst(41, $sprog_id) . "'><input type=text size=10 name=felt07 value=\"" . $felt07 . "\"></td>";
print "<td><span title= '" . findtekst(41, $sprog_id) . "'><input type=text size=10 name=felt08 value=\"" . $felt08 . "\"></td>";
$x = 0;
print "<td><input type=submit value=\"OK\" name=\"submit\"></td>";
print "</form></tr>\n";
####################################################################################
$udvaelg = '';
if ($felt01) {
$udvaelg = $udvaelg . udvaelg($felt01, 'id', 'NR');
}
if ($felt02) {
$udvaelg = $udvaelg .= udvaelg($felt02, 'firmanavn', 'TEKST');
}
if ($felt03) {
$udvaelg = $udvaelg .= udvaelg($felt03, 'postnr', 'NR');
}
if ($felt04) {
}
$historik_id = 0;
}
############################
if (!$id) {
print "<meta http-equiv=\"refresh\" content=\"0;URL=../includes/luk.php\">";
}
if (strstr($returside, 'historikkort.php')) {
$returside = "historik.php";
}
print "<table width=\"100%\" height=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\"><tbody>\n";
#tabel1 start
print "<tr><td align=\"center\" valign=\"top\" height=\"1%\">\n";
print "<table width=\"100%\" align=\"center\" border=\"0\" cellspacing=\"4\" cellpadding=\"0\"><tbody>\n";
#tabel2a start
$tekst = findtekst(154, $sprog_id);
#if ($returside=="debitorkort.php") print "<td width=\"10%\" align=center><div class=\"top_bund\"><a href=\"javascript:confirmClose('$returside?id=$id&ordre_id=$ordre_id&fokus=$fokus&konto_id=$id','$tekst')\" accesskey=L>Luk</a></div></td>\n";
#print "<td width=\"10%\" align=center><div class=\"top_bund\"><a href=\"javascript:confirmClose('$returside?returside=$returside&id=$ordre_id&fokus=$fokus&konto_id=$id','$tekst')\" accesskey=L>Luk</a></div></td>\n";
print "<td width=\"10%\" align=center><div class=\"top_bund\"><a href=\"javascript:confirmClose('historikkort.php?luk=luk.php')\" accesskey=L>Luk</a></div></td>\n";
print "<td width=\"80%\" align=center><div class=\"top_bund\">Historik for debitor</div></td>\n";
print "<td width=\"10%\" align=center><div class=\"top_bund\"><a href=\"javascript:confirmClose('debitorkort.php?returside=historikkort.php&id={$id}&ordre_id={$ordre_id}&fokus={$fokus}','{$tekst}')\" accesskey=N>Ny</a><br></div></td>\n";
print "</tbody></table>\n";
#tabel2a s**t
print "</td></tr>\n";
print "<tr><td height=\"99%\" width=\"100%\" valign=\"top\">";
print "<table width=\"100%\" cellpadding=\"1\" cellspacing=\"1\" border=\"0\"><tbody>";
#tabel2b start
if ($id > 0) {
$q = db_select("select * from adresser where id = '{$id}'", __FILE__ . " linje " . __LINE__);
$r = db_fetch_array($q);
$kontonr = trim($r['kontonr']);
function kontokort_moms($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 $bgcolor;
global $bgcolor4;
global $bgcolor5;
global $menu;
$query = db_select("select firmanavn from adresser where art='S'", __FILE__ . " linje " . __LINE__);
if ($row = db_fetch_array($query)) {
$firmanavn = $row['firmanavn'];
}
$regnaar = $regnaar * 1;
#fordi den er i tekstformat og skal vaere numerisk
# list ($aar_fra, $maaned_fra) = explode(" ", $maaned_fra);
# list ($aar_til, $maaned_til) = explode(" ", $maaned_til);
$maaned_fra = trim($maaned_fra);
$maaned_til = trim($maaned_til);
$aar_fra = trim($aar_fra);
$aar_til = trim($aar_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 ($aar_fra) {
$startaar = $aar_fra;
}
if ($aar_til) {
$slutaar = $aar_til;
}
if ($maaned_fra) {
$startmaaned = $maaned_fra;
}
if ($maaned_til) {
$slutmaaned = $maaned_til;
}
if ($dato_fra) {
$startdato = $dato_fra;
}
if ($dato_til) {
$slutdato = $dato_til;
}
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;
}
}
$regnstart = $startaar . "-" . $startmaaned . "-" . $startdato;
$regnslut = $slutaar . "-" . $slutmaaned . "-" . $slutdato;
$x = 0;
$momsq = NULL;
$q = db_select("select * from grupper where art='SM' or ART='KM' or art='EM' order by art");
while ($r = db_fetch_array($q)) {
if (trim($r['box1'])) {
$x++;
$momsart[$x] = $r['kode'];
$momskonto[$x] = trim($r['box1']);
$momssats[$x] = $r['box2'];
if (!strpos($momsq, $momskonto[$x])) {
$momsq ? $momsq .= " or kontonr = '{$momskonto[$x]}'" : ($momsq .= "and (kontonr = '{$momskonto[$x]}'");
}
}
}
if ($momsq) {
$momsq .= ")";
}
$momsantal = $x;
# print " <a accesskey=L href=\"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&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=kontokort_moms®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 - kontokort men moms</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><big>" . findtekst(516, $sprog_id) . "</span></big></big></big></td>";
print "<td colspan=2 align=right><table style=\"text-align: left; width: 100%;\" border=\"0\" cellspacing=\"1\" cellpadding=\"1\"><tbody><tr>";
print "<td>Regnskabsår</span></td>";
print "<td>{$regnaar}.</span></td></tr>";
print "<tr><td>Periode</span></td>";
## Finder start og s**t paa regnskabsaar
if ($startdato < 10) {
$startdato = "0" . $startdato;
}
print "<td>Fra " . $startdato . ". {$mf}<br />Til " . $slutdato . ". {$mt}</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 "<td>Projekt:</td><td>";
# print "<tr><td>Projekt $prj_navn_fra</td>";
if (!strstr($projekt_fra, "?")) {
if ($projekt_til && $projekt_fra != $projekt_til) {
print "Fra: {$projekt_fra}, {$prj_navn_fra}<br>Til : {$projekt_til}, {$prj_navn_til}";
} else {
print "{$projekt_fra}, {$prj_navn_fra}";
}
} else {
print "{$projekt_fra}, {$prj_navn_fra}";
}
print "</td></tr>";
}
print "</tbody></table></td></tr>";
print "<tr><td colspan=5><big><b>{$firmanavn}</b></big></td></tr>";
$dim = '';
if ($afd || $ansat_fra || $projekt_fra) {
if ($afd) {
$dim = "and afd = {$afd} ";
}
if ($ansat_fra && $ansat_til) {
$tmp = str_replace(",", " or ansat=", $ansatte_id);
$dim = $dim . " and (ansat={$tmp}) ";
} elseif ($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}' ";
}
}
$x = 0;
$valdate = array();
$valkode = array();
$q = db_select("select * from valuta order by gruppe,valdate desc");
while ($r = db_fetch_array($q)) {
$y = $x - 1;
if (!$x || $r['gruppe'] != $valkode[$x] || $valdate[$x] >= $regnstart) {
$valkode[$x] = $r['gruppe'];
$valkurs[$x] = $r['kurs'];
$valdate[$x] = $r['valdate'];
$x++;
}
}
$x = 0;
$kontonr = array();
$qtxt = "select * from kontoplan where regnskabsaar='{$regnaar}' and kontonr>='{$konto_fra}' and kontonr<='{$konto_til}' order by kontonr";
#cho "$qtxt<br>";
$q = db_select("{$qtxt}", __FILE__ . " linje " . __LINE__);
while ($row = db_fetch_array($q)) {
if (!in_array($row['kontonr'], $kontonr) && (trim($row['moms']) || $simulering)) {
$x++;
$kontonr[$x] = $row['kontonr'] * 1;
$kontobeskrivelse[$x] = $row['beskrivelse'];
$kontomoms[$x] = $row['moms'];
$kontovaluta[$x] = $row['valuta'];
$kontokurs[$x] = $row['valutakurs'];
if (!$dim && $row['kontotype'] == "S") {
$primo[$x] = afrund($row['primo'], 2);
} else {
$primo[$x] = 0;
}
if ($primo[$x] && $kontovaluta[$x]) {
for ($y = 0; $y <= count($valkode); $y++) {
if ($valkode[$y] == $kontovaluta[$x] && $valdate[$y] <= $regnstart) {
$primokurs[$x] = $valkurs[$y];
break 1;
}
}
} else {
$primokurs[$x] = 100;
}
}
}
$kontoantal = $x;
$ktonr = array();
$x = 0;
$qtxt = "select kontonr,projekt from transaktioner where transdate>='{$regnstart}' and transdate<='{$regnslut}' {$dim} order by transdate,bilag,id";
#cho "$qtxt<br>";
$q = db_select($qtxt, __FILE__ . " linje " . __LINE__);
while ($row = db_fetch_array($q)) {
#cho "$row[projekt]<br>";
if (!in_array($row['kontonr'], $ktonr)) {
$x++;
$ktonr[$x] = $row['kontonr'];
#cho "$ktonr[$x]<br>";
}
}
$kontosum = 0;
$founddate = false;
print "<tr><td colspan=6><hr></td></tr>";
print "<tr><td width=\"100px\">Dato</td><td width=\"60px\">Bilag</td><td>Tekst</td><td width=\"100px\" align=\"right\">Beløb</td><td width=\"80px\" align=\"right\"> Moms</td><td width=\"100px\" align=\"right\">Incl. moms</td></tr>";
for ($x = 1; $x <= $kontoantal; $x++) {
$linjebg = $bgcolor5;
if (in_array($kontonr[$x], $ktonr) || $primo[$x]) {
print "<tr><td colspan=6><hr></td></tr>";
print "<tr bgcolor=\"{$bgcolor5}\"><td></td><td></td><td colspan=4>{$kontonr[$x]} : {$kontobeskrivelse[$x]} : {$kontomoms[$x]}</tr>";
print "<tr><td colspan=6><hr></td></tr>";
$kontosum = $primo[$x];
$query = db_select("select debet, kredit from transaktioner where kontonr={$kontonr[$x]} and transdate>='{$regnaarstart}' and transdate<'{$regnstart}' {$dim} order by transdate,bilag,id", __FILE__ . " linje " . __LINE__);
while ($row = db_fetch_array($query)) {
$kontosum += afrund($row['debet'], 2) - afrund($row['kredit'], 2);
}
$query = db_select("select debet, kredit from simulering where kontonr={$kontonr[$x]} and transdate>='{$regnaarstart}' and transdate<'{$regnstart}' {$dim} order by transdate,bilag,id", __FILE__ . " linje " . __LINE__);
while ($row = db_fetch_array($query)) {
$kontosum += afrund($row['debet'], 2) - afrund($row['kredit'], 2);
}
# $tmp=dkdecimal($kontosum);
# if (!$dim) print "<tr bgcolor=\"$linjebg\"><td></td><td></td><td> Primosaldo </td><td></td><td></td><td align=right>$tmp </td></tr>";
$print = 1;
$sim = 0;
#cho "select * from simulering where kontonr='$kontonr[$x]' and transdate>='$regnstart' and transdate<='$regnslut' $dim order by transdate,bilag,id<br>";
$q = db_select("select * from simulering where kontonr={$kontonr[$x]} and transdate>='{$regnstart}' and transdate<='{$regnslut}' {$dim} order by transdate,bilag,id", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$sim_transdate[$sim] = $r['transdate'];
$sim_bilag[$sim] = $r['bilag'];
$sim_kontonr[$sim] = $r['kontonr'];
$sim_beskrivelse[$sim] = $r['beskrivelse'];
$sim_xmoms[$sim] = $r['debet'] - $r['kredit'];
$sim_moms[$sim] = $r['moms'];
#cho "S $sim_kontonr[$sim]<br>";
$sim++;
if ($kontovaluta[$x]) {
for ($y = 0; $y <= count($valkode); $y++) {
#cho "$valkode[$y]==$kontovaluta[$x] && $valdate[$y] <= $transdate[$tr]<br>";
if ($valkode[$y] == $kontovaluta[$x] && $valdate[$y] <= $sim_transdate[$tr]) {
$sim_transkurs[$tr] = $valkurs[$y];
break 1;
}
}
} else {
$sim_transkurs[$tr] = 100;
}
}
$tr = 0;
$transdate = array();
$q = db_select("select * from transaktioner where kontonr='{$kontonr[$x]}' and transdate>='{$regnstart}' and transdate<='{$regnslut}' {$dim} order by transdate,bilag,id", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$transdate[$tr] = $r['transdate'];
$bilag[$tr] = $r['bilag'];
$beskrivelse[$tr] = $r['beskrivelse'];
$debet[$tr] = $r['debet'];
$kredit[$tr] = $r['kredit'];
$kladde_id[$tr] = $r['kladde_id'];
$moms[$tr] = $r['moms'];
$logdate[$tr] = $r['logdate'];
$logtime[$tr] = $r['logtime'];
$transvaluta[$tr] = $row['valuta'];
if ($kontovaluta[$x]) {
for ($y = 0; $y <= count($valkode); $y++) {
if ($valkode[$y] == $kontovaluta[$x] && $valdate[$y] <= $transdate[$tr]) {
$transkurs[$tr] = $valkurs[$y];
break 1;
}
}
} else {
$transkurs[$tr] = 100;
}
$tr++;
}
for ($tr = 0; $tr < count($transdate); $tr++) {
$linjebg != $bgcolor5 ? $linjebg = $bgcolor5 : ($linjebg = $bgcolor);
print "<tr bgcolor=\"{$linjebg}\"><td> " . dkdato($transdate[$tr]) . " {$kladde_id[$tr]}</td><td onMouseOver=\"this.style.cursor = 'pointer'\"; onClick=\"javascript:kassekladde=window.open('kassekladde.php?id={$kladde_id[$tr]}&returside=../includes/luk.php','kassekladde','{$jsvars}')\">{$bilag[$tr]}</td><td>{$kontonr[$x]} : {$beskrivelse[$tr]}</td>";
$xmoms = $debet[$tr] - $kredit[$tr];
print "<td align=right>" . dkdecimal($xmoms) . "</td>";
# $moms=$moms[$tr];
if (!$moms[$tr] && $moms[$tr] != '0.000' && $bilag[$tr] && $kladde_id[$tr]) {
$q2 = db_select("select * from transaktioner where transdate='{$transdate[$tr]}' and bilag='{$bilag[$tr]}' and logdate='{$logdate[$tr]}' and logtime='{$logtime[$tr]}'and beskrivelse='{$beskrivelse[$tr]}' {$momsq}", __FILE__ . " linje " . __LINE__);
while ($r2 = db_fetch_array($q2)) {
$amount = $r2['debet'] - $r2['kredit'];
for ($i = 1; $i <= $momsantal; $i++) {
$tmp = round(abs($xmoms - $amount * 100 / $momssats[$i]), 2);
#cho "$r2[kontonr] == $momskonto[$i] && $tmp<0.1<br>";
if ($r2['kontonr'] == $momskonto[$i] && $tmp < 0.1) {
$moms = $amount;
}
}
}
}
print "<td align=right>" . dkdecimal($moms[$tr]) . "</td>";
$mmoms = $xmoms + $moms[$tr];
print "<td align=right>" . dkdecimal($mmoms) . "</td></tr>";
#cho "$kontonr[$x] - $transdate[$tr]<br>";
if (in_array($kontonr[$x], $sim_kontonr) && $transdate[$tr] != $transdate[$tr + 1]) {
for ($sim = 0; $sim < count($sim_kontonr); $sim++) {
#cho "$kontonr[$x]==$sim_kontonr[$sim] && $transdate[$tr] == $sim_transdate[$sim]<br>";
if ($kontonr[$x] == $sim_kontonr[$sim] && $transdate[$tr] == $sim_transdate[$sim]) {
print "<tr bgcolor=\"{$linjebg}\"><td> " . dkdato($sim_transdate[$sim]) . " </td><td>{$sim_bilag[$sim]} </td><td>{$sim_kontonr[$sim]} : {$sim_beskrivelse[$sim]} (simuleret) </td>";
if ($kontovaluta[$x]) {
if ($transvaluta[$tr] == '-1') {
$tmp = 0;
} else {
$tmp = $sim_debet[$sim] * 100 / $transkurs[$tr];
}
$title = "DKK " . dkdecimal($sim_debet[$sim] * 1) . " Kurs: " . dkdecimal($transkurs[$tr]);
} else {
$tmp = $sim_debet[$sim];
$title = NULL;
}
print "<td align=\"right\" title=\"{$title}\">" . dkdecimal($tmp) . "</td>";
if ($kontovaluta[$x]) {
if ($transvaluta[$tr] == '-1') {
$tmp = 0;
} else {
$tmp = $sim_kredit[$sim] * 100 / $transkurs[$tr];
}
$title = "DKK " . dkdecimal($sim_kredit[$sim] * 1) . " Kurs: " . dkdecimal($transkurs[$tr]);
} else {
$tmp = $sim_kredit[$sim];
$title = NULL;
}
print "<td align=\"right\" title=\"{$title}\">" . dkdecimal($tmp) . "</td>";
$kontosum = $kontosum + afrund($sim_debet[$sim], 2) - afrund($sim_kredit[$sim], 2);
if ($kontovaluta[$x]) {
if ($transvaluta[$tr] == '-1') {
$tmp = 0;
} else {
$tmp = $kontosum * 100 / $transkurs[$tr];
}
$title = "DKK " . dkdecimal($kontosum * 1) . " Kurs: " . dkdecimal($transkurs[$tr]);
} else {
$tmp = $kontosum;
$title = NULL;
}
print "<td align=\"right\" title=\"{$title}\">" . dkdecimal($tmp) . "</td>";
}
}
}
}
}
}
print "<tr><td colspan=6><hr></td></tr>";
print "</tbody></table>";
}
function ompost($ompost)
{
global $sprog_id;
$ompost_til = isset($_GET['ompost_til']) ? $_GET['ompost_til'] : Null;
$kladde_id = isset($_GET['kladde_id']) ? $_GET['kladde_id'] : Null;
$x = 0;
if (!$ompost_til) {
$x = 0;
print "<table border=\"1\"><tbody>";
print "<tr><td colspan=3>" . findtekst(158, $sprog_id) . "</td></tr>";
print "<tr><td>Kladde_id</td><td>Beskrivelse</td><td>Oprettet af</td></tr>";
print "<tr><td><a href=kassekladde.php?kladde_id={$kladde_id}>" . findtekst(159, $sprog_id) . "</a></td><td>" . findtekst(160, $sprog_id) . "</td><td><br></td></tr>";
$q = db_select("select * from kladdeliste where bogfort='-'", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$x++;
print "<tr><td><a href=kassekladde.php?kladde_id={$kladde_id}&ompost={$ompost}&ompost_til={$r['id']}>{$r['id']}</a></td><td>{$r['kladdenote']}</td><td>{$r['oprettet_af']}</td></tr>";
}
if ($x == 0) {
print "<body onLoad=\"javascript:alert('Der skal først oprettes en kassekladde som posteringen kan tilbageføres til')\">";
print "<meta http-equiv=\"refresh\" content=\"0;URL=kassekladde.php?kladde_id={$kladde_id}\">";
}
print "<tbody></table>";
exit;
} else {
$r = db_fetch_array(db_select("select * from kassekladde where id = '{$ompost}'", __FILE__ . " linje " . __LINE__));
$afd = $r['afd'] * 1;
$ansat = $r['ansat'] * 1;
$projekt = $r['projekt'];
$valutakode = $r['valutakode'] * 1;
#20140718
db_modify("insert into kassekladde (bilag,kladde_id,transdate,beskrivelse,d_type,debet,k_type,kredit,faktura,amount,momsfri,afd,ansat,projekt,valuta) values ('{$r['bilag']}','{$ompost_til}','{$r['transdate']}','" . db_escape_string($r['beskrivelse']) . "','{$r['k_type']}','{$r['kredit']}','{$r['d_type']}','{$r['debet']}','{$r['faktura']}','{$r['amount']}','{$r['momsfri']}','{$afd}','{$ansat}','{$projekt}','{$valutakode}')", __FILE__ . " linje " . __LINE__);
print "<body onLoad=\"javascript:alert('Posteringen er tilbageført på kladde {$ompost_til}')\">";
}
}
print "<span title=\"Sender valgte fakturaer som e-mail\"><input type=submit style=\"width:100px\"; value=\"Send mails\" name=\"submit\"></span><br>";
}
}
print "<span title=\"Udskriver valgte fakturaer som PDF\"><input type=submit style=\"width:100px\"; value=\"Udskriv\" name=\"submit\"></span></td>";
} else {
print "<input type=submit value=\"Udskriv\" name=\"submit\" style=\"width:100px\"; disabled=\"disabled\"></td>";
}
print "</form></tr>\n";
}
if ($valg == "ordrer") {
# if ($vis_projekt) $colspan++;
if ($vis_ret_next) {
if ($check_all) {
print "<tr><td align=right colspan={$colspan}><input type=\"submit\" name=\"uncheck\" value=\"" . findtekst(90, $sprog_id) . "\">";
} else {
print "<tr><td align=right colspan={$colspan}><input type=\"submit\" name=\"check\" value=\"" . findtekst(89, $sprog_id) . "\">";
}
print "\t</td></tr>\n";
}
print "<input type=hidden name=ordre_antal value='{$ordreantal}'>";
print "<input type=hidden name=valg value='{$valg}'>";
print "<input type=hidden name=ordrenumre value='{$ordrenumre}'>";
print "<input type=hidden name=kontonumre value='{$kontonumre}'>";
print "<input type=hidden name=fakturanumre value='{$fakturanumre}'>";
print "<input type=hidden name=ordredatoer value='{$ordredatoer}'>";
print "<input type=hidden name=lev_datoer value='{$lev_datoer}'>";
print "<input type=hidden name=fakturadatoer value='{$fakturadatoer}'>";
print "<input type=hidden name=genfaktdatoer value='{$genfaktdatoer}'>";
print "<input type=hidden name=summer value='{$summer}'>";
print "<input type=hidden name=ref value='{$ref['0']}'>";
print "<input type=hidden name=firma value='{$firma}'>";
print "<tr><td height = 25 align=center valign=top>";
print "<table width=100% align=center border=0 cellspacing=2 cellpadding=0><tbody><td width=10% {$top_bund}>\n";
print "<a href={$returside} accesskey=L>Luk</a></td>";
print "<td width=80% {$top_bund} align=center><table border=0 cellspacing=2 cellpadding=0><tbody>\n";
if ($valg == 'debitor') {
print "<td width = 20% align=center {$knap_ind}> Debitorer </td>";
} else {
print "<td width = 20% align=center><a href='debitor.php?valg=debitor&returside={$returside}'> Debitorer </a></td>";
}
if ($valg == 'historik') {
print "<td width = 20% align=center {$knap_ind}> Historik </td>";
} else {
print "<td width = 20% align=center><a href='debitor.php?valg=historik&returside={$returside}'> Historik </a></td>";
}
if ($jobkort) {
print "<td width = 20% align=center><a href=jobliste.php title =\"Klik her for at skifte til joblisten\">" . findtekst(38, $sprog_id) . "</a></td>";
}
print "</tbody></table></td>\n";
print "<td width=5% {$top_bund}><a accesskey=V href=debitorvisning.php?valg={$valg}>Visning</a></td>\n";
#if ($popup) {
# print "<td width=5% $top_bund onClick=\"javascript:debitor=window.open('debitorkort.php?returside=debitor.php','ordre','scrollbars=1,resizable=1');ordre.focus();\"><a accesskey=N href=debitor.php?sort=$sort>Ny</a></td>\n";
# } else {
print "<td width=5% {$top_bund}><a href=debitorkort.php?returside=debitor.php>Ny</a></td>\n";
# }
print "</td></tr>\n";
#print "<tr><td></td><td align=center><table border=1 cellspacing=0 cellpadding=0><tbody>\n";
#print "<td width = 20%$top_bund align=center><a href=debitor.php?valg=tilbud accesskey=T>Tilbud</a></td>";
#print "<td width = 20% bgcolor=$bgcolor5 align=center> Ordrer</td>";
#print "<td width = 20% bgcolor=$bgcolor5 align=center> Faktura</td>";
#print "</tbody></table></td><td></td</tr>\n";
print "</tbody></table>";
function bogfor($id)
{
global $regnaar;
global $valuta;
global $valutakurs;
global $difkto;
global $sprog_id;
$d_kontrol = 0;
$k_kontrol = 0;
$linjesum = 0;
$fakturasum = 0;
$momssum = 0;
$logdate = date("Y-m-d");
$logtime = date("H:i");
$q = db_select("select box1, box2, box4, box5 from grupper where art='RB'", __FILE__ . " linje " . __LINE__);
if ($r = db_fetch_array($q)) {
if (trim($r['box4']) == "on") {
$modtbill = 1;
} else {
$modtbill = 0;
}
if (trim($r['box5']) == "on") {
$no_faktbill = 1;
$faktbill = 0;
} else {
$no_faktbill = 0;
}
}
$x = 0;
$q = db_select("select * from ordrer where id='{$id}'", __FILE__ . " linje " . __LINE__);
if ($r = db_fetch_array($q)) {
$art = $r['art'];
$konto_id = $r['konto_id'];
$lev_kontonr = str_replace(" ", "", $r['kontonr']);
$firmanavn = addslashes(trim($r['firmanavn']));
$modtagelse = $r['modtagelse'];
$transdate = $r['fakturadate'];
$fakturanr = addslashes($r['fakturanr']);
$ordrenr = $r['ordrenr'];
$projekt[0] = $r['projekt'];
$valuta = $r['valuta'];
$valutakurs = $r['valutakurs'] * 1;
$moms = $r['moms'] * 1;
$momssats = $r['momssats'] * 1;
$sum = $r['sum'];
$omlev = $r['omvbet'];
$ordreantal = $x;
if ($r = db_fetch_array(db_select("select afd from ansatte where navn = '{$r['ref']}'", __FILE__ . " linje " . __LINE__))) {
$afd = $r['afd'];
}
$afd = $afd * 1;
#sikkerhed for at 'afd' har en vaerdi
$ansat = $r['id'] * 1;
if ($no_faktbill == 1) {
$bilag = '0';
} else {
$bilag = trim($fakturanr);
}
$r = db_fetch_array(db_select("select gruppe from adresser where id='{$konto_id}'", __FILE__ . " linje " . __LINE__));
$r = db_fetch_array(db_select("select box1,box2 from grupper where art = 'KG' and kodenr='{$r['gruppe']}'", __FILE__ . " linje " . __LINE__));
$kontonr = $r['box2'];
$box1 = substr(trim($r['box1']), 0, 1);
if ($box1 && ($box1 != 'E' || $box1 != 'Y')) {
$sum = $sum + $moms;
}
#moms tillaegges summen der ikke er eu moms.
########### OPENPOST ->
if (substr($art, 1, 1) == 'K') {
$beskrivelse = "Lev. kn.nr: " . $fakturanr . ", modt. nr " . $modtagelse;
} else {
$beskrivelse = "Lev. fakt.nr:" . $fakturanr . ", modt.nr: " . $modtagelse;
}
#cho "insert into openpost (konto_id, konto_nr, faktnr, amount, beskrivelse, udlignet, transdate, kladde_id, refnr, valuta, valutakurs,projekt) values ('$konto_id', '$lev_kontonr', '$fakturanr', $sum*-1, '$beskrivelse', '0', '$transdate', '0', '$id', '$valuta', '$valutakurs','$projekt[0]')<br>";
db_modify("insert into openpost (konto_id, konto_nr, faktnr, amount, beskrivelse, udlignet, transdate, kladde_id, refnr, valuta, valutakurs,projekt) values ('{$konto_id}', '{$lev_kontonr}', '{$fakturanr}', {$sum}*-1, '{$beskrivelse}', '0', '{$transdate}', '0', '{$id}', '{$valuta}', '{$valutakurs}','{$projekt['0']}')", __FILE__ . " linje " . __LINE__);
$r = db_fetch_array(db_select("select max(id) as id from openpost where konto_id = '{$konto_id}' and faktnr = '{$fakturanr}' and refnr='{$id}'", __FILE__ . " linje " . __LINE__));
$openpost_id = $r['id'];
########### <- OPENPOST
$tekst = findtekst(157, $sprog_id);
if ($kontonr) {
$r = db_fetch_array(db_select("select id from kontoplan where kontonr='{$kontonr}' and regnskabsaar = '{$regnaar}' and lukket!='on'", __FILE__ . " linje " . __LINE__));
if (!$r['id']) {
print "<BODY onLoad=\"javascript:alert('{$tekst}')\">";
exit;
print "<meta http-equiv=\"refresh\" content=\"0;URL=ordre.php?id={$id}\">";
exit;
}
} else {
print "<BODY onLoad=\"javascript:alert('{$tekst}')\">";
print "<meta http-equiv=\"refresh\" content=\"0;URL=ordre.php?id={$id}\">";
exit;
}
if ($sum > 0) {
$kredit = $sum;
$debet = '0';
} else {
$kredit = '0';
$debet = $sum * -1;
}
if ($valutakurs) {
$kredit = afrund($kredit * $valutakurs / 100, 3);
$debet = afrund($debet * $valutakurs / 100, 3);
}
# Omregning til DKK.
$debet = afrund($debet, 2);
$kredit = afrund($kredit, 2);
$d_kontrol = $d_kontrol + $debet;
$k_kontrol = $k_kontrol + $kredit;
$fakturasum += $debet - $kredit;
if ($modtbill) {
$bilag = $modtagelse * 1;
} else {
$bilag = '0';
}
if ($sum) {
#cho "insert into transaktioner (bilag,transdate,beskrivelse,kontonr,faktura,debet,kredit,kladde_id,afd,logdate,logtime,projekt,ansat,ordre_id) values ('$bilag','$transdate','$beskrivelse','$kontonr','$fakturanr','$debet','$kredit','0',$afd,'$logdate','$logtime','$projekt[0]','$ansat','$id')<br>";
db_modify("insert into transaktioner (bilag,transdate,beskrivelse,kontonr,faktura,debet,kredit,kladde_id,afd,logdate,logtime,projekt,ansat,ordre_id) values ('{$bilag}','{$transdate}','{$beskrivelse}','{$kontonr}','{$fakturanr}','{$debet}','{$kredit}','0',{$afd},'{$logdate}','{$logtime}','{$projekt['0']}','{$ansat}','{$id}')", __FILE__ . " linje " . __LINE__);
}
if ($valutakurs) {
$maxdif = 2;
}
#Der tillades 2 oeres afrundingsdiff
$p = 0;
$projektliste = '';
$q = db_select("select distinct(projekt) from ordrelinjer where ordre_id={$id} and vare_id >\t'0'", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$p++;
$projekt[$p] = $r['projekt'];
$projektliste ? $projektliste .= "<br>" . $projekt[$p] : ($projektliste = $projekt[$p]);
}
$projektantal = $p;
if ($projektantal) {
db_modify("update openpost set projekt='{$projektliste}' where id='{$openpost_id}'", __FILE__ . " linje " . __LINE__);
}
for ($t = 1; $t <= 2; $t++) {
for ($p = 1; $p <= $projektantal; $p++) {
$y = 0;
$bogf_konto = array();
if ($t == 1) {
$q = db_select("select * from ordrelinjer where ordre_id={$id} and posnr>=0 and projekt='{$projekt[$p]}'", __FILE__ . " linje " . __LINE__);
} else {
$q = db_select("select * from ordrelinjer where ordre_id={$id} and posnr<0 and projekt='{$projekt[$p]}'", __FILE__ . " linje " . __LINE__);
}
while ($r = db_fetch_array($q)) {
if ($valutakurs) {
$maxdif = $maxdif + 2;
}
#Og yderligere 2 pr ordrelinje.
if (!in_array($r['bogf_konto'], $bogf_konto)) {
$y++;
$bogf_konto[$y] = $r['bogf_konto'];
$pos[$y] = $r['posnr'];
$pris[$y] = afrund($r['pris'] * $r['antal'] - $r['pris'] * $r['antal'] * $r['rabat'] / 100, 2);
#20110124 afrund dec aendret fra 3 til 2 saldi_205 ordre_id 997
} else {
for ($a = 1; $a <= $y; $a++) {
if ($bogf_konto[$a] == $r['bogf_konto']) {
$tmp = afrund($r['pris'] * $r['antal'] - $r['pris'] * $r['antal'] * $r['rabat'] / 100, 2);
#20110124 afrund dec aendret fra 3 til 2 saldi_205 ordre_id 997
$pris[$a] += $tmp;
}
}
}
}
if ($projekt[0] && !$projekt[$p]) {
$projekt[$p] = $projekt[0];
}
$ordrelinjer = $y;
for ($y = 1; $y <= $ordrelinjer; $y++) {
if ($bogf_konto[$y]) {
if ($pris[$y] > 0) {
$debet = $pris[$y];
$kredit = 0;
} else {
$debet = 0;
$kredit = $pris[$y] * -1;
}
$tmp1 = $kredit * $valutakurs / 100;
$tmp2 = $debet * $valutakurs / 100;
if ($t == 1 && $valutakurs) {
$kredit = afrund($kredit * $valutakurs / 100, 3);
$debet = afrund($debet * $valutakurs / 100, 3);
}
# Omregning til DKK.
$debet = afrund($debet, 2);
$kredit = afrund($kredit, 2);
$d_kontrol = $d_kontrol + $debet;
$k_kontrol = $k_kontrol + $kredit;
$linjesum += $debet - $kredit;
if ($pris[$y]) {
db_modify("insert into transaktioner (bilag,transdate,beskrivelse,kontonr,faktura,debet,kredit,kladde_id,afd,logdate,logtime,projekt,ansat,ordre_id) values ('{$bilag}','{$transdate}','{$beskrivelse}','{$bogf_konto[$y]}','{$fakturanr}','{$debet}','{$kredit}','0','{$afd}','{$logdate}','{$logtime}','{$projekt[$p]}','{$ansat}','{$id}')", __FILE__ . " linje " . __LINE__);
}
}
}
}
}
$r = db_fetch_array(db_select("select gruppe from adresser where id='{$konto_id}'", __FILE__ . " linje " . __LINE__));
$r = db_fetch_array(db_select("select box1,box6 from grupper where art='KG' and kodenr='{$r['gruppe']}'", __FILE__ . " linje " . __LINE__));
$box1 = substr(trim($r['box1']), 1, 1);
$smomsnr = substr(trim($r['box6']), 1, 1);
if (!$box1) {
$moms = 0;
}
#################### EU varekoeb moms ################
if (substr(trim($r['box1']), 0, 1) == 'E') {
$r = db_fetch_array(db_select("select box1,box2,box3 from grupper where art='EM' and kodenr='{$box1}'", __FILE__ . " linje " . __LINE__));
$kmomskto = trim($r['box3']);
# Ser lidt forvirrende ud,men den er go nok - fordi koebsmomsen ligger i box 3 v. udenlandsmoms.
$emomskto = $r['box1'];
$moms = $sum / 100 * $r['box2'];
#moms af varekoeb i udland beregnes
if ($moms > 0) {
$kredit = $moms;
$debet = '0';
} else {
$kredit = '0';
$debet = $moms * -1;
}
if ($valutakurs) {
$kredit = afrund($kredit * $valutakurs / 100, 3);
$debet = afrund($debet * $valutakurs / 100, 3);
}
# Omregning til DKK.
$momssum += $debet - $kredit;
$d_kontrol = $d_kontrol + $debet;
$k_kontrol = $k_kontrol + $kredit;
if ($moms) {
db_modify("insert into transaktioner (bilag,transdate,beskrivelse,kontonr,faktura,debet,kredit,kladde_id,afd,logdate,logtime,projekt,ansat,ordre_id) values ('{$bilag}','{$transdate}','{$beskrivelse}','{$emomskto}','{$fakturanr}','{$debet}','{$kredit}','0','{$afd}','{$logdate}','{$logtime}','{$projekt[$p]}','{$ansat}','{$id}')", __FILE__ . " linje " . __LINE__);
}
#################### EU ydelseskoeb moms ################
} elseif (substr(trim($r['box1']), 0, 1) == 'Y') {
$r = db_fetch_array(db_select("select box1,box2,box3 from grupper where art='YM' and kodenr='{$box1}'", __FILE__ . " linje " . __LINE__));
$kmomskto = trim($r['box3']);
# Ser lidt forvirrende ud,men den er go nok - fordi koebsmomsen ligger i box 3 v. udenlandsmoms.
$emomskto = $r['box1'];
$moms = $sum / 100 * $r['box2'];
#moms af varekoeb i udland beregnes
if ($moms > 0) {
$kredit = $moms;
$debet = '0';
} else {
$kredit = '0';
$debet = $moms * -1;
}
if ($valutakurs) {
$kredit = afrund($kredit * $valutakurs / 100, 3);
$debet = afrund($debet * $valutakurs / 100, 3);
}
# Omregning til DKK.
$momssum += $debet - $kredit;
$d_kontrol = $d_kontrol + $debet;
$k_kontrol = $k_kontrol + $kredit;
if ($moms) {
db_modify("insert into transaktioner (bilag,transdate,beskrivelse,kontonr,faktura,debet,kredit,kladde_id,afd,logdate,logtime,projekt,ansat,ordre_id) values ('{$bilag}','{$transdate}','{$beskrivelse}','{$emomskto}','{$fakturanr}','{$debet}','{$kredit}','0','{$afd}','{$logdate}','{$logtime}','{$projekt[$p]}','{$ansat}','{$id}')", __FILE__ . " linje " . __LINE__);
}
####################
} else {
#cho "$omlev && $smomsnr<br>";
if ($omlev && $smomsnr) {
#cho "select box1,box2,box3 from grupper where art='SM' and kodenr='$smomsnr'<br>";
$r = db_fetch_array(db_select("select box1,box2,box3 from grupper where art='SM' and kodenr='{$smomsnr}'", __FILE__ . " linje " . __LINE__));
$smomskto = $r['box1'];
#cho "SM $smomskto<br>";
$smoms = 0;
#cho "select * from ordrelinjer where ordre_id='$id' and omvbet='on' and momsfri!='on'<br>";
$q = db_select("select * from ordrelinjer where ordre_id='{$id}' and omvbet='on' and momsfri!='on'", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$linjesum = afrund($r['pris'] * $r['antal'] - $r['pris'] * $r['antal'] * $r['rabat'] / 100, 2);
#cho "LS $linjesum<br>";
$smoms += afrund($linjesum * $momssats / 100, 2);
#cho "MS $smoms<br>";
}
}
$moms += $smoms;
#cho "Moms $moms<br>";
if ($smoms > 0) {
$kredit = $smoms;
$debet = '0';
} else {
$kredit = '0';
$debet = $smoms * -1;
}
if ($valutakurs) {
$kredit = afrund($kredit * $valutakurs / 100, 3);
$debet = afrund($debet * $valutakurs / 100, 3);
}
# Omregning til DKK.
$kredit = afrund($kredit, 3);
$debet = afrund($debet, 3);
$d_kontrol = $d_kontrol + $debet;
$k_kontrol = $k_kontrol + $kredit;
if ($smoms) {
#cho "SM $smoms D $debet K $kredit<br>";
$tmp = $beskrivelse . " (Omvendt betaling)";
#cho "insert into transaktioner (bilag,transdate,beskrivelse,kontonr,faktura,debet,kredit,kladde_id,afd,logdate,logtime,projekt,ansat,ordre_id) values ('$bilag','$transdate','$tmp','$smomskto','$fakturanr','$debet','$kredit','0','$afd','$logdate','$logtime','$projekt[0]','$ansat','$id')<br>";
db_modify("insert into transaktioner (bilag,transdate,beskrivelse,kontonr,faktura,debet,kredit,kladde_id,afd,logdate,logtime,projekt,ansat,ordre_id) values ('{$bilag}','{$transdate}','{$tmp}','{$smomskto}','{$fakturanr}','{$debet}','{$kredit}','0','{$afd}','{$logdate}','{$logtime}','{$projekt['0']}','{$ansat}','{$id}')", __FILE__ . " linje " . __LINE__);
}
$r = db_fetch_array(db_select("select box1 from grupper where art='KM' and kodenr='{$box1}'", __FILE__ . " linje " . __LINE__));
$kmomskto = trim($r['box1']);
}
if ($moms > 0) {
$debet = $moms;
$kredit = '0';
} else {
$debet = '0';
$kredit = $moms * -1;
}
if ($valutakurs) {
$kredit = afrund($kredit * $valutakurs / 100, 3);
$debet = afrund($debet * $valutakurs / 100, 3);
}
# Omregning til DKK.
$kredit = afrund($kredit, 3);
$debet = afrund($debet, 3);
$d_kontrol = $d_kontrol + $debet;
$k_kontrol = $k_kontrol + $kredit;
$momssum += $debet - $kredit;
$moms = afrund($moms, 2);
if ($moms) {
#cho "insert into transaktioner (bilag,transdate,beskrivelse,kontonr,faktura,debet,kredit,kladde_id,afd,logdate,logtime,projekt,ansat,ordre_id) values ('$bilag','$transdate','$beskrivelse','$kmomskto','$fakturanr','$debet','$kredit','0','$afd','$logdate','$logtime','$projekt[0]','$ansat','$id')<br>";
db_modify("insert into transaktioner (bilag,transdate,beskrivelse,kontonr,faktura,debet,kredit,kladde_id,afd,logdate,logtime,projekt,ansat,ordre_id) values ('{$bilag}','{$transdate}','{$beskrivelse}','{$kmomskto}','{$fakturanr}','{$debet}','{$kredit}','0','{$afd}','{$logdate}','{$logtime}','{$projekt['0']}','{$ansat}','{$id}')", __FILE__ . " linje " . __LINE__);
}
db_modify("update ordrer set status=4,valutakurs={$valutakurs} where id={$id}", __FILE__ . " linje " . __LINE__);
db_modify("delete from ordrelinjer where ordre_id={$id} and posnr < 0", __FILE__ . " linje " . __LINE__);
}
$d_kontrol = afrund($d_kontrol, 2);
$k_kontrol = afrund($k_kontrol, 2);
if ($diff = afrund($d_kontrol - $k_kontrol, 2)) {
if ($valuta != 'DKK' && abs($diff) <= $maxdif) {
#Der maa max vaere en afvigelse paa 1 oere pr ordrelinje m fremmed valuta;
$debet = 0;
$kredit = 0;
if ($diff < 0) {
$debet = $diff * -1;
} else {
$kredit = $diff;
}
$debet = afrund($debet, 2);
$kredit = afrund($kredit, 2);
db_modify("insert into transaktioner (bilag,transdate,beskrivelse,kontonr,faktura,debet,kredit,kladde_id,afd,logdate,logtime,projekt,ansat,ordre_id) values ('{$bilag}','{$transdate}','{$beskrivelse}','{$difkto}','{$fakturanr}','{$debet}','{$kredit}','0','{$afd}','{$logdate}','{$logtime}','{$projekt['0']}','{$ansat}','{$id}')", __FILE__ . " linje " . __LINE__);
} else {
print "<BODY onLoad=\"javascript:alert('Der er konstateret en uoverensstemmelse i posteringssummen, kontakt DANOSOFT på telefon 4690 2208')\">";
print "<meta http-equiv=\"refresh\" content=\"0;URL=ordre.php?id={$id}\">";
exit;
}
}
#print "<BODY onLoad=\"javascript:alert('xxxxxxxxxxxxxxxxxxxx')\">";
#xit;
# genberegn($regnaar);
}
function ordrelinjer($x, $sum, $dbsum, $blandet_moms, $moms, $antal_ialt, $leveres_ialt, $tidl_lev_ialt, $levdiff, $masterprojekt, $linje_id, $kred_linje_id, $posnr, $varenr, $beskrivelse, $enhed, $pris, $rabat, $rabatart, $procent, $antal, $leveres, $vare_id, $momsfri, $rabatgruppe, $m_rabat, $varemomssats, $serienr, $samlevare, $folgevare, $projekt, $kdo, $kobs_ordre_pris, $ko_ant, $kostpris, $db, $dg, $dk_db, $dk_dg, $readonly, $omvbet, $saet, $saetnr)
{
print "<!--function ordrelinjer start-->";
global $art;
global $brugsamletpris;
global $genfakt;
global $fokus;
global $hurtigfakt;
global $id;
global $incl_moms;
global $momssats;
global $valuta;
global $valutakurs;
global $vis_projekt;
global $status;
global $ny_pos;
global $procentfakt;
global $omkunde;
global $difkto;
global $rvnr;
global $vis_saet;
$dkantal = 0;
$tidl_lev = 0;
# ($rvnr)?$disabled='disabled':$disabled=NULL;
if (!$samlevare || !$brugsamletpris) {
$ny_pos++;
}
#20150317
#lse cho "$beskrivelse $pris<br>";
# if (!$ny_pos) $ny_pos=1;
if ($readonly) {
$readonly = "readonly=\"readonly\"";
}
if ($varenr) {
if ($rabatart == 'amount') {
$ialt = ($pris - $rabat) * $antal;
} else {
$ialt = ($pris - $pris / 100 * $rabat) * $antal;
}
if ($procentfakt) {
$ialt *= $procent / 100;
} else {
$procent = 100;
}
$ialt = afrund($ialt, 3);
# 20150130 rettet til 3 decimaler
$sum += $ialt;
$dkpris = dkdecimal($pris, 2);
$dkrabat = dkdecimal($rabat, 3);
$dkprocent = dkdecimal($procent, 2);
if ($momsfri != 'on') {
$moms += afrund($ialt * $varemomssats / 100, 3);
# 20150130 rettet til 3 decimaler
if ($varemomssats != $momssats) {
$blandet_moms = 1;
}
#tilfojet 20100923 grundet afrundingsfejl på ordre med rabat
if ($incl_moms) {
$dkpris = dkdecimal($pris + $pris * $varemomssats / 100);
}
} else {
$blandet_moms = 1;
}
#tilfojet 20100923 grundet afrundingsfejl på ordre med rabat
if ($antal) {
if ($art == 'DK') {
$dkantal = dkdecimal($antal * -1);
} else {
$dkantal = dkdecimal($antal);
}
if (substr($dkantal, -1) == '0') {
$dkantal = substr($dkantal, 0, -1);
}
if (substr($dkantal, -1) == '0') {
$dkantal = substr($dkantal, 0, -2);
}
}
} else {
$antal = 0;
$dkantal = '';
$dkpris = '';
$dkrabat = '';
$ialt = '';
}
$art == 'OT' || $saetnr || $rvnr && $rabat ? $disabled = 'disabled' : ($disabled = NULL);
// Her disables inputfield hvis art er OT. #20140716
print "<input type=\"hidden\" name=\"linje_id[{$x}]\" value=\"{$linje_id}\">\n";
print "<input type=\"hidden\" name=\"kred_linje_id[{$x}]\" value=\"{$kred_linje_id}\">\n";
print "<input type=\"hidden\" name=\"vare_id[{$x}]\" value=\"{$vare_id}\">\n";
print "<input type=\"hidden\" name=\"antal[{$x}]\" value=\"{$antal}\">\n";
print "<input type=\"hidden\" name=\"serienr[{$x}]\" value=\"{$serienr}\">\n";
print "<input type=\"hidden\" name=\"momsfri[{$x}]\" value=\"{$momsfri}\">\n";
print "<input type=\"hidden\" name=\"varemomssats[{$x}]\" value=\"{$varemomssats}\">\n";
print "<input type=\"hidden\" name=\"proc{$x}\" value=\"{$procent}\">\n";
print "<input type=\"hidden\" name=\"saet[{$x}]\" value=\"{$saet}\">\n";
print "<input type=\"hidden\" name=\"samlevare[{$x}]\" value=\"{$samlevare}\">\n";
# if ($art=='OT' || $saetnr || ($rvnr && $rabat)) { // Når input fields er 'disabled' bliver de ikke opdateret, derfor tilføjes hidden fields
print "<input type=\"hidden\" name=\"beskrivelse{$x}\" value=\"{$beskrivelse}\">\n";
if ($fokus != "pris{$x}") {
print "<input type=\"hidden\" name=\"pris{$x}\" value=\"{$dkpris}\">\n";
}
print "<input type=\"hidden\" name=\"raba{$x}\" value=\"{$dkrabat}\">\n";
print "<input type=\"hidden\" name=\"proc{$x}\" value=\"{$dkprocent}\">\n";
if ($fokus == 'dkan' . $x) {
#20151019
print "<input type=\"hidden\" name=\"dkantal[{$x}]\" value=\"{$dkantal}\">\n";
print "<input type=\"hidden\" name=\"fokus\" value=\"pris{$x}\">\n";
}
$prplho = NULL;
if ($fokus == 'pris' . $x) {
#20151019
if ($pris == 0) {
$prplho = "placeholder=\"0,00\"";
} else {
$fokus = 'vare0';
}
}
# }
if ($saet && $samlevare) {
#cho "x $beskrivelse $pris<br>";
print "<input type=\"hidden\" name=\"posn{$x}\" value=\"{$ny_pos}\">\n";
print "<input type=\"hidden\" name=\"vare{$x}\" value=\"{$varenr}\">\n";
print "<input type=\"hidden\" name=\"dkan{$x}\" value=\"{$dkantal}\">\n";
} else {
print "<tr>\n";
print "<td valign=\"top\"><input class=\"inputbox\" type=\"text\" {$readonly} style=\"text-align:right\" size=\"3\" name=\"posn{$x}\" value=\"{$ny_pos}\" {$disabled}></td>\n";
print "<td valign=\"top\"><input class=\"inputbox\" type=\"text\" style=\"background: none repeat scroll 0 0 #e4e4ee\" readonly=\"readonly\" size=\"12\" name=\"vare{$x}\" onfocus=\"document.forms[0].fokus.value=this.name;\" value=\"{$varenr}\" onchange=\"javascript:docChange = true;\" {$disabled}></td>\n";
if ($fokus == 'dkan' . $x) {
print "<td valign=\"top\"><input class=\"inputbox\" type=\"text\" style=\"text-align:right\" {$readonly} size=\"4\" name=\"dkan{$x}\" placeholder=\"{$dkantal}\" value=\"\" {$disabled}></td>\n";
} else {
print "<td valign=\"top\"><input class=\"inputbox\" type=\"text\" style=\"text-align:right\" {$readonly} size=\"4\" name=\"dkan{$x}\" value=\"{$dkantal}\" {$disabled}></td>\n";
}
print "<td valign=\"top\"><input class=\"inputbox\" type=\"text\" style=\"background: none repeat scroll 0 0 #e4e4ee\" readonly=\"readonly\" size=\"3\" value=\"{$enhed}\" onchange=\"javascript:docChange = true;\" {$disabled}></td>\n";
$title = var2str($beskrivelse, $id, $posnr, $varenr, $dkantal, $enhed, $dkpris, $dkprocent, $serienr, $varemomssats, $dkrabat);
//print "<td valign=\"top\" title=\"$title\"><input class=\"inputbox\" type=\"text\" $readonly size=\"58\" name=\"beskrivelse$x\" value=\"$beskrivelse\" onchange=\"javascript:docChange = true;\"></td>\n";
if ($rvnr && $varenr == $rvnr || $saetnr && $samlevare) {
$dis = $disabled;
} elseif ($saetnr || $rvnr && $rabat) {
$dis = NULL;
} else {
$dis = $disabled;
}
print "<td valign=\"top\" title=\"{$title}\"><textarea class=\"autosize inputbox ordreText comment\" {$readonly} rows=\"1\" cols=\"58\" name=\"beskrivelse{$x}\" onchange=\"javascript:docChange = true;\" {$dis}>{$beskrivelse}</textarea></td>\n";
}
if ($saet) {
print "<td><input type=\"hidden\" name=\"pris{$x}\" value=\"{$dkpris}\"></td><td>\n\t\t\t<input class=\"inputbox\" type=\"hidden\" name=\"raba{$x}\" value=\"{$dkrabat}\"></td>\n\t\t\t<input type=\"hidden\" name=\"posn{$x}\" value=\"{$ny_pos}\">\n";
} elseif ($saetnr) {
print "<td><input type=\"hidden\" name=\"pris{$x}\" value=\"" . dkdecimal($pris) . "\"></td><td><input class=\"inputbox\" type=\"hidden\" name=\"raba{$x}\" value=\"0\"></td>";
} elseif (!$rvnr) {
print "<td valign=\"top\" title=\"db: {$dk_db} - dg: {$dk_dg}%\"><input class=\"inputbox\" type=\"text\" {$readonly} style=\"text-align:right\" size=\"10\" {$prplho} name=\"pris{$x}\" value=\"{$dkpris}\" onchange=\"javascript:docChange = true;\" onfocus=\"if(this.value == '0,00') {this.value=''}\" onblur=\"if(this.value == ''){this.value ='0,00'}\" {$disabled}></td>\n";
#2013.11.29 Fjerner 0,00 ved fokus, og tilføjer 0,00 hvis feltet er tomt
$title = $dkantal . "*" . dkdecimal($rabat / 100 * $pris) . "% = " . dkdecimal($antal * ($rabat / 100) * $pris);
print "<td valign=\"top\" title=\"{$title}\"><input class=\"inputbox\" type=\"text\" {$readonly} style=\"text-align:right\" size=\"4\" name=\"raba{$x}\" value=\"{$dkrabat}\" onchange=\"javascript:docChange = true;\" onfocus=\"if(this.value == '0,00') {this.value=''}\" onblur=\"if(this.value == ''){this.value ='0,00'}\" {$disabled}></td>\n";
} else {
print "<td></td><td></td>";
}
if ($procentfakt) {
print "<td valign=\"top\" title=\"{$title}\"><input class=\"inputbox\" type=\"text\" {$readonly} style=\"text-align:right\" size=\"4\" name=\"proc{$x}\" value=\"{$dkprocent}\" onchange=\"javascript:docChange = true;\" {$disabled}></td>\n";
$db = $db - (100 - $procent) / 100 * $pris;
}
$db = $db * $antal;
if ($ialt != 0) {
$dg = $db * 100 / $ialt;
} else {
$dg = 0;
}
$dbsum = $dbsum + $db;
$dk_db = dkdecimal($db);
$dk_dg = dkdecimal($dg);
if ($art == 'DK') {
$ialt = $ialt * -1;
}
if ($varenr) {
if ($rvnr) {
$disabled = 'disabled';
if ($incl_moms && !$momsfri) {
$tmp = dkdecimal($antal * ($pris + $pris * $varemomssats / 100));
} else {
$tmp = dkdecimal($pris);
}
} else {
if ($incl_moms && !$momsfri) {
$tmp = dkdecimal($ialt + $ialt * $varemomssats / 100);
} else {
$tmp = dkdecimal($ialt);
}
}
} else {
$tmp = NULL;
}
if ($saet) {
print "<td></td>";
} elseif ($saetnr || $varenr == $rvnr) {
#cho __line__." $linje_id $beskrivelse $pris<br>";
#cho "select lev_varenr from ordrelinjer where samlevare='on' and saet='$saetnr' and ordre_id='$id'<br>";
if ($saetnr) {
$r = db_fetch_array(db_select("select lev_varenr from ordrelinjer where samlevare='on' and saet='{$saetnr}' and ordre_id='{$id}'"));
} else {
$r = db_fetch_array(db_select("select lev_varenr from ordrelinjer where varenr='{$rvnr}' and ordre_id='{$id}'"));
}
list($lev_vnr) = explode("|", $r['lev_varenr']);
print "<td valign=\"top\" align=\"right\" title=\"db: {$dk_db} - dg: {$dk_dg}%\"><input class=\"inputbox\" type=\"text\" readonly=\"readonly\" style=\"background: none repeat scroll 0 0 #e4e4ee; text-align:right\" size=\"10\" value=\"" . dkdecimal($lev_vnr) . "\" disabled></td>\n";
} else {
print "<td valign=\"top\" align=\"right\" title=\"db: {$dk_db} - dg: {$dk_dg}%\"><input class=\"inputbox\" type=\"text\" readonly=\"readonly\" style=\"background: none repeat scroll 0 0 #e4e4ee; text-align:right\" size=\"10\" value=\"{$tmp}\" {$disabled}></td>\n";
}
if ($vis_projekt && !$masterprojekt) {
print "<td><select class=\"inputbox\" name=\"projekt[{$x}]\">\n";
$list = array();
$beskriv = array();
$z = 0;
$q = db_select("select * from grupper where art = 'PRJ' and kodenr != '0' order by kodenr", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$z++;
$list[$z] = $r['kodenr'];
$beskriv[$z] = $r['beskrivelse'];
}
for ($a = 0; $a <= $z; $a++) {
if ($projekt != $list[$a]) {
print "<option value=\"{$list[$a]}\" title=\"{$beskriv[$a]}\">{$list[$a]}</option>\n";
} else {
print "<option value=\"{$list[$a]}\" title=\"{$beskriv[$a]}\" selected=\"selected\">{$list[$a]}</option>\n";
}
}
print "</select></td>";
}
if ($genfakt) {
print "<td title=\"Afmærk dette felt hvis ordrelinjen ikke skal med ved genfakturering / kopiering.\"><input class=\"inputbox\" name=\"kdo[{$x}]\" type=\"checkbox\" {$kdo}></td>\n";
}
# }
# else print "<td></td>";
if ($status >= 1 && $hurtigfakt != 'on') {
if ($vare_id || $varenr) {
$batch = "?";
# print "<td title=\"kostpris\">Projekt</span></td>\n";
$tidl_lev = 0;
$query = db_select("select gruppe,beholdning from varer where id = {$vare_id}", __FILE__ . " linje " . __LINE__);
$row = db_fetch_array($query);
$beholdning = $row['beholdning'];
$query = db_select("select box8,box9 from grupper where art='VG' and kodenr='{$row['gruppe']}'", __FILE__ . " linje " . __LINE__);
$row = db_fetch_array($query);
$row['box6'] == 'on' ? $omvare = 1 : ($omvare = 0);
# vare som er omfattet af omvendt betalingspligt
$row['box8'] == 'on' ? $lagervare = 1 : ($lagervare = 0);
$row['box9'] == 'on' ? $batchvare = 1 : ($batchvare = 0);
if ($antal) {
$query = db_select("select * from batch_salg where linje_id = '{$linje_id}' and ordre_id={$id} and vare_id = {$vare_id}", __FILE__ . " linje " . __LINE__);
while ($row = db_fetch_array($query)) {
$y++;
$batch = 'V';
$tidl_lev = $tidl_lev + $row['antal'];
}
if ($batchvare) {
$z = 0;
$query = db_select("select * from reservation where vare_id = {$vare_id}", __FILE__ . " linje " . __LINE__);
while ($row = db_fetch_array($query)) {
if ($row['linje_id'] == $linje_id || $row['batch_salg_id'] == $linje_id * -1) {
$z = $z + $row['antal'];
$batch = "V";
} elseif ($row['batch_kob_id'] < 0) {
$reserveret = $reserveret + $row['antal'];
} elseif ($row['batch_salg_id'] == 0) {
$paavej = $paavej + $row['antal'];
}
}
if ($z + $tidl_lev < $antal) {
$batch = "?";
}
} else {
$batch = "";
}
if ($tidl_lev < $antal || $batch == "?") {
$status = 1;
}
}
/*
if ($antal<0) {
$tidl_lev=0;
$query = db_select("select * from batch_kob where linje_id = '$linje_id' and ordre_id=$id",__FILE__ . " linje " . __LINE__); #20071004
while($row = db_fetch_array($query)) $tidl_lev=$tidl_lev-$row['antal'];
if ($antal>$tidl_lev+$leveres) $leveres=$antal-$tidl_lev;
# elseif ($antal>$tidl_lev+$leveres) $leveres=$antal+$tidl_lev;
$query = db_select("select * from reservation where linje_id = '$linje_id'",__FILE__ . " linje " . __LINE__);
if (($row = db_fetch_array($query))&&($beholdning>=0)) {
if ($antal+$tidl_lev!=$row['antal']) db_modify ("update reservation set antal=$antal*-1 where linje_id=$linje_id and batch_salg_id=0",__FILE__ . " linje " . __LINE__);
}
elseif ($antal-$tidl_lev!=0) db_modify("insert into reservation (linje_id,vare_id,batch_salg_id,antal) values ($linje_id,$vare_id,0,$antal*-1)",__FILE__ . " linje " . __LINE__);
}
elseif ($leveres+$tidl_lev>$antal) $leveres=$antal-$tidl_lev;
*/
if ($art == 'DK') {
$dklev = dkdecimal($leveres * -1);
$dk_tidl_lev = dkdecimal($tidl_lev * -1);
$lever_modtag = "modtag";
} else {
$dklev = dkdecimal($leveres);
$dk_tidl_lev = dkdecimal($tidl_lev);
$lever_modtag = "lever";
}
if (substr($dklev, -1) == '0') {
$dklev = substr($dklev, 0, -1);
}
if (substr($dklev, -1) == '0') {
$dklev = substr($dklev, 0, -2);
}
if (substr($dk_tidl_lev, -1) == '0') {
$dk_tidl_lev = substr($dk_tidl_lev, 0, -1);
}
if (substr($dk_tidl_lev, -1) == '0') {
$dk_tidl_lev = substr($dk_tidl_lev, 0, -2);
}
print "<input type=\"hidden\" name=tidl_lev[{$x}] value=\"{$dk_tidl_lev}\">\n";
$temp = $beholdning - $reserveret;
$status = 2;
$beholdning = $beholdning * 1;
$beholdning = dkdecimal($beholdning);
if (substr($beholdning, -1) == '0') {
$beholdning = substr($beholdning, 0, -1);
}
if (substr($beholdning, -1) == '0') {
$beholdning = substr($beholdning, 0, -2);
}
if (!$lagervare) {
$beholdning = "ikke lagerført";
}
$tmp = afrund(abs($antal) - abs($tidl_lev), 2);
#20131004
if ($samlevare && $saet) {
echo "";
} else {
if ($tmp) {
if (abs($antal) != abs($tidl_lev)) {
print "<td title=\"Lagerbeholdning: {$beholdning}. Mangler fortsat at " . $lever_modtag . "e resten.\"><input class=\"inputbox\" {$readonly} type=\"text\" style=\"background: none repeat scroll 0 0 #ffa; text-align:right\" size=\"4\" name=\"leve{$x}\" value=\"{$dklev}\" onchange=\"javascript:docChange = true;\"></td>\n";
} else {
print "<td title=\"Lagerbeholdning: {$beholdning}. Intet " . $lever_modtag . "et endnu.\"><input class=\"inputbox\" {$readonly} type=\"text\" style=\"text-align:right\" size=\"4\" name=\"leve{$x}\" value=\"{$dklev}\" onchange=\"javascript:docChange = true;\"></td>\n";
}
print "<td title=\"Tidligere " . $lever_modtag . "et {$dk_tidl_lev} på denne ordre.\">({$dk_tidl_lev})</td>\n";
if ($batchvare && $antal > 0) {
print "<td align=\"center\" onClick=\"batch({$linje_id})\" title=\"Vælg fra købsordre\"><img alt=\"Serienummer\" src=\"../ikoner/serienr.png\"></td>\n";
} elseif ($serienr) {
print "<td align=\"center\" onClick=\"serienummer({$linje_id})\" title=\"Vælg serienr\"><img alt=\"Serienummer\" src=\"../ikoner/serienr.png\"></td>\n";
}
$levdiff = 1;
} else {
if ($antal == $tidl_lev) {
$dklev = 0;
}
print "<td title=\"Lagerbeholdning: {$beholdning}. Alt " . $lever_modtag . "et.\"><input class=\"inputbox\" type=\"text\" readonly=\"readonly\" style=\"background: none repeat scroll 0 0 #e4e4ee; text-align:right\" size=\"4\" name=\"leve{$x}\" value=\"{$dklev}\" onchange=\"javascript:docChange = true;\"></td>\n";
print "<td title=\"Tidligere " . $lever_modtag . "et {$dk_tidl_lev} på denne ordre.\">({$dk_tidl_lev})</td>\n";
}
if ($linje_id && $leveret != $tidl_lev) {
db_modify("update ordrelinjer set leveret={$tidl_lev} where id={$linje_id}", __FILE__ . " linje " . __LINE__);
}
}
}
} elseif ($serienr) {
print "<td align=\"center\" onClick=\"serienummer({$linje_id})\" title=\"Vælg serienr\"><img alt=\"Serienummer\" src=\"../ikoner/serienr.png\"></td>\n";
}
# if ($samlevare=='on') print "<td align=\"center\" onClick=\"stykliste($vare_id)\" title=\"Vis stykliste\"><img alt=\"Stykliste\" src=\"../ikoner/stykliste.png\"></td>\n";
if (!$rabat && $m_rabat && !$rabatgruppe) {
print "</tr><tr>\n";
print "<td><input class=\"inputbox\" readonly=\"readonly\" style=\"text-align:right\" size=\"3\" value={$x}></td>\n";
print "<td><input class=\"inputbox\" readonly=\"readonly\" size=\"12\" value=\"\"></td>\n";
print "<td><input class=\"inputbox\" readonly=\"readonly\" style=\"text-align:right\" size=\"4\" value={$dkantal}></td>\n";
print "<td><input class=\"inputbox\" readonly=\"readonly\" size=\"3\" value=\"{$enhed}\"></td>\n";
$rabatpct = afrund($m_rabat * 100 / $pris, 2);
$rabatart == 'amount' ? $rabattxt = findtekst(466, $sprog_id) : ($rabattxt = findtekst(467, $sprog_id));
$rabattxt = str_replace('$rabatpct', $rabatpct, $rabattxt);
$title = var2str($rabattxt, $id, $posnr, $varenr, $dkantal, $enhed, $dkpris, $dkprocent, $serienr[$x], $varemomssats, $dkrabat);
print "<td title=\"{$title}\"><input class=\"inputbox\" readonly=\"readonly\" size=\"58\" value=\"{$rabattxt}\"></td>\n";
if ($momsfri != 'on') {
$moms += afrund($m_rabat * $antal * $varemomssats / 100, 2);
if ($varemomssats != $momssats) {
$blandet_moms = 1;
}
#tilfojet 20100923 grundet afrundingsfejl på ordre med rabat
}
if ($incl_moms) {
$m_rabat += $m_rabat * $varemomssats / 100;
}
print "<td><input class=\"inputbox\" readonly=\"readonly\" style=\"text-align:right\" size=\"10\" value=\"" . dkdecimal($m_rabat) . "\"></td>\n";
print "<td><input class=\"inputbox\" readonly=\"readonly\" style=\"text-align:right\" size=\"4\" value=\"\" onchange=\"javascript:docChange = true;\"></td>\n";
print "<td><input class=\"inputbox\" readonly=\"readonly\" style=\"text-align:right\" size=\"10\" value=\"" . dkdecimal($m_rabat * $antal) . "\"></td>\n";
$sum += afrund($m_rabat * $antal, 2);
}
if ($omkunde) {
print "<td valign=\"top\"><input class=\"inputbox\" type=\"checkbox\" style=\"background: none repeat scroll 0 0 #e4e4ee\" name=\"omvbet[{$x}]\" onchange=\"javascript:docChange = true;\" {$omvbet}></td>\n";
}
print "</tr>\n";
if ($readonly) {
print "<input type=\"hidden\" name=\"posn{$x}\" value=\"{$ny_pos}\">\n";
print "<input type=\"hidden\" name=\"vare{$x}\" value=\"{$varenr}\">\n";
print "<input type=\"hidden\" name=\"dkan{$x}\" value=\"{$dkantal}\">\n";
print "<input type=\"hidden\" name=\"beskrivelse{$x}\" value=\"{$beskrivelse}\">\n";
print "<input type=\"hidden\" name=\"pris{$x}\" value=\"{$dkpris}\">\n";
print "<input type=\"hidden\" name=\"raba{$x}\" value=\"{$dkrabat}\">\n";
}
$antal_ialt = $antal_ialt + $antal;
#10.10.2007
$leveres_ialt = $leveres_ialt + abs($leveres);
#abs tilfoejet 2009.01.26 grundet manglende lev_mulighed med ens antal positive og negative leveringer i ordre 98 i saldi_104
$tidl_lev_ialt = $tidl_lev_ialt + $tidl_lev;
#10.10.2007
#cho "Sum $sum<br>";
return $sum . chr(9) . $dbsum . chr(9) . $blandet_moms . chr(9) . $moms . chr(9) . $antal_ialt . chr(9) . $leveres_ialt . chr(9) . $tidl_lev_ialt . chr(9) . $tidl_lev . chr(9) . $levdiff;
print "<!--function ordrelinjer s**t-->";
}
