function afslut($id, $betaling, $betaling2, $modtaget, $modtaget2, $indbetaling, $godkendt, $kortnavn) { print "\n<!-- Function afslut (start)-->\n"; #exit; #cho "$id,$betaling,$betaling2,$modtaget,$modtaget2,$indbetaling<br>"; global $charset; global $bruger_id; global $kasse; global $regnaar; global $retur; # global $printserver; $tmp = array(); $betalingskort = array(); if ($godkendt != 'OK') { #20131205 $r = db_fetch_array(db_select("select box3,box4,box5,box6 from grupper where art = 'POS' and kodenr='2'", __FILE__ . " linje " . __LINE__)); $x = $kasse - 1; $tmp = explode(chr(9), $r['box3']); $printserver = trim($tmp[$x]); $tmp = explode(chr(9), $r['box4']); $terminal_ip = trim($tmp[$x]); $betalingskort = explode(chr(9), $r['box5']); $div_kort_kto = trim($r['box6']); if ($terminal_ip) { # 20131210 div ændringer i rutine $r = db_fetch_array(db_select("select box4,box5 from grupper where art = 'POS' and kodenr = '1'", __FILE__ . " linje " . __LINE__)); $kortantal = $r['box4'] * 1; $korttyper = explode(chr(9), $r['box5']); if ($div_kort_kto) { $betalingskort[$kortantal] = 'on'; $korttyper[$kortantal] = 'Betalingskort'; $kortantal++; } if (in_array($betaling, $korttyper) || in_array($betaling2, $korttyper)) { $amount = 0; for ($x = 0; $x < $kortantal; $x++) { if ($betaling == $korttyper[$x] && $betalingskort[$x] && !$amount) { $amount = $modtaget; } elseif ($betaling == $korttyper[$x] && $betalingskort[$x] && $amount) { return "Der kan ikke betales med 2 betalingskort"; } if ($betaling2 == $korttyper[$x] && $betalingskort[$x] && !$amount) { $amount = $modtaget2; } elseif ($betaling2 == $korttyper[$x] && $betalingskort[$x] && $amount) { return "Der kan ikke betales med 2 betalingskort"; } } } if ($amount) { if (!$printserver) { $printserver = 'localhost'; } $belob = dkdecimal($amount); $belob = str_replace(".", "", $belob); if ($_SERVER['HTTPS']) { $url = 'https://'; } else { $url = 'http://'; } $url .= $_SERVER['SERVER_NAME'] . $_SERVER['PHP_SELF']; print "<meta http-equiv=\"refresh\" content=\"0;URL=http://{$printserver}/pointd/kvittering.php?url={$url}&id={$id}&kommando=kortbetaling&belob={$belob}&betaling={$betaling}&betaling2={$betaling2}&modtaget={$modtaget}&modtaget2={$modtaget2}&indbetaling={$indbetaling}\">\n"; exit; } } } elseif ($kortnavn) { #20140129 $r = db_fetch_array(db_select("select box3,box4,box5,box6 from grupper where art = 'POS' and kodenr='2'", __FILE__ . " linje " . __LINE__)); $x = $kasse - 1; $tmp = explode(chr(9), $r['box3']); $printserver = trim($tmp[$x]); $tmp = explode(chr(9), $r['box4']); $terminal_ip = trim($tmp[$x]); $betalingskort = explode(chr(9), $r['box5']); $div_kort_kto = trim($r['box6']); if ($terminal_ip && $div_kort_kto) { $r = db_fetch_array(db_select("select box4,box5 from grupper where art = 'POS' and kodenr = '1'", __FILE__ . " linje " . __LINE__)); $kortantal = $r['box4'] * 1; $korttyper = explode(chr(9), $r['box5']); $lkt = explode(chr(9), strtolower($r['box5'])); $lk = strtolower($kortnavn); if (in_array($lk, $lkt)) { for ($x = 0; $x < $kortantal; $x++) { if ($lk == $lkt[$x] && $betaling == 'Betalingskort') { $betaling = $korttyper[$x]; } if ($lk == $lkt[$x] && $betaling2 == 'Betalingskort') { $betaling2 = $korttyper[$x]; } } } elseif ($betaling == 'Betalingskort') { $betaling .= "|" . $kortnavn; } elseif ($betaling2 == 'Betalingskort') { $betaling2 = "|" . $kortnavn; } } } # return("$godkendt"); # if ($bettalintaling==,$betaling2) #exit; $projekt = NULL; $tid = date("H:i"); $r = db_fetch_array(db_select("select box9 from grupper where art='POSBUT' and (box7 < box8) and (box7<'{$tid}' and box8>'{$tid}')", __FILE__ . " linje " . __LINE__)); $projekt = $r['box9']; if (!$projekt) { $r = db_fetch_array(db_select("select box9 from grupper where art='POSBUT' and (box7 > box8) and ((box7>'{$tid}' and box8>'{$tid}') or (box7<'{$tid}' and box8<'{$tid}'))", __FILE__ . " linje " . __LINE__)); $projekt = $r['box9']; } $hurtigfakt = 'on'; $moms = 0; $dd = date("Y-m-d"); $r = db_fetch_array(db_select("select konto_id,status,fakturanr,momssats,betalingsbet from ordrer where id = '{$id}'", __FILE__ . " linje " . __LINE__)); $momssats = $r['momssats']; $status = $r['status']; $konto_id = $r['konto_id']; $betalingsbet = $r['betalingsbet']; $x = 0; if ($status < 3) { $r = db_fetch_array(db_select("select box8 from grupper where art = 'POS' and kodenr = '1'", __FILE__ . " linje " . __LINE__)); $rabatvareid = $r['box8']; $q = db_select("select * from ordrelinjer where ordre_id = '{$id}' order by rabatgruppe, id desc ", __FILE__ . " linje " . __LINE__); while ($r = db_fetch_array($q)) { $x++; $linje_id[$x] = $r['id']; $vare_id[$x] = $r['vare_id']; $varenr[$x] = $r['varenr']; $pris[$x] = $r['pris']; $antal[$x] = $r['antal']; $momsfri[$x] = $r['momsfri']; $varemomssats[$x] = $r['momssats']; $folgevare[$x] = $r['folgevare']; $rabat[$x] = $r['rabat']; $rabatart[$x] = $r['rabatart']; $rabatgruppe[$x] = $r['rabatgruppe']; if ($rabatgruppe[$x]) { if ($rabatgruppe[$x] == $rabatgruppe[$x - 1]) { $rabatantal[$x] = $antal[$x] + $rabatantal[$x - 1]; $rabatantal[$x - 1] = 0; } else { $rabatantal[$x] = $antal[$x]; } } else { $rabatantal[$x] = 0; } $m_rabat[$x] = $r['m_rabat'] * -1; } $linjeantal = $x; $pos = 0; $sum = 0; $moms = 0; $incl_moms = 0; transaktion("begin"); for ($x = 1; $x <= $linjeantal; $x++) { $pos++; db_modify("update ordrelinjer set posnr='{$pos}',projekt='{$projekt}' where id='{$linje_id[$x]}'", __FILE__ . " linje " . __LINE__); if ($rabatart[$x] == 'amount') { $tmp = afrund(($pris[$x] - $rabat[$x]) * $antal[$x], 2); } else { $tmp = afrund($pris[$x] * $antal[$x] - $pris[$x] * $antal[$x] / 100 * $rabat[$x], 2); } $sum += $tmp; if (!$momsfri[$x]) { $linjemoms[$x] = $tmp * $varemomssats[$x] / 100; $moms += $linjemoms[$x]; } else { $linjemoms[$x] = 0; } $linjesum[$x] = afrund($tmp + $linjemoms[$x], 2); $incl_moms += $linjesum[$x]; #cho "$linjesum[$x] -> $incl_moms<br>"; ######################################################################## if ($folgevare[$x]) { $pos++; $r = db_fetch_array(db_select("select varenr,beskrivelse,salgspris,gruppe from varer where id = '{$folgevare[$x]}'", __FILE__ . " linje " . __LINE__)); $r2 = db_fetch_array(db_select("select box4, box7 from grupper where art = 'VG' and kodenr = '{$r['gruppe']}'", __FILE__ . " linje " . __LINE__)); $f_bogfkto = $r2['box4']; $f_momsfri = $r2['box7']; $tmp = afrund($antal[$x] * $r['salgspris'], 2); $sum += $tmp; if (!$f_momsfri) { $r2 = db_fetch_array(db_select("select moms from kontoplan where kontonr = '{$f_bogfkto}' and regnskabsaar = '{$regnaar}'", __FILE__ . " linje " . __LINE__)); $kodenr = substr($r['moms'], 1); $r2 = db_fetch_array(db_select("select box2 from grupper where kodenr = '{$kodenr}' and art = 'SM'", __FILE__ . " linje " . __LINE__)); $f_momssats = $r2['box2'] * 1; $incl_moms += afrund($tmp + $tmp * $f_momssats / 100, 2); } #cho "insert into ordrelinjer (ordre_id,vare_id,varenr,beskrivelse,antal,m_rabat,pris,kostpris,momssats,momsfri,posnr,projekt) values ('$id','$folgevare[$x]', '$r[varenr]', '$r[beskrivelse]', '$antal[$x]','0','$r[salgspris]','0','$f_momssats','$f_momsfri','$pos','0')<br>\n"; db_modify("insert into ordrelinjer (ordre_id,vare_id,varenr,beskrivelse,antal,m_rabat,pris,kostpris,momssats,momsfri,posnr,projekt) values ('{$id}','{$folgevare[$x]}', '{$r['varenr']}', '{$r['beskrivelse']}', '{$antal[$x]}','0','{$r['salgspris']}','0','{$f_momssats}','{$f_momsfri}','{$pos}','{$projekt}')", __FILE__ . " linje " . __LINE__); # print "<tr><td>$r[varenr]</td><td align=\"right\">".dkdecimal($antal[$x])."</td><td>$r[beskrivelse]</td><td align=\"right\">".dkdecimal($r['salgspris'])."</td><td align=\"right\">".dkdecimal($antal[$x]*$r['salgspris'])."</td>\n"; } if ($rabatantal[$x]) { list($grupperabat, $rabattype) = explode(";", grupperabat($rabatantal[$x], $rabatgruppe[$x])); if ($grupperabat) { $pos++; if ($rabatvareid && ($r = db_fetch_array(db_select("select varenr,beskrivelse,salgspris,gruppe from varer where id = '{$rabatvareid}'", __FILE__ . " linje " . __LINE__)))) { $r2 = db_fetch_array(db_select("select box6, box7 from grupper where art = 'VG' and kodenr = '{$r['gruppe']}'", __FILE__ . " linje " . __LINE__)); $r_momsfri = $r2['box7']; $r_vare_id = $r['id']; $r_varenr = $r['varenr']; $r_beskrivelse = $r['beskrivelse']; } else { $r_momsfri = $momsfri[$x]; $r_vare_id = $vare_id[$x]; $r_varenr = $varenr[$x]; $r_beskrivelse = 'rabat'; } db_modify("insert into ordrelinjer (ordre_id,vare_id,varenr,beskrivelse,antal,m_rabat,pris,kostpris,momsfri,posnr,projekt) values ('{$id}','{$r_vare_id}', '{$r_varenr}', '{$r_beskrivelse}', '{$rabatantal[$x]}','0','{$grupperabat}','0','{$r_momsfri}','{$pos}','{$projekt}')", __FILE__ . " linje " . __LINE__); $tmp = afrund($grupperabat * $rabatantal[$x], 2); $sum += $tmp; if (!$r_momsfri) { $incl_moms += afrund($tmp + $tmp * $varemomssats[$x] / 100, 2); } } } elseif ($m_rabat[$x] && !$rabatgruppe[$x]) { $pos++; if ($rabatvareid && ($r = db_fetch_array(db_select("select id,varenr,beskrivelse,salgspris,gruppe from varer where id = '{$rabatvareid}'", __FILE__ . " linje " . __LINE__)))) { $r2 = db_fetch_array(db_select("select box6, box7 from grupper where art = 'VG' and kodenr = '{$r['gruppe']}'", __FILE__ . " linje " . __LINE__)); $r_momsfri = $r2['box7']; $r_vare_id = $r['id']; $r_varenr = $r['varenr']; $r_beskrivelse = $r['beskrivelse']; } else { $r_momsfri = $momsfri[$x]; $r_vare_id = $vare_id[$x]; $r_varenr = $varenr[$x]; $r_beskrivelse = 'rabat'; } db_modify("insert into ordrelinjer (ordre_id,vare_id,varenr,beskrivelse,antal,m_rabat,pris,kostpris,momsfri,posnr,projekt) values ('{$id}','{$r_vare_id}', '{$r_varenr}', '{$r_beskrivelse}', '{$antal[$x]}','0','{$m_rabat[$x]}','0','{$r_momsfri}','{$pos}','{$projekt}')", __FILE__ . " linje " . __LINE__); $rabatbelob = afrund($m_rabat[$x] * $antal[$x], 2); $sum += $rabatbelob; if (!$r_momsfri) { $moms += afrund($rabatbelob * $momssats / 100, 2); #20131015 $incl_moms += afrund($rabatbelob + $rabatbelob * $varemomssats[$x] / 100, 2); } } # } } $fakturanr = 1; $q = db_select("select fakturanr from ordrer where art = 'PO'", __FILE__ . " linje " . __LINE__); #max(fakturanr) fungerer ikke da feltet ikke er numerisk while ($r = db_fetch_array($q)) { if ($r['fakturanr'] >= $fakturanr) { $fakturanr = $r['fakturanr'] + 1; } } #cho "update ordrer set fakturanr='$fakturanr' where id='$id'<br>"; db_modify("update ordrer set fakturanr='{$fakturanr}' where id='{$id}'", __FILE__ . " linje " . __LINE__); while ($r = db_fetch_array($q = db_select("select id from ordrer where fakturanr='{$fakturanr}' and art = 'PO' and id != '{$id}'", __FILE__ . " linje " . __LINE__))) { usleep($kasse * 100000); if ($r = db_fetch_array($q = db_select("select id from ordrer where fakturanr='{$fakturanr}' and art = 'PO' and id != '{$id}'", __FILE__ . " linje " . __LINE__))) { $fakturanr = $fakturanr + 1; db_modify("update ordrer set fakturanr='{$fakturanr}' where id='{$id}'", __FILE__ . " linje " . __LINE__); } } $sum *= 1; $moms *= 1; $betalt = $modtaget + $modtaget2; $retur = afrund($betalt - ($sum + $moms), 2); #20140613 if ($konto_id && ($betalingsbet != 'Kontant' || $indbetaling)) { $saldo = 0; $q = db_select("select * from openpost where konto_id = '{$konto_id}'", __FILE__ . " linje " . __LINE__); while ($r = db_fetch_array($q)) { $saldo = $saldo + $r['amount']; } $betaling2 = $saldo; if ($indbetaling) { $modtaget2 = $saldo - $indbetaling; $sum = $indbetaling; $moms = '0'; } else { $modtaget2 = $saldo + $sum; } } $moms = afrund($moms, 2); # $retur=($sum+$moms)-($modtaget+$modtaget2); #remmet 20140605 if ($betaling == 'Kontant' && !$betaling2 && $retur) { if ($difkto) { $afrundet = pos_afrund($sum + $moms); $tmp = afrund($modtaget - ($sum + $moms), 2); if (!$tmp) { $betalt = $afrundet; $modtaget = $afrundet; } elseif ($modtaget == pos_afrund($modtaget, $difkto)) { $betalt = $afrundet; } } } elseif ($betaling == 'Konto' && $betalingsbet == 'Kontant' && $modtaget != $sum + $moms && $retur) { if ($modtaget != $sum + $moms && $sum + $moms != pos_afrund($sum + $moms, $difkto)) { #cho "$modtaget!=$sum+$moms"; #cho "&& "; #cho "!="; #cho pos_afrund($sum+$moms)."<br>"; $afrundet = pos_afrund($sum + $moms, $difkto); $betalt = $afrundet; } } # if (!$retur) $retur=afrund($modtaget+$modtaget2-$betalt,2); #cho "R $retur ($modtaget+$modtaget2-$betalt)<br>"; $modtaget = afrund($modtaget, 2); $modtaget2 = afrund($modtaget2, 2); #cho "$sum+$moms!=$incl_moms<br>"; if ($sum + $moms != $incl_moms) { // Denne rutine korrigerer for de differencer det kan opstå i totaler fordi momsberegningen på skærmen vises for den enkelte vare, mens databasen indeholder // summen at varer excl moms og momsen separat. Hvis der er difference på summen tillægges/frratrækkes de enkelte varer så mange tienedele ører som muligt // uden at den afrundede værdi incl moms ændres, indtil summen ex. moms + moms svarer til summen af varer incl moms. 20131205 $tmp = afrund($incl_moms - ($sum + $moms), 2); if (abs($tmp) <= $linjeantal / 200) { #max 0,5 øre afrundingsfejl pr linje; $sum += $tmp; for ($x = 1; $x <= $linjeantal; $x++) { $ny_pris[$x] = $pris[$x]; $tmp2 = afrund($pris[$x], 2); $tmp3 = afrund($tmp2 * $antal[$x] - $tmp2 * $antal[$x] / 100 * $rabat[$x], 2); #cho "A-: $tmp && ".afrund($tmp3+$linjemoms[$x],2)."==$linjesum[$x]<br>"; while (afrund($tmp, 2) && afrund($tmp3 + $linjemoms[$x], 2) == $linjesum[$x]) { #cho "A: $tmp && ".afrund($tmp3+$linjemoms[$x],2)."==$linjesum[$x]<br>"; $tmp > 0 ? $tmp2 += 0.001 : ($tmp2 -= 0.001); $tmp3 = afrund($tmp2 * $antal[$x] - $tmp2 * $antal[$x] / 100 * $rabat[$x], 2); #cho "B: $tmp && ".afrund($tmp3+$linjemoms[$x],2)."==$linjesum[$x]<br>"; if (afrund($tmp3 + $linjemoms[$x], 2) == $linjesum[$x]) { $ny_pris[$x] = $tmp2; $tmp > 0 ? $tmp -= 0.001 : ($tmp += 0.001); } } if ($ny_pris[$x] != $pris[$x]) { #cho "$ny_pris[$x]!=$pris[$x]<br>"; $qtxt = "update ordrelinjer set pris='{$ny_pris[$x]}' where id = '{$linje_id[$x]}'"; #cho "$qtxt<br>"; db_modify($qtxt, __FILE__ . " linje " . __LINE__); } } } elseif (!$indbetaling) { print "<BODY onLoad=\"javascript:alert('Fejl i øreafrunding, kontakt Danosoft på telefon 46902208')\">"; print "<meta http-equiv=\"refresh\" content=\"0;URL=pos_ordre.php?id={$id}\">"; exit; } } #cho "INCL MOMS=$incl_moms-($sum+$moms)<br>"; $tidspkt = date("Y-m-d H:i"); $qtxt = "update ordrer set levdate = '{$dd}',fakturadate = '{$dd}',sum='{$sum}', moms='{$moms}', betalt='{$betalt}',status='2',felt_1='{$betaling}',felt_2='{$modtaget}',felt_3='{$betaling2}',felt_4='{$modtaget2}',felt_5='{$kasse}',tidspkt='{$tidspkt}',projekt='{$projekt}' where id='{$id}'"; db_modify($qtxt, __FILE__ . " linje " . __LINE__); if (!$indbetaling) { $svar = levering($id, 'on', '', ''); if ($svar != 'OK') { return $svar; } $svar = bogfor($id, ''); if ($svar != 'OK') { return $svar; } } else { $svar = bogfor_indbetaling($id, ''); if ($svar != 'OK') { return $svar; } } } #xit; transaktion("commit"); if (db_fetch_array(db_select("select id from grupper where art = 'POS' and kodenr = '1' and box10='on'", __FILE__ . " linje " . __LINE__))) { pos_txt_print($id, $betaling, $betaling2, $modtaget, $modtaget2, $indbetaling); } else { $pfnavn = "../temp/" . $db . "/" . $bruger_id . ".txt"; $fp = fopen("{$pfnavn}", "w"); fclose($fp); $tmp = "/temp/" . $db . "/" . $bruger_id . ".txt"; $url = "://" . ($_SERVER['SERVER_NAME'] .= $_SERVER['PHP_SELF']); $url = str_replace("/debitor/pos_ordre.php", "", $url); if ($_SERVER['HTTPS']) { $url = "s" . $url; } $url = "http" . $url; print "<BODY onLoad=\"JavaScript:window.open('http://{$printserver}/saldiprint.php?printfil={$tmp}&url={$url}&bruger_id={$bruger_id}&bonantal=1' , '' , '{$jsvars}');\">\n"; } print "\n<!-- Function afslut (s**t)-->\n"; return NULL; }
if (isset($_GET['id'])) { $id = $_GET['id']; } if ($id && $id >= 1) { $modulnr = 5; include "../includes/connect.php"; include "../includes/online.php"; include "../includes/std_func.php"; include "../includes/ordrefunc.php"; include "../includes/fuld_stykliste.php"; $hurtigfakt = if_isset($_GET['hurtigfakt']); $genfakt = if_isset($_GET['genfakt']); $pbs = if_isset($_GET['pbs']); $mail_fakt = if_isset($_GET['mail_fakt']); transaktion("begin"); $svar = levering($id, $hurtigfakt, $genfakt, 0); if ($svar == 'OK') { transaktion("commit"); if ($hurtigfakt == 'on') { db_modify("update ordrer set status=2 where id='{$id}' and status<2", __FILE__ . " linje " . __LINE__); print "<meta http-equiv=\"refresh\" content=\"0;URL=bogfor.php?id={$id}&genfakt={$genfakt}&mail_fakt={$mail_fakt}&pbs={$pbs}\">"; exit; } else { print "<meta http-equiv=\"refresh\" content=\"0;URL=ordre.php?id={$id}\">"; } } else { print "<BODY onLoad=\"javascript:alert('{$svar}')\">"; } } ?> </body></html>
function invoice($string) { $webservice = '1'; $fp = fopen("../temp/invoice.log", "w"); list($s_id, $tmp) = explode(chr(9), $string); if (!$s_id) { return '1' . chr(9) . "Missing session ID"; } # include("../includes/select.php"); include "../includes/connect.php"; include "../includes/online.php"; include "../includes/std_func.php"; include "../includes/ordrefunc.php"; include "../includes/formfunk.php"; $linje = NULL; $ordre_id = str_replace($s_id, "", $string); $ordre_id = str_replace(chr(9), "", $ordre_id); $ordre_id = str_replace(chr(10), "", $ordre_id); $ordre_id = str_replace(chr(13), "", $ordre_id); # $ordre_id=str_replace(" ","",$ordre_id); $ordre_id = strtolower($ordre_id); list($table, $tmp) = explode("set", $ordre_id, 2); $table = trim($table); $r = db_fetch_array(db_select("select momssats from ordrer where id = '{$ordre_id}'", __FILE__ . " linje " . __LINE__)); $momssats = $r['momssats'] * 1; $x = 0; $ordresum = 0; $momssum = 0; $kostsum = 0; $momsdiff = 0; $q = db_select("select * from ordrelinjer where ordre_id = '{$ordre_id}'", __FILE__ . " linje " . __LINE__); while ($r = db_fetch_array($q)) { if ($r['vare_id']) { $linjesum = $r['pris'] * $r['antal'] - $r['pris'] * $r['antal'] * $r['rabat'] / 100; $ordresum += $linjesum; $linjemoms = $linjesum * $r['momssats'] / 100; $momssum += $linjemoms; if ($r['momssats'] != $momssats || $r['momsfri']) { $momsdiff = 1; } $kostsum += $r['kostpris'] * $r['antal']; } $ordresum = afrund($ordresum, 2); if (!$momsdiff) { $momssum = $ordresum * $momssats / 100; } $momssum = afrund($momssum, 2); } transaktion('begin'); $linje = "update ordrer set status = '2',levdate = ordredate,fakturadate = ordredate,sum='{$ordresum}',moms='{$momssum}',udskriv_til='email',mail_fakt='on',momssats='{$momssats}',kostpris='{$kostsum}',projekt='' where id = '{$ordre_id}'"; fwrite($fp, $linje . "\n"); $svar = db_modify($linje, __FILE__ . " linje " . __LINE__); list($fejl, $svar) = explode(chr(9), $svar); if ($fejl) { return $fejl . chr(9) . $svar; } $linje = "update ordrelinjer set projekt = '' where ordre_id = '{$ordre_id}'"; fwrite($fp, $linje . "\n"); $svar = db_modify($linje, __FILE__ . " linje " . __LINE__); list($fejl, $svar) = explode(chr(9), $svar); if ($fejl) { return $fejl . chr(9) . $svar; } $linje = "update ordrelinjer set leveres = antal where ordre_id = '{$ordre_id}' and vare_id>'0'"; fwrite($fp, $linje . "\n"); $svar = db_modify($linje, __FILE__ . " linje " . __LINE__); list($fejl, $svar) = explode(chr(9), $svar); if ($fejl) { return $fejl . chr(9) . $svar; } $linje = "levering({$ordre_id},'on','','on')"; fwrite($fp, $linje . "\n"); $svar = levering($ordre_id, 'on', '', 'on'); if ($svar != 'OK') { return '1' . chr(9) . $svar; } $linje = "update ordrelinjer set leveret = antal,leveres='0' where ordre_id = '{$ordre_id}' and vare_id>'0'"; fwrite($fp, $linje . "\n"); $svar = db_modify($linje, __FILE__ . " linje " . __LINE__); $linje = "bogfor({$ordre_id},'on')"; fwrite($fp, $linje . "\n"); $svar = bogfor($ordre_id, 'on'); list($fejl, $svar) = explode(chr(9), $svar); fwrite($fp, $fejl . " " . $svar . "\n"); if ($fejl != 'OK') { $linje = "{$fejl}"; # fwrite($fp,$linje."\n"); return '1' . chr(9) . $fejl; } else { transaktion('commit'); } $linje = "formularprint({$ordre_id},'4','1',{$charset},'email')"; fwrite($fp, $linje . "\n"); $svar = formularprint($ordre_id, '4', '1', $charset, 'email'); fwrite($fp, $linje . "Svar " . $svar . "\n"); if ($svar && $svar != 'OK') { return '1' . chr(9) . $svar; } else { fclose($fp); return '0' . chr(9) . $ordre_id; } }
$udskriv_til[$x] == 'email' ? $mail_fakt = 'on' : ($mail_fakt = ''); #20130117 strstr($udskriv_til[$x], 'PBS') ? $pbs = 'on' : ($pbs = ''); #20130117 if ($udskriv_til[$x] == 'oioubl') { if ($art == "DO") { $oioubl = 'faktura'; } else { $oioubl = 'kreditnota'; } } else { $oioubl = NULL; } $y++; transaktion('begin'); levering($ordreliste[$x], 'on', 'on'); $svar = bogfor($ordreliste[$x], 'on', 'on'); if ($svar == 'OK') { if ($pbs) { pbsfakt($ordreliste[$x]); $y--; #20130117 } elseif ($oioubl) { $printfilnavn = "doktype-faktura_dokid-" . $ordreliste[$x] . ".xml"; $fp = fopen("../temp/{$db}/{$printfilnavn}", "w"); fwrite($fp, oioubldoc_faktura($ordreliste[$x], 'faktura', NULL)); fclose($fp); #echo "'oioubl_dok.php?id=$ordreliste[$x]&doktype=$oioubl&genfakt=1' ,'' ,'$jsvars'<br>"; # print "<BODY onLoad=\"JavaScript:window.open('oioubl_dok.php?id=$ordreliste[$x]&doktype=$oioubl&genfakt=1' ,'' ,'$jsvars');\">\n"; $r = db_fetch_array(db_select("select box8 from grupper where art = 'DIV' and kodenr = '2'", __FILE__ . " linje " . __LINE__)); if ($r['box8']) {
function bogfor($id, $webservice) { echo "<!--function bogfor start-->"; global $regnaar; global $fakturadate; global $valutakurs; global $pbs; global $mail_fakt; global $db; global $brugernavn; global $momssats; global $retur; # $fp=fopen("../temp/ordrefunc.log","a"); # $linje="select * from ordrer where id = $id"; # fwrite($fp,$linje."\n"); $query = db_select("select * from ordrer where id = {$id}", __FILE__ . " linje " . __LINE__); $row = db_fetch_array($query); $konto_id = $row['konto_id']; $ordredate = $row['ordredate']; $levdate = $row['levdate']; $fakturadate = $row['fakturadate']; $nextfakt = $row['nextfakt']; $art = $row['art']; $kred_ord_id = $row['kred_ord_id']; $valuta = $row['valuta']; $art = $row['art']; $fakturanr = $row['fakturanr']; $procenttillag = $row['procenttillag'] * 1; $momssats = $row['momssats']; #cho $row['sum']." -> ".$row['moms']."<br>"; if ($art == 'PO') { $sum = $row['sum']; $moms = afrund($row['moms'], 2); #cho "Moms $moms<br>"; $betaling = $row['felt_1']; $betalt = $row['felt_2']; $betaling2 = $row['felt_3']; $betalt2 = $row['felt_4']; $betalingsbet = $row['betalingsbet']; if ($betalingsbet == 'Kontant') { $konto_id = '0'; } $r = db_fetch_array(db_select("select box2 from grupper where art='OreDif'", __FILE__ . " linje " . __LINE__)); $difkto = $r['box2']; } if ($row['status'] > '2') { return "invoice allready created for order id {$id}"; } #cho "procenttillag $procenttillag<br>"; if ($procenttillag) { $sum = 0; $q = db_select("select * from ordrelinjer where ordre_id='{$id}' order by posnr", __FILE__ . " linje " . __LINE__); while ($r = db_fetch_array($q)) { if ($r['vare_id']) { $linjesum = $r['antal'] * $r['pris']; if ($r['rabat']) { $linjesum -= $linjesum * $r['rabat'] / 100; } $linjesum -= $linjesum * (100 - $r['procent']) / 100; $sum += $linjesum; } $posnr = $r['posnr']; } $posnr++; $tillag = $sum / 100 * $procenttillag; $qtxt = "select box13 from grupper where art = 'DIV' and kodenr = '3'"; #cho "$qtxt<br>"; $r = db_fetch_array(db_select($qtxt, __FILE__ . " linje " . __LINE__)); list($tmp, $procentvare) = explode(chr(9), $r['box13']); #cho "box13 $r[box13] -> $procentvare<br>"; if ($procentvare) { $qtxt = "select * from varer where varenr = '{$procentvare}'"; #cho "$qtxt<br>"; $r = db_fetch_array(db_select($qtxt, __FILE__ . " linje " . __LINE__)); if ($r['id']) { #cho "$id,$r[varenr],1,$r[beskrivelse],$tillag,0,100,$art,'',$posnr,'','','on','percent',''<br>"; $tmp = str_replace('$procenttillæg;', $procenttillag, $r['beskrivelse']); opret_ordrelinje($id, $r['id'], $r['varenr'], 1, $tmp, $tillag, 0, 100, $art, '', $posnr, '', '', 'on', 'percent', ''); #20140426 $r = db_fetch_array(db_select("select max(id) as linje_id from ordrelinjer where ordre_id='{$id}'", __FILE__ . " linje " . __LINE__)); db_modify("update ordrelinjer set leveres='1' where id='{$r['linje_id']}'", __FILE__ . " linje " . __LINE__); levering($id, '', '', ''); $sum += $tillag; #cho "update ordrer set sum=sum+$tillag, moms=moms+$tillag/100*$momssats where id = '$id'<br>"; db_modify("update ordrer set sum=sum+{$tillag}, moms=moms+{$tillag}/100*{$momssats} where id = '{$id}'", __FILE__ . " linje " . __LINE__); #xit; } else { return 'Manglende vare til procenttillæg'; } } else { return 'Manglende vare til procenttillæg -- ' . $procentvare; } } # $x=0; # $saet=array(); $diff = 0; $saetsum = 0; $saetmoms = 0; $q = db_select("select * from ordrelinjer where ordre_id='{$id}' order by saet", __FILE__ . " linje " . __LINE__); $art == 'DO' ? $dan_kn = 1 : ($dan_kn = 0); while ($r = db_fetch_array($q)) { if ($r['vare_id'] && $r['antal'] >= 0) { $dan_kn = 0; } # if ($r['saet'] && in_array($r['saet'],$saet) { # $saetsum[$x]+=$r['pris']*$r['antal']-($r['pris']*$r['antal']*$r['rabat']/100); # } elseif ($r['saet']) { if ($r['saet']) { $tmp = $r['pris'] * $r['antal'] - $r['pris'] * $r['antal'] * $r['rabat'] / 100; $saetsum += $tmp; if (!$r['momsfri'] && $momssats) { $saetmoms += $tmp * $momssats / 100; } } } if ($saetsum) { $r = db_fetch_array(db_select("select box2 from grupper where art='OreDif'", __FILE__ . " linje " . __LINE__)); $difkto = $r['box2']; $tmp = afrund($saetsum + $saetmoms, 2); $diff = $tmp - pos_afrund($tmp, $difkto); # if (afrund($diff,2)) saet_afrund($id,$saetsum,$saetmoms,$difkto); } # $q=db_select("select * from ordrelinjer where ordre_id='$id' order by posnr",__FILE__ . " linje " . __LINE__); # while ($r = db_fetch_array($q)) #cho "Ordrelinje $r[posnr] $r[ordre_id] $r[vare_id] $r[varenr] $r[beskrivelse] >$r[projekt]< $r[bogf_konto]<br>"; #xit; $query = db_select("select box1, box2, box3, box4 from grupper where art='RA' and kodenr='{$regnaar}'", __FILE__ . " linje " . __LINE__); if ($row = db_fetch_array($query)) { $year = $row['box2'] * 1; $month = $row['box1'] * 1; #20130411-2 if ($month < 10) { $month = "0" . $month; } #20130411-2 $aarstart = str_replace(" ", "", $year . $month); $year = $row['box4'] * 1; $month = $row['box3'] * 1; if ($month < 10) { $month = "0" . $month; } $aarslut = str_replace(" ", "", $year . $month); } $query = db_select("select * from ordrer where id = '{$id}'", __FILE__ . " linje " . __LINE__); $row = db_fetch_array($query); if (!$fakturadate) { if ($webservice) { return "missing invoicedate for order {$id}"; } else { print "<meta http-equiv=\"refresh\" content=\"0;URL=../debitor/fakturadato.php?id={$id}&pbs={$pbs}&mail_fakt={$mail_fakt}&returside=bogfor.php\">"; exit; } } if ($valuta && $valuta != 'DKK') { if ($r = db_fetch_array(db_select("select valuta.kurs as kurs, grupper.box3 as difkto from valuta, grupper where grupper.art='VK' and grupper.box1='{$valuta}' and valuta.gruppe=" . nr_cast("grupper.kodenr") . " and valuta.valdate <= '{$fakturadate}' order by valuta.valdate desc", __FILE__ . " linje " . __LINE__))) { $valutakurs = $r['kurs'] * 1; $difkto = $r['difkto'] * 1; if (!db_fetch_array(db_select("select id from kontoplan where kontonr='{$difkto}' and regnskabsaar='{$regnaar}'", __FILE__ . " linje " . __LINE__))) { if ($webservice) { return "Kontonr {$difkto} (kursdiff) eksisterer ikke"; } else { return "Kontonr {$difkto} (kursdiff) eksisterer ikke"; } } } else { $tmp = dkdato($fakturadate); return "Der er ikke nogen valutakurs for {$valuta} den {$tmp} (fakturadatoen)."; } } else { $valuta = 'DKK'; $valutakurs = 100; } if (!$levdate) { if ($webservice) { return "Missing deliverydate"; } else { return "Leveringsdato SKAL udfyldes"; } } if ($levdate < $ordredate) { if ($webservice) { return "Deliverydate prior to orderdate"; } else { return "Leveringsdato er før ordredato"; } } if ($fakturadate < $levdate) { if ($webservice) { return "Invoicedate prior to orderdate"; } else { return "Fakturadato er før leveringsdato"; } } if ($nextfakt && $nextfakt <= $fakturadate) { if ($webservice) { return "Next_invoicedate prior to invoicedate"; } else { return "Genfaktureringsdato skal være efter fakturadato"; } } list($year, $month, $day) = explode('-', $fakturadate); $year = trim($year); $ym = $year . $month; if ($art != 'PO' && !$webservice && ($ym < $aarstart || $ym > $aarslut)) { print "<BODY onLoad=\"javascript:alert('Fakturadato udenfor regnskabsår')\">"; print "<meta http-equiv=\"refresh\" content=\"0;URL=ordre.php?id={$id}\">"; exit; } if ($valuta && $valuta != 'DKK') { if ($r = db_fetch_array(db_select("select valuta.kurs from valuta, grupper where grupper.art='VK' and grupper.box1='{$valuta}' and valuta.gruppe=" . nr_cast("grupper.kodenr") . " and valuta.valdate <= '{$ordredate}' order by valuta.valdate desc", __FILE__ . " linje " . __LINE__))) { $valutakurs = $r['kurs']; } else { $tmp = dkdato($ordredate); return "Der er ikke nogen valutakurs for {$valuta} den {$ordredate} (ordredatoen)"; } } $qtxt = "select * from ordrelinjer where pris != '0' and m_rabat != '0' and rabat = '0' and ordre_id='{$id}'"; if ($r = db_fetch_array(db_select($qtxt, __FILE__ . " linje " . __LINE__))) { $rabatkontonr = $r['bogf_konto']; $rabatvareid = $r['id']; $rabatvarenr = $r['varenr']; if ($r = db_fetch_array(db_select("select box2 from grupper where art = 'DIV' and kodenr='3'", __FILE__ . " linje " . __LINE__))) { if ($rabatvareid = $r['box2'] * 1) { $r = db_fetch_array(db_select("select varenr from varer where id = '{$rabatvareid}'", __FILE__ . " linje " . __LINE__)); $rabatvarenr = $r['varenr']; } # else $fejl="Manglende varenummer for rabat (Indstillinger -> Diverse -> Ordrerelaterede valg)"; } # else $fejl="Manglende varenummer for rabat (Indstillinger -> Diverse -> Ordrerelaterede valg)"; } #exit; if (!$fejl) { #ransaktion("begin"); 20130506 if ($art != "PO") { $fakturanr = 1; # select max kan ikke bruges da fakturanr felt ikke er numerisk; $q = db_select("select fakturanr from ordrer where art = 'DO' or art = 'DK'", __FILE__ . " linje " . __LINE__); while ($r = db_fetch_array($q)) { if ($fakturanr <= $r['fakturanr'] * 1) { $fakturanr = $r['fakturanr'] + 1; } } $r = db_fetch_array(db_select("select box1 from grupper where art = 'RB' and kodenr='1'", __FILE__ . " linje " . __LINE__)); if ($fakturanr < $r['box1']) { $fakturanr = $r['box1']; } if ($fakturanr < 1) { $fakturanr = 1; } $ny_id = array(); $x = 0; $q = db_select("select * from ordrelinjer where pris != '0' and m_rabat != '0' and rabat = '0' and ordre_id='{$id}'", __FILE__ . " linje " . __LINE__); while ($r = db_fetch_array($q)) { $x++; $linje_id[$x] = $r['id'] * 1; $linje_m_rabat[$x] = $r['m_rabat']; $linje_pris[$x] = $r['pris']; $linje_rabatart[$x] = $r['rabatart']; $linje_varenr[$x] = $r['varenr']; $linje_posnr[$x] = $r['posnr']; } $linjeantal = $x; for ($x = 1; $x <= $linjeantal; $x++) { $ny_id[$x] = copy_row("ordrelinjer", $linje_id[$x]); $pris = $linje_m_rabat[$x]; $pris *= -1; $rabatpct = afrund($linje_m_rabat[$x] * 100 / $linje_pris[$x], 2); $linje_rabatart[$x] == 'amount' ? $beskrivelse = findtekst(466, $sprog_id) : ($beskrivelse = findtekst(467, $sprog_id)); $beskrivelse = str_replace('$rabatpct', $rabatpct, $beskrivelse); #cho "update ordrelinjer set posnr=posnr+0.1,varenr='$rabatvarenr',vare_id='$rabatvareid',pris='$pris',kostpris='0',m_rabat='0',beskrivelse='$beskrivelse',bogf_konto='$rabatkontonr',kdo='on' where id=$ny_id[$x]<br>"; #exit; db_modify("update ordrelinjer set posnr=posnr+0.1,varenr='{$rabatvarenr}',vare_id='{$rabatvareid}',pris='{$pris}',kostpris='0',m_rabat='0',beskrivelse='{$beskrivelse}',bogf_konto='{$rabatkontonr}',kdo='on' where id={$ny_id[$x]}", __FILE__ . " linje " . __LINE__); $r = db_fetch_array(db_select("select * from ordrelinjer where id='{$ny_id[$x]}'", __FILE__ . " linje " . __LINE__)); #cho "$r[id],$r[ordre_id],$r[posnr],$r[varenr],$r[vare_id],$r[pris],$r[kostpris],$r[m_rabat],$r[beskrivelse],$r[bogf_konto]<br>--<br>"; } } else { # Så er det en POS ordre #cho "$konto_id==0 && $sum+$moms=!$betalt<br>"; $diff = 0; if ($betaling == 'Kontant' && !$betaling2) { $tmp1 = afrund($sum + $moms, 2); $tmp2 = pos_afrund($sum + $moms, $difkto); if ($afrunding = $tmp2 - $tmp1) { #cho "A $afrunding $tmp2-$tmp1<br>"; if ($moms) { $afrundingsmoms = afrund($afrunding * ($moms * 100 / $sum) / 100, 2); $afrunding = afrund($afrunding - $afrundingsmoms, 2); $sum += $afrunding; $moms += $afrundingsmoms; } #cho "A1 $afrunding $tmp2-$tmp1<br>"; # $diff=1; $diff = $afrunding; } } if (afrund($sum + $moms, 2) + $retur != $betalt) { #20140613 $returdiff = afrund($sum + $moms, 2) + $retur - $betalt; if (afrund($returdiff, 2) == 0.01) { $moms = $moms - 0.01; } elseif (afrund($returdiff, 2) == -0.01) { $moms = $moms + 0.01; } db_modify("update ordrer set sum = '{$sum}',moms='{$moms}' where id = '{$id}'", __FILE__ . " linje " . __LINE__); } $a = afrund($sum + $moms, 2); #20131111 + næste 3 linjer rettet grundet php fejl?? $b = afrund($betalt + $betalt2, 2); if ($konto_id == 0 && $a != $b) { # $retur=$a-$b; Hentes fra global. $tmp2 = afrund($retur, 2); $tmp1 = pos_afrund($retur, $difkto); #cho "B $afrunding $tmp2-$tmp1<br>"; if ($afrunding = afrund($tmp2 - $tmp1, 2)) { #cho "B $afrunding $tmp2-$tmp1<br>"; if ($moms) { $afrundingsmoms = afrund($afrunding * ($moms * 100 / $sum) / 100, 2); $afrunding = afrund($afrunding - $afrundingsmoms, 2); $sum += $afrunding; $moms += $afrundingsmoms; } $diff += $afrunding; } } #xit; #cho "DK $difkto && DI $diff && AF $afrunding Moms $moms<br>"; $diff = afrund($diff, 2); #20140613 if ($difkto && $diff) { $linje_posnr[$x] += 0.1; # #cho "POI insert into ordrelinjer (posnr,antal,pris,rabat,procent,ordre_id,bogf_konto,beskrivelse,projekt) values ('0','1', '$diff', 0,100, '$id', '$difkto','Afrunding','$projekt')<br>"; db_modify("insert into ordrelinjer (posnr,antal,pris,rabat,procent,ordre_id,bogf_konto,beskrivelse,projekt) values ('0','1', '{$diff}', 0,100, '{$id}', '{$difkto}','Afrunding','{$projekt}')", __FILE__ . " linje " . __LINE__); db_modify("update ordrer set sum = '{$sum}',moms='{$moms}' where id = '{$id}'", __FILE__ . " linje " . __LINE__); } } #cho "A select * from ordrer where id='$id'<br>"; $q = db_select("select * from ordrer where id='{$id}'", __FILE__ . " linje " . __LINE__); $r = db_fetch_array($q); #cho "Sum $r[sum] $r[moms]<br>"; batch_kob($id, $art); #cho "B select * from ordrer where id='$id'<br>"; $q = db_select("select * from ordrer where id='{$id}'", __FILE__ . " linje " . __LINE__); $r = db_fetch_array($q); #cho "Sum $r[sum] $r[moms]<br>"; batch_salg($id); #cho "D select * from ordrer where id='$id'<br>"; $q = db_select("select * from ordrer where id='{$id}'", __FILE__ . " linje " . __LINE__); $r = db_fetch_array($q); #cho "Sum $r[sum] $r[moms]<br>"; #cho "update ordrer set status=3, fakturanr=$fakturanr, valutakurs=$valutakurs where id=$id<br>"; $tidspkt = date("H:i"); db_modify("update ordrer set status='3', fakturanr='{$fakturanr}', tidspkt='{$tidspkt}', valutakurs='{$valutakurs}' where id='{$id}'", __FILE__ . " linje " . __LINE__); if ($afd) { db_modify("update ordrer set felt_5='{$afd}' where id='{$id}'", __FILE__ . " linje " . __LINE__); } $r = db_fetch_array(db_select("select box5 from grupper where art='DIV' and kodenr='3'", __FILE__ . " linje " . __LINE__)); $straksbogfor = $r['box5']; $svar = momsupdat($id); if ($art == 'PO' && !$konto_id) { $r = db_fetch_array(db_select("select box9 from grupper where art='POS' and kodenr='1'", __FILE__ . " linje " . __LINE__)); $straksbogfor = $r['box9']; } #$linje="Straksbogfor $straksbogfor ($id,$webservice)<br>"; #fwrite($fp,$linje."\n"); if ($dan_kn) { db_modify("update ordrer set art = 'DK' where id = '{$id}'", __FILE__ . " linje " . __LINE__); } if ($straksbogfor) { $svar = bogfor_nu($id, $webservice); } #$linje="Svar $svar<br>"; #fwrite($fp,$linje."\n"); if ($svar != "OK") { return $svar; exit; } else { # exit; #ransaktion("commit"); 20130506 } } elseif (!$svar) { $svar = $fejl; } echo "<!--function bogfor s**t-->"; return $svar; }
$komplet = if_isset($_POST['komplet']); $fakt_dato = if_isset($_POST['fakt_dato']); $opdat_pris = if_isset($_POST['opdat_pris']); $slet_gfdato = if_isset($_POST['slet_gfdato']); $box1 = "{$org_nr},{$komplet},{$fakt_dato},{$opdat_pris},{$slet_gfdato}"; if ($gf_id) { db_modify("update grupper set box1='{$box1}' where id='{$gf_id}'", __FILE__ . " linje " . __LINE__); } else { db_modify("insert into grupper (beskrivelse,art,kodenr,box1) values ('Genfakturering','GF','{$bruger_id}','{$box1}')", __FILE__ . " linje " . __LINE__); } $udskriv_antal = 0; $ny_liste = ''; for ($q = 0; $q < $ordre_antal; $q++) { list($id, $pbs) = explode(",", genfakt($ordre_id[$q], $org_nr, $fakt_dato, $opdat_pris, $slet_gfdato)); if ($komplet) { levering($id, 'on', 'on'); $svar = bogfor($id, 'on', 'on'); if ($svar != 'OK') { if (strpos($svar, 'invoicedate prior to')) { $tekst = "Genfaktureringsdato før fakturadato"; } else { $tekst = "Der er konstateret en ubalance i posteringssummen,\\nkontakt venligst Danosoft på tlf. +45 46902208"; } print "<BODY onLoad=\"javascript:alert('{$tekst}')\">\n"; print "<meta http-equiv=\"refresh\" content=\"0;URL=ordreliste.php\">"; exit; } } else { if ($ny_liste) { $ny_liste .= ",{$id}"; } else {
} $gl_id = $ordre_id; if ($delfakturer) { $ordre_id = delfakturer($ordre_id, $valg); } list($ordre_id, $leveres) = find_next($ordre_id, $valg); if ($ordre_id && $leveres) { $x++; $ordre_antal++; if ($skriv) { $skriv = $skriv . "," . $ordre_id; } else { $skriv = $ordre_id; } momsupdat($ordre_id); levering($ordre_id, 'on', 'on'); bogfor($ordre_id); } elseif ($ordre_id) { $rest++; $rest_id[$rest] = $ordre_id; } if ($x >= 10) { if ($valg == 'tilbud') { $qtxt = "select count(*) as antal from ordrer where status='0' and art='DO'"; } else { $qtxt = "select count(*) as antal from ordrer where (status='1' or status='2') and art='DO'"; } if ($r = db_fetch_array($q = db_select($qtxt, __FILE__ . " linje " . __LINE__))) { echo "Vent - {$r['antal']} ordrer tilbage<br>"; } $tmp = explode($rest_id);
function fakturer_ordre($saldi_id) { global $art; #transaktion('begin'); $qtxt = "select shop_id from shop_ordrer where saldi_id='{$saldi_id}'"; $r = db_fetch_array(db_select($qtxt, __FILE__ . " linje " . __LINE__)); $shop_id = $r['shop_id']; $qtxt = "update ordrer set levdate=ordredate,fakturadate=ordredate,betalingsbet='Kreditkort',betalingsdage='0',ref='Internet',kundeordnr='{$shop_id}' where id='{$saldi_id}'"; db_modify($qtxt, __FILE__ . " linje " . __LINE__); $qtxt = "update ordrelinjer set leveres = antal where ordre_id='{$saldi_id}'"; db_modify($qtxt, __FILE__ . " linje " . __LINE__); #cho "bogfører $ordre_id<br>"; $svar = levering($saldi_id); if ($svar == 'OK') { $svar = bogfor($saldi_id); } #cho "bogført $svar<br>"; $r = db_fetch_array(db_select("select * from ordrer where id = '{$saldi_id}'", __FILE__ . " linje " . __LINE__)); $betalt = $r['sum'] + $r['moms']; #cho "insert into pos_betalinger(ordre_id,betalingstype,amount) values ('$saldi_id','betalingskort','$betalt')<br>"; db_modify("insert into pos_betalinger(ordre_id,betalingstype,amount) values ('{$saldi_id}','Betalingskort','{$betalt}')", __FILE__ . " linje " . __LINE__); if ($svar == 'OK') { return "{$saldi_id}"; } else { print "<body onload=\"javascript:alert('{$svar}');window.close();\">"; } }