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-->"; }
} $ordresum += $linjesum; $linjesum = dkdecimal($linjesum); print "<input type=\"hidden\" name=\"linje_id[{$y}]\" value=\"{$linje_id[$y]}\">"; print "<input type=\"hidden\" name=\"ordre_id[{$y}]\" value=\"{$id[$x]}\">"; print "<input type=\"hidden\" name=\"projekt[{$y}]\" value=\"{$projekt[$y]}\">"; print "<tr>"; print "<td><input class=\"inputbox\" {$onfocus} type=\"text\" style=\"text-align:right;width:30px\" name=\"posnr_{$y}\" value=\"{$posnr}\"></td>"; if ($varenr[$y]) { print "<td><input class=\"inputbox\" {$onfocus} type=\"text\" style=\"text-align:left;width:80px\" name=\"varenr_{$y}\" value=\"{$varenr[$y]}\"></td>"; print "<td><input class=\"inputbox\" {$onfocus} type=\"text\" style=\"text-align:right;width:50px\" name=\"dkantal_{$y}\" value=\"{$dkantal[$y]}\"></td>"; } else { print "<td><input class=\"inputbox\" {$onfocus} readonly=\"readonly\" style=\"width:80px\"></td>"; print "<td><input class=\"inputbox\" {$onfocus} readonly=\"readonly\" style=\"width:50px\"></td>"; } $title = var2str($beskrivelse[$y], $id[$x]); print "<td title=\"{$title}\"><input class=\"inputbox\" {$onfocus} type=\"text\" style=\"text-align:left;width:600px\" name=\"beskrivelse_{$y}\" value='{$beskrivelse[$y]}'></td>"; if ($varenr[$y]) { print "<td><input class=\"inputbox\" {$onfocus} type=\"text\" style=\"text-align:right;width:80px\" name=\"dkpris_{$y}\" value=\"{$dkpris[$y]}\"></td>"; print "<td><input class=\"inputbox\" {$onfocus} type=\"text\" style=\"text-align:right;width:50px\" name=\"dkrabat_{$y}\" value=\"{$dkrabat[$y]}\"></td>"; if ($procentfakt) { print "<td><input class=\"inputbox\" {$onfocus} type=\"text\" style=\"text-align:right;width:50px\" name=\"dkprocent_{$y}\" value=\"{$dkprocent[$y]}\"></td><td>"; } else { print "<td><input type=\"hidden\" name=\"dkprocent_{$y}\" value=\"100\">"; } print "<input class=\"inputbox\" readonly=\"readonly\" style=\"text-align:right;width:80px\" value=\"{$linjesum}\"></td>"; } else { print "<td><input class=\"inputbox\" readonly=\"readonly\" style=\"width:80px\"></td>"; print "<td><input class=\"inputbox\" readonly=\"readonly\" style=\"width:50px\"></td>"; print "<td><input class=\"inputbox\" readonly=\"readonly\" style=\"width:80px\"></td>"; }
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-->"; }
function inset_ordrer($antal_ordrer, $leverance_id, $dkdd, $ordre_id, $cvrnr, $bank_reg, $bank_konto, $pbs_nr, $ny_pbs_aftale, $kontonr) { global $id; global $lnr; global $afslut; global $linje; global $linjeoid; global $delsystem; global $charset; global $lev_pbs; global $debitorgruppe; include "../includes/forfaldsdag.php"; $r042sum = 0; $r022lin = 0; $r052lin = 0; $lnr++; $linje[$lnr] = "BS002" . $cvrnr[0] . $delsystem . "0601" . $leverance_id . filler(19, " ") . $dkdd . "\n"; if ($afslut) { db_modify("insert into pbs_linjer (liste_id,linje) values ('{$id}','{$linje[$lnr]}')", __FILE__ . " linje " . __LINE__); } $lnr++; $linje[$lnr] = "BS012" . $pbs_nr[0] . "0112" . filler(5, " ") . $debitorgruppe . filler(15, "0") . filler(4, " ") . "00000000" . $bank_reg[0] . $bank_konto[0] . "\n"; if ($afslut) { db_modify("insert into pbs_linjer (liste_id,linje) values ('{$id}','{$linje[$lnr]}')", __FILE__ . " linje " . __LINE__); } for ($x = 1; $x <= $antal_ordrer; $x++) { $r = db_fetch_array(db_select("select * from ordrer where id='{$ordre_id[$x]}'", __FILE__ . " linje " . __LINE__)); $fakturanr = $r['fakturanr']; $kontonr = $r['kontonr']; $firmanavn = $r['firmanavn']; $adresse = $r['addr1']; if ($r['addr2']) { $adresse = $adresse . ", " . $r['addr2']; } $postnr = $r['postnr']; $ean = $r['ean']; $institution = $r['institution']; $sum = $r['sum']; $moms = $r['moms']; $belob = round(($r['sum'] + $r['moms']) * 100, 0); $r042sum = $r042sum + $belob; $fakturadate = $r['fakturadate']; $betalingsbet = $r['betalingsbet']; $betalingsdage = $r['betalingsdage']; $udskriv_til = $r['udskriv_til']; # tilfoejet 20.03.2011 while (strlen($kontonr) < 15) { $kontonr = "0" . $kontonr; } # 20140122 Denne + næste 3 linjer flyttet over nedenstående else while (strlen($pbs_nr[$x]) < 9) { $pbs_nr[$x] = "0" . $pbs_nr[$x]; } list($dd, $mm, $yy) = explode("-", forfaldsdag($fakturadate, $betalingsbet, $betalingsdage)); $forfaldsdag = $dd . $mm . $yy; if ($lev_pbs == 'B') { $firmanavn = ''; $adresse = ''; $postnr = ''; $ean = ''; $institution = ''; } else { #else indsat 20140121 if ($charset == "UTF-8") { $firmanavn = utf8_decode($firmanavn); $adresse = utf8_decode($adresse); $institution = utf8_decode($institution); } if ($udskriv_til == 'PBS_FI') { $pbs_nr[$x] = '000000000'; } # tilfoejet 20.03.2011 # rettet til '000000000' 20140207 $r022lin++; $lnr++; $linje[$lnr] = "BS022" . $pbs_nr[0] . "0240" . "00001" . $debitorgruppe . $kontonr . $pbs_nr[$x] . addslashes($firmanavn) . "\n"; $linjeoid[$lnr] = "{$ordre_id[$x]}"; if ($afslut) { if ($charset == "UTF-8") { $linje[$lnr] = utf8_encode($linje[$lnr]); } db_modify("insert into pbs_linjer (liste_id,linje) values ('{$id}','{$linje[$lnr]}')", __FILE__ . " linje " . __LINE__); } if ($ean) { $lnr++; $r022lin++; $linje[$lnr] = "BS022" . $pbs_nr[0] . "0240" . "00002" . $debitorgruppe . $kontonr . $pbs_nr[$x] . $ean . "\n"; $linjeoid[$lnr] = "{$ordre_id[$x]}"; if ($afslut) { db_modify("insert into pbs_linjer (liste_id,linje) values ('{$id}','{$linje[$lnr]}')", __FILE__ . " linje " . __LINE__); } $linjenr = "00003"; } else { $linjenr = "00002"; } $lnr++; $r022lin++; $linje[$lnr] = "BS022" . $pbs_nr[0] . "0240" . $linjenr . $debitorgruppe . $kontonr . $pbs_nr[$x] . $adresse . "\n"; $linjeoid[$lnr] = "{$ordre_id[$x]}"; if ($afslut) { if ($charset == "UTF-8") { $linje[$lnr] = utf8_encode($linje[$lnr]); } db_modify("insert into pbs_linjer (liste_id,linje) values ('{$id}','{$linje[$lnr]}')", __FILE__ . " linje " . __LINE__); } $r022lin++; while (strlen($postnr) < 4) { $postnr = "0" . $postnr; } $lnr++; $linje[$lnr] = "BS022" . $pbs_nr[0] . "0240" . "00009" . $debitorgruppe . $kontonr . $pbs_nr[$x] . filler(15, " ") . $postnr . "\n"; $linjeoid[$lnr] = "{$ordre_id[$x]}"; if ($afslut) { db_modify("insert into pbs_linjer (liste_id,linje) values ('{$id}','{$linje[$lnr]}')", __FILE__ . " linje " . __LINE__); } } if ($belob > 0) { $felt10 = "1"; } elseif ($belob < 0) { $felt10 = "2"; $belob = $belob * -1; } else { $felt10 = "0"; } while (strlen($belob) < 13) { $belob = "0" . $belob; } $lnr++; $linje[$lnr] = "BS042" . $pbs_nr[0] . "0280" . "00000" . $debitorgruppe . $kontonr . $pbs_nr[$x] . $forfaldsdag . $felt10 . $belob . filler(30, " ") . "00" . "\n"; $linjeoid[$lnr] = "{$ordre_id[$x]}"; if ($afslut) { db_modify("insert into pbs_linjer (liste_id,linje) values ('{$id}','{$linje[$lnr]}')", __FILE__ . " linje " . __LINE__); } $r052lin++; $recordnr = "00001"; $beskrivelse = "Fakturadato " . dkdato($fakturadate) . " Fakturanr: {$fakturanr} "; if ($charset == "UTF-8") { $belob = utf8_decode($belob); $beskrivelse = utf8_decode($beskrivelse); } while (strlen($beskrivelse) < 65) { $beskrivelse = $beskrivelse . " "; } $lnr++; $linje[$lnr] = "BS052" . $pbs_nr[0] . "0241" . $recordnr . $debitorgruppe . $kontonr . $pbs_nr[$x] . " " . addslashes($beskrivelse) . "\n"; $linjeoid[$lnr] = "{$ordre_id[$x]}"; if ($afslut) { if ($charset == "UTF-8") { $linje[$lnr] = utf8_encode($linje[$lnr]); } db_modify("insert into pbs_linjer (liste_id,linje) values ('{$id}','{$linje[$lnr]}')", __FILE__ . " linje " . __LINE__); } $r052lin++; $recordnr = "00001"; $beskrivelse = "Beskrivelse"; $antal = "Antal"; $pris = "Pris"; $belob = "Beløb"; if ($charset == "UTF-8") { $belob = utf8_decode($belob); $beskrivelse = utf8_decode($beskrivelse); } while (strlen($recordnr) < 5) { $recordnr = "0" . $recordnr; } while (strlen($beskrivelse) < 35) { $beskrivelse = $beskrivelse . " "; } while (strlen($antal) < 5) { $antal = " " . $antal; } while (strlen($pris) < 10) { $pris = " " . $pris; } while (strlen($belob) < 10) { $belob = " " . $belob; } $lnr++; $linje[$lnr] = "BS052" . $pbs_nr[0] . "0241" . $recordnr . $debitorgruppe . $kontonr . $pbs_nr[$x] . " " . addslashes($beskrivelse) . $antal . $pris . $belob . "\n"; $linjeoid[$lnr] = "{$ordre_id[$x]}"; if ($afslut) { if ($charset == "UTF-8") { $linje[$lnr] = utf8_encode($linje[$lnr]); } db_modify("insert into pbs_linjer (liste_id,linje) values ('{$id}','{$linje[$lnr]}')", __FILE__ . " linje " . __LINE__); } $y = 0; $q = db_select("select * from ordrelinjer where ordre_id='{$ordre_id[$x]}' order by posnr", __FILE__ . " linje " . __LINE__); while ($r = db_fetch_array($q)) { $y++; $r052lin++; $beskrivelse = var2str($r['beskrivelse'], $ordre_id[$x]); $antal = $r['antal'] * 1; $pris = dkdecimal($r['pris']); $belob = dkdecimal($r['pris'] * $r['antal']); $recordnr++; if ($charset == "UTF-8") { $beskrivelse = utf8_decode($beskrivelse); } while (strlen($recordnr) < 5) { $recordnr = "0" . $recordnr; } if (strlen($beskrivelse) > 35) { $beskrivelse = substr($beskrivelse, 0, 35); } while (strlen($beskrivelse) < 35) { $beskrivelse = $beskrivelse . " "; } while (strlen($antal) < 5) { $antal = " " . $antal; } while (strlen($pris) < 10) { $pris = " " . $pris; } while (strlen($belob) < 10) { $belob = " " . $belob; } $lnr++; $linje[$lnr] = "BS052" . $pbs_nr[0] . "0241" . $recordnr . $debitorgruppe . $kontonr . $pbs_nr[$x] . " " . addslashes(addslashes($beskrivelse)) . $antal . $pris . $belob . "\n"; $linjeoid[$lnr] = "{$ordre_id[$x]}"; if ($afslut) { if ($charset == "UTF-8") { $linje[$lnr] = utf8_encode($linje[$lnr]); } db_modify("insert into pbs_linjer (liste_id,linje) values ('{$id}','{$linje[$lnr]}')", __FILE__ . " linje " . __LINE__); } } if ($sum) { $r052lin++; $recordnr++; $beskrivelse = "Netto Beløb"; $dksum = dkdecimal($sum); if ($charset == "UTF-8") { $beskrivelse = utf8_decode($beskrivelse); } while (strlen($recordnr) < 5) { $recordnr = "0" . $recordnr; } while (strlen($beskrivelse) < 50) { $beskrivelse = $beskrivelse . " "; } while (strlen($dksum) < 10) { $dksum = " " . $dksum; } $lnr++; $linje[$lnr] = "BS052" . $pbs_nr[0] . "0241" . $recordnr . $debitorgruppe . $kontonr . $pbs_nr[$x] . " " . addslashes($beskrivelse) . $dksum . "\n"; $linjeoid[$lnr] = "{$ordre_id[$x]}"; if ($afslut) { if ($charset == "UTF-8") { $linje[$lnr] = utf8_encode($linje[$lnr]); } db_modify("insert into pbs_linjer (liste_id,linje) values ('{$id}','{$linje[$lnr]}')", __FILE__ . " linje " . __LINE__); } } if ($moms) { $r052lin++; $recordnr++; $beskrivelse = "Moms"; $dkmoms = dkdecimal($moms); if ($charset == "UTF-8") { $beskrivelse = utf8_decode($beskrivelse); } while (strlen($recordnr) < 5) { $recordnr = "0" . $recordnr; } while (strlen($beskrivelse) < 50) { $beskrivelse = $beskrivelse . " "; } while (strlen($dkmoms) < 10) { $dkmoms = " " . $dkmoms; } $lnr++; $linje[$lnr] = "BS052" . $pbs_nr[0] . "0241" . $recordnr . $debitorgruppe . $kontonr . $pbs_nr[$x] . " " . addslashes($beskrivelse) . $dkmoms . "\n"; $linjeoid[$lnr] = "{$ordre_id[$x]}"; if ($afslut) { if ($charset == "UTF-8") { $linje[$lnr] = utf8_encode($linje[$lnr]); } db_modify("insert into pbs_linjer (liste_id,linje) values ('{$id}','{$linje[$lnr]}')", __FILE__ . " linje " . __LINE__); } } if ($sum || $moms) { $r052lin++; $recordnr++; $beskrivelse = "Total Beløb"; $ialt = dkdecimal($sum + $moms); if ($charset == "UTF-8") { $beskrivelse = utf8_decode($beskrivelse); } while (strlen($recordnr) < 5) { $recordnr = "0" . $recordnr; } while (strlen($beskrivelse) < 50) { $beskrivelse = $beskrivelse . " "; } while (strlen($ialt) < 10) { $ialt = " " . $ialt; } $lnr++; $linjeoid[$lnr] = "{$ordre_id[$x]}"; $linje[$lnr] = "BS052" . $pbs_nr[0] . "0241" . $recordnr . $debitorgruppe . $kontonr . $pbs_nr[$x] . " " . addslashes($beskrivelse) . $ialt . "\n"; if ($afslut) { if ($charset == "UTF-8") { $linje[$lnr] = utf8_encode($linje[$lnr]); } db_modify("insert into pbs_linjer (liste_id,linje) values ('{$id}','{$linje[$lnr]}')", __FILE__ . " linje " . __LINE__); } } } while (strlen($antal_ordrer) < 11) { $antal_ordrer = "0" . $antal_ordrer; } while (strlen($r042sum) < 15) { $r042sum = "0" . $r042sum; } while (strlen($r022lin) < 11) { $r022lin = "0" . $r022lin; } while (strlen($r052lin) < 11) { $r052lin = "0" . $r052lin; } $lnr++; $linje[$lnr] = "BS092" . $pbs_nr[0] . "0112" . filler(5, "0") . $debitorgruppe . filler(4, " ") . $antal_ordrer . $r042sum . $r052lin . filler(15, " ") . $r022lin . "\n"; $linjeoid[$lnr] = "{$ordre_id[$x]}"; if ($afslut) { db_modify("insert into pbs_linjer (liste_id,linje) values ('{$id}','{$linje[$lnr]}')", __FILE__ . " linje " . __LINE__); } $lnr++; # $linje[$lnr]="BS992".$cvrnr[0]."BS10601"."00000000001".$antal_ordrer.$r042sum.$r052lin.filler(15,"0").$r022lin.filler(34,"0")."\n"; $linje[$lnr] = "BS992" . $cvrnr[0] . $delsystem . "0601" . "00000000001" . $antal_ordrer . $r042sum . $r052lin . filler(15, "0") . $r022lin . filler(34, "0") . "\n"; $linjeoid[$lnr] = "{$ordre_id[$x]}"; if ($afslut) { db_modify("insert into pbs_linjer (liste_id,linje) values ('{$id}','{$linje[$lnr]}')", __FILE__ . " linje " . __LINE__); } }
function formularprint($id, $formular, $lev_nr, $charset) { include "../includes/std_func.php"; include "../includes/formfunk.php"; include "../includes/var2str.php"; global $db; global $db_id; global $dkdato; global $form_id; # global $formular; global $formularsprog; global $fp; global $gebyr; global $ialt; # global $id; global $lev_nr; global $linjeafstand; global $logo; global $moms; global $momsgrundlag; global $momssats; global $nextside; global $printerid; global $ref; global $side; global $subtotal; global $sum; global $transportsum; global $y; global $ya; $fp1 = NULL; $kommentarprint = NULL; $skjul_nul_lin = NULL; $folgeseddel = 0; $mailantal = 0; $nomailantal = 0; $form = array(); if ($id == -1) { # Saa er der flere fakturaer $ordre_antal = $_GET['ordre_antal']; $ordre_id = explode(",", $_GET['skriv']); if (strpos($formular, ",")) { list($formular, $folgeseddel) = split(",", $formular); } } 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 * 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 = fread($initfil, $fsize); fclose($initfil); if (!file_exists("../temp/{$db}")) { mkdir("../temp/{$db}", 0775); } if ($ordre_antal > 1) { if ($formular <= 1) { $printfilnavn = "tilbud"; } if ($formular == 2) { $printfilnavn = "ordrebek"; } if ($formular == 3) { $printfilnavn = "flg_seddel"; } if ($formular == 4) { $printfilnavn = "faktura"; } if (!($fp = fopen("../temp/{$db}/{$printfilnavn}", "w"))) { return "kan ikke skrive til {$pfnavn}"; } } for ($q = 0; $q < $ordre_antal; $q++) { $fp = $fp1; if (isset($form[$q])) { $formular = $form[$q]; } $varenr = array(); $vare_id = array(); $linje_id = array(); $antal = array(); $tidl_lev = array(); $rest = array(); $enhed = array(); $rabat = array(); $pris = array(); $l_sum = array(); $linjesum = array(); $sum = ''; $transportsum = 0; $query = db_select("select email,ordrenr,fakturanr,mail_fakt,pbs,art,ref,sprog from ordrer where id = '{$ordre_id[$q]}'", __FILE__ . " linje " . __LINE__); $row = db_fetch_array($query); $ref = $row['ref']; $ordrenr = $row['ordrenr']; $fakturanr = $row['fakturanr']; $mail_fakt = $row['mail_fakt']; $email[0] = $row['email']; $pbs = $row['pbs']; $formularsprog = strtolower($row['sprog']); if (!$formularsprog) { $formularsprog = "dansk"; } if ($formular == 4 || $formular == 5) { if ($row['art'] == "DK") { $formular = 5; } else { $formular = 4; } } $y = 185; $antal_ordrelinjer = 25; $x = 0; $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"; } $fsize = filesize($logo); $logofil = fopen($logo, "r"); $translate = 0; $logo = ""; while (!feof($logofil)) { $linje = fgets($logofil); if (substr($linje, 0, 2) != "%!") { if (strstr($linje, "translate") && !$translate) { $linje = "{$logo_X} {$logo_Y} translate \n"; $translate = 1; } $logo = $logo . $linje; } } fclose($logofil); $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[$q]}", __FILE__ . " linje " . __LINE__)); $lev_nr = $r2['lev_nr'] * 1; } if ($mail_fakt && $formular != 3) { $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; } $email[$mailantal] = $email[0]; $mailsprog[$mailantal] = $formularsprog; $form_nr[$mailantal] = $formular; $pfliste[$mailantal] = $pfnavn; $pfnavn = "../temp/" . $db . "/" . $pfnavn; if (!($fp = fopen("{$pfnavn}", "w"))) { return "kan ikke skrive til {$pfnavn}"; } $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; } $pfnavn = "../temp/" . $db . "/" . $printfilnavn; if (!($fp = fopen("{$pfnavn}", "w"))) { return "kan ikke skrive til {$pfnavn}"; } } } $side = 1; fwrite($fp, $initext); $rabat[0] = formulartekst($ordre_id[$q], $formular, $formularsprog); if ($ordre_id[$q]) { $id = $ordre_id[$q]; $x = 0; $sum = 0; $momssum = 0; $tmp = 0; $query = db_select("select * from ordrelinjer where ordre_id = {$ordre_id[$q]} order by posnr", __FILE__ . " linje " . __LINE__); while ($row = db_fetch_array($query)) { if ($row[posnr] > 0) { $x++; $varenr[$x] = trim($row['varenr']); $projekt[$x] = $row['projekt']; $beskrivelse[$x] = stripslashes(trim($row['beskrivelse'])); if ($charset == "utf-8") { $varenr[$x] = utf8_decode($varenr[$x]); $beskrivelse[$x] = utf8_decode($beskrivelse[$x]); } if (strpos($beskrivelse[$x], "\$ultimo") || strpos($beskrivelse[$x], "\$maaned") || strpos($beskrivelse[$x], "\$aar")) { $beskrivelse[$x] = var2str($beskrivelse[$x], $ordre_id[$q]); } if ($varenr[$x]) { $vare_id[$x] = $row['vare_id']; $linje_id[$x] = $row[id]; $antal[$x] = $row['antal'] * 1; $dkantal[$x] = str_replace(".", ",", $antal[$x]); list($a, $b) = split(",", $dkantal[$x]); $b = $b * 1; if ($b) { $dkantal[$x] = "{$a},{$b}"; } else { $dkantal[$x] = $a; } if ($formular == 5) { $antal[$x] = $antal[$x] * -1; } if ($formular == 3) { $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] = dkdecimal($row['pris']); $rabat[$x] = dkdecimal($row['rabat']); $l_sum[$x] = round($row['pris'] * $antal[$x] - $row['pris'] * $antal[$x] * $row[rabat] / 100 + 0.0001, 2); #Afrunding tilfoejet 2009.01.26 grundet diff i ordre 98 i saldi_104 $linjesum[$x] = dkdecimal($row['pris'] * $antal[$x] - $row['pris'] * $antal[$x] * $row[rabat] / 100); if ($row[momsfri] != 'on') { $momssum = $momssum + round($row['pris'] * $antal[$x] - $row['pris'] * $antal[$x] * $row[rabat] / 100 + 0.0001, 2); #Afrunding tilfoejet 2009.01.26 grundet diff i ordre 98 i saldi_104 if ($incl_moms) { $tmp = round($row['pris'] + $row['pris'] * $momssats / 100 + 0.0001, 2); $pris[$x] = dkdecimal($tmp); $linjesum[$x] = dkdecimal($tmp * $antal[$x] - $tmp * $antal[$x] * $row[rabat] / 100); } } $sum = $sum + round($row['pris'] * $antal[$x] - $row['pris'] * $antal[$x] * $row[rabat] / 100 + 0.0001, 2); #Afrunding tilfoejet 2009.01.26 grundet diff i ordre 98 i saldi_104 if ($formular == 3 && $skjul_nul_lin && !$lev_antal[$x]) { $varenr[$x] = NULL; } # } } $linjeantal = $x; } $y = $ya; $Opkt = $y - $antal_ordrelinjer * $linjeafstand; for ($x = 1; $x <= $linjeantal; $x++) { $transportsum = $transportsum + $l_sum[$x - 1]; if ($kommentarprint == 'on' || $formular != 3 || $varenr[$x]) { #Fordi tekst uden varenr ikke skal med paa foelgesedlen med mindre det er angivet i "formularprint"; for ($z = 1; $z <= $var_antal; $z++) { if ($variabel[$z] == "varenr") { $svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}"); } # ellers kommer varenummer ikke med paa 1. linje paa side 2 . og 3 if ($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}"); } if ($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}"); } if ($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}"); } if ($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}"); } #ellers kommer antal ikke med paa 1. linje paa side 2 . og 3 if ($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}"); } if ($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}"); } if ($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}"); } if ($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}"); } if ($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}"); } if ($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}"); } if ($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}"); } if ($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]); } $y = $y2; if ($y == 0) { $y = $ya; } $y = $y - 4; } } $moms = dkdecimal($momssum * $momssats / 100); $momsgrundlag = dkdecimal($momssum); $momssum = round($momssum + 0.0001, 2); $sum = round($sum + 0.0001, 2); $ialt = dkdecimal($sum + $momssum * $momssats / 100); $sum = dkdecimal($sum); } find_form_tekst($id, 'S', $formular); # Sum paa sidste side. bundtekst($ordre_id[$q]); # Uden denne skrives kun side 1 if ($mail_fakt) { fclose($fp2); } } fclose($fp); #exit; if ($mailantal > 0) { ini_set("include_path", ".:../phpmailer"); require "class.phpmailer.php"; for ($x = 1; $x <= $mailantal; $x++) { system("/usr/bin/ps2pdf ../temp/{$db}/{$pfliste[$x]} ../temp/{$db}/{$pfliste[$x]}.pdf"); $svar = send_mails("../temp/{$db}/{$pfliste[$x]}.pdf", $email[$x], $mailsprog[$x], $form_nr[$x], $charset); 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=$db/$printfilnavn&id=$id\">"; #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 $svar; }