$fejl = 1;
#$kredit[$x]=$kredit[$x]*1;
}
}
if ($kredit[$x] && ($k_type[$x] != "F" || strlen($kredit[$x]) > 1)) {
if ($kredit[$x] != $kredit[$x] * 1) {
print "<BODY onLoad=\"javascript:alert('Ulovlig værdi i kreditfelt (Bilag nr {$bilag[$x]})')\">";
$fejl = 1;
#$kredit[$x]=$kredit[$x]*1;
}
}
if (!$forskellige_datoer && $bilag[$x] && $bilag[$x] != '-' && $bilag[$x] == $bilag[$x - 1] && $dato[$x] != $dato[$x - 1] && $bilagssum[$x - 1]) {
print "<BODY onLoad=\"javascript:alert('Forskellige datoer i bilag {$bilag[$x]}')\">";
}
if (strpos($bilag[$x], '+') && $kladde_id) {
indsaet_linjer($kladde_id, $bilag[$x], $dato[$x], $beskrivelse[$x], $d_type[$x], $debet[$x] * 1, $k_type[$x], $kredit[$x] * 1, $faktura[$x], $belob[$x], $afd[$x] * 1, $ansat[$x], $projekt[$x], $valuta[$x], $forfaldsdato[$x], $betal_id[$x] * 1, $momsfri[$x]);
}
if ($bilag[$x] && $bilag[$x] != "-" && $bilag[$x] != "->" && $bilag[$x] != "<-" && !strpos($bilag[$x], '+') && !is_numeric($bilag[$x])) {
print "<BODY onLoad=\"javascript:alert('Ulovlig værdi i bilagsfelt (Bilag nr {$bilag[$x]})')\">";
$fejl = 1;
} elseif ($bilag[$x] && $bilag[$x] != "-" && $bilag[$x] != "->" && $bilag[$x] != "<-") {
$bilag[$x] = $bilag[$x] * 1;
}
if ($bilag[$x] == "-") {
$dato[$x] = '';
$beskrivelse[$x] = '';
$d_type[$x] = '';
$debet[$x] = '';
$k_type[$x] = '';
$kredit[$x] = '';
$faktura[$x] = '';
$qtxt = "update ordrelinjer set varenr='{$varenr[$x]}',beskrivelse='{$beskrivelse[$x]}',leveres='{$leveres[$x]}',pris='{$pris[$x]}',rabat='{$rabat[$x]}',procent='{$procent[$x]}',projekt='{$projekt[$x]}',kdo='{$kdo[$x]}',omvbet='{$omvbet[$x]}',saet='0',samlevare='{$samlevare[$x]}' where id='{$linje_id[$x]}'";
}
db_modify($qtxt, __FILE__ . " linje " . __LINE__);
if ($samlevare[$x]) {
if ($antal[$x]) {
$q = db_select("SELECT id,antal FROM ordrelinjer WHERE samlevare = '{$linje_id[$x]}'", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
db_modify("update ordrelinjer set leveres=antal*{$leveres[$x]}/{$antal[$x]} where id='{$r['id']}'", __FILE__ . " linje " . __LINE__);
}
} else {
db_modify("update ordrelinjer set leveres='0' where samlevare='{$linje_id[$x]}'", __FILE__ . " linje " . __LINE__);
}
}
}
if (strpos($posnr_ny[$x], '+') && $id) {
indsaet_linjer($id, $linje_id[$x], $posnr_ny[$x]);
}
}
# if (strlen($fakturadate)>5){db_modify("update ordrer set fakturadate='$fakturadate' where id=$id");}
}
if ($posnr_ny[0] && !strstr($submit, 'Opslag')) {
if ($varenr[0]) {
$samlevare[0] = '';
if ($brugsamletpris) {
$r = db_fetch_array(db_select("SELECT id,samlevare,salgspris FROM varer WHERE varenr = '{$varenr['0']}'", __FILE__ . " linje " . __LINE__));
$samlevare[0] = $r['samlevare'];
}
if ($brugsamletpris && $samlevare[0]) {
if ($incl_moms) {
$salgspris[0] = $r['salgspris'] + $r['salgspris'] * $momssats / 100;
}
