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-->"; }
$gl_dato = NULL; $ny_dato = NULL; $gl_genfakt = NULL; $ny_genfakt = NULL; $returside = if_isset($_GET['returside']); if ($popup) { $returside = "../includes/luk.php"; } elseif (!$returside) { $returside = "ordreliste.php"; } $r = db_fetch_array(db_select("select box1, box2, box3, box4 from grupper where art='RA' and kodenr='{$regnaar}'", __FILE__ . " linje " . __LINE__)); $year = trim($r['box2']); $aarstart = str_replace(" ", "", $year . $r['box1']); $year = trim($r['box4']); $aarslut = str_replace(" ", "", $year . $r['box3']); $r = db_fetch_array(db_SELECT("select box12,box13 from grupper where art = 'DIV' and kodenr = '3'", __FILE__ . " linje " . __LINE__)); $procentfakt = $r['box12']; list($default_procenttillag, $procentvare) = explode(chr(9), $r['box13']); if ($procentvare) { $r = db_fetch_array(db_select("select beskrivelse from varer where varenr = '{$procentvare}'", __FILE__ . " linje " . __LINE__)); $tillag = $sum * $procenttillag / 100; $procentbeskr = var2str($r['beskrivelse'], $id); # $procentbeskr=str_replace('$procenttillæg;',$procenttillag,$procentbeskr); } print "<table name=\"tabel_1\" width=\"100%\" cellspacing=\"2\" border=\"0\"><tbody>\n"; #tabel 1 -> print "<tr><td width=\"100%\"><table name=\"tabel_1.1\" width=\"100%\" cellspacing=\"2\" border=\"0\"><tbody>\n"; # tabel 1.1 -> print "<td width=10% {$top_bund}><a href={$returside} accesskey=L>Luk</a></td>\n"; print "<td width=80% {$top_bund}>{$title}</td>\n"; print "<td width=10% {$top_bund}><br></td>\n";
function gendan_saet($id) { $r = db_fetch_array(db_SELECT("select box2 from grupper where art = 'DIV' and kodenr = '3'", __FILE__ . " linje " . __LINE__)); $rabatvare_id = $r['box2'] * 1; if ($r = db_fetch_array(db_select("select id from ordrelinjer where vare_id = '{$rabatvare_id}' and ordre_id = {$id}", __FILE__ . " linje " . __LINE__))) { db_modify("update ordrelinjer set rabat = '0' where ordre_id = '{$id}'", __FILE__ . " linje " . __LINE__); db_modify("delete from ordrelinjer where id='{$r['id']}'", __FILE__ . " linje " . __LINE__); $q = db_select("select id,lev_varenr from ordrelinjer where ordre_id = '{$id}' and saet > '0' order by saet,samlevare desc", __FILE__ . " linje " . __LINE__); while ($r = db_fetch_array($q)) { if ($r['lev_varenr']) { list($saetsum, $rabat) = explode("|", $r['lev_varenr']); } if ($rabat *= 1) { db_modify("update ordrelinjer set rabat = '{$rabat}' where id = '{$r['id']}'", __FILE__ . " linje " . __LINE__); } } } }
$id = if_isset($_GET['ordre_id']); } $sort = if_isset($_GET['sort']); $fokus = if_isset($_GET['fokus']); $submit = if_isset($_GET['funktion']); $vis_kost = if_isset($_GET['vis_kost']); if ($sort && $fokus && $submit == 'vareOpslag') { # sidehoved($id,"ordre.php","","","Vareopslag"); vareopslag($art, $sort, $fokus, $id, $vis_kost, $ref, 0); } elseif ($sort && $fokus && $submit == 'kontoOpslag') { sidehoved($id, "ordre.php", "", "", "Kontoopslag"); kontoopslag($art, $sort, $fokus, $id, $vis_kost, $ref, 0); } $bogfor = 1; if ($id) { $r = db_fetch_array(db_SELECT("select adresser.gruppe,ordrer.status,ordrer.sprog from ordrer,adresser where ordrer.id = '{$id}' and adresser.id=ordrer.konto_id", __FILE__ . " linje " . __LINE__)); $status = $r['status'] * 1; $gruppe = $r['gruppe']; $formularsprog = $r['sprog']; #20140428 } if (db_fetch_array(db_select("select id from grupper where art='DG' and kodenr='{$gruppe}' and box8='on'", __FILE__ . " linje " . __LINE__))) { $incl_moms = NULL; #hvis box8 er 'on' er det en b2b kunde og priser vises ex. moms } if (isset($_GET['vis_lev_addr']) && $id) { if ($_GET['vis_lev_addr']) { db_modify("update ordrer set vis_lev_addr='on' where id='{$id}'"); } else { db_modify("update ordrer set vis_lev_addr='' where id='{$id}'"); }
$id = if_isset($_GET['id']); $saet = if_isset($_GET['saet']); $forfra = if_isset($_GET['forfra']); $r = db_fetch_array(db_select("select art,momssats from ordrer where id='{$id}'", __FILE__ . " linje " . __LINE__)); $art = $r['art']; $momssats = $r['momssats']; $r = db_fetch_array(db_SELECT("select box1 from grupper where art = 'DIV' and kodenr = '3'", __FILE__ . " linje " . __LINE__)); $incl_moms = $r['box1']; if ($r = db_fetch_array($q = db_SELECT("select box8 from grupper where art = 'DIV' and kodenr = '5' and box8!=''", __FILE__ . " linje " . __LINE__))) { $svid = $r['box8'] * 1; $r = db_fetch_array(db_SELECT("select varenr from varer where id = '{$svid}'", __FILE__ . " linje " . __LINE__)); $svnr = $r['varenr']; } else { $svnr = 'S'; } $r = db_fetch_array(db_SELECT("select id from varer where varenr = '{$svnr}'", __FILE__ . " linje " . __LINE__)); if (!$r['id']) { print "<BODY onLoad=\"JavaScript:alert('Varenummer {$svnr} for sæt ikke gyldigt')\">"; } if ($id && $forfra && $saet) { db_modify("delete from ordrelinjer where ordre_id='{$id}' and saet='{$saet}' and varenr='{$svnr}'", __FILE__ . " linje " . __LINE__); db_modify("update ordrelinjer set saet='0',rabat='0' where ordre_id='{$id}' and saet='{$saet}'", __FILE__ . " linje " . __LINE__); } elseif ($slet = $_POST['slet']) { db_modify("delete from ordrelinjer where ordre_id='{$id}' and saet='{$saet}'", __FILE__ . " linje " . __LINE__); db_modify("update ordrelinjer set saet=saet-1 where ordre_id='{$id}' and saet > {$saet}", __FILE__ . " linje " . __LINE__); } print "<table width=\"100%\" height=\"100%\" border=\"0\" cellspacing=\"1\" cellpadding=\"1\"><tbody>"; if ($saet = $_POST['saetvalg']) { if ($saet == 'nyt_saet') { $r = db_fetch_array(db_select("select max(saet) as saet from ordrelinjer where ordre_id='{$id}'", __FILE__ . " linje " . __LINE__)); $saet = $r['saet'] + 1;
function ordreside($id) { global $art; global $bogfor; global $fokus; global $submit; global $brugernavn; global $returside; $r = db_fetch_array(db_SELECT("select box4 from grupper where art = 'DIV' and kodenr = '3'", __FILE__ . " linje " . __LINE__)); $hurtigfakt = $r['box4']; if (!$id) { $fokus = 'kontonr'; } print "<form name=ordre action=ordre.php method=post>"; if ($id) { $query = db_select("select * from ordrer where id = '{$id}'", __FILE__ . " linje " . __LINE__); $row = db_fetch_array($query); $kontonr = stripslashes($row['kontonr']); $konto_id = $row[konto_id]; $firmanavn = stripslashes($row['firmanavn']); $addr1 = stripslashes($row['addr1']); $addr2 = stripslashes($row['addr2']); $postnr = stripslashes($row['postnr']); $bynavn = stripslashes($row['bynavn']); $land = stripslashes($row['land']); $kontakt = stripslashes($row['kontakt']); $kundeordnr = stripslashes($row['kundeordnr']); $lev_navn = stripslashes($row['lev_navn']); $lev_addr1 = stripslashes($row['lev_addr1']); $lev_addr2 = stripslashes($row['lev_addr2']); $lev_postnr = stripslashes($row['lev_postnr']); $lev_bynavn = stripslashes($row['lev_bynavn']); $lev_kontakt = stripslashes($row['lev_kontakt']); $cvrnr = stripslashes($row['cvrnr']); $ean = stripslashes($row['ean']); $institution = stripslashes($row['institution']); $betalingsbet = $row['betalingsbet']; $betalingsdage = $row['betalingsdage']; $valuta = $row['valuta']; $projekt[0] = $row['projekt']; $valutakurs = $row['valutakurs']; $modtagelse = $row['modtagelse']; $ref = trim(stripslashes($row['ref'])); $fakturanr = stripslashes($row['fakturanr']); $lev_adr = stripslashes($row['lev_adr']); $ordrenr = $row['ordrenr']; $kred_ord_id = $row['kred_ord_id']; if ($row['ordredate']) { $ordredato = dkdato($row['ordredate']); } else { $ordredato = date("d-m-y"); } if ($row['levdate']) { $levdato = dkdato($row['levdate']); } $momssats = $row['momssats']; $status = $row['status']; if (!$status) { $status = 0; } $art = $row['art']; $omlev = $row['omvbet']; if (!$valuta) { $valuta = 'DKK'; $valutakurs = 100; } $x = 0; $query = db_select("select id, ordrenr from ordrer where kred_ord_id = '{$id}' and art ='KK'", __FILE__ . " linje " . __LINE__); while ($row2 = db_fetch_array($query)) { $x++; if ($x > 1) { $krediteret = $krediteret . ", "; } $krediteret = $krediteret . "<a href=ordre.php?id={$row2['id']}>{$row2['ordrenr']}</a>"; } if ($status < 3) { $fokus = 'vare0'; } else { $fokus = ''; } } if (strstr($submit, 'Kred') || $art == 'KK') { $query = db_select("select ordrenr from ordrer where id = '{$kred_ord_id}'", __FILE__ . " linje " . __LINE__); $row2 = db_fetch_array($query); sidehoved($id, "{$returside}", "", "", "Leverandør kreditnota {$ordrenr} (kreditering af ordre nr: <a href=ordre.php?id={$kred_ord_id}>{$row2['ordrenr']}</a>)"); } elseif ($krediteret) { sidehoved($id, "{$returside}", "", "", "Leverandørordre {$ordrenr} (krediteret på KN nr: {$krediteret})"); } else { sidehoved($id, "{$returside}", "", "", "Leverandørordre {$ordrenr}"); } if (!$status) { $status = 0; } print "<input type=hidden name=ordrenr value={$ordrenr}>"; print "<input type=hidden name=status value={$status}>"; print "<input type=hidden name=id value={$id}>"; print "<input type=hidden name=art value={$art}>"; # print "<input type=hidden name=momssats value=$momssats>"; print "<input type=hidden name=konto_id value={$konto_id}>"; print "<input type=hidden name=kred_ord_id value={$kred_ord_id}>"; if ($status >= 3) { # print "<input type=hidden name=id value=$id>"; print "<input type=hidden name=konto_id value={$konto_id}>"; print "<input type=hidden name=kontonr value=\"{$kontonr}\">"; print "<input type=hidden name=firmanavn value=\"{$firmanavn}\">"; print "<input type=hidden name=addr1 value=\"{$addr1}\">"; print "<input type=hidden name=addr2 value=\"{$addr2}\">"; print "<input type=hidden name=postnr value=\"{$postnr}\">"; print "<input type=hidden name=bynavn value=\"{$bynavn}\">"; print "<input type=hidden name=land value=\"{$land}\">"; print "<input type=hidden name=kontakt value=\"{$kontakt}\">"; print "<input type=hidden name=lev_navn value=\"{$lev_navn}\">"; print "<input type=hidden name=lev_addr1 value=\"{$lev_addr1}\">"; print "<input type=hidden name=lev_addr2 value=\"{$lev_addr2}\">"; print "<input type=hidden name=lev_postnr value=\"{$lev_postnr}\">"; print "<input type=hidden name=lev_bynavn value=\"{$lev_bynavn}\">"; print "<input type=hidden name=lev_kontakt value=\"{$lev_kontakt}\">"; print "<input type=hidden name=levdato value=\"{$levdato}\">"; print "<input type=hidden name=cvrnr value=\"{$cvrnr}\">"; print "<input type=hidden name=betalingsbet value=\"{$betalingsbet}\">"; print "<input type=hidden name=betalingsdage value=\"{$betalingsdage}\">"; print "<input type=hidden name=momssats value=\"{$momssats}\">"; print "<input type=hidden name=ref value=\"{$ref}\">"; print "<input type=hidden name=fakturanr value=\"{$fakturanr}\">"; print "<input type=hidden name=modtagelse value=\"{$modtagelse}\">"; print "<input type=hidden name=lev_adr value=\"{$lev_adr}\">"; print "<input type=hidden name=valuta value=\"{$valuta}\">"; print "<table cellpadding=\"1\" cellspacing=\"5\" border=\"1\" valign = \"top\"><tbody>"; $ordre_id = $id; print "<tr><td width=33%><table cellpadding=0 cellspacing=0 border=0 width=100%>"; print "<tr><td width=100><b>Kontonr</td><td width=100>{$kontonr}</td></tr>\n"; print "<tr><td><b>Firmanavn</td><td>{$firmanavn}</td></tr>\n"; print "<tr><td><b>Adresse</td><td>{$addr1}</td></tr>\n"; print "<tr><td></td><td>{$addr2}</td></tr>\n"; print "<tr><td><b>Postnr, by</td><td>{$postnr} {$bynavn}</td></tr>\n"; print "<tr><td><b>Land</td><td>{$land}</td></tr>\n"; print "<tr><td><b>Att.:</td><td>{$kontakt}</td></tr>\n"; print "</tbody></table></td>"; print "<td width=33%><table cellpadding=0 cellspacing=0 border=0 width=100%>"; print "<tr><td width=100><b>Ordredato</td><td width=100>{$ordredato}</td></tr>\n"; print "<tr><td><b>Lev. dato</td><td>{$levdato}</td></tr>\n"; print "<tr><td><b>CVR-nr.</td><td>{$cvrnr}</td></tr>\n"; print "<tr><td><b>Betaling</td><td>{$betalingsbet} + {$betalingsdage}</td>"; print "<tr><td><b>Vor ref.</td><td>{$ref}</td></tr>\n"; print "<tr><td><b>Fakturanr</td><td>{$fakturanr}</td></tr>\n"; print "<tr><td><b>Modtagelse</td><td>{$modtagelse}</td></tr>\n"; $tmp = dkdecimal($valutakurs); if ($valuta) { print "<tr><td><b>Valuta / Kurs</td><td>{$valuta} / {$tmp}</td></tr>\n"; } if ($projekt[0]) { print "<tr><td><b>Projekt</td><td>{$projekt['0']}</td></tr>\n"; } print "</tbody></table></td>"; print "<td width=33%><table cellpadding=0 cellspacing=0 border = 0 width=240>"; print "<tr><td><b>Leveringsadresse.</td></tr>\n"; print "<tr><td>Firmanavn</td><td colspan=2>{$lev_navn}</td></tr>\n"; print "<tr><td>Adresse</td><td colspan=2>{$lev_addr1}</td></tr>\n"; print "<tr><td></td><td colspan=2>{$lev_addr2}</td></tr>\n"; print "<tr><td>Postnr, By</td><td>{$lev_postnr} {$lev_bynavn}</td></tr>\n"; print "<tr><td>Att.:</td><td colspan=2>{$lev_kontakt}</td></tr>\n"; # print "<tr><td>$lev_adr</td></tr>\n"; print "</td></tr></tbody></table></td>"; print "</td></tr><tr><td align=center colspan=3><table cellpadding=1 cellspacing=0 border=1 width=100%><tbody>"; print "<tr><td colspan=7></td></tr><tr>"; # print "<td align=center><b>pos</td><td align=center><b>varenr</td><td align=center><b>ant.</td><td align=center><b>enhed</td><td align=center><b>beskrivelse</td><td align=center><b>pris</td><td align=center><b>%</td><td align=center><b>ialt</td><td align=center><b>solgt</td>"; print "<td align=center title='Position (ordrelinjenummer)'><b>Pos.</td><td align=center><b>Varenr.</td><td align=center><b>Antal</td><td align=center><b>Enhed</td><td align=center><b>Beskrivelse</td><td align=center><b>Pris</td><td align=center title='Rabat i procent'><b>%</td><td align=center><b>I alt</td>"; if (db_fetch_array(db_select("select * from grupper where art = 'PRJ' order by kodenr", __FILE__ . " linje " . __LINE__))) { $vis_projekt = '1'; } if ($vis_projekt && !$projekt[0]) { print "<td align=center title='Nummer herunder viser projektnummer, hvis ordrelinjen er tilknyttet et projekt'><b>proj.</b></td>"; } else { print "<td></td>"; } if (!$hurtigfakt) { print "<td align=\"center\"><b>solgt</b></td>"; } print "</tr>\n"; $x = 0; if (!$ordre_id) { $ordre_id = 0; } $query = db_select("select * from ordrelinjer where ordre_id = '{$ordre_id}' order by posnr", __FILE__ . " linje " . __LINE__); while ($row = db_fetch_array($query)) { if ($row['posnr'] > 0) { $x++; $linje_id[$x] = $row['id']; $vare_id[$x] = $row['vare_id']; $posnr[$x] = $row['posnr']; $varenr[$x] = stripslashes($row['varenr']); $lev_varenr[$x] = stripslashes($row['lev_varenr']); $beskrivelse[$x] = stripslashes($row['beskrivelse']); $enhed[$x] = stripslashes($row['enhed']); $pris[$x] = $row['pris']; $rabat[$x] = $row['rabat']; $antal[$x] = $row['antal']; $serienr[$x] = stripslashes($row['serienr']); $momsfri[$x] = $row['momsfri']; $varemomssats[$x] = $row['momssats']; #20141106 $projekt[$x] = $row['projekt']; $variant[$x] = $row['variant_id']; $omvbet[$x] = $row['omvbet']; if ($vare_id[$x]) { $r = db_fetch_array(db_select("select gruppe from varer where id = {$vare_id[$x]}", __FILE__ . " linje " . __LINE__)); $r = db_fetch_array(db_select("select box6,box9 from grupper where kodenr='{$r['gruppe']}' and art='VG'", __FILE__ . " linje " . __LINE__)); $box9[$x] = trim($r['box9']); trim($r['box6']) ? $omvare[$x] = 'on' : ($omvare[$x] = ''); } } } $linjeantal = $x; print "<input type=hidden name=linjeantal value={$x}>"; $totalrest = 0; $sum = 0; for ($x = 1; $x <= $linjeantal; $x++) { if (!$vare_id[$x] && $varenr[$x]) { $query = db_select("select id from varer where varenr = '{$varenr[$x]}' or stregkode = '{$varenr[$x]}'", __FILE__ . " linje " . __LINE__); if ($row = db_fetch_array($query)) { $vare_id[$x] = $row['id']; } } if ($varenr[$x] && $vare_id[$x]) { $rest[$x] = 0; $query = db_select("select id, rest from batch_kob where linje_id = '{$linje_id[$x]}' and ordre_id = '{$ordre_id}' and vare_id = '{$vare_id[$x]}'", __FILE__ . " linje " . __LINE__); while ($row = db_fetch_array($query)) { $rest[$x] = $rest[$x] + $row['rest']; } $solgt[$x] = $antal[$x] - $rest[$x]; $totalrest = $totalrest + $rest[$x]; $ialt = ($pris[$x] - $pris[$x] / 100 * $rabat[$x]) * $antal[$x]; $ialt = afrund($ialt, 2); $sum = $sum + $ialt; if ($momsfri[$x] != 'on' && !$omvbet[$x]) { $momssum += $ialt; } # $ialt=dkdecimal($ialt); $dkpris = dkdecimal($pris[$x]); $dkrabat = dkdecimal($rabat[$x]); if ($antal[$x]) { if ($art == 'KK') { $dkantal[$x] = dkdecimal($antal[$x] * -1); } else { $dkantal[$x] = dkdecimal($antal[$x]); } if (substr($dkantal[$x], -1) == '0') { $dkantal[$x] = substr($dkantal[$x], 0, -1); } if (substr($dkantal[$x], -1) == '0') { $dkantal[$x] = substr($dkantal[$x], 0, -2); } } } else { $antal[$x] = ''; $dkpris = ''; $dkrabat = ''; $ialt = ''; } print "<tr>"; print "<input type=hidden name=posn{$x} value={$posnr[$x]}><td align=right>{$posnr[$x]}</td>"; print "<input type=hidden name=vare{$x} value=\"{$varenr[$x]}\"><td align=right>{$varenr[$x]}</td>"; print "<input type=hidden name=anta{$x} value={$dkantal[$x]}><td align=right>{$dkantal[$x]}</td>"; print "<td align=right>{$enhed[$x]}</td>"; print "<input type=hidden name=beskrivelse{$x} value=\"{$beskrivelse[$x]}\"><td>{$beskrivelse[$x]}</td>"; print "<input type=hidden name=pris{$x} value={$dkpris}><td align=right>{$dkpris}</td>"; print "<input type=hidden name=raba{$x} value={$dkrabat}><td align=right>{$dkrabat}</td>"; print "<input type=hidden name=linje_id[{$x}] value={$linje_id[$x]}>"; print "<input type=hidden name=serienr[{$x}] value={$serienr[$x]}>"; print "<input type=hidden name=vare_id[{$x}] value={$vare_id[$x]}>"; print "<input type=hidden name=lev_varenr[{$x}] value=\"{$lev_varenr[$x]}\">"; print "<input type=hidden name=momsfri[{$x}] value=\"{$momsfri[$x]}\">"; print "<input type=hidden name=omvbet[{$x}] value=\"{$omvbet[$x]}\">"; #20150415 print "<input type=hidden name=varemomssats[{$x}] value=\"{$varemomssats[$x]}\">"; #20141106 if ($ialt && $art == 'KK') { $ialt = $ialt * -1; } print "<td align=right>" . dkdecimal($ialt) . "</td>"; print "<input type=hidden name=projekt[{$x}] value=\"{$projekt[$x]}\">"; if ($vis_projekt && !$projekt[0]) { $r = db_fetch_array(db_select("select beskrivelse from grupper where art = 'PROJ' and kodenr='{$projekt[$x]}'", __FILE__ . " linje " . __LINE__)); print "<td align=right title='{$r['projekt']}'>{$projekt[$x]}</td>"; } if ($box9[$x] == 'on') { if ($art == 'KK') { $solgt[$x] = $solgt[$x] * -1; } if ($serienr[$x]) { print "<td onClick=\"serienummer({$linje_id[$x]})\" align=right><u>{$solgt[$x]}</u></td>"; } else { print "<td align=right>{$solgt[$x]}</td>"; } } elseif ($serienr[$x]) { print "<td onClick=\"serienummer({$linje_id[$x]})\" align=right><u>Snr</u></td>"; } else { print "<td align=right><br></td>"; } print "</tr>\n"; } if ($art == 'KK') { $sum = $sum * -1; $momssum = $momssum * -1; } $moms = $momssum / 100 * $momssats; $moms = afrund($moms, 3); $ialt = dkdecimal($sum + $moms); $sum = dkdecimal($sum); $moms = dkdecimal($moms); print "<tr><td colspan=8></td></tr>\n"; print "<tr><td colspan=8><table border=\"1\" cellspacing=\"0\" cellpadding=\"0\" width=100%><tbody>"; print "<tr>"; print "<td align=center>Ordresum</td><td align=center>{$sum}</td>"; print "<td align=center>Moms</td><td align=center>{$moms}</td>"; print "<td align=center>I alt</td><td align=right>{$ialt}</td>"; print "</tbody></table></td></tr>\n"; print "<tr><td align=center colspan=9>"; print "<table width=100% border=\"0\" cellspacing=\"0\" cellpadding=\"0\"><tbody><tr>"; if ($art != 'KK') { print "<td align=center><span title=\"Kopiér til ny ordre med samme indhold\"><input type=\"submit\" value=\"Kopiér\" name=\"submit\" onclick=\"javascript:docChange = false;\"></span></td>"; print "<td align=center><span title=\"Opretter en kreditnota med samme indhold. Kan redigeres inden endelig kreditering\"><input type=\"submit\" value=\"Kreditér\" name=\"submit\" onclick=\"javascript:docChange = false;\"></span></td>"; print "<td align=center><span title=\"Udskriver ordre til PDF\"><input type=\"submit\" value=\"Udskriv\" name=\"udskriv\" onclick=\"javascript:docChange = false;\"></span></td>"; } } else { // Aabne ordrer herunder ************************************************** print "<table cellpadding=\"1\" cellspacing=\"5\" border=\"1\" valign = \"top\" width = 100><tbody>"; $ordre_id = $row['id']; print "<tr><td width=33%><table cellpadding=0 cellspacing=0 border=0 width=100>"; print "<tr><td witdh=200>Kontonr.</td><td colspan=2>"; if (trim($kontonr)) { print "<input class=\"inputbox\" readonly=readonly size=25 name=kontonr onfocus=\"document.forms[0].fokus.value=this.name;\" value=\"{$kontonr}\"></td></tr>\n"; } else { print "<input class=\"inputbox\" type=text size=25 name=kontonr onfocus=\"document.forms[0].fokus.value=this.name;\" value=\"{$kontonr}\" onchange=\"javascript:docChange = true;\"></td></tr>\n"; } print "<tr><td>Firmanavn</td><td colspan=2><input class=\"inputbox\" type=text size=25 name=firmanavn onfocus=\"document.forms[0].fokus.value=this.name;\" value=\"{$firmanavn}\" onchange=\"javascript:docChange = true;\"></td></tr>\n"; print "<tr><td>Adresse</td><td colspan=2><input class=\"inputbox\" type=text size=25 name=addr1 onfocus=\"document.forms[0].fokus.value=this.name;\" value=\"{$addr1}\" onchange=\"javascript:docChange = true;\"></td></tr>\n"; print "<tr><td></td><td colspan=2><input class=\"inputbox\" type=text size=25 name=addr2 onfocus=\"document.forms[0].fokus.value=this.name;\" value=\"{$addr2}\" onchange=\"javascript:docChange = true;\"></td></tr>\n"; print "<tr><td>Postnr, by</td><td><input class=\"inputbox\" type=text size=4 name=postnr onfocus=\"document.forms[0].fokus.value=this.name;\" value=\"{$postnr}\" onchange=\"javascript:docChange = true;\"></td><td><input class=\"inputbox\" type=text size=19 name=bynavn onfocus=\"document.forms[0].fokus.value=this.name;\" value=\"{$bynavn}\" onchange=\"javascript:docChange = true;\"></td></tr>\n"; print "<tr><td>Land</td><td colspan=2><input class=\"inputbox\" type=text size=25 name=land value=\"{$land}\" onchange=\"javascript:docChange = true;\"></td></tr>\n"; print "<tr><td>Att.:</td><td colspan=2><input class=\"inputbox\" type=text size=25 name=kontakt onfocus=\"document.forms[0].fokus.value=this.name;\" value=\"{$kontakt}\" onchange=\"javascript:docChange = true;\"></td></tr>\n"; print "</tbody></table></td>"; print "<td width=33%><table cellpadding=0 cellspacing=0 border=0 width=100>"; if (!$id) { print "<tr><td colspan=\"4\" width=\"100%\" align=\"center\" valign=\"top\"><span title=\"Klik her for at importere en elektronisk faktura af typen oioubl\"><a href=ublimport.php>Importer OIOUBL faktura</a></span></td></tr>"; print "<tr><td colspan=\"4\" width=\"100%\"><hr width=\"90%\"></td></tr>"; } print "<tr><td>CVR-nr.</td><td><input class=\"inputbox\" type=text size=15 name=cvrnr value=\"{$cvrnr}\" onchange=\"javascript:docChange = true;\"></td>"; $dkmomssats = dkdecimal($momssats); print "<td>Momssats </td><td><input class=\"inputbox\" type=text style=text-align:right size=5 name=momssats value=\"{$dkmomssats}\" onchange=\"javascript:docChange = true;\">%</td></td></tr>\n"; print "<tr><td>Ordredato</td><td><input class=\"inputbox\" type=text style=text-align:right size=10 name=ordredato value=\"{$ordredato}\" onchange=\"javascript:docChange = true;\"></td>"; print "<td>Lev. dato</td><td><input class=\"inputbox\" type=text style=text-align:right size=10 name=levdato value=\"{$levdato}\" onchange=\"javascript:docChange = true;\"></td></tr>\n"; $list = array(); $beskriv = array(); $list[0] = 'DKK'; $x = 0; $q = db_select("select * from grupper where art = 'VK' order by box1 ", __FILE__ . " linje " . __LINE__); while ($r = db_fetch_array($q)) { $x++; $list[$x] = $r['box1']; $beskriv[$x] = $r['beskrivelse']; } $tmp = $x; if ($x > 0) { $list[0] = 'DKK'; $beskriv[0] = 'Danske kroner'; print "<tr><td>Valuta</td>"; print "<td><select class=\"inputbox\" name=valuta>"; for ($x = 0; $x <= $tmp; $x++) { if ($valuta != $list[$x]) { print "<option title=\"{$beskriv[$x]}\" onchange=\"javascript:docChange = true;\">{$list[$x]}</option>"; } else { print "<option title=\"{$beskriv[$x]}\" selected=\"selected\" onchange=\"javascript:docChange = true;\">{$list[$x]}</option>"; } } print "</SELECT></td>"; } else { print "<tr><td witdh=200></tr>"; } $list = array(); $beskriv = array(); $x = 0; $q = db_select("select * from grupper where art = 'PRJ' order by kodenr", __FILE__ . " linje " . __LINE__); while ($r = db_fetch_array($q)) { $x++; $list[$x] = $r['kodenr']; $beskriv[$x] = $r['beskrivelse']; } $prj_antal = $x; if ($x > 0) { $vis_projekt = '1'; print "<td><span title= 'kostpris';>Projekt</span></td>"; print "<td><select class=\"inputbox\" name=projekt[0]>"; for ($x = 0; $x <= $prj_antal; $x++) { if ($projekt[0] != $list[$x]) { print "<option title=\"{$beskriv[$x]}\" onchange=\"javascript:docChange = true;\">{$list[$x]}</option>"; } else { print "<option title=\"{$beskriv[$x]}\" selected=\"selected\" onchange=\"javascript:docChange = true;\">{$list[$x]}</option>"; } } print "</SELECT></td></tr>"; } else { print "<tr><td colspan=2 witdh=200></tr>"; } print "<tr><td>Betaling</td>"; print "<td colspan=2><select class=\"inputbox\" name=betalingsbet>"; print "<option>{$betalingsbet}</option>"; if ($betalingsbet != 'Forud') { print "<option>Forud</option>"; } if ($betalingsbet != 'Kontant') { print "<option>Kontant</option>"; } if ($betalingsbet != 'Efterkrav') { print "<option>Efterkrav</option>"; } if ($betalingsbet != 'Netto') { print "<option>Netto</option>"; } if ($betalingsbet != 'Lb. md.') { print "<option>Lb. md.</option>"; } if ($betalingsbet == 'Kontant' || $betalingsbet == 'Efterkrav' || $betalingsbet == 'Forud') { $betalingsdage = ''; } elseif (!$betalingsdage) { $betalingsdage = 'Nul'; } if ($betalingsdage) { if ($betalingsdage == 'Nul') { $betalingsdage = 0; } print "</SELECT> +<input class=\"inputbox\" type=text size=2 style=text-align:right\tname=betalingsdage value=\"{$betalingsdage}\" onchange=\"javascript:docChange = true;\"></td>"; } print "</tr>"; if (!$ref) { $row = db_fetch_array(db_select("select ansat_id from brugere where brugernavn = '{$brugernavn}'", __FILE__ . " linje " . __LINE__)); if ($row[ansat_id]) { $row = db_fetch_array(db_select("select navn from ansatte where id = {$row['ansat_id']}", __FILE__ . " linje " . __LINE__)); if ($row[navn]) { $ref = $row['navn']; } } } $q = db_select("select id from adresser where art = 'S'", __FILE__ . " linje " . __LINE__); if ($r = db_fetch_array($q)) { $q2 = db_select("select navn from ansatte where konto_id = '{$r['id']}' and lukket != 'on' order by navn", __FILE__ . " linje " . __LINE__); $x = 0; while ($r2 = db_fetch_array($q2)) { $x++; if ($x == 1) { print "<tr><td>Vor ref.</td>"; print "<td colspan=3><select class=\"inputbox\" name=ref>"; if ($ref) { print "<option>{$ref}</option>"; } } if ($ref != $r2[navn]) { print "<option> {$r2['navn']}</option>"; } } print "</SELECT>"; if ($x) { print "</td></tr>"; } } if ($status == 0) { print "<tr><td>Godkend</td><td><input class=\"inputbox\" type=checkbox name=godkend></td></tr>\n"; } else { print "<tr><td witdh=200>Fakturanr</td><td colspan=2><input class=\"inputbox\" type=text size=23 name=fakturanr value=\"{$fakturanr}\" onchange=\"javascript:docChange = true;\"></td></tr>\n"; } print "</tbody></table></td>"; print "<td align=center width=33%><table cellpadding=0 cellspacing=0 width='*'>"; print "<tr><tdcolspan=2 >Leveringsadresse</td></tr>\n"; print "<tr><td colspan=2 align=center><hr></td></tr>\n"; print "<tr><td>Firmanavn</td><td colspan=2><input class=\"inputbox\" type=text size=25 name=lev_navn value=\"{$lev_navn}\" onchange=\"javascript:docChange = true;\"></td></tr>\n"; print "<tr><td>Adresse</td><td colspan=2><input class=\"inputbox\" type=text size=25 name=lev_addr1 value=\"{$lev_addr1}\" onchange=\"javascript:docChange = true;\"></td></tr>\n"; print "<tr><td></td><td colspan=2><input class=\"inputbox\" type=text size=25 name=lev_addr2 value=\"{$lev_addr2}\" onchange=\"javascript:docChange = true;\"></td></tr>\n"; print "<tr><td>Postnr, By</td><td><input class=\"inputbox\" type=text size=4 name=lev_postnr value=\"{$lev_postnr}\" onchange=\"javascript:docChange = true;\"><input class=\"inputbox\" type=text size=19 name=lev_bynavn value=\"{$lev_bynavn}\" onchange=\"javascript:docChange = true;\"></td></tr>\n"; print "<tr><td>Att.:</td><td colspan=2><input class=\"inputbox\" type=text size=25 name=lev_kontakt value=\"{$lev_kontakt}\" onchange=\"javascript:docChange = true;\"></td></tr>\n"; # print "<tr><td><textarea style=\"font-family: helvetica,arial,sans-serif;\" name=lev_adr rows=5 cols=35>$lev_adr</textarea></td></tr>\n"; print "</td></tr></tbody></table></td>"; print "</td></tr><tr><td align=center colspan=3><table cellpadding=1 cellspacing=0 width=100><tbody>"; print "<tr>"; if ($status == 1) { print "<td align=center title='Position (ordrelinjenummer)'>Pos.</td><td align=center title='Varenummer'>Varenr.</td><td align=center title='Leverandørens varenummer'>Lev.vnr.</td><td align=center>Antal</td><td align=center>Enhed</td><td align=center>Beskrivelse</td><td align=center>Pris</td><td align=center title='Rabat i %'>%</td><td align=center>I alt</td>"; if ($vis_projekt && !$projekt[0]) { print "<td align=center title='Nummer herunder viser projektnummer hvis ordrelinjen er tilknyttet et projekt'>Proj.</td>"; } if ($art == 'KK') { print "<td colspan='2' align='center' title='Indtastningsfeltet herunder er det antal, som returneres ved klik på Return&aecute;r. Antallet i parantes er det, der allerede er returneret'>Returnér</td>"; } else { print "<td colspan='2' align='center' title='Indtastningsfeltet herunder er det antal, som modtages ved klik på Modtag. Antallet i parantes er det, der allerede er modtaget.'>Modtag</td>"; } } else { print "<td align=center title='Position (ordrelinjenummer)'>Pos.</td><td align=center title='Varenummer'>Varenr.</td><td align=center title='Leverandørens varenummer'>Lev.vnr.</td><td align=center>Antal</td><td>Enhed</td><td align=center>Beskrivelse</td><td align=center>Pris</td><td align=center title='Rabat i %'>%</td><td align=center>I alt</td>"; if ($vis_projekt && !$projekt[0]) { print "<td align=center title='Nummer herunder viser projektnummer, hvis ordrelinjen er tilknyttet et projekt'>Proj.</td>"; } else { print "<td></td>"; } } #cho "OL $omlev<br>"; if ($omlev) { print "<td title =\"Hvis feltet vises er leverandøren underlagt reglerne for omvendt betalingspligt. Er varen ligeledes omfattet vil feltet herunder være afmærket pr default og momsen vil være undertrykt for den pågældende vare.\">O/B</td>"; } print "</tr>\n"; /* if ($valuta && $valuta!='DKK') { if ($r= db_fetch_array(db_select("select valuta.kurs from valuta, grupper where grupper.art='VK' and grupper.box1='$valuta' and valuta.gruppe=grupper.kodenr and valuta.valdate <= '$ordredate' order by valuta.valdate desc",__FILE__ . " linje " . __LINE__))) { $valutakurs=$r['kurs']; } else { $tmp = dkdato($ordredate); print "<BODY onLoad=\"javascript:alert('Der er ikke nogen valutakurs for $valuta den $ordredate')\" onchange=\"javascript:docChange = true;\">"; } } else $valutakurs = 100; db_modify("update ordrer set valutakurs='$valutakurs' where ordre_id = '$ordre_id'",__FILE__ . " linje " . __LINE__); */ $ordre_id *= 1; $x = 0; $query = db_select("select * from ordrelinjer where ordre_id = {$ordre_id} order by posnr", __FILE__ . " linje " . __LINE__); while ($row = db_fetch_array($query)) { if ($row['posnr'] > 0) { $x++; $linje_id[$x] = $row['id']; $kred_linje_id[$x] = $row['kred_linje_id']; $posnr[$x] = $row['posnr']; $varenr[$x] = stripslashes(trim($row['varenr'])); $lev_varenr[$x] = stripslashes(trim($row['lev_varenr'])); $beskrivelse[$x] = stripslashes(trim($row['beskrivelse'])); $pris[$x] = $row['pris']; $rabat[$x] = $row['rabat']; $antal[$x] = $row['antal']; $leveres[$x] = $row['leveres']; $enhed[$x] = $row['enhed']; $vare_id[$x] = $row['vare_id']; $momsfri[$x] = $row['momsfri']; $projekt[$x] = $row['projekt']; $serienr[$x] = stripslashes($row['serienr']); $samlevare[$x] = $row['samlevare']; $row['omvbet'] ? $omvbet[$x] = 'checked' : ($omvbet[$x] = ''); #cho "$row[omvbet] OB $omvbet[$x]<br>"; } } $linjeantal = $x; print "<input type=hidden name=linjeantal value={$linjeantal}>"; $sum = 0; # if ($status==1){$status=2;} for ($x = 1; $x <= $linjeantal; $x++) { if ($varenr[$x]) { $ialt = ($pris[$x] - $pris[$x] / 100 * $rabat[$x]) * $antal[$x]; $ialt = afrund($ialt, 2); $sum = $sum + $ialt; if ($momsfri[$x] != 'on' && !$omvbet[$x]) { $momssum = $momssum + $ialt; } # $ialt=dkdecimal($ialt); $dkpris = dkdecimal($pris[$x]); $dkrabat = dkdecimal($rabat[$x]); if ($antal[$x]) { if ($art == 'KK') { $dkantal[$x] = dkdecimal($antal[$x] * -1); } else { $dkantal[$x] = dkdecimal($antal[$x]); } if (substr($dkantal[$x], -1) == '0') { $dkantal[$x] = substr($dkantal[$x], 0, -1); } if (substr($dkantal[$x], -1) == '0') { $dkantal[$x] = substr($dkantal[$x], 0, -2); } } } else { $dkantal[$x] = ''; $dkpris = ''; $dkrabat = ''; $ialt = ''; } print "<input type=\"hidden\" name=\"linje_id[{$x}]\" value=\"{$linje_id[$x]}\">"; print "<input type=\"hidden\" name=\"vare_id[{$x}]\" value=\"{$vare_id[$x]}\">"; print "<input type=\"hidden\" name=\"kred_linje_id[{$x}]\" value=\"{$kred_linje_id[$x]}\">"; print "<input type=\"hidden\" name=\"serienr[{$x}]\" value=\"{$serienr[$x]}\">"; print "<input type=\"hidden\" name=\"omvbet[{$x}]\" value=\"{$omvbet[$x]}\">"; print "<tr>"; print "<td><input class=\"inputbox\" type=\"text\" style=\"text-align:right\" size=3 name=posn{$x} value='{$x}' onchange=\"javascript:docChange = true;\"></td>"; print "<td title='Varenummer kan ikke ændres. Opret i stedet en ny linje og slet denne linje ved at skrive et minustegn i Pos.-feltet til venstre. Flyt om på linjerne ved at angive nye numre i Pos.-feltet eventuelt som decimaltal.'><input class=\"inputbox\" type=\"text\" style=\"background: none repeat scroll 0 0 #e4e4ee\" readonly=readonly size=7 name=vare{$x} onfocus=\"document.forms[0].fokus.value=this.name;\" value='{$varenr[$x]}'></td>"; print "<td><input class=\"inputbox\" type=text size=7 name=lev_varenr{$x} value='{$lev_varenr[$x]}' onchange=\"javascript:docChange = true;\"></td>"; print "<td><input class=\"inputbox\" type=\"text\" style=\"text-align:right\" size=4 name=anta{$x} value='{$dkantal[$x]}' onchange=\"javascript:docChange = true;\"></td>"; print "<td><input class=\"inputbox\" type=\"text\" style=\"background: none repeat scroll 0 0 #e4e4ee\" readonly=readonly size=3 value=\"{$enhed[$x]}\"></td>"; print "<td><input class=\"inputbox\" type=\"text\" size=58 name=beskrivelse{$x} value=\"{$beskrivelse[$x]}\" onchange=\"javascript:docChange = true;\"></td>"; print "<td><input class=\"inputbox\" type=\"text\" style=\"text-align:right\" size=10 name=pris{$x} value='{$dkpris}' onchange=\"javascript:docChange = true;\"></td>"; print "<td><input class=\"inputbox\" type=\"text\" style=\"text-align:right\" size=4 name=raba{$x} value='{$dkrabat}' onchange=\"javascript:docChange = true;\"></td>"; if ($art == 'KK') { $ialt = $ialt * -1; } if ($varenr[$x]) { $tmp = dkdecimal($ialt); } else { $tmp = NULL; } print "<td align=right><input class=\"inputbox\" type=\"text\" style=\"background: none repeat scroll 0 0 #e4e4ee;text-align:right\" readonly=\"readonly\" size=10 value=\"{$tmp}\"></td>"; if ($vis_projekt && !$projekt[0]) { print "<td><select class=\"inputbox\" NAME=projekt[{$x}]>"; for ($a = 0; $a <= $prj_antal; $a++) { if ($projekt[$x] != $list[$a]) { print "<option value=\"{$list[$a]}\" title=\"{$beskriv[$a]}\">{$list[$a]}</option>"; } else { print "<option value=\"{$list[$a]}\" title=\"{$beskriv[$a]}\" selected=\"selected\">{$list[$a]}</option>"; } } print "</option></td>"; } if ($status >= 1) { if ($vare_id[$x]) { $row = db_fetch_array(db_select("select gruppe from varer where id = '{$vare_id[$x]}'", __FILE__ . " linje " . __LINE__)); if (!$row[gruppe]) { print "<BODY onLoad=\"javascript:alert('Vare med varenummer {$varenr[$x]} er ikke tilknyttet en varegruppe (Pos nr. {$posnr[$x]})')\">"; exit; } else { $row = db_fetch_array(db_select("select box9 from grupper where kodenr = '{$row['gruppe']}' and art = 'VG'", __FILE__ . " linje " . __LINE__)); $box9[$x] = trim($row['box9']); $tidl_lev[$x] = 0; } if ($art == 'KK') { $dklev[$x] = dkdecimal($leveres[$x] * -1); $modtag_returner = "returner"; } else { $dklev[$x] = dkdecimal($leveres[$x]); $modtag_returner = "modtag"; } if (substr($dklev[$x], -1) == '0') { $dklev[$x] = substr($dklev[$x], 0, -1); } if (substr($dklev[$x], -1) == '0') { $dklev[$x] = substr($dklev[$x], 0, -2); } if ($antal[$x] >= 0 && $art != 'KK') { $query = db_select("select * from batch_kob where linje_id = '{$linje_id[$x]}' and ordre_id={$id} and vare_id = {$vare_id[$x]}", __FILE__ . " linje " . __LINE__); while ($row = db_fetch_array($query)) { $tidl_lev[$x] = $tidl_lev[$x] + $row['antal']; } if (afrund($antal[$x] - $tidl_lev[$x], 2)) { $status = 1; } $temp = 0; $query = db_select("select * from reservation where linje_id = {$linje_id[$x]} and batch_salg_id=0", __FILE__ . " linje " . __LINE__); if ($row = db_fetch_array($query)) { if ($antal[$x] - $tidl_lev[$x] != $row[antal]) { db_modify("update reservation set antal={$antal[$x]}-{$tidl_lev[$x]} where linje_id={$linje_id[$x]} and batch_salg_id=0", __FILE__ . " linje " . __LINE__); } } elseif ($antal[$x] - $tidl_lev[$x] != $row['antal']) { if ($antal[$x] >= 0 && $tidl_lev[$x] < 0) { print "<BODY onLoad=\"javascript:alert('Antal må ikke ændres til positivt tal, når der er returneret varer (Pos nr. {$posnr[$x]})')\">"; $antal[$x] = $tidl_lev[$x]; } else { db_modify("insert into reservation (linje_id, vare_id, batch_salg_id, antal) values\t({$linje_id[$x]}, {$vare_id[$x]}, 0, {$antal[$x]}-{$tidl_lev[$x]})", __FILE__ . " linje " . __LINE__); } } } if ($antal[$x] < 0) { $tidl_lev[$x] = 0; $query = db_select("select antal from batch_kob where linje_id = '{$linje_id[$x]}'", __FILE__ . " linje " . __LINE__); while ($row = db_fetch_array($query)) { if ($art == 'KK') { $tidl_lev[$x] = $tidl_lev[$x] - $row['antal']; } else { $tidl_lev[$x] = $tidl_lev[$x] + $row['antal']; } } } $dk_tidl_lev[$x] = dkdecimal($tidl_lev[$x]); if (substr($dk_tidl_lev[$x], -1) == '0') { $dk_tidl_lev[$x] = substr($dk_tidl_lev[$x], 0, -1); } if (substr($dk_tidl_lev[$x], -1) == '0') { $dk_tidl_lev[$x] = substr($dk_tidl_lev[$x], 0, -2); } if (afrund(abs($antal[$x]) - abs($tidl_lev[$x]), 3) != 0) { if (abs($antal[$x]) != abs($leveres[$x])) { # print "<td><input class=\"inputbox\" type=\"text\" style=\"text-align:right\" size=4 name=leve$x value='$dklev[$x]' onchange=\"javascript:docChange = true;\"></td>"; print "<td title=\"Mangler fortsat at " . $modtag_returner . "e resten.\"><input class=\"inputbox\" type=\"text\" style=\"background: none repeat scroll 0 0 #ffa; text-align:right\" size=\"4\" name=\"leve{$x}\" value=\"{$dklev[$x]}\" onchange=\"javascript:docChange = true;\"></td>\n"; } else { print "<td title=\"Intet " . $modtag_returner . "et endnu.\"><input class=\"inputbox\" type=\"text\" style=\"text-align:right\" size=\"4\" name=\"leve{$x}\" value=\"{$dklev[$x]}\" onchange=\"javascript:docChange = true;\"></td>\n"; } } else { print "<td title=\"Alt " . $modtag_returner . "et.\"><input class=\"inputbox\" type=\"text\" readonly=\"readonly\" style=\"background: none repeat scroll 0 0 #e4e4ee; text-align:right\" size=\"4\" name=\"leve{$x}\" value=\"{$dklev[$x]}\" onchange=\"javascript:docChange = true;\"></td>\n"; } print "<td>({$dk_tidl_lev[$x]})</td>"; } } if ($status > 0 && $serienr[$x]) { print "<td onClick=\"serienummer({$linje_id[$x]})\"><input type=button value=\"Serienr.\" name=\"vis_snr{$x}\" onchange=\"javascript:docChange = true;\"></td>"; } if ($antal[$x] < 0 && $art != 'KK' && $box9[$x] == 'on') { print "<td align=center onClick=\"batch({$linje_id[$x]})\"><span title= 'Vælg fra købsordre'><img alt=\"Købsordre\" src=../ikoner/serienr.png></td></td>"; } #print "<BODY onClick=\"JavaScript:window.open('batch.php?linje_id=$linje_id', '', 'statusbar=no,menubar=no,titlebar=no,toolbar=no,scrollbars=yes, location=1');\">"; #cho "OL2 $omlev<br>"; if ($omlev) { print "<td valign=\"top\"><input class=\"inputbox\" type=\"checkbox\" style=\"background: none repeat scroll 0 0 #e4e4ee\" name=\"omvbet[{$x}]\" onchange=\"javascript:docChange = true;\" {$omvbet[$x]}></td>\n"; } print "</tr>\n"; } print "<tr>"; print "<td><input class=\"inputbox\" type=\"text\" style=\"text-align:right\" size=3 name=posn0 value={$x}></td>"; if ($art != 'KK') { print "<td><input class=\"inputbox\" type=text size=7 name=vare0 onfocus=\"document.forms[0].fokus.value=this.name;\"></td>"; print "<td><input class=\"inputbox\" type=text size=7 name=lev_v0></td>"; print "<td><input class=\"inputbox\" type=\"text\" style=\"text-align:right\" size=4 name=anta0></td>"; print "<td><input class=\"inputbox\" type=\"text\" style=\"background: none repeat scroll 0 0 #e4e4ee\" readonly=readonly size=3></td>"; } else { print "<td><input class=\"inputbox\" type=\"text\" style=\"background: none repeat scroll 0 0 #e4e4ee\" readonly=readonly size=7></td>"; print "<td><input class=\"inputbox\" type=\"text\" style=\"background: none repeat scroll 0 0 #e4e4ee\" readonly=readonly size=7></td>"; print "<td><input class=\"inputbox\" type=\"text\" style=\"background: none repeat scroll 0 0 #e4e4ee\" readonly=readonly size=2></td>"; print "<td><input class=\"inputbox\" type=\"text\" style=\"background: none repeat scroll 0 0 #e4e4ee\" readonly=readonly size=3></td>"; } if ($konto_id) { print "<td><input class=\"inputbox\" type=text size=58 name=beskrivelse0 onfocus=\"document.forms[0].fokus.value=this.name;\"></td>"; } else { print "<td><input class=\"inputbox\" type=text size=58 name=beskrivelse0 onfocus=\"document.forms[0].fokus.value=this.name;\"></td>"; } print "<td><input class=\"inputbox\" type=\"text\" style=\"text-align:right\" size=10 name=pris0></td>"; print "<td><input class=\"inputbox\" type=\"text\" style=\"text-align:right\" size=4 name=raba0></td>"; print "<td><input class=\"inputbox\" type=\"text\" style=\"background: none repeat scroll 0 0 #e4e4ee\" readonly=readonly size=10></td>"; # if ($status==1) {print "<td><input class=\"inputbox\" type=\"text\" style=\"text-align:right\" size=2 name=modt0></td>";} print "</tr>\n"; print "<input type=hidden size=3 name=sum value={$sum}>"; $moms = $momssum / 100 * $momssats; if ($art == 'KK') { $moms = $moms - 0.0001; } else { $moms = $moms + 0.0001; } #Ellers runder den ned istedet for op? $moms = afrund($moms, 3); if ($id) { db_modify("update ordrer set sum='{$sum}', moms='{$moms}' where id='{$id}'", __FILE__ . " linje " . __LINE__); } if ($art == 'KK') { $sum = $sum * -1; $moms = $moms * -1; } $ialt = $sum + $moms; # $sum=dkdecimal($sum); # $moms=dkdecimal($moms); print "<tr><td colspan=9><table border=\"1\" cellspacing=\"0\" cellpadding=\"0\" width=100%><tbody>"; print "<tr>"; print "<td align=center>Ordresum</td><td align=center>" . dkdecimal($sum) . "</td>"; print "<td align=center>Moms</td><td align=center>" . dkdecimal($moms) . "</td>"; print "<td align=center>I alt</td><td align=right>" . dkdecimal($ialt) . "</td>"; print "</tbody></table></td></tr>\n"; print "<input type=\"hidden\" name=\"fokus\">"; print "<tr><td align=center colspan=8>"; print "<table width=100% border=\"0\" cellspacing=\"0\" cellpadding=\"1\"><tbody><tr>"; print "<td align=center><input type=submit accesskey=\"g\" value=\" Gem \" name=\"submit\" onclick=\"javascript:docChange = false;\"></td>"; print "<td align=center><input type=submit accesskey=\"o\" value=\"Opslag\" name=\"submit\" onclick=\"javascript:docChange = false;\"></td>"; if ($status == 1 && $bogfor == 1) { if ($art == 'KK') { print "<td align=center><input type=submit accesskey=\"m\" value=\"Returnér\" name=\"submit\" onclick=\"javascript:docChange = false;\"></td>"; } else { print "<td align=center><input type=submit accesskey=\"m\" value=\"Modtag\" name=\"submit\" onclick=\"javascript:docChange = false;\"></td>"; } } elseif ($status > 1 && $bogfor == 1) { print "<td align=center><input type=submit accesskey=\"b\" value=\"Bogfør\" name=\"submit\" onclick=\"javascript:docChange = false;\"></td>"; } if (!$posnr[1] && $id) { print "<td align=center><input type=submit value=\" Slet \" name=\"submit\" onclick=\"javascript:docChange = false;\"></td>"; } elseif ($id && $art == 'KO') { print "<td align=center><span title=\"Udskriver ordre til PDF\"><input type=\"submit\" value=\"Udskriv\" name=\"udskriv\" onclick=\"javascript:docChange = false;\"></span></td>"; } print "<td align=center><span title=\"Klik her for at udskrive ordrelinjer til en tabulatorsepareret fil, som kan importeres i et regneark\"><input type=submit value=\" CSV \" name=\"submit\" onClick=\"javascript:ordre2csv=window.open('ordre2csv.php?id={$ordre_id}','ordre2csv','scrollbars=1,resizable=1')\"></span></td>"; if ($konto_id) { $r = db_fetch_array(db_select("select kreditmax from adresser where id = '{$konto_id}'", __FILE__ . " linje " . __LINE__)); } if ($kreditmax = $r['kreditmax'] * 1) { if ($valutakurs) { $kreditmax = $kreditmax * 100 / $valutakurs; } $q = db_select("select * from openpost where konto_id = '{$konto_id}' and udlignet='0'", __FILE__ . " linje " . __LINE__); $tilgode = 0; while ($r = db_fetch_array($q)) { if (!$r['valuta']) { $r['valuta'] = 'DKK'; } if (!$r['valutakurs']) { $r['valutakurs'] = 100; } if ($valuta == 'DKK' && $r['valuta'] != 'DKK') { $opp_amount = $r['amount'] * $r['valutakurs'] / 100; } elseif ($valuta != 'DKK' && $r['valuta'] == 'DKK') { if ($r3 = db_fetch_array(db_select("select kurs from grupper, valuta where grupper.art='VK' and grupper.box1='{$valuta}' and valuta.gruppe = " . nr_cast("grupper.kodenr") . " and valuta.valdate <= '{$r['transdate']}' order by valuta.valdate desc", __FILE__ . " linje " . __LINE__))) { $opp_amount = $r['amount'] * 100 / $r3['kurs']; } else { print "<BODY onLoad=\"javascript:alert('Ingen valutakurs for faktura {$r['faktnr']}')\">"; } } elseif ($valuta != 'DKK' && $r['valuta'] != 'DKK' && $r['valuta'] != $valuta) { $tmp == $r['amount'] * $r['valuta'] / 100; $opp_amount = $tmp * 100 / $r['valutakurs']; } else { $opp_amount = $r['amount']; } $tilgode = $tilgode + $opp_amount; } if ($kreditmax < $ialt + $tilgode) { $tmp = dkdecimal($ialt + $tilgode - $kreditmax, 2); print "<BODY onLoad=\"javascript:alert('Kreditmax overskrides med {$valuta} {$tmp}')\">"; } } # end if ($kreditmax.... } print "</tbody></table></td></tr>\n"; print "</form>"; print "</tbody></table></td></tr></tbody></table></td></tr>\n"; print "<tr><td></td></tr>\n"; }