} elseif ($fokus == "rabat_ny" && $pris_ny != 'f') {
$fokus = "antal_ny";
}
if ($fokus == "antal_ny" && (substr($antal_ny, -1) == 'p' || substr($antal_ny, -1) == 'r')) {
if (substr($antal_ny, -1) == 'p') {
$fokus = 'pris_ny';
} else {
$fokus = 'rabat_ny';
}
if (strlen($antal_ny) > 1) {
$antal_ny = substr($antal_ny, 0, strlen($antal_ny) - 1);
} else {
$antal_ny = 1;
}
} elseif ($fokus == "varenr_ny" && $varenr_ny == 'v') {
vareopslag('PO', "", $fokus, $id, "", "", "");
} elseif ($fokus == "pris_ny" && substr($pris_ny, -1) == 'r') {
$pris_ny = substr($pris_ny, 0, strlen($pris_ny) - 1);
$fokus = "rabat_ny";
} elseif (isset($_POST['forfra']) && $id) {
$r = db_fetch_array(db_select("select status from ordrer where id = '{$id}'", __FILE__ . " linje " . __LINE__));
$status = $r['status'];
if ($status < 3) {
$bordnr *= 1;
$dd = date("Y-m-d");
db_modify("update ordrer set konto_id='0', kontonr='',firmanavn='',addr1='',addr2='',postnr='',bynavn='',land='',betalingsdage='0',betalingsbet='Kontant',\n\t\t\t\tcvrnr='',ean='',institution='',email='',kontakt='',art='PO',valuta='DKK',valutakurs='100',kundeordnr='',nr='0',ordredate='{$dd}' where id = '{$id}'", __FILE__ . " linje " . __LINE__);
db_modify("delete from ordrelinjer where ordre_id='{$id}'", __FILE__ . " linje " . __LINE__);
$varenr_ny = '';
$antal_ny = '';
$modtaget = '';
$betaling = '';
function opret_ordrelinje($id, $vare_id, $varenr, $antal, $beskrivelse, $pris, $rabat_ny, $procent, $art, $momsfri, $posnr, $linje_id, $incl_moms, $kdo, $rabatart, $kopi, $saet, $fast_db, $lev_varenr)
{
#20140426
#cho "zz $id,$vare_id,$varenr,$antal,$beskrivelse,P $pris,$rabat_ny,$procent,$art,$momsfri,$posnr,$linje_id,$incl_moms,$kdo,$rabatart,$kopi,$saet,$fast_db<br>";
#xit;
if (!$id) {
return "missing ordre ID";
}
global $regnaar;
global $momssats;
global $formularsprog;
global $sprog_id;
global $webservice;
global $procentfakt;
global $status;
global $vis_saet;
$saet *= 1;
$fast_db *= 1;
$dd = date("Y-m-d");
$tt = date("H:i:s");
# if (!is_numeric($pris)) $pris=0; #20130903 - fjernet 20140124
if ($pris && $pris > 99999999) {
return "Ulovlig værdi i prisfelt";
}
#cho $pris." ".$pris*1 ."<br>";
if (!$regnaar) {
$year = date("Y");
$month = date("m");
$del1 = "(box1<='{$month}' and box2<='{$year}' and box3>='{$month}' and box4>='{$year}')";
$del2 = "(box1<='{$month}' and box2<='{$year}' and box3<'{$month}' and box4>'{$year}')";
$del3 = "(box1>'{$month}' and box2<'{$year}' and box3>='{$month}' and box4>='{$year}')";
if ($r = db_fetch_array(db_select("select kodenr from grupper where art='RA' and {$del1} or {$del2} or {$del3}", __FILE__ . " linje " . __LINE__))) {
$regnaar = $r['kodenr'] * 1;
} elseif ($r = db_fetch_array(db_select("select max(kodenr) as kodenr from grupper where art='RA'", __FILE__ . " linje " . __LINE__))) {
$regnaar = $r['kodenr'] * 1;
} else {
$regnaar = 1;
}
}
$r = db_fetch_array(db_select("select ordrer.art as art,ordrer.status as status,ordrer.valutakurs as valutakurs,adresser.gruppe as debitorgruppe,adresser.rabatgruppe as debitorrabatgruppe from adresser,ordrer where ordrer.id='{$id}'and adresser.id=ordrer.konto_id", __FILE__ . " linje " . __LINE__));
$debitorgruppe = $r['debitorgruppe'] * 1;
$debitorrabatgruppe = $r['debitorrabatgruppe'] * 1;
$valutakurs = $r['valutakurs'] * 1;
$status = $r['status'];
if (!$art) {
$art = $r['art'];
}
#20140424b
if ($status >= 3) {
#20131015
return "Der kan ikke tilføjes linjer i en bogført ordre";
exit;
}
$r = db_fetch_array(db_select("select box8,box9 from grupper where kodenr='{$debitorgruppe}' and art = 'DG'", __FILE__ . " linje " . __LINE__));
$b2b = $r['box8'];
$omkunde = $r['box9'];
$varenr = db_escape_string($varenr);
$varenr_low = strtolower($varenr);
$varenr_up = strtoupper($varenr);
if ($r = db_fetch_array(db_select("SELECT id,vare_id,variant_type FROM variant_varer WHERE upper(variant_stregkode) = '{$varenr_up}'", __FILE__ . " linje " . __LINE__))) {
$vare_id = $r['vare_id'];
$variant_type = $r['variant_type'];
$variant_id = $r['id'];
} else {
$variant_id = 0;
$variant_type = '';
}
$string = NULL;
if (isset($vare_id) && $vare_id) {
$string = "select * from varer where id='{$vare_id}'";
} elseif ($varenr) {
$string = "select * from varer where lower(varenr) = '{$varenr_low}' or upper(varenr) = '{$varenr_up}' or varenr LIKE '{$varenr}' or lower(stregkode) = '{$varenr_low}' or upper(stregkode) = '{$varenr_up}' or stregkode LIKE '{$varenr}'";
} elseif ($id && $beskrivelse && $posnr) {
$qtxt = "insert into ordrelinjer (ordre_id,vare_id,varenr,enhed,beskrivelse,antal,rabat,rabatart,procent,m_rabat,pris,kostpris,momsfri,momssats,posnr,projekt,folgevare,rabatgruppe,bogf_konto,kred_linje_id,kdo,serienr,variant_id,leveres,samlevare,omvbet,saet,fast_db,tilfravalg) values ('{$id}','0','','','{$beskrivelse}','0','0','','100','0','0','0','','0','{$posnr}','0','0','0','0','0','','','0','0','','{$omvbet}','{$saet}','{$fast_db}','')";
#cho "A $qtxt<br>";
db_modify($qtxt, __FILE__ . " linje " . __LINE__);
} else {
return "Manglende varenr eller beskrivelse";
}
if ($string && ($r = db_fetch_array(db_select("{$string}", __FILE__ . " linje " . __LINE__)))) {
$vare_id = $r['id'];
$varenr = db_escape_string($r['varenr']);
$enhed = db_escape_string($r['enhed']);
$folgevare = $r['folgevare'] * 1;
$tilfravalg = $r['tilfravalg'];
$rabatgruppe = $r['rabatgruppe'] * 1;
$varegruppe = $r['gruppe'] * 1;
$samlevare = $r['samlevare'];
$varerabatgruppe = $r['dvrg'] * 1;
if (!$pris && $b2b) {
$pris = $r['tier_price'] * 1;
}
$special_price = $r['special_price'] * 1;
$serienr = $r['serienr'];
$beholdning = $r['beholdning'] * 1;
list($m_antal, $temp) = explode(";", $r['m_antal']);
$m_antal = $m_antal * 1;
if (!$beskrivelse) {
$beskrivelse = db_escape_string(trim($r['beskrivelse']));
if ($formularsprog) {
$r2 = db_fetch_array(db_select("select kodenr from grupper where art='VSPR' and box1 = '{$formularsprog}'", __FILE__ . " linje " . __LINE__));
$kodenr = $r2['kodenr'] * 1;
$r2 = db_fetch_array(db_select("select tekst from varetekster where sprog_id='{$kodenr}' and vare_id='{$vare_id}'", __FILE__ . " linje " . __LINE__));
if ($r2['tekst']) {
$beskrivelse = db_escape_string($r2['tekst']);
}
}
}
# if (!$posnr && $art!='PO' && $r2=db_fetch_array(db_select("select max(posnr) as posnr from ordrelinjer where ordre_id = '$id'",__FILE__ . " linje " . __LINE__))) {
if (!$posnr && ($r2 = db_fetch_array(db_select("select max(posnr) as posnr from ordrelinjer where ordre_id = '{$id}'", __FILE__ . " linje " . __LINE__)))) {
$posnr = $r2['posnr'] + 1;
} elseif (!$posnr) {
$posnr = 1;
}
if (!($r2 = db_fetch_array(db_select("select box4,box6,box7,box8 from grupper where art = 'VG' and kodenr = '{$varegruppe}'", __FILE__ . " linje " . __LINE__)))) {
$alerttekst = findtekst(320, $sprog_id) . " {$varenr} " . findtekst(321, $sprog_id);
return "{$alerttekst}";
}
#cho __LINE__." $bogfkto = ".$r2['box4']."<br>";
$bogfkto = $r2['box4'];
$omvare = $r2['box6'];
$momsfri = $r2['box7'];
$lagerfort = $r2['box8'];
if (!$bogfkto) {
$alerttekst = findtekst(319, $sprog_id) . " " . $varegruppe . "!";
print "<BODY onLoad=\"javascript:alert('{$alerttekst}')\">";
return "{$alerttekst}";
}
#cho __LINE." P: ".$pris." ".$pris*1 ."<br>";
# if (($r2['box6']!=NULL)&&($rabatsats>$r2['box6'])) $rabatsats=$r2['box6'];
if ($bogfkto && !$momsfri) {
$r2 = db_fetch_array(db_select("select moms from kontoplan where kontonr = '{$bogfkto}' and regnskabsaar = '{$regnaar}'", __FILE__ . " linje " . __LINE__));
if ($tmp = trim($r2['moms'])) {
# f.eks S3
$tmp = substr($tmp, 1);
#f.eks 3
$r2 = db_fetch_array(db_select("select box2 from grupper where art = 'SM' and kodenr = '{$tmp}'", __FILE__ . " linje " . __LINE__));
if ($r2['box2']) {
$varemomssats = $r2['box2'] * 1;
}
} else {
$varemomssats = $momssats;
}
} else {
$varemomssats = 0;
}
if (!$pris) {
$ugedag = date('N');
$uxtid = date("U");
$tidspkt = date("H:i:s");
$qtxt = "select salgspris,kostpris from varetilbud where vare_id='{$vare_id}' and ugedag='{$ugedag}' and startdag<='{$uxtid}' and slutdag >='{$uxtid}' and starttid <='{$tidspkt}' and sluttid >='{$tidspkt}'";
$r2 = db_fetch_array(db_select($qtxt, __FILE__ . " linje " . __LINE__));
if ($r2['salgspris']) {
$pris = $r2['salgspris'];
$kostpris = $r2['kostpris'];
} elseif ($special_price && $r['special_from_date'] <= $dd && $r['special_to_date'] >= $dd && $r['special_from_time'] <= $tt && $r['special_to_time'] >= $tt) {
#$pris=$r['special_price'];
$pris = $special_price;
$kostpris = $r['campaign_cost'] * 1;
} else {
if ($pris != '0') {
$pris = $r['salgspris'] * 1;
}
#20140124
$kostpris = $r['kostpris'] * 1;
if ($pris == 0 && $kostpris < 1) {
$fast_db = $kostpris;
}
}
} elseif ($momsfri) {
$kostpris = $r['kostpris'] * 1;
} else {
global $momssats;
$ms = $varemomssats;
if ($momssats < $ms) {
$ms = $momssats;
}
if ($incl_moms) {
$pris = $pris - $pris * $ms / (100 + $ms);
} else {
$pris *= 1;
}
#20140124
$kostpris = $r['kostpris'] * 1;
}
if ($pris && $r['salgspris'] == 0 && $kostpris < 1 && $kostpris > 0) {
$fast_db = $kostpris;
$kostpris = $pris * $kostpris;
}
} elseif (!$kopi) {
if ($webservice) {
#20150218
if ($varenr) {
return "Varenr: {$varenr} eksisterer ikke";
} else {
return '0';
}
exit;
} else {
vareopslag($art, $sort, 'beskrivelse', $id, $vis_kost, $ref, '%' . $varenr . '%');
#20150215
exit;
}
return "Varenr: {$varenr} eksisterer ikke";
}
#cho __LINE." P: ".$pris." ".$pris*1 ."<br>";
$vare_id *= 1;
$m_rabat = 0;
$rabat_ny *= 1;
$r2 = db_fetch_array(db_select("select box11 from grupper where art = 'DIV' and kodenr = '3'", __FILE__ . " linje " . __LINE__));
$advar_negativ_lager = $r2['box11'];
if ($art == 'DO' && $lagerfort && !$webservice && $advar_negativ_lager) {
#20140131
$r = db_fetch_array(db_select("select beholdning from varer where id='{$vare_id}'", __FILE__ . " linje " . __LINE__));
$beholdning = $r['beholdning'];
$r = db_fetch_array(db_select("select sum(ordrelinjer.antal) as antal, sum(ordrelinjer.leveret) as leveret from ordrelinjer,ordrer where ordrelinjer.vare_id='{$vare_id}' and ordrelinjer.ordre_id=ordrer.id and ordrer.art='DO' and ordrer.status<3", __FILE__ . " linje " . __LINE__));
$i_ordre = $r['antal'] - $r['leveret'];
$raadig = $beholdning - $i_ordre;
$tmp = $antal * 1;
if (!$tmp) {
$tmp = 1;
}
if ($raadig <= $tmp) {
$alerttxt = "Beholdning:\\t{$beholdning}\\nI ordre:\\t\\t{$i_ordre}\\nTil rådighed:\\t{$raadig}";
print "<BODY onLoad=\"javascript:alert('{$alerttxt}')\">";
}
}
if ($linje_id && $art == 'DO') {
$tmp = "id='{$linje_id}'";
} elseif ($art == 'PO') {
$tmp = "vare_id = '{$vare_id}' and ordre_id='{$id}' and pris='{$pris}' and rabat='{$rabat_ny}' and variant_id='{$variant_id}' and tilfravalg=''";
}
if (!$saet && (!$kopi && $linje_id && $art == 'DO' || $art == 'PO') && ($r = db_fetch_array(db_select("select rabat,posnr,id,antal from ordrelinjer where {$tmp}", __FILE__ . " linje " . __LINE__)))) {
$antaldiff = $antal;
$antal = $r['antal'] + $antal;
if (($art != 'PO' || $antal) && $antaldiff && $r['id']) {
db_modify("update ordrelinjer set m_rabat='0', antal=antal+{$antaldiff} where id = '{$r['id']}'", __FILE__ . " linje " . __LINE__);
if ($samlevare == 'on') {
db_modify("update ordrelinjer set antal=antal/{$r['antal']}*{$antal} where samlevare = '{$linje_id}'", __FILE__ . " linje " . __LINE__);
}
$r2 = db_fetch_array(db_select("select sum(antal) as antal from ordrelinjer where vare_id='{$vare_id}' and pris='{$pris}' and rabat='0' and ordre_id='{$id}'", __FILE__ . " linje " . __LINE__));
$tmpantal = $r2['antal'];
if ($m_antal && $tmpantal >= $m_antal) {
m_rabat($r['id'], $vare_id, $r['posnr'], $tmpantal, $id);
} else {
db_modify("update ordrelinjer set m_rabat='0' where ordre_id = '{$id}' and vare_id = '{$vare_id}'", __FILE__ . " linje " . __LINE__);
}
} elseif ($art == 'PO' && $r['id']) {
db_modify("delete from ordrelinjer where id = '{$r['id']}'", __FILE__ . " linje " . __LINE__);
}
} else {
if ($kopi || $rabat_ny) {
$rabat = $rabat_ny;
} else {
if (!$debitorrabatgruppe && !db_fetch_array(db_select("select id from grupper where art='DRG'", __FILE__ . " linje " . __LINE__))) {
$debitorrabatgruppe = $debitorgruppe;
}
if (!$varerabatgruppe && !db_fetch_array(db_select("select id from grupper where art='DVRG'", __FILE__ . " linje " . __LINE__))) {
$varerabatgruppe = $varegruppe;
}
$r2 = db_fetch_array(db_select("select rabat,rabatart from rabat where vare='{$varerabatgruppe}' and debitor='{$debitorrabatgruppe}'", __FILE__ . " linje " . __LINE__));
$rabat = $r2['rabat'] * 1;
$rabatart = $r2['rabatart'];
}
#cho __LINE__." P: ".$pris." ".$pris*1 ."<br>";
$linje_id && $art == 'DK' ? $kred_linje_id = $linje_id : ($kred_linje_id = '0');
#cho "$momssats if (!$varemomssats && $varemomssats!='0')<br>";
if (!$varemomssats && $varemomssats != '0') {
$momsfri ? $varemomssats != '0' : ($varemomssats = $momssats);
$varemomssats = $varemomssats * 1;
}
#cho __LINE__." P: ".$pris." ".$pris*1 ." $valutakur s&& $valutakurs!=100<br>";
if ($valutakurs && $valutakurs != 100) {
$pris = $pris * 100 / $valutakurs;
$kostpris = $kostpris * 100 / $valutakurs;
}
#cho __LINE__." P: ".$pris." ".$pris*1 ."<br>";
#cho "rabarart $rabatart<br>";
if ($variant_type) {
$varianter = explode(chr(9), $variant_type);
for ($y = 0; $y < count($varianter); $y++) {
$qtxt = "select variant_typer.beskrivelse as vt_besk,varianter.beskrivelse as var_besk from variant_typer,varianter";
$qtxt .= " where variant_typer.id = '{$varianter[$y]}' and variant_typer.variant_id=varianter.id";
$r1 = db_fetch_array(db_select($qtxt, __FILE__ . " linje " . __LINE__));
$beskrivelse .= ", " . $r1['var_besk'] . ":" . $r1['vt_besk'];
}
}
#cho __LINE__." P: ".$pris." ".$pris*1 ."<br>";
#cho "insert into ordrelinjer (ordre_id,vare_id,varenr,enhed,beskrivelse,antal,rabat,rabatart,m_rabat,pris,kostpris,momsfri,momssats,posnr,projekt,folgevare,rabatgruppe,bogf_konto,kred_linje_id,kdo,serienr,variant_id) values ('$id','$vare_id','$varenr','$enhed','$beskrivelse','$antal','$rabat','$rabatart','$m_rabat','$pris','$kostpris','$momsfri','$varemomssats','$posnr','0','$folgevare','$rabatgruppe','$bogfkto','$kred_linje_id','$kdo','$serienr','$variant_id')<br>";
# exit;
$webservice ? $leveres = $antal : ($leveres = 0);
if ($id && is_numeric($posnr)) {
if ($samlevare && !$antal || $antal == '') {
$antal = 1;
}
$omkunde && $omvare ? $omvbet = 'on' : ($omvbet = '');
$antal *= 1;
$qtxt = "insert into ordrelinjer (ordre_id,vare_id,varenr,enhed,beskrivelse,antal,rabat,rabatart,procent,m_rabat,pris,kostpris,momsfri,momssats,posnr,projekt,folgevare,rabatgruppe,bogf_konto,kred_linje_id,kdo,serienr,variant_id,leveres,samlevare,omvbet,saet,fast_db,lev_varenr,tilfravalg) values ('{$id}','{$vare_id}','{$varenr}','{$enhed}','{$beskrivelse}','{$antal}','{$rabat}','{$rabatart}','{$procent}','{$m_rabat}','{$pris}','{$kostpris}','{$momsfri}','{$varemomssats}','{$posnr}','','{$folgevare}','{$rabatgruppe}','{$bogfkto}','{$kred_linje_id}','{$kdo}','{$serienr}','{$variant_id}','{$leveres}','{$samlevare}','{$omvbet}','{$saet}','{$fast_db}','{$lev_varenr}','')";
#cho "$qtxt<br>";
db_modify($qtxt, __FILE__ . " linje " . __LINE__);
if ($samlevare && !$beholdning) {
$r = db_fetch_array(db_select("select max(id) as id from ordrelinjer where vare_id='{$vare_id}' and ordre_id='{$id}'", __FILE__ . " linje " . __LINE__));
# samlevare($id,$art,$r['id'],$vare_id,$antal); udkommenteret 20131129
}
}
# finder antal af varen på ordren.
#cho "select sum(antal) as antal from ordrelinjer where vare_id='$vare_id' and pris=$pris and ordre_id='$id<br>";
$r = db_fetch_array(db_select("select sum(antal) as antal from ordrelinjer where vare_id='{$vare_id}' and pris={$pris} and rabat='0' and ordre_id='{$id}'", __FILE__ . " linje " . __LINE__));
$tmpantal = $r['antal'];
if ($m_antal && $tmpantal >= $m_antal) {
$r2 = db_fetch_array(db_select("select max(id) as id from ordrelinjer where vare_id='{$vare_id}' and pris={$pris} and rabat='0' and ordre_id='{$id}'", __FILE__ . " linje " . __LINE__));
m_rabat($r2['id'], $vare_id, 0, $tmpantal, $id);
} else {
#cho "update ordrelinjer set m_rabat='0' where ordre_id = '$id' and vare_id = '$vare_id'<br>";
db_modify("update ordrelinjer set m_rabat='0' where ordre_id = '{$id}' and vare_id = '{$vare_id}'", __FILE__ . " linje " . __LINE__);
}
}
if ($vis_saet && $status) {
db_modify("update ordrer set felt_2='0' where id = '{$id}'", __FILE__ . " linje " . __LINE__);
}
$sum = $pris * $antal;
#cho "retur Sum $sum<br>";
return $sum;
# $varenr=$next_varenr;
# $antal=NULL;
}
kontoopslag($art, $sort, $fokus, $id, $kontonr, $firmanavn, $addr1, $addr2, $postnr, $bynavn, $kontakt);
}
if (strstr($fokus, 'addr2') && !$id) {
kontoopslag($art, $sort, $fokus, $id, $kontonr, $firmanavn, $addr1, $addr2, $postnr, $bynavn, $kontakt);
}
if (strstr($fokus, 'postnr') && !$id) {
kontoopslag($art, $sort, $fokus, $id, $kontonr, $firmanavn, $addr1, $addr2, $postnr, $bynavn, $kontakt);
}
if (strstr($fokus, 'bynavn') && !$id) {
kontoopslag($art, $sort, $fokus, $id, $kontonr, $firmanavn, $addr1, $addr2, $postnr, $bynavn, $kontakt);
}
if (strstr($fokus, 'vare') && $art != 'DK') {
vareopslag($art, $sort, 'varenr', $id, $vis_kost, $ref, $varenr[0]);
}
if (strstr($fokus, 'besk') && $beskrivelse[0] && $art != 'DK') {
vareopslag($art, $sort, 'beskrivelse', $id, $vis_kost, $ref, $beskrivelse[0]);
}
if (strstr($fokus, 'besk')) {
tekstopslag($sort, $id);
}
if (strstr($fokus, 'kontakt') && $id) {
ansatopslag($sort, $fokus, $id, $vis, $kontakt);
}
if (strstr($fokus, 'lev_navn') && $id) {
kontoopslag("{$art}", "{$sort}", "{$fokus}", "{$id}", "{$lev_navn}", '', '', '', '', '');
} elseif (strstr($fokus, 'kontakt')) {
kontoopslag($art, $sort, $fokus, $id, $kontonr, $firmanavn, $addr1, $addr2, $postnr, $bynavn, $kontakt);
}
} elseif ($submit && !$kontonr && $id) {
kontoopslag($art, $sort, $fokus, $id, $kontonr, $firmanavn, $addr1, $addr2, $postnr, $bynavn, $kontakt);
exit;
if (strstr($submit, 'Kopi')) {
for ($x = 1; $x <= $linjeantal; $x++) {
if (!$vare_id[$x]) {
$query = db_select("select id from varer where varenr = '{$varenr[$x]}'");
if ($row = db_fetch_array($query)) {
$vare_id[$x] = $row[id];
}
}
db_modify("insert into ordrelinjer (ordre_id, posnr, varenr, vare_id, beskrivelse, enhed, antal, pris, rabat, serienr, lev_varenr) values ('{$id}', '{$posnr_ny[$x]}', '{$varenr[$x]}', '{$vare_id[$x]}', '{$beskrivelse[$x]}', '{$enhed[$x]}', '{$antal[$x]}', '{$pris[$x]}', '{$rabat[$x]}', '{$serienr[$x]}', '{$lev_varenr[$x]}')");
}
}
$vis = 1;
}
if (strstr($submit, 'Opslag')) {
if (strstr($fokus, 'vare')) {
vareopslag($sort, $fokus, $id, $vis);
}
if (strstr($fokus, 'kontakt')) {
ansatopslag($sort, $fokus, $id, $vis);
}
}
if (strstr($submit, 'Bogf') && $bogfor != 0 && $status == 2) {
$query = db_select("select * from ordrelinjer where ordre_id = '{$id}'");
if (!($row = db_fetch_array($query))) {
print "Du kan ikke lukke uden ordrelinjer";
}
db_modify("update ordrer set status=3 where id = {$id}");
}
if (strstr($submit, 'Modt') && $bogfor != 0) {
$query = db_select("select * from ordrelinjer where ordre_id = '{$id}'");
if (!($row = db_fetch_array($query))) {
kontoopslag($sort, $fokus, $id, $addr1);
}
if (strstr($fokus, 'addr2') && !$id) {
kontoopslag($sort, $fokus, $id, $addr2);
}
if (strstr($fokus, 'postnr') && !$id) {
kontoopslag($sort, $fokus, $id, $postnr);
}
if (strstr($fokus, 'bynavn') && !$id) {
kontoopslag($sort, $fokus, $id, $bynavn);
}
if (strstr($fokus, 'vare') && $art != 'DK') {
vareopslag($sort, 'varenr', $id, $vis, $ref, $varenr[0]);
}
if (strstr($fokus, 'besk') && $art != 'DK') {
vareopslag($sort, 'beskrivelse', $id, $vis, $ref, $beskrivelse[0]);
}
if (strstr($fokus, 'kontakt')) {
ansatopslag($sort, $fokus, $id, $vis);
}
}
##########################BOGFOR################################
if (strstr($submit, 'Bogf') && $bogfor != 0 && $status == 2) {
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::INT and valuta.valdate <= '{$ordredate}' order by valuta.valdate desc", __FILE__ . " linje " . __LINE__))) {
$valutakurs = $r['kurs'];
} else {
$valutakurs = '';
}
} else {
$valutakurs = 100;
db_modify("insert into vare_lev (lev_id, vare_id) values ('{$row['id']}', '{$id}')", __FILE__ . " linje " . __LINE__);
}
}
}
}
if (strstr($submit, "Leverand")) {
kontoopslag("navn", $fokus, $id, "", "", "", "");
}
if (strstr($submit, "Vare")) {
if (!$sort) {
$sort = "varenr";
}
if (!$fokus) {
$fokus = "varenr";
}
vareopslag($sort, $fokus, $id, $vis_kost, $ref, $find, "varekort.php");
}
}
if ($ny_beholdning != $beholdning) {
if ($samlevare) {
print "<meta http-equiv=\"refresh\" content=\"0;URL=vareproduktion.php?id={$id}&antal=1&ny_beholdning={$ny_beholdning}&samlevare={$samlevare}\">";
} else {
print "<meta http-equiv=\"refresh\" content=\"0;URL=lagerregulering.php?id={$id}&antal=1&ny_beholdning={$ny_beholdning}\">";
}
# sleep(10);
}
if ($popup && !$returside) {
$returside = "../includes/luk.php";
} elseif (!$returside) {
$returside = "varer.php";
}
