PageRenderTime 61ms CodeModel.GetById 22ms RepoModel.GetById 1ms app.codeStats 0ms

/debitor/debitorkort.php

https://github.com/nielsrune/saldi
PHP | 868 lines | 747 code | 44 blank | 77 comment | 174 complexity | 36307bc2f5d229681fd32f70cedaa431 MD5 | raw file
Possible License(s): LGPL-2.1

Large files files are truncated, but you can click here to view the full file

  1. <?php
  2. // ------------- debitor/debitorkort.php ------ lap 3.4.1 ----2014-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. // Programmet 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) 2003-2014 DANOSOFT ApS
  22. // ----------------------------------------------------------------------
  23. // 2012.10.23, ID slettes fra pbs_kunder hvis pbs ikke afmærket, søg 20121023
  24. // 2012.10.24, Annulleret ændringer fra 2012.10.23 !!
  25. // 2013.10.04, Indsat ENT_COMPAT,$charset); Søg 20131004
  26. // 2014.05.07, Indsat db_escabe_string #20140507
  27. @session_start();
  28. $s_id=session_id();
  29. print "<script LANGUAGE=\"JavaScript\" SRC=\"../javascript/overlib.js\"></script>\n";
  30. $modulnr=6;
  31. $title="SALDI - debitorkort";
  32. $css="../css/standard.css";
  33. include("../includes/connect.php");
  34. include("../includes/online.php");
  35. include("../includes/std_func.php");
  36. print "<script language=\"javascript\" type=\"text/javascript\" src=\"../javascript/confirmclose.js\"></script>\n";
  37. $id = if_isset($_GET['id']);
  38. if (!$id) $id= if_isset($_GET['konto_id']);
  39. if($_GET['returside']){
  40. $returside= $_GET['returside'];
  41. $ordre_id = $_GET['ordre_id'];
  42. $fokus = $_GET['fokus'];
  43. } else {
  44. if ($popup) $returside="../includes/luk.php";
  45. else $returside="debitor.php";
  46. }
  47. if ($delete_category=if_isset($_GET['delete_category'])) {
  48. $r=db_fetch_array(db_select("select * from grupper where art='DebInfo'",__FILE__ . " linje " . __LINE__));
  49. $cat_id=explode(chr(9),$r['box1']);
  50. $cat_beskrivelse=explode(chr(9),$r['box2']);
  51. $cat_antal=count($cat_id);
  52. for ($x=0;$x<$cat_antal;$x++) {
  53. if ($cat_id[$x]!=$delete_category) {
  54. ($box1)?$box1.=chr(9).$cat_id[$x]:$box1=$cat_id[$x];
  55. ($box2)?$box2.=chr(9).db_escape_string($cat_beskrivelse[$x]):$box2=db_escape_string($cat_beskrivelse[$x]);
  56. }
  57. }
  58. $delete_category=0;
  59. db_modify("update grupper set box1='$box1',box2='$box2' where art = 'DebInfo'",__FILE__ . " linje " . __LINE__);
  60. }
  61. $rename_category=if_isset($_GET['rename_category']);
  62. if ($_POST){
  63. $submit=db_escape_string(trim($_POST['submit']));
  64. $id=$_POST['id'];
  65. if ($submit!="Slet") {
  66. $notes=$_POST['notes'];
  67. $firmanavn=db_escape_string(trim($_POST['firmanavn']));
  68. $addr1=db_escape_string(trim($_POST['addr1']));
  69. $addr2=db_escape_string(trim($_POST['addr2']));
  70. $postnr=db_escape_string(trim($_POST['postnr']));
  71. $bynavn=db_escape_string(trim($_POST['bynavn']));
  72. $land=db_escape_string(trim($_POST['land']));
  73. $kontakt=db_escape_string(trim($_POST['kontakt']));
  74. $tlf=db_escape_string(trim($_POST['tlf']));
  75. $email=db_escape_string(trim($_POST['email']));
  76. $mailfakt=db_escape_string(trim($_POST['mailfakt']));
  77. $cvrnr=db_escape_string(trim($_POST['cvrnr']));
  78. $kontonr=db_escape_string(trim($_POST['kontonr']));
  79. $felt_1 = db_escape_string(trim($_POST['felt_1']));
  80. $notes=db_escape_string(trim($_POST['notes']));
  81. /*
  82. if ( !$id && !$firmanavn && !$kontonr && $notes ) {
  83. $noteslinjer = explode("\n", $notes);
  84. $firmanavn = felt_fra_tekst("Firma: ", $noteslinjer);
  85. $addr1 = felt_fra_tekst("Adresse: ", $noteslinjer);
  86. $addr2 = felt_fra_tekst(" ", $noteslinjer);
  87. $postnr = preg_replace("/^[^ ]* ([^ ]*) .*$/", "$1", felt_fra_tekst("Postnr.By: ", $noteslinjer));
  88. $bynavn = preg_replace("/^[^ ]* [^ ]* (.*)$/", "$1", felt_fra_tekst("Postnr.By: ", $noteslinjer));
  89. $email = felt_fra_tekst("e-mail: ", $noteslinjer);
  90. $cvrnr = str_replace(" ", "", felt_fra_tekst("Cvr: ", $noteslinjer));
  91. $tlf = str_replace("+45", "", str_replace(" ", "", felt_fra_tekst("Telefon: ", $noteslinjer)));
  92. $felt_1 = felt_fra_tekst("Regnskab: ", $noteslinjer);
  93. $kontakt = felt_fra_tekst("Navn: ", $noteslinjer);
  94. $land = "DK";
  95. $mailfakt = 1;
  96. $notes = "";
  97. }
  98. */
  99. $ny_kontonr=db_escape_string(trim($_POST['ny_kontonr']));
  100. $gl_kontotype=db_escape_string(trim($_POST['gl_kontotype']));
  101. $kontotype=db_escape_string(trim($_POST['kontotype']));
  102. $fornavn=db_escape_string(trim($_POST['fornavn']));
  103. $efternavn=db_escape_string(trim($_POST['efternavn']));
  104. $fax=db_escape_string(trim($_POST['fax']));
  105. $web=db_escape_string(trim($_POST['web']));
  106. $betalingsbet=db_escape_string(trim($_POST['betalingsbet']));
  107. $ean=db_escape_string(trim($_POST['ean']));
  108. $institution=db_escape_string(trim($_POST['institution']));
  109. $betalingsdage=$_POST['betalingsdage']*1;
  110. $kreditmax=usdecimal($_POST['kreditmax']);
  111. $felt_2 = db_escape_string(trim($_POST['felt_2']));
  112. $felt_3 = db_escape_string(trim($_POST['felt_3']));
  113. $felt_4 = db_escape_string(trim($_POST['felt_4']));
  114. $felt_5 = db_escape_string(trim($_POST['felt_5']));
  115. $lev_firmanavn=db_escape_string(trim($_POST['lev_firmanavn']));
  116. $lev_fornavn=db_escape_string(trim($_POST['lev_fornavn']));
  117. $lev_efternavn=db_escape_string(trim($_POST['lev_efternavn']));
  118. $lev_addr1=db_escape_string(trim($_POST['lev_addr1']));
  119. $lev_addr2=db_escape_string(trim($_POST['lev_addr2']));
  120. $lev_postnr=db_escape_string(trim($_POST['lev_postnr']));
  121. $lev_bynavn=db_escape_string(trim($_POST['lev_bynavn']));
  122. $lev_land=db_escape_string(trim($_POST['lev_land']));
  123. $lev_kontakt=db_escape_string(trim($_POST['lev_kontakt']));
  124. $lev_tlf=db_escape_string(trim($_POST['lev_tlf']));
  125. $lev_email=db_escape_string(trim($_POST['lev_email']));
  126. $vis_lev_addr=db_escape_string(trim($_POST['vis_lev_addr']));
  127. $lukket=db_escape_string(trim($_POST['lukket']));
  128. list ($gruppe) = explode (':', $_POST['gruppe']);
  129. $rabatgruppe=$_POST['rabatgruppe']*1;
  130. $kontoansvarlig=$_POST['kontoansvarlig'];
  131. $bank_reg=$_POST['bank_reg'];
  132. $bank_konto=$_POST['bank_konto'];
  133. $pbs_nr=$_POST['pbs_nr'];
  134. $pbs=$_POST['pbs'];
  135. $ordre_id=$_POST['ordre_id'];
  136. $returside=$_POST['returside'];
  137. $fokus=$_POST['fokus'];
  138. $posnr=$_POST['posnr'];
  139. $ans_id=$_POST['ans_id'];
  140. $ans_ant=$_POST['ans_ant'];
  141. $cat_valg=$_POST['cat_valg'];
  142. $cat_id=$_POST['cat_id'];
  143. $cat_beskrivelse=$_POST['cat_beskrivelse'];
  144. $cat_antal=$_POST['cat_antal']*1;
  145. $ny_kategori=$_POST['ny_kategori'];
  146. $rename_category=if_isset($_POST['rename_category']);
  147. $status=db_escape_string(trim($_POST['status']));
  148. $ny_status=db_escape_string(trim($_POST['ny_status']));
  149. $status_id=$_POST['status_id'];
  150. $status_beskrivelse=$_POST['status_beskrivelse'];
  151. $status_antal=count($status_id);
  152. $rename_status=if_isset($_POST['rename_status']);
  153. if ($gl_kontotype=='privat') {
  154. $firmanavn=trim($fornavn." ".$efternavn);
  155. $lev_firmanavn=trim($lev_fornavn." ".$lev_efternavn);
  156. }
  157. # if (!$pbs) $pbs_nr=NULL;
  158. ($status=='new_status')?$new_status=1:$new_status=0;
  159. $status*=1;
  160. if (substr($ny_kontonr,0,1)=="=") {
  161. $ny_kontonr=str_replace("=","",$ny_kontonr);
  162. print "<meta http-equiv=\"refresh\" content=\"0;URL=kontofusion.php?returside=$returside&ordre_id=$ordre_id&id=$id&fokus=$fokus&kontonr=$ny_kontonr\">\n";
  163. exit;
  164. }
  165. if (!$id && !$firmanavn && !$ny_kontonr) {
  166. if (findtekst(255,$sprog_id)=='Regnskab' && $felt_1>1 && is_numeric($felt_1)) {
  167. include("../includes/connect.php");
  168. if ($r=db_fetch_array($q=db_select("select * from regnskab where id='$felt_1'",__FILE__ . " linje " . __LINE__))) {
  169. $regnskab=db_escape_string($r['regnskab']);
  170. if ($r=db_fetch_array($q=db_select("select * from kundedata where regnskab='$regnskab' or regnskab_id='$felt_1'",__FILE__ . " linje " . __LINE__))) {
  171. $ny_kontonr=db_escape_string($r['tlf']);
  172. $firmanavn=db_escape_string($r['firmanavn']);
  173. $felt=db_escape_string($r['regnskab']);
  174. $addr1=db_escape_string($r['addr1']);
  175. $addr2=db_escape_string($r['addr2']);
  176. $postnr=db_escape_string($r['postnr']);
  177. $land=db_escape_string($r['land']);
  178. $land=db_escape_string($r['land']);
  179. $kontakt=db_escape_string($r['kontakt']);
  180. $tlf=db_escape_string($r['tlf']);
  181. $email=db_escape_string($r['email']);
  182. $cvrnr=db_escape_string($r['cvrnr']);
  183. $kontonr=db_escape_string($r['kontonr']);
  184. $notes=db_escape_string($r['notes']);
  185. $mailfakt='on';
  186. $gruppe=4;
  187. }
  188. $felt_1.=" : $regnskab";
  189. }
  190. include("../includes/online.php");
  191. }
  192. }
  193. ######### Kategorier
  194. for ($x=0;$x<$cat_antal;$x++) {
  195. if ($cat_valg[$x]) {
  196. ($kategori)?$kategori.=chr(9).$cat_id[$x]:$kategori=$cat_id[$x];
  197. }
  198. }
  199. $tmp=findtekst(343,$sprog_id);
  200. if ($ny_kategori && $ny_kategori!=$tmp) {
  201. if (!$rename_category && in_array($ny_kategori,$cat_beskrivelse)) {
  202. $alerttekst=findtekst(344,$sprog_id);
  203. } else {
  204. if (!$rename_category) {
  205. $x=1;
  206. while(in_array($x,$cat_id)) $x++; #finder laveste ledige vaerdi
  207. $cat_id[$cat_antal]=$x;
  208. $cat_beskrivelse[$cat_antal]=$ny_kategori;
  209. $cat_antal++;
  210. }
  211. $box1=NULL;$box2=NULL;
  212. for ($x=0;$x<$cat_antal;$x++) {
  213. if ($cat_id[$x]==$rename_category) $cat_beskrivelse[$x]=$ny_kategori;
  214. ($box1)?$box1.=chr(9).$cat_id[$x]:$box1=$cat_id[$x];
  215. ($box2)?$box2.=chr(9).db_escape_string($cat_beskrivelse[$x]):$box2=db_escape_string($cat_beskrivelse[$x]);
  216. }
  217. $rename_category=0;
  218. db_modify("update grupper set box1='$box1',box2='$box2' where art = 'DebInfo'",__FILE__ . " linje " . __LINE__);
  219. }
  220. }
  221. ######### Status
  222. for ($x=0;$x<$status_antal;$x++) {
  223. if ($status_valg[$x]) {
  224. ($status)?$status.=chr(9).$status_id[$x]:$status=$status_id[$x];
  225. }
  226. }
  227. if ($ny_status) {
  228. if (!$rename_status && in_array($ny_status,$status_beskrivelse)) {
  229. $alerttekst=findtekst(344,$sprog_id);
  230. } else {
  231. if (!$rename_status) {
  232. $x=1;
  233. while(in_array($x,$status_id)) $x++; #finder laveste ledige vaerdi
  234. $status=$x;
  235. $status_id[$status_antal]=$x;
  236. $status_beskrivelse[$status_antal]=$ny_status;
  237. $status_antal++;
  238. }
  239. $box3=NULL;$box4=NULL;
  240. }
  241. }
  242. for ($x=0;$x<$status_antal;$x++) {
  243. if ($status_id[$x]==$rename_status) $status_beskrivelse[$x]=$ny_status;
  244. if ($status_id[$x] != $status && !$r=db_fetch_array($q=db_select("select id from adresser where status='$status_id[$x]'",__FILE__ . " linje " . __LINE__))) {
  245. $status_id[$x]=NULL;
  246. $status_beskrivelse[$x]=NULL;
  247. } else {
  248. ($box3)?$box3.=chr(9).$status_id[$x]:$box3=$status_id[$x];
  249. ($box4)?$box4.=chr(9).$status_beskrivelse[$x]:$box4=$status_beskrivelse[$x];
  250. }
  251. }
  252. $rename_status=0;
  253. db_modify("update grupper set box3='$box3',box4='$box4' where art = 'DebInfo'",__FILE__ . " linje " . __LINE__);
  254. ######### Tjekker om kontonr er integer
  255. $temp=str_replace(" ","",$ny_kontonr);
  256. $tmp2='';
  257. for ($x=0; $x<strlen($temp); $x++){
  258. $y=substr($temp,$x,1);
  259. if ((ord($y)<48)||(ord($y)>57)) {$y=0;}
  260. $tmp2=$tmp2.$y;
  261. }
  262. $tmp2=$tmp2*1;
  263. if ($tmp2!=$ny_kontonr) {
  264. $alerttekst=findtekst(345,$sprog_id);
  265. print "<BODY onLoad=\"javascript:alert('$alerttekst')\"><!--tekst 345-->";
  266. }
  267. $ny_kontonr=$tmp2;
  268. /*
  269. if ($pbs) {
  270. if (!is_numeric($bank_reg)||strlen($bank_reg)!=4) {
  271. $pbs="";
  272. print "<BODY onLoad=\"javascript:alert('Bank reg skal best&aring; af et tal p&aring; 4 cifre for at PBS kan aktiveres')\">\n";
  273. } elseif (!is_numeric($bank_konto)||strlen($bank_konto)!=10) {
  274. $pbs="";
  275. print "<BODY onLoad=\"javascript:alert('Bank konto skal best&aring; af et tal p&aring; 10 cifre for at PBS kan aktiveres')\">\n";
  276. } elseif (!is_numeric($cvrnr)||strlen($cvrnr)!=8) {
  277. $pbs="";
  278. print "<BODY onLoad=\"javascript:alert('CVR nr skal best&aring; af et tal p&aring; 8 cifre for at PBS kan aktiveres')\">\n";
  279. }
  280. }
  281. */
  282. if (!$firmanavn) {
  283. $alerttekst=findtekst(346,$sprog_id);
  284. print "<BODY onLoad=\"javascript:alert('$alerttekst')\"><!--tekst 346-->\n";
  285. }
  286. if ($postnr && !$bynavn) $bynavn=bynavn($postnr);
  287. if ($lev_postnr && !$lev_bynavn) $lev_bynavn=bynavn($lev_postnr);
  288. if ($kontoansvarlig) {
  289. if ($r = db_fetch_array(db_select("select id from adresser where art = 'S'",__FILE__ . " linje " . __LINE__))) {
  290. if ($r = db_fetch_array(db_select("select id from ansatte where initialer = '$kontoansvarlig' and konto_id='$r[id]'",__FILE__ . " linje " . __LINE__))) $kontoansvarlig=$r['id'];
  291. }
  292. } elseif ($r = db_fetch_array(db_select("select id from grupper where art = 'DIV' and kodenr = '2' and box2 = 'on'",__FILE__ . " linje " . __LINE__))) {
  293. $alerttekst=findtekst(347,$sprog_id);
  294. print "<BODY onLoad=\"javascript:alert('$alerttekst')\"><!--tekst 347-->\n";
  295. }
  296. if (!$kontoansvarlig) $kontoansvarlig='0';
  297. if (!$gruppe) {
  298. $alerttekst=findtekst(348,$sprog_id);
  299. print "<BODY onLoad=\"javascript:alert('$alerttekst')\"><!--tekst 348-->\n";
  300. $gruppe='0';
  301. }
  302. ## Tildeler aut kontonr hvis det ikke er angivet
  303. $ktoliste=array();
  304. if (($firmanavn)&&(($ny_kontonr < 1)||(!$ny_kontonr))) {
  305. if (!$id) {$id="0";}
  306. $x=0;
  307. $q = db_select("select kontonr from adresser where art = 'D' and id != $id order by kontonr",__FILE__ . " linje " . __LINE__);
  308. while ($r = db_fetch_array($q)) {
  309. $x++;
  310. $ktoliste[$x]=$r['kontonr'];
  311. }
  312. $ny_kontonr=1000;
  313. while(in_array($ny_kontonr, $ktoliste)) $ny_kontonr++;
  314. $alerttekst=findtekst(349,$sprog_id);
  315. $alerttekst=str_replace('$ny_kontonr',$ny_kontonr,$alerttekst);
  316. print "<BODY onLoad=\"javascript:alert('$alerttekst')\"><!--tekst 349-->\n";
  317. }
  318. ############################
  319. if(!$betalingsdage){$betalingsdage=0;}
  320. if(!$kreditmax){$kreditmax=0;}
  321. if ($id==0) {
  322. $q = db_select("select id from adresser where kontonr = '$ny_kontonr' and art = 'D'",__FILE__ . " linje " . __LINE__);
  323. $r = db_fetch_array($q);
  324. if ($r['id']) {
  325. $alerttekst=findtekst(350,$sprog_id);
  326. $alerttekst=str_replace('$ny_kontonr',$ny_kontonr,$alerttekst);
  327. print "<BODY onLoad=\"javascript:alert('$alerttekst')\">";#<!--tekst 350-->\n";
  328. $id=0;
  329. } elseif($ny_kontonr) {
  330. $oprettet=date("Y-m-d");
  331. db_modify("insert into adresser (kontonr,firmanavn,addr1,addr2,postnr,bynavn,land,kontakt,tlf,fax,email,mailfakt,web,betalingsdage,kreditmax,betalingsbet,cvrnr,ean,institution,notes,art,gruppe,kontoansvarlig,oprettet,bank_reg,bank_konto,pbs_nr,pbs,kontotype,fornavn,efternavn,lev_firmanavn,lev_fornavn,lev_efternavn,lev_addr1,lev_addr2,lev_postnr,lev_bynavn,lev_land,lev_kontakt,lev_tlf,lev_email,felt_1,felt_2,felt_3,felt_4,felt_5,vis_lev_addr,lukket,kategori,rabatgruppe,status) values ('$ny_kontonr', '$firmanavn', '$addr1', '$addr2', '$postnr', '$bynavn', '$land', '$kontakt', '$tlf', '$fax', '$email','$mailfakt', '$web', '$betalingsdage', '$kreditmax', '$betalingsbet', '$cvrnr', '$ean', '$institution', '$notes', 'D', '$gruppe', '$kontoansvarlig', '$oprettet','$bank_reg','$bank_konto','$pbs_nr','$pbs','$kontotype','$fornavn','$efternavn','$lev_firmanavn','$lev_fornavn','$lev_efternavn','$lev_addr1','$lev_addr2','$lev_postnr','$lev_bynavn','$lev_land','$lev_kontakt','$lev_tlf','$lev_email','$felt_1','$felt_2','$felt_3','$felt_4','$felt_5','$vis_lev_addr','$lukket','$kategori','$rabatgruppe','$status')",__FILE__ . " linje " . __LINE__);
  332. $q = db_select("select id from adresser where kontonr = '$ny_kontonr' and art = 'D'",__FILE__ . " linje " . __LINE__);
  333. $r = db_fetch_array($q);
  334. $id = $r[id];
  335. if ($kontakt) db_modify("insert into ansatte(konto_id, navn) values ('$id', '$kontakt')",__FILE__ . " linje " . __LINE__);
  336. }
  337. } elseif ($id > 0) {
  338. if ($ny_kontonr!=$kontonr) {
  339. $q = db_select("select kontonr from adresser where art = 'D' order by kontonr",__FILE__ . " linje " . __LINE__);
  340. while ($r = db_fetch_array($q)) {
  341. $x++;
  342. $ktoliste[$x]=$r[kontonr];
  343. }
  344. if (in_array($ny_kontonr, $ktoliste)) {
  345. $alerttekst=findtekst(351,$sprog_id);
  346. print "<BODY onLoad=\"javascript:alert('$alerttekst')\"><!--tekst 351-->\n";
  347. } else {$kontonr=$ny_kontonr;}
  348. }
  349. db_modify("update adresser set kontonr = '$kontonr', firmanavn = '$firmanavn', addr1 = '$addr1', addr2 = '$addr2', postnr = '$postnr', bynavn = '$bynavn', land = '$land', kontakt = '$kontakt', tlf = '$tlf', fax = '$fax', email = '$email', mailfakt = '$mailfakt', web = '$web', betalingsdage= '$betalingsdage', kreditmax = '$kreditmax', betalingsbet = '$betalingsbet', cvrnr = '$cvrnr', ean = '$ean', institution = '$institution', notes = '$notes', gruppe = '$gruppe', kontoansvarlig = '$kontoansvarlig',bank_reg='$bank_reg',bank_konto='$bank_konto', pbs_nr = '$pbs_nr', pbs = '$pbs',kontotype='$kontotype',fornavn='$fornavn',efternavn='$efternavn',lev_firmanavn='$lev_firmanavn',lev_fornavn='$lev_fornavn',lev_efternavn='$lev_efternavn',lev_addr1='$lev_addr1',lev_addr2='$lev_addr2',lev_postnr='$lev_postnr',lev_bynavn='$lev_bynavn',lev_land='$lev_land',lev_kontakt='$lev_kontakt',lev_tlf='$lev_tlf',lev_email='$lev_email',felt_1='$felt_1',felt_2='$felt_2',felt_3='$felt_3',felt_4='$felt_4',felt_5='$felt_5',vis_lev_addr='$vis_lev_addr',lukket='$lukket',kategori='$kategori',rabatgruppe='$rabatgruppe',status='$status' where id = '$id'",__FILE__ . " linje " . __LINE__);
  350. for ($x=1; $x<=$ans_ant; $x++) {
  351. $y=trim($posnr[$x]);
  352. if ($y && is_numeric($y) && $ans_id[$x]) db_modify("update ansatte set posnr = '$y' where id = '$ans_id[$x]'",__FILE__ . " linje " . __LINE__);
  353. elseif (($y=="-")&&($ans_id[$x])){db_modify("delete from ansatte where id = '$ans_id[$x]'",__FILE__ . " linje " . __LINE__);}
  354. else {
  355. $alerttekst=findtekst(352,$sprog_id);
  356. print "<BODY onLoad=\"javascript:alert('$alerttekst')\"><!--tekst 352-->\n";
  357. }
  358. }
  359. # if (!$pbs) db_modify("delete from pbs_kunder where konto_id = $id",__FILE__ . " linje " . __LINE__); # 2012103
  360. }
  361. } else {
  362. db_modify("delete from adresser where id = $id",__FILE__ . " linje " . __LINE__);
  363. db_modify("delete from shop_adresser where saldi_id = $id",__FILE__ . " linje " . __LINE__);
  364. print "<meta http-equiv=\"refresh\" content=\"0;URL=debitor.php?returside=$returside&ordre_id=$ordre_id&id=$konto_id&fokus=$fokus\">\n";
  365. }
  366. }
  367. if ($id > 0){
  368. $q = db_select("select * from adresser where id = '$id'",__FILE__ . " linje " . __LINE__);
  369. $r = db_fetch_array($q);
  370. $kontonr=trim($r['kontonr']);
  371. $kontotype=trim($r['kontotype']);
  372. $firmanavn=htmlentities(trim($r['firmanavn']),ENT_COMPAT,$charset);
  373. $fornavn=htmlentities(trim($r['fornavn']),ENT_COMPAT,$charset);
  374. $efternavn=htmlentities(trim($r['efternavn']),ENT_COMPAT,$charset);
  375. $addr1=htmlentities(trim($r['addr1']),ENT_COMPAT,$charset);
  376. $addr2=htmlentities(trim($r['addr2']),ENT_COMPAT,$charset);
  377. $postnr=trim($r['postnr']);
  378. $bynavn=htmlentities(trim($r['bynavn']),ENT_COMPAT,$charset);
  379. $land=htmlentities(trim($r['land']),ENT_COMPAT,$charset);
  380. $lev_firmanavn=htmlentities(trim($r['lev_firmanavn']),ENT_COMPAT,$charset);
  381. $lev_fornavn=htmlentities(trim($r['lev_fornavn']),ENT_COMPAT,$charset);
  382. $lev_efternavn=htmlentities(trim($r['lev_efternavn']),ENT_COMPAT,$charset);
  383. $lev_addr1=htmlentities(trim($r['lev_addr1']),ENT_COMPAT,$charset);
  384. $lev_addr2=htmlentities(trim($r['lev_addr2']),ENT_COMPAT,$charset);
  385. $lev_postnr=trim($r['lev_postnr']);
  386. $lev_bynavn=htmlentities(trim($r['lev_bynavn']),ENT_COMPAT,$charset);
  387. $lev_land=htmlentities(trim($r['lev_land']),ENT_COMPAT,$charset);
  388. $lev_tlf=trim($r['lev_tlf']);
  389. $lev_email=trim($r['lev_email']);
  390. $lev_kontakt=htmlentities(trim($r['lev_kontakt']),ENT_COMPAT,$charset);#20131004
  391. $tlf=trim($r['tlf']);
  392. $fax=trim($r['fax']);
  393. $email=trim($r['email']);
  394. $mailfakt=trim($r['mailfakt']);
  395. $web=trim($r['web']);
  396. $kreditmax=$r['kreditmax'];
  397. $betalingsdage=$r['betalingsdage'];
  398. $betalingsbet=trim($r['betalingsbet']);
  399. $cvrnr=trim($r['cvrnr']);
  400. $ean=trim($r['ean']);
  401. $institution=htmlentities(trim($r['institution']),ENT_COMPAT,$charset);
  402. $notes=htmlentities(trim($r['notes']),ENT_COMPAT,$charset);
  403. $gruppe=trim($r['gruppe']);
  404. $rabatgruppe=$r['rabatgruppe']*1;
  405. $bank_konto=trim($r['bank_konto']);
  406. $bank_reg=trim($r['bank_reg']);
  407. if ($r['pbs']=='on') $pbs="checked";
  408. $pbs_nr=trim($r['pbs_nr']);
  409. $pbs_date=trim($r['pbs_date']);
  410. $kontoansvarlig=trim($r['kontoansvarlig']);
  411. $status=trim($r['status']);
  412. if (!$kontoansvarlig) $kontoansvarlig='0';
  413. ($r['vis_lev_addr']) ? $vis_lev_addr='checked' : $vis_lev_addr=NULL;
  414. $felt_1 = htmlentities(trim($r['felt_1']),ENT_COMPAT,$charset);
  415. $felt_2 = htmlentities(trim($r['felt_2']),ENT_COMPAT,$charset);
  416. $felt_3 = htmlentities(trim($r['felt_3']),ENT_COMPAT,$charset);
  417. $felt_4 = htmlentities(trim($r['felt_4']),ENT_COMPAT,$charset);
  418. $felt_5 = htmlentities(trim($r['felt_5']),ENT_COMPAT,$charset);
  419. ($r['lukket']) ? $lukket='checked' : $lukket='';
  420. $kategori=explode(chr(9),$r['kategori']);
  421. $kategori_antal=count($kategori);
  422. } else {
  423. $r=db_fetch_array(db_select("select count(kontotype) as privat from adresser where kontotype = 'privat'",__FILE__ . " linje " . __LINE__));
  424. $privat=$r['privat'];
  425. $r=db_fetch_array(db_select("select count(kontotype) as erhverv from adresser where kontotype = 'erhverv'",__FILE__ . " linje " . __LINE__));
  426. $erhverv=$r['erhverv'];
  427. ($privat>$erhverv)?$kontotype="privat":$kontotype="erhverv";
  428. $id=0;
  429. $betalingsdage=8;
  430. $betalingsbet="Netto";
  431. $kontoansvarlig='0';
  432. if (isset($_GET['kontonr'])) $kontonr=$_GET['kontonr'];
  433. if (isset($_GET['firmanavn'])) $firmanavn=$_GET['firmanavn'];
  434. if (isset($_GET['addr1'])) $addr1=$_GET['addr1'];
  435. if (isset($_GET['addr2'])) $addr2=$_GET['addr2'];
  436. if (isset($_GET['postnr'])) $postnr=$_GET['postnr'];
  437. if (isset($_GET['bynavn'])) $bynavn=$_GET['bynavn'];
  438. if (isset($_GET['land'])) $land=$_GET['land'];
  439. if (isset($_GET['kontakt'])) $kontakt=$_GET['kontakt'];
  440. if (isset($_GET['tlf'])) $tlf=$_GET['tlf'];
  441. $kategori_antal=0;
  442. if (!isset($vis_lev_addr)) $vis_lev_addr='checked';
  443. print "<BODY onLoad=\"javascript:docChange = true;\">\n";
  444. }
  445. $kreditmax=dkdecimal($kreditmax);
  446. if ($r=db_fetch_array(db_select("select * from grupper where art='DebInfo'",__FILE__ . " linje " . __LINE__))) {
  447. $cat_id=explode(chr(9),$r['box1']);
  448. $cat_beskrivelse=explode(chr(9),$r['box2']);
  449. $cat_antal=count($cat_id);
  450. $status_id=explode(chr(9),$r['box3']);
  451. $status_beskrivelse=explode(chr(9),$r['box4']);
  452. $status_antal=count($status_id);
  453. } else db_modify("insert into grupper(beskrivelse,art) values ('Div DebitorInfo','DebInfo')",__FILE__ . " linje " . __LINE__);
  454. if ($kontotype=="privat") {
  455. if (!$fornavn && !$efternavn && $firmanavn) {
  456. list($fornavn,$efternavn)=explode(",",split_navn($firmanavn));
  457. list($lev_fornavn,$lev_efternavn)=explode(",",split_navn($lev_firmanavn));
  458. db_modify("update adresser set fornavn='".db_escape_string($fornavn)."',efternavn='".db_escape_string($efternavn)."' where id = '$id'",__FILE__ . " linje " . __LINE__);#20140507
  459. }
  460. }
  461. ######################## OUTPUT ######################
  462. $tekst=findtekst(154,$sprog_id);
  463. print "<table width=\"100%\" height=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\"><tbody>\n"; # TABEL 1 ->
  464. print "<tr><td align=\"center\" valign=\"top\">\n";
  465. print "<table width=\"100%\" align=\"center\" border=\"0\" cellspacing=\"2\" cellpadding=\"0\"><tbody>"; # TABEL 1.1 ->
  466. if ($popup) print "<td onClick=\"JavaScript:opener.location.reload();\" width=\"10%\" $top_bund><a href=\"javascript:confirmClose('$returside?returside=$returside&id=$ordre_id&fokus=$fokus&konto_id=$id','$tekst')\" accesskey=L>".findtekst(30,$sprog_id)."<!--tekst 30--></a></td>\n";
  467. else print "<td $top_bund><a href=\"javascript:confirmClose('$returside?returside=$returside&id=$ordre_id&fokus=$fokus&konto_id=$id','$tekst')\" accesskey=L><!--tekst 154-->".findtekst(30,$sprog_id)."<!--tekst 30--></a></td>\n";
  468. print "<td width=\"80%\"$top_bund>".findtekst(356,$sprog_id)."<!--tekst 356--></td>\n";
  469. print "<td width=\"10%\"$top_bund><a href=\"javascript:confirmClose('debitorkort.php?returside=$returside&ordre_id=$ordre_id&fokus=$fokus&konto_id=0','$tekst')\" accesskey=N><!--tekst 154-->".findtekst(39,$sprog_id)."<!--tekst 39--></a></td>\n";
  470. print "</tbody></table>"; # <- TABEL 1.1
  471. print "</td></tr>\n";
  472. print "<tr><td align = center valign = center>\n";
  473. print "<table cellpadding=\"0\" cellspacing=\"10\" border=\"1\"><tbody>\n"; # TABEL 1.2 ->
  474. print "<form name=debitorkort action=debitorkort.php method=post>\n";
  475. if($vis_lev_addr) {
  476. print "<input type=hidden name=\"felt_1\" value='$felt_1'>\n";
  477. print "<input type=hidden name=\"felt_2\" value='$felt_2'>\n";
  478. print "<input type=hidden name=\"felt_3\" value='$felt_3'>\n";
  479. print "<input type=hidden name=\"felt_4\" value='$felt_4'>\n";
  480. print "<input type=hidden name=\"felt_5\" value='$felt_5'>\n";
  481. } else {
  482. print "<input type=hidden name=\"lev_firmanavn\" value='$lev_firmanavn'>\n";
  483. print "<input type=hidden name=\"lev_fornavn\" value='$lev_fornavn'>\n";
  484. print "<input type=hidden name=\"lev_efternavn\" value='$lev_efternavn'>\n";
  485. print "<input type=hidden name=\"lev_addr1\" value='$lev_addr1'>\n";
  486. print "<input type=hidden name=\"lev_addr2\" value='$lev_addr2'>\n";
  487. print "<input type=hidden name=\"lev_postnr\" value='$lev_postnr'>\n";
  488. print "<input type=hidden name=\"lev_bynavn\" value='$lev_bynavn'>\n";
  489. print "<input type=hidden name=\"lev_land\" value='$lev_land'>\n";
  490. print "<input type=hidden name=\"lev_tlf\" value='$lev_tlf'>\n";
  491. print "<input type=hidden name=\"lev_email\" value='$lev_email'>\n";
  492. print "<input type=hidden name=\"lev_kontakt\" value='$lev_kontakt'>\n";
  493. }
  494. print "<input type=hidden name=id value='$id'>\n";
  495. print "<input type=hidden name=kontonr value='$kontonr'>\n";
  496. print "<input type=hidden name=ordre_id value='$ordre_id'>\n";
  497. print "<input type=hidden name=returside value='$returside'>\n";
  498. print "<input type=hidden name=fokus value='$fokus'>\n";
  499. print "<input type=hidden name=kontakt value='$kontakt'>\n";
  500. print "<input type=hidden name=pbs_date value='$pbs_date'>\n";
  501. # print "<input type=hidden name=pbs_nr value='$pbs_nr'>\n";
  502. # print "<input type=hidden name=gl_pbs_nr value='$pbs_nr'>\n";
  503. #print "<input type=hidden name=pbs value='$pbs'>\n";
  504. print "<input type=hidden name=gl_kontotype value='$kontotype'>\n";
  505. print "<tr><td colspan=2 align=center>Kundetype <select class=\"inputbox\" NAME=kontotype onchange=\"javascript:docChange = true;\">\n";
  506. if ($kontotype=='privat') {
  507. print "<option value=privat>".findtekst(353,$sprog_id)."<!--tekst 353--></option>\n";
  508. print "<option value=erhverv>".findtekst(354,$sprog_id)."<!--tekst 354--></option>\n";
  509. } else {
  510. print "<option value=erhverv>".findtekst(354,$sprog_id)."<!--tekst 354--></option>\n";
  511. print "<option value=privat>".findtekst(353,$sprog_id)."<!--tekst 353--></option>\n";
  512. }
  513. print "</select></td>\n";
  514. print "<td align=right>".findtekst(355,$sprog_id)."<!--tekst 355--><input class=\"inputbox\" type=\"checkbox\" name=\"vis_lev_addr\" $vis_lev_addr></td></tr>\n";
  515. print "<tr><td valign=top height=250px><table border=0 width=100%><tbody>"; # TABEL 1.2.1 ->
  516. $bg=$bgcolor5;
  517. print "<tr bgcolor=$bg><td>".findtekst(357,$sprog_id)."<!--tekst 357--></td><td><input class=\"inputbox\" type=text size=25 name=ny_kontonr value=\"$kontonr\" onchange=\"javascript:docChange = true;\"></td></tr>\n";
  518. if ($kontotype=='privat') {
  519. print "<input type=\"hidden\" name=\"firmanavn\" value=\"$firmanavn\">\n";
  520. ($bg==$bgcolor) ? $bg=$bgcolor5 : $bg=$bgcolor;
  521. print "<tr bgcolor=$bg><td>".findtekst(358,$sprog_id)."<!--tekst 358--></td><td><input class=\"inputbox\" type=text size=25 name=fornavn value=\"$fornavn\" onchange=\"javascript:docChange = true;\"></td></tr>\n";
  522. ($bg==$bgcolor) ? $bg=$bgcolor5 : $bg=$bgcolor;
  523. print "<tr bgcolor=$bg><td>".findtekst(359,$sprog_id)."<!--tekst 359--></td><td><input class=\"inputbox\" type=text size=25 name=efternavn value=\"$efternavn\" onchange=\"javascript:docChange = true;\"></td></tr>\n";
  524. } else {
  525. ($bg==$bgcolor) ? $bg=$bgcolor5 : $bg=$bgcolor;
  526. print "<tr bgcolor=$bg><td>".findtekst(360,$sprog_id)."<!--tekst 360--></td><td><input class=\"inputbox\" type=text size=25 name=firmanavn value=\"$firmanavn\" onchange=\"javascript:docChange = true;\"></td></tr>\n";
  527. }
  528. ($bg==$bgcolor) ? $bg=$bgcolor5 : $bg=$bgcolor;
  529. print "<tr bgcolor=$bg><td>".findtekst(361,$sprog_id)."<!--tekst 361--></td><td><input class=\"inputbox\" type=text size=25 name=addr1 value=\"$addr1\" onchange=\"javascript:docChange = true;\"></td></tr>\n";
  530. ($bg==$bgcolor) ? $bg=$bgcolor5 : $bg=$bgcolor;
  531. print "<tr bgcolor=$bg><td>".findtekst(362,$sprog_id)."<!--tekst 362--></td><td><input class=\"inputbox\" type=text size=25 name=addr2 value=\"$addr2\" onchange=\"javascript:docChange = true;\"></td></tr>\n";
  532. ($bg==$bgcolor) ? $bg=$bgcolor5 : $bg=$bgcolor;
  533. print "<tr bgcolor=$bg><td>".findtekst(363,$sprog_id)."<!--tekst 363--></td><td><input class=\"inputbox\" type=text size=3 name=postnr value=\"$postnr\" onchange=\"javascript:docChange = true;\">\n";
  534. print "<input class=\"inputbox\" type=text size=19 name=bynavn value=\"$bynavn\" onchange=\"javascript:docChange = true;\"></td></tr>\n";
  535. ($bg==$bgcolor) ? $bg=$bgcolor5 : $bg=$bgcolor;
  536. print "<tr bgcolor=$bg><td>".findtekst(364,$sprog_id)."<!--tekst 364--></td><td><input class=\"inputbox\" type=text size=25 name=land value=\"$land\" onchange=\"javascript:docChange = true;\"></td></tr>\n";
  537. ($bg==$bgcolor) ? $bg=$bgcolor5 : $bg=$bgcolor;
  538. print "<tr bgcolor=$bg><td>".findtekst(365,$sprog_id)."<!--tekst 365--></td><td><input class=\"inputbox\" type=text size=22 name=email value=\"$email\" onchange=\"javascript:docChange = true;\">\n";
  539. if ($email && $mailfakt) $mailfakt="checked";
  540. print "<span title=\"".findtekst(366,$sprog_id)."\"><!--tekst 366--><input class=\"inputbox\" type=checkbox name=mailfakt $mailfakt></span></td></tr>\n";
  541. if ($kontotype=='erhverv') {
  542. ($bg==$bgcolor) ? $bg=$bgcolor5 : $bg=$bgcolor;
  543. print "<tr bgcolor=$bg><td>".findtekst(367,$sprog_id)."<!--tekst 367--></td><td><input class=\"inputbox\" type=text size=25 name=web value=\"$web\" onchange=\"javascript:docChange = true;\"></td></tr>\n";
  544. }
  545. ($bg==$bgcolor) ? $bg=$bgcolor5 : $bg=$bgcolor;
  546. print "<tr bgcolor=$bg><td>".findtekst(368,$sprog_id)."<!--tekst 368--></td>\n";
  547. print "<td><select class=\"inputbox\" NAME=betalingsbet onchange=\"javascript:docChange = true;\" >\n";
  548. print "<option>$betalingsbet</option>\n";
  549. if ($betalingsbet!='Forud') {print "<option value=\"Forud\">".findtekst(369,$sprog_id)."<!--tekst 369--></option>"; }
  550. if ($betalingsbet!='Kontant') {print "<option value=\"Kontant\">".findtekst(370,$sprog_id)."<!--tekst 370--></option>"; }
  551. if ($betalingsbet!='Efterkrav') {print "<option value=\"Efterkrav\">".findtekst(371,$sprog_id)."<!--tekst 371--></option>"; }
  552. if ($betalingsbet!='Netto'){print "<option value=\"Netto\">".findtekst(372,$sprog_id)."<!--tekst 372--></option>"; }
  553. if ($betalingsbet!='Lb. md.'){print "<option value=\"Lb. md.\">".findtekst(373,$sprog_id)."<!--tekst 373--></option>";}
  554. if (($betalingsbet=='Kontant')||($betalingsbet=='Efterkrav')||($betalingsbet=='Forud')) {$betalingsdage='';}
  555. elseif (!$betalingsdage) {$betalingsdage='Nul';}
  556. if ($betalingsdage){
  557. if ($betalingsdage=='Nul') {$betalingsdage=0;}
  558. print "</SELECT>&nbsp;+<input class=\"inputbox\" type=text size=2 style=text-align:right name=betalingsdage value=\"$betalingsdage\" onchange=\"javascript:docChange = true;\"></td>\n";
  559. } else print "</SELECT></td></tr>\n";
  560. ($bg==$bgcolor) ? $bg=$bgcolor5 : $bg=$bgcolor;
  561. print "<tr bgcolor=$bg><td>".findtekst(374,$sprog_id)."<!--tekst 374--></td>\n";
  562. if (!$gruppe) {
  563. if (db_fetch_array(db_select("select id from grupper where art='DIV' and kodenr='2' and box1='on'",__FILE__ . " linje " . __LINE__))) $gruppe='0';
  564. else $gruppe=1;
  565. }
  566. print "<td><select class=\"inputbox\" NAME=gruppe onchange=\"javascript:docChange = true;\">\n";
  567. if ($gruppe) {
  568. $r = db_fetch_array(db_select("select beskrivelse from grupper where art='DG' and kodenr='$gruppe'",__FILE__ . " linje " . __LINE__));
  569. print "<option>$gruppe:$r[beskrivelse]</option>\n";
  570. }
  571. $q = db_select("select * from grupper where art='DG' and kodenr!='$gruppe' order by kodenr",__FILE__ . " linje " . __LINE__);
  572. while ($r = db_fetch_array($q)){
  573. print "<option>$r[kodenr]:$r[beskrivelse]</option>\n";
  574. }
  575. print "</SELECT></td></tr>\n";
  576. ($bg==$bgcolor) ? $bg=$bgcolor5 : $bg=$bgcolor;
  577. print "<tr bgcolor=$bg>";
  578. $x=0;
  579. $q = db_select("select * from grupper where art='DRG' order by box1",__FILE__ . " linje " . __LINE__);
  580. while ($r = db_fetch_array($q)){
  581. $x++;
  582. $drg_nr[$x]=$r['kodenr'];
  583. $drg_navn[$x]=$r['box1'];
  584. }
  585. if ($drg=$x) {
  586. ($bg==$bgcolor) ? $bg=$bgcolor5 : $bg=$bgcolor;
  587. print "<td>".findtekst(375,$sprog_id)."<!--tekst 375--></td>\n";
  588. print "<td><select class=\"inputbox\" NAME=rabatgruppe onchange=\"javascript:docChange = true;\">\n";
  589. for ($x=1;$x<=$drg;$x++) {
  590. if ($rabatgruppe==$drg_nr[$x]) print "<option value=\"$rabatgruppe\">$drg_navn[$x]</option>\n";
  591. }
  592. print "<option value=\"0\"></option>\n";
  593. for ($x=1;$x<=$drg;$x++) {
  594. if ($rabatgruppe!=$drg_nr[$x]) print "<option value=\"$drg_nr[$x]\">$drg_navn[$x]</option>\n";
  595. }
  596. print "</SELECT></td></tr>\n";
  597. } else print "<td colspan=\"2\"><br></td></tr>";
  598. #print "<td><br></td>\n";
  599. print "</tbody></table></td>"; # <- TABEL 1.2.1
  600. print "<td valign=top><table border=0 width=100%><tbody>"; # TABEL 1.2.2 ->
  601. $bg=$bgcolor5;
  602. print "<tr bgcolor=$bg><td>".findtekst(376,$sprog_id)."<!--tekst 376--></td><td><input class=\"inputbox\" type=text size=10 name=cvrnr value=\"$cvrnr\" onchange=\"javascript:docChange = true;\"></td></tr>\n";
  603. ($bg==$bgcolor) ? $bg=$bgcolor5 : $bg=$bgcolor;
  604. print "<tr bgcolor=$bg><td>".findtekst(377,$sprog_id)."<!--tekst 377--></td><td><input class=\"inputbox\" type=text size=10 name=tlf value=\"$tlf\" onchange=\"javascript:docChange = true;\"></td></tr>\n";
  605. ($bg==$bgcolor) ? $bg=$bgcolor5 : $bg=$bgcolor;
  606. print "<tr bgcolor=$bg><td>".findtekst(378,$sprog_id)."<!--tekst 378--></td><td><input class=\"inputbox\" type=text size=10 name=fax value=\"$fax\" onchange=\"javascript:docChange = true;\"></td></tr>\n";
  607. if ($kontotype=='erhverv') {
  608. ($bg==$bgcolor) ? $bg=$bgcolor5 : $bg=$bgcolor;
  609. print "<tr bgcolor=$bg><td>".findtekst(379,$sprog_id)."<!--tekst 379--></td><td><input class=\"inputbox\" type=text size=10 name=ean value=\"$ean\" onchange=\"javascript:docChange = true;\"></td></tr>\n";
  610. ($bg==$bgcolor) ? $bg=$bgcolor5 : $bg=$bgcolor;
  611. print "<tr bgcolor=$bg><td>".findtekst(380,$sprog_id)."<!--tekst 380--></td><td><input class=\"inputbox\" type=text size=10 name=institution value=\"$institution\" onchange=\"javascript:docChange = true;\"></td></tr>\n";
  612. }
  613. ($bg==$bgcolor) ? $bg=$bgcolor5 : $bg=$bgcolor;
  614. print "<tr bgcolor=$bg><td>".findtekst(381,$sprog_id)."<!--tekst 381--></td><td><input class=\"inputbox\" type=text size=10 name=kreditmax value=\"$kreditmax\"></td></tr>\n";
  615. ($bg==$bgcolor) ? $bg=$bgcolor5 : $bg=$bgcolor;
  616. print "<tr bgcolor=$bg><td>".findtekst(382,$sprog_id)."<!--tekst 382--></td><td><input class=\"inputbox\" type=text size=10 name=bank_reg value=\"$bank_reg\"></td></tr>\n";
  617. ($bg==$bgcolor) ? $bg=$bgcolor5 : $bg=$bgcolor;
  618. print "<tr bgcolor=$bg><td>".findtekst(383,$sprog_id)."<!--tekst 383--></td><td><input class=\"inputbox\" type=text size=10 name=bank_konto value=\"$bank_konto\"></td></tr>\n";
  619. ##################### PBS #####################
  620. ($bg==$bgcolor) ? $bg=$bgcolor5 : $bg=$bgcolor;
  621. if ($pbs) {
  622. print "<tr bgcolor=$bg><td height=25px>".findtekst(384,$sprog_id)."<!--tekst 384--></td><td><input class=\"inputbox\" type=checkbox name=pbs $pbs><input class=\"inputbox\" size=\"8\" type=\"text\" name=\"pbs_nr\" value=\"$pbs_nr\"></td></tr>\n";
  623. } else {
  624. print "<tr bgcolor=$bg><td height=25px>".findtekst(385,$sprog_id)."<!--tekst 385--></td><td><input class=\"inputbox\" type=checkbox name=pbs $pbs></td></tr>\n";
  625. }
  626. ##################### KONTOANSVARLIG #####################
  627. ($bg==$bgcolor) ? $bg=$bgcolor5 : $bg=$bgcolor;
  628. print "<tr bgcolor=$bg><td>".findtekst(386,$sprog_id)."<!--tekst 386--></td>\n";
  629. $r = db_fetch_array(db_select("select initialer from ansatte where id='$kontoansvarlig'",__FILE__ . " linje " . __LINE__));
  630. print "<td><select class=\"inputbox\" NAME=kontoansvarlig value=\"$kontoansvarlig\" onchange=\"javascript:docChange = true;\">\n";
  631. if ($r['initialer']) {
  632. $r = db_fetch_array(db_select("select initialer from ansatte where id='$kontoansvarlig'",__FILE__ . " linje " . __LINE__));
  633. print "<option>$r[initialer]</option>\n";
  634. }
  635. print "<option></option>\n";
  636. if ($r=db_fetch_array(db_select("select id from adresser where art='S'",__FILE__ . " linje " . __LINE__))) $q = db_select("select id, initialer from ansatte where konto_id='$r[id]'",__FILE__ . " linje " . __LINE__);
  637. while ($r = db_fetch_array($q)){
  638. print "<option>$r[initialer]</option>\n";
  639. }
  640. print "</SELECT></td></tr>\n";
  641. ##################### STATUS #####################
  642. for ($x=0;$x<$status_antal;$x++) {
  643. print "<input type=\"hidden\" name=\"status_id[$x]\" value=\"$status_id[$x]\">";
  644. print "<input type=\"hidden\" name=\"status_beskrivelse[$x]\" value=\"$status_beskrivelse[$x]\">";
  645. }
  646. ($bg==$bgcolor) ? $bg=$bgcolor5 : $bg=$bgcolor;
  647. if ($new_status) {
  648. print "<tr bgcolor=$bg title=\"".findtekst(497,$sprog_id)."\"><!--tekst 497--><td height=\"25px\">".findtekst(494,$sprog_id)."<!--tekst 494--></td><td><input class=\"inputbox\" type=text size=10 name=ny_status></td></tr>\n";
  649. } else {
  650. print "<tr bgcolor=$bg><td title='".findtekst(496,$sprog_id)."' height=\"25px\"><!--tekst 496-->".findtekst(494,$sprog_id)."<!--tekst 494--></td>\n";
  651. print "<td><select class=\"inputbox\" NAME=status onchange=\"javascript:docChange = true;\">\n";
  652. if (!$status) print "<option></option>\n";
  653. for ($x=0;$x<$status_antal;$x++) {
  654. if ($status==$status_id[$x]) print "<option value=\"$status_id[$x]\">$status_beskrivelse[$x]</option>\n";
  655. }
  656. for ($x=0;$x<$status_antal;$x++) {
  657. if ($status!=$status_id[$x]) print "<option value=\"$status_id[$x]\">$status_beskrivelse[$x]</option>\n";
  658. }
  659. if ($status) print "<option></option>\n";
  660. print "<option value=\"new_status\">".findtekst(495,$sprog_id)."<!--tekst 495--></option>\n";
  661. print "</SELECT></td></tr>\n";
  662. }
  663. ##################### LUKKET #####################
  664. ($bg==$bgcolor) ? $bg=$bgcolor5 : $bg=$bgcolor;
  665. print "<tr bgcolor=$bg><td>".findtekst(387,$sprog_id)."<!--tekst 387--></td><td><input class=\"inputbox\" type=checkbox name=lukket $lukket></td></tr>\n";
  666. print "</tbody></table></td>";# <- TABEL 1.2.2
  667. print "<td valign=top><table border=0 width=100%><tbody>"; # TABEL 1.2.3 ->
  668. $bg=$bgcolor5;
  669. if ($vis_lev_addr) {
  670. print "<tr bgcolor=$bg><td colspan=2 align=center height=25px><b>Levering</b></td></tr>\n";
  671. if ($kontotype=='privat') {
  672. print "<input type=\"hidden\" name=\"lev_firmanavn\" value=\"$lev_firmanavn\">\n";
  673. ($bg==$bgcolor) ? $bg=$bgcolor5 : $bg=$bgcolor;
  674. print "<tr bgcolor=$bg><td>".findtekst(358,$sprog_id)."<!--tekst 358--></td><td><input class=\"inputbox\" type=text size=25 name=lev_fornavn value=\"$lev_fornavn\" onchange=\"javascript:docChange = true;\"></td></tr>\n";
  675. ($bg==$bgcolor) ? $bg=$bgcolor5 : $bg=$bgcolor;
  676. print "<tr bgcolor=$bg><td>".findtekst(359,$sprog_id)."<!--tekst 359--></td><td><input class=\"inputbox\" type=text size=25 name=lev_efternavn value=\"$lev_efternavn\" onchange=\"javascript:docChange = true;\"></td></tr>\n";
  677. } else {
  678. ($bg==$bgcolor) ? $bg=$bgcolor5 : $bg=$bgcolor;
  679. print "<tr bgcolor=$bg><td>".findtekst(360,$sprog_id)."<!--tekst 360--></td><td><input class=\"inputbox\" type=text size=25 name=lev_firmanavn value=\"$lev_firmanavn\" onchange=\"javascript:docChange = true;\"></td></tr>\n";
  680. }
  681. ($bg==$bgcolor) ? $bg=$bgcolor5 : $bg=$bgcolor;
  682. print "<tr bgcolor=$bg><td>".findtekst(361,$sprog_id)."<!--tekst 361--></td><td><input class=\"inputbox\" type=text size=25 name=lev_addr1 value=\"$lev_addr1\" onchange=\"javascript:docChange = true;\"></td></tr>\n";
  683. ($bg==$bgcolor) ? $bg=$bgcolor5 : $bg=$bgcolor;
  684. print "<tr bgcolor=$bg><td>".findtekst(362,$sprog_id)."<!--tekst 362--></td><td><input class=\"inputbox\" type=text size=25 name=lev_addr2 value=\"$lev_addr2\" onchange=\"javascript:docChange = true;\"></td></tr>\n";
  685. ($bg==$bgcolor) ? $bg=$bgcolor5 : $bg=$bgcolor;
  686. print "<tr bgcolor=$bg><td>".findtekst(363,$sprog_id)."<!--tekst 363--></td><td><input class=\"inputbox\" type=text size=3 name=lev_postnr value=\"$lev_postnr\" onchange=\"javascript:docChange = true;\">\n";
  687. print "<input class=\"inputbox\" type=text size=19 name=lev_bynavn value=\"$lev_bynavn\" onchange=\"javascript:docChange = true;\"></td></tr>\n";
  688. ($bg==$bgcolor) ? $bg=$bgcolor5 : $bg=$bgcolor;
  689. print "<tr bgcolor=$bg><td>".findtekst(364,$sprog_id)."<!--tekst 364--></td><td><input class=\"inputbox\" type=text size=25 name=lev_land value=\"$lev_land\" onchange=\"javascript:docChange = true;\"></td></tr>\n";
  690. ($bg==$bgcolor) ? $bg=$bgcolor5 : $bg=$bgcolor;
  691. print "<tr bgcolor=$bg><td height=\"25px\">".findtekst(502,$sprog_id)."<!--tekst 502--></td><td height=\"25px\"><input class=\"inputbox\" type=text size=\"25px\" name=lev_kontakt value=\"$lev_kontakt\" onchange=\"javascript:docChange = true;\">\n";
  692. ($bg==$bgcolor) ? $bg=$bgcolor5 : $bg=$bgcolor;
  693. print "<tr bgcolor=$bg><td>".findtekst(377,$sprog_id)."<!--tekst 377--></td><td><input class=\"inputbox\" type=text size=25 name=lev_tlf value=\"$lev_tlf\" onchange=\"javascript:docChange = true;\"></td></tr>\n";
  694. } else {
  695. print "<tr bgcolor=$bg><td colspan=2 height=25px align=center><b>".findtekst(254,$sprog_id)."<!--tekst 254--></b></tr>\n";
  696. ($bg==$bgcolor) ? $bg=$bgcolor5 : $bg=$bgcolor;
  697. print "<tr bgcolor=$bg><td><span onmouseover=\"return overlib('".findtekst(260,$sprog_id)."', WIDTH=600);\" onmouseout=\"return nd();\"><!--tekst 260-->".findtekst(255,$sprog_id)."<!--tekst 255--></td><td><input class=\"inputbox\" type=text name=\"felt_1\" size=\"25\" value=\"$felt_1\"></span></td></tr>\n";
  698. ($bg==$bgcolor) ? $bg=$bgcolor5 : $bg=$bgcolor;
  699. print "<tr bgcolor=$bg><td><span onmouseover=\"return overlib('".findtekst(261,$sprog_id)."', WIDTH=600);\" onmouseout=\"return nd();\"><!--tekst 261-->".findtekst(256,$sprog_id)."<!--tekst 256--></td><td><input class=\"inputbox\" type=text name=\"felt_2\" size=\"25\" value=\"$felt_2\"></td></tr>\n";
  700. ($bg==$bgcolor) ? $bg=$bgcolor5 : $bg=$bgcolor;
  701. print "<tr bgcolor=$bg><td><span onmouseover=\"return overlib('".findtekst(262,$sprog_id)."', WIDTH=600);\" onmouseout=\"return nd();\"><!--tekst 262-->".findtekst(257,$sprog_id)."<!--tekst 257--></td><td><input type=text class=\"inputbox\" name=\"felt_3\" size=\"25\" value=\"$felt_3\"></td></tr>\n";
  702. ($bg==$bgcolor) ? $bg=$bgcolor5 : $bg=$bgcolor;
  703. print "<tr bgcolor=$bg><td><span onmouseover=\"return overlib('".findtekst(263,$sprog_id)."', WIDTH=600);\" onmouseout=\"return nd();\"><!--tekst 263-->".findtekst(258,$sprog_id)."<!--tekst 258--></td><td><input class=\"inputbox\" type=text name=\"felt_4\" size=\"25\" value=\"$felt_4\"></td></tr>\n";
  704. ($bg==$bgcolor) ? $bg=$bgcolor5 : $bg=$bgcolor;
  705. print "<tr bgcolor=$bg><td><span onmouseover=\"return overlib('".findtekst(264,$sprog_id)."', WIDTH=600);\" onmouseout=\"return nd();\"><!--tekst 264-->".findtekst(259,$sprog_id)."<!--tekst 259--></td><td><input type=text class=\"inputbox\" name=\"felt_5\" size=\"25\" value=\"$felt_5\"></td></tr>\n";
  706. }
  707. print "</tbody></table></td></tr>"; # <- TABEL 1.2.3
  708. print "<tr><td colspan=3><table border=\"1\" width=\"100%\"><tbody>"; # TABEL 1.2.4 ->
  709. print "<tr><td valign=\"top\"><table cellpadding=\"0\" cellspacing=\"1\" border=\"0\" width=\"100%\"><tbody>"; # TABEL 1.2.4.1 ->
  710. $bg=$bgcolor5;
  711. print "<tr bgcolor=$bg><td colspan=\"4\" valign=\"top\">".findtekst(388,$sprog_id)."<!--tekst 388--></td></tr>\n";
  712. $x=0;
  713. if (!$rename_category) {
  714. for ($x=0;$x<$cat_antal;$x++) {
  715. # if ($cat_id[$x]!=$rename_category) {
  716. $checked="";
  717. for ($y=0;$y<$kategori_antal;$y++) {
  718. if ($cat_id[$x]==$kategori[$y]) $checked="checked";
  719. }
  720. print "<tr><td>$cat_beskrivelse[$x]</td>\n";
  721. $tekst=findtekst(395,$sprog_id);
  722. $tekst=str_replace('$firmanavn',$firmanavn,$tekst);
  723. print "<td title=\"$tekst\" align=\"center\"><!--tekst 395--><input type=\"checkbox\" name=\"cat_valg[$x]\" $checked></td>\n";
  724. print "<td title=\"".findtekst(396,$sprog_id)."\"><!--tekst 396--><a href=\"debitorkort.php?id=$id&rename_category=$cat_id[$x]\" onclick=\"return confirm('Vil du omd&oslash;be denne kategori?')\"><img src=../ikoner/rename.png border=0></a></td>\n";
  725. print "<td title=\"".findtekst(397,$sprog_id)."\"><!--tekst 396--><a href=\"debitorkort.php?id=$id&delete_category=$cat_id[$x]\" onclick=\"return confirm('Vil du slette denne kategori?')\"><img src=../ikoner/delete.png border=0></a></td>\n";
  726. print "</tr>\n";
  727. print "<input type=\"hidden\" name=\"cat_id[$x]\" value=\"$cat_id[$x]\">\n";
  728. print "<input type=\"hidden\" name=\"cat_beskrivelse[$x]\" value=\"$cat_beskrivelse[$x]\">\n";
  729. }
  730. }
  731. if ($rename_category){
  732. for ($x=1;$x<=$cat_antal;$x++) {
  733. if ($rename_category==$cat_id[$x]) $ny_kategori=$cat_beskrivelse[$x];
  734. print "<input type=\"hidden\" name=\"cat_id[$x]\" value=\"$cat_id[$x]\">\n";
  735. print "<input type=\"hidden\" name=\"cat_beskrivelse[$x]\" value=\"$cat_beskrivelse[$x]\">\n";
  736. }
  737. $tekst=findtekst(388,$sprog_id);
  738. $tekst=str_replace('$ny_kategori',$ny_kategori,$tekst);
  739. print "<tr><td colspan=\"4\">$tekst<!--tekst 388--></td></tr>\n";
  740. print "<input type=\"hidden\" name=\"rename_category\" value=\"$rename_category\">\n";
  741. print "<tr><td colspan=\"4\" title=\"Skriv det nye navn p&aring; kategorien her\"><input type=\"text\" size=\"25\" name=\"ny_kategori\" value=\"$ny_kategori\"></td></tr>\n";
  742. } else print "<tr><td colspan=\"4\" title=\"".findtekst(390,$sprog_id)."\"><!--tekst 390--><input class=\"inputbox\" type=\"text\" size=\"25\" name=\"ny_kategori\" value=\"".findtekst(343,$sprog_id)."\"></td></tr>\n";
  743. print "<input type=\"hidden\" name=\"cat_antal\" value=\"$cat_antal\">\n";
  744. print "</tbody></table></td>";# <- TABEL 1.2.4.1
  745. print "<td><table border=0><tbody>"; # TABEL 1.2.4.2 ->
  746. $bg=$bgcolor5;
  747. print "<tr bgcolor=$bg><td colspan=\"5\" valign=\"top\">".findtekst(391,$sprog_id)."<br><!--tekst 391--><textarea name=\"notes\" rows=\"6\" cols=\"85\">$notes</textarea></td></tr>\n";
  748. #print "<tr><td> <a href=ansatte.php?returside=$returside&ordre_id=$ordre_id&fokus=$fokus&konto_id=$id>Kontaktperson</a></td><td><br></td>\n";
  749. print "</tbody></table></td></tr>";# <- TABEL 1.2.4.2
  750. print "<tr><td colspan=2><table border=\"0\" width=\"100%\"><tbody>"; # TABEL 1.2.4.3 ->
  751. print "<tr><td colspan=6><hr></td></tr>\n";
  752. if ($kontotype == 'erhverv') {
  753. print "<tr bgcolor=$bg><td colspan=6><b>".findtekst(392,$sprog_id)."<!--tekst 392--></b></td></tr>\n";
  754. if ($id) {
  755. ($bg==$bgcolor) ? $bg=$bgcolor5 : $bg=$bgcolor;
  756. print "<tr bgcolor=$bg><td title=\"".findtekst(393,$sprog_id)."\"><!--tekst 393-->".findtekst(394,$sprog_id)."<!--tekst 394--></td><td>".findtekst(398,$sprog_id)."<!--tekst 398--></td><td title=\"".findtekst(399,$sprog_id)."\"><!--tekst 399-->".findtekst(400,$sprog_id)."<!--tekst 400--></td><td>".findtekst(401,$sprog_id)."<!--tekst 401--></td><td>".findtekst(402,$sprog_id)."<!--tekst 402--></td><td><a href=ansatte.php?returside=$returside&ordre_id=$ordre_id&fokus=$fokus&konto_id=$id>".findtekst(39,$sprog_id)."<!--tekst 39--></a></td></tr>\n";
  757. $x=0;
  758. $q = db_select("select * from ansatte where konto_id = '$id' order by posnr",__FILE__ . " linje " . __LINE__);
  759. while ($r = db_fetch_array($q)){
  760. $x++;
  761. ($bg==$bgcolor) ? $bg=$bgcolor5 : $bg=$bgcolor;
  762. print "<tr bgcolor=$bg>\n";
  763. print "<td width=10><input class=\"inputbox\" type=text size=1 name=posnr[$x] value=\"$x\"></td><td title=\"".htmlentities($r['notes'],ENT_COMPAT,$charset)."\"><a href=ansatte.php?returside=$returside&ordre_id=$ordre_id&fokus=$fokus&konto_id=$id&id=$r[id]>".htmlentities($r['navn'],ENT_COMPAT,$charset)."</a></td>\n";
  764. print "<td>$r[tlf]</td><td>$r[mobil]</td><td> $r[email]</td></tr>\n";
  765. print "<input class=\"inputbox\" type=hidden name=ans_id[$x] value=$r[id]>\n";
  766. if ($x==1) {print "<input class=\"inputbox\" type=hidden name=kontakt value='$r[navn]'>";}
  767. }
  768. print "<input type=hidden name=ans_ant value=$x>\n";
  769. print "<tr><td colspan=6><br></td></tr>\n";
  770. }
  771. }
  772. #print "<tr><td><br></td></tr>\n";
  773. $q = db_select("select id from openpost where konto_id = '$id'",__FILE__ . " linje " . __LINE__);
  774. if (db_fetch_array($q)) $slet="NO";
  775. $q = db_select("select id from ordrer where konto_id = '$id'",__FILE__ . " linje " . __LINE__);
  776. if (db_fetch_array($q)) $slet="NO";
  777. $q = db_select("select id from ansatte where konto_id = '$id'",__FILE__ . " linje " . __LINE__);
  778. if (db_fetch_array($q)) $slet="NO";
  779. if ($slet=="NO") {print "<td colspan=6 align = center><input type=submit accesskey=\"g\" value=\"Gem / opdat&eacute;r\" name=\"submit\" onclick=\"javascript:docChange = false;\"></td>";}
  780. else {print "<td><br><td align = center><input type=submit accesskey=\"g\" value=\"Gem / opdat&eacute;r\" name=\"submit\" onclick=\"javascript:docChange = false;\"></td><td><br></td><td><input type=submit accesskey=\"s\" value=\"Slet\" name=\"submit\" onclick=\"return confirm('Slet $firmanavn?')\"></td>";}
  781. print "</form>\n";
  782. #print "<tr><td colspan=5><hr></td></tr>\n";
  783. print "</tbody></table></td></tr>";# <- TABEL 1.2.4.3
  784. print "</tbody></table></td></tr>";# <- TABEL 1.2.4
  785. print "</tbody></table></td></tr>"; # <- TABEL 1.2
  786. print "<tr><td align = \"center\" valign = \"bottom\">\n";
  787. print "<table width=\"100%\" align=\"center\" border=\"0\" cellspacing=\"1\" cellpadding=\"0\"><tbody>"; # TABEL 1.3 ->
  788. print "<td width=\"25%\" $top_bund>&nbsp;</td>\n";
  789. $tekst=findtekst(130,$sprog_id);
  790. if ($popup) print "<td width=\"10%\" $top_bund onClick=\"javascript:historik=window.open('historikkort.php?id=$id&returside=..…

Large files files are truncated, but you can click here to view the full file