function genfakt($id, $org_nr, $fakt_dato, $opdat_pris, $slet_gfdato)
{
transaktion('begin');
if ($r = db_fetch_array(db_select("select * from ordrer where id = {$id}", __FILE__ . " linje " . __LINE__))) {
$pbs = $r['pbs'];
$firmanavn = db_escape_string($r['firmanavn']);
$addr1 = db_escape_string($r['addr1']);
$addr2 = db_escape_string($r['addr2']);
$bynavn = db_escape_string($r['bynavn']);
$land = db_escape_string($r['land']);
$cvrnr = db_escape_string($r['cvrnr']);
$ean = db_escape_string($r['ean']);
$sprog = db_escape_string($r['sprog']);
$valuta = db_escape_string($r['valuta']);
$projekt = db_escape_string($r['projekt']);
$institution = db_escape_string($r['institution']);
$notes = db_escape_string($r['notes']);
$ref = db_escape_string($r['ref']);
$kontakt = db_escape_string($r['kontakt']);
$kundeordnr = db_escape_string($r['kundeordnr']);
$lev_navn = db_escape_string($r['lev_navn']);
$lev_addr1 = db_escape_string($r['lev_addr1']);
$lev_addr2 = db_escape_string($r['lev_addr2']);
$lev_bynavn = db_escape_string($r['lev_bynavn']);
$email = db_escape_string($r['email']);
$udskriv_til = db_escape_string($r['udskriv_til']);
$procenttillag = db_escape_string($r['procenttillag']);
if ($r['nextfakt']) {
$tmp = $r['nextfakt'];
} else {
$tmp = date("Y-m-d");
}
$nextfakt = find_nextfakt($r['fakturadate'], $tmp);
if ($fakt_dato) {
$fakturadate = $r['nextfakt'];
} else {
$fakturadate = date("Y-m-d");
}
if ($org_nr) {
$ordrenr = $r['ordrenr'];
} else {
$r2 = db_fetch_array(db_select("select MAX(ordrenr) as ordrenr from ordrer where art='DO' or art='DK'", __FILE__ . " linje " . __LINE__));
$ordrenr = $r2['ordrenr'] + 1;
}
db_modify("insert into ordrer (ordrenr, konto_id, kontonr,firmanavn,addr1,addr2,postnr,bynavn,land,betalingsdage,betalingsbet,cvrnr,ean,institution,notes,art,ordredate,momssats,moms,ref,valuta,sprog,kontakt,kundeordnr,lev_navn,lev_addr1,lev_addr2,lev_postnr,lev_bynavn,levdate,fakturadate,nextfakt,sum,status,projekt,email,mail_fakt,pbs,udskriv_til,procenttillag) values \n\t\t\t\t('{$ordrenr}','{$r['konto_id']}','{$r['kontonr']}','{$firmanavn}','{$addr1}','{$addr2}','{$r['postnr']}','{$bynavn}','{$land}','{$r['betalingsdage']}','{$r['betalingsbet']}','{$cvrnr}','{$ean}','{$institution}','{$notes}','{$r['art']}','{$r['ordredate']}','{$r['momssats']}','{$r['moms']}','{$ref}','{$valuta}','{$sprog}','{$kontakt}','{$kundeordnr}','{$lev_navn}','{$lev_addr1}','{$lev_addr2}','{$r['lev_postnr']}','{$lev_bynavn}','{$fakturadate}','{$fakturadate}','{$nextfakt}','{$r['sum']}','2','{$projekt}','{$email}','{$r['mail_fakt']}','{$pbs}','{$udskriv_til}','{$procenttillag}')", __FILE__ . " linje " . __LINE__);
$r2 = db_fetch_array(db_select("select id from ordrer where ordrenr='{$ordrenr}' and nextfakt='{$nextfakt}' and (art='DO' or art='DK') order by id desc", __FILE__ . " linje " . __LINE__));
$ny_id = $r2['id'];
$sum = 0;
$x = 0;
$q = db_select("select * from ordrelinjer where ordre_id = {$id} and (kdo!='on' or kdo is NULL) order by posnr", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$r['projekt'] ? $projekt = $r['projekt'] : ($projekt = '');
if ($r['vare_id']) {
$r2 = db_fetch_array(db_select("select gruppe from varer where id='{$r['vare_id']}'", __FILE__ . " linje " . __LINE__));
$gruppe = $r2['gruppe'];
$r2 = db_fetch_array(db_select("select box7 from grupper where art='VG' and kodenr='{$gruppe}'", __FILE__ . " linje " . __LINE__));
$momsfri = $r2['box7'];
if (!$opdat_pris) {
$pris = $r['pris'] * 1;
$kostpris = $r['kostpris'] * 1;
} else {
$r2 = db_fetch_array(db_select("select salgspris,kostpris from varer where id='{$r['vare_id']}'", __FILE__ . " linje " . __LINE__));
$pris = $r2['salgspris'] * 1;
$kostpris = $r2['kostpris'] * 1;
$sum = $sum + $r['antal'] * $pris - $r['antal'] * $pris * $r['rabat'] / 100;
}
db_modify("insert into ordrelinjer (ordre_id,posnr,varenr,vare_id,beskrivelse,enhed,antal,pris,rabat,procent,lev_varenr,momsfri,samlevare,kostpris,leveres,projekt) values ('{$ny_id}','{$r['posnr']}','" . db_escape_string($r['varenr']) . "','{$r['vare_id']}','" . db_escape_string($r['beskrivelse']) . "','{$r['enhed']}','{$r['antal']}','{$pris}','{$r['rabat']}','{$r['procent']}','" . db_escape_string($r['lev_varenr]']) . "','{$momsfri}','{$r['samlevare']}','{$kostpris}','{$r['antal']}','" . db_escape_string($projekt) . "')", __FILE__ . " linje " . __LINE__);
} else {
db_modify("insert into ordrelinjer (ordre_id, posnr, beskrivelse) values ('{$ny_id}','{$r['posnr']}','" . db_escape_string($r['beskrivelse']) . "')", __FILE__ . " linje " . __LINE__);
}
}
if ($opdat_pris) {
db_modify("update ordrer set sum={$sum} where id='{$ny_id}'", __FILE__ . " linje " . __LINE__);
}
#echo "SLET : $slet_gfdato<br>";
if ($slet_gfdato) {
db_modify("update ordrer set nextfakt=NULL where id='{$id}'", __FILE__ . " linje " . __LINE__);
}
}
transaktion('commit');
$tmp = $ny_id . "," . $pbs;
return $tmp;
}
$qtxt .= "email,mail_fakt,notes,art,ordredate,momssats,status,ref,lev_adr,valuta,projekt,sprog,";
$qtxt .= "pbs,afd,restordre,procenttillag,sag_id,sagsnr,tilbudnr,datotid,nr,returside,omvbet)";
$qtxt .= " values ";
$qtxt .= "({$ordrenr},'{$konto_id}','{$kontonr}','{$kundeordnr}','{$firmanavn}','{$addr1}','{$addr2}','{$postnr}','{$bynavn}','{$land}','{$kontakt}','{$lev_navn}',";
$qtxt .= "'{$lev_addr1}','{$lev_addr2}','{$lev_postnr}','{$lev_bynavn}','{$lev_kontakt}','{$betalingsdage}','{$betalingsbet}','{$cvrnr}','{$ean}','{$institution}',";
$qtxt .= "'{$email}','{$mail_fakt}','{$notes}','{$art}','{$ordredate}','{$momssats}','{$status}','{$ref}','{$lev_adr}','{$valuta}','{$projekt['0']}','{$formularsprog}',";
$qtxt .= "'{$pbs}','{$afd}','0','{$procenttillag}','{$sag_id}','{$sagsnr}','{$tilbudnr}','{$datotid}','{$nr}','{$returside}','{$omkunde}')";
db_modify($qtxt, __FILE__ . " linje " . __LINE__);
$qtxt = "select id from ordrer where kontonr='{$kontonr}' and ordredate='{$ordredate}' order by id desc";
if ($r = db_fetch_array(db_select($qtxt, __FILE__ . " linje " . __LINE__))) {
$id = $r['id'];
if ($gl_id) {
$qtxt = "select levdate,ordredate,fakturadate,nextfakt from ordrer where id='{$gl_id}'";
$r = db_fetch_array(db_select($qtxt, __FILE__ . " linje " . __LINE__));
if ($r['nextfakt']) {
$nextfakt = find_nextfakt($r['fakturadate'], $r['nextfakt']);
$qtxt = "update ordrer set levdate='{$r['nextfakt']}',fakturadate='{$r['nextfakt']}',nextfakt='{$nextfakt}',ordredate='{$r['ordredate']}' where id = {$id}";
db_modify($qtxt, __FILE__ . " linje " . __LINE__);
}
}
}
}
if (strstr($submit, 'Kred') && $kred_ord_id) {
db_modify("update ordrer set kred_ord_id='{$kred_ord_id}' where id='{$id}'", __FILE__ . " linje " . __LINE__);
}
for ($x = 1; $x <= $linjeantal; $x++) {
if (!$vare_id[$x] && $antal[$x] && $varenr[$x]) {
$query = db_select("select id from varer where varenr = '{$varenr[$x]}'", __FILE__ . " linje " . __LINE__);
if ($row = db_fetch_array($query)) {
$vare_id[$x] = $row['id'];
}
