Changeset 603
- Timestamp:
- 02/06/12 14:08:36 (3 months ago)
- Location:
- trunk
- Files:
-
- 20 modified
-
debitor/fakturadato.php (modified) (5 diffs)
-
debitor/genfakturer.php (modified) (8 diffs)
-
debitor/oioubl_dok.php (modified) (1 diff)
-
debitor/ordre.php (modified) (2 diffs)
-
debitor/ret_genfakt.php (modified) (2 diffs)
-
debitor/serienummer.php (modified) (9 diffs)
-
finans/kassekladde.php (modified) (22 diffs)
-
includes/oioublfunk.php (modified) (8 diffs)
-
includes/ordrefunc.php (modified) (69 diffs)
-
includes/std_func.php (modified) (3 diffs)
-
kreditor/ordre.php (modified) (3 diffs)
-
kreditor/serienummer.php (modified) (2 diffs)
-
lager/varekort.php (modified) (6 diffs)
-
lager/varer.php (modified) (2 diffs)
-
soapserver/addorderline.wsdl (modified) (1 diff)
-
soapserver/logon.wsdl (modified) (1 diff)
-
soapserver/multiselect.wsdl (modified) (1 diff)
-
soapserver/singleinsert.wsdl (modified) (1 diff)
-
soapserver/singleselect.wsdl (modified) (1 diff)
-
soapserver/singleupdate.wsdl (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
trunk/debitor/fakturadato.php
r586 r603 3 3 $s_id=session_id(); 4 4 5 // --------------debitor/fakturadato.php--------lap 3. 0.7-----2010.11.16-----------------5 // --------------debitor/fakturadato.php--------lap 3.2.7-----2012.01.26----------------- 6 6 // LICENS 7 7 // … … 10 10 // som er udgivet af The Free Software Foundation; enten i version 2 11 11 // af denne licens eller en senere version efter eget valg 12 // Fra og med version 3.2.2 dog under iagttagelse af følgende: 13 // 14 // Programmet mÃ¥ ikke uden forudgÃ¥ende skriftlig aftale anvendes 15 // i konkurrence med DANOSOFT ApS eller anden rettighedshaver til programmet. 12 16 // 13 17 // Dette program er udgivet med haab om at det vil vaere til gavn, … … 18 22 // http://www.fundanemt.com/gpl_da.html 19 23 // 20 // Copyright (c) 2004-201 0DANOSOFT ApS24 // Copyright (c) 2004-2012 DANOSOFT ApS 21 25 // ---------------------------------------------------------------------- 22 26 ?> … … 52 56 } else { 53 57 $fakturadate=usdate($fakturadato); 58 if (!$hurtigfakt) { 59 $r=db_fetch_array(db_select("select levdate from ordrer where id='$id'",__FILE__ . " linje " . __LINE__)); 60 $levdate=$r['levdate']; 61 } 54 62 $r=db_fetch_array(db_select("select box1, box2, box3, box4 from grupper where art='RA' and kodenr='$regnaar'",__FILE__ . " linje " . __LINE__)); 55 63 $year=substr(str_replace(" ","",$r['box2']),-2); … … 59 67 list($year, $month, $day)=explode("-",$fakturadate); 60 68 $ym=substr($year,-2).$month; 61 if (($ym<$aarstart)||($ym>$aarslut)) print "<BODY onLoad=\"fejltekst(' Leveringsdato uden for regnskabsår')\">";69 if (($ym<$aarstart)||($ym>$aarslut)) print "<BODY onLoad=\"fejltekst('Fakturadato uden for regnskabsår')\">"; 62 70 elseif (checkdate($month,$day,$year)) { 63 71 $tmp=$year."-".$month."-".$day; 64 db_modify("update ordrer set fakturadate='$tmp', levdate='$tmp' where id='$id'",__FILE__ . " linje " . __LINE__); 72 if ($hurtigfakt) $levdate=$tmp; 73 db_modify("update ordrer set fakturadate='$tmp', levdate='$levdate' where id='$id'",__FILE__ . " linje " . __LINE__); 65 74 print "<meta http-equiv=\"refresh\" content=\"0;URL=$returside?id=$id&pbs=$pbs&mail_fakt=$mail_fakt&hurtigfakt=$hurtigfakt\">"; 66 75 -
trunk/debitor/genfakturer.php
r549 r603 3 3 $s_id=session_id(); 4 4 5 // ---------debitor/genfakturer.php-----patch 3. 1.1--2011.01.03------5 // ---------debitor/genfakturer.php-----patch 3.2.7--2012.02.05------ 6 6 // LICENS 7 7 // … … 10 10 // som er udgivet af "The Free Software Foundation", enten i version 2 11 11 // af denne licens eller en senere version, efter eget valg. 12 // Fra og med version 3.2.2 dog under iagttagelse af følgende: 13 // 14 // Programmet mÃ¥ ikke uden forudgÃ¥ende skriftlig aftale anvendes 15 // i konkurrence med DANOSOFT ApS eller anden rettighedshaver til programmet. 12 16 // 13 17 // Dette program er udgivet med haab om at det vil vaere til gavn, … … 18 22 // http://www.fundanemt.com/gpl_da.html 19 23 // 20 // Copyright (c) 2004-201 1DANOSOFT ApS24 // Copyright (c) 2004-2012 DANOSOFT ApS 21 25 // ---------------------------------------------------------------------- 22 26 … … 57 61 else {$slet_gfdato_on='';$slet_gfdato_off='checked';} 58 62 63 if (!$gf_id) { 64 $org_nr_on='checked'; 65 $komplet_off='checked'; 66 $fakt_dato_on='checked'; 67 $opdat_pris_on='checked'; 68 $slet_gfdato_on='checked'; 69 } 70 59 71 if ($_POST) { 60 72 $ok=findtekst(80,$sprog_id); … … 63 75 if ($afbryd==if_isset($_POST[$afbryd])) { 64 76 print "<BODY onLoad=\"javascript:alert('Genfakturering afbrudt')\">"; 65 print "<meta http-equiv=\"refresh\" content=\"1;URL= ../includes/luk.php\">";77 print "<meta http-equiv=\"refresh\" content=\"1;URL=ordreliste.php\">"; 66 78 exit; 67 79 } elseif ($ok==if_isset($_POST[$ok])) { … … 79 91 $ny_liste=''; 80 92 for ($q=0; $q<$ordre_antal; $q++) { 81 list($id,$pbs)= split(",",genfakt($ordre_id[$q],$org_nr,$fakt_dato,$opdat_pris,$slet_gfdato));93 list($id,$pbs)=explode(",",genfakt($ordre_id[$q],$org_nr,$fakt_dato,$opdat_pris,$slet_gfdato)); 82 94 83 95 if ($komplet) { 84 96 levering($id,'on','on'); 85 bogfor($id,'on','on'); 97 $svar=bogfor($id,'on','on'); 98 if ($svar != 'OK') { 99 if (strpos($svar,'invoicedate prior to')) $tekst="Genfaktureringsdato før fakturadato"; 100 else $tekst="Der er konstateret en ubalance i posteringssummen,\\nkontakt venligst Danosoft pÃ¥ tlf. +45 46902208"; 101 print "<BODY onLoad=\"javascript:alert('$tekst')\">\n"; 102 print "<meta http-equiv=\"refresh\" content=\"0;URL=ordreliste.php\">"; 103 exit; 104 } 86 105 } else { 87 106 if ($ny_liste) $ny_liste.=",$id"; … … 163 182 $ny_id=$r2['id']; 164 183 $sum=0; 184 $x=0; 165 185 $q=db_select("select * from ordrelinjer where ordre_id = $id and (kdo!='on' or kdo is NULL) order by posnr",__FILE__ . " linje " . __LINE__); 166 186 while($r=db_fetch_array($q)) { 167 $projekt=$r['projekt']*1;187 ($r['projekt'])?$projekt=$r['projekt']:$projekt=''; 168 188 if ($r['vare_id']){ 169 189 if (!$opdat_pris) { … … 197 217 // fakturadate og netffaxt er sidste dag i de respektive maaneder vaelges ogsÃ¥ sidste dag i maaned i returvaerdien. 198 218 199 list($faktaar, $faktmd, $faktdag) = split("-", $fakturadate);200 list($nextfaktaar, $nextfaktmd, $nextfaktdag) = split("-", $nextfakt);219 list($faktaar, $faktmd, $faktdag) = explode("-", $fakturadate); 220 list($nextfaktaar, $nextfaktmd, $nextfaktdag) = explode("-", $nextfakt); 201 221 202 222 if (!checkdate($faktmd,$faktdag,$faktaar)) { -
trunk/debitor/oioubl_dok.php
r602 r603 3 3 $s_id=session_id(); 4 4 5 // ---------debitor/oioubl_dok.php----patch 3.2. 6---2012-01-19---------5 // ---------debitor/oioubl_dok.php----patch 3.2.7---2012-01-26--------- 6 6 // LICENS 7 7 // -
trunk/debitor/ordre.php
r602 r603 2020 2020 print "<tr><td></td></tr>\n"; 2021 2021 } # end if ($status < 3) 2022 2023 2022 if ($konto_id) $r=db_fetch_array(db_select("select kreditmax from adresser where id = '$konto_id'",__FILE__ . " linje " . __LINE__)); 2024 2023 if ($kreditmax=$r['kreditmax']*1) { … … 2243 2242 print "<td><input class=\"inputbox\" readonly=\"readonly\" style=\"text-align:right\" size=\"4\" value=\"\" onchange=\"javascript:docChange = true;\"></td>\n"; 2244 2243 print "<td><input class=\"inputbox\" readonly=\"readonly\" style=\"text-align:right\" size=\"10\" value=\"".dkdecimal($m_rabat*$antal)."\"></td>\n"; 2245 $sum+=afrund($m_rabat*$antal );2244 $sum+=afrund($m_rabat*$antal,2); 2246 2245 } 2247 2246 print "</tr>\n"; -
trunk/debitor/ret_genfakt.php
r602 r603 1 1 <?php 2 // ----------debitor/ret_genfakt.php----------lap 3.2. 5-----2012-01-03-------2 // ----------debitor/ret_genfakt.php----------lap 3.2.7-----2012-02-05------- 3 3 // LICENS 4 4 // … … 183 183 else $udskriv="$ordreliste[$x]"; 184 184 } elseif ($ordreantal) { 185 echo "Scar $svar<br>"; 186 print "<BODY onLoad=\"javascript:alert('Der er konstateret en ubalance i posteringssummen,\\nkontakt venligst Danosoft pÃ¥ tlf. +45 46902208')\">\n"; 185 if (strpos($svar,'invoicedate prior to')) $tekst="Genfaktureringsdato før fakturadato"; 186 else $tekst="Der er konstateret en ubalance i posteringssummen,\\nkontakt venligst Danosoft pÃ¥ tlf. +45 46902208"; 187 print "<BODY onLoad=\"javascript:alert('$tekst')\">\n"; 187 188 print "<meta http-equiv=\"refresh\" content=\"0;URL=$returside\">"; 188 189 exit; -
trunk/debitor/serienummer.php
r598 r603 1 1 <?php 2 // --------- /debitor/serienummer.php-----------patch 3.2. 2----2011.09.03----------2 // --------- /debitor/serienummer.php-----------patch 3.2.7----2012.02.02---------- 3 3 // LICENS 4 4 // … … 19 19 // http://www.fundanemt.com/gpl_da.html 20 20 // 21 // Copyright (c) 2004-201 1DANOSOFT ApS21 // Copyright (c) 2004-2012 DANOSOFT ApS 22 22 // ---------------------------------------------------------------------- 23 23 @session_start(); … … 47 47 $valg=$_POST['valg']; 48 48 $art=trim($_POST['art']); 49 $retur_linje_id=$_POST['retur_linje_id']; 49 50 50 51 if (!$sn_tjek) $sn_tjek=array(); … … 59 60 elseif ($sn_id[$x]) db_modify("update serienr set salgslinje_id=0 where id=$sn_id[$x]",__FILE__ . " linje " . __LINE__); 60 61 } 62 } elseif ($art=='DK') { 63 for ($x=1; $x<=$sn_antal; $x++) { 64 if (trim($valg[$x])=="on") { 65 $y++; 66 db_modify("update serienr set salgslinje_id=$kred_linje_id*-1 where id=$sn_id[$x]",__FILE__ . " linje " . __LINE__); 67 } elseif ($sn_id[$x]) { 68 db_modify("update serienr set salgslinje_id=$kred_linje_id where id=$sn_id[$x]",__FILE__ . " linje " . __LINE__); 69 } 70 } 61 71 } else { 62 72 for ($x=1; $x<=$sn_antal; $x++) { 63 73 if (trim($valg[$x])=="on") { 64 74 $y++; 65 db_modify("update serienr set salgslinje_id=$kred_linje_id*-1 where id=$sn_id[$x]",__FILE__ . " linje " . __LINE__); 66 } elseif ($sn_id[$x]) db_modify("update serienr set salgslinje_id=$kred_linje_id where id=$sn_id[$x]",__FILE__ . " linje " . __LINE__); 75 if ($retur_linje_id[$x] > 0) { 76 db_modify("update serienr set salgslinje_id=$retur_linje_id[$x]*-1 where id='$sn_id[$x]'",__FILE__ . " linje " . __LINE__); 77 # db_modify("insert into serienr (vare_id,kobslinje_id,salgslinje_id,batch_kob_id,batch_salg_id,serienr) values ('$vare_id','$linje_id','0','0','0','$serienr')",__FILE__ . " linje " . __LINE__); 78 } 79 } elseif ($sn_id[$x]) { 80 db_modify("update serienr set salgslinje_id=".abs($retur_linje_id[$x])." where id='$sn_id[$x]'",__FILE__ . " linje " . __LINE__); 81 # db_modify("delete from serienr where linje_id='$linje_id' and serienr='$serienr'",__FILE__ . " linje " . __LINE__); 82 } 67 83 } 68 } 84 } 69 85 } 70 86 } … … 82 98 $kred_linje_id=$row['kred_linje_id']; 83 99 84 $query = db_select("select status, art from ordrer where id = '$ordre_id'",__FILE__ . " linje " . __LINE__);100 $query = db_select("select konto_id,status, art from ordrer where id = '$ordre_id'",__FILE__ . " linje " . __LINE__); 85 101 $row = db_fetch_array($query); 102 $konto_id=$row['konto_id']; 86 103 $status=$row['status']; 87 104 $art=$row['art']; … … 101 118 } 102 119 } 103 #echo "select * from serienr where vare_id=$vare_id and batch_salg_id > 0 and salgslinje_id=$linje_id order by serienr<br>";104 120 $query = db_select("select * from serienr where vare_id=$vare_id and batch_salg_id > 0 and salgslinje_id=$linje_id order by serienr",__FILE__ . " linje " . __LINE__); 105 121 while ($row = db_fetch_array($query)) { 106 #echo "select ordre_id from ordrelinjer where id='$row[kobslinje_id]'<br>";107 122 $kobsordre=db_fetch_array(db_select("select ordre_id from ordrelinjer where id='$row[kobslinje_id]'",__FILE__ . " linje " . __LINE__)); 108 123 $kobsordre=$kobsordre['ordre_id']; … … 112 127 if ($sn_antal<$antal) { 113 128 $gem=1; 114 #echo "select * from serienr where batch_kob_id='$batch_kob_id' and vare_id='$vare_id' and (salgslinje_id=0 or salgslinje_id='$linje_id') order by serienr<br>";115 129 $q = db_select("select * from serienr where batch_kob_id='$batch_kob_id' and vare_id='$vare_id' and (salgslinje_id=0 or salgslinje_id='$linje_id') order by serienr",__FILE__ . " linje " . __LINE__); 116 130 while ($r = db_fetch_array($q)) { 117 #echo "select ordrer.ordrenr, ordrer.id from ordrelinjer,ordrer where ordrelinjer.id='$r[kobslinje_id]' and ordrer.id=ordrelinjer.ordre_id<br>";118 131 $r2=db_fetch_array(db_select("select ordrer.ordrenr, ordrer.id from ordrelinjer,ordrer where ordrelinjer.id='$r[kobslinje_id]' and ordrer.id=ordrelinjer.ordre_id",__FILE__ . " linje " . __LINE__)); 119 132 $kobsordre_id=$r2['id']; … … 136 149 $sn_antal=0; 137 150 $tmp=$kred_linje_id*-1; 138 $query = db_select("select * from serienr where salgslinje_id='$kred_linje_id' or salgslinje_id='$tmp' order by serienr",__FILE__ . " linje " . __LINE__); 139 while ($row = db_fetch_array($query)) { 151 if ($art=='KO') { 152 $query = db_select("select * from serienr where salgslinje_id!='$kred_linje_id' and (salgslinje_id='$kred_linje_id' or salgslinje_id='$tmp') order by serienr",__FILE__ . " linje " . __LINE__); 153 while ($row = db_fetch_array($query)) { 140 154 $r2 =db_fetch_array(db_select("select id from serienr where salgslinje_id='$linje_id' and serienr='$row[serienr]' order by id desc",__FILE__ . " linje " . __LINE__)); 141 155 if (($status < 3)&&(!$r2['id'])) { … … 148 162 } else { 149 163 if ($row['salgslinje_id']<0){print "<tr><td>$row[serienr]</td></tr>";} 164 } 165 } 166 } else { 167 $q = db_select("select serienr.salgslinje_id,serienr.id,serienr.serienr from serienr,ordrer,ordrelinjer where ordrer.art='DO' and ordrer.status>='3' and ordrer.konto_id='$konto_id' and 168 ordrelinjer.ordre_id=ordrer.id and ordrelinjer.vare_id=$vare_id and abs(serienr.salgslinje_id)=ordrelinjer.id",__FILE__ . " linje " . __LINE__); 169 while ($r = db_fetch_array($q)) { 170 $sn_antal++; 171 if ($r['salgslinje_id']<0) $tmp= "checked"; 172 print "<tr><td>$r[serienr]</td><td><input type=\"checkbox\" name=\"valg[$sn_antal]\" $tmp></td></tr> "; 173 print "<input type=\"hidden\" name=\"sn_id[$sn_antal]\" value=\"$r[id]\">"; 174 print "<input type=\"hidden\" name=\"serienr[$sn_antal]\" value=\"$r[serienr]\">"; 175 print "<input type=\"hidden\" name=\"retur_linje_id[$sn_antal]\" value=\"$r[salgslinje_id]\">"; 150 176 } 151 177 } -
trunk/finans/kassekladde.php
r601 r603 1 1 <?php 2 2 ob_start(); //Starter output buffering 3 // // ------------finans/kassekladde.php------lap 3.2. 5---2011-11-14------3 // // ------------finans/kassekladde.php------lap 3.2.7---2012-02-02------ 4 4 // LICENS 5 5 // … … 63 63 $belob_ligslut=NULL;$belob_ligstart=NULL;$beskrivelse_ligslut=NULL;$beskrivelse_ligstart=NULL;$bogfort=NULL; 64 64 $debet_ligslut=NULL;$debet_ligstart=NULL;$d_type_ligslut=NULL;$d_type_ligstart=NULL; 65 $find=NULL; 65 66 $k_type_ligslut=NULL;$k_type_ligstart=NULL;$kontrolkonto=NULL;$kontrolsaldo=NULL;$kredit_ligslut=NULL;$kredit_ligstart=NULL;$kladde_id=NULL;$kladdenote=NULL;$regnstart=NULL; 66 67 $simuler=NULL;$sletstart=NULL;$sletslut=NULL;$opslag_id=NULL;$lukket=NULL;$linjebg=NULL;$submit=NULL; … … 666 667 if (!$simuler) { 667 668 if ($returside != "regnskab"){$returside="kladdeliste.php";} 668 print "<table width=\"100%\" height=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\"><tbody>"; 669 print "<tr><td height=\" 25\" align=\"center\" valign=\"top\">";670 print "<table width=\"100%\" align=\"center\" border=\"0\" cellspacing=\"2\" cellpadding=\"0\"><tbody> ";669 print "<table width=\"100%\" height=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\"><tbody>"; # Tabel 1 -> Hovedramme 670 print "<tr><td height=\"1%\" align=\"center\" valign=\"top\">"; 671 print "<table width=\"100%\" align=\"center\" border=\"0\" cellspacing=\"2\" cellpadding=\"0\"><tbody><tr>";# Tabel 1.1 -> Toplinje 671 672 if ($popup) print "<td onClick=\"JavaScript:opener.location.reload();\" width=\"10%\" $top_bund>"; 672 673 else print "<td $top_bund>"; … … 675 676 else print "<a href=\"javascript:confirmClose('kladdeliste.php','$tekst')\" accesskey=\"L\">Luk</a></td>"; 676 677 print "<td width=\"80%\" $top_bund>Kassekladde $kladde_id</td>"; 677 print "<td width=\"10%\" $top_bund align=\"right\"><a href=\"javascript:confirmClose('kassekladde.php','$tekst')\" accesskey=\"N\">Ny</a></td> ";678 print "</tbody></table>"; 678 print "<td width=\"10%\" $top_bund align=\"right\"><a href=\"javascript:confirmClose('kassekladde.php','$tekst')\" accesskey=\"N\">Ny</a></td></tr>"; 679 print "</tbody></table>";# Tabel 1.1 <- Toplinje 679 680 print "</td></tr>\n"; 680 681 } 681 print "<tr><td valign=\"top\">"; 682 if(($bogfort)&&($bogfort!='-')) {print "<table cellpadding=\"0\" cellspacing=\"1\" border=\"1\" align = \"center\" valign = \"top\">";} 683 elseif ($browser=="opera" || $browser=="firefox") print "<table cellpadding=\"0\" cellspacing=\"0\" border=\"0\" align = \"center\" valign = \"top\">"; 684 else {print "<table cellpadding=\"0\" cellspacing=\"0\" border=\"0\" align = \"center\" valign = \"top\" id=\"inputTable\" onkeydown=\"doKeyDown()\">";} 685 print "</tr>\n<tbody>"; 682 686 683 print "<form name=\"kassekladde\" action=\"kassekladde.php?kksort=$kksort\" method=\"post\">"; 687 684 print "<input type=\"hidden\" name=\"kladde_id\" value=\"$kladde_id\">"; 688 685 print "<input type=\"hidden\" name=\"kladdenote\" value=\"$kladdenote\">"; 686 687 print "<tr><td valign=\"top\" height=\"1%\ align=\"center\"><table cellpadding=\"0\" cellspacing=\"0\" border=\"0\" align = \"center\" valign = \"top\"><tbody>"; 688 #if(($bogfort)&&($bogfort!='-')) {print "<table height=\"100%\" cellpadding=\"0\" cellspacing=\"0\" border=\"0\" align = \"center\" valign = \"top\">";} 689 #elseif ($browser=="opera" || $browser=="firefox") print "<table height=\"100%\" cellpadding=\"0\" cellspacing=\"0\" border=\"0\" align = \"center\" valign = \"top\">"; 690 #else print "<table height=\"100%\" cellpadding=\"0\" cellspacing=\"0\" border=\"1\" align = \"center\" valign = \"top\" id=\"inputTable\" onkeydown=\"doKeyDown()\">"; 691 print "</tr>\n<tbody>"; # Tabel 1.2 -> bemærkningstekst 689 692 print "<tr>"; 690 # if (($bogfort)&&($bogfort!='-')){print "<td colspan=10 align=center><b> $kladdenote</b></td>";} 691 #else { 692 print "<td colspan=11><b> <span title= 'Her kan skrives en bemærkning til kladden'>Bemærkning:$nbsp</b>"; 693 print "<td><b> <span title= 'Her kan skrives en bemærkning til kladden'>Bemærkning:$nbsp</b>"; 693 694 print "<input class=\"inputbox\" type=\"text\" size=95 name=ny_kladdenote value=\"$kladdenote\" onchange=\"javascript:docChange = true;\"></td>"; 694 695 if ($bogfort=="-") { 695 696 if (!isset($kontrolkonto) && isset($_COOKIE['saldi_ktrkto'])) $kontrolkonto = $_COOKIE['saldi_ktrkto']; 696 697 if ($kontrolkonto == "-") $kontrolkonto = ""; 697 print "<td colspan=\"2\"><span title= 'Angiv kontonummer til kontrol af kontobevægelser'><input class=\"inputbox\" type=\"text\" style=text-align:right size=8 name=kontrolkonto value=\"$kontrolkonto\" onchange=\"javascript:docChange = true;\"></td>";698 print "<td><span title= 'Angiv kontonummer til kontrol af kontobevægelser'><input class=\"inputbox\" type=\"text\" style=text-align:right size=8 name=kontrolkonto value=\"$kontrolkonto\" onchange=\"javascript:docChange = true;\"></td>"; 698 699 } else { 699 print "<td colspan=\"5\"align=\"center\"><span title=\"Klik her for at opdatere\"><input type=submit style=\"width: 5em\" accesskey=\"o\" value=\"Opdater\" name=\"submit\" onclick=\"javascript:docChange = false;\"></span></td>";700 701 } 702 print "</tr><tr><td colspan=\"16\"><hr></td></tr>\n"; 700 print "<td align=\"center\"><span title=\"Klik her for at opdatere\"><input type=submit style=\"width: 5em\" accesskey=\"o\" value=\"Opdater\" name=\"submit\" onclick=\"javascript:docChange = false;\"></span></td>"; 701 } 702 #print "</tr><tr><td><br color=\"$bgcolor5\" \"align=center\"></td></tr>\n"; 703 print "</tbody></table>";# Tabel 1.2 <- bemærkningstekst 703 704 #} 705 # #################################################################################################### 706 print "<tr><td height=\"98%\" width=\"100%\"><div class=\"vindue\">"; 707 if(($bogfort)&&($bogfort!='-')) print "<table cellpadding=\"0\" cellspacing=\"2\" border=\"0\" align = \"center\" valign = \"top\">"; 708 elseif ($browser=="opera" || $browser=="firefox") print "<table cellpadding=\"0\" cellspacing=\"0\" border=\"0\" align = \"center\" valign = \"top\">"; 709 else print "<table cellpadding=\"0\" cellspacing=\"0\" border=\"0\" align = \"center\" valign = \"top\" id=\"inputTable\" onkeydown=\"doKeyDown()\">"; 710 print "<tbody>"; # Tabel 1.3 -> kladdelinjer 711 704 712 print "<tr>"; 705 713 if ($vis_bilag && !$fejl) print "<td></td>"; … … 721 729 if ($vis_bet_id) print "<td align=\"center\"><b> <span title= 'Betalingsid fra girokort - Kun nummeret skal skrives'>Betal.id</b></td>"; 722 730 } 723 print "<td align=\"center\"><b> <span title= 'Afmærk her, hvis der ikke skal trækkes moms'> u/m</b></td>";731 print "<td align=\"center\" width=\"30px\"><b> <span title= 'Afmærk her, hvis der ikke skal trækkes moms'> u/m</b></td>"; 724 732 print "</tr>\n"; 725 733 … … 835 843 if (($bogfort)&&($bogfort!='-')) { 836 844 for ($y=1;$y<=$x;$y++) { 837 if (!$beskrivelse[$y]) {$beskrivelse[$y]=" ";}845 if (!$beskrivelse[$y]) $beskrivelse[$y]=" "; 838 846 # if (($d_type[$y]!="D")&&($d_type[$y]!="K")) $d_type[$y]="F"; #phr 20070801 839 847 if ($debet[$y] < 1){ … … 846 854 $k_type[$y]=" "; #phr 20070801 847 855 } 848 if (!$faktura[$y]){$faktura[$y]=" ";} 849 print "<tr>"; 856 if (!$faktura[$y]) $faktura[$y]=" "; 857 ($linjebg!=$bgcolor)?$linjebg=$bgcolor:$linjebg=$bgcolor5; 858 print "<tr bgcolor=$linjebg>"; 850 859 if ($vis_bilag && !$fejl) { 851 860 if ($dokument[$y]) print "<td title=\"klik her for at åbne bilaget: $dokument[$y]\"><a href=\"../includes/bilag.php?kilde=kassekladde&filnavn=$dokument[$y]&bilag_id=$id[$y]&bilag=$bilag[$y]&kilde_id=$kladde_id\"><img style=\"border: 0px solid\" alt=\"clip_m_papir\" src=\"../ikoner/paper.png\"></a></td>"; … … 878 887 print "</tr>\n"; 879 888 } 880 if ($bogfort=='V'){881 # print "<input type=hidden name=ny_kladdenote value=\"$kladdenote\">";882 print "<tr><td colspan=9 align=center><input type=submit accesskey=\"k\" value=\"Kopiér til ny\" name=\"submit\" onclick=\"javascript:docChange = false;\"></td></tr>\n";883 print "</form>";884 print "</tbody></table></td></tr>\n";885 print "</tbody></table>";886 }887 elseif ($bogfort=='!'){888 # print "<input type=hidden name=ny_kladdenote value=\"$kladdenote\">";889 print "<tr><td colspan=9 align=center><input type=submit accesskey=\"b\" value=\"Tilbagefør\" name=\"submit\" onclick=\"javascript:docChange = false;\"></td></tr>\n";890 print "</form>";891 print "</tbody></table></td></tr>\n";892 print "</tbody></table>";893 }894 889 } else { ################################ Kladden er ikke bogfort ######################################## 895 890 $debetsum=0; … … 938 933 if ($d_type[$y]=='F' && $debet[$y]==$kontrolkonto) $kontrolsaldo=$kontrolsaldo+$dkkamount[$y]/$tmp; 939 934 if ($k_type[$y]=='F' && $kredit[$y]==$kontrolkonto) $kontrolsaldo=$kontrolsaldo-$dkkamount[$y]/$tmp; 935 940 936 print "<tr>"; 941 937 if ($vis_bilag && !$fejl) { … … 984 980 print "<input type=hidden name=\"transdate[$y]\" value='$transdate[$y]'>"; 985 981 print "</tr>\n"; 986 if ($bilag[$y] != $bilag[$y-1]) { 987 $debetsum=0; 988 $kreditsum=0; 989 $amount[$x+1]=0; 990 } 991 if ((($debet[$y])||($kredit[$y]))&&($amount[$y] > 0)) { 992 if (($debet[$y])||($debet[$y]>0)) {$debetsum=$debetsum+$dkkamount[$y];} 993 if (($kredit[$y])||($kredit[$y]>0)) {$kreditsum=$kreditsum+$dkkamount[$y];} 994 if ((!$bilag[$x+1])||($bilag[$x+1]<$bilag[$y])) {$bilag[$x+1]=$bilag[$y];} 995 if (!$dato[$x+1]) {$dato[$x+1]=$dato[$y];} 996 $amount[$x+1]=$debetsum-$kreditsum; 982 if ($kksort=="bilag,transdate") { 983 if ($bilag[$y] != $bilag[$y-1]) { 984 $debetsum=0; 985 $kreditsum=0; 986 $amount[$x+1]=0; 987 } 988 if ((($debet[$y])||($kredit[$y]))&&($amount[$y] > 0)) { 989 if (($debet[$y])||($debet[$y]>0)) $debetsum=$debetsum+$dkkamount[$y]; 990 if (($kredit[$y])||($kredit[$y]>0)) $kreditsum=$kreditsum+$dkkamount[$y]; 991 if ((!$bilag[$x+1])||($bilag[$x+1]<$bilag[$y])) $bilag[$x+1]=$bilag[$y]; 992 if (!$dato[$x+1]) $dato[$x+1]=$dato[$y]; 993 $amount[$x+1]=$debetsum-$kreditsum; 994 } 997 995 } 998 996 } … … 1113 1111 print "<input type=hidden name=antal_ex value='$antal_ex'>"; 1114 1112 print "<input type=hidden name=antal_ny value='$y'>"; 1115 print "<tr><td colspan=13><hr></td></tr>\n"; 1116 print "<td align=center colspan=13>"; 1117 print "<table width=100% border=\"0\" cellspacing=\"0\" cellpadding=\"1\"><tbody><tr>"; 1118 print "<td align=center><span title=\"Klik her for at gemme\"><input type=submit style=\"width: 5em\" accesskey=\"g\" value=\"Gem\" name=\"submit\" onclick=\"javascript:docChange = false;\"></span></td>"; 1119 print "<td align=center><span title=\"Opslag - din markørs placering angiver hvilken tabel, opslag foretages i\"><input type=submit style=\"width: 5em\" accesskey=\"o\" value=\"Opslag\" name=\"submit\" onclick=\"javascript:docChange = false;\"></span></td>"; 1120 if ($kladde_id && !$fejl) { 1121 print "<td align=center><span title=\"Simulering af bogføring viser bevægelser i kontoplanen\"><input type=submit style=\"width: 5em\" accesskey=\"s\" value=\"Simulér\" name=\"submit\" onclick=\"javascript:docChange = false;\"></span></td>"; 1122 print "<td align=center><span title=\"Bogfør - der foretages først en simulering, som du skal bekræfte\"><input type=submit style=\"width: 5em\" accesskey=\"b\" value=\"Bogfør\" name=\"submit\" onclick=\"javascript:docChange = false;\"></span></td>"; 1123 if (!$fejl && db_fetch_array(db_select("select id from ordrer where status=3",__FILE__ . " linje " . __LINE__))) { 1124 print "<td align=center><span title=\"Henter afsluttede ordrer fra ordreliste\"><input type=submit style=\"width: 5em\" accesskey=\"h\" value=\"Hent ordrer\" name=\"submit\" onclick=\"javascript:docChange = false;\"></span></td>"; 1125 } 1126 if(db_fetch_array(db_select("select * from grupper where art = 'DIV' and kodenr = '2' and box6='on'",__FILE__ . " linje " . __LINE__))) { 1127 print "<td align=center><input type=submit style=\"width: 5em\" accesskey=\"d\" value=\"DocuBizz\" name=\"submit\" onclick=\"javascript:docChange = false;\" onclick=\"return confirm('Importer data fra DocuBizz?')\"></td>"; 1128 } 1129 print "<td align=center><span title=\"Importerer bankposteringer eller andre data fra .csv-fil (kommasepareret fil)\"><input type=submit style=\"width: 5em\" accesskey=\"i\" value=\"Import\" name=\"submit\" onclick=\"javascript:docChange = false;\"></span></td>"; 1130 print "<td align=center><span title=\"Finder åbne poster, som modsvarer beløb og fakturanummer\"><input type=submit style=\"width: 5em\" accesskey=\"u\" value=\"Udlign\" name=\"submit\" onclick=\"javascript:docChange = false;\"></span></td>"; 1113 } #end if $bogfort...else 1114 1115 print "</tbody></table></div></td></tr>"; # Tabel 1.3 <- Kladdelinjer 1116 print "<tr><td><br></td></tr>\n"; 1117 print "<tr><td align=center>"; 1118 print "<table width=\"800px\" border=\"0\" cellspacing=\"0\" cellpadding=\"1\"><tbody><tr>"; # Tabel 1.4 -> Knapper 1119 if ($bogfort=='V'){ 1120 # print "<input type=hidden name=ny_kladdenote value=\"$kladdenote\">"; 1121 print "<tr><td colspan=9 align=center><input type=submit accesskey=\"k\" value=\"Kopiér til ny\" name=\"submit\" onclick=\"javascript:docChange = false;\"></td></tr>\n"; 1122 print "</form>"; 1123 # print "</tbody></table></td></tr>\n"; 1124 # print "</tbody></table>"; 1125 } elseif ($bogfort=='!'){ 1126 # print "<input type=hidden name=ny_kladdenote value=\"$kladdenote\">"; 1127 print "<tr><td colspan=9 align=center><input type=submit accesskey=\"b\" value=\"Tilbagefør\" name=\"submit\" onclick=\"javascript:docChange = false;\"></td></tr>\n"; 1128 print "</form>"; 1129 # print "</tbody></table></td></tr>\n"; 1130 # print "</tbody></table>"; 1131 } else { 1132 print "<td align=center><span title=\"Klik her for at gemme\"><input type=submit style=\"width: 5em\" accesskey=\"g\" value=\"Gem\" name=\"submit\" onclick=\"javascript:docChange = false;\"></span></td>"; 1133 print "<td align=center><span title=\"Opslag - din markørs placering angiver hvilken tabel, opslag foretages i\"><input type=submit style=\"width: 5em\" accesskey=\"o\" value=\"Opslag\" name=\"submit\" onclick=\"javascript:docChange = false;\"></span></td>"; 1134 if ($kladde_id && !$fejl) { 1135 print "<td align=center><span title=\"Simulering af bogføring viser bevægelser i kontoplanen\"><input type=submit style=\"width: 5em\" accesskey=\"s\" value=\"Simulér\" name=\"submit\" onclick=\"javascript:docChange = false;\"></span></td>"; 1136 print "<td align=center><span title=\"Bogfør - der foretages først en simulering, som du skal bekræfte\"><input type=submit style=\"width: 5em\" accesskey=\"b\" value=\"Bogfør\" name=\"submit\" onclick=\"javascript:docChange = false;\"></span></td>"; 1137 if (!$fejl && db_fetch_array(db_select("select id from ordrer where status=3",__FILE__ . " linje " . __LINE__))) { 1138 print "<td align=center><span title=\"Henter afsluttede ordrer fra ordreliste\"><input type=submit style=\"width: 5em\" accesskey=\"h\" value=\"Hent ordrer\" name=\"submit\" onclick=\"javascript:docChange = false;\"></span></td>"; 1139 } 1140 if(db_fetch_array(db_select("select * from grupper where art = 'DIV' and kodenr = '2' and box6='on'",__FILE__ . " linje " . __LINE__))) { 1141 print "<td align=center><input type=submit style=\"width: 5em\" accesskey=\"d\" value=\"DocuBizz\" name=\"submit\" onclick=\"javascript:docChange = false;\" onclick=\"return confirm('Importer data fra DocuBizz?')\"></td>"; 1142 } 1143 print "<td align=center><span title=\"Importerer bankposteringer eller andre data fra .csv-fil (kommasepareret fil)\"><input type=submit style=\"width: 5em\" accesskey=\"i\" value=\"Import\" name=\"submit\" onclick=\"javascript:docChange = false;\"></span></td>"; 1144 print "<td align=center><span title=\"Finder åbne poster, som modsvarer beløb og fakturanummer\"><input type=submit style=\"width: 5em\" accesskey=\"u\" value=\"Udlign\" name=\"submit\" onclick=\"javascript:docChange = false;\"></span></td>"; 1145 } 1131 1146 } 1132 1147 print "</form>"; 1133 print "</tbody></table></td></tr>\n"; 1134 print "</tbody></table>"; 1135 } #end if $bogfort...else 1148 print "</tbody></table></td></tr>\n"; # Tabel 1.4 <- Knapper 1149 print "</tbody></table>"; # Tabel 1 <- 1136 1150 1137 1151 ###################################################################################################################################### … … 1416 1430 global $lobenr; 1417 1431 global $charset; 1432 global $find; 1418 1433 1419 1434 $linjebg=NULL; … … 1460 1475 $momsantal=$i; 1461 1476 } 1462 $query = db_select("select kontotype, kontonr, beskrivelse, moms, genvej, lukket from kontoplan where (kontotype ='D' or kontotype ='S'or kontotype ='H') and regnskabsaar='$regnaar' order by kontonr",__FILE__ . " linje " . __LINE__); 1477 $y=0; 1478 if ($find) $tmp="select kontotype, kontonr, beskrivelse, moms, genvej, lukket from kontoplan where (kontotype ='H' or ((kontotype ='D' or kontotype ='S') $find)) and regnskabsaar='$regnaar' order by kontonr"; 1479 else $tmp="select kontotype, kontonr, beskrivelse, moms, genvej, lukket from kontoplan where (kontotype ='D' or kontotype ='S'or kontotype ='H') and regnskabsaar='$regnaar' order by kontonr"; 1480 $query = db_select("$tmp",__FILE__ . " linje " . __LINE__); 1463 1481 while ($row = db_fetch_array($query)) { 1464 1482 if ($row['lukket']!='on') { 1465 if ($row['moms']){ 1483 $y++; 1484 $momskode[$y]=$row['moms']; 1485 $kontotype[$y]=trim($row['kontotype']); 1486 $kontonr[$y]=trim($row['kontonr']); 1487 $kontobeskrivelse[$y]=trim(stripslashes($row['beskrivelse'])); 1488 $genvej[$y]=trim($row['genvej']); 1489 } 1490 } 1491 for($y=1;$y<=count($kontonr);$y++) { 1492 ($find && ($kontotype[$y]=='H' && $kontotype[$y+1]== 'H'))?$vis=0:$vis=1; 1493 if ($vis) { 1494 if ($momskode[$x]){ 1466 1495 for ($i=1;$i<=$momsantal;$i++){ 1467 1496 if (!isset($momstekst[$i])) $momstekst[$i]=NULL; if (!isset($moms[$i])) $moms[$i]=NULL; 1468 1497 1469 if ($moms[$i]==$ row['moms']) $spantekst=$momstekst[$i];1498 if ($moms[$i]==$momskode[$y]) $spantekst=$momstekst[$i]; 1470 1499 } 1471 1500 } 1472 $kontonr=trim($row['kontonr']);1473 1501 if ($linjebg!=$bgcolor){$linjebg=$bgcolor;$color='#000000';} 1474 1502 elseif ($linjebg!=$bgcolor5){$linjebg=$bgcolor5;$color='#000000';} … … 1478 1506 1479 1507 if ((strstr($fokus,"debe"))||(strstr($fokus,"d_ty"))) { 1480 $href="<a href='kassekladde.php?x=$x&fokus=$fokus&kladde_id=$kladde_id&id=$id[$x]&bilag=$bilag[$x]&dato=$dato[$x]&beskrivelse=$beskrivelse[$x]&d_type=$d_type[$x]&debet=$kontonr &k_type=$k_type[$x]&kredit=$kredit[$x]&faktura=$faktura[$x]&belob=$belob[$x]&momsfri=$momsfri[$x]&afd=$afd[$x]&projekt=$projekt[$x]&ansat=$ansat[$x]&valuta=$valuta[$x]&lobenr=$lobenr[$x]' accesskey=$row[genvej]>";1508 $href="<a href='kassekladde.php?x=$x&fokus=$fokus&kladde_id=$kladde_id&id=$id[$x]&bilag=$bilag[$x]&dato=$dato[$x]&beskrivelse=$beskrivelse[$x]&d_type=$d_type[$x]&debet=$kontonr[$y]&k_type=$k_type[$x]&kredit=$kredit[$x]&faktura=$faktura[$x]&belob=$belob[$x]&momsfri=$momsfri[$x]&afd=$afd[$x]&projekt=$projekt[$x]&ansat=$ansat[$x]&valuta=$valuta[$x]&lobenr=$lobenr[$x]' accesskey=$genvej[$y]>"; 1481 1509 } 1482 1510 if ((strstr($fokus,"kred"))||(strstr($fokus,"k_ty"))) { 1483 $href="<a href='kassekladde.php?x=$x&fokus=$fokus&kladde_id=$kladde_id&id=$id[$x]&bilag=$bilag[$x]&dato=$dato[$x]&beskrivelse=$beskrivelse[$x]&d_type=$d_type[$x]&debet=$debet[$x]&k_type=$k_type[$x]&kredit=$kontonr &faktura=$faktura[$x]&belob=$belob[$x]&momsfri=$momsfri[$x]&afd=$afd[$x]&projekt=$projekt[$x]&ansat=$ansat[$x]&valuta=$valuta[$x]&lobenr=$lobenr[$x]' accesskey=$row[genvej]>";1484 } 1485 if ($ row['kontotype']=='H') print "<td colspan=4><b>$row[beskrivelse]</font></b></td>";1511 $href="<a href='kassekladde.php?x=$x&fokus=$fokus&kladde_id=$kladde_id&id=$id[$x]&bilag=$bilag[$x]&dato=$dato[$x]&beskrivelse=$beskrivelse[$x]&d_type=$d_type[$x]&debet=$debet[$x]&k_type=$k_type[$x]&kredit=$kontonr[$y]&faktura=$faktura[$x]&belob=$belob[$x]&momsfri=$momsfri[$x]&afd=$afd[$x]&projekt=$projekt[$x]&ansat=$ansat[$x]&valuta=$valuta[$x]&lobenr=$lobenr[$x]' accesskey=$genvej[$y]>"; 1512 } 1513 if ($kontotype[$y]=='H') print "<td colspan=4><b>$kontobeskrivelse[$y]</font></b></td>"; 1486 1514 else { 1487 print "<td><span title='Klik for at overføre kontonr til kassekladde'>$href $kontonr</font></a><span></td>";1488 print "<td><span title='Klik for at overføre kontonr til kassekladde'>$href $row[beskrivelse]</font></a><span></td>";1489 print "<td><span title='$spantekst'> $row[moms]</font></span></td>";1490 print "<td><span title='Klik for at overføre kontonr til kassekladde'>$href $row[genvej]</font></a><span></td>";1515 print "<td><span title='Klik for at overføre kontonr til kassekladde'>$href $kontonr[$y]</font></a><span></td>"; 1516 print "<td><span title='Klik for at overføre kontonr til kassekladde'>$href $kontobeskrivelse[$y]</font></a><span></td>"; 1517 print "<td><span title='$spantekst'>$momskode[$y]</font></span></td>"; 1518 print "<td><span title='Klik for at overføre kontonr til kassekladde'>$href $genvej[$y]</font></a><span></td>"; 1491 1519 } 1492 1520 print "</tr>\n"; … … 1494 1522 } 1495 1523 exit; 1496 } 1524 }# endfunc finansopslag 1497 1525 ###################################################################################################################################### 1498 1526 function afd_opslag($fokus,$x) … … 1766 1794 global $fejl; 1767 1795 global $db_type; 1796 global $submit; 1797 global $find; 1798 global $opslag_id; 1799 global $x; 1768 1800 1769 1801 if ($db_type == "mysql") $ilike ="like"; # <- 2009.05.12 … … 1820 1852 1821 1853 if (($d_type=="D")||($k_type=="D")||($d_type=="K")||($k_type=="K")) { 1822 $ x=0;1854 $z=0; 1823 1855 $y=0; 1824 1856 $query = db_select("select kontonr, art from adresser",__FILE__ . " linje " . __LINE__); 1825 1857 while ($row = db_fetch_array($query)) { 1826 1858 if (strstr($row['art'],"D")) { 1827 $ x++;1828 $debitornr[$ x]=trim($row['kontonr']);1859 $z++; 1860 $debitornr[$z]=trim($row['kontonr']); 1829 1861 } 1830 1862 if (strstr($row['art'],"K")){ … … 1847 1879 if (($d_type=="F")&&(strlen($debet)>1)&&(!is_numeric($debet))) { 1848 1880 $tmp=$debet."%"; 1881 $i=0; 1849 1882 $query = db_select("select kontonr from kontoplan where beskrivelse $ilike '$tmp' and regnskabsaar='$regnaar' and lukket != 'on' order by beskrivelse",__FILE__ . " linje " . __LINE__); 1850 if ($row = db_fetch_array($query)) $debet=$row['kontonr']; 1851 else { 1883 while ($row = db_fetch_array($query)) { 1884 $i++; 1885 $tmparray[$i]=$row['kontonr']; 1886 } 1887 if ($i==1) $debet=$row['kontonr']; 1888 elseif ($i>1) { 1889 $submit="Opslag"; 1890 $opslag_id=$x; 1891 $find="and beskrivelse ".$ilike." '".$tmp."'"; 1892 } else { 1852 1893 $tmp="%".$debet."%"; 1853 1894 $query = db_select("select kontonr from kontoplan where beskrivelse $ilike '$tmp' and regnskabsaar='$regnaar' and lukket != 'on' order by beskrivelse",__FILE__ . " linje " . __LINE__); … … 1863 1904 $tmp=$kredit."%"; 1864 1905 $query = db_select("select kontonr from kontoplan where beskrivelse $ilike '$tmp' and regnskabsaar='$regnaar' order by beskrivelse",__FILE__ . " linje " . __LINE__); 1865 if ($row = db_fetch_array($query)) $kredit=$row['kontonr']; 1866 else { 1906 while ($row = db_fetch_array($query)) { 1907 $i++; 1908 $tmparray[$i]=$row['kontonr']; 1909 } 1910 if ($i==1) $kredit=$row['kontonr']; 1911 elseif ($i>1) { 1912 $submit="Opslag"; 1913 $opslag_id=$x; 1914 $find="and beskrivelse ".$ilike." '".$tmp."'"; 1915 } else { 1867 1916 $tmp="%".$kredit."%"; 1868 1917 $query = db_select("select kontonr from kontoplan where beskrivelse $ilike '$tmp' and regnskabsaar='$regnaar' order by beskrivelse",__FILE__ . " linje " . __LINE__); … … 2218 2267 if (!$ompost_til) { 2219 2268 $x=0; 2220 print "<table border= 1;><tbody>";2269 print "<table border=\"1\"><tbody>"; 2221 2270 print "<tr><td colspan=3>".findtekst(158,$sprog_id)."</td></tr>"; 2222 2271 print "<tr><td>Kladde_id</td><td>Beskrivelse</td><td>Oprettet af</td></tr>"; … … 2273 2322 function sidste_5($kontonr,$art,$dk) { 2274 2323 global $kladde_id; 2324 2275 2325 if ($dk=="D") $txt = "select bilag,transdate,beskrivelse,debet as kontonr from kassekladde where k_type = '$art' and kredit = '$kontonr' and kladde_id != '$kladde_id' order by transdate desc"; 2276 else $txt = "select transdate,beskrivelse,kredit as kontonr from kassekladde where d_type = '$art' and debet = '$kontonr' and kladde_id != '$kladde_id' order by transdate desc";2326 else $txt = "select bilag,transdate,beskrivelse,kredit as kontonr from kassekladde where d_type = '$art' and debet = '$kontonr' and kladde_id != '$kladde_id' order by transdate desc"; 2277 2327 $retur="<table border=1><tbody>"; 2278 2328 if ($art == 'K') $retur.="<tr><td colspan=4>Sidste 5 posteringer for kreditor: $kontonr</td></tr>"; … … 2285 2335 if ($r['kontonr']) { 2286 2336 $x++; 2287 $retur.="<tr><td >".$r['bilag']."</td><td>".dkdato($r['transdate'])."</td><td>".$r['beskrivelse'].".</td><td>".$r['kontonr']."</td></tr>";2337 $retur.="<tr><td align=right>".$r['bilag']."</td><td>".dkdato($r['transdate'])."</td><td>".$r['beskrivelse'].".</td><td>".$r['kontonr']."</td></tr>"; 2288 2338 } 2289 2339 } -
trunk/includes/oioublfunk.php
r601 r603 1 1 <?php 2 // -------includes/oioublfunk.php-----patch 3.2. 0-----2011-05-30--------2 // -------includes/oioublfunk.php-----patch 3.2.7-----2012-02-03-------- 3 3 // LICENS 4 4 // … … 7 7 // som er udgivet af The Free Software Foundation; enten i version 2 8 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. 9 13 // 10 14 // Dette program er udgivet med haab om at det vil vaere til gavn, … … 15 19 // http://www.fundanemt.com/gpl_da.html 16 20 // 17 // Copyright (c) 2004-201 1DANOSOFT ApS21 // Copyright (c) 2004-2012 DANOSOFT ApS 18 22 // ---------------------------------------------------------------------- 19 23 … … 153 157 $l_retur.="<cbc:CustomizationID>OIOUBL-2.01</cbc:CustomizationID>\n"; 154 158 $l_retur.="<cbc:ProfileID schemeAgencyID=\"320\" schemeID=\"urn:oioubl:id:profileid-1.1\">Procurement-BilSim-1.0</cbc:ProfileID>\n"; 155 $l_retur.="<cbc:ID> $l_ordreid</cbc:ID>\n";159 $l_retur.="<cbc:ID>".$r_faktura['fakturanr']."</cbc:ID>\n"; 156 160 $l_retur.="<cbc:CopyIndicator>false</cbc:CopyIndicator>\n"; 157 161 $l_retur.="<cbc:IssueDate>".$r_faktura['ordredate']."</cbc:IssueDate>\n"; … … 161 165 $l_retur.="<cbc:AccountingCost>$kontonr</cbc:AccountingCost>\n"; 162 166 $l_retur.="<cac:OrderReference>\n"; 163 $l_retur.="<cbc:ID>$ l_ordreid</cbc:ID>\n";167 $l_retur.="<cbc:ID>$kundeordnr</cbc:ID>\n"; 164 168 $l_retur.="<cbc:SalesOrderID>$l_ordreid</cbc:SalesOrderID>\n"; 165 169 $l_retur.="<cbc:IssueDate>".$r_faktura['ordredate']."</cbc:IssueDate>\n"; … … 208 212 $l_retur.="<cac:PostalAddress>\n"; 209 213 $l_retur.="<cbc:AddressFormatCode listAgencyID=\"320\" listID=\"urn:oioubl:codelist:addressformatcode-1.1\">StructuredDK</cbc:AddressFormatCode>\n"; 210 $l_retur.="<cbc:StreetName>".oioubl_vej($addr_1, "vejnavn")."</cbc:StreetName>\n"; 211 $l_retur.="<cbc:BuildingNumber>".oioubl_vej($addr_1, "husnummer")."</cbc:BuildingNumber>\n"; 214 if (oioubl_vej($addr_1, "vejnavn")) $l_retur.="<cbc:StreetName>".oioubl_vej($addr_1, "vejnavn")."</cbc:StreetName>\n"; 215 elseif (oioubl_vej($addr_2, "vejnavn")) $l_retur.="<cbc:StreetName>".oioubl_vej($addr_2, "vejnavn")."</cbc:StreetName>\n"; 216 else $l_retur.="<cbc:StreetName>?</cbc:StreetName>\n"; 217 if (oioubl_vej($addr_1, "husnummer")) $l_retur.="<cbc:BuildingNumber>".oioubl_vej($addr_1, "husnummer")."</cbc:BuildingNumber>\n"; 218 # if (oioubl_vej($addr_2, "vejnavn")) $l_retur.="<cbc:AdditionalStreetName>".oioubl_vej($addr_2, "vejnavn")."</cbc:AdditionalStreetName>\n"; 219 elseif (!oioubl_vej($addr_1, "husnummer") && oioubl_vej($addr_2, "husnummer")) $l_retur.="<cbc:BuildingNumber>".oioubl_vej($addr_2, "husnummer")."</cbc:BuildingNumber>\n"; 220 else $l_retur.="<cbc:BuildingNumber>0</cbc:BuildingNumber>\n"; 212 221 $l_retur.="<cbc:CityName>".$bynavn."</cbc:CityName>\n"; 213 222 $l_retur.="<cbc:PostalZone>".$postnr."</cbc:PostalZone>\n"; … … 329 338 if ($varemomssats > $l_momssats) $varemomssats=$l_momssats; 330 339 if (!$varenr) $varenr='0'; #phr 20080803 331 $linjepris=afrund(($r_linje['antal']*$pris)-($r_linje['rabat']*($r_linje['antal']*$pris)/100),2); 340 $pris=afrund($pris-($r_linje['rabat']*$pris)/100,2); 341 $linjepris=afrund($r_linje['antal']*$pris,2); 332 342 $linjemoms=afrund($linjepris/100*$varemomssats,2); 333 343 … … 364 374 $l_retur.="</cac:Item>\n"; 365 375 $l_retur.="<cac:Price>\n"; 366 $l_retur.="<cbc:PriceAmount currencyID=\"$l_valutakode\">".sprintf("%01.2f", $ pris)."</cbc:PriceAmount>\n";376 $l_retur.="<cbc:PriceAmount currencyID=\"$l_valutakode\">".sprintf("%01.2f", $l_fortegn*$pris)."</cbc:PriceAmount>\n"; 367 377 $l_retur.="<cbc:BaseQuantity unitCode=\"ANN\">1</cbc:BaseQuantity>\n"; 368 378 $l_retur.="<cbc:OrderableUnitFactorRate>1</cbc:OrderableUnitFactorRate>\n"; -
trunk/includes/ordrefunc.php
r601 r603 1 1 <?php 2 //----------------- debitor/ordrefunc.php -----ver 3.2. 6---- 2011.11.29----------2 //----------------- debitor/ordrefunc.php -----ver 3.2.7---- 2012.02.05 ---------- 3 3 // LICENS 4 4 // … … 19 19 // http://www.fundanemt.com/gpl_da.html 20 20 // 21 // Copyright (c) 2003-201 1DANOSOFT ApS21 // Copyright (c) 2003-2012 DANOSOFT ApS 22 22 // ---------------------------------------------------------------------- 23 23 24 24 function levering($id,$hurtigfakt,$genfakt,$webservice) { 25 # echo "$id,$hurtigfakt,$genfakt,$webservice<br>";25 #cho "$id,$hurtigfakt,$genfakt,$webservice<br>"; 26 26 # Denne funktion kontrollerer levering of kalder funktioner som registrerer salget i tabellerne varer,batch_salg og ect batch_kob 27 27 … … 63 63 if ($hurtigfakt && $fakturadate && $fakturadate != $levdate) { 64 64 db_modify("update ordrer set levdate = fakturadate where id = $id",__FILE__ . " linje " . __LINE__); 65 #cho "update ordrer set levdate = fakturadate where id = $id<br>"; 66 # exit; 65 67 $levdate=$fakturadate; 66 68 } … … 80 82 $tmp=date("Y"); 81 83 if (!$hurtigfakt && $art!='PO' && !$webservice && !$genfakt && ($year<$tmp-10||$year>$tmp+10)) { 82 # echo "($art!='PO' && !$webservice && !$genfakt && ($y<$tmp-10||$y>$tmp+10))<br>";84 #cho "($art!='PO' && !$webservice && !$genfakt && ($y<$tmp-10||$y>$tmp+10))<br>"; 83 85 print "<BODY onLoad=\"javascript:alert('Tjek leveringsdato $levdate')\">"; 84 86 print "<meta http-equiv=\"refresh\" content=\"0;URL=ordre.php?id=$id\">"; … … 97 99 # $query = db_select("select * from ordrelinjer where ordre_id = '$id' and samlevare = 'on'",__FILE__ . " linje " . __LINE__); 98 100 # while ($row =db_fetch_array($query)){ 99 # echo "$x linje_id $row[id] kred_linje_id $row[kred_linje_id]<br>";101 #cho "$x linje_id $row[id] kred_linje_id $row[kred_linje_id]<br>"; 100 102 # if ($row['leveres']!=0) samlevare($id,$art,$row['id'], $row['vare_id'], $row['leveres']); 101 103 # } 102 # echo "select * from ordrelinjer where ordre_id = '$id'<br>";104 #cho "select * from ordrelinjer where ordre_id = '$id'<br>"; 103 105 $query = db_select("select * from ordrelinjer where ordre_id = '$id'",__FILE__ . " linje " . __LINE__); 104 106 while ($row =db_fetch_array($query)){ … … 107 109 $linje_id[$x]=$row['id']; 108 110 $kred_linje_id[$x]=$row['kred_linje_id']; 109 # echo "$x kred_linje_id $kred_linje_id[$x]<br>";111 #cho "$x kred_linje_id $kred_linje_id[$x]<br>"; 110 112 $vare_id[$x]=$row['vare_id']; 111 113 $varenr[$x]=$row['varenr']; … … 139 141 $sn_antal[$x]=0; 140 142 $query = db_select("select * from serienr where salgslinje_id = '$linje_id[$x]' and batch_salg_id=0",__FILE__ . " linje " . __LINE__); 141 while ($row =db_fetch_array($query)) {$sn_antal[$x]=$sn_antal[$x]+1; }143 while ($row =db_fetch_array($query)) $sn_antal[$x]++; 142 144 if ($leveres[$x]!=$sn_antal[$x]) { 143 145 print "<BODY onLoad=\"javascript:alert('Der er sat $leveres[$x] til levering men valgt $sn_antal[$x] serienumre (pos nr: $posnr[$x])')\">"; … … 148 150 if (($leveres[$x]<0)&&($serienr[$x])) { 149 151 $sn_antal[$x]=0; 150 $query = db_select("select * from serienr where salgslinje_id = $kred_linje_id[$x]*-1",__FILE__ . " linje " . __LINE__); 151 while ($row =db_fetch_array($query)) { 152 $sn_antal[$x]=$sn_antal[$x]+1; 152 if ($art=='KO') $q = db_select("select * from serienr where salgslinje_id = $kred_linje_id[$x]*-1",__FILE__ . " linje " . __LINE__); 153 else $q = db_select("select * from serienr where salgslinje_id <0 and vare_id=$vare_id[$x]",__FILE__ . " linje " . __LINE__); 154 while ($row =db_fetch_array($q)) { 155 db_modify("insert into serienr (vare_id,kobslinje_id,salgslinje_id,batch_kob_id,batch_salg_id,serienr) values ('$vare_id[$x]','$linje_id[$x]','0','0','0','$row[serienr]')",__FILE__ . " linje " . __LINE__); 156 db_modify("update serienr set salgslinje_id=abs(salgslinje_id) where id = '$row[id]'",__FILE__ . " linje " . __LINE__); 157 $sn_antal[$x]++; 153 158 } 154 159 if ($leveres[$x]+$sn_antal[$x]!=0){ … … 204 209 # Kaldes fra funktionen levering - 205 210 206 # echo "$id - $linje_id - $kred_linje_id<br>";211 #cho "$id - $linje_id - $kred_linje_id<br>"; 207 212 208 213 global $fp; … … 240 245 db_modify("update varer set beholdning=$beholdning where id='$vare_id'",__FILE__ . " linje " . __LINE__); 241 246 if ($variant_id) db_modify("update variant_varer set variant_beholdning=variant_beholdning-$antal where id='$variant_id'",__FILE__ . " linje " . __LINE__); 242 # echo "box9 $box9<br>";247 #cho "box9 $box9<br>"; 243 248 if ($box9=='on') { # #box 9 angiver om vare(gruppen) er underlagt batchkontrol 244 249 if ($antal<0) {krediter($id, $levdate, $beholdning, $vare_id, $antal*-1, $pris, $linje_id, $serienr, $kred_linje_id);} … … 254 259 # if ($box1 && $box2) bogfor_levering($id,$gruppe,$linje_id,$antal,$box1,$box2,$box3,$box4); 255 260 } 256 # echo "select box2 from grupper where art = 'DIV' and kodenr = '5'<br>";261 #cho "select box2 from grupper where art = 'DIV' and kodenr = '5'<br>"; 257 262 $r=db_fetch_array(db_select("select box2 from grupper where art = 'DIV' and kodenr = '5' ",__FILE__ . " linje " . __LINE__)); 258 263 if ($shopurl=trim($r['box2'])) { 259 264 $r=db_fetch_array(db_select("select beholdning,publiceret from varer where id = '$vare_id'",__FILE__ . " linje " . __LINE__)); 260 # echo "publiceret $r[publiceret]<br>";265 #cho "publiceret $r[publiceret]<br>"; 261 266 if ($r['publiceret']) { 262 267 $shop_beholdning=$r['beholdning']; 263 # echo "beholdning $shop_beholdning<br>";268 #cho "beholdning $shop_beholdning<br>"; 264 269 $r=db_fetch_array(db_select("select sum(ordrelinjer.antal-ordrelinjer.leveret) as antal from ordrer,ordrelinjer where ordrelinjer.vare_id = '$vare_id' and ordrelinjer.ordre_id = ordrer.id and (ordrer.art='DO' or ordrer.art='DK') and (ordrer.status='1' or ordrer.status='2') and ordrer.id!='$id'",__FILE__ . " linje " . __LINE__)); 265 270 $shop_beholdning-=$r['antal']; 266 # echo "select shop_id from shop_varer where saldi_id='$vare_id'<br>";271 #cho "select shop_id from shop_varer where saldi_id='$vare_id'<br>"; 267 272 $r=db_fetch_array($q=db_select("select shop_id from shop_varer where saldi_id='$vare_id'",__FILE__ . " linje " . __LINE__)); 268 273 $shop_id=$r['shop_id']; 269 # echo "shop id $shop_id<br>";274 #cho "shop id $shop_id<br>"; 270 275 $url=$shopurl."/opdat_beholdning.php?vare_id=$vare_id&shop_id=$shop_id&beholdning=$shop_beholdning"; 271 276 # print "<BODY onLoad=\"javascript:alert('Beholdning: $beholdning')\">"; … … 273 278 } 274 279 } 275 # echo "select box2 from grupper where art = 'DIV' and kodenr = '5'<br>";280 #cho "select box2 from grupper where art = 'DIV' and kodenr = '5'<br>"; 276 281 #exit; 277 282 } # endfunc linjeopdat … … 308 313 $logtime=date("H:i"); 309 314 310 # echo "insert into transaktioner (bilag, transdate, beskrivelse, kontonr, faktura, debet, kredit, kladde_id, afd, logdate, logtime, projekt, ansat, ordre_id) values ('0','$levdate','$beskrivelse','$konto1','--','0','$amount','0','$afd','$logdate','$logtime','$projekt','$ansat','$id')<br>";315 #cho "insert into transaktioner (bilag, transdate, beskrivelse, kontonr, faktura, debet, kredit, kladde_id, afd, logdate, logtime, projekt, ansat, ordre_id) values ('0','$levdate','$beskrivelse','$konto1','--','0','$amount','0','$afd','$logdate','$logtime','$projekt','$ansat','$id')<br>"; 311 316 db_modify("insert into transaktioner (bilag,transdate,beskrivelse,kontonr,faktura,debet,kredit,kladde_id,afd,logdate,logtime,projekt,ansat,ordre_id) values ('0','$levdate','$beskrivelse','$konto1','--','0','$amount','0','$afd','$logdate','$logtime','$projekt','$ansat','$id')",__FILE__ . " linje " . __LINE__); 312 # echo "insert into transaktioner (bilag, transdate, beskrivelse, kontonr, faktura, debet, kredit, kladde_id, afd, logdate, logtime, projekt, ansat, ordre_id) values ('0','$levdate','$beskrivelse','$konto2','--','$amount','0','0','$afd','$logdate','$logtime','$projekt','$ansat','$id')<br>";317 #cho "insert into transaktioner (bilag, transdate, beskrivelse, kontonr, faktura, debet, kredit, kladde_id, afd, logdate, logtime, projekt, ansat, ordre_id) values ('0','$levdate','$beskrivelse','$konto2','--','$amount','0','0','$afd','$logdate','$logtime','$projekt','$ansat','$id')<br>"; 313 318 db_modify("insert into transaktioner (bilag,transdate,beskrivelse,kontonr,faktura,debet,kredit,kladde_id,afd,logdate,logtime,projekt,ansat,ordre_id) values ('0','$levdate','$beskrivelse','$konto2','--','$amount','0','0','$afd','$logdate','$logtime','$projekt','$ansat','$id')",__FILE__ . " linje " . __LINE__); 314 319 } # endfunc bogfor_levering … … 376 381 if (!$kob_pris) {$kob_pris='0';} 377 382 $kob_rest=$kob_rest-$res_antal[$x]; 378 # echo "A update batch_kob set rest=$kob_rest where id=$batch_kob_id[$x]<br>";383 #cho "A update batch_kob set rest=$kob_rest where id=$batch_kob_id[$x]<br>"; 379 384 db_modify("update batch_kob set rest=$kob_rest where id=$batch_kob_id[$x]",__FILE__ . " linje " . __LINE__); 380 385 db_modify("insert into batch_salg(batch_kob_id, vare_id, linje_id, salgsdate, ordre_id, antal, lev_nr) values ($batch_kob_id[$x], $vare_id, $linje_id, '$levdate', $id, $res_antal[$x], '$lev_nr')",__FILE__ . " linje " . __LINE__); … … 661 666 list($vare_id, $stk_antal, $antal) = fuld_stykliste($v_id, '', 'basisvarer'); 662 667 for ($x=1; $x<=$antal; $x++) { 663 # echo "select * from varer where id='$vare_id[$x]'<br>";668 #cho "select * from varer where id='$vare_id[$x]'<br>"; 664 669 if ($r=db_fetch_array(db_select("select * from varer where id='$vare_id[$x]'",__FILE__ . " linje " . __LINE__))) { 665 670 $stk_antal[$x]=$stk_antal[$x]*$leveres; 666 # echo "insert into ordrelinjer (ordre_id, varenr, vare_id, beskrivelse, antal, leveres, pris, samlevare, posnr) values ('$id', '$r[varenr]', '$vare_id[$x]', '$r[beskrivelse]', '$stk_antal[$x]', '$stk_antal[$x]', '0', '$linje_id', '100' )<br>";671 #cho "insert into ordrelinjer (ordre_id, varenr, vare_id, beskrivelse, antal, leveres, pris, samlevare, posnr) values ('$id', '$r[varenr]', '$vare_id[$x]', '$r[beskrivelse]', '$stk_antal[$x]', '$stk_antal[$x]', '0', '$linje_id', '100' )<br>"; 667 672 db_modify("insert into ordrelinjer (ordre_id, varenr, vare_id, beskrivelse, antal, leveres, pris, samlevare, posnr) values ('$id', '$r[varenr]', '$vare_id[$x]', '$r[beskrivelse]', '$stk_antal[$x]', '$stk_antal[$x]', '0', '$linje_id', '100' )",__FILE__ . " linje " . __LINE__); 668 673 } 669 674 } 670 675 } else { 671 # echo "select antal,posnr from ordrelinjer where id='$linje_id'<br>";676 #cho "select antal,posnr from ordrelinjer where id='$linje_id'<br>"; 672 677 $r=db_fetch_array(db_select("select antal,posnr,kred_linje_id from ordrelinjer where id='$linje_id'",__FILE__ . " linje " . __LINE__)); 673 678 $antal=$r['antal']*1; 674 679 $posnr=$r['posnr']*1; 675 680 $kred_linje_id=$r['kred_linje_id']*1; 676 # echo "$antal select id,antal from ordrelinjer where id='$kred_linje_id'<br>";681 #cho "$antal select id,antal from ordrelinjer where id='$kred_linje_id'<br>"; 677 682 if ($antal && $r=db_fetch_array(db_select("select id,antal from ordrelinjer where id='$kred_linje_id'",__FILE__ . " linje " . __LINE__))) { 678 683 $org_antal=$r['antal']; 679 # echo "select * from ordrelinjer where samlevare='$r[id]'<br>";684 #cho "select * from ordrelinjer where samlevare='$r[id]'<br>"; 680 685 $q=db_select("select * from ordrelinjer where samlevare='$r[id]'",__FILE__ . " linje " . __LINE__); 681 686 while ($r=db_fetch_array($q)) { 682 687 $ny_antal=afrund($r['antal']*$org_antal/$antal,2); 683 # echo "insert into ordrelinjer (ordre_id, varenr, vare_id, beskrivelse, antal, leveres, pris, samlevare, posnr)688 #cho "insert into ordrelinjer (ordre_id, varenr, vare_id, beskrivelse, antal, leveres, pris, samlevare, posnr) 684 689 # values 685 690 # ('$id', '$r[varenr]', '$r[vare_id]', '$r[beskrivelse]', '$ny_antal', '$ny_antal', 0, $linje_id, '$r[posnr]' )<br>"; … … 798 803 } 799 804 } 800 if (db_fetch_array(db_select("select * from ordrelinjer where pris != '0' and m_rabat != '0' and rabat = '0' and ordre_id='$id'",__FILE__ . " linje " . __LINE__))){ 801 if ($r=db_fetch_array(db_select("select box2 from grupper where art = 'DIV' and kodenr='3'",__FILE__ . " linje " . __LINE__))) { 802 $rabatvareid=$r['box2']; 805 #cho "select * from ordrelinjer where pris != '0' and m_rabat != '0' and rabat = '0' and ordre_id='$id'<br>"; 806 if ($r=db_fetch_array(db_select("select * from ordrelinjer where pris != '0' and m_rabat != '0' and rabat = '0' and ordre_id='$id'",__FILE__ . " linje " . __LINE__))){ 807 #cho "$r[beskrivelse] -- $r[bogf_konto]<br>"; 808 $rabatkontonr=$r['bogf_konto']; 809 if ($r=db_fetch_array(db_select("select box2 from grupper where art = 'DIV' and kodenr='3'",__FILE__ . " linje " . __LINE__))) { 810 if ($rabatvareid=$r['box2']*1) { 803 811 $r=db_fetch_array(db_select("select varenr from varer where id = '$rabatvareid'",__FILE__ . " linje " . __LINE__)); 804 812 $rabatvarenr=$r['varenr']; 805 } else return("Der er ikke nogen varenummer for rabat"); 806 } 813 } # else $fejl="Manglende varenummer for rabat (Indstillinger -> Diverse -> Ordrerelaterede valg)"; 814 } # else $fejl="Manglende varenummer for rabat (Indstillinger -> Diverse -> Ordrerelaterede valg)"; 815 } 807 816 if (!$fejl) { 808 # echo "Transaktion begynder<br>";809 817 transaktion("begin"); 810 818 if ($art!="PO") { 811 819 $fakturanr=1; 812 $query = db_select("select fakturanr from ordrer where art = 'DO' or art = 'DK'",__FILE__ . " linje " . __LINE__);813 while ($row = db_fetch_array($query)){814 if ($fakturanr <= $row['fakturanr']) {$fakturanr = $row['fakturanr']+1;}815 }816 820 # select max kan ikke bruges da fakturanr felt ikke er numerisk; 821 $q = db_select("select fakturanr from ordrer where art = 'DO' or art = 'DK'",__FILE__ . " linje " . __LINE__); 822 while ($r = db_fetch_array($q)){ 823 if ($fakturanr <= $r['fakturanr']*1) $fakturanr = $r['fakturanr']+1; 824 } 817 825 $r=db_fetch_array(db_select("select box1 from grupper where art = 'RB' and kodenr='1'",__FILE__ . " linje " . __LINE__)); 818 826 if ($fakturanr<$r['box1']) $fakturanr=$r['box1']; 819 820 827 if ($fakturanr < 1) $fakturanr = 1; 821 828 $ny_id=array(); … … 839 846 ($linje_rabatart[$x]=='amount')?$beskrivelse=findtekst(466,$sprog_id):$beskrivelse=findtekst(467,$sprog_id); 840 847 $beskrivelse=str_replace('$rabatpct',$rabatpct,$beskrivelse); 841 db_modify("update ordrelinjer set posnr=posnr+0.1,varenr='$rabatvarenr',vare_id='$rabatvareid',pris='$pris',kostpris='0',m_rabat='0',beskrivelse='$beskrivelse',kdo='on' where id=$ny_id[$x]",__FILE__ . " linje " . __LINE__); 848 #cho "update ordrelinjer set posnr=posnr+0.1,varenr='$rabatvarenr',vare_id='$rabatvareid',pris='$pris',kostpris='0',m_rabat='0',beskrivelse='$beskrivelse',bogf_konto='$rabatkontonr',kdo='on' where id=$ny_id[$x]<br>"; 849 #exit; 850 db_modify("update ordrelinjer set posnr=posnr+0.1,varenr='$rabatvarenr',vare_id='$rabatvareid',pris='$pris',kostpris='0',m_rabat='0',beskrivelse='$beskrivelse',bogf_konto='$rabatkontonr',kdo='on' where id=$ny_id[$x]",__FILE__ . " linje " . __LINE__); 851 $r=db_fetch_array(db_select("select * from ordrelinjer where id='$ny_id[$x]'",__FILE__ . " linje " . __LINE__)); 852 #cho "$r[id],$r[ordre_id],$r[posnr],$r[varenr],$r[vare_id],$r[pris],$r[kostpris],$r[m_rabat],$r[beskrivelse],$r[bogf_konto]<br>--<br>"; 842 853 } 843 854 } else { … … 854 865 batch_kob($id, $art); 855 866 batch_salg($id); 856 # echo "update ordrer set status=3, fakturanr=$fakturanr, valutakurs=$valutakurs where id=$id<br>";867 #cho "update ordrer set status=3, fakturanr=$fakturanr, valutakurs=$valutakurs where id=$id<br>"; 857 868 db_modify("update ordrer set status=3, fakturanr=$fakturanr, valutakurs=$valutakurs where id=$id",__FILE__ . " linje " . __LINE__); 858 869 $r = db_fetch_array(db_select("select box5 from grupper where art='DIV' and kodenr='3'",__FILE__ . " linje " . __LINE__)); … … 867 878 return($svar); 868 879 exit; 869 } else transaktion("commit"); 870 } 880 } else { 881 transaktion("commit"); 882 } 883 } elseif (!$svar) $svar = $fejl; 871 884 return($svar); 872 885 } #endfunc bogfor … … 879 892 $antal_diff_moms=0; #indfort 2011.03.23 grundet momsafvigelse paa 3 ore i faktura 30283 regnskab 329 880 893 881 # echo "select momssats from ordrer where id = $id<br>";894 #cho "select momssats from ordrer where id = $id<br>"; 882 895 $r=db_fetch_array(db_select("select momssats from ordrer where id = $id",__FILE__ . " linje " . __LINE__)); 883 896 $momssats=$r['momssats']*1; 884 # echo "momssats=$momssats<br>";897 #cho "momssats=$momssats<br>"; 885 898 $q=db_select("select * from ordrelinjer where ordre_id = '$id'",__FILE__ . " linje " . __LINE__); 886 899 while ($r=db_fetch_array($q)) { 887 900 if ($r['rabatart']=='amount') $sum+=afrund(($r['pris']-$r['rabat'])*$r['antal'],2); 888 901 else $sum+=afrund(($r['pris']-($r['pris']/100*$r['rabat']))*$r['antal'],2); 889 # echo "vare id $r[vare_id] momsfri $r[momsfri]<br>";902 #cho "vare id $r[vare_id] momsfri $r[momsfri]<br>"; 890 903 if ($r['vare_id'] && $r['momsfri']!='on') { 891 #if ($r['momssats']) $varemomssats=$r['momssats'];892 #else $varemomssats=$momssats;893 $varemomssats=$momssats;894 # echo "$momssats momssats $varemomssats<br>";904 if ($r['momssats']) $varemomssats=$r['momssats']; 905 else $varemomssats=$momssats; 906 if ($varemomssats!=$momssats) $antal_diff_moms++; 907 #cho "$momssats momssats $varemomssats<br>"; 895 908 if ($r['rabatart']=='amount') $moms+=afrund(($r['pris']-$r['rabat'])*$r['antal']/100*$varemomssats,2); 896 909 else $moms+=afrund(($r['pris']-($r['pris']/100*$r['rabat']))*$r['antal']/100*$varemomssats,2); 897 910 } else if ($r['vare_id']) $antal_diff_moms++; 898 # echo "$sum<br>"; 899 } 900 # $moms=afrund($sum/100*$momssats,2); 901 #echo "$moms<br>"; 911 } 902 912 if (!$antal_diff_moms) $moms=afrund($sum/100*$momssats,2); 903 913 $sum*=1; $moms*=1; 904 #echo "update ordrer set sum=$sum, moms=$moms where id = '$id'<br>";905 #exit;906 914 db_modify("update ordrer set sum=$sum, moms=$moms where id = '$id'",__FILE__ . " linje " . __LINE__); 907 915 return("OK"); … … 971 979 if ($version < "3.0.6") $projekt=$projekt*1; 972 980 db_modify("update ordrelinjer set bogf_konto='$box4',projekt='$projekt' where id='$ordre_linje_id'",__FILE__ . " linje " . __LINE__); 973 # echo"Fifo $fifo<br>";981 #cho"Fifo $fifo<br>"; 974 982 if ($fifo && !$box9) { 975 983 $y=0; 976 984 $mangler=$antal[$x]; 977 985 $kostsum=0; 978 # echo "select * from batch_kob where rest>'0' and vare_id='$vare_id[$x]' order by fakturadate,id<br>";986 #cho "select * from batch_kob where rest>'0' and vare_id='$vare_id[$x]' order by fakturadate,id<br>"; 979 987 $q=db_select("select * from batch_kob where rest>'0' and vare_id='$vare_id[$x]' order by fakturadate,id",__FILE__ . " linje " . __LINE__); 980 988 while ($mangler && $r=db_fetch_array($q)) { … … 988 996 $rest=0; 989 997 } 990 # echo " update batch_kob set rest='$rest' where id='$r[id]'<br>";998 #cho " update batch_kob set rest='$rest' where id='$r[id]'<br>"; 991 999 db_modify("update batch_kob set rest='$rest' where id='$r[id]'",__FILE__ . " linje " . __LINE__); 992 1000 } … … 994 1002 $kostpris=$kostsum/$antal[$x]; 995 1003 $kostpris*=1; 996 # echo "update ordrelinjer set kostpris='$kostpris' where id='$ordre_linje_id'<br>";1004 #cho "update ordrelinjer set kostpris='$kostpris' where id='$ordre_linje_id'<br>"; 997 1005 db_modify("update ordrelinjer set kostpris='$kostpris' where id='$ordre_linje_id'",__FILE__ . " linje " . __LINE__); 998 1006 } … … 1079 1087 $row2 = db_fetch_array($query2); 1080 1088 $box1=trim($row2['box1']); $box2=trim($row2['box2']); $box3=trim($row2['box3']); $box4=trim($row2['box4']); $box8=trim($row2['box8']); $box9=trim($row2['box9']); 1081 # echo "B update ordrelinjer set bogf_konto=$box4 where id=$ordre_linje_id<br>";1089 #cho "B update ordrelinjer set bogf_konto=$box4 where id=$ordre_linje_id<br>"; 1082 1090 if ($bogf_konto) $box4=$bogf_konto; 1083 1091 db_modify("update ordrelinjer set bogf_konto=$box4 where id=$ordre_linje_id",__FILE__ . " linje " . __LINE__); … … 1114 1122 $fakturanr=$r['fakturanr']; 1115 1123 $ordrenr=$r['ordrenr']; 1116 # echo "$firmanavn | $ordrenr<br>";1124 #cho "$firmanavn | $ordrenr<br>"; 1117 1125 $valuta=$r['valuta']; 1118 1126 $kred_ord_id=$r['kred_ord_id']; … … 1184 1192 $d_kontrol=$d_kontrol+$debet; $k_kontrol=$k_kontrol+$kredit; 1185 1193 $sum=$sum-$modtaget2; 1186 echo "A1 insert into transaktioner (bilag, transdate, beskrivelse, kontonr, faktura, debet, kredit, kladde_id, afd, logdate, logtime, projekt, ansat, ordre_id) values ('0', '$transdate', '$beskrivelse', '$kortkonti[$x]', '$fakturanr', '$debet', '$kredit', '0', $afd, '$logdate', '$logtime', '$projekt[0]', '$ansat', '$id')<br>";1194 #cho "A1 insert into transaktioner (bilag, transdate, beskrivelse, kontonr, faktura, debet, kredit, kladde_id, afd, logdate, logtime, projekt, ansat, ordre_id) values ('0', '$transdate', '$beskrivelse', '$kortkonti[$x]', '$fakturanr', '$debet', '$kredit', '0', $afd, '$logdate', '$logtime', '$projekt[0]', '$ansat', '$id')<br>"; 1187 1195 db_modify("insert into transaktioner (bilag, transdate, beskrivelse, kontonr, faktura, debet, kredit, kladde_id, afd, logdate, logtime, projekt, ansat, ordre_id) values ('0', '$transdate', '$beskrivelse', '$kortkonti[$x]', '$fakturanr', '$debet', '$kredit', '0', $afd, '$logdate', '$logtime', '$projekt[0]', '$ansat', '$id')",__FILE__ . " linje " . __LINE__); 1188 1196 } … … 1196 1204 $debet=afrund($debet,2); 1197 1205 $kredit=afrund($kredit,2); 1198 # echo "C insert into transaktioner (bilag, transdate, beskrivelse, kontonr, faktura, debet, kredit, kladde_id, afd, logdate, logtime, projekt, ansat, ordre_id) values ('0', '$transdate', '$beskrivelse', '$kontonr', '$fakturanr', '$debet', '$kredit', '0', '0', '$logdate', '$logtime', '0', '0', '$id')<br>";1206 #cho "C insert into transaktioner (bilag, transdate, beskrivelse, kontonr, faktura, debet, kredit, kladde_id, afd, logdate, logtime, projekt, ansat, ordre_id) values ('0', '$transdate', '$beskrivelse', '$kontonr', '$fakturanr', '$debet', '$kredit', '0', '0', '$logdate', '$logtime', '0', '0', '$id')<br>"; 1199 1207 if ($debet || $kredit) db_modify("insert into transaktioner (bilag, transdate, beskrivelse, kontonr, faktura, debet, kredit, kladde_id, afd, logdate, logtime, projekt, ansat, ordre_id) values ('0', '$transdate', '$beskrivelse', '$kontonr', '$fakturanr', '$debet', '$kredit', '0', '0', '$logdate', '$logtime', '0', '0', '$id')",__FILE__ . " linje " . __LINE__); 1200 1208 db_modify("update ordrer set status=4, valutakurs=$valutakurs where id=$id",__FILE__ . " linje " . __LINE__); … … 1224 1232 $pre_finans=finanslager($regnaar); 1225 1233 $pre_lagerdiff=$pre_finans-$pre_stockvalue; 1226 echo "$pre_lagerdiff=$pre_finans-$pre_stockvalue<br>";1234 #cho "$pre_lagerdiff=$pre_finans-$pre_stockvalue<br>"; 1227 1235 } 1228 1236 */ … … 1254 1262 $idliste=explode(",",$id); 1255 1263 $antal=count($idliste); 1256 # echo " id er array<br>";1264 #cho " id er array<br>"; 1257 1265 $tmp="(id = '".$idliste[0]."'"; 1258 1266 for($x=1;$x<$antal;$x++) $tmp.=" or id = '".$idliste[$x]."'"; … … 1260 1268 } 1261 1269 $x=0;$moms=0;$sum=0;$modtaget=0;$modtaget2=0; 1262 # echo "select * from ordrer where $tmp<br>";1270 #cho "select * from ordrer where $tmp<br>"; 1263 1271 $q = db_select("select * from ordrer where $tmp",__FILE__ . " linje " . __LINE__); 1264 1272 while ($r = db_fetch_array($q)) { … … 1271 1279 $fakturanr=$r['fakturanr']; 1272 1280 $ordrenr=$r['ordrenr']; 1273 # echo "$firmanavn | $ordrenr<br>";1281 #cho "$firmanavn | $ordrenr<br>"; 1274 1282 $valuta=$r['valuta']; 1275 1283 $kred_ord_id=$r['kred_ord_id']; … … 1294 1302 # else {$moms=afrund($r['sum']*$r['momssats']/100,2);} 1295 1303 $sum+=$r['sum']+$r['moms']; 1296 # echo "sum $r[sum] + $moms = $sum<br>";1297 #exit;1298 1304 $ordreantal=$x; 1299 1305 $forfaldsdate=usdate(forfaldsdag($r['fakturadate'], $betalingsbet, $betalingsdage)); … … 1345 1351 (is_numeric($id))?$beskrivelse="Bon - ".$fakturanr:$beskrivelse="Kontantsalg kasse - ".$kasse; 1346 1352 } else $beskrivelse="Faktura - ".$fakturanr; 1347 # echo "KONTONR $kontonr<br>";1353 #cho "KONTONR $kontonr<br>"; 1348 1354 if ($kontonr) { 1349 1355 $tmp=$sum; … … 1357 1363 $r = db_fetch_array(db_select("select max(id) as id from openpost where konto_id = '$konto_id' and faktnr = '$fakturanr' and refnr='$id'",__FILE__ . " linje " . __LINE__)); 1358 1364 $openpost_id=$r['id']; 1359 # echo "select gruppe from adresser where id='$konto_id'<br>";1365 #cho "select gruppe from adresser where id='$konto_id'<br>"; 1360 1366 $r = db_fetch_array(db_select("select gruppe from adresser where id='$konto_id'",__FILE__ . " linje " . __LINE__)); 1361 # echo "select beskrivelse, box2 from grupper where art = 'DG' and kodenr='$r[gruppe]'<br>";1367 #cho "select beskrivelse, box2 from grupper where art = 'DG' and kodenr='$r[gruppe]'<br>"; 1362 1368 $r = db_fetch_array(db_select("select beskrivelse, box2 from grupper where art = 'DG' and kodenr='$r[gruppe]'",__FILE__ . " linje " . __LINE__)); 1363 1369 $kontonr=$r['box2']; # Kontonr aendres fra at vaere leverandoerkontonr til finanskontonr 1364 # echo "KTO $kontonr<br>";1370 #cho "KTO $kontonr<br>"; 1365 1371 $tekst="Kontonummer for Debitorgruppe `$r[beskrivelse]` er ikke gyldigt"; 1366 1372 if (!$kontonr && $webservice) return($tekst); … … 1374 1380 $kredit=afrund($kredit,2); 1375 1381 $d_kontrol=$d_kontrol+$debet; $k_kontrol=$k_kontrol+$kredit; 1376 echo "insert into transaktioner (bilag, transdate, beskrivelse, kontonr, faktura, debet, kredit, kladde_id, afd, logdate, logtime, projekt, ansat, ordre_id) values ('0', '$transdate', '$beskrivelse', '$kontonr', '$fakturanr', '$debet', '$kredit', '0', $afd, '$logdate', '$logtime', '$projekt[0]', '$ansat', '$id')<br>";1382 #cho "insert into transaktioner (bilag, transdate, beskrivelse, kontonr, faktura, debet, kredit, kladde_id, afd, logdate, logtime, projekt, ansat, ordre_id) values ('0', '$transdate', '$beskrivelse', '$kontonr', '$fakturanr', '$debet', '$kredit', '0', $afd, '$logdate', '$logtime', '$projekt[0]', '$ansat', '$id')<br>"; 1377 1383 db_modify("insert into transaktioner (bilag, transdate, beskrivelse, kontonr, faktura, debet, kredit, kladde_id, afd, logdate, logtime, projekt, ansat, ordre_id) values ('0', '$transdate', '$beskrivelse', '$kontonr', '$fakturanr', '$debet', '$kredit', '0', $afd, '$logdate', '$logtime', '$projekt[0]', '$ansat', '$id')",__FILE__ . " linje " . __LINE__); 1378 1384 */ 1379 1385 } 1380 # echo "KONTONR $kontonr<br>";1386 #cho "KONTONR $kontonr<br>"; 1381 1387 #exit; 1382 1388 if ($art=='PO' && $sum) { #saa er det en kontantordre (POS) … … 1400 1406 $kredit='0'; 1401 1407 $d_kontrol=$d_kontrol+$debet; $k_kontrol=$k_kontrol+$kredit; 1402 # echo "D $d_kontrol K $k_kontrol<br>";1408 #cho "D $d_kontrol K $k_kontrol<br>"; 1403 1409 $retur=$retur-$modtaget; 1404 1410 $sum=$sum-$modtaget; 1405 1411 if (is_numeric($id)) { 1406 # echo "A insert into transaktioner (bilag, transdate, beskrivelse, kontonr, faktura, debet, kredit, kladde_id, afd, logdate, logtime, projekt, ansat, ordre_id) values ('0', '$transdate', '$beskrivelse', '$kortkonti[$x]', '$fakturanr', '$debet', '$kredit', '0', $afd, '$logdate', '$logtime', '$projekt[0]', '$ansat', '$id')<br>";1412 #cho "A insert into transaktioner (bilag, transdate, beskrivelse, kontonr, faktura, debet, kredit, kladde_id, afd, logdate, logtime, projekt, ansat, ordre_id) values ('0', '$transdate', '$beskrivelse', '$kortkonti[$x]', '$fakturanr', '$debet', '$kredit', '0', $afd, '$logdate', '$logtime', '$projekt[0]', '$ansat', '$id')<br>"; 1407 1413 db_modify("insert into transaktioner (bilag, transdate, beskrivelse, kontonr, faktura, debet, kredit, kladde_id, afd, logdate, logtime, projekt, ansat, ordre_id) values ('0', '$transdate', '$beskrivelse', '$kortkonti[$x]', '$fakturanr', '$debet', '$kredit', '0', $afd, '$logdate', '$logtime', '$projekt[0]', '$ansat', '$id')",__FILE__ . " linje " . __LINE__); 1408 1414 } else { … … 1415 1421 $kredit='0'; 1416 1422 $d_kontrol=$d_kontrol+$debet; $k_kontrol=$k_kontrol+$kredit; 1417 # echo "D $d_kontrol K $k_kontrol<br>";1423 #cho "D $d_kontrol K $k_kontrol<br>"; 1418 1424 $sum=$sum-$modtaget2; 1419 1425 if (is_numeric($id)) { 1420 # echo "B insert into transaktioner (bilag, transdate, beskrivelse, kontonr, faktura, debet, kredit, kladde_id, afd, logdate, logtime, projekt, ansat, ordre_id) values ('0', '$transdate', '$beskrivelse', '$kortkonti[$x]', '$fakturanr', '$debet', '$kredit', '0', $afd, '$logdate', '$logtime', '$projekt[0]', '$ansat', '$id')<br>";1426 #cho "B insert into transaktioner (bilag, transdate, beskrivelse, kontonr, faktura, debet, kredit, kladde_id, afd, logdate, logtime, projekt, ansat, ordre_id) values ('0', '$transdate', '$beskrivelse', '$kortkonti[$x]', '$fakturanr', '$debet', '$kredit', '0', $afd, '$logdate', '$logtime', '$projekt[0]', '$ansat', '$id')<br>"; 1421 1427 db_modify("insert into transaktioner (bilag, transdate, beskrivelse, kontonr, faktura, debet, kredit, kladde_id, afd, logdate, logtime, projekt, ansat, ordre_id) values ('0', '$transdate', '$beskrivelse', '$kortkonti[$x]', '$fakturanr', '$debet', '$kredit', '0', $afd, '$logdate', '$logtime', '$projekt[0]', '$ansat', '$id')",__FILE__ . " linje " . __LINE__); 1422 1428 } else { 1423 # echo "B2 insert into transaktioner (bilag, transdate, beskrivelse, kontonr, faktura, debet, kredit, kladde_id, afd, logdate, logtime, projekt, ansat, ordre_id) values ('0', '$transdate', '$beskrivelse', '$kortkonti[$x]', '0', '$debet', '$kredit', '0', $afd, '$logdate', '$logtime', '$projekt[0]', '$ansat', '0')<br>";1429 #cho "B2 insert into transaktioner (bilag, transdate, beskrivelse, kontonr, faktura, debet, kredit, kladde_id, afd, logdate, logtime, projekt, ansat, ordre_id) values ('0', '$transdate', '$beskrivelse', '$kortkonti[$x]', '0', '$debet', '$kredit', '0', $afd, '$logdate', '$logtime', '$projekt[0]', '$ansat', '0')<br>"; 1424 1430 db_modify("insert into transaktioner (bilag, transdate, beskrivelse, kontonr, faktura, debet, kredit, kladde_id, afd, logdate, logtime, projekt, ansat, ordre_id) values ('0', '$transdate', '$beskrivelse', '$kortkonti[$x]', '0', '$debet', '$kredit', '0', $afd, '$logdate', '$logtime', '$projekt[0]', '$ansat', '0')",__FILE__ . " linje " . __LINE__); 1425 1431 } … … 1435 1441 if ($valutakurs) {$kredit=afrund($kredit*$valutakurs/100,3);$debet=afrund($debet*$valutakurs/100,3);} # Omregning til DKR. 1436 1442 $d_kontrol=$d_kontrol+$debet; $k_kontrol=$k_kontrol+$kredit; 1437 # echo "D $d_kontrol K $k_kontrol<br>";1443 #cho "D $d_kontrol K $k_kontrol<br>"; 1438 1444 $debet=afrund($debet,2); 1439 1445 $kredit=afrund($kredit,2); 1440 1446 if (is_numeric($id)) { 1441 # echo "C insert into transaktioner (bilag, transdate, beskrivelse, kontonr, faktura, debet, kredit, kladde_id, afd, logdate, logtime, projekt, ansat, ordre_id) values ('0', '$transdate', '$beskrivelse', '$kontonr', '$fakturanr', '$debet', '$kredit', '0', $afd, '$logdate', '$logtime', '$projekt[0]', '$ansat', '$id')<br>";1447 #cho "C insert into transaktioner (bilag, transdate, beskrivelse, kontonr, faktura, debet, kredit, kladde_id, afd, logdate, logtime, projekt, ansat, ordre_id) values ('0', '$transdate', '$beskrivelse', '$kontonr', '$fakturanr', '$debet', '$kredit', '0', $afd, '$logdate', '$logtime', '$projekt[0]', '$ansat', '$id')<br>"; 1442 1448 db_modify("insert into transaktioner (bilag, transdate, beskrivelse, kontonr, faktura, debet, kredit, kladde_id, afd, logdate, logtime, projekt, ansat, ordre_id) values ('0', '$transdate', '$beskrivelse', '$kontonr', '$fakturanr', '$debet', '$kredit', '0', $afd, '$logdate', '$logtime', '$projekt[0]', '$ansat', '$id')",__FILE__ . " linje " . __LINE__); 1443 1449 } else { … … 1458 1464 $tmp.=")"; 1459 1465 } 1460 # echo "select distinct(projekt) from ordrelinjer where $tmp and vare_id >'0'<br>";1466 #cho "select distinct(projekt) from ordrelinjer where $tmp and vare_id >'0'<br>"; 1461 1467 $q = db_select("select distinct(projekt) from ordrelinjer where $tmp and vare_id >'0'",__FILE__ . " linje " . __LINE__); 1462 1468 while ($r = db_fetch_array($q)) { … … 1464 1470 $p++; 1465 1471 $projekt[$p]=trim($r['projekt']); 1466 # echo "$p P >$projekt[$p]<<br>";1472 #cho "$p P >$projekt[$p]<<br>"; 1467 1473 ($projektliste)?$projektliste.="<br>".$projekt[$p]:$projektliste=$projekt[$p]; 1468 1474 } 1469 1475 } 1470 1476 ($p)?$projektantal=$p:$projektantal=1; 1471 # echo "update openpost set projekt='$projektliste' where id='$openpost_id'<br>";1472 #if ($projektliste) # echon "update openpost set projekt='$projektliste' where id='$openpost_id'<br>";1477 #cho "update openpost set projekt='$projektliste' where id='$openpost_id'<br>"; 1478 #if ($projektliste) #chon "update openpost set projekt='$projektliste' where id='$openpost_id'<br>"; 1473 1479 if ($projektliste) db_modify("update openpost set projekt='$projektliste' where id='$openpost_id'",__FILE__ . " linje " . __LINE__); 1474 1480 … … 1477 1483 for ($t=1;$t<=2;$t++) { 1478 1484 for ($p=1;$p<=$projektantal;$p++) { 1479 # echo "projektantal $projektantal<br>";1485 #cho "projektantal $projektantal<br>"; 1480 1486 $y=0; 1481 1487 $tjek= array(); … … 1490 1496 } 1491 1497 if ($t==1) { 1492 # echo "t=$t select * from ordrelinjer where $tmp and projekt='$projekt[$p]' and posnr>='0' order by bogf_konto<br>";1498 #cho "t=$t select * from ordrelinjer where $tmp and projekt='$projekt[$p]' and posnr>='0' order by bogf_konto<br>"; 1493 1499 $q = db_select("select * from ordrelinjer where $tmp and projekt='$projekt[$p]' and posnr>='0' order by bogf_konto",__FILE__ . " linje " . __LINE__); 1494 1500 } else { 1495 # echo "t=$t select * from ordrelinjer where $tmp and projekt='$projekt[$p]' and posnr<'0' order by +bogf_konto<br>";1496 $q = db_select("select * from ordrelinjer where $tmp and projekt='$projekt[$p]' and posnr<'0' order by +bogf_konto",__FILE__ . " linje " . __LINE__);1501 #cho "t=$t select * from ordrelinjer where $tmp and projekt='$projekt[$p]' and posnr<'0' order by bogf_konto<br>"; 1502 $q = db_select("select * from ordrelinjer where $tmp and projekt='$projekt[$p]' and posnr<'0' order by bogf_konto",__FILE__ . " linje " . __LINE__); 1497 1503 } 1498 1504 while ($r = db_fetch_array($q)) { 1499 # echo "Q $r[pris]<br>"; 1505 #cho "$r[id],$r[ordre_id],$r[posnr],$r[varenr],$r[vare_id],$r[pris],$r[kostpris],$r[m_rabat],$r[beskrivelse],$r[bogf_konto]--<br>"; 1506 #cho "+++++++++++ Y $y >$r[bogf_konto]<, $bogf_konto[$y]<br>"; 1507 #cho "Q $r[pris]<br>"; 1500 1508 if ($valutakurs) $maxdif=$maxdif+2; #Og yderligere 2 pr ordrelinje. 1501 1509 $tmp=$projekt[$p].":".$r['bogf_konto']; 1502 1510 if (!in_array($r['bogf_konto'], $bogf_konto)) { 1511 1512 #cho "---------------- Y $y >$r[bogf_konto]<, $bogf_konto[$y]<br>"; 1503 1513 $y++; 1504 # echo "$y Linje_id $r[id]<br>";1514 #cho "$y Linje_id $r[id]<br>"; 1505 1515 $bogf_konto[$y]=$r['bogf_konto']; 1506 # echo "0 pris y $y $r[pris]<br>";1516 #cho "0 pris y $y $r[pris]<br>"; 1507 1517 if ($r['rabatart']=='amount') { 1508 # echo "$r[pris]*$r[antal]-($r[rabat]*$r[antal])<br>";1518 #cho "$r[pris]*$r[antal]-($r[rabat]*$r[antal])<br>"; 1509 1519 $pris[$y]=$r['pris']*$r['antal']-($r['rabat']*$r['antal']); 1510 # echon"Bogf $bogf_konto[$y]<br>";1511 # echo "1 pris y $y $pris[$y]<br>";1520 #cho "Bogf $bogf_konto[$y]<br>"; 1521 #cho "1 pris y $y $pris[$y]<br>"; 1512 1522 } else { 1513 1523 $pris[$y]=$r['pris']*$r['antal']-($r['pris']*$r['antal']*$r['rabat']/100); 1514 # echo "$r[pris]*$r[antal]-($r[pris]*$r[antal]*$r[rabat]/100)<br>";1524 #cho "$r[pris]*$r[antal]-($r[pris]*$r[antal]*$r[rabat]/100)<br>"; 1515 1525 $pris[$y]=afrund($pris[$y],2); #Afrunding tilfoejet 2009.01.26 grundet diff i ordre 98 i saldi_104 -- 2011.02.07 ændret til 2 decimaler ordre_id 1325 saldi_329 1516 1526 } 1517 # echo "2 pris y $pris[$y]<br>";1527 #cho "2 pris y $pris[$y]<br>"; 1518 1528 } else { 1519 1529 for ($a=1; $a<=$y; $a++) { … … 1525 1535 } 1526 1536 $pris[$a]=afrund($pris[$a],2); #Afrunding tilfoejet 2009.01.26 grundet diff i ordre 98 i saldi_104 -- 2011.02.07 ændret til 2 decimaler ordre_id 1325 saldi_329 1527 # echo "pris A $pris[$a]<br>";1537 #cho "pris A $pris[$a]<br>"; 1528 1538 } 1529 1539 } … … 1531 1541 } 1532 1542 $ordrelinjer=$y; 1543 #cho "ordrelinjer $ordrelinjer<br>"; 1533 1544 if ($indbetaling) $ordrelinjer=0; 1534 #echon "ol $ordrelinjer<br>";1535 1545 for ($y=1;$y<=$ordrelinjer;$y++) { 1546 #cho "Bogf_konto $bogf_konto[$y]<br>"; 1536 1547 if ($bogf_konto[$y] && $pris[$y]) { 1537 1548 if ($pris[$y]>0) {$kredit=$pris[$y];$debet=0;} … … 1540 1551 $kredit=afrund($kredit,3);$debet=afrund($debet,3); 1541 1552 $d_kontrol=$d_kontrol+$debet; $k_kontrol=$k_kontrol+$kredit; 1542 # echo "D $d_kontrol K $k_kontrol<br>";1543 1553 $debet=afrund($debet,2); 1544 1554 $kredit=afrund($kredit,2); 1545 1555 if (is_numeric($id)) { 1546 # echo "Dinsert into transaktioner (bilag, transdate, beskrivelse, kontonr, faktura, debet, kredit, kladde_id, afd, logdate, logtime, projekt, ansat, ordre_id) values ('0', '$transdate', '$beskrivelse', '$bogf_konto[$y]', '$fakturanr', '$debet', '$kredit', '0','$afd', '$logdate', '$logtime', '$projekt[$p]', '$ansat', '$id')<br>";1556 #cho "insert into transaktioner (bilag, transdate, beskrivelse, kontonr, faktura, debet, kredit, kladde_id, afd, logdate, logtime, projekt, ansat, ordre_id) values ('0', '$transdate', '$beskrivelse', '$bogf_konto[$y]', '$fakturanr', '$debet', '$kredit', '0','$afd', '$logdate', '$logtime', '$projekt[$p]', '$ansat', '$id')<br>"; 1547 1557 db_modify("insert into transaktioner (bilag, transdate, beskrivelse, kontonr, faktura, debet, kredit, kladde_id, afd, logdate, logtime, projekt, ansat, ordre_id) values ('0', '$transdate', '$beskrivelse', '$bogf_konto[$y]', '$fakturanr', '$debet', '$kredit', '0','$afd', '$logdate', '$logtime', '$projekt[$p]', '$ansat', '$id')",__FILE__ . " linje " . __LINE__); 1548 1558 } else { 1559 #cho "insert into transaktioner (bilag, transdate, beskrivelse, kontonr, faktura, debet, kredit, kladde_id, afd, logdate, logtime, projekt, ansat, ordre_id) values ('0', '$transdate', '$beskrivelse', '$bogf_konto[$y]', '0', '$debet', '$kredit', '0','$afd', '$logdate', '$logtime', '$projekt[$p]', '$ansat', '0')<br>"; 1549 1560 db_modify("insert into transaktioner (bilag, transdate, beskrivelse, kontonr, faktura, debet, kredit, kladde_id, afd, logdate, logtime, projekt, ansat, ordre_id) values ('0', '$transdate', '$beskrivelse', '$bogf_konto[$y]', '0', '$debet', '$kredit', '0','$afd', '$logdate', '$logtime', '$projekt[$p]', '$ansat', '0')",__FILE__ . " linje " . __LINE__); 1550 1561 } 1551 1562 $tmp=$debet-$kredit; 1552 1563 db_modify("update kontoplan set saldo=saldo+'$tmp' where kontonr='$bogf_konto[$y]' and regnskabsaar='$regnaar'",__FILE__ . " linje " . __LINE__); 1564 } elseif ($pris[$y]) { 1565 $svar="Fejl i kontoopsætning"; 1566 if (!$webservice) print "<BODY onLoad=\"javascript:alert('$svar')\">"; 1567 else return("$svar"); 1568 exit; 1553 1569 } 1554 1570 } 1555 1571 } 1556 1572 } 1573 #exit; 1557 1574 if ($momskode) { 1558 1575 $query = db_select("select box1 from grupper where art='SM' and kodenr='$momskode'",__FILE__ . " linje " . __LINE__); … … 1564 1581 $kredit=afrund($kredit,3);$debet=afrund($debet,3); 1565 1582 $d_kontrol=$d_kontrol+$debet; $k_kontrol=$k_kontrol+$kredit; 1566 # echo "D $d_kontrol K $k_kontrol<br>";1567 1583 $diff=afrund($d_kontrol-$k_kontrol,3); 1568 1584 $absdiff=abs($diff); … … 1575 1591 $k_kontrol=$k_kontrol+$diff; 1576 1592 } 1577 # echo "D $d_kontrol K $k_kontrol<br>"; 1578 } 1579 #echon "moms $moms<br>"; 1593 } 1580 1594 $moms=afrund($moms,2); 1581 #if ($moms) echo "D insert into transaktioner (bilag, transdate, beskrivelse, kontonr, faktura, debet, kredit, kladde_id, afd, logdate, logtime, projekt, ansat, ordre_id) values ('0', '$transdate', '$beskrivelse', '$box1', '$fakturanr', '$debet', '$kredit', '0', '$afd', '$logdate', '$logtime', '$projekt[0]', '$ansat', '$id')<br>";1582 1595 if ($moms) { 1583 1596 if (is_numeric($id)) { 1584 # echo "E insert into transaktioner (bilag, transdate, beskrivelse, kontonr, faktura, debet, kredit, kladde_id, afd, logdate, logtime, projekt, ansat, ordre_id) values ('0', '$transdate', '$beskrivelse', '$box1', '$fakturanr', '$debet', '$kredit', '0', '$afd', '$logdate', '$logtime', '$projekt[0]', '$ansat', '$id')<br>";1585 1597 db_modify("insert into transaktioner (bilag, transdate, beskrivelse, kontonr, faktura, debet, kredit, kladde_id, afd, logdate, logtime, projekt, ansat, ordre_id) values ('0', '$transdate', '$beskrivelse', '$box1', '$fakturanr', '$debet', '$kredit', '0', '$afd', '$logdate', '$logtime', '$projekt[0]', '$ansat', '$id')",__FILE__ . " linje " . __LINE__); 1586 1598 } else { … … 1591 1603 } 1592 1604 $valutakurs=$valutakurs*1; 1593 #echon "update ordrer set status=4, valutakurs=$valutakurs where id=$id<br>";1594 1605 } 1595 1606 if (is_numeric($id)) $tmp="id = '".$id."'"; … … 1601 1612 $tmp.=")"; 1602 1613 } 1603 #echon "update ordrer set status=4, valutakurs=$valutakurs where $tmp<br>";1604 1614 db_modify("update ordrer set status=4, valutakurs=$valutakurs where $tmp",__FILE__ . " linje " . __LINE__); 1605 1615 if (is_numeric($id)) $tmp="ordre_id = '".$id."'"; … … 1612 1622 } 1613 1623 db_modify("delete from ordrelinjer where $tmp and posnr < 0",__FILE__ . " linje " . __LINE__); 1614 # }1615 1624 $d_kontrol=afrund($d_kontrol,2); 1616 1625 $k_kontrol=afrund($k_kontrol,2); 1617 # echo "D $d_kontrol K $k_kontrol<br>"; 1626 1627 #cho "D $d_kontrol K $k_kontrol<br>"; 1628 1618 1629 if ($diff=afrund($d_kontrol-$k_kontrol,2)) { 1619 1630 $debet=0; $kredit=0; … … 1629 1640 } 1630 1641 if (is_numeric($id)) { 1631 # echo "F insert into transaktioner (bilag, transdate, beskrivelse, kontonr, faktura, debet, kredit, kladde_id, afd, logdate, logtime, projekt, ansat, ordre_id) values ('0', '$transdate', '$beskrivelse', '$difkto', '$fakturanr', '$debet', '$kredit', '0', '$afd', '$logdate', '$logtime', '$projekt[0]', '$ansat', '$id')<br>";1632 1642 db_modify("insert into transaktioner (bilag, transdate, beskrivelse, kontonr, faktura, debet, kredit, kladde_id, afd, logdate, logtime, projekt, ansat, ordre_id) values ('0', '$transdate', '$beskrivelse', '$difkto', '$fakturanr', '$debet', '$kredit', '0', '$afd', '$logdate', '$logtime', '$projekt[0]', '$ansat', '$id')",__FILE__ . " linje " . __LINE__); 1633 1643 } else { … … 1646 1656 if ($r['id']) { 1647 1657 if (is_numeric($id)) { 1648 # echo "G insert into transaktioner (bilag, transdate, beskrivelse, kontonr, faktura, debet, kredit, kladde_id, afd, logdate, logtime, projekt, ansat, ordre_id) values ('0', '$transdate', '$beskrivelse', '$oredifkto', '$fakturanr', '$debet', '$kredit', '0', '$afd', '$logdate', '$logtime', '$projekt[0]', '$ansat', '$id')<br>";1649 1658 db_modify("insert into transaktioner (bilag, transdate, beskrivelse, kontonr, faktura, debet, kredit, kladde_id, afd, logdate, logtime, projekt, ansat, ordre_id) values ('0', '$transdate', '$beskrivelse', '$oredifkto', '$fakturanr', '$debet', '$kredit', '0', '$afd', '$logdate', '$logtime', '$projekt[0]', '$ansat', '$id')",__FILE__ . " linje " . __LINE__); 1650 1659 } else { … … 1653 1662 $tmp=$debet-$kredit; 1654 1663 db_modify("update kontoplan set saldo=saldo+'$tmp' where kontonr='$oredifkto' and regnskabsaar='$regnaar'",__FILE__ . " linje " . __LINE__); 1655 1656 1664 } else { 1657 1665 if ($webservice) return ('Manglende kontonummer til øredifferencer - Se indstillinger -> diverse -> ørediff'); … … 1659 1667 } 1660 1668 } else { 1661 # echo "D $d_kontrol K $k_kontrol<br>";1669 $svar="Der er konstateret en uoverensstemmelse i posteringssummen, ordre $ordrenr, kontakt DANOSOFT på telefon 4690 2208' debet $debet != kredit $kredit"; 1662 1670 $message=$db." | Uoverensstemmelse i posteringssum: ordre_id=$id, d=$d_kontrol, k=$k_kontrol | ".__FILE__ . " linje " . __LINE__." | ".$brugernavn." ".date("Y-m-d H:i:s"); 1663 1671 $headers = 'From: fejl@saldi.dk'."\r\n".'Reply-To: fejl@saldi.dk'."\r\n".'X-Mailer: PHP/' . phpversion(); 1664 1672 mail('fejl@saldi.dk', 'SALDI Fejl', $message, $headers); 1665 if (!$webservice) print "<BODY onLoad=\"javascript:alert('Der er konstateret en uoverensstemmelse i posteringssummen, ordre $ordrenr, kontakt DANOSOFT på telefon 4690 2208')\">"; 1666 else return("Der er konstateret en uoverensstemmelse i posteringssummen, ordre $ordrenr, kontakt DANOSOFT på telefon 4690 2208' debet $debet != kredit $kredit"); 1667 # print "<meta http-equiv=\"refresh\" content=\"0;URL=ordre.php?id=$id\">"; 1673 if (!$webservice) print "<BODY onLoad=\"javascript:alert('$svar')\">"; 1674 else return("$svar"); 1668 1675 exit; 1669 1676 } 1670 1677 } 1671 # exit;1672 1678 if ($title != "Massefakturering" && !$webservice && $art !='PO') genberegn($regnaar); 1673 1679 /* … … 1676 1682 $post_finans=finanslager($regnaar); 1677 1683 $post_lagerdiff=$post_finans-$post_stockvalue; 1678 echo "$post_lagerdiff=$post_finans-$post_stockvalue<br>";1684 #cho "$post_lagerdiff=$post_finans-$post_stockvalue<br>"; 1679 1685 if (abs($pre_lagerdiff-$post_lagerdiff)>1) print "<BODY onLoad=\"javascript:alert('Lagerdiff ændret -Før $pre_lagerdiff Efter $post_lagerdiff')\">"; 1680 1686 } … … 1685 1691 function kontoopslag($art,$sort,$fokus,$id,$kontonr,$firmanavn,$addr1,$addr2,$postnr,$bynavn,$kontakt) 1686 1692 { 1687 # echo "$art,$sort,$fokus,$id,$kontonr,$firmanavn,$addr1,$addr2,$postnr,$bynavn,$kontakt<br>";1688 # echo "fokus=$fokus<br>";1693 #cho "$art,$sort,$fokus,$id,$kontonr,$firmanavn,$addr1,$addr2,$postnr,$bynavn,$kontakt<br>"; 1694 #cho "fokus=$fokus<br>"; 1689 1695 if ($fokus=='kontonr') $find=$kontonr; 1690 1696 if (strstr($fokus,'lev')) $find=$firmanavn; … … 1735 1741 if (!$sort) {$sort = "firmanavn";} 1736 1742 (strstr($fokus,'lev_'))?$soeg='firmanavn':$soeg=$fokus; 1737 # echo "select id, kontonr, firmanavn, addr1, addr2, postnr, bynavn, land, kontakt, tlf from adresser where art = 'D' and upper($soeg) like upper('$find') and lukket != 'on' order by $sort<br>";1743 #cho "select id, kontonr, firmanavn, addr1, addr2, postnr, bynavn, land, kontakt, tlf from adresser where art = 'D' and upper($soeg) like upper('$find') and lukket != 'on' order by $sort<br>"; 1738 1744 if ($find) $query = db_select("select id, kontonr, firmanavn, addr1, addr2, postnr, bynavn, land, kontakt, tlf from adresser where art = 'D' and upper($soeg) like upper('$find') and lukket != 'on' order by $sort",__FILE__ . " linje " . __LINE__); 1739 1745 else $query = db_select("select id, kontonr, firmanavn, addr1, addr2, postnr, bynavn, land, kontakt, tlf from adresser where art = 'D' and lukket != 'on' order by $sort",__FILE__ . " linje " . __LINE__); … … 1813 1819 ###################################################################################################################################### 1814 1820 function opret_ordrelinje($id,$varenr,$antal,$beskrivelse,$pris,$rabat_ny,$art,$momsfri,$posnr,$linje_id,$incl_moms,$kdo,$rabatart,$kopi) { 1815 # echo "$id,$varenr,$antal,$beskrivelse,$pris,$rabat_ny,$art,$momsfri,$posnr,$linje_id,$incl_moms,$kdo,$rabatart,$kopi<br>";1821 #cho "$id,$varenr,$antal,$beskrivelse,$pris,$rabat_ny,$art,$momsfri,$posnr,$linje_id,$incl_moms,$kdo,$rabatart,$kopi<br>"; 1816 1822 #exit; 1817 1823 … … 1879 1885 if ($r=db_fetch_array(db_select("$string",__FILE__ . " linje " . __LINE__))) { 1880 1886 $vare_id=$r['id']; 1881 # echo "ID $vare_id<br>";1887 #cho "ID $vare_id<br>"; 1882 1888 $varenr=addslashes($r['varenr']); 1883 1889 $enhed=addslashes($r['enhed']); … … 1952 1958 $antal=$r['antal']+$antal; 1953 1959 if ($antaldiff && $r['id']) { 1954 # echo "update ordrelinjer set m_rabat='0', antal='$antal' where id = '$r[id]'<br>";1960 #cho "update ordrelinjer set m_rabat='0', antal='$antal' where id = '$r[id]'<br>"; 1955 1961 db_modify("update ordrelinjer set m_rabat='0', antal=antal+$antaldiff where id = '$r[id]'",__FILE__ . " linje " . __LINE__); 1956 1962 if ($samlevare == 'on') db_modify("update ordrelinjer set antal=antal/$r[antal]*$antal where samlevare = '$linje_id'",__FILE__ . " linje " . __LINE__); 1957 # echo "1880 select sum(antal) as antal from ordrelinjer where vare_id='$vare_id' and pris='$pris' and rabat='0' and ordre_id='$id'<br>";1963 #cho "1880 select sum(antal) as antal from ordrelinjer where vare_id='$vare_id' and pris='$pris' and rabat='0' and ordre_id='$id'<br>"; 1958 1964 $r2=db_fetch_array(db_select("select sum(antal) as antal from ordrelinjer where vare_id='$vare_id' and pris='$pris' and rabat='0' and ordre_id='$id'",__FILE__ . " linje " . __LINE__)); 1959 1965 $tmpantal=$r2['antal']; 1960 # echo "$m_antal && $tmpantal >= $m_antal<br>";1966 #cho "$m_antal && $tmpantal >= $m_antal<br>"; 1961 1967 if ($m_antal && $tmpantal >= $m_antal) { 1962 # echo "m_rabat($r[id],$vare_id,$r[posnr],$tmpantal,$id)<br>";1968 #cho "m_rabat($r[id],$vare_id,$r[posnr],$tmpantal,$id)<br>"; 1963 1969 m_rabat($r['id'],$vare_id,$r['posnr'],$tmpantal,$id); 1964 1970 } else { 1965 # echo "update ordrelinjer set m_rabat='0' where ordre_id = '$id' and vare_id = '$vare_id'<br>";1971 #cho "update ordrelinjer set m_rabat='0' where ordre_id = '$id' and vare_id = '$vare_id'<br>"; 1966 1972 db_modify("update ordrelinjer set m_rabat='0' where ordre_id = '$id' and vare_id = '$vare_id'",__FILE__ . " linje " . __LINE__); 1967 1973 } … … 1970 1976 if ($kopi || $rabat_ny) $rabat=$rabat_ny; 1971 1977 else { 1972 # echo "$debitorrabatgruppe -- $varerabatgruppe<br>";1978 #cho "$debitorrabatgruppe -- $varerabatgruppe<br>"; 1973 1979 # if (!$debitorrabatgruppe && !$varerabatgruppe) $varerabatgruppe=$varegruppe; 1974 1980 if (!$debitorrabatgruppe && !db_fetch_array(db_select("select id from grupper where art='DRG'",__FILE__ . " linje " . __LINE__))){ … … 1978 1984 $varerabatgruppe=$varegruppe; 1979 1985 } 1980 # echo "select rabat,rabatart from rabat where vare='$varerabatgruppe' and debitor='$debitorrabatgruppe'<br>";1986 #cho "select rabat,rabatart from rabat where vare='$varerabatgruppe' and debitor='$debitorrabatgruppe'<br>"; 1981 1987 $r2=db_fetch_array(db_select("select rabat,rabatart from rabat where vare='$varerabatgruppe' and debitor='$debitorrabatgruppe'",__FILE__ . " linje " . __LINE__)); 1982 1988 $rabat=$r2['rabat']*1; … … 1992 1998 $kostpris=$kostpris*100/$valutakurs; 1993 1999 } 1994 # echo "rabarart $rabatart<br>";2000 #cho "rabarart $rabatart<br>"; 1995 2001 if ($variant_type) { 1996 2002 $varianter=explode(chr(9),$variant_type); … … 2000 2006 } 2001 2007 } 2002 # echo "insert into ordrelinjer (ordre_id,vare_id,varenr,enhed,beskrivelse,antal,rabat,rabatart,m_rabat,pris,kostpris,momsfri,momssats,posnr,projekt,folgevare,rabatgruppe,bogf_konto,kred_linje_id,kdo,serienr,variant_id) values ('$id','$vare_id','$varenr','$enhed','$beskrivelse','$antal','$rabat','$rabatart','$m_rabat','$pris','$kostpris','$momsfri','$varemomssats','$posnr','0','$folgevare','$rabatgruppe','$bogfkto','$kred_linje_id','$kdo','$serienr','$variant_id')<br>";2008 #cho "insert into ordrelinjer (ordre_id,vare_id,varenr,enhed,beskrivelse,antal,rabat,rabatart,m_rabat,pris,kostpris,momsfri,momssats,posnr,projekt,folgevare,rabatgruppe,bogf_konto,kred_linje_id,kdo,serienr,variant_id) values ('$id','$vare_id','$varenr','$enhed','$beskrivelse','$antal','$rabat','$rabatart','$m_rabat','$pris','$kostpris','$momsfri','$varemomssats','$posnr','0','$folgevare','$rabatgruppe','$bogfkto','$kred_linje_id','$kdo','$serienr','$variant_id')<br>"; 2003 2009 # exit; 2004 2010 ($webservice)?$leveres=$antal:$leveres=0; … … 2013 2019 } 2014 2020 # finder antal af varen pÃ¥ ordren. 2015 # echo "select sum(antal) as antal from ordrelinjer where vare_id='$vare_id' and pris=$pris and ordre_id='$id<br>";2021 #cho "select sum(antal) as antal from ordrelinjer where vare_id='$vare_id' and pris=$pris and ordre_id='$id<br>"; 2016 2022 $r=db_fetch_array(db_select("select sum(antal) as antal from ordrelinjer where vare_id='$vare_id' and pris=$pris and rabat='0' and ordre_id='$id'",__FILE__ . " linje " . __LINE__)); 2017 2023 $tmpantal=$r['antal']; … … 2020 2026 m_rabat($r2['id'],$vare_id,0,$tmpantal,$id); 2021 2027 } else { 2022 # echo "update ordrelinjer set m_rabat='0' where ordre_id = '$id' and vare_id = '$vare_id'<br>";2028 #cho "update ordrelinjer set m_rabat='0' where ordre_id = '$id' and vare_id = '$vare_id'<br>"; 2023 2029 db_modify("update ordrelinjer set m_rabat='0' where ordre_id = '$id' and vare_id = '$vare_id'",__FILE__ . " linje " . __LINE__); 2024 2030 } … … 2033 2039 2034 2040 # finder mængderabat pÃ¥ varen. 2035 # echo "select m_type,m_rabat,m_antal,salgspris from varer where id = '$vare_id'<br>";2041 #cho "select m_type,m_rabat,m_antal,salgspris from varer where id = '$vare_id'<br>"; 2036 2042 $r=db_fetch_array(db_select("select m_type,m_rabat,m_antal,salgspris from varer where id = '$vare_id'",__FILE__ . " linje " . __LINE__)); 2037 2043 $m_antal=explode(";",$r['m_antal']); … … 2046 2052 if ($m_type =='percent') $m_rabat[$x]=$pris*$m_rabat[$x]/100; 2047 2053 2048 # echo "update ordrelinjer set m_rabat='$m_rabat[$x]',rabatart='$m_type' where ordre_id = '$ordre_id' and vare_id = '$vare_id'and pris='$pris' and rabat='0'<br>";2054 #cho "update ordrelinjer set m_rabat='$m_rabat[$x]',rabatart='$m_type' where ordre_id = '$ordre_id' and vare_id = '$vare_id'and pris='$pris' and rabat='0'<br>"; 2049 2055 db_modify("update ordrelinjer set m_rabat='$m_rabat[$x]',rabatart='$m_type' where ordre_id = '$ordre_id' and vare_id = '$vare_id'and pris='$pris' and rabat='0'",__FILE__ . " linje " . __LINE__); 2050 2056 }# endfunc m_rabat … … 2077 2083 $r = db_fetch_array($q); 2078 2084 $provisionsfri[$x]=$r['provisionsfri']; 2079 # echo "select * from batch_salg where linje_id = '$linje_id'<br>";2085 #cho "select * from batch_salg where linje_id = '$linje_id'<br>"; 2080 2086 $q = db_select("select * from batch_salg where linje_id = '$linje_id'",__FILE__ . " linje " . __LINE__); 2081 2087 $x=0; -
trunk/includes/std_func.php
r602 r603 1 1 <?php 2 // -----------includes/std_func.php-------lap 3.2. 6----2012-01-17-----2 // -----------includes/std_func.php-------lap 3.2.7----2012-01-30----- 3 3 // LICENS 4 4 // … … 377 377 } 378 378 $feltantal=$x; 379 $ordre_id=NULL;$posnr=NULL; 379 380 $x=0; 380 381 $q=db_select("$q_string"); … … 387 388 $felt[$y]=$r[$feltnavn]; 388 389 if ($fieldType[$y]=='varchar' || $fieldType[$y]=='text') $felt[$y]=addslashes($felt[$y]); 389 if ($fieldType[$y]=='int' || $fieldType[$y]=='numeric') $felt[$y]*=1; 390 if (substr($fieldType[$y],0,3)=='int' || $fieldType[$y]=='numeric') $felt[$y]*=1; 391 if ($fieldName[$y]=='posnr') { 392 $felt[$y]++; 393 $posnr=$felt[$y]; 394 } 395 if ($fieldName[$y]=='ordre_id') $ordre_id=$felt[$y]; 390 396 ($fieldvalues)?$fieldvalues.=",'".$felt[$y]."'":$fieldvalues="'".$felt[$y]."'"; 391 397 ($selectstring)?$selectstring.=" and ".$fieldName[$y]."='".$felt[$y]."'":$selectstring=$fieldName[$y]."='".$felt[$y]."'"; 392 393 394 }398 } 399 } 400 if ($posnr && $ordre_id) db_modify("update $table set posnr=posnr+1 where ordre_id = '$ordre_id' and posnr >= '$posnr'",__FILE__ . " linje " . __LINE__); 395 401 db_modify("insert into ordrelinjer ($fieldstring) values ($fieldvalues)",__FILE__ . " linje " . __LINE__); 396 402 $r=db_fetch_array(db_select("select id from $table where $selectstring",__FILE__ . " linje " . __LINE__)); -
trunk/kreditor/ordre.php
r601 r603 773 773 global $returside; 774 774 775 $r=db_fetch_array(db_SELECT("select box4 from grupper where art = 'DIV' and kodenr = '3'",__FILE__ . " linje " . __LINE__)); 776 $hurtigfakt=$r['box4']; 777 778 775 779 if (!$id) $fokus='kontonr'; 776 780 print "<form name=ordre action=ordre.php method=post>"; … … 917 921 if ($vis_projekt && !$projekt[0]) print "<td align=center title='Nummer herunder viser projektnummer, hvis ordrelinjen er tilknyttet et projekt'><b>proj.</b></td>"; 918 922 else print "<td></td>"; 919 print "<td align=\"center\"><b>solgt</b></td>";923 if (!$hurtigfakt) print "<td align=\"center\"><b>solgt</b></td>"; 920 924 print "</tr>\n"; 921 925 $x=0; … … 997 1001 } 998 1002 if ($box9[$x]=='on') { 999 if ($art=='KK') {$solgt[$x]=$solgt[$x]*-1;}1000 if ($serienr[$x]) {print "<td onClick=\"serienummer($linje_id[$x])\" align=right><u>$solgt[$x]</u></td>";}1001 else {print "<td align=right>$solgt[$x]</td>";}1002 } 1003 else {print "<td align=right><br></td>";}1003 if ($art=='KK') $solgt[$x]=$solgt[$x]*-1; 1004 if ($serienr[$x]) print "<td onClick=\"serienummer($linje_id[$x])\" align=right><u>$solgt[$x]</u></td>"; 1005 else print "<td align=right>$solgt[$x]</td>"; 1006 } elseif ($serienr[$x]) print "<td onClick=\"serienummer($linje_id[$x])\" align=right><u>Snr</u></td>"; 1007 else print "<td align=right><br></td>"; 1004 1008 1005 1009 print "</tr>\n"; -
trunk/kreditor/serienummer.php
r598 r603 81 81 $antal=$row['antal']; 82 82 $leveres=$row['leveres']; 83 $leveret=$row['leveret']; 83 84 $posnr=$row['posnr']; 84 85 $vare_id=$row['vare_id']; … … 109 110 $serienr[$sn_antal]=$row['serienr']; 110 111 } 111 for ($x=1; $x<=$leveres ; $x++) {112 for ($x=1; $x<=$leveres+$leveret; $x++) { 112 113 print "<tr><td colspan=2><input type=text size=40 name=serienr[$x] value=\"$serienr[$x]\"></td></tr>"; 113 114 print "<input type=hidden name=sn_id[$x] value='$sn_id[$x]'>"; 114 115 } 115 if (!$leveres ) print "<BODY onLoad=\"javascript:alert('Ingen varer er sat til leveering')\">";116 if (!$leveres && !$leveret) print "<BODY onLoad=\"javascript:alert('Ingen varer er sat til levering')\">"; 116 117 117 118 } else { -
trunk/lager/varekort.php
r602 r603 1 1 <?php ob_start(); //Starter output buffering 2 2 3 // ----------/lager/varekort.php---------lap 3.2.6---2012-01- 16-----3 // ----------/lager/varekort.php---------lap 3.2.6---2012-01-31----- 4 4 // LICENS 5 5 // … … 206 206 db_modify("update variant_varer set variant_stregkode='$variant_vare_stregkode[$x]',variant_beholdning='$variant_vare_beholdning[$x]' where id='$variant_vare_id[$x]'",__FILE__ . " linje " . __LINE__); 207 207 } 208 209 208 if ($var_type_beh || $var_type_stregk) { 210 209 $ny_variant_type=NULL; … … 229 228 } 230 229 } 231 230 } 232 231 ######### Følgevarer ######### 233 232 if ($folgevarenr) { … … 236 235 else print "<BODY onLoad=\"javascript:alert('Varenummer $folgevarenr eksisterer ikke!')\">"; 237 236 } 238 237 if ($rabatgruppe) { 239 238 $r=db_fetch_array(db_select("select * from grupper where art='VRG' and kodenr = '$rabatgruppe'",__FILE__ . " linje " . __LINE__)); 240 239 $m_type=$r['box1']; … … 242 241 $m_antal_array=explode(";",$r['box3']); 243 242 } 244 245 243 if ($ny_gruppe != $gruppe) { 246 244 $r=db_fetch_array(db_select("select box8 from grupper where art='VG' and kodenr = '$ny_gruppe'",__FILE__ . " linje " . __LINE__)); … … 257 255 } 258 256 ######### Moms ######### 259 if($r=db_fetch_array(db_select("select box1 from grupper where art='DIV' and kodenr = '5'",__FILE__ . " linje " . __LINE__))) { 260 $incl_moms=$r['box1']; 261 $r=db_fetch_array(db_select("select box2 from grupper where art='SM' and kodenr = '$incl_moms'",__FILE__ . " linje " . __LINE__)); 262 $incl_moms=$r['box2']*1; 263 $salgspris*=100/(100+$incl_moms); 264 $salgspris2*=100/(100+$incl_moms); 265 $special_price*=100/(100+$incl_moms); 266 } else $incl_moms=0; 267 268 #cho "shopurl $shopurl<br>"; 269 if (($publ_pre || $shopurl) && $shopurl != '!') { 270 271 $shop_beholdning=$beholdning; 272 $r=db_fetch_array(db_select("select sum(ordrelinjer.antal-ordrelinjer.leveret) as antal from ordrer,ordrelinjer where ordrelinjer.vare_id = '$id' and ordrelinjer.ordre_id = ordrer.id and (ordrer.art='DO' or ordrer.art='DK') and (ordrer.status='1' or ordrer.status='2')",__FILE__ . " linje " . __LINE__)); 273 $shop_beholdning-=$r['antal']; 274 $r=db_fetch_array($q=db_select("select shop_id from shop_varer where saldi_id='$id'",__FILE__ . " linje " . __LINE__)); 275 $shop_id=$r['shop_id']; 276 $a=urlencode($varenr); 277 $b=urlencode($beskrivelse[0]); 278 $c=urlencode($notes); 279 $d=urlencode($shop_kat_id); 280 $e=urlencode($kategori); 281 # $f=NULL; 282 # $g=NULL; 283 # $h=NULL; 284 # $temp=explode(chr(9),$kategori); 285 # for ($i=0;$i<count($temp);$i++) { 286 # $r=db_fetch_array(db_select("select box1,box2,box3 from grupper where id='$temp[$i]'",__FILE__ . " linje " . __LINE__)); 287 # ($f)?$f.=chr(9).$r['box1']:$f=$r['box1']; 288 # ($g)?$g.=chr(9).$r['box2']:$g=$r['box2']; 289 # ($h)?$h.=chr(9).$r['box3']:$h=$r['box3']; 290 # } 291 292 $url=$shopurl."/opdat_vare.php?vare_id=$id&varenr=$a&beskrivelse=$b¬es=$c&salgspris=$salgspris&shop_kat_id=$d&kat=$e&shop_id=$shop_id&beholdning=$shop_beholdning&publiceret=$publiceret"; 257 if($r=db_fetch_array(db_select("select box1 from grupper where art='DIV' and kodenr = '5'",__FILE__ . " linje " . __LINE__))) { 258 $incl_moms=$r['box1']; 259 $r=db_fetch_array(db_select("select box2 from grupper where art='SM' and kodenr = '$incl_moms'",__FILE__ . " linje " . __LINE__)); 260 $incl_moms=$r['box2']*1; 261 $salgspris*=100/(100+$incl_moms); 262 $salgspris2*=100/(100+$incl_moms); 263 $special_price*=100/(100+$incl_moms); 264 } else $incl_moms=0; 265 266 if (($publ_pre || $shopurl) && $shopurl != '!') { 267 $shop_beholdning=$beholdning; 268 $r=db_fetch_array(db_select("select sum(ordrelinjer.antal-ordrelinjer.leveret) as antal from ordrer,ordrelinjer where ordrelinjer.vare_id = '$id' and ordrelinjer.ordre_id = ordrer.id and (ordrer.art='DO' or ordrer.art='DK') and (ordrer.status='1' or ordrer.status='2')",__FILE__ . " linje " . __LINE__)); 269 $shop_beholdning-=$r['antal']; 270 $r=db_fetch_array($q=db_select("select shop_id from shop_varer where saldi_id='$id'",__FILE__ . " linje " . __LINE__)); 271 $shop_id=$r['shop_id']; 272 $a=urlencode($varenr); 273 $b=urlencode($beskrivelse[0]); 274 $c=urlencode($notes); 275 $d=urlencode($shop_kat_id); 276 $e=urlencode($kategori); 277 $url=$shopurl."/opdat_vare.php?vare_id=$id&varenr=$a&beskrivelse=$b¬es=$c&salgspris=$salgspris&shop_kat_id=$d&kat=$e&shop_id=$shop_id&beholdning=$shop_beholdning&publiceret=$publiceret"; 293 278 #cho $url; 294 print "<body onload=\"javascript:window.open('$url','opdat:vare');\">"; 295 } 279 print "<body onload=\"javascript:window.open('$url','opdat:vare');\">"; 296 280 } 297 281 298 282 # Genererer tekststrenge med maengderabatter - decimaltaltal rettes til "us" og felter med antal "0" fjernes. 299 $tmp=count($m_rabat_array);300 for ($x=0;$x<=$tmp;$x++) {283 $tmp=count($m_rabat_array); 284 for ($x=0;$x<=$tmp;$x++) { 301 285 $tmp1=usdecimal($m_rabat_array[$x])*1; 302 286 $tmp2=usdecimal($m_antal_array[$x])*1; -
trunk/lager/varer.php
r602 r603 1 1 <?php 2 // ---------lager/varer.php-------------lap 3.2.7-----2012-01- 20--------2 // ---------lager/varer.php-------------lap 3.2.7-----2012-01-31-------- 3 3 // LICENS 4 4 // … … 392 392 if ($udskriv) { 393 393 ($linjebg!=$bgcolor)?$linjebg=$bgcolor:$linjebg=$bgcolor5; 394 if ($row['lukket']=='1') $color='red';394 ($row['lukket']=='1')?$color='red':$color='black'; 395 395 print "<tr bgcolor=\"$linjebg\">"; 396 396 $kort="kort".$row['id']; -
trunk/soapserver/addorderline.wsdl
r601 r603 35 35 <service name="AddOrderLine"> 36 36 <port name="AddOrderLinePort" binding="tns:AddOrderLineBinding"> 37 <soap:address location=" https://ssl.saldi.dk/finans/soapserver/addorderline.php"/>37 <soap:address location="%SERVERURL%/addorderline.php"/> 38 38 </port> 39 39 </service> -
trunk/soapserver/logon.wsdl
r601 r603 35 35 <service name="Logon"> 36 36 <port name="LogonPort" binding="tns:LogonBinding"> 37 <soap:address location=" https://ssl.saldi.dk/finans/soapserver/logon.php"/>37 <soap:address location="%SERVERURL%/logon.php"/> 38 38 </port> 39 39 </service> -
trunk/soapserver/multiselect.wsdl
r601 r603 35 35 <service name="Multiselect"> 36 36 <port name="MultiselectPort" binding="tns:MultiselectBinding"> 37 <soap:address location=" https://ssl.saldi.dk/finans/soapserver/multiselect.php"/>37 <soap:address location="%SERVERURL%/multiselect.php"/> 38 38 </port> 39 39 </service> -
trunk/soapserver/singleinsert.wsdl
r601 r603 35 35 <service name="Singleinsert"> 36 36 <port name="SingleinsertPort" binding="tns:SingleinsertBinding"> 37 <soap:address location=" https://ssl.saldi.dk/finans/soapserver/singleinsert.php"/>37 <soap:address location="%SERVERURL%/singleinsert.php"/> 38 38 </port> 39 39 </service> -
trunk/soapserver/singleselect.wsdl
r601 r603 35 35 <service name="Singleselect"> 36 36 <port name="SingleselectPort" binding="tns:SingleselectBinding"> 37 <soap:address location=" https://ssl.saldi.dk/finans/soapserver/singleselect.php"/>37 <soap:address location="%SERVERURL%/singleselect.php"/> 38 38 </port> 39 39 </service> -
trunk/soapserver/singleupdate.wsdl
r601 r603 35 35 <service name="Singleupdate"> 36 36 <port name="SingleupdatePort" binding="tns:SingleupdateBinding"> 37 <soap:address location=" https://ssl.saldi.dk/finans/soapserver/singleupdate.php"/>37 <soap:address location="%SERVERURL%/singleupdate.php"/> 38 38 </port> 39 39 </service>
