示例#1
0
 if ($row['art'] == 'DK') {
     print "<td align={$justering['0']} {$javascript} style='color:{$color}'> (KN)&nbsp;{$linjetext} {$understreg} {$row['ordrenr']}{$hrefslut}</span><br></td>";
 } else {
     print "<td align={$justering['0']} {$javascript} style='color:{$color}'> {$linjetext} {$understreg} {$row['ordrenr']}{$hrefslut}</span><br></td>";
 }
 #		print "<td></td>";
 $row['ordredato'] = dkdato($row['ordredate']);
 #		print "<td>$ordredato<br></td>";
 #		$levdato=dkdato($row['levdate']);
 #		print "<td>$levdato<br></td>";
 #		print"<td></td>";
 for ($x = 1; $x < $vis_feltantal; $x++) {
     print "<td align={$justering[$x]} style='color:{$color}'>";
     if ($vis_felt[$x] == "sum" || $vis_felt[$x] == 'sum_m_moms') {
         if ($genberegn) {
             $kostpris = genberegn($row['id']);
         }
         if ($valutakurs && $valutakurs != 100) {
             $sum = $sum * $valutakurs / 100;
             $sum_m_moms = $sum_m_moms * $valutakurs / 100;
             $kostpris = $kostpris * $valutakurs / 100;
             #					$sum=bidrag($sum, $kostpris,'1');
             #					print "a".dkdecimal($sum,2);
             #					$tmp=dkdecimal($sum,2);
         } elseif ($valg != 'faktura') {
             if ($vis_felt[$x] == "sum") {
                 print dkdecimal($sum, 2);
             } else {
                 print dkdecimal($sum_m_moms, 2);
             }
         }
示例#2
0
            $id = $row['id'];
        }
    } elseif ($id > 0) {
        if (!$fra_kto) {
            $fra_kto = 0;
        }
        if (!$til_kto) {
            $til_kto = 0;
        }
        if ($r = db_fetch_array(db_select("select id from kontoplan where kontonr = {$kontonr} and regnskabsaar = '{$regnaar}' and id!='{$id}'", __FILE__ . " linje " . __LINE__))) {
            print "<BODY onLoad=\"javascript:alert('Der findes allerede en konto med nr: {$kontonr}')\">";
        } else {
            db_modify("update kontoplan set kontonr = {$kontonr}, beskrivelse = '{$beskrivelse}', kontotype = '{$kontotype}', moms = '{$moms}', fra_kto = '{$fra_kto}', til_kto = '{$til_kto}', genvej='{$genvej}', lukket = '{$lukket}' where id = '{$id}'", __FILE__ . " linje " . __LINE__);
        }
    }
    genberegn($regnaar);
}
if ($id > 0) {
    $query = db_select("select * from kontoplan where id = '{$id}'", __FILE__ . " linje " . __LINE__);
    if ($row = db_fetch_array($query)) {
        $id = $row['id'];
        $kontonr = $row['kontonr'] * 1;
        $beskrivelse = htmlentities(stripslashes($row['beskrivelse']), ENT_COMPAT, $charset);
        $kontotype = $row['kontotype'];
        #		$katagori=$row['katagori'];
        $moms = $row['moms'];
        $fra_kto = $row['fra_kto'];
        #		$til_kto=$row['til_kto'];
        $genvej = $row['genvej'];
        $lukket = $row['lukket'];
        $saldo = $row['saldo'] * 1;
示例#3
0
                }
                db_modify("update kontoplan set  saldo='{$saldo[$x]}' where id='{$konto_id[$x]}'", __FILE__ . " linje " . __LINE__);
            }
        }
        $y = date('Y') - 1;
        $m = date('m');
        $d = date('d');
        while (!checkdate($m, $d, $y)) {
            #Skudår !
            $d = $d - 1;
            if ($d < 28) {
                break 1;
            }
        }
        $tmp = $y . "-" . $m . "-" . $d;
        $r = db_fetch_array(db_select("select count(id) as transantal from transaktioner where transdate>='{$tmp}'", __FILE__ . " linje " . __LINE__));
        $transantal = $r['transantal'] * 1;
        $logdate = date("Y-m-d");
        $logtime = date("H:i:s");
        db_modify("update grupper set box7='{$logdate}',box8='{$logtime}' where art='RA' and kodenr='{$regnskabsaar}'", __FILE__ . " linje " . __LINE__);
        include "../includes/connect.php";
        db_modify("update regnskab set  posteret='{$transantal}' where id='{$db_id}'", __FILE__ . " linje " . __LINE__);
        include "../includes/online.php";
    }
}
if (isset($_GET['regnskabsaar']) && ($regnskabsaar = $_GET['regnskabsaar'])) {
    include "../includes/connect.php";
    include "../includes/online.php";
    print "Genberegner regnskabsaar {$regnskabsaar}<br>";
    genberegn($regnskabsaar);
}
示例#4
0
function bogfor_nu($id, $kilde)
{
    include "../includes/genberegn.php";
    include "../includes/forfaldsdag.php";
    global $db;
    global $regnaar;
    global $valuta;
    global $valutakurs;
    global $difkto;
    global $title;
    $kilde == 'on' ? $webservice = 'on' : ($webservice = NULL);
    /*
    	$r = db_fetch_array(db_select("select box7 from grupper where art = 'DIV' and kodenr = '3'",__FILE__ . " linje " . __LINE__));
    	$tjek_lagerdiff=$r['box7'];
    	if ($tjek_lagerdiff) {
    		include("../includes/genberegn.php");
    		include("../includes/lagervaerdi.php");
    		$pre_stockvalue=lagervaerdi($regnaar);
    		$pre_finans=finanslager($regnaar);
    		$pre_lagerdiff=$pre_finans-$pre_stockvalue;
    #cho "$pre_lagerdiff=$pre_finans-$pre_stockvalue<br>";
    	}
    */
    #	print "<table><tbody>";
    $svar = "OK";
    $regnaar = $regnaar * 1;
    #20130820 -->
    $x = 0;
    if ($webservice) {
        $qtxt = "select distinct(kontonr) as kontonr from kontoplan where (kontotype='D' or kontotype='S')";
    } else {
        $qtxt = "select kontonr from kontoplan where regnskabsaar='{$regnaar}' and (kontotype='D' or kontotype='S')";
    }
    $q = db_select($qtxt, __FILE__ . " linje " . __LINE__);
    while ($r = db_fetch_array($q)) {
        $kontoplan[$x] = $r['kontonr'];
        $x++;
    }
    # <-- 20130820
    #	$fp=fopen("../temp/bogfor_nu.log","w");
    #	$linje="select * from ordrer where id = $id";
    #	fwrite($fp,$qtxt."\n");
    $d_kontrol = 0;
    $k_kontrol = 0;
    $logdate = date("Y-m-d");
    $logtime = date("H:i");
    $uxtid = date("U");
    $q = db_select("select box1, box2, box3, box4, box5 from grupper where art='RB'", __FILE__ . " linje " . __LINE__);
    if ($r = db_fetch_array($q)) {
        if (trim($r['box3']) == "on") {
            $faktbill = 1;
        } else {
            $faktbill = 0;
        }
        if (trim($r['box4']) == "on") {
            $modtbill = 1;
        } else {
            $modtbill = 0;
        }
        if (trim($r['box5']) == "on") {
            $no_faktbill = 1;
            $faktbill = 0;
        } else {
            $no_faktbill = 0;
        }
    }
    $projekt = array();
    $idliste = array();
    if (is_numeric($id)) {
        $tmp = "id = '" . $id . "'";
    } else {
        $idliste = explode(",", $id);
        $antal = count($idliste);
        #cho " id er array<br>";
        $tmp = "(id = '" . $idliste[0] . "'";
        for ($x = 1; $x < $antal; $x++) {
            $tmp .= " or id = '" . $idliste[$x] . "'";
        }
        $tmp .= ")";
    }
    $x = 0;
    $moms = 0;
    $sum = 0;
    $modtaget = 0;
    $modtaget2 = 0;
    $betaling = array();
    #20150518 (Denne og de to næste er flyttet fra "over select * from pos_betalinger")
    $modtaget = array();
    #20150518
    $bnr = -1;
    #20150518
    #cho "select * from ordrer where $tmp<br>";
    $q = db_select("select * from ordrer where {$tmp}", __FILE__ . " linje " . __LINE__);
    while ($r = db_fetch_array($q)) {
        #cho "Sum $r[sum] $r[moms]<br>";
        $art = $r['art'];
        if ($kilde == 'Dagsafslutning') {
            $art = 'PO';
        }
        $ordre_id = $r['id'];
        #20120905
        $konto_id = $r['konto_id'];
        $kontonr = str_replace(" ", "", $r['kontonr']);
        $firmanavn = trim($r['firmanavn']);
        $modtagelse = $r['modtagelse'];
        $transdate = $r['fakturadate'];
        $fakturanr = $r['fakturanr'];
        $ordrenr = $r['ordrenr'];
        $momssats = $r['momssats'] * 1;
        #cho "$firmanavn | $ordrenr<br>";
        $valuta = $r['valuta'];
        $kred_ord_id = $r['kred_ord_id'];
        if (!$valuta) {
            $valuta = 'DKK';
        }
        $projekt[0] = $r['projekt'];
        $betalingsbet = $r['betalingsbet'];
        $betalingsdage = $r['betalingsdage'] * 1;
        $betalt = $r['betalt'] * 1;
        /*
        		if ($art=='PO') {
        			$betaling=$r['felt_1'];
        			$modtaget+=$r['felt_2'];
        			$betaling2=$r['felt_3'];
        			$modtaget2+=$r['felt_4'];
        			$kasse=$r['felt_5']*1;
        			if ($betalingsbet=='Kontant') {
        				$konto_id=0;
        				$kontonr=NULL;
        			}
        		} else $kasse=0;
        */
        if ($art == 'PO') {
            #20150505
            $qtxt = "select * from pos_betalinger where ordre_id='{$ordre_id}' order by betalingstype";
            $q2 = db_select($qtxt, __FILE__ . " linje " . __LINE__);
            while ($r2 = db_fetch_array($q2)) {
                #				for ($c=0;$c<count($betaling);$c++) echo "$bnr | $c | $bnretaling[$c]==$r2[betalingstype] | $r2[amount]<br>";
                if (in_array($r2['betalingstype'], $betaling)) {
                    #cho __line__."<br>";
                    for ($c = 0; $c < count($betaling); $c++) {
                        if ($betaling[$c] == $r2['betalingstype']) {
                            $modtaget[$c] += $r2['amount'];
                            #cho "B $betaling[$c]==$r2[betalingstype] --> $modtaget[$c] -- $r2[amount]<br>";
                        }
                    }
                } else {
                    $bnr++;
                    $betaling[$bnr] = $r2['betalingstype'];
                    $modtaget[$bnr] = $r2['amount'];
                }
            }
            $kasse = $r['felt_5'] * 1;
            if ($betalingsbet == 'Kontant') {
                $konto_id = 0;
                $kontonr = NULL;
            }
        } else {
            $kasse = 0;
        }
        #		$refnr;
        if ($momssats) {
            $moms += $r['moms'] * 1;
        }
        #		else {$moms=afrund($r['sum']*$r['momssats']/100,2);}
        $sum += $r['sum'] + $r['moms'];
        $ordreantal = $x;
        $forfaldsdate = usdate(forfaldsdag($r['fakturadate'], $betalingsbet, $betalingsdage));
        if ($art == 'PO') {
            $r2 = db_fetch_array(db_select("select id, afd from ansatte where initialer = '{$r['ref']}'", __FILE__ . " linje " . __LINE__));
        } else {
            $r2 = db_fetch_array(db_select("select id, afd from ansatte where navn = '{$r['ref']}'", __FILE__ . " linje " . __LINE__));
        }
        $afd = $r2['afd'] * 1;
        #sikkerhed for at 'afd' har en vaerdi
        $ansat = $r2['id'] * 1;
        if ($no_faktbill == 1) {
            $bilag = '0';
        } else {
            $bilag = trim($fakturanr);
        }
        $udlign = 0;
    }
    #	if ($sum) {
    /*
    		if ($art=='PO' && $betalt >= $sum) {
    			$kontonr=0;
    			$konto_id=0;
    		}
    */
    if ($art != 'PO') {
        $r = db_fetch_array(db_select("select gruppe from adresser where id='{$konto_id}'", __FILE__ . " linje " . __LINE__));
        $debitorgruppe = $r['gruppe'];
        $r = db_fetch_array(db_select("select box1 from grupper where art='DG' and kodenr='{$debitorgruppe}'", __FILE__ . " linje " . __LINE__));
        $momskode = substr(trim($r['box1']), 1, 1);
        if ($moms && !$momskode) {
            return "Debitorgruppe {$debitorgruppe} ikke tilnkyttet en momsgruppe";
        }
    } else {
        #saa er det en kontantordre
        #			global $kasse;
        #			global $betaling;
        #			global $betaling2;
        #			global $modtaget;
        #			global $modtaget2;
        $tmparray = array();
        $r = db_fetch_array(db_select("select * from grupper where art = 'POS' and kodenr = '1'", __FILE__ . " linje " . __LINE__));
        $tmparray = explode(chr(9), $r['box7']);
        $momskode = $tmparray[$kasse - 1];
        if ($moms && !$momskode) {
            return "Fejl i momskode for kasse {$kasse}!";
        }
    }
    if (!is_numeric($id) || $betalingsbet == "Kontant" || $betalingsbet == "Kreditkort" || $betalingsbet == "Forud" && $art == 'PO') {
        #20130820+20150306
        $tmp = NULL;
        $openpost = NULL;
        $r = db_fetch_array(db_select("select * from grupper where art = 'DIV' and kodenr = '3'", __FILE__ . " linje " . __LINE__));
        #cho "select * from grupper where art = 'DIV' and kodenr = '3'<br>";
        if ($betalingsbet == "Kontant") {
            $tmp = $r['box7'];
        } elseif ($betalingsbet == "Kreditkort") {
            $tmp = $r['box10'];
        }
        #cho "tmp $tmp<br>";
        if ($tmp) {
            if (in_array($tmp, $kontoplan)) {
                $openpost = NULL;
                $kontonr = $tmp;
            } else {
                $tekst = "Kontonummer for {$betalingsbet} er ikke gyldigt\\nTjek Indstillinger > Diverse >Ordrerelaterede valg";
                return $tekst;
            }
        } else {
            $openpost = 1;
        }
    } elseif ($art == 'PO' && !$kontonr) {
        $openpost = NULL;
    } else {
        $openpost = 1;
    }
    if (substr($art, 1, 1) == 'K' && $openpost && $kred_ord_id) {
        $beskrivelse = "Kreditnota - " . $fakturanr;
        $r = db_fetch_array(db_select("select fakturanr,fakturadate from ordrer where id='{$kred_ord_id}'", __FILE__ . " linje " . __LINE__));
        $tmp = $sum * -1;
        if ($r2 = db_fetch_array(db_select("select * from openpost  where konto_id='{$konto_id}' and amount='{$tmp}' and faktnr='{$r['fakturanr']}' and transdate='{$r['fakturadate']}' and udlignet != '1'", __FILE__ . " linje " . __LINE__))) {
            $transdate > $r2['transdate'] ? $udlign_date = $transdate : ($udlign_date = $r2['transdate']);
            $r2 = db_fetch_array(db_select("select max(udlign_id) as udlign_id from openpost", __FILE__ . " linje " . __LINE__));
            $udlign_id = $r2['udlign_id'] + 1;
            db_modify("update openpost set udlignet='1',udlign_date='{$udlign_date}',udlign_id='{$udlign_id}' where konto_id='{$konto_id}' and amount='{$tmp}' and faktnr='{$r['fakturanr']}' and transdate='{$r['fakturadate']}'", __FILE__ . " linje " . __LINE__);
            $udlign = 1;
        }
    } elseif ($art == 'PO') {
        is_numeric($id) ? $beskrivelse = "Bon - " . $fakturanr : ($beskrivelse = "Kontantsalg kasse - " . $kasse);
        if ($kilde == 'Dagsafslutning') {
            $beskrivelse = $kilde . " - kassenr: " . $kasse;
        }
    } elseif ($openpost) {
        $beskrivelse = "Faktura - " . $fakturanr;
    } elseif ($betalingsbet == "Kontant") {
        $beskrivelse = "Kontantsalg: Faktura - " . $fakturanr;
    } else {
        $beskrivelse = "Kreditkort salg: Faktura - " . $fakturanr;
    }
    # 20120905 - Indsat grundet dobbelt bogforing af ordre id 4207 i regnskab saldi_510
    #cho "select id from transaktioner where ordre_id='$ordre_id'<br>";
    if ($r = db_fetch_array(db_select("select id,ordre_id from transaktioner where ordre_id='{$ordre_id}'", __FILE__ . " linje " . __LINE__))) {
        $tekst = "Bogf&oslash;ring afbrudt - tjek kontrolspor (id {$r['id']} oid {$r['ordre_id']})";
        print "<BODY onLoad=\"javascript:alert('{$tekst}')\">";
        return $tekst;
    }
    if ($kontonr && $openpost) {
        $tmp = $sum;
        if (db_fetch_array(db_select("select id from openpost where konto_id='{$konto_id}' and konto_nr='{$kontonr}' and faktnr='{$fakturanr}' and amount='{$tmp}' and beskrivelse='{$beskrivelse}' and udlignet='{$udlign}' and transdate='{$transdate}' and kladde_id='{$udlign}' and refnr='{$id}' and valuta='{$valuta}' and valutakurs='{$valutakurs}' and forfaldsdate='{$forfaldsdate}'", __FILE__ . " linje " . __LINE__))) {
            $tekst = "Bogf&oslash;ring afbrudt - tjek kontrolspor";
            print "<BODY onLoad=\"javascript:alert('{$tekst}')\">";
            return $tekst;
        }
        if ($udlign && $udlign_id && $udlign_date) {
            db_modify("insert into openpost (konto_id,konto_nr,faktnr,amount,beskrivelse,udlignet,udlign_id,udlign_date,transdate,uxtid,kladde_id,refnr,valuta,valutakurs,forfaldsdate,projekt) values ('{$konto_id}','{$kontonr}','{$fakturanr}','{$tmp}','{$beskrivelse}','{$udlign}','{$udlign_id}','{$udlign_date}','{$transdate}','{$uxtid}','{$udlign}','{$id}','{$valuta}','{$valutakurs}','{$forfaldsdate}','{$projekt['0']}')", __FILE__ . " linje " . __LINE__);
        } else {
            db_modify("insert into openpost (konto_id,konto_nr,faktnr,amount,beskrivelse,udlignet,transdate,uxtid,kladde_id,refnr,valuta,valutakurs,forfaldsdate,projekt) values ('{$konto_id}','{$kontonr}','{$fakturanr}','{$tmp}','{$beskrivelse}','{$udlign}','{$transdate}','{$uxtid}','{$udlign}','{$id}','{$valuta}','{$valutakurs}','{$forfaldsdate}','{$projekt['0']}')", __FILE__ . " linje " . __LINE__);
        }
        $r = db_fetch_array(db_select("select max(id) as id from openpost where konto_id = '{$konto_id}' and faktnr = '{$fakturanr}' and refnr='{$id}'", __FILE__ . " linje " . __LINE__));
        $openpost_id = $r['id'];
        $r = db_fetch_array(db_select("select gruppe from adresser where id='{$konto_id}'", __FILE__ . " linje " . __LINE__));
        $r = db_fetch_array(db_select("select beskrivelse, box2 from grupper where art = 'DG' and kodenr='{$r['gruppe']}'", __FILE__ . " linje " . __LINE__));
        $kontonr = $r['box2'];
        # Kontonr aendres fra at vaere leverandoerkontonr til finanskontonr
        $tekst = "Kontonummer for Debitorgruppe `{$r['beskrivelse']}` er ikke gyldigt";
        if (!$kontonr && $webservice) {
            return $tekst;
        } elseif (!$kontonr) {
            print "<BODY onLoad=\"javascript:alert('{$tekst}')\">";
        }
    }
    if (!in_array($kontonr, $kontoplan) && $art != 'PO') {
        $tekst = "Kontonummer {$kontonr} findes ikke i kontoplanen for regnskabsaar {$regnaar}";
        return $tekst;
        exit;
    }
    if ($art == 'PO' && $sum) {
        #saa er det en kontantordre (POS)
        $retur = $sum;
        $tmparray = array();
        $r = db_fetch_array(db_select("select box6 from grupper where art = 'POS' and kodenr = '2'", __FILE__ . " linje " . __LINE__));
        $div_kort_kto = trim($r['box6']);
        $r = db_fetch_array(db_select("select * from grupper where art = 'POS' and kodenr = '1'", __FILE__ . " linje " . __LINE__));
        if (!$konto_id) {
            #20140616
            $tmparray = explode(chr(9), $r['box2']);
            $kassekto = $tmparray[$kasse - 1];
            $kontonr = $kassekto;
        }
        #else
        $tmparray = explode(chr(9), $r['box3']);
        $afd = $tmparray[$kasse - 1] * 1;
        $tmparray = explode(chr(9), $r['box5']);
        $kortantal = $r['box4'] * 1;
        $korttyper = explode(chr(9), $r['box5']);
        $kortkonti = explode(chr(9), $r['box6']);
        $kortnavn = NULL;
        if ($div_kort_kto) {
            #20140129
            for ($b = 0; $b < count($betaling); $b++) {
                #20150505
                if (strpos($betaling[$b], "|")) {
                    list($betaling[$b], $kortnavn) = explode("|", $betaling[$b]);
                }
            }
            #				if (strpos($betaling2,"|")) list($betaling2,$kortnavn)=explode("|",$betaling2);
            $korttyper[$kortantal] = 'Betalingskort';
            $kortkonti[$kortantal] = $div_kort_kto;
            $kortantal++;
        }
        for ($x = 0; $x < $kortantal; $x++) {
            #20150505
            #cho __LINE__." $korttyper[$x] -->";
            for ($b = 0; $b < count($betaling); $b++) {
                #cho __LINE__." $betaling[$b]==$korttyper[$x] -->";
                #cho "$modtaget[$b]<br>";
                if ($betaling[$b] == $korttyper[$x]) {
                    $kontonr = $kortkonti[$x];
                    #20150507
                    $debet = afrund($modtaget[$b], 2);
                    $kredit = '0';
                    $d_kontrol = $d_kontrol + $debet;
                    $k_kontrol = $k_kontrol + $kredit;
                    $retur = $retur - $modtaget[$b];
                    $sum = $sum - $modtaget[$b];
                    if ($debet) {
                        if (is_numeric($id)) {
                            $qtxt = "insert into transaktioner (bilag,transdate,beskrivelse,kontonr,faktura,debet,kredit,kladde_id,afd,logdate,logtime,projekt,ansat,ordre_id,kasse_nr) values ('0','{$transdate}','{$beskrivelse}','{$kortkonti[$x]}','{$fakturanr}','{$debet}','{$kredit}','0',{$afd},'{$logdate}','{$logtime}','{$projekt['0']}','{$ansat}','{$id}','{$kasse}')";
                        } else {
                            $qtxt = "insert into transaktioner (bilag,transdate,beskrivelse,kontonr,faktura,debet,kredit,kladde_id,afd,logdate,logtime,projekt,ansat,ordre_id,kasse_nr) values ('0','{$transdate}','{$beskrivelse}','{$kortkonti[$x]}','0','{$debet}','{$kredit}','0',{$afd},'{$logdate}','{$logtime}','{$projekt['0']}','{$ansat}','0','{$kasse}')";
                        }
                        db_modify($qtxt, __FILE__ . " linje " . __LINE__);
                        $qtxt = "update kontoplan set saldo=saldo+'{$debet}' where kontonr='{$kortkonti[$x]}' and regnskabsaar='{$regnaar}'";
                        db_modify($qtxt, __FILE__ . " linje " . __LINE__);
                    }
                }
                #xit;
                /*				
                				if ($betaling2==$korttyper[$x]) {
                					$debet=afrund($modtaget2,2);
                					$kredit='0';
                					$d_kontrol=$d_kontrol+$debet; $k_kontrol=$k_kontrol+$kredit;
                					$sum=$sum-$modtaget2;
                					if (is_numeric($id)) {
                						$qtxt="insert into transaktioner (bilag,transdate,beskrivelse,kontonr,faktura,debet,kredit,kladde_id,afd,logdate,logtime,projekt,ansat,ordre_id,kasse_nr) values ('0','$transdate','$beskrivelse','$kortkonti[$x]','$fakturanr','$debet','$kredit','0',$afd,'$logdate','$logtime','$projekt[0]','$ansat','$id','$kasse')";
                					} else {
                						$qtxt="insert into transaktioner (bilag,transdate,beskrivelse,kontonr,faktura,debet,kredit,kladde_id,afd,logdate,logtime,projekt,ansat,ordre_id,kasse_nr) values ('0','$transdate','$beskrivelse','$kortkonti[$x]','0','$debet','$kredit','0',$afd,'$logdate','$logtime','$projekt[0]','$ansat','0','$kasse')";
                					}
                					db_modify($qtxt,__FILE__ . " linje " . __LINE__);
                					$qtxt="update kontoplan set saldo=saldo+'$debet' where kontonr='$kortkonti[$x]' and regnskabsaar='$regnaar'";
                					db_modify($qtxt,__FILE__ . " linje " . __LINE__);
                				}
                */
            }
        }
        #cho __LINE__." $konto_id | $openpost -> $kontonr<br>";
        if (!$konto_id) {
            $kontonr = $kassekto;
        }
        #20150518 (Ellers fortsætter den med at bogføre på samme kontonr) #20150521
        #cho __LINE__." $konto_id-> $kontonr<br>";
    }
    $sum = afrund($sum, 3);
    if ($sum) {
        if ($sum > 0) {
            $debet = $sum;
            $kredit = '0';
        } else {
            $debet = '0';
            $kredit = $sum * -1;
        }
        if ($valutakurs) {
            $kredit = afrund($kredit * $valutakurs / 100, 3);
            $debet = afrund($debet * $valutakurs / 100, 3);
        }
        # Omregning til DKR.
        $d_kontrol = $d_kontrol + $debet;
        $k_kontrol = $k_kontrol + $kredit;
        $debet = afrund($debet, 2);
        $kredit = afrund($kredit, 2);
        if (is_numeric($id)) {
            $qtxt = "insert into transaktioner (bilag,transdate,beskrivelse,kontonr,faktura,debet,kredit,kladde_id,afd,logdate,logtime,projekt,ansat,ordre_id,kasse_nr) values ('0','{$transdate}','{$beskrivelse}','{$kontonr}','{$fakturanr}','{$debet}','{$kredit}','0',{$afd},'{$logdate}','{$logtime}','{$projekt['0']}','{$ansat}','{$id}','{$kasse}')";
        } else {
            $qtxt = "insert into transaktioner (bilag,transdate,beskrivelse,kontonr,faktura,debet,kredit,kladde_id,afd,logdate,logtime,projekt,ansat,ordre_id,kasse_nr) values ('0','{$transdate}','{$beskrivelse}','{$kontonr}','0','{$debet}','{$kredit}','0',{$afd},'{$logdate}','{$logtime}','{$projekt['0']}','{$ansat}','0','{$kasse}')";
        }
        #cho __LINE__." $qtxt<br>";
        #xit;
        db_modify($qtxt, __FILE__ . " linje " . __LINE__);
        $tmp = $debet - $kredit;
        $qtxt = "update kontoplan set saldo=saldo+'{$tmp}' where kontonr='{$kontonr}' and regnskabsaar='{$regnaar}'";
        db_modify($qtxt, __FILE__ . " linje " . __LINE__);
    }
    if ($valutakurs) {
        $maxdif = 2;
    }
    #Der tillades 2 oeres afrundingsdiff
    $p = 0;
    $projektliste = '';
    if (is_numeric($id)) {
        $tmp = "ordre_id = '" . $id . "'";
    } else {
        $idliste = explode(",", $id);
        $antal = count($idliste);
        $tmp = "(ordre_id = '" . $idliste[0] . "'";
        for ($x = 1; $x < $antal; $x++) {
            $tmp .= " or ordre_id = '" . $idliste[$x] . "'";
        }
        $tmp .= ")";
    }
    db_modify("update ordrelinjer set projekt='' where projekt is NULL and {$tmp}", __FILE__ . " linje " . __LINE__);
    $q = db_select("select distinct(projekt) from ordrelinjer where {$tmp} and vare_id >'0'", __FILE__ . " linje " . __LINE__);
    while ($r = db_fetch_array($q)) {
        #			if(trim($r['projekt'])) {
        $p++;
        $projekt[$p] = trim($r['projekt']);
        $projektliste ? $projektliste .= "<br>" . $projekt[$p] : ($projektliste = $projekt[$p]);
        #			}
    }
    $p ? $projektantal = $p : ($projektantal = 1);
    if ($projektliste && $openpost) {
        db_modify("update openpost set projekt='{$projektliste}' where id='{$openpost_id}'", __FILE__ . " linje " . __LINE__);
    }
    #		for ($p=1;$p<=$projektantal;$p++)
    for ($t = 1; $t <= 2; $t++) {
        for ($p = 1; $p <= $projektantal; $p++) {
            $y = 0;
            $tjek = array();
            $bogf_konto = array();
            if (is_numeric($id)) {
                $tmp = "ordre_id = '" . $id . "'";
            } else {
                $idliste = explode(",", $id);
                $antal = count($idliste);
                $tmp = "(ordre_id = '" . $idliste[0] . "'";
                for ($x = 1; $x < $antal; $x++) {
                    $tmp .= " or ordre_id = '" . $idliste[$x] . "'";
                }
                $tmp .= ")";
            }
            if ($t == 1) {
                $qtxt = "select * from ordrelinjer where {$tmp} and projekt='{$projekt[$p]}' and posnr>='0' order by bogf_konto";
            } else {
                $qtxt = "select * from ordrelinjer where {$tmp} and projekt='{$projekt[$p]}' and posnr<'0' order by bogf_konto";
            }
            #cho __LINE__."$qtxt<br>";
            $q = db_select($qtxt, __FILE__ . " linje " . __LINE__);
            while ($r = db_fetch_array($q)) {
                #cho __LINE__." $y<br>";
                if ($valutakurs && $valutakurs != 100) {
                    $maxdif = $maxdif + 2;
                }
                #Og yderligere 2 pr ordrelinje.
                if (!in_array($r['bogf_konto'], $bogf_konto)) {
                    $y++;
                    $bogf_konto[$y] = $r['bogf_konto'];
                    if ($r['rabatart'] == 'amount') {
                        #								$pris[$y]=$r['pris']*$r['antal']-($r['rabat']*$r['antal']); # remmet 20140424b
                        $linjesum = $r['pris'] * $r['antal'] - $r['rabat'] * $r['antal'];
                        #20140424b
                        $r['procent'] || $r['procent'] != '' ? $pris[$y] = $linjesum * $r['procent'] / 100 : ($pris[$y] = $linjesum);
                        #20140424b
                    } else {
                        #								$pris[$y]=$r['pris']*$r['antal']-($r['pris']*$r['antal']*$r['rabat']/100); # remmet 20140424b
                        $linjesum = $r['pris'] * $r['antal'] - $r['pris'] * $r['antal'] * $r['rabat'] / 100;
                        #20140424b
                        $r['procent'] || $r['procent'] != '' ? $pris[$y] = $linjesum * $r['procent'] / 100 : ($pris[$y] = $linjesum);
                        #20140424b
                        if ($art == 'PO') {
                            $pris[$y] = afrund($pris[$y], 3);
                        } else {
                            $pris[$y] = afrund($pris[$y], 3);
                        }
                        #Afrunding tilfoejet 2009.01.26 grundet diff i ordre 98 i saldi_104 -- 2011.02.07 ændret til 2 decimaler ordre_id 1325 saldi_329
                        #cho "$pris[$y]<br>";
                    }
                } else {
                    for ($a = 1; $a <= $y; $a++) {
                        if ($bogf_konto[$a] == $r['bogf_konto']) {
                            if ($r['rabatart'] == 'amount') {
                                #									$pris[$a]+=$r['pris']*$r['antal']-($r['rabat']*$r['antal']); # remmet 20140424b
                                $linjesum = $r['pris'] * $r['antal'] - $r['rabat'] * $r['antal'];
                                #20140424b
                            } else {
                                #									$pris[$a]=$pris[$a]+($r['pris']*$r['antal']-($r['pris']*$r['antal']*$r['rabat']/100)); # remmet 20140424b
                                $linjesum = $r['pris'] * $r['antal'] - $r['pris'] * $r['antal'] * $r['rabat'] / 100;
                                #20140424b
                            }
                            $r['procent'] || $r['procent'] != '' ? $pris[$a] += $linjesum * $r['procent'] / 100 : ($pris[$a] += $linjesum);
                            #20140424b
                            if ($art == 'PO') {
                                $pris[$a] = afrund($pris[$a], 3);
                            } else {
                                $pris[$a] = afrund($pris[$a], 3);
                            }
                            #Afrunding tilfoejet 2009.01.26 grundet diff i ordre 98 i saldi_104 -- 2011.02.07 ændret til 2 decimaler ordre_id 1325 saldi_329
                        }
                    }
                }
            }
            $ordrelinjer = $y;
            if ($indbetaling) {
                $ordrelinjer = 0;
            }
            for ($y = 1; $y <= $ordrelinjer; $y++) {
                if ($bogf_konto[$y] && $pris[$y]) {
                    if ($pris[$y] > 0) {
                        $kredit = $pris[$y];
                        $debet = 0;
                    } else {
                        $kredit = 0;
                        $debet = $pris[$y] * -1;
                    }
                    if ($t == 1 && $valutakurs) {
                        $kredit = $kredit * $valutakurs / 100;
                        $debet = $debet * $valutakurs / 100;
                    }
                    # Omregning til DKR.
                    $kredit = afrund($kredit, 3);
                    $debet = afrund($debet, 3);
                    $d_kontrol = $d_kontrol + $debet;
                    $k_kontrol = $k_kontrol + $kredit;
                    $debet = afrund($debet, 2);
                    $kredit = afrund($kredit, 2);
                    if (is_numeric($id)) {
                        $qtxt = "insert into transaktioner (bilag,transdate,beskrivelse,kontonr,faktura,debet,kredit,kladde_id,afd,logdate,logtime,projekt,ansat,ordre_id,kasse_nr) values ('0','{$transdate}','{$beskrivelse}','{$bogf_konto[$y]}','{$fakturanr}','{$debet}','{$kredit}','0','{$afd}','{$logdate}','{$logtime}','{$projekt[$p]}','{$ansat}','{$id}','{$kasse}')";
                    } else {
                        $qtxt = "insert into transaktioner (bilag,transdate,beskrivelse,kontonr,faktura,debet,kredit,kladde_id,afd,logdate,logtime,projekt,ansat,ordre_id,kasse_nr) values ('0','{$transdate}','{$beskrivelse}','{$bogf_konto[$y]}','0','{$debet}','{$kredit}','0','{$afd}','{$logdate}','{$logtime}','{$projekt[$p]}','{$ansat}','0','{$kasse}')";
                    }
                    #cho __LINE__."$qtxt<br>";
                    db_modify($qtxt, __FILE__ . " linje " . __LINE__);
                    $tmp = $debet - $kredit;
                    $qtxt = "update kontoplan set saldo=saldo+'{$tmp}' where kontonr='{$bogf_konto[$y]}' and regnskabsaar='{$regnaar}'";
                    db_modify($qtxt, __FILE__ . " linje " . __LINE__);
                } elseif ($pris[$y]) {
                    $svar = "Fejl i kontoopsætning";
                    if (!$webservice) {
                        print "<BODY onLoad=\"javascript:alert('{$svar}')\">";
                    } else {
                        return "{$svar}";
                    }
                    exit;
                }
            }
        }
    }
    #xit;
    if ($momskode) {
        $query = db_select("select box1 from grupper where art='SM' and kodenr='{$momskode}'", __FILE__ . " linje " . __LINE__);
        $row = db_fetch_array($query);
        if ($box1 = trim($row['box1'])) {
            # 20150522
            if ($moms > 0) {
                $kredit = $moms;
                $debet = '0';
            } else {
                $kredit = '0';
                $debet = $moms * -1;
            }
            if ($valutakurs) {
                $kredit = afrund($kredit * $valutakurs / 100, 3);
                $debet = afrund($debet * $valutakurs / 100, 3);
            }
            # Omregning til DKR.
            $kredit = afrund($kredit, 3);
            $debet = afrund($debet, 3);
            $d_kontrol = $d_kontrol + $debet;
            $k_kontrol = $k_kontrol + $kredit;
            $diff = afrund($d_kontrol - $k_kontrol, 3);
            $absdiff = abs($diff);
            if ($moms && $valutakurs && $valutakurs != 100 && $absdiff >= 0.01 && $absdiff <= 0.05) {
                if ($debet > 0) {
                    $debet = $debet + $diff;
                    $d_kontrol = $d_kontrol + $diff;
                } elseif ($kredit > 0) {
                    $kredit = $kredit + $diff;
                    $k_kontrol = $k_kontrol + $diff;
                }
            }
            $moms = afrund($moms, 2);
            if ($moms) {
                if (is_numeric($id)) {
                    $qtxt = "insert into transaktioner (bilag,transdate,beskrivelse,kontonr,faktura,debet,kredit,kladde_id, afd, logdate, logtime, projekt, ansat, ordre_id,kasse_nr) values ('0', '{$transdate}', '{$beskrivelse}', '{$box1}', '{$fakturanr}', '{$debet}', '{$kredit}', '0', '{$afd}', '{$logdate}', '{$logtime}', '{$projekt['0']}', '{$ansat}', '{$id}','{$kasse}')";
                } else {
                    $qtxt = "insert into transaktioner (bilag, transdate, beskrivelse, kontonr, faktura, debet, kredit, kladde_id, afd, logdate, logtime, projekt, ansat, ordre_id,kasse_nr) values ('0', '{$transdate}', '{$beskrivelse}', '{$box1}', '0', '{$debet}', '{$kredit}', '0', '{$afd}', '{$logdate}', '{$logtime}', '{$projekt['0']}', '{$ansat}', '0','{$kasse}')";
                }
                #cho __LINE__." $qtxt<br>";
                db_modify($qtxt, __FILE__ . " linje " . __LINE__);
                $tmp = $debet - $kredit;
                $qtxt = "update kontoplan set saldo=saldo+'{$tmp}' where kontonr='{$box1}' and regnskabsaar='{$regnaar}'";
                db_modify($qtxt, __FILE__ . " linje " . __LINE__);
            }
            $valutakurs = $valutakurs * 1;
        } elseif ($moms) {
            return "Fejl i momsopsætning";
        }
    }
    if (is_numeric($id)) {
        $tmp = "id = '" . $id . "'";
    } else {
        $idliste = explode(",", $id);
        $antal = count($idliste);
        $tmp = "(id = '" . $idliste[0] . "'";
        for ($x = 1; $x < $antal; $x++) {
            $tmp .= " or id = '" . $idliste[$x] . "'";
        }
        $tmp .= ")";
    }
    $tidspkt = date("H:i");
    db_modify("update ordrer set status='4',valutakurs='{$valutakurs}' where {$tmp}", __FILE__ . " linje " . __LINE__);
    if (is_numeric($id)) {
        $tmp = "ordre_id = '" . $id . "'";
    } else {
        $idliste = explode(",", $id);
        $antal = count($idliste);
        $tmp = "(ordre_id = '" . $idliste[0] . "'";
        for ($x = 1; $x < $antal; $x++) {
            $tmp .= " or ordre_id = '" . $idliste[$x] . "'";
        }
        $tmp .= ")";
    }
    db_modify("delete from ordrelinjer where {$tmp} and posnr < 0", __FILE__ . " linje " . __LINE__);
    $d_kontrol = afrund($d_kontrol, 2);
    $k_kontrol = afrund($k_kontrol, 2);
    if ($diff = afrund($d_kontrol - $k_kontrol, 2)) {
        $debet = 0;
        $kredit = 0;
        if ($diff < 0) {
            $debet = $diff * -1;
        } else {
            $kredit = $diff;
        }
        $debet = afrund($debet, 2);
        $kredit = afrund($kredit, 2);
        #cho "$diff > maxdif $maxdif<br>";
        if ($art == 'PO') {
            #20140628
            #cho "select box1,box2 from grupper where grupper.art='OreDif'<br>";
            $r = db_fetch_array(db_select("select box1,box2 from grupper where grupper.art='OreDif'", __FILE__ . " linje " . __LINE__));
            $difkto = $r['box2'] * 1;
            $maxdif = $r['box1'] * 100;
            if (!db_fetch_array(db_select("select id from kontoplan where kontonr='{$difkto}' and regnskabsaar='{$regnaar}'", __FILE__ . " linje " . __LINE__))) {
                return "Kontonr {$difkto} (Øredifferencer) eksisterer ikke";
            }
            $diff = 0;
            $q = db_select("select debet,kredit from transaktioner where beskrivelse='{$beskrivelse}' and logdate='{$logdate}' and logtime='{$logtime}' and kasse_nr='{$kasse}'", __FILE__ . " linje " . __LINE__);
            while ($r = db_fetch_array($q)) {
                $d = afrund($r['debet'], 2);
                $k = afrund($r['kredit'], 2);
                #cho "tmp $d $k<br>";
                $diff += $d - $k;
            }
            if ($diff) {
                if ($diff < 0) {
                    $debet = $diff * -1;
                } else {
                    $kredit = $diff;
                }
                $debet = afrund($debet, 2);
                $kredit = afrund($kredit, 2);
                if (is_numeric($id)) {
                    $qtxt = "insert into transaktioner (bilag,transdate,beskrivelse,kontonr,faktura,debet,kredit,kladde_id,afd,logdate,logtime,projekt,ansat,ordre_id,kasse_nr) values ('0','{$transdate}','{$beskrivelse}','{$difkto}','{$fakturanr}','{$debet}','{$kredit}','0','{$afd}','{$logdate}','{$logtime}','{$projekt['0']}','{$ansat}','{$id}','{$kasse}')";
                } else {
                    $qtxt = "insert into transaktioner (bilag,transdate,beskrivelse,kontonr,faktura,debet,kredit,kladde_id,afd,logdate,logtime,projekt,ansat,ordre_id,kasse_nr) values ('0','{$transdate}','{$beskrivelse}','{$difkto}','0','{$debet}','{$kredit}','0','{$afd}','{$logdate}','{$logtime}','{$projekt['0']}','{$ansat}','0','{$kasse}')";
                }
                #cho __LINE__." $qtxt<br>";
                db_modify($qtxt, __FILE__ . " linje " . __LINE__);
                $tmp = $debet - $kredit;
                db_modify("update kontoplan set saldo=saldo+'{$tmp}' where kontonr='{$difkto}' and regnskabsaar='{$regnaar}'", __FILE__ . " linje " . __LINE__);
            }
            #xit;
        } elseif ($valuta != 'DKK' && abs($diff) <= $maxdif) {
            #Der maa max vaere en afvigelse paa 1 oere pr ordrelinje m fremmed valuta;
            $r = db_fetch_array(db_select("select box3 as difkto from grupper where grupper.art='VK' and grupper.box1='{$valuta}'", __FILE__ . " linje " . __LINE__));
            $difkto = $r['difkto'] * 1;
            if (!db_fetch_array(db_select("select id from kontoplan where kontonr='{$difkto}' and regnskabsaar='{$regnaar}'", __FILE__ . " linje " . __LINE__))) {
                return "Kontonr {$difkto} (kursdiff) eksisterer ikke";
            }
            if (is_numeric($id)) {
                $qtxt = "insert into transaktioner (bilag,transdate,beskrivelse,kontonr,faktura,debet,kredit,kladde_id,afd,logdate,logtime,projekt,ansat,ordre_id,kasse_nr) values ('0','{$transdate}','{$beskrivelse}','{$difkto}','{$fakturanr}','{$debet}','{$kredit}','0','{$afd}','{$logdate}','{$logtime}','{$projekt['0']}','{$ansat}','{$id}','{$kasse}')";
            } else {
                $qtxt = "insert into transaktioner (bilag,transdate,beskrivelse,kontonr,faktura,debet,kredit,kladde_id,afd,logdate,logtime,projekt,ansat,ordre_id,kasse_nr) values ('0','{$transdate}','{$beskrivelse}','{$difkto}','0','{$debet}','{$kredit}','0','{$afd}','{$logdate}','{$logtime}','{$projekt['0']}','{$ansat}','0','{$kasse}')";
            }
            #cho __LINE__."$qtxt<br>";
            db_modify($qtxt, __FILE__ . " linje " . __LINE__);
            $tmp = $debet - $kredit;
            db_modify("update kontoplan set saldo=saldo+'{$tmp}' where kontonr='{$difkto}' and regnskabsaar='{$regnaar}'", __FILE__ . " linje " . __LINE__);
            #xit;
        } elseif (abs($diff) < 0.05) {
            if ($r = db_fetch_array(db_select("select * from grupper where art = 'OreDif'", __FILE__ . " linje " . __LINE__))) {
                $oredifkto = $r['box2'];
            } else {
                return 'Manglende kontonummer til &oslash;redifferencer - Se indstillinger -> diverse -> &oslash;rediff';
            }
            $r = db_fetch_array(db_select("select id from kontoplan where kontotype = 'D' and kontonr = '{$oredifkto}' and regnskabsaar='{$regnaar}'", __FILE__ . " linje " . __LINE__));
            if ($r['id']) {
                if (is_numeric($id)) {
                    $qtxt = "insert into transaktioner (bilag,transdate,beskrivelse,kontonr,faktura,debet,kredit,kladde_id,afd,logdate,logtime,projekt,ansat,ordre_id,kasse_nr) values ('0','{$transdate}','{$beskrivelse}','{$oredifkto}','{$fakturanr}','{$debet}','{$kredit}','0','{$afd}','{$logdate}','{$logtime}','{$projekt['0']}','{$ansat}','{$id}','{$kasse}')";
                } else {
                    $qtxt = "insert into transaktioner (bilag,transdate,beskrivelse,kontonr,faktura,debet,kredit,kladde_id,afd,logdate,logtime,projekt,ansat,ordre_id,kasse_nr) values ('0','{$transdate}','{$beskrivelse}','{$oredifkto}','0','{$debet}','{$kredit}','0','{$afd}','{$logdate}','{$logtime}','{$projekt['0']}','{$ansat}','0','{$kasse}')";
                }
                #cho __LINE__."$qtxt<br>";
                db_modify($qtxt, __FILE__ . " linje " . __LINE__);
                $tmp = $debet - $kredit;
                db_modify("update kontoplan set saldo=saldo+'{$tmp}' where kontonr='{$oredifkto}' and regnskabsaar='{$regnaar}'", __FILE__ . " linje " . __LINE__);
            } else {
                return 'Manglende kontonummer til &oslash;redifferencer - Se indstillinger -> diverse -> &oslash;rediff';
            }
        } else {
            $svar = "Der er konstateret en uoverensstemmelse i posteringssummen, ID {$ordre_id} ordre {$ordrenr}, d={$d_kontrol}, k={$k_kontrol} kontakt DANOSOFT p&aring; telefon 4690 2208";
            if ($art == 'PO') {
                echo "{$svar}<br>";
            }
            $message = $db . " | Uoverensstemmelse i posteringssum: ordre_id={$id}, d={$d_kontrol}, k={$k_kontrol} | " . __FILE__ . " linje " . __LINE__ . " | " . $brugernavn . " " . date("Y-m-d H:i:s");
            $headers = 'From: fejl@saldi.dk' . "\r\n" . 'Reply-To: fejl@saldi.dk' . "\r\n" . 'X-Mailer: PHP/' . phpversion();
            mail('*****@*****.**', 'SALDI Fejl', $message, $headers);
            return "{$svar}";
            #20130506
            exit;
        }
    }
    if ($konto_id) {
        $r = db_fetch_array(db_select("select sum(amount) from openpost where udlignet!='1' and konto_id = '{$konto_id}'", __FILE__ . " linje " . __LINE__));
        $saldo = $r['amount'] * 1;
        db_modify("update adresser set saldo='{$saldo}' where id='{$konto_id}'", __FILE__ . " linje " . __LINE__);
    }
    if ($title != "Massefakturering" && !$webservice && $art != 'PO') {
        genberegn($regnaar);
    }
    return $svar;
}
示例#5
0
function opdat_1_0($under_nr, $lap_nr)
{
    global $version;
    global $db;
    global $db_id;
    global $regnskab;
    global $regnaar;
    $s_id = session_id();
    if ($lap_nr < 2) {
        transaktion("begin");
        $x = 0;
        /*		
        		$query=db_select("SELECT id FROM formularer where formular = 6",__FILE__ . " linje " . __LINE__); 
        		while ($row = db_fetch_array($query)) {$x++;}
        		if ($x<=1) {
        			 $fp=fopen("../importfiler/formular.txt","r");
        			 if ($fp) {
        				while (!feof($fp)) {
        					list($formular, $art, $beskrivelse, $justering, $xa, $ya, $xb, $yb, $str, $color, $font, $fed, $kursiv, $side) = split(chr(9), fgets($fp));
        					if ($formular==6) {
        						$justering=trim($justering); $form=trim($font); $fed=trim($fed); $kursiv=trim($kursiv); $side=trim($side);
        						$xa= $xa*1; $ya= $ya*1; $xb= $xb*1; $yb=$yb*1; $str=$str*1; $color=$color*1;
        						db_modify("insert into formularer (formular, art, beskrivelse, xa, ya, xb, yb, justering, str, color, font, fed, kursiv, side) values ('$formular', '$art', '$beskrivelse', '$xa', '$ya', '$xb', '$yb', '$justering', '$str', '$color', '$font', '$fed', '$kursiv', '$side')",__FILE__ . " linje " . __LINE__); 
        					}
        				}
        			}
        			fclose($fp);
        		}
        */
        $query = db_select("SELECT id, box1 FROM grupper where art = 'DG'", __FILE__ . " linje " . __LINE__);
        while ($row = db_fetch_array($query)) {
            if (strlen(trim($row['box1'])) == 1) {
                $box1 = 'S' . trim($row['box1']);
                db_modify("UPDATE grupper set box1 = '{$box1}' where id = {$row['id']}", __FILE__ . " linje " . __LINE__);
            }
        }
        $query = db_select("SELECT id, box1 FROM grupper where art = 'KG'", __FILE__ . " linje " . __LINE__);
        while ($row = db_fetch_array($query)) {
            if (strlen(trim($row['box1'])) == 1) {
                $box1 = 'K' . trim($row['box1']);
                db_modify("UPDATE grupper set box1 = '{$box1}' where id = {$row['id']}", __FILE__ . " linje " . __LINE__);
            }
        }
        db_modify("ALTER TABLE kontoplan ADD genvej varchar", __FILE__ . " linje " . __LINE__);
        $x = 0;
        $query = db_select("SELECT kodenr FROM grupper where art = 'LG' order by kodenr", __FILE__ . " linje " . __LINE__);
        while ($row = db_fetch_array($query)) {
            $x++;
            $lagernr[$x] = $row[kodenr];
        }
        $lagerantal = $x;
        $x = 0;
        $query = db_select("SELECT id FROM varer order by id", __FILE__ . " linje " . __LINE__);
        while ($row = db_fetch_array($query)) {
            $x++;
            $vare_id[$x] = $row[id];
        }
        $vareantal = $x;
        for ($y = 1; $y <= $lagerantal; $y++) {
            for ($x = 1; $x <= $vareantal; $x++) {
                $z = 0;
                $query = db_select("SELECT rest FROM batch_kob where vare_id={$vare_id[$x]} and lager={$lagernr[$y]}", __FILE__ . " linje " . __LINE__);
                while ($row = db_fetch_array($query)) {
                    $z = $z + $row[rest];
                }
                db_modify("UPDATE lagerstatus set beholdning={$z} where vare_id = {$x} and lager = {$y}", __FILE__ . " linje " . __LINE__);
            }
        }
        db_modify("UPDATE grupper set box1 = '1.0.2' where art = 'VE'", __FILE__ . " linje " . __LINE__);
        transaktion("commit");
    }
    if ($lap_nr <= 6) {
        transaktion("begin");
        db_modify("ALTER TABLE adresser ADD kontoansvarlig integer", __FILE__ . " linje " . __LINE__);
        db_modify("UPDATE grupper set box1 = '1.0.7' where art = 'VE'", __FILE__ . " linje " . __LINE__);
        transaktion("commit");
    }
    if ($lap_nr <= 7) {
        include "../includes/connect.php";
        include "../includes/online.php";
        $filnavn = "../temp/{$db}.sql";
        $fp = fopen($filnavn, "w");
        fwrite($fp, "CREATE TABLE openpost (id serial NOT NULL, konto_id integer, konto_nr varchar, faktnr varchar, amount numeric, refnr integer, beskrivelse varchar, udlignet varchar, transdate date, kladde_id integer, bilag_id integer,forfaldsdate date,betal_id varchar, PRIMARY KEY (id));\n");
        fclose($fp);
        echo "<br>export PGPASSWORD={$sqpass}\npsql {$db} -h {$sqhost} -U {$squser} < {$filnavn} > ../temp/NULL\n<br>";
        system("export PGPASSWORD={$sqpass}\npsql {$db} -h {$sqhost} -U {$squser} < {$filnavn} > ../temp/NULL\n");
        transaktion('begin');
        db_modify("ALTER TABLE openpost ADD udlign_id integer", __FILE__ . " linje " . __LINE__);
        db_modify("ALTER TABLE openpost ADD udlign_date date", __FILE__ . " linje " . __LINE__);
        db_modify("UPDATE openpost SET udlign_id = '0'", __FILE__ . " linje " . __LINE__);
        include "../includes/autoudlign.php";
        autoudlign('0');
        db_modify("UPDATE grupper set box1 = '1.0.8' where art = 'VE'", __FILE__ . " linje " . __LINE__);
        transaktion('commit');
    }
    if ($lap_nr <= 8) {
        transaktion('begin');
        db_modify("ALTER TABLE grupper ADD box9 varchar", __FILE__ . " linje " . __LINE__);
        db_modify("ALTER TABLE grupper ADD box10 varchar", __FILE__ . " linje " . __LINE__);
        db_modify("CREATE TABLE provision (id serial NOT NULL, gruppe_id integer, ansat_id integer, provision numeric, PRIMARY KEY (id))", __FILE__ . " linje " . __LINE__);
        db_modify("UPDATE grupper set box1 = '1.0.9' where art = 'VE'", __FILE__ . " linje " . __LINE__);
        transaktion('commit');
    }
    if ($lap_nr <= 9) {
        transaktion('begin');
        db_modify("ALTER TABLE varer ADD komplementaer varchar", __FILE__ . " linje " . __LINE__);
        db_modify("ALTER TABLE varer ADD circulate integer", __FILE__ . " linje " . __LINE__);
        db_modify("ALTER TABLE varer ADD operation integer", __FILE__ . " linje " . __LINE__);
        db_modify("ALTER TABLE ordrelinjer ADD kostpris numeric", __FILE__ . " linje " . __LINE__);
        db_modify("ALTER TABLE ordrelinjer ADD samlevare varchar", __FILE__ . " linje " . __LINE__);
        db_modify("ALTER TABLE materialer ADD materialenr varchar", __FILE__ . " linje " . __LINE__);
        db_modify("ALTER TABLE materialer ADD tykkelse numeric", __FILE__ . " linje " . __LINE__);
        db_modify("ALTER TABLE materialer ADD kgpris numeric", __FILE__ . " linje " . __LINE__);
        db_modify("ALTER TABLE materialer ADD avance numeric", __FILE__ . " linje " . __LINE__);
        db_modify("ALTER TABLE materialer ADD enhed varchar", __FILE__ . " linje " . __LINE__);
        db_modify("ALTER TABLE materialer ADD opdat_date date", __FILE__ . " linje " . __LINE__);
        db_modify("ALTER TABLE materialer ADD opdat_time time", __FILE__ . " linje " . __LINE__);
        db_modify("ALTER TABLE ansatte ADD nummer integer", __FILE__ . " linje " . __LINE__);
        db_modify("ALTER TABLE ansatte ADD loen numeric", __FILE__ . " linje " . __LINE__);
        db_modify("ALTER TABLE ansatte ADD hold integer", __FILE__ . " linje " . __LINE__);
        db_modify("ALTER TABLE ansatte ADD lukket varchar", __FILE__ . " linje " . __LINE__);
        db_modify("UPDATE ansatte set lukket = ''", __FILE__ . " linje " . __LINE__);
        db_modify("ALTER TABLE kontoplan DROP md01", __FILE__ . " linje " . __LINE__);
        db_modify("ALTER TABLE kontoplan DROP md02", __FILE__ . " linje " . __LINE__);
        db_modify("ALTER TABLE kontoplan DROP md03", __FILE__ . " linje " . __LINE__);
        db_modify("ALTER TABLE kontoplan DROP md04", __FILE__ . " linje " . __LINE__);
        db_modify("ALTER TABLE kontoplan DROP md05", __FILE__ . " linje " . __LINE__);
        db_modify("ALTER TABLE kontoplan DROP md06", __FILE__ . " linje " . __LINE__);
        db_modify("ALTER TABLE kontoplan DROP md07", __FILE__ . " linje " . __LINE__);
        db_modify("ALTER TABLE kontoplan DROP md08", __FILE__ . " linje " . __LINE__);
        db_modify("ALTER TABLE kontoplan DROP md09", __FILE__ . " linje " . __LINE__);
        db_modify("ALTER TABLE kontoplan DROP md10", __FILE__ . " linje " . __LINE__);
        db_modify("ALTER TABLE kontoplan DROP md11", __FILE__ . " linje " . __LINE__);
        db_modify("ALTER TABLE kontoplan DROP md12", __FILE__ . " linje " . __LINE__);
        db_modify("ALTER TABLE kontoplan ADD saldo numeric", __FILE__ . " linje " . __LINE__);
        db_modify("ALTER TABLE kontoplan ADD overfor_til numeric", __FILE__ . " linje " . __LINE__);
        db_modify("CREATE TABLE tidsreg (id serial NOT NULL, person integer, ordre integer, pnummer integer, operation integer, materiale integer, tykkelse numeric, laengde numeric, bredde numeric, antal_plader numeric,  gaa_hjem integer, tid integer, forbrugt_tid integer, opsummeret_tid integer, beregnet integer, pause integer, antal numeric,  faerdig integer, circ_time integer, PRIMARY KEY (id))", __FILE__ . " linje " . __LINE__);
        db_modify("CREATE TABLE tmpkassekl (id integer, lobenr integer, bilag varchar, transdate varchar, beskrivelse varchar, d_type varchar, debet varchar, k_type varchar, kredit varchar, faktura varchar, amount varchar, kladde_id integer, momsfri varchar, afd varchar)", __FILE__ . " linje " . __LINE__);
        db_modify("UPDATE grupper set box9 = 'on' where box8 = 'on' and art = 'VG'", __FILE__ . " linje " . __LINE__);
        include "../includes/genberegn.php";
        $query = db_select("SELECT kodenr FROM grupper where art = 'RA' order by kodenr", __FILE__ . " linje " . __LINE__);
        while ($row = db_fetch_array($query)) {
            genberegn($row[kodenr]);
        }
        db_modify("UPDATE grupper set box1 = '1.1.0' where art = 'VE'", __FILE__ . " linje " . __LINE__);
        transaktion('commit');
        # Husk opret.php.... (internt notat)
    }
    db_modify("UPDATE grupper set box1 ='{$version}' where art = 'VE'", __FILE__ . " linje " . __LINE__);
}
示例#6
0
function bogfor_nu($id, $webservice)
{
    include "../includes/genberegn.php";
    include "../includes/forfaldsdag.php";
    global $db;
    global $regnaar;
    global $valuta;
    global $valutakurs;
    global $difkto;
    global $title;
    #	print "<table><tbody>";
    $svar = "OK";
    $d_kontrol = 0;
    $k_kontrol = 0;
    $logdate = date("Y-m-d");
    $logtime = date("H:i");
    $q = db_select("select box1, box2, box3, box4, box5 from grupper where art='RB'", __FILE__ . " linje " . __LINE__);
    if ($r = db_fetch_array($q)) {
        if (trim($r['box3']) == "on") {
            $faktbill = 1;
        } else {
            $faktbill = 0;
        }
        if (trim($r['box4']) == "on") {
            $modtbill = 1;
        } else {
            $modtbill = 0;
        }
        if (trim($r['box5']) == "on") {
            $no_faktbill = 1;
            $faktbill = 0;
        } else {
            $no_faktbill = 0;
        }
    }
    $projekt = array();
    $x = 0;
    $q = db_select("select * from ordrer where id='{$id}'", __FILE__ . " linje " . __LINE__);
    if ($r = db_fetch_array($q)) {
        $art = $r['art'];
        $konto_id = $r['konto_id'];
        $kontonr = str_replace(" ", "", $r['kontonr']);
        $firmanavn = trim($r['firmanavn']);
        $modtagelse = $r['modtagelse'];
        $transdate = $r['fakturadate'];
        $fakturanr = $r['fakturanr'];
        $ordrenr = $r['ordrenr'];
        #echo "$firmanavn | $ordrenr<br>";
        $valuta = $r['valuta'];
        $kred_ord_id = $r['kred_ord_id'];
        if (!$valuta) {
            $valuta = 'DKK';
        }
        $projekt[0] = $r['projekt'] * 1;
        $betalingsbet = $r['betalingsbet'];
        $betalingsdage = $r['betalingsdage'] * 1;
        #		$refnr;
        $moms = $r['moms'] * 1;
        #		else {$moms=afrund($r['sum']*$r['momssats']/100,2);}
        $sum = $r['sum'] + $moms;
        #echo "sum $r[sum] + $moms = $sum<br>";
        #exit;
        $ordreantal = $x;
        $forfaldsdate = usdate(forfaldsdag($r['fakturadate'], $betalingsbet, $betalingsdage));
        $r2 = db_fetch_array(db_select("select id, afd from ansatte where navn = '{$r['ref']}'", __FILE__ . " linje " . __LINE__));
        $afd = $r2['afd'] * 1;
        #sikkerhed for at 'afd' har en vaerdi
        $ansat = $r2['id'] * 1;
        if ($no_faktbill == 1) {
            $bilag = '0';
        } else {
            $bilag = trim($fakturanr);
        }
        $udlign = 0;
        if (substr($art, 1, 1) == 'K') {
            $beskrivelse = "Kreditnota - " . $fakturanr;
            $r = db_fetch_array(db_select("select fakturanr,fakturadate from ordrer where id='{$kred_ord_id}'", __FILE__ . " linje " . __LINE__));
            $tmp = $sum * -1;
            if (db_fetch_array(db_select("select * from openpost  where konto_id='{$konto_id}' and amount='{$tmp}' and faktnr='{$r['fakturanr']}' and transdate='{$r['fakturadate']}' and udlignet != '1'", __FILE__ . " linje " . __LINE__))) {
                db_modify("update openpost set udlignet = 1 where konto_id='{$konto_id}' and amount='{$tmp}' and faktnr='{$r['fakturanr']}' and transdate='{$r['fakturadate']}'");
                $udlign = 1;
            }
        } elseif ($art == 'PO') {
            $beskrivelse = "Bon - " . $fakturanr;
        } else {
            $beskrivelse = "Faktura - " . $fakturanr;
        }
        if ($art != 'PO') {
            db_modify("insert into openpost (konto_id, konto_nr, faktnr, amount, beskrivelse, udlignet, transdate, kladde_id, refnr, valuta, valutakurs, forfaldsdate) values ('{$konto_id}', '{$kontonr}', '{$fakturanr}', '{$sum}', '{$beskrivelse}', '{$udlign}', '{$transdate}', '{$udlign}', '{$id}', '{$valuta}', '{$valutakurs}','{$forfaldsdate}')", __FILE__ . " linje " . __LINE__);
            $r = db_fetch_array(db_select("select gruppe from adresser where id='{$konto_id}'", __FILE__ . " linje " . __LINE__));
            $r = db_fetch_array(db_select("select beskrivelse, box2 from grupper where art = 'DG' and kodenr='{$r['gruppe']}'", __FILE__ . " linje " . __LINE__));
            $kontonr = $r['box2'];
            # Kontonr aendres fra at vaere leverandoerkontonr til finanskontonr
            $tekst = "Kontonummer for Debitorgruppe `{$r['beskrivelse']}` er ikke gyldigt";
            if (!$kontonr && $webservice) {
                return $tekst;
            } elseif (!$kontonr) {
                print "<BODY onLoad=\"javascript:alert('{$tekst}')\">";
            }
        } else {
            $kontonr = "58200";
        }
        # midleritdig kun til brug med POS
        if ($sum > 0) {
            $debet = $sum;
            $kredit = '0';
        } else {
            $debet = '0';
            $kredit = $sum * -1;
        }
        if ($valutakurs) {
            $kredit = afrund($kredit * $valutakurs / 100, 3);
            $debet = afrund($debet * $valutakurs / 100, 3);
        }
        # Omregning til DKR.
        $d_kontrol = $d_kontrol + $debet;
        $k_kontrol = $k_kontrol + $kredit;
        $debet = afrund($debet, 2);
        $kredit = afrund($kredit, 2);
        #echo "A insert into transaktioner (bilag, transdate, beskrivelse, kontonr, faktura, debet, kredit, kladde_id, afd, logdate, logtime, projekt, ansat, ordre_id) values ('0', '$transdate', '$beskrivelse', '$kontonr', '$fakturanr', '$debet', '$kredit', '0', $afd, '$logdate', '$logtime', '$projekt[0]', '$ansat', '$id')<br>";
        db_modify("insert into transaktioner (bilag, transdate, beskrivelse, kontonr, faktura, debet, kredit, kladde_id, afd, logdate, logtime, projekt, ansat, ordre_id) values ('0', '{$transdate}', '{$beskrivelse}', '{$kontonr}', '{$fakturanr}', '{$debet}', '{$kredit}', '0', {$afd}, '{$logdate}', '{$logtime}', '{$projekt['0']}', '{$ansat}', '{$id}')", __FILE__ . " linje " . __LINE__);
        if ($valutakurs) {
            $maxdif = 2;
        }
        #Der tillades 2 oeres afrundingsdiff
        $p = 0;
        $q = db_select("select distinct(projekt) from ordrelinjer where ordre_id={$id} and vare_id >\t'0'", __FILE__ . " linje " . __LINE__);
        while ($r = db_fetch_array($q)) {
            $p++;
            $projekt[$p] = $r['projekt'] * 1;
        }
        $projektantal = $p;
        for ($t = 1; $t <= 2; $t++) {
            for ($p = 1; $p <= $projektantal; $p++) {
                $y = 0;
                $tjek = array();
                $bogf_konto = array();
                if ($t == 1) {
                    #echo "select * from ordrelinjer where ordre_id='$id' and projekt='$projekt[$p]' and posnr>=0<br>";
                    $q = db_select("select * from ordrelinjer where ordre_id='{$id}' and projekt='{$projekt[$p]}' and posnr>=0", __FILE__ . " linje " . __LINE__);
                } else {
                    #echo "select * from ordrelinjer where ordre_id='$id' and projekt='$projekt[$p]' and posnr<0<br>";
                    $q = db_select("select * from ordrelinjer where ordre_id='{$id}' and projekt='{$projekt[$p]}' and posnr<0", __FILE__ . " linje " . __LINE__);
                }
                while ($r = db_fetch_array($q)) {
                    if ($valutakurs) {
                        $maxdif = $maxdif + 2;
                    }
                    #Og yderligere 2 pr ordrelinje.
                    $tmp = $projekt[$p] . ":" . $r['bogf_konto'];
                    if (!in_array($r['bogf_konto'], $bogf_konto)) {
                        $y++;
                        $bogf_konto[$y] = $r['bogf_konto'];
                        $pris[$y] = $r['pris'] * $r['antal'] - $r['pris'] * $r['antal'] * $r['rabat'] / 100;
                        $pris[$y] = afrund($pris[$y], 3);
                        #Afrunding tilfoejet 2009.01.26 grundet diff i ordre 98 i saldi_104
                    } else {
                        for ($a = 1; $a <= $y; $a++) {
                            if ($bogf_konto[$a] == $r['bogf_konto']) {
                                $pris[$a] = $pris[$a] + ($r['pris'] * $r['antal'] - $r['pris'] * $r['antal'] * $r['rabat'] / 100);
                                $pris[$a] = afrund($pris[$a], 3);
                                #Afrunding tilfoejet 2009.01.26 grundet diff i ordre 98 i saldi_104
                            }
                        }
                    }
                }
                $ordrelinjer = $y;
                #echo "ol $ordrelinjer<br>";
                for ($y = 1; $y <= $ordrelinjer; $y++) {
                    if ($bogf_konto[$y]) {
                        if ($pris[$y] > 0) {
                            $kredit = $pris[$y];
                            $debet = 0;
                        } else {
                            $kredit = 0;
                            $debet = $pris[$y] * -1;
                        }
                        if ($t == 1 && $valutakurs) {
                            $kredit = $kredit * $valutakurs / 100;
                            $debet = $debet * $valutakurs / 100;
                        }
                        # Omregning til DKR.
                        $kredit = afrund($kredit, 3);
                        $debet = afrund($debet, 3);
                        $d_kontrol = $d_kontrol + $debet;
                        $k_kontrol = $k_kontrol + $kredit;
                        $debet = afrund($debet, 2);
                        $kredit = afrund($kredit, 2);
                        #echo "B insert into transaktioner (bilag, transdate, beskrivelse, kontonr, faktura, debet, kredit, kladde_id, afd, logdate, logtime, projekt, ansat, ordre_id) values ('0', '$transdate', '$beskrivelse', '$bogf_konto[$y]', '$fakturanr', '$debet', '$kredit', '0','$afd', '$logdate', '$logtime', '$projekt[$p]', '$ansat', '$id')<br>";
                        db_modify("insert into transaktioner (bilag, transdate, beskrivelse, kontonr, faktura, debet, kredit, kladde_id, afd, logdate, logtime, projekt, ansat, ordre_id) values ('0', '{$transdate}', '{$beskrivelse}', '{$bogf_konto[$y]}', '{$fakturanr}', '{$debet}', '{$kredit}', '0','{$afd}', '{$logdate}', '{$logtime}', '{$projekt[$p]}', '{$ansat}', '{$id}')", __FILE__ . " linje " . __LINE__);
                    }
                }
            }
        }
        $query = db_select("select gruppe from adresser where id='{$konto_id}';", __FILE__ . " linje " . __LINE__);
        $row = db_fetch_array($query);
        $query = db_select("select box1 from grupper where art='DG' and kodenr='{$row['gruppe']}';", __FILE__ . " linje " . __LINE__);
        $row = db_fetch_array($query);
        $box1 = substr(trim($row[box1]), 1, 1);
        $query = db_select("select box1 from grupper where art='SM' and kodenr='{$box1}'", __FILE__ . " linje " . __LINE__);
        $row = db_fetch_array($query);
        $box1 = trim($row['box1']);
        if ($moms > 0) {
            $kredit = $moms;
            $debet = '0';
        } else {
            $kredit = '0';
            $debet = $moms * -1;
        }
        if ($valutakurs) {
            $kredit = afrund($kredit * $valutakurs / 100, 3);
            $debet = afrund($debet * $valutakurs / 100, 3);
        }
        # Omregning til DKR.
        $kredit = afrund($kredit, 3);
        $debet = afrund($debet, 3);
        $d_kontrol = $d_kontrol + $debet;
        $k_kontrol = $k_kontrol + $kredit;
        $diff = afrund($d_kontrol - $k_kontrol, 3);
        $absdiff = abs($diff);
        if ($moms && $valutakurs && $valutakurs != 100 && $absdiff >= 0.01 && $absdiff <= 0.05) {
            if ($debet > 0) {
                $debet = $debet + $diff;
                $d_kontrol = $d_kontrol + $diff;
            } elseif ($kredit > 0) {
                $kredit = $kredit + $diff;
                $k_kontrol = $k_kontrol + $diff;
            }
        }
        #echo "moms $moms<br>";
        $moms = afrund($moms, 2);
        #echo "C insert into transaktioner (bilag, transdate, beskrivelse, kontonr, faktura, debet, kredit, kladde_id, afd, logdate, logtime, projekt, ansat, ordre_id) values ('0', '$transdate', '$beskrivelse', '$box1', '$fakturanr', '$debet', '$kredit', '0', '$afd', '$logdate', '$logtime', '$projekt[0]', '$ansat', '$id')<br>";
        if ($moms) {
            db_modify("insert into transaktioner (bilag, transdate, beskrivelse, kontonr, faktura, debet, kredit, kladde_id, afd, logdate, logtime, projekt, ansat, ordre_id) values ('0', '{$transdate}', '{$beskrivelse}', '{$box1}', '{$fakturanr}', '{$debet}', '{$kredit}', '0', '{$afd}', '{$logdate}', '{$logtime}', '{$projekt['0']}', '{$ansat}', '{$id}')", __FILE__ . " linje " . __LINE__);
        }
        $valutakurs = $valutakurs * 1;
        #echo "update ordrer set status=4, valutakurs=$valutakurs where id=$id<br>";
        db_modify("update ordrer set status=4, valutakurs={$valutakurs} where id={$id}", __FILE__ . " linje " . __LINE__);
        db_modify("delete from ordrelinjer where ordre_id={$id} and posnr < 0", __FILE__ . " linje " . __LINE__);
    }
    $d_kontrol = afrund($d_kontrol, 2);
    $k_kontrol = afrund($k_kontrol, 2);
    #echo "$d_kontrol $k_kontrol<br>";
    if ($diff = afrund($d_kontrol - $k_kontrol)) {
        if ($valuta != 'DKK' && abs($diff) <= $maxdif) {
            #Der maa max vaere en afvigelse paa 1 oere pr ordrelinje m fremmed valuta;
            $debet = 0;
            $kredit = 0;
            if ($diff < 0) {
                $debet = $diff * -1;
            } else {
                $kredit = $diff;
            }
            $debet = afrund($debet, 2);
            $kredit = afrund($kredit, 2);
            #echo "D insert into transaktioner (bilag, transdate, beskrivelse, kontonr, faktura, debet, kredit, kladde_id, afd, logdate, logtime, projekt, ansat, ordre_id) values ('0', '$transdate', '$beskrivelse', '$difkto', '$fakturanr', '$debet', '$kredit', '0', '$afd', '$logdate', '$logtime', '$projekt[0]', '$ansat', '$id')<br>";
            db_modify("insert into transaktioner (bilag, transdate, beskrivelse, kontonr, faktura, debet, kredit, kladde_id, afd, logdate, logtime, projekt, ansat, ordre_id) values ('0', '{$transdate}', '{$beskrivelse}', '{$difkto}', '{$fakturanr}', '{$debet}', '{$kredit}', '0', '{$afd}', '{$logdate}', '{$logtime}', '{$projekt['0']}', '{$ansat}', '{$id}')", __FILE__ . " linje " . __LINE__);
        } else {
            # echo "Id	$id<br>";
            # echo "D	$d_kontrol K $k_kontrol<br>";
            $message = $db . " | Uoverensstemmelse i posteringssum: ordre_id={$id}, d={$d_kontrol}, k={$k_kontrol} | " . __FILE__ . " linje " . __LINE__ . " | " . $brugernavn . " " . date("Y-m-d H:i:s");
            $headers = 'From: fejl@saldi.dk' . "\r\n" . 'Reply-To: fejl@saldi.dk' . "\r\n" . 'X-Mailer: PHP/' . phpversion();
            mail('*****@*****.**', 'SALDI Fejl', $message, $headers);
            if (!$webservice) {
                print "<BODY onLoad=\"javascript:alert('Der er konstateret en uoverensstemmelse i posteringssummen, ordre {$ordrenr}, kontakt DANOSOFT p&aring; telefon 4690 2208')\">";
            } else {
                return "Der er konstateret en uoverensstemmelse i posteringssummen, ordre {$ordrenr}, kontakt DANOSOFT p&aring; telefon 4690 2208' debet {$debet} != kredit {$kredit}";
            }
            #     	print "<meta http-equiv=\"refresh\" content=\"0;URL=ordre.php?id=$id\">";
            exit;
        }
    }
    if ($title != "Massefakturering" && !$webservice) {
        genberegn($regnaar);
    }
    return $svar;
}
示例#7
0
                        }
                        if (!$row['overfor_til']) {
                            $row['overfor_til'] = '0';
                        }
                        db_modify("insert into kontoplan(kontonr,beskrivelse,kontotype,moms,fra_kto,til_kto,lukket,primo,regnskabsaar,overfor_til,genvej)values('{$row['kontonr']}','" . db_escape_string($row['beskrivelse']) . "','{$row['kontotype']}','{$row['moms']}','{$row['fra_kto']}','{$row['til_kto']}','{$row['lukket']}','{$belob}','{$kodenr}','{$row['overfor_til']}','{$row['genvej']}')", __FILE__ . " linje " . __LINE__);
                    }
                }
            }
        }
        transaktion("commit");
    }
}
if ($id > 0) {
    $query = db_select("select * from grupper where id = '{$id}' and art = 'RA'", __FILE__ . " linje " . __LINE__);
    if ($row = db_fetch_array($query)) {
        genberegn($row['kodenr']);
        if ($row['kodenr'] == 1) {
            aar_1($row['id'], $row['kodenr'], $row['beskrivelse'], $row['box1'], $row['box2'], $row['box3'], $row['box4'], $row['box5']);
        } else {
            aar_x($row['id'], $row['kodenr'], $row['beskrivelse'], $row['box1'], $row['box2'], $row['box3'], $row['box4'], $row['box5']);
        }
    }
} else {
    #	Print "<BODY onLoad=\"javascript:alert('$tekst')\">";
    #	print "<BODY onLoad=\"javascript:velkommen=window.open('velkommen.html','velkommen','".$jsvars."';) velkommen.focus();\";"
    print "<BODY onLoad=\"javascript:docChange = true;\">";
    $x = 0;
    $q = db_select("select * from grupper where art = 'RA' order by kodenr desc", __FILE__ . " linje " . __LINE__);
    while ($r = db_fetch_array($q)) {
        if ($x <= $r['kodenr']) {
            $x = $r['kodenr'];