function bogfor($kladde_id, $kladdenote, $simuler)
{
global $connection;
global $regnaar;
global $brugernavn;
$tjeksum = 0;
$posteringer = 0;
$transantal = 0;
$transtjek = 0;
$simuler ? $tabel = 'simulering' : ($tabel = 'transaktioner');
$r = db_fetch_array(db_select("select max(id) as id from transaktioner where kladde_id = {$kladde_id}", __FILE__ . " linje " . __LINE__));
if ($r['id']) {
print "<BODY onLoad=\"javascript:alert('Kladden er allerede bogført!')\">";
return "Kladden er allerede bogført";
exit;
}
$d_momsart = array();
$k_momsart = array();
db_modify("update kladdeliste set kladdenote = '{$kladdenote}' where id = '{$kladde_id}'", __FILE__ . " linje " . __LINE__);
$y = 0;
$v_antal = 0;
$b_diff = 0;
$query = db_select("select * from kassekladde where kladde_id = {$kladde_id} and amount !=0 order by bilag", __FILE__ . " linje " . __LINE__);
while ($row = db_fetch_array($query)) {
$y++;
$postid[$y] = $row['id'];
if ($row['debet'] > 0) {
$transantal++;
}
if ($row['kredit'] > 0) {
$transantal++;
}
$eufaktnr[$y] = "!@&/(=bh#jH%Tf)D";
# maa ikke vaere en vaerdi som kan risikere at vaere et relt fakturanr.
$bilag[$y] = $row['bilag'];
$beskrivelse[$y] = db_escape_string($row['beskrivelse']);
$d_type[$y] = $row['d_type'];
$debet[$y] = $row['debet'];
$k_type[$y] = $row['k_type'];
$kredit[$y] = $row['kredit'];
if (!$debet[$y]) {
$d_type[$y] = 'F';
}
if (!$kredit[$y]) {
$k_type[$y] = 'F';
}
$faktura[$y] = db_escape_string($row['faktura']);
$amount[$y] = $row['amount'];
if ($row['valuta'] && $row['amount'] && ($row['debet'] || $row['kredit'])) {
list($dkkamount[$y], $diffkonto[$y], $valutakurs[$y]) = valutaopslag($amount[$y], $row['valuta'], $row['transdate']);
} else {
$dkkamount[$y] = $amount[$y];
}
$momsfri[$y] = $row['momsfri'];
$afd[$y] = $row['afd'];
$ansat[$y] = $row['ansat'] * 1;
$projekt[$y] = $row['projekt'];
$valuta[$y] = $row['valuta'] * 1;
$ordre_id[$y] = $row['ordre_id'] * 1;
# $valutakurs[$y]=$row['valutakurs']*1; Rem'et 2009.02.10
if (!$valutakurs[$y]) {
$valutakurs[$y] = 100;
}
$transdate[$y] = $row['transdate'];
$forfaldsdate[$y] = $row['forfaldsdate'];
$betal_id[$y] = $row['betal_id'];
if ($bilag[$y] == $bilag[$y - 1]) {
if ($valuta[$y] != 'DKK') {
$b_afd[$b_antal] = $afd[$y];
$b_ansat[$b_antal] = $ansat[$y];
$b_projekt[$b_antal] = $projekt[$y];
$b_valuta[$b_antal] = $valuta[$y];
$b_kurs[$b_antal] = $kurs[$y];
$b_ordre_id[$b_antal] = $ordre_id[$y];
$b_kurs[$b_antal] = $valutakurs[$y];
$b_valuta[$b_antal] = $valuta[$y];
$b_diffkonto[$b_antal] = $diffkonto[$y];
}
if ($row['debet']) {
$b_sum[$b_antal] += $dkkamount[$y];
$b_diff += $dkkamount[$y];
}
if ($row['kredit']) {
$b_sum[$b_antal] -= $dkkamount[$y];
$b_diff -= $dkkamount[$y];
}
} else {
$b_antal++;
$b_bilag[$b_antal] = $bilag[$y];
$b_sum[$b_antal] = 0;
$b_transdate[$b_antal] = $transdate[$y];
if ($valuta[$y] != 'DKK') {
$b_afd[$b_antal] = $afd[$y];
$b_ansat[$b_antal] = $ansat[$y];
$b_projekt[$b_antal] = $projekt[$y];
$b_valuta[$b_antal] = $valuta[$y];
$b_kurs[$b_antal] = $kurs[$y];
$b_ordre_id[$b_antal] = $ordre_id[$y];
$b_kurs[$b_antal] = $valutakurs[$y];
$b_valuta[$b_antal] = $valuta[$y];
$b_diffkonto[$b_antal] = $diffkonto[$y];
}
if ($row['debet']) {
$b_sum[$b_antal] += $dkkamount[$y];
$b_diff += $dkkamount[$y];
}
if ($row['kredit']) {
$b_sum[$b_antal] -= $dkkamount[$y];
$b_diff -= $dkkamount[$y];
}
# if ($row['debet']) $b_sum[$b_antal]+=$dkkamount[$y];
# if ($row['kredit']) $b_sum[$b_antal]-=$dkkamount[$y];
}
#cho "B tjek $b_diff ".afrund($b_diff,2)."<br>";
if ((strstr($d_type[$y], 'D') || strstr($d_type[$y], 'K')) && $debet[$y] > 0) {
if (!$simuler) {
openpost($d_type[$y], $debet[$y], $bilag[$y], $faktura[$y], $amount[$y], $beskrivelse[$y], $transdate[$y], $postid[$y], $valuta[$y], $valutakurs[$y], $forfaldsdate[$y], $betal_id[$y], $projekt[$y]);
}
list($debet[$y], $d_momsart[$y]) = gruppeopslag($d_type[$y], $debet[$y]);
if ($d_momsart[$y] == 'E' || $d_momsart[$y] == 'Y') {
$eufaktnr[$y] = $faktura[$y];
}
# Bruges laengere nede til at undgaa at transantal oeges v. eu momsposteringer.
}
if (($k_type[$y] == 'D' || $k_type[$y] == 'K') && $kredit[$y] > 0) {
if (!$simuler) {
openpost($k_type[$y], $kredit[$y], $bilag[$y], $faktura[$y], $amount[$y] * -1, $beskrivelse[$y], $transdate[$y], $postid[$y], $valuta[$y], $valutakurs[$y], $forfaldsdate[$y], $betal_id[$y], $projekt[$y]);
}
list($kredit[$y], $k_momsart[$y]) = gruppeopslag($k_type[$y], $kredit[$y]);
if ($k_momsart[$y] == 'E' || $k_momsart[$y] == 'Y') {
$eufaktnr[$y] = $faktura[$y];
}
# Bruges laengere nede til at undgaa at transantal oeges v. eu momsposteringer.
}
$momsfri[$y] = str_replace(" ", "", $momsfri[$y]);
$debet[$y] = str_replace(" ", "", $debet[$y]);
$kredit[$y] = str_replace(" ", "", $kredit[$y]);
$d_amount[$y] = 0;
$d_moms[$y] = 0;
$d_momskto[$y] = 0;
$d_modkto[$y] = 0;
$k_amount[$y] = 0;
$k_moms[$y] = 0;
$k_momskto[$y] = 0;
$k_modkto[$y] = 0;
if ($debet[$y] > 0) {
$d_amount[$y] = $dkkamount[$y];
}
if ($kredit[$y] > 0) {
$k_amount[$y] = $dkkamount[$y];
}
$logdate = date("Y-m-d");
$logtime = date("H:i");
list($x, $month, $x) = explode('-', $transdate[$y]);
if (!$afd[$y]) {
$afd[$y] = 0;
}
if (!$momsfri[$y] && $debet[$y] > 0 && $d_amount[$y] > 0 && substr($momsart, 0, 1) != 'E' && substr($momsart, 0, 1) != 'Y') {
list($d_amount[$y], $d_moms[$y], $d_momskto[$y], $d_modkto[$y]) = momsberegning($debet[$y], $d_amount[$y], $d_momsart[$y], $k_momsart[$y]);
}
if (!$momsfri[$y] && $kredit[$y] > 0 && $k_amount[$y] > 0 && substr($momsart, 0, 1) != 'E' && substr($momsart, 0, 1) != 'Y') {
list($k_amount[$y], $k_moms[$y], $k_momskto[$y], $k_modkto[$y]) = momsberegning($kredit[$y], $k_amount[$y], $k_momsart[$y], $d_momsart[$y]);
}
}
# end while
$posteringer = $y;
for ($y = 1; $y <= $posteringer; $y++) {
$d_moms[$y] *= 1;
$k_moms[$y] *= 1;
if ($d_modkto[$y] > 0 && $eufaktnr[$y] != $faktura[$y]) {
if ($k_moms[$y]) {
$posteringer++;
$k_momskto[$posteringer] = $k_momskto[$y];
$k_moms[$posteringer] = $k_moms[$y];
$bilag[$posteringer] = $bilag[$y];
$beskrivelse[$posteringer] = $beskrivelse[$y];
$faktura[$posteringer] = $faktura[$y];
$afd[$posteringer] = $afd[$y];
$transdate[$posteringer] = $transdate[$y];
$ansat[$posteringer] = $ansat[$y];
$projekt[$posteringer] = $projekt[$y];
$ordre_id[$posteringer] = $ordre_id[$y];
$valutakurs[$posteringer] = $valutakurs[$y];
$valuta[$posteringer] = $valuta[$y];
}
$k_moms[$y] = $d_moms[$y];
$k_momskto[$y] = $d_modkto[$y];
$transantal++;
}
if ($k_modkto[$y] > 0 && $eufaktnr[$y] != $faktura[$y]) {
if ($d_moms[$y]) {
$posteringer++;
$d_momskto[$posteringer] = $d_momskto[$y];
$d_moms[$posteringer] = $d_moms[$y];
$bilag[$posteringer] = $bilag[$y];
$beskrivelse[$posteringer] = $beskrivelse[$y];
$faktura[$posteringer] = $faktura[$y];
$afd[$posteringer] = $afd[$y];
$transdate[$posteringer] = $transdate[$y];
$transdate[$posteringer] = $transdate[$y];
$ansat[$posteringer] = $ansat[$y];
$projekt[$posteringer] = $projekt[$y];
$ordre_id[$posteringer] = $ordre_id[$y];
$valutakurs[$posteringer] = $valutakurs[$y];
$valuta[$posteringer] = $valuta[$y];
}
$d_moms[$y] = $k_moms[$y];
$d_momskto[$y] = $k_modkto[$y];
$transantal++;
}
if ($d_momskto[$y] > 0) {
$transantal++;
}
if ($k_momskto[$y] > 0) {
$transantal++;
}
if ($eufaktnr[$y] != $faktura[$y] && $d_momskto[$y] > 0 && $k_momskto[$y] > 0 && $d_momskto[$y] != $k_momskto[$y]) {
$transantal--;
}
# indsat 280807 grundet fejl ved konti (i kontoplan) m. eumoms
if ($debet[$y] > 0) {
$tjeksum = $tjeksum + $d_amount[$y];
$d_momskto[$y] ? $tmp = $d_moms[$y] * 1 : ($tmp = 0);
db_modify("insert into {$tabel} (kontonr,bilag,transdate,logdate,logtime,beskrivelse,debet,faktura,kladde_id,afd,ansat,projekt,valuta,valutakurs,ordre_id,moms)values({$debet[$y]},{$bilag[$y]},'{$transdate[$y]}','{$logdate}','{$logtime}','{$beskrivelse[$y]}','{$d_amount[$y]}','{$faktura[$y]}','{$kladde_id}','{$afd[$y]}', '{$ansat[$y]}','{$projekt[$y]}','{$valuta[$y]}','{$valutakurs[$y]}','{$ordre_id[$y]}','{$tmp}')", __FILE__ . " linje " . __LINE__);
$query = db_select("select * from {$tabel} where kontonr='{$debet[$y]}' and bilag='{$bilag[$y]}' and transdate='{$transdate[$y]}' and logdate='{$logdate}' and logtime='{$logtime}' and beskrivelse='{$beskrivelse[$y]}' and debet='{$d_amount[$y]}' and faktura='{$faktura[$y]}' and kladde_id='{$kladde_id}' and afd='{$afd[$y]}'", __FILE__ . " linje " . __LINE__);
if (db_fetch_array($query)) {
$transtjek++;
$query = db_select("select id, saldo from kontoplan where kontonr='{$debet[$y]}' and regnskabsaar={$regnaar}", __FILE__ . " linje " . __LINE__);
$row = db_fetch_array($query);
$kasklid[$transtjek] = $row[id];
$kasklmonth[$transtjek] = $row[saldo];
$transamount[$transtjek] = $d_amount[$y];
} else {
print "<tr><td>Der er sket en fejl ved bogføring af bilag: {$bilag[$y]}, debetkonto: {$debet[$y]}!</td></tr>";
}
}
if ($kredit[$y] > 0) {
$tjeksum = $tjeksum - $k_amount[$y];
$k_momskto[$y] ? $tmp = $k_moms[$y] * -1 : ($tmp = 0);
db_modify("insert into {$tabel} (kontonr,bilag,transdate,logdate,logtime,beskrivelse,kredit,faktura,kladde_id,afd,ansat,projekt,valuta,valutakurs,ordre_id,moms)values({$kredit[$y]},{$bilag[$y]},'{$transdate[$y]}','{$logdate}','{$logtime}','{$beskrivelse[$y]}','{$k_amount[$y]}','{$faktura[$y]}','{$kladde_id}','{$afd[$y]}','{$ansat[$y]}','{$projekt[$y]}','{$valuta[$y]}','{$valutakurs[$y]}','{$ordre_id[$y]}','{$tmp}')", __FILE__ . " linje " . __LINE__);
$query = db_select("select * from {$tabel} where kontonr='{$kredit[$y]}' and bilag={$bilag[$y]} and transdate='{$transdate[$y]}' and logdate='{$logdate}' and logtime='{$logtime}' and beskrivelse='{$beskrivelse[$y]}' and kredit='{$k_amount[$y]}' and faktura='{$faktura[$y]}' and kladde_id={$kladde_id} and afd={$afd[$y]}", __FILE__ . " linje " . __LINE__);
if (db_fetch_array($query)) {
$transtjek++;
$query = db_select("select id, saldo from kontoplan where kontonr='{$kredit[$y]}' and regnskabsaar={$regnaar}", __FILE__ . " linje " . __LINE__);
$row = db_fetch_array($query);
$kasklid[$transtjek] = $row['id'];
$kasklmonth[$transtjek] = $row['saldo'];
$transamount[$transtjek] = $k_amount[$y] * -1;
} else {
print "<tr><td>Der er sket en fejl ved bogføring af bilag: {$bilag[$y]}, kreditkonto: {$kredit[$y]}!</td></tr>";
}
}
if ($d_momskto[$y] > 0) {
#moms af debetpostering
$tjeksum = $tjeksum + $d_moms[$y];
#cho "C insert into $tabel (kontonr,bilag,transdate,logdate,logtime,beskrivelse,debet,faktura,kladde_id,afd,ansat, projekt,valuta,valutakurs,ordre_id,moms)values($d_momskto[$y],$bilag[$y],'$transdate[$y]','$logdate','$logtime','$beskrivelse[$y]','$d_moms[$y]','$faktura[$y]','$kladde_id','$afd[$y]','$ansat[$y]','$projekt[$y]','$valuta[$y]','$valutakurs[$y]','$ordre_id[$y]','0')<br>";
db_modify("insert into {$tabel} (kontonr,bilag,transdate,logdate,logtime,beskrivelse,debet,faktura,kladde_id,afd,ansat, projekt,valuta,valutakurs,ordre_id,moms)values({$d_momskto[$y]},{$bilag[$y]},'{$transdate[$y]}','{$logdate}','{$logtime}','{$beskrivelse[$y]}','{$d_moms[$y]}','{$faktura[$y]}','{$kladde_id}','{$afd[$y]}','{$ansat[$y]}','{$projekt[$y]}','{$valuta[$y]}','{$valutakurs[$y]}','{$ordre_id[$y]}','0')", __FILE__ . " linje " . __LINE__);
$query = db_select("select * from {$tabel} where kontonr={$d_momskto[$y]} and bilag={$bilag[$y]} and transdate='{$transdate[$y]}' and logdate='{$logdate}' and logtime='{$logtime}' and beskrivelse='{$beskrivelse[$y]}' and debet='{$d_moms[$y]}' and faktura='{$faktura[$y]}' and kladde_id={$kladde_id} and afd={$afd[$y]}", __FILE__ . " linje " . __LINE__);
if (db_fetch_array($query)) {
$transtjek++;
$query = db_select("select id, saldo from kontoplan where kontonr='{$d_momskto[$y]}' and regnskabsaar={$regnaar}", __FILE__ . " linje " . __LINE__);
$row = db_fetch_array($query);
$kasklid[$transtjek] = $row['id'];
$kasklmonth[$transtjek] = $row['saldo'];
$transamount[$transtjek] = $d_moms[$y];
} else {
print "<tr><td>Der er sket en fejl ved bogføring af bilag: {$bilag[$y]}, debetkonto: {$d_momskto[$y]}!</td></tr>";
}
}
if ($k_momskto[$y] > 0) {
#moms af kreditpostering
$tjeksum = $tjeksum - $k_moms[$y];
#cho "D insert into $tabel (kontonr,bilag,transdate,logdate,logtime,beskrivelse,kredit,faktura,kladde_id,afd,ansat,projekt,valuta,valutakurs,ordre_id,moms)values($k_momskto[$y],$bilag[$y],'$transdate[$y]','$logdate','$logtime','$beskrivelse[$y]','$k_moms[$y]','$faktura[$y]','$kladde_id','$afd[$y]','$ansat[$y]','$projekt[$y]','$valuta[$y]','$valutakurs[$y]','$ordre_id[$y]','0')<br>";
db_modify("insert into {$tabel} (kontonr,bilag,transdate,logdate,logtime,beskrivelse,kredit,faktura,kladde_id,afd,ansat,projekt,valuta,valutakurs,ordre_id,moms)values({$k_momskto[$y]},{$bilag[$y]},'{$transdate[$y]}','{$logdate}','{$logtime}','{$beskrivelse[$y]}','{$k_moms[$y]}','{$faktura[$y]}','{$kladde_id}','{$afd[$y]}','{$ansat[$y]}','{$projekt[$y]}','{$valuta[$y]}','{$valutakurs[$y]}','{$ordre_id[$y]}','0')", __FILE__ . " linje " . __LINE__);
$query = db_select("select * from {$tabel} where kontonr={$k_momskto[$y]} and bilag={$bilag[$y]} and transdate='{$transdate[$y]}' and logdate='{$logdate}' and logtime='{$logtime}' and beskrivelse='{$beskrivelse[$y]}' and kredit='{$k_moms[$y]}' and faktura='{$faktura[$y]}' and kladde_id={$kladde_id} and afd={$afd[$y]}", __FILE__ . " linje " . __LINE__);
if (db_fetch_array($query)) {
$transtjek++;
$query = db_select("select id, saldo from kontoplan where kontonr='{$k_momskto[$y]}' and regnskabsaar={$regnaar}", __FILE__ . " linje " . __LINE__);
$row = db_fetch_array($query);
$kasklid[$transtjek] = $row['id'];
$kasklmonth[$transtjek] = $row['saldo'];
$transamount[$transtjek] = $k_moms[$y] * -1;
} else {
print "<tr><td>Der er sket en fejl ved bogføring af bilag: {$bilag[$y]}, kreditkonto: {$k_momskto[$y]}!</td></tr>";
}
}
}
if ($b_diff) {
$kontoliste = array();
# 20131115 ->
$kontokredit[$y] = array();
$kontodebet[$y] = array();
for ($i = 1; $i <= $b_antal; $i++) {
if ($bilag[$i] != $bilag[$i - 1] && $bilag[$i] != $bilag[$i + 1] && (!$debet[$i] || !$kredit[$i]) && $valuta[$i] != $valuta[$i - 1]) {
# 20131117 -- 20140228 tilføjet: && $valuta[$i] != $valuta[$i-1]
print "<BODY onLoad=\"javascript:alert('Manglende modpostering i bilag {$bilag[$i]}!')\">";
exit;
}
# <- 20131115
$valutasum[$i] = afrund($valutasum[$i], 3);
$b_sum[$i] = afrund($b_sum[$i], 2);
if (!in_array($b_diffkonto[$i], $kontoliste)) {
$y++;
$kontoliste[$y] = $b_diffkonto[$i];
$kontokredit[$y] = 0;
$kontodebet[$y] = 0;
}
if ($b_sum[$i] > 0) {
$k_sum = $k_sum + $b_sum[$i];
$kontokredit[$y] = $kontokredit[$y] + $b_sum[$i];
$tjeksum = $tjeksum + $b_sum[$i];
#20141128
} else {
$d_sum = $d_sum - $b_sum[$i];
$kontodebet[$y] = $kontodebet[$y] - $b_sum[$i];
$tjeksum = $tjeksum + $b_sum[$i];
#20150527
}
if (($kontokredit[$y] || $kontodebet[$y]) && $b_diffkonto[$i]) {
$qtxt = "select * from kontoplan where kontonr='{$b_diffkonto[$i]}' and regnskabsaar='{$regnaar}'";
$query = db_select($qtxt, __FILE__ . " linje " . __LINE__);
if ($row = db_fetch_array($query)) {
$saldo = $row['saldo'];
$a = dkdecimal($saldo);
$b = dkdecimal($kontodebet[$y]);
$c = dkdecimal($kontokredit[$y]);
$d = dkdecimal($saldo + $kontodebet[$y] - $kontokredit[$y]);
$beskrivelse = db_escape_string($row['beskrivelse']);
$qtxt = "insert into {$tabel} (kontonr,bilag,transdate,logdate,logtime,beskrivelse,debet,kredit,faktura,kladde_id,afd,ansat,projekt,valuta,valutakurs,ordre_id,moms)values('{$b_diffkonto[$i]}','{$b_bilag[$i]}','{$b_transdate[$i]}','{$logdate}','{$logtime}','{$beskrivelse}','{$kontodebet[$y]}','{$kontokredit[$y]}','{$v_faktura[$i]}','{$kladde_id}','{$b_afd[$i]}','{$b_ansat[$i]}','{$b_projekt[$i]}','{$b_valuta[$i]}','{$b_kurs[$i]}','{$b_ordre_id[$i]}','0')";
db_modify($qtxt, __FILE__ . " linje " . __LINE__);
} else {
print "<BODY onLoad=\"javascript:alert('Konto {$b_diffkonto[$i]} til valutadifferncer eksisterer ikke!')\">";
exit;
}
} elseif (($kontokredit[$y] || $kontodebet[$y]) && !$b_diffkonto[$i] && $valuta[$i]) {
#20131028 -- 20140228 tilføjet: && $valuta[$i
print "<BODY onLoad=\"javascript:alert('Manglende konto til valutadiffencer! (bilag: {$b_bilag[$i]})')\">";
exit;
}
}
}
#cho "$tjeksum<br>";
#xit;
if (abs($tjeksum) <= 0.01) {
# && $transtjek==$transantal){
$dato = date("Y-m-d");
if ($simuler) {
$qtxt = "update kladdeliste set bogfort = 'S', bogforingsdate = '{$dato}', bogfort_af = '{$brugernavn}' where id = '{$kladde_id}'";
#cho "$qtxt<br>";
db_modify($qtxt, __FILE__ . " linje " . __LINE__);
} else {
$qtxt = "update kladdeliste set bogfort = 'V', bogforingsdate = '{$dato}', bogfort_af = '{$brugernavn}' where id = '{$kladde_id}'";
#cho "$qtxt<br>";
db_modify("update kladdeliste set bogfort = 'V', bogforingsdate = '{$dato}', bogfort_af = '{$brugernavn}' where id = '{$kladde_id}'", __FILE__ . " linje " . __LINE__);
for ($x = 1; $x <= $transtjek; $x++) {
$query = db_select("select saldo from kontoplan where id='{$kasklid[$x]}'", __FILE__ . " linje " . __LINE__);
$row = db_fetch_array($query);
$temp = $row[saldo];
if (!$temp) {
$temp = 0;
}
$transamount[$x] = $temp + $transamount[$x];
db_modify("update kontoplan set saldo = {$transamount[$x]} where id = '{$kasklid[$x]}'", __FILE__ . " linje " . __LINE__);
}
}
#xit;
} else {
print "<tr><td align=center>{$font} Der er konstateret en afvigelse!\nKladde ikke bogført\nKontakt venligst Saldi's udviklerteam!</td></tr>";
exit;
}
#xit;
}
} else {
finansopslag($fokus, $opslag_id);
}
}
if (strstr($fokus, "kred") || strstr($fokus, "k_ty")) {
if ($k_type[$opslag_id] == "K") {
kreditoropslag('firmanavn', $fokus, $opslag_id, $id[$opslag_id], $kladde_id, $bilag[$opslag_id], $dato[$opslag_id], $beskrivelse[$opslag_id], $d_type[$opslag_id], $debet[$opslag_id], $k_type[$opslag_id], $kredit[$opslag_id], $faktura[$opslag_id], $belob[$opslag_id], $momsfri[$opslag_id], $afd[$opslag_id], $projekt[$opslag_id], $ansat[$opslag_id], $valuta[$opslag_id], $forfaldsdato[$opslag_id], $betal_id[$opslag_id], $opslag_id);
}
if ($k_type[$opslag_id] == "D") {
debitoropslag('firmanavn', $fokus, $opslag_id, $id[$opslag_id], $kladde_id, $bilag[$opslag_id], $dato[$opslag_id], $beskrivelse[$opslag_id], $d_type[$opslag_id], $debet[$opslag_id], $k_type[$opslag_id], $kredit[$opslag_id], $faktura[$opslag_id], $belob[$opslag_id], $momsfri[$opslag_id], $afd[$opslag_id], $projekt[$opslag_id], $ansat[$opslag_id], $valuta[$opslag_id], $forfaldsdato[$opslag_id], $betal_id[$opslag_id], $opslag_id);
} else {
finansopslag($fokus, $opslag_id);
}
}
if (strstr($fokus, "fakt") || strstr($fokus, "belo")) {
openpost('firmanavn', $fokus, $opslag_id, $id[$opslag_id], $kladde_id, $bilag[$opslag_id], $dato[$opslag_id], $beskrivelse[$opslag_id], $d_type[$opslag_id], $debet[$opslag_id], $k_type[$opslag_id], $kredit[$opslag_id], $faktura[$opslag_id], $belob[$opslag_id], $momsfri[$opslag_id], $afd[$opslag_id], $projekt[$opslag_id], $ansat[$opslag_id], $valuta[$opslag_id], $forfaldsdato[$opslag_id], $betal_id[$opslag_id], $opslag_id);
}
if (strstr($fokus, "afd")) {
afd_opslag($fokus, $opslag_id, $opslag_id);
}
if (strstr($fokus, "meda")) {
ansat_opslag($fokus, $opslag_id, $opslag_id);
}
if (strstr($fokus, "proj")) {
projekt_opslag($fokus, $opslag_id, $opslag_id);
}
if (strstr($fokus, "valu")) {
valuta_opslag($fokus, $opslag_id, $opslag_id);
}
}
if (strstr($submit, "Simul")) {
include "../includes/std_func.php";
include "../includes/forfaldsdag.php";
include "../includes/autoudlign.php";
include "../includes/rapportfunc.php";
if ($popup) {
$returside = "../includes/luk.php";
} else {
$returside = "../index/menu.php";
}
if (isset($_GET['ny_rykker'])) {
$dato_fra = $_GET['dato_fra'];
$dato_til = $_GET['dato_til'];
$konto_fra = $_GET['konto_fra'];
$konto_til = $_GET['konto_til'];
# $regnaar=$_GET['regnaar'];
openpost($dato_fra, $dato_til, $konto_fra, $konto_til, $rapportart, 'K');
exit;
} elseif ($rapportart = if_isset($_GET['rapportart'])) {
$dato_fra = $_GET['dato_fra'];
$dato_til = $_GET['dato_til'];
$konto_fra = $_GET['konto_fra'];
$konto_til = $_GET['konto_til'];
if ($udlign = $_GET['udlign']) {
autoudlign($udlign);
}
$rapportart($dato_fra, $dato_til, $konto_fra, $konto_til, $rapportart, 'K');
exit;
}
$rapportart = NULL;
if (isset($_POST['find'])) {
# echo "find";