PageRenderTime 52ms CodeModel.GetById 15ms RepoModel.GetById 0ms app.codeStats 0ms

/debitor/pos_ordre.php

https://github.com/nielsrune/saldi
PHP | 1575 lines | 1362 code | 88 blank | 125 comment | 427 complexity | 3b4ede9849323771f1a8a8866f53e63d MD5 | raw file
Possible License(s): LGPL-2.1
  1. <?php
  2. // ------------- debitor/pos_ordre.php ---------- lap 3.2.3----2013.05.07-------
  3. // LICENS
  4. //
  5. // Dette program er fri software. Du kan gendistribuere det og / eller
  6. // modificere det under betingelserne i GNU General Public License (GPL)
  7. // som er udgivet af The Free Software Foundation; enten i version 2
  8. // af denne licens eller en senere version efter eget valg
  9. // Fra og med version 3.2.2 dog under iagttagelse af følgende:
  10. //
  11. // Programmet må ikke uden forudgående skriftlig aftale anvendes
  12. // i konkurrence med DANOSOFT ApS eller anden rettighedshaver til programmet.
  13. //
  14. // Dette program er udgivet med haab om at det vil vaere til gavn,
  15. // men UDEN NOGEN FORM FOR REKLAMATIONSRET ELLER GARANTI. Se
  16. // GNU General Public Licensen for flere detaljer.
  17. //
  18. // En dansk oversaettelse af licensen kan laeses her:
  19. // http://www.fundanemt.com/gpl_da.html
  20. //
  21. // Copyright (c) 2004-2013 DANOSOFT ApS
  22. // ----------------------------------------------------------------------
  23. //
  24. // 2013-03-10. Tilføjet mulighed for at give rabat på varer uden pris ved at skrive "r" efter prisen. Søg 20130310
  25. // 2013.05.07 - Tilføjet visning af kostpris v. mus over pris.
  26. @session_start();
  27. $s_id=session_id();
  28. ob_start();
  29. $modulnr=5;
  30. $title="POS_ordre";
  31. $css="../css/pos.css";
  32. $betaling=NULL; $betaling2=NULL; $konto_id=NULL; $next_varenr=NULL;
  33. $fokus="varenr_ny";
  34. $valuta='DKK';$valutakurs='100';
  35. include("../includes/connect.php");
  36. include("../includes/online.php");
  37. include("../includes/std_func.php");
  38. include("../includes/ordrefunc.php");
  39. $projekt=NULL;
  40. $tid=date("H:i");
  41. $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__));
  42. $projekt=$r['box9'];
  43. if (!$projekt) {
  44. $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__));
  45. $projekt=$r['box9'];
  46. }
  47. $returside=(if_isset($_GET['returside']));
  48. if (!$returside) {
  49. if ($popup) $returside="../includes/luk.php";
  50. else $returside="../index/menu.php";
  51. }
  52. print "<script language=\"javascript\" type=\"text/javascript\" src=\"../javascript/confirmclose.js\"></script>";
  53. $kasse = if_isset($_GET['kasse']);
  54. $menu_id = if_isset($_GET['menu_id']);
  55. $kassebeholdning = if_isset($_GET['kassebeholdning']);
  56. if ($kasse && $kassebeholdning) kassebeholdning($kasse);
  57. if (!$kasse || $kasse == "?") $kasse=find_kasse($kasse);
  58. elseif ($kasse=="opdat") {
  59. $kasse=$_POST['kasse'];
  60. setcookie("saldi_pos",$kasse,time()+60*60*24*30);
  61. }
  62. ob_end_flush();
  63. $bon = trim(strtoupper(if_isset($_POST['bon'])));
  64. if ($bon=='S') {
  65. $r=db_fetch_array(db_select("select max(id) as id from ordrer where felt_5='$kasse'",__FILE__ . " linje " . __LINE__));
  66. if ($id=$r['id']) $r=db_fetch_array(db_select("select fakturanr from ordrer where id='$id'",__FILE__ . " linje " . __LINE__));
  67. $bon=trim($r['fakturanr']);
  68. } elseif ($bon) {
  69. $r=db_fetch_array(db_select("select id from ordrer where fakturanr = '$bon'",__FILE__ . " linje " . __LINE__));
  70. $id=$r['id'];
  71. } else $id = if_isset($_GET['id'])*1;
  72. $vare_id = if_isset($_GET['vare_id'])*1;
  73. $vare_id_ny = if_isset($_GET['vare_id_ny'])*1;
  74. if ($vare_id_ny && !$vare_id) {
  75. $vare_id=$vare_id_ny;
  76. } elseif ($vare_id_ny && $vare_id) {
  77. if (!$id) $id=opret_ordre(NULL,$kasse);
  78. $r=db_fetch_array(db_select("select varenr, salgspris from varer where id = '$vare_id'",__FILE__ . " linje " . __LINE__));
  79. #cho "A opret_ordrelinje($id,$r[varenr],1,'',$r[pris_ny],0,'PO','','','0','on','','','0')<br>";
  80. $linje_id=opret_ordrelinje($id,$r['varenr'],1,'',$r['pris_ny'],0,'PO','','','0','on','','','0');
  81. $vare_id=$vare_id_ny;
  82. }
  83. $funktion = if_isset($_GET['funktion']);
  84. if ($funktion) {
  85. $sort = if_isset($_GET['sort'])*1;
  86. $funktion ('PO',$sort,$fokus, $id,"","","");
  87. }
  88. $spec_func = if_isset($_GET['spec_func']);
  89. if ($spec_func) {
  90. $kode = if_isset($_POST['kode']);
  91. include("../includes/spec_func.php");
  92. $svar=$spec_func('xx',$id,$kode);
  93. if (!is_numeric($svar)) {
  94. print "<BODY onLoad=\"javascript:alert('$svar')\">";
  95. } else $konto_id=$svar;
  96. }
  97. $kontonr = if_isset($_POST['kontonr'])*1;
  98. if (!$konto_id) $konto_id = if_isset($_GET['konto_id'])*1;
  99. if ($konto_id || $kontonr) {
  100. $id=opdater_konto($konto_id,$kontonr,$id);
  101. $r=db_fetch_array(db_select("select momssats,sum,betalt,betalingsbet from ordrer where id = '$id'",__FILE__ . " linje " . __LINE__));
  102. $betalingsbet=$r['betalingsbet'];
  103. $momssats=$r['momssats']*1;
  104. if ($betalingsbet!='Kontant') $modtaget=$r['betalt']*1;
  105. $sum=$r['sum']*1;
  106. $betaling='ukendt';
  107. # if ($modtaget <= $sum) $id=afslut($id,'konto',$modtaget);
  108. # else $betaling='ukendt';
  109. }
  110. if ($vare_id) {
  111. $r=db_fetch_array(db_select("select varenr from varer where id = '$vare_id'",__FILE__ . " linje " . __LINE__));
  112. $varenr_ny=$r['varenr'];
  113. } elseif (sizeof($_POST)>1) {
  114. $afslut=if_isset($_POST['afslut']);
  115. $ny_bruger=if_isset($_POST['ny_bruger']);
  116. $kode=if_isset($_POST['kode']);
  117. $indbetaling=if_isset($_POST['indbetaling']);
  118. $sum=if_isset($_POST['sum']);
  119. $betaling=if_isset($_POST['betaling']);
  120. $betaling2=if_isset($_POST['betaling2']);
  121. $kontonr=if_isset($_POST['kontonr']);
  122. $modtaget=if_isset($_POST['modtaget']);
  123. $modtaget2=if_isset($_POST['modtaget2']);
  124. $kundeordnr=if_isset($_POST['kundeordnr']);
  125. $fokus=if_isset($_POST['fokus']);
  126. $pris_ny=if_isset($_POST['pris_ny']);
  127. $antal_ny=strtolower(trim(if_isset($_POST['antal_ny'])));
  128. $varenr_ny=db_escape_string(trim(if_isset($_POST['varenr_ny'])));
  129. $momssats=(if_isset($_POST['momssats']));
  130. $rabat_ny=if_isset($_POST['rabat_ny']);
  131. if (substr($betaling,0,9) == "Kontant p") {
  132. $antal_ny=1;
  133. if ($id && $varenr_ny) {
  134. $r=db_fetch_array(db_select("select salgspris from varer where varenr = '$varenr_ny'",__FILE__ . " linje " . __LINE__));
  135. #cho "B opret_ordrelinje($id,$varenr_ny,1,'',$r[pris_ny],0,'PO','','','0','on','','','0')<br>";
  136. $linje_id=opret_ordrelinje($id,$varenr_ny,1,'',$r[pris_ny],0,'PO','','','0','on','','','0');
  137. $varenr_ny=NULL;
  138. }
  139. }
  140. if (strtolower($antal_ny)=='a') {
  141. $antal_ny=1;
  142. $afslut=NULL;
  143. }
  144. $sum*=1;
  145. #cho "update ordrer set kundeordnr = '$kundeordnr',sum='$sum', betalt='$betalt',felt_1='$betaling',felt_2='$modtaget',felt_3='$betaling2',felt_4='$modtaget2',felt_5='$kasse' where id='$id'<br>";
  146. if ($kundeordnr && $id) db_modify("update ordrer set kundeordnr = '$kundeordnr' where id='$id'",__FILE__ . " linje " . __LINE__);
  147. #cho "betalt=$betalt fok $fokus<br>";
  148. if (strstr($pris_ny,",")) { #Skaerer orebelob ned til 2 cifre.
  149. list($kr,$ore)=explode(",",$pris_ny);
  150. $ore=substr($ore,0,2);
  151. $pris_ny=$kr.",".$ore;
  152. }
  153. if(isset($_POST['ny']) && $_POST['ny'] == "Ny kunde") {
  154. $id=0;
  155. $kontonr=0;
  156. $menu_id=NULL;
  157. $bon=NULL;
  158. }
  159. if(isset($_POST['udskriv']) && $_POST['udskriv'] == "Udskriv") {
  160. $momssats=$momssats*1;
  161. # include("../includes/formfunk.php");
  162. pos_txt_print($id,$betaling,$modtaget,$indbetaling);
  163. }
  164. if(isset($_POST['krediter'])) {
  165. $ny_id=krediter_pos($id);
  166. print "<meta http-equiv=\"refresh\" content=\"0;URL=pos_ordre.php?id=$ny_id\">";
  167. }
  168. if ($fokus=="antal_ny" && $antal_ny!='0' && !$pris_ny) $antal_ny.="p";
  169. if ($fokus=="pris_ny" && $pris_ny!='f' && substr($pris_ny,-1)!='r') $fokus="antal_ny"; #20130310 tilføjet: "&& substr($pris_ny,-1)!='r'" samt 2 næste linjer
  170. if ($fokus=="pris_ny" && $pris_ny!='f' && substr($pris_ny,-1)=='r') {
  171. $pris_ny=str_replace("r","",$pris_ny);
  172. $fokus='rabat_ny';
  173. } elseif ($fokus=="rabat_ny" && $pris_ny!='f') $fokus="antal_ny";
  174. if ($fokus=="antal_ny" && (substr($antal_ny,-1)=='p' || substr($antal_ny,-1)=='r')) {
  175. if (substr($antal_ny,-1)=='p') $fokus='pris_ny';
  176. else $fokus='rabat_ny';
  177. if (strlen($antal_ny)>1) $antal_ny=substr($antal_ny,0,strlen($antal_ny)-1);
  178. else $antal_ny=1;
  179. } elseif ($fokus=="varenr_ny" && $varenr_ny=='v') {
  180. vareopslag('PO',"",$fokus, $id,"","","");
  181. } elseif ($fokus=="pris_ny" && substr($pris_ny,-1)=='r') {
  182. $pris_ny=substr($pris_ny,0,strlen($pris_ny)-1);
  183. $fokus="rabat_ny";
  184. } elseif (isset($_POST['forfra']) && $id) {
  185. $r=db_fetch_array(db_select("select status from ordrer where id = '$id'",__FILE__ . " linje " . __LINE__));
  186. if ($r['status']<3) {
  187. db_modify ("update ordrer set konto_id='0', kontonr='',firmanavn='',addr1='',addr2='',postnr='',bynavn='',land='',betalingsdage='0',betalingsbet='Kontant',
  188. cvrnr='',ean='',institution='',email='',kontakt='',art='PO',valuta='DKK',valutakurs='100',kundeordnr='' where id = '$id'",__FILE__ . " linje " . __LINE__);
  189. db_modify("delete from ordrelinjer where ordre_id='$id'",__FILE__ . " linje " . __LINE__);
  190. $varenr_ny=''; $antal_ny=''; $modtaget=''; $betaling=''; $indbetaling=''; $fokus="varenr_ny";
  191. }
  192. } elseif (substr($modtaget,-1)=='t') $betaling="";
  193. # elseif (substr($modtaget,-1)=='d' && !$betaling) $betaling="creditcard";
  194. elseif (substr($modtaget,-1)=='c' && !$betaling) $betaling="kontant";
  195. elseif (substr($modtaget,-1)=='k' || $betaling == "konto") {
  196. if (substr($modtaget,0,1)=='+') $modtaget=$sum+usdecimal(substr($modtaget,1,strlen($modtaget)-1));
  197. elseif (!is_numeric(substr($modtaget,-1))) $modtaget=substr($modtaget,0,strlen($modtaget)-1);
  198. if (!$modtaget || !$kontonr) kontoopslag('PO',"",$fokus, $id,"","","");
  199. } elseif (isset($_POST['kontoopslag'])) {
  200. kontoopslag('PO',"","varenr_ny",$id,"","","","","","","");
  201. }
  202. if ($indbetaling) {
  203. $indbetaling=str_replace("a","",$indbetaling);
  204. $tmp=trim(str_replace(".","",$indbetaling));
  205. $tmp=str_replace(",",".",$tmp);
  206. #cho "$tmp $indbetaling $modtaget<br>";
  207. if (is_numeric($tmp)) {
  208. $indbetaling=usdecimal($indbetaling);
  209. $modtaget=usdecimal($modtaget);
  210. if ($indbetaling>$modtaget) {
  211. print "<BODY onLoad=\"javascript:alert('Indbetaling kan ikke v&aelig;re større end beløbet der modtages')\">";
  212. $indbetaling=$modtaget;
  213. }
  214. }
  215. #cho "$tmp $indbetaling $modtaget<br>";
  216. #exit;
  217. } elseif ($betaling) {
  218. if (substr($modtaget,0,1)=='+') $modtaget=$sum+usdecimal(substr($modtaget,1,strlen($modtaget)-1));
  219. elseif (!is_numeric(substr($modtaget,-1))) $modtaget=usdecimal(substr($modtaget,0,strlen($modtaget)-1));
  220. else $modtaget=usdecimal($modtaget);
  221. $modtaget=$modtaget*1;
  222. if (!$modtaget) $modtaget=$sum;
  223. if (substr($modtaget2,0,1)=='+') $modtaget2=$sum+usdecimal(substr($modtaget2,1,strlen($modtaget2)-1));
  224. elseif (!is_numeric(substr($modtaget2,-1))) $modtaget2=usdecimal(substr($modtaget2,0,strlen($modtaget2)-1));
  225. else $modtaget2=usdecimal($modtaget2);
  226. $modtaget2=$modtaget2*1;
  227. # if (!$modtaget2) $modtaget2=$sum;
  228. }
  229. $betalt=$modtaget+$modtaget2;
  230. if (($betalt && is_numeric($betalt))||(!$sum && $afslut=="Afslut")) {
  231. if (!$sum && $afslut=="Afslut"){
  232. $betaling="kontant";
  233. }
  234. $afslut="OK";
  235. if (!is_numeric($sum)) $afslut=NULL;
  236. if ($betalt < $sum && !$indbetaling) $afslut=NULL;
  237. if (!$betaling) $afslut=NULL;
  238. if (substr($betaling,0,9)=="Kontant p") $afslut=NULL;
  239. if ($betaling=="ukendt") $afslut=NULL;
  240. if ($betaling2 && $betaling2=="ukendt") $afslut=NULL;
  241. if ($modtaget2 && (!$betaling2 || $betaling2=="ukendt")) $afslut=NULL;
  242. if ($afslut=="OK") {
  243. $svar=afslut($id,$betaling,$betaling2,$modtaget,$modtaget2,$indbetaling);
  244. if ($svar) print "<BODY onLoad=\"javascript:alert('$svar')\">";
  245. else {
  246. print "<meta http-equiv=\"refresh\" content=\"0;URL=$php_self\">";
  247. }
  248. }
  249. } else {
  250. $tmp=str_replace(",",".",$antal_ny);
  251. if ($varenr_ny == "a") {
  252. $betaling="ukendt";
  253. $varenr_ny=NULL;
  254. } elseif ($antal_ny == "a") {
  255. $betaling="ukendt";
  256. $antal_ny=1;
  257. } elseif ($antal_ny && !is_numeric($tmp) || $tmp>99999) { # ¿œ er der skannet et varenummer ind som antal
  258. $next_varenr=$antal_ny;
  259. $antal_ny=1;
  260. } elseif ($fokus=="antal_ny") {
  261. if ($antal_ny=="0") $varenr_ny = NULL;
  262. elseif (!strlen($antal_ny)) $antal_ny=1;
  263. else $antal_ny=usdecimal($antal_ny);
  264. }
  265. if ($varenr_ny && $antal_ny && $fokus!="pris_ny" && $fokus!="rabat_ny") {
  266. if (!$id) $id=opret_ordre(NULL,$kasse);
  267. if ($id && !is_numeric($id)) {
  268. print "<BODY onLoad=\"javascript:alert('$id')\">";
  269. } else {
  270. #cho "264 $id,$varenr_ny,$antal_ny,'',usdecimal($pris_ny),$rabat_ny<br>";
  271. $linje_id=opret_ordrelinje($id,$varenr_ny,$antal_ny,'',usdecimal($pris_ny),$rabat_ny,'PO','','','0','on','','','0');
  272. if ($linje_id && !is_numeric($linje_id)) {
  273. print "<BODY onLoad=\"javascript:alert('$linje_id')\">";
  274. $fokus="pris_ny";
  275. } else {
  276. $varenr_ny=$next_varenr;
  277. $antal_ny=NULL;
  278. # $sum=0;
  279. }
  280. }
  281. } elseif ($varenr_ny) $sum=find_pris($varenr_ny);
  282. # else $sum=0;
  283. }
  284. }
  285. ############################
  286. $x=0;
  287. if (!$id) {
  288. $dd=date("Y-m-d");
  289. $r=db_fetch_array(db_select("select max(id) as id from ordrer where status < '3' and art = 'PO' and ref = '$brugernavn' and ordredate = '$dd'",__FILE__ . " linje " . __LINE__));
  290. $id=$r['id']*1;
  291. }
  292. if ($ny_bruger && $ny_bruger!=$brugernavn) skift_bruger($ny_bruger,$kode);
  293. if (!isset($momssats)) $momssats=find_momssats($id,$kasse);
  294. print "<table width=\"100%\" height=\"100%\" border=\"1\" cellpadding=\"0\" cellspacing=\"0\"><tbody>\n";
  295. print "<tr><td valign=\"top\" width=50%><table width=\"100%\"><tbody>\n";
  296. print "<form name=pos_ordre action=pos_ordre.php?id=$id&menu_id=$menu_id method=post>\n";
  297. if ($id && $betaling) $sum=betaling($id,$momssats,$betaling,$betaling2,$modtaget,$modtaget2);
  298. elseif (!$indbetaling) list($varenr_ny,$pris_ny,$status)=explode(chr(9),varescan($id,$momssats,$varenr_ny,$antal_ny,$pris_ny));
  299. else indbetaling($id,$indbetaling,$modtaget);
  300. if (substr($betaling,0,9) == "Kontant p") {
  301. $betaling='Kontant';
  302. $modtaget=$sum;
  303. $svar=afslut($id,$betaling,NULL,$modtaget,0,NULL);
  304. if ($svar) print "<BODY onLoad=\"javascript:alert('$svar')\">";
  305. else print "<meta http-equiv=\"refresh\" content=\"0;URL=pos_ordre.php?id=$id\">";
  306. }
  307. if ($varenr_ny=='fejl') fejl($id,"$status");
  308. if (!$id) print "<tr><td height=\"50%\" colspan=\"4\" align=\"center\" valign=\"middle\"><b><div style=\"font-size:100mm;color:$bgcolor2;\">$kasse</div></b></td></tr>";
  309. print "</tbody></table></td>\n";
  310. print "<td valign=\"top\"><table width=\"100%\" border=\"0\"><tbody><td align=\"center\">\n";
  311. print "<tr><td colspan=\"2\" valign=\"top\" height=\"1%\"><table width=\"100%\" border=\"0\"><tbody>\n";
  312. hoved($kasse);
  313. # kassebeholdning($kasse);
  314. print "</tbody></table></td></tr>\n";
  315. #print "</FORM><form name=tastatur action=pos_ordre.php?id=$id method=post>\n";
  316. tastatur($status);
  317. print "</FORM>";
  318. print "</tbody></table></td></tr>\n";
  319. print "<tr><td colspan=\"2\" valign=\"top\" height=\"1%\" align=\"center\"><table width=\"100%\" border=\"0\"><tbody>\n";
  320. if ($status<3) menubuttons($id,$menu_id,$vare_id);
  321. print "</td></tbody></table></td></tr>\n";
  322. print "</td></tbody></table></td></tr>\n";
  323. #print "<tr><td colspan=2 width=\"100%\" height=\"1%\"><table width=\"100%\" height=\"100%\" border=\"0\"><tbody>\n";
  324. #footer ($kasse);
  325. #print "</tbody></table></td></tr>\n";
  326. # print "</tbody></table></td>\n";
  327. function afslut ($id,$betaling,$betaling2,$modtaget,$modtaget2,$indbetaling) {
  328. # "afslut($id,$betaling,$modtaget,$indbetaling)";
  329. #exit;
  330. global $charset;
  331. global $bruger_id;
  332. global $kasse;
  333. global $regnaar;
  334. # include("../includes/formfunk.php");
  335. $projekt=NULL;
  336. $tid=date("H:i");
  337. $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__));
  338. $projekt=$r['box9'];
  339. if (!$projekt) {
  340. $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__));
  341. $projekt=$r['box9'];
  342. }
  343. $hurtigfakt='on';
  344. $moms=0;
  345. $dd=date("Y-m-d");
  346. $r=db_fetch_array(db_select("select konto_id,status,fakturanr,momssats,betalingsbet from ordrer where id = '$id'",__FILE__ . " linje " . __LINE__));
  347. $momssats=$r['momssats'];
  348. $status=$r['status'];
  349. $konto_id=$r['konto_id'];
  350. $betalingsbet=$r['betalingsbet'];
  351. $x=0;
  352. if ($status<3) {
  353. $r=db_fetch_array(db_select("select box8 from grupper where art = 'POS' and kodenr = '1'",__FILE__ . " linje " . __LINE__));
  354. $rabatvareid=$r['box8'];
  355. $q=db_select("select * from ordrelinjer where ordre_id = '$id' order by rabatgruppe, id desc ",__FILE__ . " linje " . __LINE__);
  356. while($r=db_fetch_array($q)) {
  357. $x++;
  358. $linje_id[$x]=$r['id'];
  359. $pris[$x]=$r['pris'];
  360. $antal[$x]=$r['antal'];
  361. $momsfri[$x]=$r['momsfri'];
  362. $varemomssats[$x]=$r['momssats'];
  363. $folgevare[$x]=$r['folgevare'];
  364. $rabat[$x]=$r['rabat'];
  365. $rabatart[$x]=$r['rabatart'];
  366. $rabatgruppe[$x]=$r['rabatgruppe'];
  367. if ($rabatgruppe[$x]) {
  368. if ($rabatgruppe[$x]==$rabatgruppe[$x-1]) {
  369. $rabatantal[$x]=$antal[$x]+$rabatantal[$x-1];
  370. $rabatantal[$x-1]=0;
  371. } else $rabatantal[$x]=$antal[$x];
  372. } else $rabatantal[$x]=0;
  373. $m_rabat[$x]=$r['m_rabat']*-1;
  374. }
  375. $linjeantal=$x;
  376. $pos=0;
  377. for($x=1;$x<=$linjeantal;$x++) {
  378. $pos++;
  379. db_modify("update ordrelinjer set posnr='$pos',projekt='$projekt' where id='$linje_id[$x]'",__FILE__ . " linje " . __LINE__);
  380. if ($rabatart[$x]=='amount') {
  381. $tmp=afrund(($pris[$x]-$rabat[$x])*$antal[$x],2);
  382. } else $tmp=afrund($pris[$x]*$antal[$x]-($pris[$x]*$antal[$x]/100*$rabat[$x]),2);
  383. $sum+=$tmp;
  384. if (!$momsfri[$x]) $moms+=$tmp/100*$varemomssats[$x];
  385. ########################################################################
  386. if ($folgevare[$x]) {
  387. $pos++;
  388. $r=db_fetch_array(db_select("select varenr,beskrivelse,salgspris,gruppe from varer where id = '$folgevare[$x]'",__FILE__ . " linje " . __LINE__));
  389. $r2 = db_fetch_array(db_select("select box4, box7 from grupper where art = 'VG' and kodenr = '$r[gruppe]'",__FILE__ . " linje " . __LINE__));
  390. $f_bogfkto=$r2['box4'];
  391. $f_momsfri=$r2['box7'];
  392. if (!$f_momsfri){
  393. $r2 = db_fetch_array(db_select("select moms from kontoplan where kontonr = '$f_bogfkto' and regnskabsaar = '$regnaar'",__FILE__ . " linje " . __LINE__));
  394. $kodenr=substr($r['moms'],1);
  395. $r2 = db_fetch_array(db_select("select box2 from grupper where kodenr = '$kodenr' and art = 'SM'",__FILE__ . " linje " . __LINE__));
  396. $f_momssats=$r2['box2']*1;
  397. }
  398. #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>";
  399. 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__);
  400. # 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>";
  401. $sum+=afrund($antal[$x]*$r['salgspris'],2);
  402. }
  403. if ($rabatantal[$x]) {
  404. list($grupperabat,$rabattype)=explode(";",grupperabat($rabatantal[$x],$rabatgruppe[$x]));
  405. if ($grupperabat) {
  406. $pos++;
  407. $r=db_fetch_array(db_select("select varenr,beskrivelse,salgspris,gruppe from varer where id = '$rabatvareid'",__FILE__ . " linje " . __LINE__));
  408. $r2 = db_fetch_array(db_select("select box6, box7 from grupper where art = 'VG' and kodenr = '$r[gruppe]'",__FILE__ . " linje " . __LINE__));
  409. $momsfri = $r2['box7'];
  410. db_modify("insert into ordrelinjer (ordre_id,vare_id,varenr,beskrivelse,antal,m_rabat,pris,kostpris,momsfri,posnr,projekt) values ('$id','$rabatvareid', '$r[varenr]', '$r[beskrivelse]', '$rabatantal[$x]','0','$grupperabat','0','$r[momsfri]','$pos','$projekt')",__FILE__ . " linje " . __LINE__);
  411. $sum+=afrund($grupperabat*$rabatantal[$x],2);
  412. }
  413. } elseif ($m_rabat[$x] && !$rabatgruppe[$x]) {
  414. $pos++;
  415. if ($rabatvareid && $r=db_fetch_array(db_select("select id,varenr,beskrivelse,salgspris,gruppe from varer where id = '$rabatvareid'",__FILE__ . " linje " . __LINE__))) {
  416. $r2 = db_fetch_array(db_select("select box6, box7 from grupper where art = 'VG' and kodenr = '$r[gruppe]'",__FILE__ . " linje " . __LINE__));
  417. $momsfri = $r2['box7'];
  418. db_modify("insert into ordrelinjer (ordre_id,vare_id,varenr,beskrivelse,antal,m_rabat,pris,kostpris,momsfri,posnr,projekt) values ('$id','$rabatvareid', '$r[varenr]', '$r[beskrivelse]', '$antal[$x]','0','$m_rabat[$x]','0','$r[momsfri]','$pos','$projekt')",__FILE__ . " linje " . __LINE__);
  419. $sum+=afrund($m_rabat[$x]*$antal[$x],2);
  420. } else print "<BODY onLoad=\"javascript:alert('Manglende varenr for rabat')\">";
  421. }
  422. # }
  423. }
  424. $fakturanr=1;
  425. $q=db_select("select fakturanr from ordrer where art = 'PO'",__FILE__ . " linje " . __LINE__);
  426. while ($r=db_fetch_array($q)) {
  427. $tmp=$r['fakturanr']*1;
  428. if ($tmp>$fakturanr) $fakturanr=$tmp;
  429. }
  430. $fakturanr++;
  431. $sum*=1; $moms*=1;
  432. $betalt=$modtaget+$modtaget2;
  433. if ($konto_id && ($betalingsbet!='Kontant' || $indbetaling)) {
  434. $saldo=0;
  435. $q=db_select("select * from openpost where konto_id = '$konto_id'",__FILE__ . " linje " . __LINE__);
  436. while ($r=db_fetch_array($q)) {
  437. $saldo=$saldo+$r['amount'];
  438. }
  439. $betaling2=$saldo;
  440. if ($indbetaling) {
  441. $modtaget2=$saldo-$indbetaling;
  442. $sum=$indbetaling;
  443. $moms='0';
  444. } else $modtaget2=$saldo+$sum;
  445. }
  446. if ($betaling=='Kontant' && !$betaling2) {
  447. #cho "select box2 from grupper where art='OreDif'<br>";
  448. $r=db_fetch_array(db_select("select box2 from grupper where art='OreDif'",__FILE__ . " linje " . __LINE__));
  449. if ($difkto=$r['box2']){
  450. #cho "D $difkto<br>";
  451. $afrundet=pos_afrund($sum);
  452. #cho "E $afrundet<br>";
  453. if ($modtaget==$sum) {
  454. $modtaget=$afrundet;
  455. # $sum=$afrundet;
  456. }
  457. }
  458. }
  459. #cho "B $betaling - $modtaget - $sum - $afrundet<br>";
  460. #xit;
  461. $modtaget=afrund($modtaget,2);
  462. $modtaget2=afrund($modtaget2,2);
  463. $tidspkt=date("Y-m-d H:i");
  464. #cho "update ordrer set levdate = '$dd',fakturadate = '$dd',fakturanr = '$fakturanr',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'<br>";
  465. db_modify("update ordrer set levdate = '$dd',fakturadate = '$dd',fakturanr = '$fakturanr',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'",__FILE__ . " linje " . __LINE__);
  466. if (!$indbetaling) {
  467. $svar=levering($id,'on','','');
  468. #cho "Svar1 $svar<br>";
  469. if ($svar != 'OK') return ($svar);
  470. $svar=bogfor($id,'');
  471. #cho "Svar2 $svar<br>";
  472. if ($svar != 'OK') return ($svar);
  473. } else {
  474. $svar=bogfor_indbetaling($id,'');
  475. if ($svar != 'OK') return ($svar);
  476. }
  477. }
  478. if (db_fetch_array(db_select("select id from grupper where art = 'POS' and kodenr = '1' and box10='on'",__FILE__ . " linje " . __LINE__))) {
  479. pos_txt_print($id,$betaling,$betaling2,$modtaget,$modtaget2,$indbetaling);
  480. } else {
  481. $pfnavn="../temp/".$db."/".$bruger_id.".txt";
  482. $fp=fopen("$pfnavn","w");
  483. fclose($fp);
  484. $tmp="/temp/".$db."/".$bruger_id.".txt";
  485. $url="://".$_SERVER['SERVER_NAME'].=$_SERVER['PHP_SELF'];
  486. $url=str_replace("/debitor/pos_ordre.php","",$url);
  487. if ($_SERVER[HTTPS]) $url="s".$url;
  488. $url="http".$url;
  489. print "<BODY onLoad=\"JavaScript:window.open('http://localhost/saldiprint.php?printfil=$tmp&url=$url&bruger_id=$bruger_id&bonantal=1' , '' , '$jsvars');\">";
  490. }
  491. return(NULL);
  492. }
  493. function betaling($id,$momssats,$betaling,$betaling2,$modtaget,$modtaget2) {
  494. global $fokus;
  495. global $kontonr;
  496. $fokus="modtaget";
  497. if ($id) {
  498. $r=db_fetch_array(db_select("select * from ordrer where id = '$id'",__FILE__ . " linje " . __LINE__));
  499. $konto_id=$r['konto_id']*1;
  500. $kontonr=$r['kontonr'];
  501. $firmanavn=$r['firmanavn'];
  502. $addr1=$r['addr1'];
  503. $post_by=$r['postnr']." ".$r['bynavn'];
  504. $kundeordnr=$r['kundeordnr'];
  505. $status=$r['status'];
  506. $betalingsbet=$r['betalingsbet'];
  507. if ($r['lukket']) $betalingsbet='Kontant';
  508. $ref=$r['ref'];
  509. if ($konto_id) {
  510. print "<tr><td><b>$kontonr</b>";
  511. if ($kundeordnr) print "&nbsp;&nbsp;&nbsp; Rekv.nr: $kundeordnr";
  512. print "</td></tr>\n";
  513. print "<tr><td colspan=\"2\"><b>D $firmanavn</b></td></tr>\n";
  514. if ($betalingsbet=='Kontant')print "<tr><td colspan=\"2\"><b>Ingen kredit</b></td>";
  515. }
  516. print "<tr><td width=\"50%\"><table width=\"100%\"><tbody>";
  517. print "<tr><td>Varenummer</td><td align=\"right\">Antal</td><td>Varenavn</td><td align=\"right\">Pris</td><td align=\"right\">Sum</td></tr>\n";
  518. print "<tr><td colspan=\"5\"><hr></td></tr>\n";
  519. $sum=vis_pos_linjer($id,$momssats,$status);
  520. if ($kontonr && $betalingsbet!='Kontant') $modtaget=$sum;
  521. if ($modtaget) $retur=$modtaget-$sum;
  522. }
  523. print "<input type=\"hidden\" name = \"fokus\" value=\"$fokus\">";
  524. print "<input type=\"hidden\" name = \"betaling\" value=\"$betaling\">";
  525. print "<input type=\"hidden\" name = \"sum\" value=\"$sum\">";
  526. if ($modtaget) $tmp=dkdecimal($modtaget);
  527. else $tmp="";
  528. #cho "$kontonr && $betalingsbet!='Kontant'<br>";
  529. #exit;
  530. if ($kontonr && $betalingsbet!='Kontant') print "<input type=\"hidden\" name=\"modtaget\" value=\"$tmp\">";
  531. elseif(substr($betaling,0,9)!='Kontant p') {
  532. print "<tr><td>$betaling</td><td colspan= \"4\" align=right><input class=\"inputbox\" type=\"text\" size=\"15\" style=\"text-align:right\" name = \"modtaget\" value=\"$tmp\"></td></tr>\n";
  533. if ($betaling != "ukendt" && ($retur<0 || $modtaget2)) {$color="color: rgb(255, 0, 0);";
  534. if ($modtaget2) $tmp=dkdecimal($modtaget2);
  535. else $tmp="";
  536. if (!$betaling2) $betaling2="ukendt";
  537. $fokus="modtaget2";
  538. $retur=$retur+$modtaget2;
  539. print "<tr><td>$betaling2</td><td colspan= \"4\" align=right><input class=\"inputbox\" type=\"text\" size=\"15\" style=\"text-align:right\" name = \"modtaget2\" value=\"$tmp\"></td></tr>\n";
  540. } else $color="color: rgb(0, 0, 0);";
  541. print "<tr><td>Retur</td><td colspan= \"4\" align=right><span style=\"$color\">".dkdecimal($retur)."</span></td></tr>\n";
  542. }
  543. print "<td colspan=\"5\"><input STYLE=\"width: 100%;height: 0.01em;\" type=submit name=\"OK\" value=\"\"></td></tr>\n";
  544. print "</tbody></table>";
  545. #cho "SUM $sum<br>";
  546. return($sum);
  547. }
  548. function skift_bruger($ny_bruger,$kode) {
  549. global $brugernavn;
  550. global $s_id;
  551. global $db;
  552. $kode=md5($kode);
  553. if ($r=db_fetch_array(db_select("select id from brugere where brugernavn ='$ny_bruger' and kode = '$kode'",__FILE__ . " linje " . __LINE__))) {
  554. include("../includes/connect.php");
  555. db_modify("update online set brugernavn='$ny_bruger' where session_id='$s_id' and db = '$db'",__FILE__ . " linje " . __LINE__);
  556. $brugernavn=$ny_bruger;
  557. print "<input type=\"hidden\" name=\"brugernavn\" value=\"$brugernavn\">";
  558. include("../includes/online.php");
  559. } else print "<BODY onLoad=\"javascript:alert('Forkert adgangskode')\">";
  560. }
  561. function varescan ($id,$momssats,$varenr_ny,$antal_ny,$pris_ny) {
  562. global $fokus;
  563. global $kontonr;
  564. global $sum;
  565. if ($id) {
  566. $r=db_fetch_array(db_select("select * from ordrer where id = '$id'",__FILE__ . " linje " . __LINE__));
  567. $konto_id=$r['konto_id'];
  568. $kontonr=$r['kontonr'];
  569. $firmanavn=$r['firmanavn'];
  570. $addr1=$r['addr1'];
  571. $post_by=$r['postnr']." ".$r['bynavn'];
  572. $status=$r['status'];
  573. $kundeordnr=$r['kundeordnr'];
  574. $betalingsbet=$r['betalingsbet'];
  575. if (!$r['firmanavn']) $betalingsbet='Kontant';
  576. if ($status >= 3) {
  577. $fakturanr=$r['fakturanr'];
  578. $kasse=$r['felt_5'];
  579. $fakturadato=dkdato(substr($r['fakturadate'],0,10));
  580. $tidspkt=substr($r['tidspkt'],-5);
  581. if (!$tidspkt) {
  582. $r2=db_fetch_array(db_select("select logtime from transaktioner where ordre_id = '$id'",__FILE__ . " linje " . __LINE__));
  583. $tidspkt=substr($r2['logtime'],0,5);
  584. $tmp=$r['fakturadate']." ".$tidspkt;
  585. #cho "update ordrer set tidspkt = '$tmp' where id = '$id'<br>";
  586. db_modify("update ordrer set tidspkt = '$tmp' where id = '$id'",__FILE__ . " linje " . __LINE__);
  587. }
  588. }
  589. if ($status >= 3) {
  590. $betaling=$r['felt_1'];
  591. $modtaget=$r['felt_2'];
  592. $betaling2=$r['felt_3'];
  593. $modtaget2=$r['felt_4'];
  594. } else {
  595. $fakturanr=NULL;
  596. $fakturadato=NULL;
  597. $kasse=NULL;
  598. $tidspkt=NULL;
  599. }
  600. ($r['ref'])?$ref=$r['ref']:$ref=$brugernavn;
  601. if ($ref) {
  602. if ($r=db_fetch_array(db_select("select ansat_id from brugere where brugernavn = '$ref'",__FILE__ . " linje " . __LINE__))) {
  603. $ansat_id=$r['ansat_id']*1;
  604. if ($r=db_fetch_array(db_select("select navn from ansatte where id = '$ansat_id'",__FILE__ . " linje " . __LINE__))) $ref=$r['navn'];
  605. }
  606. }
  607. }
  608. if ($kontonr && $betalingsbet!='Kontant') {
  609. $r=db_fetch_array(db_select("select kreditmax from adresser where id = '$konto_id'",__FILE__ . " linje " . __LINE__));
  610. $kreditmax=$r['kreditmax'];
  611. $r=db_fetch_array(db_select("select sum(amount) as saldo from openpost where konto_id = '$konto_id'",__FILE__ . " linje " . __LINE__));
  612. $saldo=$r['saldo'];
  613. }
  614. if ($varenr_ny) {
  615. $varenr_ny=db_escape_string($varenr_ny);
  616. $varenr_low=strtolower($varenr_ny);
  617. $varenr_up=strtoupper($varenr_ny);
  618. #cho "SELECT id,vare_id,variant_type FROM variant_varer WHERE upper(variant_stregkode) = '$varenr_up'<br>";
  619. if ($r=db_fetch_array(db_select("SELECT id,vare_id,variant_type FROM variant_varer WHERE upper(variant_stregkode) = '$varenr_up'",__FILE__ . " linje " . __LINE__))) {
  620. $vare_id=$r['vare_id'];
  621. $variant_type=$r['variant_type'];
  622. $variant_id=$r['id'];
  623. } else {
  624. $variant_id=0;
  625. $variant_type='';
  626. }
  627. if ($vare_id) $string="select * from varer where id='$vare_id'";
  628. else $string="select * from varer where lower(varenr) = '$varenr_low' or upper(varenr) = '$varenr_up' or varenr LIKE '$varenr_ny' or lower(stregkode) = '$varenr_low' or upper(stregkode) = '$varenr_up' or stregkode LIKE '$varenr_ny'";
  629. #cho "streng ".$string."<br>";
  630. if ($r=db_fetch_array(db_select("$string",__FILE__ . " linje " . __LINE__))) {
  631. # $varenr_ny=db_escape_string($r['varenr']);
  632. $beskrivelse[0]=$r['beskrivelse'];
  633. $kostpris[0]=$r['kostpris'];
  634. $pris[0]=find_pris($r['varenr'])*1;
  635. if ($pris[0]) $pris[0]=dkdecimal($pris[0]);
  636. else $pris[0]="";
  637. if ($fokus!="pris_ny" && $fokus!="rabat_ny") $fokus="antal_ny";
  638. } else return ("fejl".chr(9)."".chr(9)."Varenr: $varenr_ny eksisterer ikke");
  639. if ($variant_type) {
  640. $varianter=explode(chr(9),$variant_type);
  641. for ($y=0;$y<count($varianter);$y++) {
  642. $r1=db_fetch_array(db_select("select variant_typer.beskrivelse as vt_besk,varianter.beskrivelse as var_besk from variant_typer,varianter where variant_typer.id = '$varianter[$y]' and variant_typer.variant_id=varianter.id",__FILE__ . " linje " . __LINE__));
  643. $beskrivelse[0].=", ".$r1['var_besk'].":".$r1['vt_besk'];
  644. }
  645. }
  646. } else $fokus="varenr_ny";
  647. if ($kontonr) {
  648. print "<tr><td><b>$kontonr</b></td><td colspan=\"2\">";
  649. if ($status<3) print "Rekv.nr:&nbsp; <input type=\"text\" size=\"15\" name=\"kundeordnr\" value=\"$kundeordnr\">";
  650. elseif ($kundeordnr) print "&nbsp; Rekv.nr:&nbsp; $kundeordnr</td>";
  651. if ($status>=3) print "</td><td colspan=\"2\" align=\"right\">Ekspedient: $ref | Bon: $fakturanr</td>";
  652. print "</tr>\n<tr><td colspan=\"2\"><b>$firmanavn</b></td>";
  653. if ($status>=3) print "<td colspan=\"4\" align=\"right\">Kasse: $kasse | $fakturadato kl. $tidspkt</td></tr>";
  654. if ($betalingsbet=='Kontant')print "<tr><td colspan=\"2\"><b>Ingen kredit</b></td>";
  655. } else {
  656. print "<tr><td colspan=\"5\" align=\"right\">Ekspedient: $ref | Bon: $fakturanr</td></tr>";
  657. print "<tr><td colspan=\"5\" align=\"right\">Kasse: $kasse | $fakturadato kl. $tidspkt</td></tr>";
  658. }
  659. print "<tr><td width=\"10%\" height=\"25px\" valign=\"bottom\">Varenummer</td><td width=\"2%\" valign=\"bottom\">Antal</td><td valign=\"bottom\">Varenavn</td><td align=\"right\" valign=\"bottom\">Pris</td>\n";
  660. if ($fokus=="rabat_ny") print "<td align=\"right\" valign=\"bottom\">Rabat</td></tr>";
  661. else print "<td align=\"right\" valign=\"bottom\">Sum</td></tr>";
  662. print "<tr><td colspan=\"5\"><hr></td></tr>\n";
  663. if ($status < 3) {
  664. print "<input type=\"hidden\" name = \"fokus\" value=\"$fokus\">";
  665. #print "<input type=\"hidden\" name = \"vare_id\" value=\"$vare_id[0]\">";
  666. print "<input type=\"hidden\" name = \"momssats\" value=\"$momssats\">";
  667. print "<tr><td width=\"30px\"><input class=\"inputbox\" type=\"text\" size=\"15\" name = \"varenr_ny\" value=\"$varenr_ny\"></td>";
  668. if ($varenr_ny) {
  669. print "<td width=\"7px\"><input class=\"inputbox\" type=\"text\" style=\"text-align:right\" size=\"2\" name = \"antal_ny\" value=\"$antal_ny\"></td><td>".$beskrivelse[0]."</td>";
  670. if ($antal_ny) print "<td align=\"right\" title=\"Kostpris ex. moms: ".dkdecimal($kostpris[0])."\"><input class=\"inputbox\" type=\"text\" style=\"text-align:right\" size=\"4\" name = \"pris_ny\" value=\"$pris[0]\"></td>";
  671. else {
  672. print "<input type=hidden name=\"pris_ny\" value=\"$pris[0]\">";
  673. print "<td align=\"right\" title=\"Kostpris ex. moms: ".dkdecimal($kostpris[0])."\">$pris[0]</td>";
  674. }
  675. if ($pris_ny && $fokus=="rabat_ny") {
  676. $r=db_fetch_array(db_select("select box8 from grupper where art = 'POS' and kodenr = '1'",__FILE__ . " linje " . __LINE__));
  677. $rabatvareid=$r['box8']*1;
  678. if (db_fetch_array(db_select("select varenr from varer where id = '$rabatvareid'",__FILE__ . " linje " . __LINE__))) {
  679. print "<td align=\"right\"><input class=\"inputbox\" type=\"text\" style=\"text-align:right\" size=\"4\" name = \"rabat_ny\">%</td>";
  680. } else {
  681. $txt="Manglende varenr til rabat";
  682. print "<BODY onLoad=\"javascript:alert('$txt')\">";
  683. return($txt);
  684. }
  685. } else {
  686. print "<input type=hidden name=\"rabat_ny\" value=\"$rabat[0]\">";
  687. print "<td align=\"right\">$rabat[0]</td>";
  688. }
  689. }
  690. print "</tr>";
  691. }
  692. $sum=vis_pos_linjer($id,$momssats,$status);
  693. if ($konto_id && $kreditmax && $sum > $kreditmax - $saldo) {
  694. $ny_saldo=$saldo+$sum;
  695. $txt = "Kreditmax: ".dkdecimal($kreditmax)."\\nGl. saldo : ".dkdecimal($saldo)."\\nNy saldo : ".dkdecimal($ny_saldo);
  696. print "<BODY onLoad=\"javascript:alert('$txt')\">";
  697. }
  698. print "<input type=\"hidden\" name = \"sum\" value = \"$sum\">";
  699. if ($status >= 3 && $sum) {
  700. $tmp=dkdecimal($modtaget);
  701. print "<tr><td>$betaling</td><td colspan=\"4\" align=\"right\">$tmp</td></tr>";
  702. if ($betalt<$sum && $betaling != "Konto") {
  703. $tmp=dkdecimal($modtaget2);
  704. print "<tr><td>$betaling2</td><td colspan=\"4\" align=\"right\">$tmp</td></tr>";
  705. }
  706. $tmp=dkdecimal($modtaget+$modtaget2-$sum);
  707. if ($betaling != "Konto" || $betalingsbet=='Kontant') print "<tr><td>Retur</td><td colspan=\"4\" align=\"right\"><b>$tmp</b></td></tr>";
  708. } elseif ($status >= 3) {
  709. $r=db_fetch_array($q = db_select("select * from ordrer where id='$id'",__FILE__ . " linje " . __LINE__));
  710. print "<tr><td>Saldo</td><td colspan=\"4\" align=\"right\">".dkdecimal($r[felt_3])."</td></tr>\n";
  711. $indbetaling=($r['felt_4']-$r['felt_3'])*-1;
  712. print "<tr><td>Indbetaling</td><td colspan=\"4\" align=\"right\">".dkdecimal($indbetaling)."</td></tr>\n";
  713. print "<tr><td>$r[felt_1]</td><td colspan=\"4\" align=\"right\">".dkdecimal($r['felt_2'])."</td></tr>\n";
  714. $ny_saldo=$r['felt_4'];
  715. print "<tr><td>Ny saldo</td><td colspan=\"4\" align=\"right\">".dkdecimal($ny_saldo)."</td></tr>\n";
  716. $retur=$r['felt_2']+$r['felt_4']-$r['felt_3'];
  717. print "<tr><td>Retur</td><td colspan=\"4\" align=\"right\">".dkdecimal($retur)."</td></tr>\n";
  718. }
  719. print "<tr><td colspan=\"5\" align=\"right\"><input STYLE=\"width: 100%;height: 0.01em;\" type=submit name=\"OK\" value=\"\"></td></tr>\n";
  720. if ($konto_id && $status<3 && $betalingsbet!='Kontant') {
  721. print "<tr><td>Gl. saldo</td><td colspan=\"4\" align=\"right\">".dkdecimal($saldo)."</td></tr>";
  722. $ny_saldo=$saldo+$sum;
  723. print "<tr><td>Ny saldo</td><td colspan=\"4\" align=\"right\">".dkdecimal($ny_saldo)."</td></tr>";
  724. if ($kreditmax) {
  725. print "<tr><td>Kreditmax</td><td colspan=\"4\" align=\"right\">".dkdecimal($kreditmax )."</td></tr>";
  726. }
  727. }
  728. return ($varenr_ny.chr(9).$pris_ny.chr(9).$status);
  729. }
  730. function opret_ordre($konto_id,$kasse){
  731. global $brugernavn;
  732. if ($r=db_fetch_array($q = db_select("select ordrenr from ordrer where art='PO' order by ordrenr desc",__FILE__ . " linje " . __LINE__))) {
  733. $ordrenr=$r['ordrenr']+1;
  734. } else $ordrenr=1;
  735. $ordredate=date("Y-m-d");
  736. $tidspkt=date("U");
  737. $r=db_fetch_array(db_select("select * from grupper where art = 'POS' and kodenr = '1'",__FILE__ . " linje " . __LINE__));
  738. $id=$r['id'];
  739. $kasseantal=$r['box1']*1;
  740. $moms=explode(chr(9),$r['box7']);
  741. $x=$kasse-1;
  742. if ($moms[$x]){
  743. $r=db_fetch_array(db_select("select * from grupper where art = 'SM' and kodenr = '$moms[$x]'",__FILE__ . " linje " . __LINE__));
  744. $momssats=$r['box2'];
  745. } else $momssats='0';
  746. db_modify ("insert into ordrer
  747. (ordrenr,konto_id, kontonr,firmanavn,addr1,addr2,postnr,bynavn,land,betalingsdage,betalingsbet,cvrnr,ean,institution,email,mail_fakt,notes,art,ordredate,momssats,hvem,tidspkt,ref,valuta,sprog,kontakt,pbs,status)
  748. values
  749. ('$ordrenr','0','$kontonr','$firmanavn','','','','','','0','Kontant','','','','','','$notes','PO','$ordredate','$momssats','$brugernavn','$tidspkt','$brugernavn','DKK','','','','0')",__FILE__ . " linje " . __LINE__);
  750. $r=db_fetch_array(db_select("select id from ordrer where hvem='$brugernavn' and tidspkt='$tidspkt' order by id desc",__FILE__ . " linje " . __LINE__));
  751. $id=$r['id'];
  752. return($id);
  753. } # endfunc opret_ordre()
  754. function indbetaling($id,$indbetaling,$modtaget,$modtaget2,$betaling) {
  755. global $fokus;
  756. global $status;
  757. $fokus="indbetaling";
  758. $saldo=0;
  759. $r=db_fetch_array(db_select("select * from ordrer where id = '$id'",__FILE__ . " linje " . __LINE__));
  760. $konto_id=$r['konto_id'];
  761. $status=$r['status'];
  762. $kontonr=$r['kontonr'];
  763. $firmanavn=$r['firmanavn'];
  764. $addr1=$r['addr1'];
  765. $addr2=$r['addr2'];
  766. $postnr_by=$r['postnr']." ".$r['bynavn'];
  767. if ($status<3) {
  768. $q=db_select("select * from openpost where konto_id = '$konto_id'",__FILE__ . " linje " . __LINE__);
  769. while ($r=db_fetch_array($q)) {
  770. $saldo=$saldo+$r['amount'];
  771. }
  772. list($a,$b)=explode(",",$indbetaling);
  773. if (!$indbetaling || !is_numeric($indbetaling)) {
  774. $indbetaling=$saldo;
  775. $modtaget='';
  776. $modtaget2='';
  777. }
  778. if ($modtaget+$modtaget2-$indbetaling>0) $retur=dkdecimal($modtaget+$modtaget2-$indbetaling);
  779. else $retur="0,00";
  780. } else {
  781. $saldo=$r['felt_3'];
  782. $indbetaling=$r['sum'];
  783. $retur=$r['felt_2']-$indbetaling;
  784. }
  785. $ny_saldo=dkdecimal($saldo-$indbetaling);
  786. $saldo=dkdecimal($saldo);
  787. $indbetaling=dkdecimal($indbetaling);
  788. if ($modtaget) {
  789. $modtaget=dkdecimal($modtaget);
  790. $fokus="modtaget";
  791. }
  792. if ($modtaget2) {
  793. $modtaget2=dkdecimal($modtaget2);
  794. $fokus="modtaget";
  795. }
  796. print "<input type=\"hidden\" name=\"id\" value=\"$id\">";
  797. print "<tr><td><b>$kontonr</b></td></tr>\n";
  798. print "<tr><td><b>C $firmanavn</b></td></tr>\n";
  799. print "<tr><td><b>$addr1</b></td></tr>\n";
  800. print "<tr><td><b>$addr2</b></td></tr>\n";
  801. print "<tr><td><b>$postnr_by</b></td></tr>\n";
  802. print "<tr><td colspan=2 width=400px><hr></td></tr>\n";
  803. # while (strlen($saldo) < 10) $saldo=" ".$saldo;
  804. print "<tr><td>Saldo</td><td align=\"right\">$saldo</td></tr>\n";
  805. print "<tr><td>Indbetaling</td>";
  806. if ($status<3) print "<td align=\"right\"><input class=\"inputbox\" type=text size=8 style=\"text-align:right\" name=\"indbetaling\" value=\"$indbetaling\"></td></tr>\n";
  807. else print "<td align=\"right\">$indbetaling</td></tr>\n";
  808. if ($status<3) print "<tr><td>Betalt</td><td align=\"right\"><input class=\"inputbox\" type=text size=8 style=\"text-align:right\" name=\"modtaget\" value=\"$modtaget\"></td></tr>\n";
  809. else print "<tr><td>Betalt</td><td align=\"right\">$modtaget</td></tr>\n";
  810. print "<tr><td>Ny saldo</td><td align=\"right\">$ny_saldo</td></tr>\n";
  811. print "<tr><td>Retur</td><td align=\"right\">$retur</td></tr>\n";
  812. print "<td colspan=\"5\"><input STYLE=\"width: 100%;height: 0.01em;\" type=submit name=\"OK\" value=\"\"></td></tr>\n";
  813. }
  814. function vis_pos_linjer($id,$momssats,$status) {
  815. global $varelinjer;
  816. global $bgcolor;
  817. global $bgcolor5;
  818. $linjebg=$bgcolor;
  819. $id=$id*1;
  820. $q=db_select("select * from ordrelinjer where ordre_id = '$id' and posnr >= 0 order by rabatgruppe, id desc",__FILE__ . " linje " . __LINE__);
  821. while($r=db_fetch_array($q)) {
  822. $x++;
  823. $vare_id[$x]=$r['id'];
  824. $posnr[$x]=$r['posnr'];
  825. $varenr[$x]=$r['varenr'];
  826. $beskrivelse[$x]=stripslashes($r['beskrivelse']);
  827. $pris[$x]=$r['pris'];
  828. $kostpris[$x]=$r['kostpris'];
  829. $antal[$x]=$r['antal'];
  830. $folgevare[$x]=$r['folgevare'];
  831. $rabatgruppe[$x]=$r['rabatgruppe'];
  832. $rabat[$x]=$r['rabat']*1;
  833. $rabatart[$x]=$r['rabatart'];
  834. $m_rabat[$x]=$r['m_rabat']*-1;
  835. $momsfri[$x]=trim($r['momsfri']);
  836. $varemomssats[$x]=trim($r['momssats']);
  837. if ($rabatgruppe[$x]) {
  838. if ($rabatgruppe[$x]==$rabatgruppe[$x-1]) {
  839. $rabatantal[$x]=$antal[$x]+$rabatantal[$x-1];
  840. $rabatantal[$x-1]=0;
  841. } else $rabatantal[$x]=$antal[$x];
  842. } else $rabatantal[$x]=0;
  843. if ($varemomssats[$x] & $momsfri[$x]!='on') {
  844. $pris[$x]=$pris[$x]+$pris[$x]/100*$varemomssats[$x];
  845. if ($m_rabat[$x]) $m_rabat[$x]=$m_rabat[$x]+$m_rabat[$x]/100*$varemomssats[$x];
  846. }
  847. }
  848. $varelinjer=$x;
  849. for ($x=1;$x<=$varelinjer;$x++) {
  850. ($linjebg!=$bgcolor5)?$linjebg=$bgcolor5:$linjebg=$bgcolor;
  851. if ($posnr[$x]) print "<tr bgcolor=\"$linjebg\"><td>$varenr[$x]</td><td align=\"right\">".dkdecimal($antal[$x])."</td><td>$beskrivelse[$x]</td><td align=\"right\" title=\"Kostpris ex. moms: ".dkdecimal($kostpris[$x])."\">".dkdecimal($pris[$x])."</td><td align=\"right\">".dkdecimal($pris[$x]*$antal[$x])."</td>";
  852. $sum+=afrund($pris[$x]*$antal[$x],2);
  853. if ($rabat[$x]) {
  854. ($linjebg!=$bgcolor5)?$linjebg=$bgcolor5:$linjebg=$bgcolor;
  855. if ($rabatart[$x]=="amount") {
  856. if ($varemomssats[$x] & $momsfri[$x]!='on') $tmp=afrund($rabat[$x]+$rabat[$x]/100*$varemomssats[$x],2)*-1;
  857. else $tmp=afrund($rabat[$x],2)*-1;
  858. if ($posnr[$x]) print "<tr bgcolor=\"$linjebg\"><td>rabat</td><td align=\"right\">".dkdecimal($antal[$x])."</td><td>Rabat</td><td align=\"right\">".dkdecimal($tmp)."</td><td align=\"right\">".dkdecimal($tmp*$antal[$x])."</td>";
  859. $sum+=afrund($tmp*$antal[$x],2);
  860. } else {
  861. $tmp=afrund($pris[$x]*$rabat[$x]/-100,2);
  862. if ($posnr[$x]) print "<tr bgcolor=\"$linjebg\"><td>rabat</td><td align=\"right\">".dkdecimal($antal[$x])."</td><td>$rabat[$x]% rabat</td><td align=\"right\">".dkdecimal($tmp)."</td><td align=\"right\">".dkdecimal($tmp*$antal[$x])."</td>";
  863. $sum+=afrund($tmp*$antal[$x],2);
  864. }
  865. }
  866. if ($status < 3) {
  867. if ($folgevare[$x]) {
  868. ($linjebg!=$bgcolor5)?$linjebg=$bgcolor5:$linjebg=$bgcolor;
  869. $r=db_fetch_array(db_select("select varenr,beskrivelse,salgspris,gruppe from varer where id = '$folgevare[$x]'",__FILE__ . " linje " . __LINE__));
  870. $r2 = db_fetch_array(db_select("select box4, box7 from grupper where art = 'VG' and kodenr = '$r[gruppe]'",__FILE__ . " linje " . __LINE__));
  871. $f_bogfkto=$r2['box4'];
  872. $f_momsfri=$r2['box7'];
  873. if ($f_momsfri){
  874. $f_momssats=0;
  875. $f_pris=$r['salgspris'];
  876. } else {
  877. #cho "select moms from kontoplan where kontonr = '$f_bogfkto' and regnskabsaar = '$regnaar'<br>";
  878. $r2 = db_fetch_array(db_select("select moms from kontoplan where kontonr = '$f_bogfkto' and regnskabsaar = '$regnaar'",__FILE__ . " linje " . __LINE__));
  879. $kodenr=substr($r2['moms'],1);
  880. #cho "select box2 from grupper where kodenr = '$kodenr' and art = 'SM'<br>";
  881. $r2 = db_fetch_array(db_select("select box2 from grupper where kodenr = '$kodenr' and art = 'SM'",__FILE__ . " linje " . __LINE__));
  882. $f_momssats=$r2['box2']*1;
  883. $f_pris=$r['salgspris']+$r['salgspris']*$f_momssats/100;
  884. }
  885. if ($posnr[$x]) print "<tr bgcolor=\"$linjebg\"><td>$r[varenr]</td><td align=\"right\">".dkdecimal($antal[$x])."</td><td>".stripslashes($r['beskrivelse'])."</td><td align=\"right\">".dkdecimal($r['salgspris'])."</td><td align=\"right\">".dkdecimal($antal[$x]*$r['salgspris'])."</td>";
  886. $sum+=afrund($antal[$x]*$r['salgspris'],2);
  887. }
  888. if ($rabatantal[$x]) {
  889. ($linjebg!=$bgcolor5)?$linjebg=$bgcolor5:$linjebg=$bgcolor;
  890. list($grupperabat,$rabattype)=explode(";",grupperabat($rabatantal[$x],$rabatgruppe[$x]));
  891. if ($grupperabat) {
  892. if ($posnr[$x]) print "<tr bgcolor=\"$linjebg\"><td>rabat</td><td align=\"right\">".dkdecimal($rabatantal[$x])."</td><td>Rabat</td><td align=\"right\">".dkdecimal($grupperabat)."</td><td align=\"right\">".dkdecimal($grupperabat*$rabatantal[$x])."</td>";
  893. $sum+=afrund($grupperabat*$rabatantal[$x],2);
  894. }
  895. } elseif ($m_rabat[$x] && !$rabatgruppe[$x]) {
  896. if ($posnr[$x]) print "<tr bgcolor=\"$linjebg\"><td>$r[varenr]</td><td align=\"right\">".dkdecimal($antal[$x])."</td><td>".stripslashes($r['beskrivelse'])."</td><td align=\"right\">".dkdecimal($f_pris)."</td><td align=\"right\">".dkdecimal($antal[$x]*$f_pris)."</td>";
  897. $sum+=afrund($m_rabat[$x]*$antal[$x],2);
  898. }
  899. }
  900. }
  901. $r=db_fetch_array(db_select("select box2 from grupper where art='OreDif'",__FILE__ . " linje " . __LINE__));
  902. ($difkto=$r['box2'])?$afrundet=pos_afrund($sum):$afrundet=0;
  903. print "<tr><td colspan=\"5\"><hr></td></tr>\n";
  904. if ($sum) print "<tr><td>I alt</td><td align=\"right\"></td><td></td><td align=\"right\"></td><td align=\"right\">".dkdecimal($sum)."</td></tr>\n";
  905. if ($afrundet) print "<tr><td>Afrundet</td><td align=\"right\"></td><td></td><td align=\"right\"></td><td align=\"right\">".dkdecimal($afrundet)."</td></tr>\n";
  906. return($sum);
  907. }
  908. function pos_txt_print($id,$betaling,$betaling2,$modtaget,$modtaget2,$indbetaling) {
  909. #cho "$id,$betaling,$betaling2,$modtaget,$modtaget2,$indbetaling<br>";
  910. global $db;
  911. global $db_id;
  912. global $brugernavn;
  913. global $bruger_id;
  914. global $momssats;
  915. global $db_encode;
  916. # $udskriv_bon=1;
  917. include("../includes/ConvertCharset.class.php");
  918. if ($db_encode=="UTF8") $FromCharset = "UTF-8";
  919. else $FromCharset = "iso-8859-15";
  920. $ToCharset = "cp865";
  921. $convert = new ConvertCharset();
  922. $pfnavn="../temp/".$db."/".$bruger_id.".txt";
  923. $fp=fopen("$pfnavn","w");
  924. $r=db_fetch_array(db_select("select * from adresser where art = 'S'",__FILE__ . " linje " . __LINE__));
  925. $firmanavn=$r['firmanavn'];
  926. $addr1=$r['addr1'];
  927. $addr2=$r['addr2'];
  928. $postnr=$r['postnr'];
  929. $bynavn=$r['bynavn'];
  930. $tlf=$r['tlf'];
  931. $cvrnr=$r['cvrnr'];
  932. $belob="beløb";
  933. if ($firmanavn) $firmanavn = $convert ->Convert($firmanavn, $FromCharset, $ToCharset);
  934. if ($addr1) $addr1 = $convert ->Convert($addr1, $FromCharset, $ToCharset);
  935. if ($addr2) $addr2 = $convert ->Convert($addr2, $FromCharset, $ToCharset);
  936. if ($bynavn) $bynavn = $convert ->Convert($bynavn, $FromCharset, $ToCharset);
  937. if ($tlf) $tlf = $convert ->Convert($tlf, $FromCharset, $ToCharset);
  938. if ($cvrnr) $cvrnr = $convert ->Convert($cvrnr, $FromCharset, $ToCharset);
  939. if ($belob) $belob = $convert ->Convert($belob, $FromCharset, $ToCharset);
  940. $r=db_fetch_array(db_select("select * from ordrer where id = '$id'",__FILE__ . " linje " . __LINE__));
  941. $konto_id=$r['konto_id'];
  942. $kontonr=$r['kontonr'];
  943. $kundenavn=$r['firmanavn'];
  944. $kundeaddr1=$r['addr1'];
  945. $kundepostnr=$r['postnr'];
  946. $kundeby=$r['bynavn'];
  947. $kundeordnr=$r['kundeordnr'];
  948. $fakturadate=$r['fakturadate'];
  949. $fakturanr=$r['fakturanr'];
  950. $betalingsbet=$r['betalingsbet'];
  951. $fakturadato=dkdato($r['fakturadate']);
  952. $sum=$r['sum'];
  953. $moms=$r['moms'];
  954. $momssats=$r['momssats'];
  955. $betaling=$r['felt_1'];
  956. $modtaget=$r['felt_2']*1;
  957. $betaling2=$r['felt_3'];
  958. $modtaget2=$r['felt_4']*1;
  959. $betalt=$modtaget+$modtaget2;
  960. $ref=$r['ref'];
  961. $kasse=$r['felt_5'];
  962. $tidspkt=$r['tidspkt'];
  963. $dkdato=dkdato(substr($tidspkt,0,10));
  964. $tid=substr($tidspkt,-5);
  965. if (!$tid) $tid=date("H:i");
  966. if (!$betaling) $betaling="Betalt";
  967. if ($ref) {
  968. if ($r=db_fetch_array(db_select("select ansat_id from brugere where brugernavn = '$ref'",__FILE__ . " linje " . __LINE__))) {
  969. $ansat_id=$r['ansat_id']*1;
  970. if ($r=db_fetch_array(db_select("select navn from ansatte where id = '$ansat_id'",__FILE__ . " linje " . __LINE__))) $ref=$r['navn'];
  971. }
  972. }
  973. if ($kundenavn) $kundenavn = $convert ->Convert($kundenavn, $FromCharset, $ToCharset);
  974. if ($kundeaddr1) $kundeaddr1 = $convert ->Convert($kundeaddr1, $FromCharset, $ToCharset);
  975. if ($kundeby) $kundeby = $convert ->Convert($kundeby, $FromCharset, $ToCharset);
  976. if ($ref) $ref = $convert ->Convert($ref, $FromCharset, $ToCharset);
  977. $x=0;
  978. $q=db_select("select * from ordrelinjer where ordre_id = '$id' and posnr > 0 order by posnr",__FILE__ . " linje " . __LINE__);
  979. while($r=db_fetch_array($q)) {
  980. $x++;
  981. if ($r['momsfri']!='on') $pris=$r['pris']+$r['pris']/100*$momssats;
  982. else $pris=$r['pris'];
  983. if (strtoupper($r['varenr'])=='INDBETALING') {
  984. $pris=$pris*-1;
  985. $sum=$sum*-1;
  986. }
  987. $rabat[$x]=$r['rabat']*1;
  988. $rabatart[$x]=$r['rabatart'];
  989. $beskrivelse[$x]=$r['beskrivelse'];
  990. if ($beskrivelse[$x]) $beskrivelse[$x]= $convert ->Convert($beskrivelse[$x], $FromCharset, $ToCharset);
  991. $antal[$x]=$r['antal']*1;
  992. $dkkpris[$x]=dkdecimal($pris*$antal[$x]);
  993. while(strlen($dkkpris[$x])<9){
  994. $dkkpris[$x]=" ".$dkkpris[$x];
  995. }
  996. while(strlen($antal[$x])<3){
  997. $antal[$x]=" ".$antal[$x];
  998. }
  999. if (strlen($beskrivelse[$x])>26) $beskrivelse[$x]=substr($beskrivelse[$x],0,25);
  1000. while(strlen($beskrivelse[$x])<26){
  1001. $beskrivelse[$x]=$beskrivelse[$x]." ";
  1002. }
  1003. if ($rabat[$x]) {
  1004. $y=$x;
  1005. $x++;
  1006. $antal[$x]=$antal[$y];
  1007. if ($rabatart[$y]=='amount') {
  1008. $beskrivelse[$x]="Rabat";
  1009. $pris=$rabat[$y]*-1;
  1010. } else {
  1011. $beskrivelse[$x]="Rabat ".$rabat[$y]."%";
  1012. $pris=$r['pris']/100*$rabat[$y]*-1;
  1013. }
  1014. if ($r['momsfri']!='on') $pris+=$pris/100*$momssats;
  1015. $dkkpris[$x]=dkdecimal($pris*$r['antal']);
  1016. while(strlen($dkkpris[$x])<9){
  1017. $dkkpris[$x]=" ".$dkkpris[$x];
  1018. }
  1019. while(strlen($antal[$x])<3){
  1020. $antal[$x]=" ".$antal[$x];
  1021. }
  1022. if (strlen($beskrivelse[$x])>26) $beskrivelse[$x]=substr($beskrivelse[$x],0,25);
  1023. while(strlen($beskrivelse[$x])<26){
  1024. $beskrivelse[$x]=$beskrivelse[$x]." ";
  1025. }
  1026. }
  1027. $linjeantal=$x;
  1028. }
  1029. $sum+=$moms;
  1030. if ($konto_id) {
  1031. if (!$x) $indbetaling=$sum;
  1032. $gl_saldo=dkdecimal($betaling2);
  1033. $ny_saldo=dkdecimal($modtaget2);
  1034. }
  1035. if ($indbetaling) $retur=$modtaget-$indbetaling;
  1036. else $retur=$betalt-$sum;
  1037. $dkksum=dkdecimal($sum);
  1038. while(strlen($dkksum)<9){
  1039. $dkksum=" ".$dkksum;
  1040. }
  1041. $dkkretur=dkdecimal($retur);
  1042. while(strlen($dkkretur)<9){
  1043. $dkkretur=" ".$dkkretur;
  1044. }
  1045. $betalt=dkdecimal($betalt);
  1046. while(strlen($betalt)<9){
  1047. $betalt=" ".$betalt;
  1048. }
  1049. while(strlen($betaling)<19){
  1050. $betaling=$betaling." ";
  1051. }
  1052. while(strlen($betaling2)<19){
  1053. $betaling2=$betaling2." ";
  1054. }
  1055. $dkkmodtaget=dkdecimal($modtaget);
  1056. while(strlen($dkkmodtaget)<9){
  1057. $dkkmodtaget=" ".$dkkmodtaget;
  1058. }
  1059. if ($modtaget2) {
  1060. $dkkmodtaget2=dkdecimal($dkkmodtaget2);
  1061. while(strlen($dkkmodtaget2)<9){
  1062. $dkkmodtaget2=" ".$dkkmodtaget2;
  1063. }
  1064. }
  1065. $dkksum=dkdecimal($sum);
  1066. while(strlen($dkksum)<9){
  1067. $dkksum=" ".$dkksum;
  1068. }
  1069. $dkkmoms=dkdecimal($moms);
  1070. while(strlen($dkkmoms)<9){
  1071. $dkkmoms=" ".$dkkmoms;
  1072. }
  1073. $filnavn="pos_print/pos_print_".$db_id.".php";
  1074. if (file_exists("$filnavn")) include("$filnavn");
  1075. else include("pos_print/pos_print.php");
  1076. fclose($fp);
  1077. }
  1078. function opdater_konto($konto_id,$kontonr,$id) {
  1079. #Opdaterer kontoinformation ordren
  1080. global $kasse;
  1081. global $kundeordnr;
  1082. if (!$id) $id=opret_ordre(0,$kasse);
  1083. $konto_id*=1;
  1084. $kontonr*=1;
  1085. $r=db_fetch_array(db_select("select status from ordrer where id = '$id'",__FILE__ . " linje " . __LINE__));
  1086. $status=$r['status'];
  1087. if ($status < 3 && ($konto_id || $kontonr)) {
  1088. if ($konto_id) $r=db_fetch_array(db_select("select * from adresser where id = '$konto_id'",__FILE__ . " linje " . __LINE__));
  1089. else $r=db_fetch_array(db_select("select * from adresser where kontonr = '$kontonr' and art = 'D'",__FILE__ . " linje " . __LINE__));
  1090. if ($konto_id=$r['id']) {
  1091. if ($r['lukket']) {
  1092. $betalingsbet='Kontant';
  1093. $betalingsdage='0';
  1094. } else {
  1095. ($r['betalingsbet'])?$betalingsbet=$r['betalingsbet']:$betalingsbet='Kontant';
  1096. $betalingsdage=$r['betalingsdage']*1;
  1097. }
  1098. db_modify ("update ordrer set konto_id='$konto_id', kontonr='$r[kontonr]',firmanavn='$r[firmanavn]',addr1='$r[addr1]',addr2='$r[addr2]',
  1099. postnr='$r[postnr]',bynavn='$r[bynavn]',land='$r[land]',betalingsdage='$betalingsdage',betalingsbet='$betalingsbet',cvrnr='$r[cvrnr]',
  1100. ean='$r[ean]',institution='$r[institution]',email='$r[email]',kontakt='$r[kontakt]',art='PO',valuta='DKK',valutakurs='100' where id = '$id'",__FILE__ . " linje " . __LINE__);
  1101. }
  1102. }
  1103. return($id);
  1104. } # endfunc opdater_konto()
  1105. function hoved($kasse) {
  1106. global $regnskab;
  1107. global $brugernavn;
  1108. global $bruger_id;
  1109. global $id;
  1110. global $db;
  1111. global $db_id;
  1112. global $bon;
  1113. global $sum;
  1114. global $returside;
  1115. if ($kasse=="?") find_kasse($kasse);
  1116. $x=0;
  1117. $q=db_select("select brugernavn from brugere order by brugernavn",__FILE__ . " linje " . __LINE__);
  1118. while ($r=db_fetch_array($q)) {
  1119. $x++;
  1120. $loginnavn[$x]=$r['brugernavn'];
  1121. }
  1122. $brugerantal=$x;
  1123. print "<tr>";
  1124. print "<td width=\"96%\" height=\"25px\" valign=\"bottom\"><b>$regnskab</b> Kasse: <a href=pos_ordre.php?id=$id&kasse=?>$kasse</a> | ";
  1125. print "<a href=pos_ordre.php?id=$id&kasse=$kasse&kassebeholdning=on>Kasseopt&aelig;lling</a><br>";
  1126. print "Ekspedient<select class=\"inputbox\" NAME=\"ny_bruger\">";
  1127. print "<option>$brugernavn</option>";
  1128. for ($x=1;$x<=$brugerantal;$x++) {
  1129. if ($loginnavn[$x] != $brugernavn) print "<option>$loginnavn[$x]</option>";
  1130. }
  1131. print "</option>";
  1132. if ($status>=3 && !$bon && $id) {
  1133. $r=db_fetch_array($q=db_select("select fakturanr from ordrer where id = '$id'",__FILE__ . " linje " . __LINE__));
  1134. $bon=$r['fakturanr'];
  1135. }
  1136. print "<input class=\"inputbox\" type=\"password\" size=\"10\" name=\"kode\" value=\" \">";
  1137. print "<span title=\"Skriv bon nummeret på den bon som skal genkaldes elles 'S' for sidste bon fra denne kasse\"> | Bon <input class=\"inputbox\" type=\"text\" name=\"bon\" size=\"6\" value=\"$bon\"></span><br><hr></td>";
  1138. print "<td width=\"4%\" align=\"right\" valign=\"top\"><a href='$returside'><div class=\"luk\"></div></a></td></tr>\n";
  1139. print "</tr>\n";
  1140. }
  1141. /*
  1142. function hoved($kasse) {
  1143. global $regnskab;
  1144. global $brugernavn;
  1145. global $id;
  1146. global $db;
  1147. global $db_id;
  1148. if ($kasse=="?") find_kasse($kasse);
  1149. print "<tr>";
  1150. print "<td width=\"96%\" height=\"25px\" valign=\"bottom\"><b>$regnskab</b> Kasse: <a href=pos_ordre.php?id=$id&kasse=?>$kasse</a> | ";
  1151. print "Ekspedient: <a href=../includes/relogin.php?regnskab=$regnskab&bruger_id=$bruger_id&db_$db&db_id=$db_id>$brugernavn</a> | ";
  1152. print "<a href=pos_ordre.php?id=$id&kasse=$kasse&kassebeholdning=on>Kasseopt&aelig;lling</a><br><hr></td>";
  1153. print "<td width=\"4%\" align=\"right\" valign=\"top\"><a href=../includes/luk.php><div class=\"luk\"></div></a></td></tr>\n";
  1154. print "</tr>\n";
  1155. }
  1156. */
  1157. function find_kasse($kasse) {
  1158. if ($kasse!="?" && isset($_COOKIE['saldi_pos'])) {
  1159. return(stripslashes($_COOKIE['saldi_pos']));
  1160. } else {
  1161. print "<form name=pos_ordre action=pos_ordre.php?kasse=opdat method=post>";
  1162. $r=db_fetch_array(db_select("select * from grupper where art = 'POS'",__FILE__ . " linje " . __LINE__));
  1163. $kasseantal=$r['box1']*1;
  1164. print "V&aelig;lg kasse<SELECT NAME=kasse>";
  1165. for($x=1;$x<=$kasseantal;$x++) {
  1166. print "<option value=\"$x\">$x</option>";
  1167. }
  1168. print "</SELECT></td>";;
  1169. print "<INPUT TYPE=\"submit\" NAME=\"submit\"VALUE=\"OK\">";
  1170. print "</form>";
  1171. }
  1172. exit;
  1173. }
  1174. function tastatur($status) {
  1175. global $id;
  1176. global $bon;
  1177. global $fokus;
  1178. global $sum;
  1179. global $modtaget;
  1180. global $modtaget2;
  1181. global $kontonr;
  1182. global $varelinjer;
  1183. global $varenr_ny;
  1184. global $indbetaling;
  1185. global $betalingsbet;
  1186. $sum=afrund($sum,2);
  1187. $modtaget=afrund($modtaget,2);
  1188. $modtaget2=afrund($modtaget2,2);
  1189. $r = db_fetch_array(db_select("select * from grupper where art = 'POS' and kodenr = '1'",__FILE__ . " linje " . __LINE__));
  1190. $kortantal=$r['box4']*1;
  1191. $korttyper=explode(chr(9),$r['box5']);
  1192. $vis_kontoopslag=$r['box11'];
  1193. $vis_hurtigknap=$r['box12'];
  1194. $vis_indbetaling=$r['box14'];
  1195. $timeout=$r['box13']*1;
  1196. print "<input type=hidden name=\"sum\" value=\"$sum\">";
  1197. print "<input type=hidden name=\"kontonr\" value=\"$kontonr\">";
  1198. print "<TR><TD height=\"100%\" valign=\"top\" align=\"center\"><TABLE BORDER=\"0\" CELLPADDING=\"4\" CELLSPACING=\"4\"><TBODY>";
  1199. print "<TR>";
  1200. if ($status < 3) {
  1201. $stil="STYLE=\"width: 4.5em;height: 2em;font-size:150%;\"";
  1202. print "<TD><INPUT TYPE=\"button\" $stil NAME=\"one\" VALUE=\"1\" OnClick=\"pos_ordre.$fokus.value += '1';pos_ordre.$fokus.focus();\"></TD>";
  1203. print "<TD><INPUT TYPE=\"button\" $stil NAME=\"two\" VALUE=\"2\" OnCLick=\"pos_ordre.$fokus.value += '2';pos_ordre.$fokus.focus();\"></TD>";
  1204. print "<TD><INPUT TYPE=\"button\" $stil NAME=\"three\" VALUE=\"3\" OnClick=\"pos_ordre.$fokus.value += '3';pos_ordre.$fokus.focus();\"></TD>";
  1205. print "<TD><INPUT TYPE=\"button\" $stil NAME=\"plus\" VALUE=\"+\" OnClick=\"pos_ordre.$fokus.value += '+';pos_ordre.$fokus.focus();\"></TD>";
  1206. print "</TR><TR>";
  1207. print "<TD><INPUT TYPE=\"button\" $stil NAME=\"four\" VALUE=\"4\" OnClick=\"pos_ordre.$fokus.value += '4';pos_ordre.$fokus.focus();\"></TD>";
  1208. print "<TD><INPUT TYPE=\"button\" $stil NAME=\"five\" VALUE=\"5\" OnCLick=\"pos_ordre.$fokus.value += '5';pos_ordre.$fokus.focus();\"></TD>";
  1209. print "<TD><INPUT TYPE=\"button\" $stil NAME=\"six\" VALUE=\"6\" OnClick=\"pos_ordre.$fokus.value += '6';pos_ordre.$fokus.focus();\"></TD>";
  1210. print "<TD><INPUT TYPE=\"button\" $stil NAME=\"minus\" VALUE=\"-\" OnClick=\"pos_ordre.$fokus.value += '-';pos_ordre.$fokus.focus();\"></TD>";
  1211. print "</TR><TR>";
  1212. print "<TD><INPUT TYPE=\"button\" $stil NAME=\"seven\" VALUE=\"7\" OnClick=\"pos_ordre.$fokus.value += '7';pos_ordre.$fokus.focus();\"></TD>";
  1213. print "<TD><INPUT TYPE=\"button\" $stil NAME=\"eight\" VALUE=\"8\" OnCLick=\"pos_ordre.$fokus.value += '8';pos_ordre.$fokus.focus();\"></TD>";
  1214. print "<TD><INPUT TYPE=\"button\" $stil NAME=\"nine\" VALUE=\"9\" OnClick=\"pos_ordre.$fokus.value += '9';pos_ordre.$fokus.focus();\"></TD>";
  1215. print "<TD><INPUT TYPE=\"button\" $stil NAME=\"times\" VALUE=\"x\" OnClick=\"pos_ordre.$fokus.value += '*'\"></TD>";
  1216. print "</TR><TR>";
  1217. print "<TD><INPUT TYPE=\"button\" $stil NAME=\"zero\" VALUE=\",\" OnClick=\"pos_ordre.$fokus.value += ',';pos_ordre.$fokus.focus();\"></TD>";
  1218. print "<TD><INPUT TYPE=\"button\" $stil NAME=\"zero\" VALUE=\"0\" OnClick=\"pos_ordre.$fokus.value += '0';pos_ordre.$fokus.focus();\"></TD>";
  1219. print "<TD><INPUT TYPE=\"button\" $stil NAME=\"DoIt\" VALUE=\"=\" OnClick=\"pos_ordre.$fokus.value = eval(pos_ordre.$fokus.value);pos_ordre.$fokus.focus();\"></TD>";
  1220. print "<TD><INPUT TYPE=\"button\" $stil NAME=\"div\" VALUE=\"/\" OnClick=\"pos_ordre.$fokus.value += '/';pos_ordre.$fokus.focus();\"></TD>";
  1221. print "</TR><TR>";
  1222. print "<TD><INPUT TYPE=\"button\" $stil NAME=\"clear\" VALUE=\"Ryd\" OnClick=\"pos_ordre.$fokus.value = '';pos_ordre.$fokus.focus();\"></TD>";
  1223. if ($id) {
  1224. print "<TD><INPUT TYPE=\"submit\" $stil NAME=\"afslut\"VALUE=\"Afslut\" OnClick=\"pos_ordre.$fokus.value += 'a';pos_ordre.$fokus.focus();\"></TD>";
  1225. print "<TD onclick=\"return confirm('Slet alt og start forfra')\"><INPUT TYPE=\"submit\" $stil NAME=\"forfra\"VALUE=\"Forfra\" OnClick=\"pos_ordre.$fokus.value += 'f';pos_ordre.$fokus.focus();\"></TD>";
  1226. } else print "<TD COLSPAN=\"2\"></TD>";
  1227. if ($fokus=='modtaget') {
  1228. print "<TD onclick=\"return confirm('Tilbage til varescanning')\"><INPUT TYPE=\"submit\" $stil NAME=\"tilbage\"VALUE=\"Tilbage\" OnClick=\"pos_ordre.$fokus.value += 't';pos_ordre.$fokus.focus();\"></TD>";
  1229. print "</TR><TR>";
  1230. print "<TD COLSPAN=\"3\"></TD>";
  1231. }
  1232. print "<TR><TD COLSPAN=\"4\"><HR></TD></tr>\n";
  1233. $stil2="STYLE=\"width: 9.5em;height: 2em;font-size:150%;\"";
  1234. print "<TR>";
  1235. #cho "$fokus=='modtaget' && $modtaget>=$sum && !$indbetaling<br>";
  1236. if ($fokus=='varenr_ny') print "<TD COLSPAN=\"2\"><INPUT TYPE=\"submit\" $stil2 NAME=\"varer\"VALUE=\"Varer\" OnClick=\"pos_ordre.$fokus.value += 'v';pos_ordre.$fokus.focus();\"></TD>";
  1237. elseif ($fokus=='antal_ny' || $fokus=='pris_ny') { #20130310 Tilføjet: || $fokus=='pris_ny'
  1238. if ($fokus=='antal_ny') print "<TD COLSPAN=\"1\"><INPUT TYPE=\"submit\" $stil NAME=\"pris\"VALUE=\"Pris\" OnClick=\"pos_ordre.$fokus.value += 'p';pos_ordre.$fokus.focus();\"></TD>";
  1239. else print "<TD COLSPAN=\"1\"></TD>";
  1240. print "<TD COLSPAN=\"1\"><INPUT TYPE=\"submit\" $stil NAME=\"rabat\"VALUE=\"Rabat\" OnClick=\"pos_ordre.$fokus.value += 'r';pos_ordre.$fokus.focus();\"></TD>";
  1241. } elseif ($fokus=='modtaget' && $modtaget>=$sum && !$indbetaling && $betalingsbet != 'Kontant') {
  1242. print "<TR><TD COLSPAN=\"2\"><INPUT TYPE=\"submit\" $stil2 NAME=\"betaling\" VALUE=\"Konto\" OnClick=\"pos_ordre.$fokus.value += 'k';pos_ordre.$fokus.focus();\"></TD>";
  1243. } elseif ($fokus=='modtaget2' && $modtaget+$modtaget2>=$sum && !$indbetaling) {
  1244. print "<TR><TD COLSPAN=\"2\"><INPUT TYPE=\"submit\" $stil2 NAME=\"betaling2\" VALUE=\"Konto\" OnClick=\"pos_ordre.$fokus.value += 'k';pos_ordre.$fokus.focus();\"></TD>";
  1245. } elseif ($indbetaling && $modtaget >= $indbetaling) {
  1246. print "<TR><TD COLSPAN=\"2\"><INPUT TYPE=\"submit\" $stil2 NAME=\"betaling\" VALUE=\"Kontant\" OnClick=\"pos_ordre.$fokus.value += 'c';pos_ordre.$fokus.focus();\"></TD>";
  1247. } else print "<TD colspan=2></TD>";
  1248. print "<TD colspan=2><INPUT TYPE=\"submit\" $stil2 NAME=\"OK\" VALUE=\"Enter\"></TD></tr>\n";
  1249. if ($vis_hurtigknap && $fokus=='antal_ny') print "<TR><TD COLSPAN=\"2\"><INPUT TYPE=\"submit\" $stil2 NAME=\"betaling\" VALUE=\"Kontant p&aring; bel&oslash;b\" OnClick=\"pos_ordre.$fokus.value += 'c';pos_ordre.$fokus.focus();\"></TD>";
  1250. if ($vis_kontoopslag && !$varenr_ny && !$indbetaling) print "<TR><TD COLSPAN=\"2\"><INPUT TYPE=\"submit\" $stil2 NAME=\"kontoopslag\" VALUE=\"Kontoopslag\"></TD></tr>\n";
  1251. if ((($fokus=='modtaget' || $fokus=='modtaget2') && (!$kontonr || $betalingsbet=='Kontant')) || ($indbetaling && $modtaget>=$indbetaling && $kontonr)) {
  1252. for($x=0;$x<$kortantal;$x++) {
  1253. ($fokus=='modtaget2')?$tmp="betaling2":$tmp="betaling";
  1254. #cho "beta $tmp<br>";
  1255. print "<TR><TD COLSPAN=\"2\"><INPUT TYPE=\"submit\" $stil2 NAME=$tmp VALUE=\"$korttyper[$x]\" OnClick=\"pos_ordre.$fokus.value += 'd';pos_ordre.$fokus.focus();\"></TD></tr>\n";
  1256. }
  1257. if (!$indbetaling) {
  1258. if ($fokus=='modtaget2') $tmp="betaling2";
  1259. else $tmp="betaling";
  1260. print "<TR><TD COLSPAN=\"2\"><INPUT TYPE=\"submit\" $stil2 NAME=$tmp VALUE=\"Kontant\" OnClick=\"pos_ordre.$fokus.value += 'c';pos_ordre.$fokus.focus();\"></TD></tr>\n";
  1261. }
  1262. # print "<TR><TD COLSPAN=\"2\"><INPUT TYPE=\"submit\" $stil2 NAME=\"betaling\" VALUE=\"Konto\" OnClick=\"pos_ordre.$fokus.value += 'k';pos_ordre.$fokus.focus();\"></TD></tr>\n";
  1263. } elseif ($id && $kontonr && !$varelinjer && !$indbetaling)
  1264. if ($vis_indbetaling) print "<TR><TD COLSPAN=\"2\"><INPUT TYPE=\"submit\" $stil2 NAME=\"indbetaling\" VALUE=\"Indbetaling\" OnClick=\"pos_ordre.$fokus.value += 'i';pos_ordre.$fokus.focus();\"></TD>";
  1265. } else {
  1266. # print "<input type=\"hidden\" name=\"bon\" value = \"\">";
  1267. $stil2="STYLE=\"width: 9.5em;height: 2em;font-size:150%;\"";
  1268. print "<TD COLSPAN=\"2\"><INPUT TYPE=\"submit\" $stil2 NAME=\"udskriv\"VALUE=\"Udskriv\"></TD>";
  1269. print "<TD COLSPAN=\"2\"><INPUT TYPE=\"submit\" $stil2 NAME=\"ny\"VALUE=\"Ny kunde\"></TD></TR>";
  1270. print "<TD COLSPAN=\"4\"><br></TD></TR>";
  1271. print "<TD COLSPAN=\"4\"><br></TD></TR>";
  1272. print "<TD COLSPAN=\"4\" align=\"center\"><INPUT TYPE=\"submit\" $stil2 NAME=\"krediter\"VALUE=\"Korrektion\"></TD>";
  1273. # print "<TD COLSPAN=\"2\"><INPUT TYPE=\"submit\" $stil2 NAME=\"ny\"VALUE=\"Ny kunde\"></TD>";
  1274. if ($timeout && !$bon) print "<meta http-equiv=\"refresh\" content=\"$timeout;URL=pos_ordre.php?id=0\">";
  1275. }
  1276. print "</tr>\n";
  1277. print "</TBODY></TABLE></TD></tr>\n";
  1278. }
  1279. function menubuttons($id,$menu_id,$vare_id) {
  1280. global $bgcolor2;
  1281. global $fokus;
  1282. global $pris_ny;
  1283. global $varenr_ny;
  1284. $tid=date("H:i");
  1285. if (!$menu_id) {
  1286. $r=db_fetch_array(db_select("select kodenr from grupper where art='POSBUT' and (box7 < box8) and (box7<='$tid' and box8>='$tid')",__FILE__ . " linje " . __LINE__));
  1287. $menu_id=$r['kodenr'];
  1288. if (!$menu_id) { #her tages højde for at slut tidspkt kan være mindre en starttidspkt
  1289. $r=db_fetch_array(db_select("select kodenr from grupper where art='POSBUT' and (box7 > box8) and ((box7>='$tid' and box8>='$tid') or (box7<='$tid' and box8<='$tid'))",__FILE__ . " linje " . __LINE__));
  1290. $menu_id=$r['kodenr'];
  1291. }
  1292. }
  1293. $q=db_select("select * from grupper where art='POSBUT' and kodenr='$menu_id'",__FILE__ . " linje " . __LINE__);
  1294. $r = db_fetch_array($q);
  1295. $menuid=$r['kodenr'];
  1296. $beskrivelse=$r['box1'];
  1297. $cols=$r['box2'];
  1298. $rows=$r['box3'];
  1299. $height=$r['box4'];
  1300. $width=$r['box5'];
  1301. $fontsize=$r['box10'];
  1302. if (!$fontsize) $fontsize=$height*$width/200;
  1303. /*
  1304. print "<style type=\"text/css\">";
  1305. print "table a {display:block;width:100%;height:100%;}";
  1306. print "</style>";
  1307. */
  1308. #print "
  1309. #";
  1310. print "<table border=\"0\" cellspacing=\"5\" cellpadding=\"1\"><tbody>"; # table 1 ->
  1311. print "<tr><td colspan=\"$cols\" align=\"center\" bgcolor=\"$bgcolor2\">$beskrivelse</td></tr>";
  1312. for ($x=1;$x<=$rows;$x++) {
  1313. print "<tr>";
  1314. for ($y=1;$y<=$cols;$y++) {
  1315. # menu_id,row,col,beskrivelse,color,funktion,vare_id,colspan,rowspan
  1316. $r=db_fetch_array(db_select("select * from pos_buttons where menu_id=$menuid and row='$x' and col='$y'",__FILE__ . " linje " . __LINE__));
  1317. $a=$r['beskrivelse'];
  1318. $b=$r['color'];
  1319. $c=$r['vare_id']*1;
  1320. $d=$r['funktion']*1;
  1321. if ($a) {
  1322. $knap="<input type=\"button\" style=\"width:".$width."px;height:".$height."px;text-align:center;font-size:".$fontsize."px; background-color:#$b;\" value= \"$a\">";
  1323. print "<td>";
  1324. # ($fokus='antal')?$vnr=varenr_ny=$varenr_ny:$vnr=varenr_ny=$varenr_ny;
  1325. if (!$d || $d==1) print "<a style=\"text-decoration:none\" href=pos_ordre.php?id=$id&menu_id=$menu_id&vare_id=$vare_id&vare_id_ny=$c&varenr_ny=$varenr_ny&pris_ny=$pris_ny&fokus=$fokus>$knap</a>";
  1326. elseif ($d==2) print "<a style=\"text-decoration:none\" href=pos_ordre.php?id=$id&vare_id=$vare_id&menu_id=$c&varenr_ny=$varenr_ny&pris_ny=$pris_ny&fokus=$fokus>$knap</a>";
  1327. elseif ($d==3) print "<a style=\"text-decoration:none\" href=pos_ordre.php?id=$id&konto_id=$c&varenr_ny=$varenr_ny&pris_ny=$pris_ny&fokus=$fokus>$knap</a>";
  1328. elseif ($d==4) print "<a style=\"text-decoration:none\" href=pos_ordre.php?id=$id&spec_func=spec_$c&varenr_ny=$varenr_ny&pris_ny=$pris_ny&fokus=$fokus>$knap</a>";
  1329. print "</td>";
  1330. }
  1331. }
  1332. print "</tr>";
  1333. }
  1334. print "</tbody></table>"; # <- table 1
  1335. } # function menubuttons
  1336. function fejl ($id,$fejltekst) {
  1337. print "<BODY onLoad=\"javascript:alert('$fejltekst')\">";
  1338. print "<meta http-equiv=\"refresh\" content=\"0;URL=$php_self\">";
  1339. }
  1340. function posbogfor ($kasse) {
  1341. $x=0;
  1342. #cho "select distinct(fakturadate) as fakturadate from ordrer where felt_5='$kasse' and konto_id= '0' and art = 'PO' and status='3' order by fakturadate<br>";
  1343. $q=db_select("select distinct(fakturadate) as fakturadate from ordrer where felt_5='$kasse' and (konto_id='0' or betalingsbet='Kontant') and art = 'PO' and status='3' order by fakturadate",__FILE__ . " linje " . __LINE__);
  1344. while ($r=db_fetch_array($q)) {
  1345. if ($r['fakturadate']) {
  1346. $x++;
  1347. $fakturadate[$x]=$r['fakturadate'];
  1348. }
  1349. }
  1350. $x=0;
  1351. #cho "select distinct(felt_1) as betaling from ordrer where felt_5='$kasse' and konto_id= '0' and art = 'PO' and status='3' order by felt_1<br>";
  1352. $q=db_select("select distinct(felt_1) as betaling from ordrer where felt_5='$kasse' and (konto_id='0' or betalingsbet='Kontant') and art = 'PO' and status='3' order by felt_1",__FILE__ . " linje " . __LINE__);
  1353. while ($r=db_fetch_array($q)) {
  1354. if ($r['betaling']) {
  1355. $x++;
  1356. $betaling[$x]=$r['betaling'];
  1357. }
  1358. }
  1359. $x=0;
  1360. #cho "select distinct(felt_3) as betaling2 from ordrer where felt_5='$kasse' and konto_id= '0' and art = 'PO' and status='3' order by felt_3<br>";
  1361. $q=db_select("select distinct(felt_3) as betaling2 from ordrer where felt_5='$kasse' and (konto_id='0' or betalingsbet='Kontant') and art = 'PO' and status='3' order by felt_3",__FILE__ . " linje " . __LINE__);
  1362. while ($r=db_fetch_array($q)) {
  1363. if ($r['betaling2']) {
  1364. $x++;
  1365. $betaling2[$x]=$r['betaling2'];
  1366. }
  1367. }
  1368. for ($x=1;$x<=count($fakturadate);$x++) {
  1369. #cho "X $x<br>";
  1370. for ($y=0;$y<=count($betaling);$y++) {
  1371. #cho "Y $y<br>";
  1372. for ($z=0;$z<=count($betaling2);$z++) {
  1373. #cho "Z $z<br>";
  1374. $id=NULL;
  1375. #cho "select id from ordrer where felt_5='$kasse' and fakturadate='$fakturadate[$x]' and felt_1='$betaling[$y]' and felt_3='$betaling2[$z]' and konto_id= '0' and art = 'PO' and status='3'<br>";
  1376. $q=db_select("select id from ordrer where felt_5='$kasse' and fakturadate='$fakturadate[$x]' and felt_1='$betaling[$y]' and felt_3='$betaling2[$z]' and (konto_id='0' or betalingsbet='Kontant') and art = 'PO' and status='3'",__FILE__ . " linje " . __LINE__);
  1377. while ($r=db_fetch_array($q)) {
  1378. if($id) $id.=",".$r['id'];
  1379. else $id=$r['id'];
  1380. }
  1381. $r = db_fetch_array(db_select("select box9 from grupper where art='POS' and kodenr='1'",__FILE__ . " linje " . __LINE__));
  1382. if($r['box9'] && $id) {
  1383. transaktion('begin');
  1384. bogfor_nu("$id","");
  1385. transaktion('commit');
  1386. }
  1387. }
  1388. }
  1389. }
  1390. }
  1391. function kassebeholdning ($kasse) {
  1392. global $bruger_id;
  1393. global $db;
  1394. global $db_encode;
  1395. $dd=date("Y-m-d");
  1396. $tid=date("H:m");
  1397. posbogfor($kasse);
  1398. include("../includes/ConvertCharset.class.php");
  1399. if ($db_encode=="UTF8") $FromCharset = "UTF-8";
  1400. else $FromCharset = "iso-8859-15";
  1401. $ToCharset = "cp865";
  1402. $convert = new ConvertCharset();
  1403. $pfnavn="../temp/".$db."/".$bruger_id.".txt";
  1404. $fp=fopen("$pfnavn","w");
  1405. $kassopgorelse="KASSEOPGØRELSE";
  1406. $tmp = $convert ->Convert($kassopgorelse, $FromCharset, $ToCharset);
  1407. fwrite($fp,"\n\n$tmp\n\n");
  1408. fwrite($fp,"Den $dd kl. $tid\n");
  1409. fwrite($fp,"Kasse nr: $kasse\n");
  1410. $r = db_fetch_array(db_select("select * from grupper where art = 'POS' and kodenr = '1'",__FILE__ . " linje " . __LINE__));
  1411. $kassekonti=explode(chr(9),$r['box2']);
  1412. $kortantal=$r['box4']*1;
  1413. $kortnavn=explode(chr(9),$r['box5']);
  1414. $kortkonto=explode(chr(9),$r['box6']);
  1415. $straksbogfor=$r['box9'];
  1416. $kasse--;
  1417. $r=db_fetch_array(db_select("select sum(debet) as debet,sum(kredit) as kredit from transaktioner where transdate < '$dd' and kontonr = '$kassekonti[$kasse]'",__FILE__ . " linje " . __LINE__));
  1418. $byttepenge=$r['debet']-$r['kredit'];
  1419. $r = db_fetch_array(db_select("select sum(debet) as debet,sum(kredit) as kredit from transaktioner where transdate = '$dd' and kontonr = '$kassekonti[$kasse]'",__FILE__ . " linje " . __LINE__));
  1420. $tilgang=$r['debet']-$r['kredit'];
  1421. if (!$straksbogfor) {
  1422. # $r=db_fetch_array(db_select("select sum(ordrelinjer.pris) as pris from ordrelinjer,ordrer where ordrer.status = '3' and ordrer.art = 'PO' and ordrer.fakturadate < '$dd' and ordrelinjer.ordre_id=ordrer.id and ordrelinjer.bogf_konto = '$kassekonti[$kasse]'",__FILE__ . " linje " . __LINE__));
  1423. $r=db_fetch_array(db_select("select sum(sum+moms) as sum from ordrer where status = '3' and art = 'PO' and fakturadate < '$dd'",__FILE__ . " linje " . __LINE__));
  1424. $byttepenge+=$r['pris'];
  1425. # $r=db_fetch_array(db_select("select sum(ordrelinjer.pris) as pris from ordrelinjer,ordrer where ordrer.status = '3' and ordrer.art = 'PO' and ordrer.fakturadate = '$dd' and ordrelinjer.ordre_id=ordrer.id and ordrelinjer.bogf_konto = '$kassekonti[$kasse]'",__FILE__ . " linje " . __LINE__));
  1426. $r=db_fetch_array(db_select("select sum(sum+moms) as sum from ordrer where status = '3' and art = 'PO' and fakturadate = '$dd'",__FILE__ . " linje " . __LINE__));
  1427. $tilgang+=$r['sum'];
  1428. }
  1429. if ($kortantal) {
  1430. # $kortsum[]=0;
  1431. fwrite($fp,"\n\nSalg paa kort\n\n");
  1432. for ($x=0;$x<$kortantal;$x++) {
  1433. if ($kortkonto[$x]) {
  1434. $r = db_fetch_array(db_select("select sum(debet) as debet,sum(kredit) as kredit from transaktioner where transdate = '$dd' and kontonr = '$kortkonto[$x]'",__FILE__ . " linje " . __LINE__));
  1435. $kortsum[$x]=dkdecimal($r['debet']-$r['kredit']);
  1436. if (!$straksbogfor) {
  1437. #cho "select sum(ordrelinjer.pris) as pris from ordrelinjer,ordrer where ordrer.status = '3' and ordrer.art = 'PO' and ordrer.fakturadate < '$dd' and ordrelinjer.ordre_id=ordrer.id and ordrelinjer.bogf_konto = '$kortkonto[$x]'<br>";
  1438. # $r=db_fetch_array(db_select("select sum(sum+moms) as sum from ordrer where status = '3' and art = 'PO' and fakturadate = '$dd'",__FILE__ . " linje " . __LINE__));
  1439. # $totalsum+=$r['pris'];
  1440. $q=db_select("select felt_2 from ordrer where status = '3' and art = 'PO' and fakturadate < '$dd' and felt_1='$kortnavn[$x]'",__FILE__ . " linje " . __LINE__);
  1441. while ($r=db_fetch_array($q)) $byttepenge-=$r['felt_2'];
  1442. $q=db_select("select felt_4 from ordrer where status = '3' and art = 'PO' and fakturadate < '$dd' and felt_3='$kortnavn[$x]'",__FILE__ . " linje " . __LINE__);
  1443. while ($r=db_fetch_array($q)) $byttepenge-=$r['felt_4'];
  1444. $q=db_select("select felt_2 from ordrer where status = '3' and art = 'PO' and fakturadate = '$dd' and felt_1='$kortnavn[$x]'",__FILE__ . " linje " . __LINE__);
  1445. while ($r=db_fetch_array($q)) $kortsum[$x]+=$r['felt_2'];
  1446. $q=db_select("select felt_4 from ordrer where status = '3' and art = 'PO' and fakturadate = '$dd' and felt_3='$kortnavn[$x]'",__FILE__ . " linje " . __LINE__);
  1447. while ($r=db_fetch_array($q)) $kortsum[$x]+=$r['felt_4'];
  1448. $tilgang-=$kortsum[$x];
  1449. }
  1450. # fwrite($fp,"$kortnavn[$x]: $tmp\n\n");
  1451. }
  1452. }
  1453. }
  1454. $kassesum=dkdecimal($byttepenge+$tilgang);
  1455. $byttepenge=dkdecimal($byttepenge);
  1456. $tilgang=dkdecimal($tilgang);
  1457. fwrite($fp,"Beholdning primo: $byttepenge\n\n");
  1458. fwrite($fp,"Dagens indbetalinger $tilgang\n\n");
  1459. fwrite($fp,"Beholdning ultimo $kassesum\n\n");
  1460. if ($kortantal) {
  1461. for ($x=0;$x<$kortantal;$x++) {
  1462. if ($kortkonto[$x]) {
  1463. fwrite($fp,"\n\nSalg paa kort\n\n");
  1464. fwrite($fp,"$kortnavn[$x]: $kortsum[$x]\n\n");
  1465. }
  1466. }
  1467. }
  1468. fwrite($fp,"\n\n\n");
  1469. fclose($fp);
  1470. $tmp="/temp/".$db."/".$bruger_id.".txt";
  1471. $url="://".$_SERVER['SERVER_NAME'].=$_SERVER['PHP_SELF'];
  1472. $url=str_replace("/debitor/pos_ordre.php","",$url);
  1473. if ($_SERVER[HTTPS]) $url="s".$url;
  1474. $url="http".$url;
  1475. print "<BODY onLoad=\"JavaScript:window.open('http://localhost/saldiprint.php?printfil=$tmp&url=$url&bruger_id=$bruger_id&bonantal=1' , '' , '$jsvars');\">";
  1476. }
  1477. if (!$varenr_ny && $fokus!='modtaget' && $fokus!='modtaget2' && $fokus!='indbetaling') $fokus="varenr_ny";
  1478. #cho "fokus $fokus<br>";
  1479. ?>
  1480. </body></html>
  1481. <script language="javascript">
  1482. document.pos_ordre.<?php echo $fokus?>.focus();
  1483. </script>