}
} elseif (substr($modtaget, -1) == 't') {
$betaling = "";
} elseif (substr($modtaget, -1) == 'c' && !$betaling) {
$betaling = "kontant";
} elseif (substr($modtaget, -1) == 'k' || $betaling == "konto") {
if (substr($modtaget, 0, 1) == '+') {
$modtaget = $sum + usdecimal(substr($modtaget, 1, strlen($modtaget) - 1));
} elseif (!is_numeric(substr($modtaget, -1))) {
$modtaget = substr($modtaget, 0, strlen($modtaget) - 1);
}
if (!$modtaget || !$kontonr) {
kontoopslag('PO', "", $fokus, $id, "", "", "");
}
} elseif (isset($_POST['kontoopslag'])) {
kontoopslag('PO', "", "varenr_ny", $id, "", "", "", "", "", "", "");
}
#cho "A $antal_ny P $pris_ny<br>";
if ($indbetaling) {
$indbetaling = str_replace("a", "", $indbetaling);
$tmp = trim(str_replace(".", "", $indbetaling));
$tmp = str_replace(",", ".", $tmp);
#cho "$tmp $indbetaling $modtaget<br>\n";
if (is_numeric($tmp)) {
$indbetaling = usdecimal($indbetaling);
$modtaget = usdecimal($modtaget);
if ($indbetaling > $modtaget) {
print "<BODY onLoad=\"javascript:alert('Indbetaling kan ikke være større end beløbet der modtages')\">\n";
$indbetaling = $modtaget;
}
}
kontoopslag($sort, $fokus, $id, $kontonr);
}
if (strstr($fokus, 'firmanavn') && !$id) {
kontoopslag($sort, $fokus, $id, $firmanavn);
}
if (strstr($fokus, 'addr1') && !$id) {
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__))) {
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;
}
########################## del_ordre - SKAL VAERE PLACERET FOER "FAKTURER" ################################
if ($submit == 'del_ordre') {
$sum = 0;
$moms = 0;
$ny_sum = 0;
$ny_moms = 0;
transaktion("begin");
$r = db_fetch_array(db_select("select * from ordrer where id = '{$id}'", __FILE__ . " linje " . __LINE__));
db_modify("insert into ordrer (ordrenr,konto_id,kontonr,firmanavn,addr1,addr2,postnr,bynavn,land,kontakt,kundeordnr,betalingsdage,betalingsbet,cvrnr,ean,institution,notes,art,ordredate,momssats,tidspkt,ref,status,lev_navn,lev_addr1,lev_addr2,lev_postnr,lev_bynavn,lev_kontakt,valuta,projekt,sprog,email,mail_fakt,pbs,afd,restordre,omvbet) values ('{$r['ordrenr']}','{$r['konto_id']}','{$r['kontonr']}','" . db_escape_string($r['firmanavn']) . "','" . db_escape_string($r['addr1']) . "','" . db_escape_string($r['addr2']) . "','" . db_escape_string($r['postnr']) . "','" . db_escape_string($r['bynavn']) . "','" . db_escape_string($r['land']) . "','" . db_escape_string($r['kontakt']) . "','" . db_escape_string($r['kundeordnr']) . "','{$r['betalingsdage']}','{$r['betalingsbet']}','" . db_escape_string($r['cvrnr']) . "','" . db_escape_string($r['ean']) . "','" . db_escape_string($r['institution']) . "','" . db_escape_string($r['notes']) . "','{$r['art']}','{$r['ordredate']}','{$r['momssats']}','{$r['tidspkt']}','" . db_escape_string($r['ref']) . "','{$r['status']}','" . db_escape_string($r['lev_navn']) . "','" . db_escape_string($r['lev_addr1']) . "','" . db_escape_string($r['lev_addr2']) . "','" . db_escape_string($r['lev_postnr']) . "','" . db_escape_string($r['lev_bynavn']) . "','" . db_escape_string($r['lev_kontakt']) . "','{$r['valuta']}','{$r['projekt']}','" . db_escape_string($r['sprog']) . "','" . db_escape_string($r['email']) . "','{$r['mail_fakt']}','{$r['pbs']}','{$r['afd']}','1','{$r['omvbet']}')", __FILE__ . " linje " . __LINE__);
$q = db_select("select id from ordrer where ordrenr={$ordrenr} and art='{$art}' and tidspkt='{$tidspkt}' order by id desc", __FILE__ . " linje " . __LINE__);
if ($r = db_fetch_array($q)) {
$ny_id = $r[id];
}
}
}
*/
#############################################################################################
}
$leverandor = trim($leverandor);
if ($leverandor) {
$query = db_select("select id from adresser where kontonr='{$leverandor}' and art = 'K'", __FILE__ . " linje " . __LINE__);
if ($row = db_fetch_array($query)) {
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 {
