function udvaelg($tmp, $key, $art) { include "../includes/std_func.php"; $tmp = strtolower($tmp); if ($art) { #20150105-1 if ($art != 'BELOB') { $tmp = str_replace(",", ":", $tmp); } #20150601 $tmp = str_replace(";", ":", $tmp); if ($art == 'BELOB' && !strpos($tmp, ':')) { #20151019 $tmp = usdecimal($tmp); $tmp1 = $tmp - 0.005; $tmp2 = $tmp + 0.004; $tmp = number_format($tmp1, 3, ',', '') . ":" . number_format($tmp2, 3, ',', ''); } } list($tmp1, $tmp2) = explode(":", $tmp); if (strstr($tmp, ':') && $art != 'TID') { if ($art == "DATO") { $tmp1 = usdate($tmp1); $tmp2 = usdate($tmp2); } elseif ($art == "BELOB") { $tmp1 = usdecimal($tmp1); $tmp2 = usdecimal($tmp2); } elseif ($art == "NR") { $tmp1 = afrund($tmp1 * 1, 2); #21050105-2 $tmp2 = afrund($tmp2 * 1, 2); } $udvaelg = "and {$key} >= '{$tmp1}' and {$key} <= '{$tmp2}'"; } else { if ($art == "TID") { if (!strstr($tmp, ':')) { $tmp = $tmp * 1; $tmp = str_replace(".", ":", $tmp); if (!strstr($tmp, ':')) { $tmp = $tmp . ":"; } } } elseif ($art == "DATO") { $tmp = usdate($tmp); } if (!$art) { $tmp = str_replace("*", "%", $tmp); $tmp = db_escape_string($tmp); $udvaelg = " and lower({$key}) like '{$tmp}'"; } else { $udvaelg = " and {$key} = '{$tmp}'"; } } return $udvaelg; }
function upload_bilag($kilde_id, $kilde, $bilag_id, $bilag, $fokus, $filnavn, $funktion) { global $charset; global $db; global $bruger_id; global $exec_path; $puljefil = if_isset($_POST['puljefil']); if (!isset($exec_path)) { $exec_path = "/usr/bin"; } if ($puljefil || file_exists("../temp/{$db}/{$filnavn}")) { $x = 0; if (!file_exists("../owncloud/" . $db)) { mkdir("../owncloud/" . $db, 0777); if (!file_exists("../owncloud/" . $db)) { print tekstboks("Det er sket en fejl, bilag ikke gemt\nRing venligst på 46902208 så problemet kan blive løst"); print "<meta http-equiv=\"refresh\" content=\"0;URL={$tmp}\">"; exit; } } $bilagfilnavn = "bilag_" . $bilag_id; $r = db_fetch_array(db_select("select * from grupper where art='bilag'", __FILE__ . " linje " . __LINE__)); if ($box6 = $r['box6']) { $puljefil = if_isset($_POST['puljefil']); $bilag = if_isset($_POST['bilag']); $dato = if_isset($_POST['dato']); $beskrivelse = if_isset($_POST['beskrivelse']); $debet = if_isset($_POST['debet']); $kredit = if_isset($_POST['kredit']); $fakturanr = if_isset($_POST['fakturanr']); $sum = if_isset($_POST['sum']); $sag = if_isset($_POST['sag']); $afd = if_isset($_POST['afd']); $projekt = if_isset($_POST['projekt']); if ($kilde == "kassekladde" || $kilde == "ordrer") { $mappe = 'bilag'; if (!file_exists("../owncloud/" . $db . "/" . $mappe)) { mkdir("../owncloud/" . $db . "/" . $mappe, 0777); } $tidspkt = date("U"); if ($kilde == "kassekladde") { if (!$bilag_id) { $bilag *= 1; # 20150105 db_modify("insert into kassekladde (bilag,beskrivelse,kladde_id) values ('{$bilag}','{$tidspkt}','{$kilde_id}')", __FILE__ . " linje " . __LINE__); $r = db_fetch_array(db_select("select id from kassekladde where bilag='{$bilag}' and beskrivelse='{$tidspkt}' and kladde_id='{$kilde_id}'", __FILE__ . " linje " . __LINE__)); $bilag_id = $r['id']; } $undermappe = "kladde_{$kilde_id}"; if (!file_exists("../owncloud/" . $db . "/" . $mappe . "/" . $undermappe)) { mkdir("../owncloud/" . $db . "/" . $mappe . "/" . $undermappe, 0777); } } else { $undermappe = "ordrer"; if (!file_exists("../owncloud/" . $db . "/" . $mappe . "/" . $undermappe)) { mkdir("../owncloud/" . $db . "/" . $mappe . "/" . $undermappe, 0777); } } $bilagfilnavn = "bilag_" . $bilag_id; } else { $mappe = 'dokumenter'; if (!file_exists("../owncloud/" . $db . "/" . $mappe)) { mkdir("../owncloud/" . $db . "/" . $mappe, 0777); } $undermappe = "debitor_{$kilde_id}"; if (!file_exists("../owncloud/" . $db . "/" . $mappe . "/" . $undermappe)) { mkdir("../owncloud/" . $db . "/" . $mappe . "/" . $undermappe, 0777); } $bilagfilnavn = "doc_" . $bilag_id; } if ($puljefil) { $fra = "../owncloud/" . $db . "/pulje/" . $puljefil; } else { $fra = "../temp/" . $db . "/" . $filnavn; } $til = "../owncloud/" . $db . "/" . $mappe . "/" . $undermappe . "/" . $bilagfilnavn; system("mv '{$fra}' '{$til}'\n"); if (file_exists("../owncloud/" . $db . "/" . $mappe . "/" . $undermappe . "/" . $bilagfilnavn)) { $tjek = 'ok'; } else { print "<BODY onLoad=\"javascript:alert('indlæsning af {$filnavn} fejlet')\">"; break 1; } if ($dh = opendir("../owncloud/" . $db . "/pulje/")) { $slettet = 0; while (($file = readdir($dh)) !== false) { if ($slettet == 0 && substr($file, -5) == '.desc') { $descfil = str_replace("desc", "", $file); if (substr($puljefil, 0, strlen($descfil)) == $descfil) { system("rm ../owncloud/" . $db . "/pulje/" . $descfil . "desc\n"); $slettet = 1; } } } closedir($dh); } if ($puljefil) { $filnavn = $puljefil; } # else $filnavn=$bilagfilnavn; $langt_filnavn = $til; $bilag *= 1; if (!$dato) { $dato = date("d-m-Y"); } if (!is_numeric($debet)) { if (strtolower(substr($debet, 0, 1)) == 'd') { $d_type = 'D'; } elseif (strtolower(substr($debet, 0, 1)) == 'k') { $d_type = 'K'; } else { $d_type = 'F'; } $debet = substr($debet, 1); } $debet *= 1; if (!is_numeric($kredit)) { if (strtolower(substr($kredit, 0, 1)) == 'd') { $k_type = 'D'; } elseif (strtolower(substr($kredit, 0, 1)) == 'k') { $k_type = 'K'; } else { $k_type = 'F'; } $kredit = substr($kredit, 1); } $kredit *= 1; $afd *= 1; if ($kilde == "kassekladde") { if ($puljefil) { db_modify("update kassekladde set bilag='{$bilag}',transdate='" . usdate($dato) . "',beskrivelse='" . db_escape_string($beskrivelse) . "',d_type='{$d_type}',debet='{$debet}',k_type='{$k_type}',kredit='{$kredit}',faktura='{$fakturanr}',amount='" . usdecimal($sum) . "',afd='{$afd}',projekt='{$projekt}',dokument='{$filnavn}' where id='{$bilag_id}'", __FILE__ . " linje " . __LINE__); } else { db_modify("update kassekladde set dokument='{$filnavn}' where id='{$bilag_id}'", __FILE__ . " linje " . __LINE__); } } else { db_modify("update {$kilde} set dokument='" . db_escape_string($filnavn) . "' where id='{$bilag_id}'", __FILE__ . " linje " . __LINE__); } } else { #Egen FTP' $box1 = $r['box1']; $box2 = $r['box2']; $box3 = $r['box3']; if ($kilde == "kassekladde" || $kilde == "ordrer") { $mappe = $r['box4']; $kilde == "kassekladde" ? $undermappe = "kladde_{$kilde_id}" : ($undermappe = "ordrer"); $bilagfilnavn = "bilag_" . $bilag_id; } else { $mappe = $r['box5']; $undermappe = "debitor_{$kilde_id}"; $bilagfilnavn = "doc_" . $bilag_id; } $fp = fopen("../temp/{$db}/ftpscript1.{$bruger_id}", "w"); if ($fp) { fwrite($fp, "mkdir {$mappe}\ncd {$mappe}\nmkdir {$undermappe}\ncd {$undermappe}\nput {$bilagfilnavn}\nbye\n"); } fclose($fp); $fp = fopen("../temp/{$db}/ftplog", "w"); fwrite($fp, "cd ../temp/{$db}\n\rmv \"{$filnavn}\" \"{$bilagfilnavn}\"\n\r{$exec_path}/ncftp ftp://{$box2}:{$box3}@{$box1}\n\rrm {$bilagfilnavn}\n\r"); fclose($fp); $kommando = "cd ../temp/{$db}\nmv \"{$filnavn}\" \"{$bilagfilnavn}\"\n{$exec_path}/ncftp ftp://" . $box2 . ":'" . $box3 . "'@" . $box1 . " < ftpscript1.{$bruger_id} >> ftplog\nrm {$bilagfilnavn}\n"; #rm ftpscript.$bruger_id"; system($kommando); $fp = fopen("../temp/{$db}/ftpscript2.{$bruger_id}", "w"); if ($fp) { fwrite($fp, "cd {$mappe}\ncd {$undermappe}\nget {$bilagfilnavn}\nbye\n"); } fclose($fp); $kommando = "cd ../temp/{$db}\n{$exec_path}/ncftp ftp://" . $box2 . ":'" . $box3 . "'@" . $box1 . " < ftpscript2.{$bruger_id} >> ftplog\n"; system($kommando); $langt_filnavn = "../temp/{$db}/" . $bilagfilnavn; if (file_exists($langt_filnavn)) { db_modify("update {$kilde} set dokument='" . db_escape_string($filnavn) . "' where id='{$bilag_id}'", __FILE__ . " linje " . __LINE__); } if (file_exists($langt_filnavn)) { #20141105 print "<BODY onLoad=\"javascript:alert('{$filnavn} er indlæst')\">"; } else { print "<BODY onLoad=\"javascript:alert('A indlæsning af {$filnavn} fejlet')\">"; } } } #print "<BODY onLoad=\"javascript:alert('B indlæsning af $filnavn fejlet')\">"; if ($funktion == 'gennemse') { $bilag++; $tmp = "../includes/bilag.php?bilag={$bilag}&kilde={$kilde}&kilde_id={$kilde_id}&fokus={$fokus}&funktion=gennemse"; } elseif ($kilde == "kassekladde") { $tmp = "../finans/kassekladde.php?kladde_id={$kilde_id}&fokus={$fokus}"; } elseif ($kilde == "ordrer") { $tmp = "../debitor/ordre.php?id={$kilde_id}&fokus={$fokus}"; } else { $tmp = "../debitor/historikkort.php?id={$kilde_id}"; } print "<meta http-equiv=\"refresh\" content=\"0;URL={$tmp}\">"; }
function overfoer_data($filnavn, $splitter, $feltnavn, $feltantal) { global $charset; global $kontotype; global $art; $x = 0; $fp = fopen("../importfiler/postnr.csv", "r"); if ($fp) { while (!feof($fp)) { $x++; $linje = trim(fgets($fp)); list($postnr[$x], $bynavn[$x]) = explode(chr(9), $linje); } } fclose($fp); $postnr_antal = $x; $fp = fopen("{$filnavn}", "r"); if ($fp) { for ($y = 1; $y < 4; $y++) { $linje = fgets($fp); } $tmp = $linje; while ($tmp = substr(strstr($tmp, ";"), 1)) { $semikolon++; } $tmp = $linje; while ($tmp = substr(strstr($tmp, ","), 1)) { $komma++; } $tmp = $linje; while ($tmp = substr(strstr($tmp, chr(9)), 1)) { $tabulator++; } $tmp = ''; if ($komma > $semikolon && $komma > $tabulator) { $tmp = 'Komma'; $feltantal = $komma; } elseif ($semikolon > $tabulator && $semikolon > $komma) { $tmp = 'Semikolon'; $feltantal = $semikolon; } elseif ($tabulator > $semikolon && $tabulator > $komma) { $tmp = 'Tabulator'; $feltantal = $tabulator; } if (!$splitter) { $splitter = $tmp; } $cols = $feltantal + 1; } fclose($fp); for ($y = 0; $y <= $feltantal; $y++) { for ($x = 0; $x <= $felt_antal; $x++) { if ($felt_navn[$x] && $feltnavn[$y] == $felt_navn[$x] && $felt_aktiv[$x] == 1) { print "<BODY onLoad=\"javascript:alert('Der kan kun være 1 kolonne med {$felt_navn[$x]}')\">"; $feltnavn[$y] = ''; } elseif ($felt_navn[$x] && $feltnavn[$y] == $felt_navn[$x]) { $felt_aktiv[$x] = 1; } } } print "<tr><td colspan={$cols}><hr></td></tr>\n"; if (!$splitter || $splitter == 'Semikolon') { $splitter = ';'; } elseif ($splitter == 'Komma') { $splitter = ','; } elseif ($splitter == 'Tabulator') { $splitter = chr(9); } transaktion('begin'); #$felt_antal=$feltantal; $ryd_firmanavn = 0; $fp = fopen("{$filnavn}", "r"); if ($fp) { $kontonumre = array(); $x = 0; $imp_antal = 0; while (!feof($fp)) { # $feltantal=$felt_antal; $skriv_linje = 0; if ($linje = trim(fgets($fp))) { $x++; $skriv_linje = 1; if ($charset == 'UTF-8') { $linje = utf8_encode($linje); } $felt = array(); $felt = opdel($splitter, $linje); # if ($ryd_firmanavn) $felt[$ryd_firmanavn]=''; if (in_array('pbs_nr', $feltnavn) && !in_array('pbs', $feltnavn)) { $feltantal++; $pbs = $feltantal; $feltnavn[$feltantal] = 'pbs'; $felt[$feltantal] = ''; } if (in_array('husnr', $feltnavn)) { $felt = add2felt($feltantal, 'husnr', 'addr1', $feltnavn, $felt); } if (in_array('etage', $feltnavn)) { $felt = add2felt($feltantal, 'etage', 'addr1', $feltnavn, $felt); } if (in_array('fornavn', $feltnavn) && !in_array('firmanavn', $feltnavn)) { $feltantal++; $ryd_firmanavn = $feltantal; $feltnavn[$feltantal] = 'firmanavn'; $felt[$feltantal] = ''; } if (in_array('efternavn', $feltnavn) && !in_array('firmanavn', $feltnavn)) { $feltantal++; $ryd_firmanavn = $feltantal; $feltnavn[$feltantal] = 'firmanavn'; $felt[$feltantal] = ''; } if (in_array('fornavn', $feltnavn)) { $felt = add2felt($feltantal, 'fornavn', 'firmanavn', $feltnavn, $felt); } if (in_array('efternavn', $feltnavn)) { $felt = add2felt($feltantal, 'efternavn', 'firmanavn', $feltnavn, $felt); } for ($y = 0; $y <= $feltantal; $y++) { $felt[$y] = trim($felt[$y]); $feltnavn[$y] = strtolower($feltnavn[$y]); if (substr($felt[$y], 0, 1) == '"' && substr($felt[$y], -1) == '"') { $felt[$y] = substr($felt[$y], 1, strlen($felt[$y]) - 2); } if ($feltnavn[$y] == 'kontonr' && !is_numeric($felt[$y])) { $kontonr = 0; $skriv_linje = 2; } elseif ($feltnavn[$y] == 'kontonr') { $kontonr = $felt[$y]; } if ($feltnavn[$y] == 'pbs_nr' && $felt[$y]) { $felt[$pbs] = 'on'; } if ($feltnavn[$y] == "postnr") { list($felt[$y], $bynavn[$y]) = explode(" ", $felt[$y], 2); } if ($feltnavn[$y] == 'kontoansvarlig' && $felt[$y] && $kontonr) { $r = db_fetch_array(db_select("select id from adresser where kontonr='{$kontonr}'", __FILE__ . " linje " . __LINE__)); $konto_id = $r['id'] * 1; $r = db_fetch_array(db_select("select id from ansatte where initialer='{$felt[$y]}' and konto_id={$konto_id}", __FILE__ . " linje " . __LINE__)); $felt[$y] = $r['id'] * 1; } elseif ($feltnavn[$y] == 'kontoansvarlig') { $felt[$y] = '0'; } if ($feltnavn[$y] == 'oprettet' && $felt[$y] && $kontonr) { $felt[$y] = usdate($felt[$y]); } elseif ($feltnavn[$y] == 'oprettet') { $felt[$y] = date("Y-m-d"); } if ($feltnavn[$y] == 'kreditmax') { $felt[$y] = usdecimal($felt[$y]); } if ($feltnavn[$y] == 'betalingsdage') { $felt[$y] = $felt[$y] * 1; } } } if ($skriv_linje == 1) { $addr_a = ''; $addr_b = ''; $upd = ''; $kontakt_a = ''; $kontakt_b = ''; for ($y = 0; $y <= $feltantal; $y++) { if ($feltnavn[$y] && $feltnavn[$y] != 'husnr' && $feltnavn[$y] != 'etage') { $felt[$y] = trim(addslashes($felt[$y])); if (!strstr($feltnavn[$y], "kontakt_")) { if ($y > 0) { $addr_a = $addr_a . ","; $addr_b = $addr_b . ","; $upd = $upd . ","; } $addr_a = $addr_a . $feltnavn[$y]; $addr_b = $addr_b . "'" . $felt[$y] . "'"; $upd = $upd . $feltnavn[$y] . "='" . $felt[$y] . "'"; } else { if ($kontakt_a) { $kontakt_a = $kontakt_a . ","; $kontakt_b = $kontakt_b . ","; } $tmp = substr($feltnavn[$y], 8); $kontakt_a = $kontakt_a . $tmp; $kontakt_b = $kontakt_b . "'" . $felt[$y] . "'"; } } } if (!strpos($addr_a, 'lukket')) { $addr_a = $addr_a . ",lukket"; $addr_b = $addr_b . ",''"; } if (!strpos($addr_a, 'gruppe')) { $addr_a = $addr_a . ",gruppe"; $addr_b = $addr_b . ",'1'"; $upd = $upd . ",gruppe='1'"; } if (!strpos($addr_a, 'art')) { $addr_a = $addr_a . ",art"; $addr_b = $addr_b . ",'{$art}'"; $upd = $upd . ",art='{$art}'"; } else { for ($y = 0; $y <= $feltantal; $y++) { if ($feltnavn[$y] == 'art') { $art = $felt[$y]; } } } if ($r = db_fetch_array(db_select("select id from adresser where kontonr='{$kontonr}' and art='{$art}'", __FILE__ . " linje " . __LINE__))) { $konto_id = $r['id']; $imp_antal++; # echo "update adresser set $upd where id='$konto_id'<br>"; db_modify("update adresser set {$upd} where id='{$konto_id}'", __FILE__ . " linje " . __LINE__); } else { $imp_antal++; db_modify("insert into adresser({$addr_a},kontotype) values ({$addr_b},'{$kontotype}')", __FILE__ . " linje " . __LINE__); $r = db_fetch_array(db_select("select id from adresser where kontonr='{$kontonr}' and art = 'D'", __FILE__ . " linje " . __LINE__)); $konto_id = $r['id']; } if ($kontakt_a && !($r = db_fetch_array(db_select("select id from ansatte where konto_id='{$konto_id}'", __FILE__ . " linje " . __LINE__)))) { db_modify("insert into ansatte({$kontakt_a},konto_id) values ({$kontakt_b},'{$konto_id}')", __FILE__ . " linje " . __LINE__); } } } } fclose($fp); transaktion('commit'); print "</tbody></table>"; print "</td></tr>"; print "<BODY onLoad=\"javascript:alert('{$imp_antal} adresser importeret')\">"; if ($popup) { print "<meta http-equiv=\"refresh\" content=\"0;URL=../includes/luk.php\">"; } else { print "<meta http-equiv=\"refresh\" content=\"0;URL=../systemdata/diverse.php\">"; } #exit; }
$mailfakt = 1; $notes = ""; } */ $ny_kontonr = db_escape_string(trim($_POST['ny_kontonr'])); $gl_kontotype = db_escape_string(trim($_POST['gl_kontotype'])); $kontotype = db_escape_string(trim($_POST['kontotype'])); $fornavn = db_escape_string(trim($_POST['fornavn'])); $efternavn = db_escape_string(trim($_POST['efternavn'])); $fax = db_escape_string(trim($_POST['fax'])); $web = db_escape_string(trim($_POST['web'])); $betalingsbet = db_escape_string(trim($_POST['betalingsbet'])); $ean = db_escape_string(trim($_POST['ean'])); $institution = db_escape_string(trim($_POST['institution'])); $betalingsdage = $_POST['betalingsdage'] * 1; $kreditmax = usdecimal($_POST['kreditmax']); $felt_2 = db_escape_string(trim($_POST['felt_2'])); $felt_3 = db_escape_string(trim($_POST['felt_3'])); $felt_4 = db_escape_string(trim($_POST['felt_4'])); $felt_5 = db_escape_string(trim($_POST['felt_5'])); $lev_firmanavn = db_escape_string(trim($_POST['lev_firmanavn'])); $lev_fornavn = db_escape_string(trim($_POST['lev_fornavn'])); $lev_efternavn = db_escape_string(trim($_POST['lev_efternavn'])); $lev_addr1 = db_escape_string(trim($_POST['lev_addr1'])); $lev_addr2 = db_escape_string(trim($_POST['lev_addr2'])); $lev_postnr = db_escape_string(trim($_POST['lev_postnr'])); $lev_bynavn = db_escape_string(trim($_POST['lev_bynavn'])); $lev_land = db_escape_string(trim($_POST['lev_land'])); $lev_kontakt = db_escape_string(trim($_POST['lev_kontakt'])); $lev_tlf = db_escape_string(trim($_POST['lev_tlf'])); $lev_email = db_escape_string(trim($_POST['lev_email']));
function formularprint($id, $formular, $lev_nr, $charset, $udskriv_alle_til) { print "<!--function formularprint start-->"; include "../includes/std_func.php"; include "../includes/var2str.php"; global $db; global $db_id; global $dkdato; global $form_id; global $charset; global $formularsprog; global $fp; global $gebyr; global $ialt; # global $id; global $lev_nr; global $linjeafstand; global $logo; global $logoart; global $moms; global $momsgrundlag; global $momssats; global $nextside; global $printerid; global $ref; global $side; global $subtotal; global $sum; global $transportsum; global $y; global $ya; global $mailantal; global $bruger_id; global $sprog_id; global $exec_path; global $vis_saet; global $brugsamletpris; $fp1 = NULL; $kommentarprint = NULL; $skjul_nul_lin = NULL; $folgeseddel = 0; $mailantal = 0; $nomailantal = 0; $side_x = 210; $side_y = 297; $side_x = afrund($side_x * 2.86, 0); $side_y = afrund($side_y * 2.86, 0); $preview = NULL; $initext = "%!\n%%Creator: Saldi\n%%Pages: 1\n%%BoundingBox: 0 0 {$side_x} {$side_y}\n%%EndComments\n<< /PageSize [{$side_x} {$side_y}] >> setpagedevice\n"; #$initext="%!\n%%Creator: Saldi\n%%Pages: 1\n%%EndComments\n"; $form = array(); $q = db_SELECT("select box2,box14 from grupper where art = 'DIV' and kodenr = '3'", __FILE__ . " linje " . __LINE__); $r = db_fetch_array($q); $rabatvare_id = $r['box2'] * 1; $brugsamletpris = $r['box14']; if ($vis_saet) { $brugsamletpris = 'on'; } if ($id == -1) { # Saa er der flere fakturaer $ordre_antal = $_GET['ordre_antal']; $ordre_id = explode(",", $_GET['skriv']); if (strpos($formular, ",")) { list($formular, $folgeseddel) = explode(",", $formular); } } elseif (!is_numeric($id)) { $preview = 1; $ordre_id[0] = 0; $ordre_antal = 1; } else { $ordre_id[0] = $id; $ordre_antal = 1; } if ($formular == 3) { $folgeseddel = 1; } if ($formular != 3 && $folgeseddel) { for ($q = 0; $q < $ordre_antal; $q++) { $form[$q] = $formular; $r = db_fetch_array(db_select("select lev_addr1,lev_postnr from ordrer where id = {$ordre_id[$q]}", __FILE__ . " linje " . __LINE__)); if ($r['lev_addr1'] && $r['lev_postnr']) { $form[$q] = 3; $ordre_antal++; for ($z = $ordre_antal; $z > $q; $z--) { $ordre_id[$z] = $ordre_id[$z - 1]; } $q++; $form[$q] = $formular; } } } $r = db_fetch_array(db_select("select box6,box12 from grupper where art = 'POS' and kodenr = '2'", __FILE__ . " linje " . __LINE__)); $vis_saet = trim($r['box12']); if ($vis_saet) { $brugsamletpris = 'on'; } $r = db_fetch_array(db_select("select * from grupper where art='DIV' and kodenr='3'", __FILE__ . " linje " . __LINE__)); $incl_moms = $r['box1']; if ($folgeseddel) { $kommentarprint = $r['box3']; $skjul_nul_lin = $r['box8']; } $fsize = filesize("../includes/faktinit.ps"); $initfil = fopen("../includes/faktinit.ps", "r"); $initext = $initext . fread($initfil, $fsize); fclose($initfil); if (!file_exists("../temp/{$db}")) { mkdir("../temp/{$db}", 0775); } $mappe = "../temp/{$db}/{$bruger_id}" . "_*"; system("rm -r {$mappe}"); $mappe = "../temp/{$db}/" . abs($bruger_id) . "_" . date("his"); mkdir("{$mappe}", 0775); if ($ordre_antal > 1) { $printfilnavn = 'udskrift'; if ($formular <= 1) { $printfilnavn = "tilbud"; } if ($formular == 2) { $printfilnavn = "ordrebek"; } if ($formular == 3) { $printfilnavn = "flg_seddel"; } if ($formular == 4) { $printfilnavn = "faktura"; } if ($formular == 9) { $printfilnavn = "plukliste"; } if ($formular == 12) { $printfilnavn = "forslag"; } if ($formular == 13) { $printfilnavn = "rekvisition"; } if ($formular == 14) { $printfilnavn = "lev_fakt"; } $fp1 = fopen("{$mappe}/{$printfilnavn}", "w"); } for ($o = 0; $o < $ordre_antal; $o++) { $fp = $fp1; if (isset($form[$o])) { $formular = $form[$o]; } $varenr = array(); $lev_varenr = array(); $leveres = array(); $vare_id = array(); $linje_id = array(); $antal = array(); $tidl_lev = array(); $rest = array(); $enhed = array(); $rabat = array(); $momssats = array(); $pris = array(); $l_sum = array(); $linjesum = array(); $sum = ''; $transportsum = 0; if ($preview) { $ref = 'Egen ref'; $ordrenr = 'Ordrenummer'; $fakturanr = 'Fakturanummer'; $mail_fakt = ''; $email[0] = 'Kundens email'; $pbs = ''; } else { $query = db_select("select afd,status,email,ordrenr,fakturanr,mail_fakt,pbs,art,ref,sprog,udskriv_til,mail_subj,mail_text,dokument,procenttillag from ordrer where id = '{$ordre_id[$o]}'", __FILE__ . " linje " . __LINE__); $row = db_fetch_array($query); $status = $row['status']; $afd = $row['afd']; $art = $row['art']; $ref = $row['ref']; $ordrenr = $row['ordrenr']; if (!$udskriv_alle_til) { $udskriv_til = $row['udskriv_til']; } else { $udskriv_til = $udskriv_alle_til; } $fakturanr = $row['fakturanr']; $mail_fakt = $row['mail_fakt']; $email[0] = $row['email']; $pbs = $row['pbs']; $mail_subj = $row['mail_subj']; $mail_text = $row['mail_text']; $mail_bilag = $row['dokument']; $procenttillag = $row['procenttillag'] * 1; # $ordresum=$row['sum']; # $ordremomssum=$row['moms']; $formularsprog = strtolower($row['sprog']); if (!$formularsprog) { $formularsprog = "dansk"; } if ($formular == 4 || $formular == 5) { if (!$fakturanr) { #20130508 return "Fakturering afbrudt (Fakturanr mangler)"; } elseif ($row['status'] < 3) { #20130508 return "Fakturering afbrudt (Status ikke opdateret)"; } elseif ($row['art'] == "DK") { $formular = 5; } else { $formular = 4; } } $y = 185; $antal_ordrelinjer = 25; $x = 0; $r = db_fetch_array(db_SELECT("select adresser.gruppe,ordrer.procenttillag from ordrer,adresser where ordrer.id = '{$ordre_id[$o]}' and adresser.id=ordrer.konto_id", __FILE__ . " linje " . __LINE__)); $gruppe = $r['gruppe']; $procenttillag = $r['procenttillag']; $r = db_fetch_array(db_select("select box8 from grupper where art='DG' and kodenr='{$gruppe}'", __FILE__ . " linje " . __LINE__)); $b2b = $r['box8']; } $bgr = "bg"; if ($formular == 5 && file_exists("../logolib/{$db_id}/kreditnota_bg.pdf")) { $bgr = "kreditnota_bg"; } elseif ($formular >= 3 && file_exists("../logolib/{$db_id}/faktura_bg.pdf")) { $bgr = "faktura_bg"; } elseif ($formular == 2 && file_exists("../logolib/{$db_id}/ordrer_bg.pdf")) { $bgr = "ordrer_bg"; } elseif ($formular <= 1 && file_exists("../logolib/{$db_id}/tilbud_bg.pdf")) { $bgr = "tilbud_bg"; } #cho "formular: $formular bg: $bgr<br>"; #exit(); print "<!-- kommentar for at skjule uddata til siden \n"; if (!file_exists("../logolib/{$db_id}")) { mkdir("../logolib/{$db_id}"); } if (system("which pdftk") && file_exists("../logolib/{$db_id}/{$bgr}.pdf")) { $logoart = 'PDF'; } elseif ($udskriv_til == 'PDF-tekst') { $logoart = 'PDF'; } elseif (file_exists("../logolib/{$db_id}/{$formular}.ps")) { $logo = "../logolib/{$db_id}/{$formular}.ps"; $logoart = 'PS'; } elseif (file_exists("../logolib/{$db_id}/{$bgr}.ps")) { $logo = "../logolib/{$db_id}/{$bgr}.ps"; $logoart = 'PS'; } else { $query = db_select("select * from formularer where formular = '{$formular}' and art = '1' and beskrivelse = 'LOGO' and lower(sprog)='{$formularsprog}'", __FILE__ . " linje " . __LINE__); if ($row = db_fetch_array($query)) { $logo_X = $row['xa'] * 2.86; $logo_Y = $row['ya'] * 2.86; } else { $logo_X = 430; $logo_Y = 758; } if (file_exists("../logolib/logo_{$db_id}.eps")) { $logo = "../logolib/logo_{$db_id}.eps"; } else { $logo = "../logolib/logo.eps"; } $logoart = 'EPS'; } print "-->\n"; if ($logoart != 'PDF') { $fsize = filesize($logo); $logofil = fopen($logo, "r"); $translate = 0; $logo = ""; while (!feof($logofil)) { $linje = fgets($logofil); if ($logoart == 'EPS') { if (substr($linje, 0, 2) != "%!") { if (strstr($linje, "translate") && !$translate) { $linje = "{$logo_X} {$logo_Y} translate \n"; $translate = 1; } $logo = $logo . $linje; } } else { if (strstr($linje, 'showpage')) { $linje = ''; } if (strstr($linje, '%%PageTrailer')) { $linje = ''; } if (strstr($linje, '%%Trailer')) { $linje = ''; } if (strstr($linje, '%%Pages:')) { $linje = ''; } if (strstr($linje, '%%EOF')) { $linje = ''; } $logo = $logo . $linje; } } fclose($logofil); } #cho "select * from formularer where formular = '$formular' and art = '3' and lower(sprog)='$formularsprog'<br>"; $query = db_select("select * from formularer where formular = '{$formular}' and art = '3' and lower(sprog)='{$formularsprog}'", __FILE__ . " linje " . __LINE__); while ($row = db_fetch_array($query)) { if ($row['beskrivelse'] == 'generelt') { $antal_ordrelinjer = $row['xa']; $ya = $row['ya']; $linjeafstand = $row['xb']; # $Opkt=$y-($antal_ordrelinjer*$linjeafstand); } else { $x++; $variabel[$x] = $row['beskrivelse']; $justering[$x] = $row['justering']; $xa[$x] = $row['xa']; $str[$x] = $row['str']; $laengde[$x] = $row['xb']; $color[$x] = $row['color']; $fed[$x] = $row['fed']; $kursiv[$x] = $row['kursiv']; $form_font[$x] = $row['font']; } $var_antal = $x; } if ($formular == 3 && !$lev_nr) { $r2 = db_fetch_array(db_select("select MAX(lev_nr) as lev_nr from batch_salg where ordre_id = {$ordre_id[$o]}", __FILE__ . " linje " . __LINE__)); $lev_nr = $r2['lev_nr'] * 1; } if ($formular == 3 || $formular == 9) { $udskriv_til = 'PDF'; } if ($mail_fakt && $formular != 3 && $udskriv_til != 'PDF') { $mailantal++; if ($formular <= 1) { $pfnavn = "tilbud" . $ordrenr; } if ($formular == 2) { $pfnavn = "ordrebek" . $ordrenr; } if ($formular == 4) { $pfnavn = "fakt" . $fakturanr; } if ($formular == 5) { $pfnavn = "kn" . $fakturanr; } if ($formular == 9) { $pfnavn = "plukliste" . $ordrenr; } if ($formular == 12) { $printfilnavn = "forslag" . $ordrenr; } if ($formular == 13) { $printfilnavn = "rekvisition.{$ordrenr}"; } if ($formular == 14) { $printfilnavn = "lev_fakt.{$ordrenr}"; } $email[$mailantal] = $email[0]; $mailsprog[$mailantal] = $formularsprog; $form_nr[$mailantal] = $formular; $pfliste[$mailantal] = $pfnavn; $pfnavn = $mappe . "/" . $pfnavn; $fp2 = fopen("{$pfnavn}", "w"); $fp = $fp2; } else { $nomailantal++; if ($ordre_antal <= 1) { #mere sige navn til udskrifter. if ($formular <= 1) { $printfilnavn = "tilbud" . $ordrenr; } if ($formular == 2) { $printfilnavn = "ordrebek" . $ordrenr; } if ($formular == 3) { $printfilnavn = "flgs" . $ordrenr . "_" . $lev_nr; } if ($formular == 4) { $printfilnavn = "fakt" . $fakturanr; } if ($formular == 5) { $printfilnavn = "kn" . $fakturanr; } if ($formular == 9) { $printfilnavn = "plukliste" . $ordrenr; } if ($formular == 12) { $printfilnavn = "forslag" . $ordrenr; } if ($formular == 13) { $printfilnavn = "rekvisition.{$ordrenr}"; } if ($formular == 14) { $printfilnavn = "lev_fakt.{$ordrenr}"; } $pfnavn = $mappe . "/" . $printfilnavn; $fp = fopen("{$pfnavn}", "w"); } } $side = 1; if ($logoart == 'PS') { fwrite($fp, $logo); } fwrite($fp, $initext); $rabat[0] = formulartekst($ordre_id[$o], $formular, $formularsprog); if ($ordre_id[$o]) { $id = $ordre_id[$o]; $x = 0; $sum = 0; $moms = 0; $momssum = 0; $tmp = 0; $saetnr = 0; #cho "$formular<br>"; #xit; if ($preview) { for ($x = 1; $x <= 22; $x++) { $posnr[$x] = $x; $varenr[$x] = utf8_iso8859('Varenr') . $x; $projekt[$x] = utf8_iso8859('Projektnr'); $beskrivelse[$x] = utf8_iso8859('Eksempel på en linjetekst'); } } else { if ($brugsamletpris) { $r = db_fetch_array(db_select("select varenr from ordrelinjer where ordre_id = {$ordre_id[$o]} and vare_id='{$rabatvare_id}'", __FILE__ . " linje " . __LINE__)); if ($r['varenr']) { $rabatvarenr = $r['varenr']; $rvnr = 1; } else { $rvnr = 0; } } # if ($rvnr) $qtxt="select * from ordrelinjer where ordre_id = '$ordre_id[$o]' order by saet,posnr"; # else #20150302 if ($brugsamletpris && $formular == 3) { $qtxt = "select * from ordrelinjer where ordre_id = '{$ordre_id[$o]}' and samlevare != 'on' and varenr != '{$rabatvarenr}' order by posnr"; } else { $qtxt = "select * from ordrelinjer where ordre_id = '{$ordre_id[$o]}' order by posnr"; } $q = db_select($qtxt, __FILE__ . " linje " . __LINE__); while ($row = db_fetch_array($q)) { if ($row['posnr'] > 0 && (!$row['samlevare'] || !is_numeric($row['samlevare'])) && (!in_array($row['posnr'], $posnr) || $formular != 3)) { # if ($x>=1 && $row['saet'] && !$saet[$x]) { # $x++; # $beskrivelse[$x]=" "; # $saet[$x]=0; # $samlevare[$x]=0; # } elseif ($x>=1 && $saet[$x] && $samlevare[$x]) { # $x--; # } $x++; $posnr[$x] = trim($row['posnr']); $varenr[$x] = trim($row['varenr']); $lev_varenr[$x] = trim($row['lev_varenr']); $projekt[$x] = $row['projekt']; $beskrivelse[$x] = stripslashes(trim($row['beskrivelse'])); if ($varenr[$x]) { $vare_id[$x] = $row['vare_id']; $linje_id[$x] = $row['id']; $antal[$x] = $row['antal'] * 1; $leveres[$x] = $row['leveres'] * 1; $dkantal[$x] = str_replace(".", ",", $antal[$x]); $momsfri[$x] = $row['momsfri']; $omvbet[$x] = $row['omvbet']; $saet[$x] = $row['saet']; $samlevare[$x] = $row['samlevare']; #cho "$posnr[$x] $saet[$x] $samlevare[$x]<br>"; $varemomssats[$x] = $row['momssats'] * 1; if (!$momsfri[$x] && !$varemomssats[$x]) { $varemomssats[$x] = $momssats; } if ($varemomssats[$x] > $momssats) { $varemomssats[$x] = $momssats; } list($a, $b) = explode(",", $dkantal[$x]); if ($b) { $dkantal[$x] = "{$a},{$b}"; } else { $dkantal[$x] = $a; } if ($formular == 5) { $antal[$x] = $antal[$x] * -1; $dkantal[$x] = str_replace("-", "", $dkantal[$x]); } if ($formular == 3 || $formular == 9) { if (in_array('lokation', $variabel)) { $r2 = db_fetch_array(db_select("select location from varer where id='{$vare_id[$x]}'", __FILE__ . " linje " . __LINE__)); if ($r2['location']) { if ($afd && strstr($r2['location'], "|")) { # 20150417 Ændret strpos til strstr $lokation = array(); $lokation = explode("|", $r2['location']); $beskrivelse[$x] .= chr(9) . $lokation[$afd - 1]; } else { $beskrivelse[$x] .= chr(9) . $r2['location']; } } } $lev_nr *= 1; $lev_antal[$x] = 0; $q2 = db_select("select antal from batch_salg where linje_id = {$linje_id[$x]} and lev_nr = {$lev_nr}", __FILE__ . " linje " . __LINE__); while ($r2 = db_fetch_array($q2)) { $lev_antal[$x] = $lev_antal[$x] + $r2['antal']; } $tidl_lev[$x] = 0; $q2 = db_select("select antal from batch_salg where linje_id = {$linje_id[$x]} and lev_nr < {$lev_nr}", __FILE__ . " linje " . __LINE__); while ($r2 = db_fetch_array($q2)) { $tidl_lev[$x] = $tidl_lev[$x] + $r2['antal']; } $rest[$x] = $antal[$x] - $lev_antal[$x] - $tidl_lev[$x]; } $enhed[$x] = $row['enhed']; $pris[$x] = $row['pris']; # if ($rvnr) { # if ($varenr[$x]=='R') list($pris[$x])=explode("|",$row['lev_varenr']); # $rabat[$x]=0; # } else { $rabat[$x] = $row['rabat']; # } $procent[$x] = $row['procent']; $row['rabat'] != 0 ? $m_rabat[$x] = 0 : ($m_rabat[$x] = $row['m_rabat'] * 1); $rabatart[$x] = $row['rabatart']; if ($rabatart[$x] == "amount") { $l_sum[$x] = afrund(($pris[$x] - $rabat[$x]) * $antal[$x], 2); $linjesum[$x] = ($pris[$x] - $rabat[$x]) * $antal[$x]; $linjemoms[$x] = $varemomssats[$x] / 100 * (($pris[$x] - $rabat[$x]) * $antal[$x]); } else { $l_sum[$x] = afrund($row['pris'] * $antal[$x] - $pris[$x] * $antal[$x] * $rabat[$x] / 100, 2); #Afrunding tilfoejet 2009.01.26 grundet diff i ordre 98 i saldi_104 $linjesum[$x] = $row['pris'] * $antal[$x] - $pris[$x] * $antal[$x] * $rabat[$x] / 100; $linjemoms[$x] = $varemomssats[$x] / 100 * ($pris[$x] * $antal[$x] - $row['pris'] * $antal[$x] * $rabat[$x] / 100); } if ($momsfri[$x] == 'on' || $omvbet[$x]) { $linjemoms[$x] = 0; } if ($procent[$x] || $procent[$x] == '0') { $l_sum[$x] = afrund($l_sum[$x] - $l_sum[$x] * (100 - $procent[$x]) / 100, 2); $linjesum[$x] = afrund($linjesum[$x] - $linjesum[$x] * (100 - $procent[$x]) / 100, 2); $linjemoms[$x] = afrund($linjemoms[$x] - $linjemoms[$x] * (100 - $procent[$x]) / 100, 2); } $sum += $linjesum[$x]; if ($momsfri[$x] != 'on' && !$omvbet[$x]) { $moms += afrund($l_sum[$x] * $varemomssats[$x] / 100, 3); #Decimaltal aendret til 3 2010.12.17 grundet momsdiff (0,01 kr) i ordre id 371 i saldi_297 $momssum += afrund($linjesum[$x], 2); #Afrunding tilfoejet 2009.01.26 grundet diff i ordre 98 i saldi_104 if ($incl_moms && !$b2b) { $tmp = afrund($pris[$x] + $pris[$x] * $varemomssats[$x] / 100, 2); if ($rabatart[$x] == "amount") { $linjesum[$x] = ($tmp - $rabat[$x]) * $antal[$x]; } else { $linjesum[$x] = $tmp * $antal[$x] - $tmp * $antal[$x] * $rabat[$x] / 100; } $pris[$x] = $tmp; } } if ($rvnr) { if ($varenr[$x] == $rabatvarenr) { list($pris[$x]) = explode("|", $row['lev_varenr']); } $rabat[$x] = 0; $linjesum[$x] = ($pris[$x] - $rabat[$x]) * $antal[$x]; } } else { $dkantal[$x] = NULL; $varemomssats[$x] = NULL; } $beskrivelse[$x] = var2str($beskrivelse[$x], $ordre_id[$o], $posnr[$x], $varenr[$x], $dkantal[$x], $enhed[$x], $pris[$x], $procent[$x], $serienr[$x], $varemomssats[$x], $rabat[$x]); if ($formular == 3 && $skjul_nul_lin && !$lev_antal[$x]) { $varenr[$x] = NULL; } # } else { $dkantal[$x] = NULL; } if ($saet[$x]) { if ($lev_varenr[$x]) { list($linjesum[$x]) = explode("|", $lev_varenr[$x], 2); $dkantal[$x] = ''; } else { $linjesum[$x] = ''; } $pris[$x] = ''; /* if ($saetnr && $saetnr!=$saet[$x]) { $r=db_fetch_array(db_select("select beskrivelse from varer where id = '$svid'",__FILE__ . " linje " . __LINE__)); $beskrivelse[$x]=$r['beskrivelse']; $linjesum[$x]=$saetpris; $saet[$x]=0; $saetpris=0; $saetpris=afrund($linjesum[$x-1],2); } else $saetpris+=afrund($linjesum[$x],2); $saetnr=$saet[$x]; */ } } /* if ($saet[$x] && $saetnr) { $x++; $r=db_fetch_array(db_select("select beskrivelse from varer where id = '$svid'",__FILE__ . " linje " . __LINE__)); $beskrivelse[$x]=$r['beskrivelse']; $linjesum[$x]=$saetpris; $saetpris=0; } */ $tmp = $row['rabat'] * 1; if ($x > 0 && $formular < 4 && !$tmp && $m_rabat[$x] && $status < 3) { $y = $x; $x++; $posnr[$x] = $posnr[$y]; $vare_id[$x] = $vare_id[$y]; $varenr[$x] = $varenr[$y]; $lev_varenr[$x] = $lev_varenr[$y]; $antal[$x] = $antal[$y]; $projekt[$x] = $projekt[$y]; # $beskrivelse[$x]=findtekst(366,$sprog_id); $dkantal[$x] = $dkantal[$y]; $lev_antal[$x] = $lev_antal[$y]; $leveres[$x] = $leveres[$y]; $tidl_lev[$x] = $tidl_lev[$y]; $rest[$x] = $rest[$y]; $enhed[$x] = ''; $rabat[$x] = $rabat[$y]; $incl_moms && !$b2b ? $tmp = $m_rabat[$y] + $m_rabat[$y] * $varemomssats[$y] / 100 : ($tmp = $m_rabat[$y]); $pris[$x] = $tmp * -1; $rabatpct = afrund($tmp * 100 / usdecimal($pris[$y]), 2); $l_sum[$x] = afrund($tmp * -$antal[$x], 3); $linjesum[$x] = $l_sum[$x]; # $linjesum[$x]=dkdecimal($l_sum[$x]); if ($varemomssats[$y] > 0) { $linjemoms[$x] = $varemomssats[$y] * $linjesum[$x] * 0.01; } else { $linjemoms[$x] = $varemomssats[$y] * $linjesum[$x]; } $sum += $l_sum[$x]; if ($momsfri[$y] != 'on' && !$omvbet[$x]) { $moms += afrund($m_rabat[$y] * $antal[$x] * $varemomssats[$y] / -100, 3); $momssum = $momssum + afrund($m_rabat[$y] * -$antal[$x], 2); } $rabatart[$x] == 'amount' ? $beskrivelse[$x] = findtekst(466, $sprog_id) : ($beskrivelse[$x] = findtekst(467, $sprog_id)); $beskrivelse[$x] = str_replace('$rabatpct', $rabatpct, $beskrivelse[$x]); } $linjeantal = $x; } if ($status < 3 && $procenttillag > 0) { $r = db_fetch_array(db_select("select box13 from grupper where art = 'DIV' and kodenr = '3'", __FILE__ . " linje " . __LINE__)); list($tmp, $procentvare) = explode(chr(9), $r['box13']); if ($procentvare && ($r = db_fetch_array(db_select("select beskrivelse from varer where varenr='{$procentvare}'", __FILE__ . " linje " . __LINE__)))) { $x++; $linjeantal++; $posnr[$x] = $posnr[$x - 1] + 1; $varenr[$x] = $procentvare; $beskrivelse[$x] = $r['beskrivelse']; $procent[$x] = $r['procent']; $dkantal[$x] = 1; $linjesum[$x] = $sum * $procenttillag / 100; if ($momssats) { $momssum += $linjesum[$x]; } $linjemoms[$x] = $linjesum[$x] / 100 * $momssats; $sum += $sum * $procenttillag / 100; $moms += $linjemoms[$x]; $pris[$x] = $linjesum[$x]; } } $y = $ya; $y_tjek = $y; $Opkt = $y - $antal_ordrelinjer * $linjeafstand; for ($x = 1; $x <= $linjeantal; $x++) { $beskrivelse[$x] = str_replace('$procenttillæg;', dkdecimal($procenttillag), $beskrivelse[$x]); $beskrivelse[$x] = str_replace('$procenttillæg', dkdecimal($procenttillag), $beskrivelse[$x]); $beskrivelse[$x] = str_replace('$antal;', $dkantal[$x], $beskrivelse[$x]); $beskrivelse[$x] = str_replace('$pris;', $pris[$x], $beskrivelse[$x]); $beskrivelse[$x] = str_replace('$linjesum;', $linjesum[$x], $beskrivelse[$x]); $beskrivelse[$x] = str_replace('$varenr;', $varenr[$x], $beskrivelse[$x]); $beskrivelse[$x] = str_replace('$rabat;', $rabat[$x], $beskrivelse[$x]); $beskrivelse[$x] = str_replace('$procent;', $procent[$x], $beskrivelse[$x]); $beskrivelse[$x] = str_replace('$antal', $dkantal[$x], $beskrivelse[$x]); $beskrivelse[$x] = str_replace('$pris', $pris[$x], $beskrivelse[$x]); $beskrivelse[$x] = str_replace('$linjesum', $linjesum[$x], $beskrivelse[$x]); $beskrivelse[$x] = str_replace('$varenr', $varenr[$x], $beskrivelse[$x]); $beskrivelse[$x] = str_replace('$rabat', $rabat[$x], $beskrivelse[$x]); $beskrivelse[$x] = str_replace('$procent', $procent[$x], $beskrivelse[$x]); if ($charset == "utf-8") { $varenr[$x] = utf8_iso8859($varenr[$x]); $lev_varenr[$x] = utf8_iso8859($lev_varenr[$x]); $beskrivelse[$x] = utf8_iso8859($beskrivelse[$x]); } /* if ($saet[$x]) { $linjesum[$x]=''; $linjemoms[$x]=''; $pris[$x]=''; $rabat[$x]=''; $procent[$x]=''; } else { */ $linjesum[$x] = dkdecimal($linjesum[$x]); $linjemoms[$x] = dkdecimal($linjemoms[$x]); $pris[$x] = dkdecimal($pris[$x]); $rabat[$x] = dkdecimal($rabat[$x]); $procent[$x] = dkdecimal($procent[$x]); # } $transportsum = $transportsum + $l_sum[$x - 1]; $skriv = 0; if ($kommentarprint == 'on' || $formular != 3 || $varenr[$x]) { $skriv = 1; } #Fordi tekst uden varenr ikke skal med paa foelgesedlen med mindre det er angivet i "formularprint"; # if ($saet[$x] && $samlevare[$x]) $skriv=0; #Fordi tekst uden varenr ikke skal med paa foelgesedlen med mindre det er angivet i "formularprint"; if ($skriv) { for ($z = 1; $z <= $var_antal; $z++) { if (substr($variabel[$z], 0, 8) == "fritekst") { $tmp = substr($variabel[$z], 9); $svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$tmp}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}"); } if ($y_tjek != $y) { #Det først skrevne felt på en linje bliver "ædt" ved sideskift. Derfor dette dummy felt. $svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}"); $y_tjek = $y; } if ($variabel[$z] == "posnr") { $svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$posnr[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}"); } elseif ($variabel[$z] == "varenr") { $svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$varenr[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}"); } elseif ($variabel[$z] == "lev_varenr") { $svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$lev_varenr[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}"); } elseif ($variabel[$z] == "leveres") { $svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$leveres[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}"); } elseif ($variabel[$z] == "projekt") { $svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$projekt[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}"); } elseif ($variabel[$z] == "antal") { $svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$dkantal[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}"); } elseif ($variabel[$z] == "lev_antal") { $svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$lev_antal[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}"); } elseif ($variabel[$z] == "tidl_lev") { $svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$tidl_lev[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}"); } elseif ($variabel[$z] == "lev_rest") { $svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$rest[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}"); } elseif ($variabel[$z] == "pris") { $svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$pris[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}"); } elseif ($variabel[$z] == "enhed") { $svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$enhed[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}"); } elseif ($variabel[$z] == "momssats") { $svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$varemomssats[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}"); } elseif ($variabel[$z] == "rabat") { $svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$rabat[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}"); } elseif ($variabel[$z] == "procent") { $svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$procent[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}"); } elseif ($variabel[$z] == "linjemoms") { $svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$linjemoms[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}"); } elseif ($variabel[$z] == "varemomssats") { $svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$varemomssats[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}"); } elseif ($variabel[$z] == "linjesum") { $svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$linjesum[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}"); } elseif ($variabel[$z] != "beskrivelse" && $variabel[$z] != "lokation") { $svar = skriv("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$variabel[$z]}", "fritekst_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", "{$formular}"); } elseif ($variabel[$z] == "beskrivelse") { $skriv_beskriv[$x] = $z; } } if ($z = $skriv_beskriv[$x]) { $y2 = ombryd("{$str[$z]}", "{$fed[$z]}", "{$kursiv[$z]}", "{$color[$z]}", "{$beskrivelse[$x]}", "ordrelinjer_" . $Opkt, "{$xa[$z]}", "{$y}", "{$justering[$z]}", "{$form_font[$z]}", $laengde[$z], $formular, $linjeafstand); } $y = $y2; if ($y == 0) { $y = $ya; } $y = $y - $linjeafstand; } } if ($brugsamletpris) { $r = db_fetch_array(db_select("select sum,moms from ordrer where id = '{$id}'")); $sum = $r['sum']; $moms = $r['moms']; } $momssum = afrund($momssum, 2); $sum = afrund($sum, 2); $ialt = dkdecimal($sum + $moms); $momsgrundlag = dkdecimal($momssum); $moms = dkdecimal($moms); $sum = dkdecimal($sum); } if ($id) { find_form_tekst($id, 'S', $formular, 0, $linjeafstand, ""); } # Sum paa sidste side. if ($ordre_id[$o]) { bundtekst($ordre_id[$o]); } # Uden denne skrives kun side 1 if ($mail_fakt) { fclose($fp2); } #cho "$o A $ordre_id[$o] $mappe/$pfliste[$o]<br>"; } fclose($fp); #cho "$mailantal -> $nomailantal<br>"; #xit; if ($mailantal > 0) { ini_set("include_path", ".:../phpmailer"); require "class.phpmailer.php"; if (!isset($exec_path)) { $exec_path = "/usr/bin"; } for ($x = 1; $x <= $mailantal; $x++) { #cho "$x B $ordre_id[$x] $mappe/$pfliste[$x]<br>"; print "<!-- kommentar for at skjule uddata til siden \n"; system("{$exec_path}/ps2pdf {$mappe}/{$pfliste[$x]} {$mappe}/{$pfliste[$x]}.pdf"); print "--> \n"; if ($logoart == 'PDF') { print "<!-- kommentar for at skjule uddata til siden \n"; $out = $mappe . "/" . $pfliste[$x] . "x.pdf"; system("{$exec_path}/pdftk {$mappe}/{$pfliste[$x]}.pdf background ../logolib/{$db_id}/{$bgr}.pdf output {$out}"); # unlink ("$mappe/$pfliste[$x].pdf"); system("mv {$out} {$mappe}/{$pfliste[$x]}.pdf"); print "--> \n"; } $o = $x - 1; $svar = send_mails("{$ordre_id[$o]}", "{$mappe}/{$pfliste[$x]}.pdf", $email[$x], $mailsprog[$x], $form_nr[$x], "{$mail_subj}", "{$mail_text}", "{$mail_bilag}", $x); # return($svar); } } #if ($mailantal>0) include("mail_faktura.php"); if ($nomailantal > 0) { print "<meta http-equiv=\"refresh\" content=\"0;URL=../includes/udskriv.php?ps_fil={$mappe}/{$printfilnavn}&id={$id}&udskriv_til={$udskriv_til}&art={$art}&bgr={$bgr}\">"; } elseif ($popup) { print "<meta http-equiv=\"refresh\" content=\"0;URL=../includes/luk.php\">"; } #else print "<meta http-equiv=\"refresh\" content=\"0;URL=ordre.php?id=$id\">"; return 'OK'; print "<!--function formularprint s**t-->"; }
function overfoer_data($filnavn, $splitter, $feltnavn, $feltantal, $tegnset) { global $charset; $fp = fopen("{$filnavn}", "r"); if ($fp) { for ($y = 1; $y < 4; $y++) { $tmp = fgets($fp); if ($tmp) { $linje = $tmp; } } $tmp = $linje; while ($tmp = substr(strstr($tmp, ";"), 1)) { $semikolon++; } $tmp = $linje; while ($tmp = substr(strstr($tmp, ","), 1)) { $komma++; } $tmp = $linje; while ($tmp = substr(strstr($tmp, chr(9)), 1)) { $tabulator++; } $tmp = ''; if ($komma > $semikolon && $komma > $tabulator) { $tmp = 'Komma'; $feltantal = $komma; } elseif ($semikolon > $tabulator && $semikolon > $komma) { $tmp = 'Semikolon'; $feltantal = $semikolon; } elseif ($tabulator > $semikolon && $tabulator > $komma) { $tmp = 'Tabulator'; $feltantal = $tabulator; } if (!$splitter) { $splitter = $tmp; } $cols = $feltantal + 1; } fclose($fp); $x = 0; $q = db_select("select * from varianter", __FILE__ . " linje " . __LINE__); while ($r = db_fetch_array($q)) { $varianter_id[$x] = $r['id']; $varianter_beskrivelse[$x] = strtolower($r['beskrivelse']); $varianter_shop_id[$x] = $r['shop_id']; $x++; } $q = db_select("select * from variant_varer order by variant_stregkode", __FILE__ . " linje " . __LINE__); while ($r = db_fetch_array($q)) { if ($stregkode == $r['variant_stregkode']) { db_modify("delete from variant_varer where id='{$r['id']}'", __FILE__ . " linje " . __LINE__); } else { $stregkode = $r['variant_stregkode']; } } $x = 0; $q = db_select("select * from variant_typer", __FILE__ . " linje " . __LINE__); while ($r = db_fetch_array($q)) { $variant_type_id[$x] = $r['id']; $variant_type_variant_id[$x] = $r['variant_id']; $variant_type_beskrivelse[$x] = strtolower($r['beskrivelse']); $variant_type_shop_id[$x] = $r['shop_id']; $x++; } $x = 0; $q = db_select("select varenr,id,varianter from varer", __FILE__ . " linje " . __LINE__); while ($r = db_fetch_array($q)) { $varer_id[$x] = $r['id']; $varer_nr[$x] = $r['varenr']; $varer_varianter[$x] = $r['varianter']; $x++; } for ($y = 0; $y <= $feltantal; $y++) { for ($x = 0; $x <= $felt_antal; $x++) { if ($felt_navn[$x] && $feltnavn[$y] == $felt_navn[$x] && $felt_aktiv[$x] == 1) { print "<BODY onLoad=\"javascript:alert('Der kan kun være 1 kolonne med {$felt_navn[$x]}')\">"; $feltnavn[$y] = ''; } elseif ($felt_navn[$x] && $feltnavn[$y] == $felt_navn[$x]) { $felt_aktiv[$x] = 1; } } } print "<tr><td colspan={$cols}><hr></td></tr>\n"; if (!$splitter || $splitter == 'Semikolon') { $splitter = ';'; } elseif ($splitter == 'Komma') { $splitter = ','; } elseif ($splitter == 'Tabulator') { $splitter = chr(9); } # print "<tr><td><span title='Angiv 1. bilagsnummer'><input type=text size=4 name=bilag value=$bilag></span></td>"; transaktion('begin'); #echo "delete from kontoplan where regnskabsaar='$regnskabsaar'<br>"; #db_modify("delete from de where regnskabsaar='$regnskabsaar'");attrelid attname $r = db_fetch_array(db_select("SELECT relfilenode FROM pg_class WHERE relname = 'variant_varer'", __FILE__ . " linje " . __LINE__)); $relfilenode = $r['relfilenode'] * 1; $r = db_fetch_array(db_select("SELECT * FROM pg_attribute WHERE attrelid= '{$relfilenode}' and attname = 'variant_salgspris'", __FILE__ . " linje " . __LINE__)); if ($r['attisdropped'] != 'f' || !$r['attname']) { db_modify("alter TABLE variant_varer ADD variant_salgspris numeric(15,3)", __FILE__ . " linje " . __LINE__); } $r = db_fetch_array(db_select("SELECT * FROM pg_attribute WHERE attrelid= '{$relfilenode}' and attname = 'variant_kostpris'", __FILE__ . " linje " . __LINE__)); if ($r['attisdropped'] != 'f' || !$r['attname']) { db_modify("alter TABLE variant_varer ADD variant_kostpris numeric(15,3)", __FILE__ . " linje " . __LINE__); } $r = db_fetch_array(db_select("SELECT * FROM pg_attribute WHERE attrelid= '{$relfilenode}' and attname = 'variant_vejlpris'", __FILE__ . " linje " . __LINE__)); if ($r['attisdropped'] != 'f' || !$r['attname']) { db_modify("alter TABLE variant_varer ADD variant_vejlpris numeric(15,3)", __FILE__ . " linje " . __LINE__); } $fp = fopen("{$filnavn}", "r"); if ($fp) { $kontonumre = array(); $x = 0; $imp_antal = 0; $upd_antal = 0; $kostpris = 0; $salgspris = 0; $variant_type = NULL; $varenr = ""; while (!feof($fp)) { $skriv_linje = 0; if ($linje = fgets($fp)) { $x++; $skriv_linje = 1; if ($charset == 'UTF-8' && $tegnset != 'UTF-8') { $linje = utf8_encode($linje); } elseif ($charset != 'UTF-8' && $tegnset == 'UTF-8') { $linje = utf8_decode($linje); } $variant_type = NULL; $felt = array(); $felt = opdel($splitter, $linje); for ($y = 0; $y < count($felt); $y++) { $medtag_felt[$y] = 1; if ($feltnavn[$y] == 'salgspris') { $feltnavn[$y] = "variant_salgspris"; } if ($feltnavn[$y] == 'kostpris') { $feltnavn[$y] = "variant_kostpris"; } if ($feltnavn[$y] == 'vejl.pris') { $feltnavn[$y] = "variant_vejlpris"; } if ($feltnavn[$y] == 'varenr') { $feltnavn[$y] = "vare_id"; } if ($feltnavn[$y] == 'stregkode') { $feltnavn[$y] = "variant_stregkode"; } $felt[$y] = trim($felt[$y]); $feltnavn[$y] = strtolower($feltnavn[$y]); if (substr($felt[$y], 0, 1) == '"' && substr($felt[$y], -1) == '"') { $felt[$y] = substr($felt[$y], 1, strlen($felt[$y]) - 2); } if ($feltnavn[$y] == 'stregkode') { if (!($stregkode = $felt[$y])) { $skriv_linje = 0; } } if ($feltnavn[$y] == 'vare_id') { for ($i = 0; $i < count($varer_id); $i++) { if ($felt[$y] == $varer_nr[$i]) { $felt[$y] = $varer_id[$i]; $vare_id = $varer_id[$i]; break 1; } } $felt[$y] *= 1; } if ($feltnavn[$y] == 'variant_kostpris') { $tmp = str_replace(",", "", $felt[$y]); $tmp = str_replace(".", "", $tmp); if ($tmp && !is_numeric($tmp)) { $skriv_linje = 0; } elseif (!is_numeric($felt[$y])) { $felt[$y] = usdecimal($felt[$y]); } $kostpris = $felt[$y] * 1; } if ($feltnavn[$y] == 'variant_salgspris') { $tmp = str_replace(",", "", $felt[$y]); $tmp = str_replace(".", "", $tmp); if ($tmp && !is_numeric($tmp)) { $skriv_linje = 0; } elseif (!is_numeric($felt[$y])) { $felt[$y] = usdecimal($felt[$y]); } $salgspris = $felt[$y] * 1; } if ($feltnavn[$y] == 'variant_vejlpris') { $tmp = str_replace(",", "", $felt[$y]); $tmp = str_replace(".", "", $tmp); if ($tmp && !is_numeric($tmp)) { $skriv_linje = 0; } elseif (!is_numeric($felt[$y])) { $felt[$y] = usdecimal($felt[$y]); } $vejlpris = $felt[$y] * 1; } #cho "F $feltnavn[$y]<br>"; if (in_array(strtolower($feltnavn[$y]), $varianter_beskrivelse)) { $medtag_felt[$y] = 0; for ($i = 0; $i < count($varianter_id); $i++) { if (strtolower($feltnavn[$y]) == $varianter_beskrivelse[$i]) { for ($v = 0; $v < count($varer_id); $v++) { if ($varer_id[$v] == $vare_id) { $v_var = explode(chr(9), $varer_varianter[$v]); if (!in_array($varianter_id[$i], $v_var)) { if ($varer_varianter[$v]) { $varer_varianter[$v] .= chr(9) . $varianter_id[$i]; } else { $varer_varianter[$v] = $varianter_id[$i]; } } } } #echo strtolower($feltnavn[$y])."==".$varianter_beskrivelse[$i]."<br>"; #echo "Felt = $felt[$y]<br>"; $tmp = NULL; for ($t = 0; $t < count($variant_type_id); $t++) { #cho "$felt[$y]!=$variant_type_beskrivelse[$t]<br>"; if (strtolower($felt[$y]) == strtolower($variant_type_beskrivelse[$t])) { # $nyt_feltnavn[$y]=$feltnavn[$y]; $tmp = $variant_type_id[$t]; } # $variant_type_id[$x]=$r['id']; # $variant_type_variant_id[$x]=$r['variant_id']; # $variant_type_beskrivelse[$x]=strtolower($r['beskrivelse']); # $variant_type_shop_id[$x]=$r['shop_id']; } $felt[$y] = $tmp; if ($variant_type) { #cho "$variant_type.=chr(9).$tmp<br>"; $variant_type .= chr(9) . $tmp; } else { #cho "$variant_type.=chr(9).$tmp<br>"; $variant_type = $tmp; } } } } if ($feltnavn[$y] == 'variant_stregkode') { $stregkode = $felt[$y]; } } } if ($skriv_linje == 1) { $vare_a = "variant_type"; $vare_b = "'" . $variant_type . "'"; $upd = "variant_type='" . $variant_type . "'"; for ($y = 0; $y <= $feltantal; $y++) { if ($feltnavn[$y] && $medtag_felt[$y]) { if ($nyt_feltnavn[$y]) { $feltnavn[$y] = $nyt_feltnavn[$y]; } $felt[$y] = db_escape_string($felt[$y]); $vare_a .= "," . $feltnavn[$y]; $vare_b .= ",'" . $felt[$y] . "'"; $upd = $upd . "," . $feltnavn[$y] . "='" . $felt[$y] . "'"; } } #cho "select id from variant_varer where variant_stregkode='$stregkode'<br>"; if ($r = db_fetch_array(db_select("select id from variant_varer where variant_stregkode='{$stregkode}'", __FILE__ . " linje " . __LINE__))) { $variant_id = $r['id']; $upd_antal++; #cho "update variant_varer set $upd where id='$variant_id'<br>"; db_modify("update variant_varer set {$upd} where id='{$variant_id}'", __FILE__ . " linje " . __LINE__); } else { $imp_antal++; #cho "insert into variant_varer($vare_a) values ($vare_b)<br>"; db_modify("insert into variant_varer({$vare_a}) values ({$vare_b})", __FILE__ . " linje " . __LINE__); } } } } fclose($fp); for ($v = 0; $v < count($varer_id); $v++) { if ($varer_varianter[$v]) { $v_var = explode(chr(9), $varer_varianter[$v]); $v2 = array(); $tmp = NULL; for ($i = 0; $i < count($v_var); $i++) { if (!in_array($v_var[$i], $v2)) { $tmp ? $tmp .= chr(9) . $v_var[$i] : ($tmp = $v_var[$i]); } $v2[$i] = $v_var[$i]; } db_modify("update varer set varianter = '{$tmp}' where id='{$varer_id[$v]}'", __FILE__ . " linje " . __LINE__); } } transaktion('commit'); print "</tbody></table>"; print "</td></tr>"; print "<BODY onLoad=\"javascript:alert('{$imp_antal} variant_varer importeret, {$upd_antal} variant_varer opdateret')\">"; #print "<BODY onLoad=\"javascript:alert('$imp_antal varianter importeret')\">"; #print "<meta http-equiv=\"refresh\" content=\"0;URL=../includes/luk.php\">"; exit; }
function overfoer_data($filnavn, $splitter, $feltnavn, $feltantal) { global $charset; $x = 0; $fp = fopen("../importfiler/postnr.csv", "r"); if ($fp) { while (!feof($fp)) { $x++; $linje = trim(fgets($fp)); list($postnr[$x], $bynavn[$x]) = split(chr(9), $linje); } } fclose($fp); $postnr_antal = $x; $fp = fopen("{$filnavn}", "r"); if ($fp) { for ($y = 1; $y < 4; $y++) { $linje = fgets($fp); } $tmp = $linje; while ($tmp = substr(strstr($tmp, ";"), 1)) { $semikolon++; } $tmp = $linje; while ($tmp = substr(strstr($tmp, ","), 1)) { $komma++; } $tmp = $linje; while ($tmp = substr(strstr($tmp, chr(9)), 1)) { $tabulator++; } $tmp = ''; if ($komma > $semikolon && $komma > $tabulator) { $tmp = 'Komma'; $feltantal = $komma; } elseif ($semikolon > $tabulator && $semikolon > $komma) { $tmp = 'Semikolon'; $feltantal = $semikolon; } elseif ($tabulator > $semikolon && $tabulator > $komma) { $tmp = 'Tabulator'; $feltantal = $tabulator; } if (!$splitter) { $splitter = $tmp; } $cols = $feltantal + 1; } fclose($fp); for ($y = 0; $y <= $feltantal; $y++) { for ($x = 0; $x <= $felt_antal; $x++) { if ($felt_navn[$x] && $feltnavn[$y] == $felt_navn[$x] && $felt_aktiv[$x] == 1) { print "<BODY onLoad=\"javascript:alert('Der kan kun være 1 kolonne med {$felt_navn[$x]}')\">"; $feltnavn[$y] = ''; } elseif ($felt_navn[$x] && $feltnavn[$y] == $felt_navn[$x]) { $felt_aktiv[$x] = 1; } } } print "<tr><td colspan={$cols}><hr></td></tr>\n"; if (!$splitter || $splitter == 'Semikolon') { $splitter = ';'; } elseif ($splitter == 'Komma') { $splitter = ','; } elseif ($splitter == 'Tabulator') { $splitter = chr(9); } # print "<tr><td><span title='Angiv 1. bilagsnummer'><input type=text size=4 name=bilag value=$bilag></span></td>"; transaktion('begin'); #echo "delete from kontoplan where regnskabsaar='$regnskabsaar'<br>"; #db_modify("delete from de where regnskabsaar='$regnskabsaar'"); $fp = fopen("{$filnavn}", "r"); if ($fp) { $kontonumre = array(); $x = 0; $imp_antal = 0; while (!feof($fp)) { $skriv_linje = 0; if ($linje = trim(fgets($fp))) { $x++; $skriv_linje = 1; if ($charset == 'UTF-8') { $linje = utf8_encode($linje); } $felt = array(); $felt = opdel($splitter, $linje); for ($y = 0; $y <= $feltantal; $y++) { $felt[$y] = trim($felt[$y]); $feltnavn[$y] = strtolower($feltnavn[$y]); if (substr($felt[$y], 0, 1) == '"' && substr($felt[$y], -1) == '"') { $felt[$y] = substr($felt[$y], 1, strlen($felt[$y]) - 2); } if ($feltnavn[$y] == 'kontonr' && !is_numeric($felt[$y])) { $kontonr = 0; $skriv_linje = 2; # print "<BODY onLoad=\"javascript:alert('Røde linjer indeholder fejl (kontonummer ikke numerisk) og bliver ikke importeret')\">"; # print "<BODY onLoad=\"javascript:alert('Kontonrnummer skal være numerisk')\">"; } elseif ($feltnavn[$y] == 'kontonr') { $kontonr = $felt[$y]; } if ($feltnavn[$y] == "postnr") { list($felt[$y], $bynavn[$y]) = split(" ", $felt[$y], 2); } if ($feltnavn[$y] == 'kontoansvarlig' && $felt[$y] && $kontonr) { $r = db_fetch_array(db_select("select id from adresser where kontonr='{$kontonr}'", __FILE__ . " linje " . __LINE__)); $konto_id = $r['id'] * 1; $r = db_fetch_array(db_select("select id from ansatte where initialer='{$felt[$y]}' and konto_id={$konto_id}", __FILE__ . " linje " . __LINE__)); $felt[$y] = $r['id'] * 1; } elseif ($feltnavn[$y] == 'kontoansvarlig') { $felt[$y] = '0'; } if ($feltnavn[$y] == 'oprettet' && $felt[$y] && $kontonr) { $felt[$y] = usdate($felt[$y]); } elseif ($feltnavn[$y] == 'oprettet') { $felt[$y] = date("Y-m-d"); } if ($feltnavn[$y] == 'kreditmax') { $felt[$y] = usdecimal($felt[$y]); } if ($feltnavn[$y] == 'betalingsdage') { $felt[$y] = $felt[$y] * 1; } } } if ($skriv_linje == 1) { $addr_a = ''; $addr_b = ''; $kontakt_a = ''; $kontakt_b = ''; for ($y = 0; $y <= $feltantal; $y++) { if ($feltnavn[$y]) { $felt[$y] = addslashes($felt[$y]); if (!strstr($feltnavn[$y], "kontakt_")) { if ($y > 0) { $addr_a = $addr_a . ","; $addr_b = $addr_b . ","; } $addr_a = $addr_a . $feltnavn[$y]; $addr_b = $addr_b . "'" . $felt[$y] . "'"; } else { if ($kontakt_a) { $kontakt_a = $kontakt_a . ","; $kontakt_b = $kontakt_b . ","; } $tmp = substr($feltnavn[$y], 8); $kontakt_a = $kontakt_a . $tmp; $kontakt_b = $kontakt_b . "'" . $felt[$y] . "'"; } } } if ($r = db_fetch_array(db_select("select id from adresser where kontonr='{$kontonr}'", __FILE__ . " linje " . __LINE__))) { $imp_antal++; db_modify("delete from adresser where id = '{$r['id']}'", __FILE__ . " linje " . __LINE__); db_modify("insert into adresser(id,{$addr_a},art) values ({$r['id']},{$addr_b},'K')", __FILE__ . " linje " . __LINE__); } else { $imp_antal++; db_modify("insert into adresser({$addr_a}, art) values ({$addr_b}, 'K')", __FILE__ . " linje " . __LINE__); } $r = db_fetch_array(db_select("select id from adresser where kontonr='{$kontonr}' and art = 'K'", __FILE__ . " linje " . __LINE__)); $konto_id = $r['id']; if ($kontakt_a && !($r = db_fetch_array(db_select("select id from ansatte where konto_id='{$konto_id}'", __FILE__ . " linje " . __LINE__)))) { db_modify("insert into ansatte({$kontakt_a}, konto_id) values ({$kontakt_b}, '{$konto_id}')", __FILE__ . " linje " . __LINE__); } } } } fclose($fp); transaktion('commit'); print "</tbody></table>"; print "</td></tr>"; print "<BODY onLoad=\"javascript:alert('{$imp_antal} adresser importeret')\">"; print "<meta http-equiv=\"refresh\" content=\"0;URL=../includes/luk.php\">"; }
function betalingskontrol($erh, $fra_kto, $egen_ref, $til_kto, $kort_ref, $modt_navn, $belob, $valuta, $betalingsdato) { $k1[$x] = NULL; $k2[$x] = NULL; $k3[$x] = NULL; $k4[$x] = NULL; $k5[$x] = NULL; $k6[$x] = NULL; $k7[$x] = NULL; $k8[$x] = NULL; if (!$fra_kto || !is_numeric($fra_kto) || strlen($fra_kto) != 14) { $k1[$x] = "Egen konto ikke gyldig"; } if ($erh == 'ERH351' || $erh == 'ERH352' || $erh == 'ERH358' || $erh == 'SDCK020') { if (!$til_kto || !is_numeric($til_kto) || strlen($til_kto) != 8) { $k3[$x] = "Modtager konto ikke gyldig - skal være på 8 cifre"; } if (!$kort_ref || !is_numeric($kort_ref)) { $k4[$x] = "Ugyldig betalingsidentifikation (modt. ref - må kun bestå af cifre)"; } else { if ($erh == 'ERH351' || ($erh = 'SDCK020')) { $len = 15; #strlen af ERH351 og SDCK020 skal vaere 15 } else { $len = 16; } for ($x = strlen($kort_ref); $x < $len; $x++) { $kort_ref = '0' . $kort_ref; } for ($x = $len - 1; $x >= 0; $x--) { #Beregning af kontrolciffer. $y = substr($kort_ref, $x, 1) * 2; $x--; $y = substr($kort_ref, $x, 1) * 1; } while ($y > 9) { #Reduktion af kontrolciffer $y = substr($y, 0, 1) + ($y = substr($y, 1, 1)); } if (substr($kort_ref, -1) != $y) { $kommentar = "Ugyldig betalingsidentifikation (modt. ref - kontrolciffer passer ikke)"; } } } elseif ($erh == 'ERH355' || $erh == 'ERH356' || ($erh = 'SDC3')) { if (!$til_kto || !is_numeric($til_kto) || strlen($til_kto) != 14) { $k3[$x] = "Modtager konto ikke gyldig - skal være på 14 cifre (regnr. på 4 og kontonr på 10)"; } if (!$kort_ref) { $k4[$x] = "Modt ref skal udfyldes"; } } if (usdecimal($belob) < 0.01) { $k4[$x] = "Beløb skal være større end 0"; } if ($valuta != 'DKK') { $k5[$x] = "Ugyldig valuta, kun DKK kan anvendes"; } if (strlen($betalingsdato) != 8) { $k6[$x] = "ugyldig dato - skal være i formatet ddmmyyyy"; } $dag = substr($betalingsdato, 0, 2); $md = substr($betalingsdato, 2, 2); $aar = substr($betalingsdato, 4); $bd = $aar . $md . $dag; $dd = date("Ymd"); if ($dd > $bd) { $k8[$x] = "Betalingsdato er overskredet"; } if (!checkdate($md, $dag, $aar)) { $k8[$x] = "ugyldig dato - skal være i formatet ddmmyyyy"; } # echo "$kort_ref,$kommentar -- "; return array($kort_ref, $k1[$x], $k2[$x], $k3[$x], $k4[$x], $k5[$x], $k6[$x], $k7[$x], $k8[$x], $k9[$x]); }
function opdater_varer($kodenr, $art, $box1, $box2, $box3, $box4) { if ($art == 'VPG' && $kodenr) { if ($box1) { $box1 = usdecimal($box1); } if ($box2) { $box2 = usdecimal($box2); } if ($box3) { $box3 = usdecimal($box3); } if ($box4) { $box4 = usdecimal($box4); } if ($box1) { db_modify("update varer set kostpris='{$box1}' where prisgruppe = '{$kodenr}'", __FILE__ . " linje " . __LINE__); } if ($box2) { db_modify("update varer set salgspris='{$box2}' where prisgruppe = '{$kodenr}'", __FILE__ . " linje " . __LINE__); } if ($box3) { db_modify("update varer set retail_price='{$box3}' where prisgruppe = '{$kodenr}'", __FILE__ . " linje " . __LINE__); } if ($box4) { db_modify("update varer set tier_price='{$box4}' where prisgruppe = '{$kodenr}'", __FILE__ . " linje " . __LINE__); } return $box1 . ";" . $box2 . ";" . $box3 . ";" . $box4; } if ($art == 'VTG' && $kodenr) { if ($box1) { $box1 = usdecimal($box1); } if ($box2) { $box2 = usdecimal($box2); } if ($box3) { $box3 = usdate($box3); } if ($box4) { $box4 = usdate($box4); } if ($box1) { db_modify("update varer set special_price='{$box1}' where tilbudgruppe = '{$kodenr}'", __FILE__ . " linje " . __LINE__); } if ($box2) { db_modify("update varer set campaign_cost='{$box2}' where tilbudgruppe = '{$kodenr}'", __FILE__ . " linje " . __LINE__); } if ($box3) { db_modify("update varer set special_from_date='{$box3}' where tilbudgruppe = '{$kodenr}'", __FILE__ . " linje " . __LINE__); } if ($box4) { db_modify("update varer set special_to_date='{$box4}' where tilbudgruppe = '{$kodenr}'", __FILE__ . " linje " . __LINE__); } return $box1 . ";" . $box2 . ";" . $box3 . ";" . $box4; } if ($art == 'VRG' && $kodenr) { if ($box2) { $box2 = usdecimal($box2); } if ($box3) { $box3 = usdecimal($box3); } if ($box1) { db_modify("update varer set m_type='{$box1}' where rabatgruppe = '{$kodenr}'", __FILE__ . " linje " . __LINE__); } if ($box2) { db_modify("update varer set m_rabat='{$box2}' where rabatgruppe = '{$kodenr}'", __FILE__ . " linje " . __LINE__); } if ($box3) { db_modify("update varer set m_antal='{$box3}' where rabatgruppe = '{$kodenr}'", __FILE__ . " linje " . __LINE__); } } }
function flyt_data($kladde_id, $filnavn, $splitter, $feltnavn, $feltantal, $bilag, $datoformat) { global $charset; transaktion('begin'); $splitter = chr(9); $fp = fopen($filnavn . "2", "r"); if ($fp) { $x = 0; while (!feof($fp)) { $skriv_linje = 0; if ($linje = trim(fgets($fp))) { $x++; $skriv_linje = 1; $felt = array(); $felt = explode($splitter, $linje); for ($y = 0; $y <= $feltantal; $y++) { $felt[$y] = trim($felt[$y]); if (substr($felt[$y], 0, 1) == '"' && substr($felt[$y], -1) == '"') { $felt[$y] = substr($felt[$y], 1, strlen($felt[$y]) - 2); } if ($feltnavn[$y] == 'dato') { $felt[$y] = datotjek($datoformat, $felt[$y]); } # if ($feltnavn[$y]=='dato') $felt[$y]=str_replace(".","-",$felt[$y]); if ($feltnavn[$y] == 'belob') { if (nummertjek($felt[$y]) == 'US') { $felt[$y] = dkdecimal($felt[$y]); } elseif (nummertjek($felt[$y]) != 'DK') { $skriv_linje = 0; } } } } if ($skriv_linje == 1) { for ($y = 0; $y <= $feltantal; $y++) { $bilag = $bilag * 1; if ($feltnavn[$y] == 'bilag') { $bilag = $felt[$y] * 1; } if ($feltnavn[$y] == 'belob') { $amount = usdecimal($felt[$y]); } elseif ($feltnavn[$y] == "dato") { $transdate = usdate($felt[$y]); } elseif ($feltnavn[$y] == "beskrivelse") { $beskrivelse = addslashes($felt[$y]); } elseif ($feltnavn[$y] == "debet") { $d_type = "F"; $debet = $felt[$y]; } elseif ($feltnavn[$y] == "kredit") { $d_type = "F"; $kredit = $felt[$y]; } elseif ($feltnavn[$y] == "debitor") { $d_type = "D"; $debet = $felt[$y]; } elseif ($feltnavn[$y] == "kreditor") { $k_type = "K"; $kredit = $felt[$y]; } elseif ($feltnavn[$y] == "fakturanr") { $fakturanr = addslashes($felt[$y]); } } if (!$transdate) { $transdate = date('Y-m-d'); } #20150105 if ($amount * 1 != 0) { # $debet=$debet*1;$kredit=$kredit*1; $felttext1 = NULL; $felttext2 = NULL; if (is_numeric($debet)) { $felttext1 = "d_type,debet,"; $felttext2 = "'{$d_type}','{$debet}',"; } if (is_numeric($kredit)) { $felttext1 = $felttext1 . "k_type,kredit,"; $felttext2 = $felttext2 . "'{$k_type}','{$kredit}',"; } db_modify("insert into kassekladde (bilag, transdate, beskrivelse,{$felttext1} faktura, amount, kladde_id) values ('{$bilag}', '{$transdate}', '{$beskrivelse}',{$felttext2} '{$fakturanr}','{$amount}', '{$kladde_id}')", __FILE__ . " linje " . __LINE__); if (!in_array('bilag', $feltnavn)) { $bilag++; } } } } } fclose($fp); unlink($filnavn); # sletter filen. unlink($filnavn . "2"); # sletter filen. transaktion('commit'); print "<meta http-equiv=\"refresh\" content=\"0;URL=kassekladde.php?kladde_id={$kladde_id}\">"; }
} if ($slutdate < date("Y-m-d")) { $lukket = 'on'; } #echo "update ansatte set navn='$navn',nummer='$nummer',initialer='$initialer',konto_id='$konto_id',addr1='$addr1',addr2='$addr2',postnr='$postnr',bynavn='$bynavn',email='$email',tlf='$tlf',fax='$fax',privattlf='$privattlf',mobil='$mobil',cprnr='$cprnr',notes='$notes',afd='$afd',lukket='$lukket',bank='$bank',startdate='$startdate',slutdate='$slutdate',loen='$loen',extraloen='$extraloen',trainee='$trainee' where id='$id'<br>"; db_modify("update ansatte set navn='{$navn}',nummer='{$nummer}',initialer='{$initialer}',konto_id='{$konto_id}',addr1='{$addr1}',addr2='{$addr2}',postnr='{$postnr}',bynavn='{$bynavn}',email='{$email}',tlf='{$tlf}',fax='{$fax}',privattlf='{$privattlf}',mobil='{$mobil}',cprnr='{$cprnr}',notes='{$notes}',afd='{$afd}',lukket='{$lukket}',bank='{$bank}',startdate='{$startdate}',slutdate='{$slutdate}',loen='{$loen}',extraloen='{$extraloen}',trainee='{$trainee}' where id='{$id}'", __FILE__ . " linje " . __LINE__); if ($menu == 'T') { header("location:ansatte.php?id={$id}&funktion=ret_ansat"); } } for ($x = 1; $x <= $pro_antal; $x++) { if ($provision_id[$x]) { $provision[$x] = usdecimal($provision[$x]); db_modify("update provision set provision='{$provision[$x]}',gruppe_id='{$gruppe_id[$x]}' where id = '{$provision_id[$x]}'", __FILE__ . " linje " . __LINE__); } elseif ($provision[$x]) { $provision[$x] = usdecimal($provision[$x]); if (!($r = db_fetch_array(db_select("select id from provision where gruppe_id = '{$gruppe_id[$x]}' and ansat_id='{$id}'", __FILE__ . " linje " . __LINE__)))) { db_modify("insert into provision (provision,gruppe_id,ansat_id) values ('{$provision[$x]}','{$gruppe_id[$x]}','{$id}')", __FILE__ . " linje " . __LINE__); } } } $box = if_isset($_POST['box']); $extra_id_0 = if_isset($_POST['extra_id_0']); $extra_id_1 = if_isset($_POST['extra_id_1']); if (count($box) && $id > 0) { if (!$extra_id_0) { $r = db_fetch_array($q = db_select("select id from grupper where art='ANSAT' and kodenr='{$id}' and (kode='0' or kode = NULL)", __FILE__ . " linje " . __LINE__)); $extra_id_0 = $r['id']; } if (!$extra_id_0) { db_modify("insert into grupper (beskrivelse,kodenr,kode,art) values ('Ekstra felter på ansatte stamkort','{$id}','0','ANSAT')", __FILE__ . " linje " . __LINE__);
db_modify("update ordrelinjer set kostpris='{$kostpris[$x]}' where id = '{$linje_id[$x]}'", __FILE__ . " linje " . __LINE__); } } else { $pris[$x] = usdecimal($_POST[$y]); } if ($incl_moms && !$momsfri[$x] && !$omvbet[$x]) { $pris[$x] = afrund($pris[$x] / (100 + $varemomssats[$x]) * 100, 3); } } $y = "raba" . $x; $rabat[$x] = usdecimal(if_isset($_POST[$y])); if ($x > 0 && !$rabat[$x]) { $rabat = 0; } $y = "proc" . $x; $procent[$x] = usdecimal(if_isset($_POST[$y])); if ($x > 0 && !$procent[$x]) { $procent[$x] = 100; } $y = "ialt" . $x; $ialt[$x] = if_isset($_POST[$y]); if ($godkend == "on" && $status == 0) { if ($vis_saet) { $fakturadato = date("d-m-Y"); } $leveres[$x] = $antal[$x]; if (isset($linje_id[$x]) && $varenr[$x]) { batch($linje_id[$x]); } } if (!$sletslut && $posnr_ny[$x] == '->') {
$y = "posn" . $x; $posnr_ny[$x] = trim($_POST[$y]); $y = "vare" . $x; $varenr[$x] = trim($_POST[$y]); $y = "anta" . $x; $antal[$x] = usdecimal($_POST[$y]); $y = "leve" . $x; $leveres[$x] = trim($_POST[$y]); $y = "besk" . $x; $beskrivelse[$x] = trim($_POST[$y]); $y = "pris" . $x; if ($x != 0 || $_POST[$y] || $_POST[$y] == '0') { $pris[$x] = usdecimal($_POST[$y]); } $y = "raba" . $x; $rabat[$x] = usdecimal($_POST[$y]); if ($x > 0 && !$rabat[$x]) { $rabat = 0; } $y = "ialt" . $x; $ialt[$x] = $_POST[$y]; if ($godkend == "on" && $status == 0) { $leveres[$x] = $antal[$x]; } } $bogfor = 1; if (!$sum) { $sum = 0; } if (!$status) { $status = 0;
if ($r2 = db_fetch_array(db_select("select id from formularer where beskrivelse ='GEBYR' and formular='{$form_nr}' and art=2 and sprog='{$formularsprog}'", __FILE__ . " linje " . __LINE__))) { db_modify("update formularer set xb='{$r1['id']}' where id = {$r2['id']}", __FILE__ . " linje " . __LINE__); } else { db_modify("insert into formularer (beskrivelse, formular, art, xb, sprog) values ('GEBYR', '{$form_nr}', '2', '{$r1['id']}', '{$formularsprog}')", __FILE__ . " linje " . __LINE__); } } else { print "<BODY onLoad=\"javascript:alert('Varenummeret {$gebyr} findes ikke i varelisten')\">"; } } elseif ($submit == 'Opdater' && $form_nr >= 6 && $form_nr <= 8 && $art_nr == 2 && !$gebyr) { db_modify("delete from formularer where beskrivelse = 'GEBYR' and formular='{$form_nr}' and sprog='{$formularsprog}'", __FILE__ . " linje " . __LINE__); } #20140902 if ($submit == 'Opdater' && $form_nr >= 6 && $form_nr <= 8 && $art_nr == 2 && $rentevnr) { #Rykkerrenter $tmp = strtoupper($rentevnr); $rentesats = usdecimal($rentesats); if ($r1 = db_fetch_array(db_select("select id, varenr from varer where upper(varenr) = '{$tmp}'", __FILE__ . " linje " . __LINE__))) { $rentevnr = $r['varenr']; if ($r2 = db_fetch_array(db_select("select id from formularer where beskrivelse ='GEBYR' and formular='{$form_nr}' and art=2 and sprog='{$formularsprog}'", __FILE__ . " linje " . __LINE__))) { db_modify("update formularer set yb='{$r1['id']}', str='{$rentesats}' where id = {$r2['id']}", __FILE__ . " linje " . __LINE__); } else { db_modify("insert into formularer (beskrivelse, formular, art, yb, str, sprog) values ('GEBYR', '{$form_nr}', '2', '{$r1['id']}', '{$rentesats}', '{$formularsprog}')", __FILE__ . " linje " . __LINE__); } } else { print "<BODY onLoad=\"javascript:alert('Varenummeret {$gebyr} findes ikke i varelisten')\">"; } } elseif ($submit == 'Opdater' && $form_nr == 6 && $art_nr == 2 && !$gebyr) { db_modify("delete from formularer where beskrivelse = 'GEBYR' and formular='{$form_nr}' and sprog='{$formularsprog}'", __FILE__ . " linje " . __LINE__); } #20140902 if ($_POST['linjer']) {
function overfoer_data($filnavn) { global $charset; global $gruppe; $betalingsbet = 'Netto'; $betalingsdage = 8; $x = 0; $q = db_select("select kontonr from adresser where art = 'D'", __FILE__ . " linje " . __LINE__); while ($r = db_fetch_array($q)) { $kontonumre[$x] = $r['kontonr']; $x++; } $imp_antal = 0; $fp = fopen("{$filnavn}", "r"); if ($fp) { $pre_kontonr = 0; transaktion('begin'); $fp = fopen("{$filnavn}", "r"); if ($fp) { $x = 0; $imp_antal = 0; while (!feof($fp)) { $skriv_linje = 0; if ($linje = fgets($fp)) { $x++; $skriv_linje = 1; if ($charset == 'UTF-8') { $linje = utf8_encode($linje); } if ($x) { $pre_kontonr = $kontonr; } if (strpos($linje, chr(9))) { list($kontonr, $ordrenr, $dato, $projekt, $telefon, $firmanavn, $addr1, $addr2, $postnr, $bynavn, $email, $varenr, $varenavn, $antal, $pris) = explode(chr(9), $linje); } elseif (strpos($linje, ';')) { list($kontonr, $ordrenr, $dato, $projekt, $telefon, $firmanavn, $addr1, $addr2, $postnr, $bynavn, $email, $varenr, $varenavn, $antal, $pris) = explode(';', $linje); } if (!is_numeric($kontonr)) { $skriv_linje = 0; } if ($skriv_linje == 1) { if (!in_array($kontonr, $kontonumre)) { db_modify("insert into adresser(kontonr,firmanavn,addr1,addr2,postnr,bynavn,email,tlf,gruppe,art,betalingsbet,betalingsdage) values ('{$kontonr}','" . db_escape_string($firmanavn) . "','" . db_escape_string($addr1) . "','" . db_escape_string($addr2) . "','" . db_escape_string($postnr) . "','" . db_escape_string($bynavn) . "','" . db_escape_string($email) . "','" . db_escape_string($telefon) . "','{$gruppe}','D','{$betalingsbet}','{$betalingsdage}')", __FILE__ . " linje " . __LINE__); $kontonumre[count($kontonumre)] = $kontonr; } if ($pre_kontonr != $kontonr) { $qtxt = "select id from adresser where art='D' and kontonr = '{$kontonr}'"; $r = db_fetch_array(db_select("{$qtxt}", __FILE__ . " linje " . __LINE__)); $konto_id = $r['id']; $qtxt = "select max(ordrenr) as ordrenr from ordrer where art='DO'"; $r = db_fetch_array(db_select("{$qtxt}", __FILE__ . " linje " . __LINE__)); $ordrenr = $r['ordrenr'] + 1; $projektnr = 0; if ($projekt) { $qtxt = "select kodenr from grupper where art='PRJ' and beskrivelse = '{$projekt}'"; $r = db_fetch_array(db_select("{$qtxt}", __FILE__ . " linje " . __LINE__)); $projektnr = $r['kodenr']; } $qtxt = "select box1 from grupper where art='DG' and kodenr = '{$gruppe}'"; $r = db_fetch_array(db_select("{$qtxt}", __FILE__ . " linje " . __LINE__)); $momsgruppe = str_replace('S', '', $r['box1']); $qtxt = "select box2 from grupper where art='SM' and kodenr = '{$momsgruppe}'"; $r = db_fetch_array(db_select("{$qtxt}", __FILE__ . " linje " . __LINE__)); $momssats = $r['box2'] * 1; db_modify("insert into ordrer(ordrenr,konto_id,kontonr,firmanavn,addr1,addr2,postnr,bynavn,email,art,projekt,momssats,betalingsbet,betalingsdage,status,ordredate) values ('{$ordrenr}','{$konto_id}','{$kontonr}','" . db_escape_string($firmanavn) . "','" . db_escape_string($addr1) . "','" . db_escape_string($addr2) . "','" . db_escape_string($postnr) . "','" . db_escape_string($bynavn) . "','" . db_escape_string($email) . "','DO','{$projektnr}','{$momssats}','{$betalingsbet}','{$betalingsdage}','0','" . usdate($dato) . "')", __FILE__ . " linje " . __LINE__); $r = db_fetch_array($q = db_select("select max(id) as id from ordrer where kontonr='{$kontonr}'", __FILE__ . " linje " . __LINE__)); $ordre_id = $r['id']; $posnr = 0; $imp_antal++; } $posnr++; if ($varenr) { $qtxt = "select id,varenr,salgspris,beskrivelse from varer where varenr = '{$varenr}'"; } else { $qtxt = "select id,varenr,salgspris,beskrivelse from varer where beskrivelse = '{$varenavn}'"; } $r = db_fetch_array(db_select("{$qtxt}", __FILE__ . " linje " . __LINE__)); if ($r['id']) { opret_ordrelinje($ordre_id, $r['id'], $r['varenr'], usdecimal($antal), $varenavn, usdecimal($pris), 0, 100, 'DO', '', $posnr, '0', 'on', '', '', '0'); } else { if (!$varenavn) { $varenavn = "ukendt, {$antal} stk á {$pris}"; } db_modify("insert into ordrelinjer(ordre_id,posnr,beskrivelse) values ('{$ordre_id}','{$posnr}','" . db_escape_string($varenavn) . "')", __FILE__ . " linje " . __LINE__); } } } } } fclose($fp); transaktion('commit'); } print "</tbody></table>"; print "</td></tr>"; print "<BODY onLoad=\"javascript:alert('{$imp_antal} adresser importeret')\">"; print "<meta http-equiv=\"refresh\" content=\"0;URL=../debitor/ordreliste.php?valg=tilbud\">"; exit; }
$mat_densitet = $_POST['mat_densitet']; $mat_beskrivelse[0] = trim($mat_beskrivelse[0]); $mat_beskrivelse[$mat_id] = trim($mat_beskrivelse[$mat_id]); # $mat_densitet[0]=+$mat_densitet[0]; Remmet 150606 - kan ikke lige gennemskue, hvorfor de har vaeret her!! ?? # $mat_densitet[$mat_id]=+$mat_densitet[$mat_id]; if ($mat_beskrivelse[0] && $mat_densitet[0]) { $mat_densitet[0] = usdecimal($mat_densitet[0]); $query = db_select("select id from materialer where beskrivelse = '{$mat_beskrivelse['0']}'"); $row = db_fetch_array($query); if ($row[id]) { echo "<big><b>Der findes allerede et materiale med beskrivelsen: '{$mat_beskrivelse['0']}'</b></big><br><br>"; } else { db_modify("insert into materialer (beskrivelse, densitet) values ('{$mat_beskrivelse['0']}', '{$mat_densitet['0']}')"); } } elseif ($mat_id > 0 && $mat_beskrivelse[$mat_id]) { $mat_densitet[$mat_id] = usdecimal($mat_densitet[$mat_id]); db_modify("update materialer set beskrivelse = '{$mat_beskrivelse[$mat_id]}', densitet = '{$mat_densitet[$mat_id]}' where id = '{$mat_id}'"); } elseif ($mat_id > 0 && !$mat_beskrivelse[$mat_id]) { db_modify("delete from materialer where id = '{$mat_id}'"); } } /* print "<table width=\"100%\" height=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\"><tbody>"; print "<tr><td align=\"center\" valign=\"top\">"; print "<table width=\"100%\" align=\"center\" border=\"0\" cellspacing=\"2\" cellpadding=\"0\"><tbody>"; print "<td width=\"10%\" $top_bund><a href=../includes/luk.php accesskey=L>Luk</a></td>"; print "<td width=\"80%\" $top_bund>Enheder & materialer</td>"; print "<td width=\"10%\" $top_bund><br></td>"; print "</tbody></table>"; print "</td></tr>"; print "<td align = center valign = center>";
function overfoer_data($filnavn, $splitter, $feltnavn, $feltantal, $charset) { global $charset; $x = 0; $fp = fopen("../importfiler/postnr.csv", "r"); if ($fp) { while (!feof($fp)) { $x++; $linje = fgets($fp); list($postnr[$x], $bynavn[$x]) = explode(chr(9), $linje); } } fclose($fp); $postnr_antal = $x; $fp = fopen("{$filnavn}", "r"); if ($fp) { for ($y = 1; $y < 4; $y++) { $tmp = fgets($fp); if ($tmp) { $linje = $tmp; } } $tmp = $linje; while ($tmp = substr(strstr($tmp, ";"), 1)) { $semikolon++; } $tmp = $linje; while ($tmp = substr(strstr($tmp, ","), 1)) { $komma++; } $tmp = $linje; while ($tmp = substr(strstr($tmp, chr(9)), 1)) { $tabulator++; } $tmp = ''; if ($komma > $semikolon && $komma > $tabulator) { $tmp = 'Komma'; $feltantal = $komma; } elseif ($semikolon > $tabulator && $semikolon > $komma) { $tmp = 'Semikolon'; $feltantal = $semikolon; } elseif ($tabulator > $semikolon && $tabulator > $komma) { $tmp = 'Tabulator'; $feltantal = $tabulator; } if (!$splitter) { $splitter = $tmp; } $cols = $feltantal + 1; } fclose($fp); for ($y = 0; $y <= $feltantal; $y++) { for ($x = 0; $x <= $felt_antal; $x++) { if ($felt_navn[$x] && $feltnavn[$y] == $felt_navn[$x] && $felt_aktiv[$x] == 1) { print "<BODY onLoad=\"javascript:alert('Der kan kun være 1 kolonne med {$felt_navn[$x]}')\">"; $feltnavn[$y] = ''; } elseif ($felt_navn[$x] && $feltnavn[$y] == $felt_navn[$x]) { $felt_aktiv[$x] = 1; } } } print "<tr><td colspan={$cols}><hr></td></tr>\n"; if (!$splitter || $splitter == 'Semikolon') { $splitter = ';'; } elseif ($splitter == 'Komma') { $splitter = ','; } elseif ($splitter == 'Tabulator') { $splitter = chr(9); } # print "<tr><td><span title='Angiv 1. bilagsnummer'><input type=text size=4 name=bilag value=$bilag></span></td>"; transaktion('begin'); #echo "delete from kontoplan where regnskabsaar='$regnskabsaar'<br>"; #db_modify("delete from de where regnskabsaar='$regnskabsaar'"); $fp = fopen("{$filnavn}", "r"); if ($fp) { $kontonumre = array(); $x = 0; $imp_antal = 0; $upd_antal = 0; $kostpris = 0; $salgspris = 0; $varenr = ""; while (!feof($fp)) { $skriv_linje = 0; if ($linje = fgets($fp)) { $x++; $skriv_linje = 1; if ($charset == 'UTF-8' && $tegnset != 'UTF-8') { $linje = utf8_encode($linje); } elseif ($charset != 'UTF-8' && $tegnset == 'UTF-8') { $linje = utf8_decode($linje); } $felt = array(); $felt = opdel($splitter, $linje); for ($y = 0; $y < count($felt); $y++) { $medtag_felt[$y] = 1; if (!trim($feltnavn[$y])) { $medtag_felt[$y] = 0; } $felt[$y] = trim($felt[$y]); $feltnavn[$y] = strtolower($feltnavn[$y]); if (substr($felt[$y], 0, 1) == '"' && substr($felt[$y], -1) == '"') { $felt[$y] = substr($felt[$y], 1, strlen($felt[$y]) - 2); } if ($feltnavn[$y] == 'varenr') { if (!($varenr = $felt[$y])) { $skriv_linje = 0; } } if ($feltnavn[$y] == 'vejl.pris') { $feltnavn[$y] = 'retail_price'; } if ($feltnavn[$y] == 'vejl.pris') { $feltnavn[$y] = 'retail_price'; } if ($feltnavn[$y] == 'lokation') { $feltnavn[$y] = 'location'; } if ($feltnavn[$y] == 'kostpris') { $tmp = str_replace(",", "", $felt[$y]); $tmp = str_replace(".", "", $tmp); if ($tmp && !is_numeric($tmp)) { $skriv_linje = 0; } elseif (!is_numeric($felt[$y])) { $felt[$y] = usdecimal($felt[$y]); } $kostpris = $felt[$y] * 1; } if ($feltnavn[$y] == 'salgspris') { $tmp = str_replace(",", "", $felt[$y]); $tmp = str_replace(".", "", $tmp); if ($tmp && !is_numeric($tmp)) { $skriv_linje = 0; } elseif (!is_numeric($felt[$y])) { $felt[$y] = usdecimal($felt[$y]); } $salgspris = $felt[$y] * 1; } if ($feltnavn[$y] == 'retail_price') { $tmp = str_replace(",", "", $felt[$y]); $tmp = str_replace(".", "", $tmp); if ($tmp && !is_numeric($tmp)) { $skriv_linje = 0; } elseif (!is_numeric($felt[$y])) { $felt[$y] = usdecimal($felt[$y]); } $retail_price = $felt[$y] * 1; } if ($feltnavn[$y] == 'min_lager') { $tmp = str_replace(",", "", $felt[$y]); $tmp = str_replace(".", "", $tmp); if ($tmp && !is_numeric($tmp)) { $skriv_linje = 2; } else { $felt[$y] = usdecimal($felt[$y]); } } if ($feltnavn[$y] == 'max_lager') { $tmp = str_replace(",", "", $felt[$y]); $tmp = str_replace(".", "", $tmp); if ($tmp && !is_numeric($tmp)) { $skriv_linje = 2; } else { $felt[$y] = usdecimal($felt[$y]); } } if ($feltnavn[$y] == 'gruppe') { if ($tmp = find_varegrp($felt[$y])) { $felt[$y] = $tmp; } else { $felt[$y] = 1; } } if ($feltnavn[$y] == 'leverandor') { if ($felt[$y] && !($tmp = find_lev_id($felt[$y]))) { } $leverandor = $tmp; $levfelt = $y; } } } if ($skriv_linje == 1) { $vare_a = ''; $vare_b = ''; $upd = ''; for ($y = 0; $y <= $feltantal; $y++) { if ($feltnavn[$y] && $medtag_felt[$y] && $feltnavn[$y] != 'leverandor') { if ($nyt_feltnavn[$y]) { $feltnavn[$y] = $nyt_feltnavn[$y]; } $felt[$y] = db_escape_string($felt[$y]); $vare_a ? $vare_a .= "," . $feltnavn[$y] : ($vare_a = $feltnavn[$y]); $vare_b ? $vare_b .= ",'" . $felt[$y] . "'" : ($vare_b = "'" . $felt[$y] . "'"); $upd ? $upd .= "," . $feltnavn[$y] . "='" . $felt[$y] . "'" : ($upd = $feltnavn[$y] . "='" . $felt[$y] . "'"); } } $vare_a = $vare_a . ",lukket"; $vare_b = $vare_b . ",''"; if ($varenr && ($r = db_fetch_array(db_select("select id from varer where varenr='{$varenr}' or lower(varenr)='" . strtolower($varenr) . "' or upper(varenr)='" . strtoupper($varenr) . "'", __FILE__ . " linje " . __LINE__)))) { #20140201 $vare_id = $r['id']; $upd_antal++; db_modify("update varer set {$upd} where id='{$vare_id}'", __FILE__ . " linje " . __LINE__); } else { $imp_antal++; db_modify("insert into varer({$vare_a}) values ({$vare_b})", __FILE__ . " linje " . __LINE__); $r = db_fetch_array(db_select("select id from varer where varenr='{$varenr}'", __FILE__ . " linje " . __LINE__)); $vare_id = $r['id']; } $dd = date("Y-m-d"); $qtxt = "select id,kostpris,transdate from kostpriser where vare_id='{$vare_id}' order by transdate desc limit 1"; #20150224 $r = db_fetch_array(db_select($qtxt, __FILE__ . " linje " . __LINE__)); if ($r['transdate'] != $dd && $r['kostpris'] != $kostpris) { $qtxt = "insert into kostpriser (vare_id,kostpris,transdate) values ('{$vare_id}','{$kostpris}','{$dd}')"; } elseif ($r['transdate'] == $dd && $r['kostpris'] != $kostpris) { $qtxt = "update kostpriser set kostpris={$kostpris} where id = '{$r['id']}'"; } if ($qtxt) { db_modify($qtxt, __FILE__ . " linje " . __LINE__); } if ($leverandor && $vare_id) { if ($r = db_fetch_array(db_select("select id from vare_lev where vare_id='{$vare_id}' and lev_id='{$leverandor}'", __FILE__ . " linje " . __LINE__))) { db_modify("update vare_lev set kostpris='{$kostpris}' where id='{$r['id']}'", __FILE__ . " linje " . __LINE__); } else { db_modify("insert into vare_lev (vare_id,lev_id,kostpris,posnr) values ({$vare_id},'{$leverandor}','{$kostpris}','1')", __FILE__ . " linje " . __LINE__); } } } } } fclose($fp); transaktion('commit'); print "</tbody></table>"; print "</td></tr>"; print "<BODY onLoad=\"javascript:alert('{$imp_antal} varer importeret, {$upd_antal} varer opdateret')\">"; #print "<BODY onLoad=\"javascript:alert('$imp_antal varer importeret')\">"; #print "<meta http-equiv=\"refresh\" content=\"0;URL=../includes/luk.php\">"; exit; }
function importer($filnavn, $opret_lev, $opret_vare) { $descfil = if_isset($_POST['descfil']); # list($firmanavn,$kontonr,$vejnavn,$husnr,$postnr,$bynavn,$land,$cvrnr,$ordredate,$l_varenr,$l_pris,$l_tekst,$l_antal,$l_sum,$l_moms,$l_momssats,$l_posnr)=explode(chr(9),vis_oioubl($filnavn)); global $firmanavn; global $kontonr; global $vejnavn; global $husnr; global $postnr; global $bynavn; global $land; global $cvrnr; global $ordredate; global $fakturadate; global $l_varenr; global $l_pris; global $l_tekst; global $l_antal; global $l_sum; global $l_moms; global $l_momssats; global $l_posnr; vis_oioubl($filnavn); if ($opret_lev) { if (!$kontonr) { $x = 0; $q = db_select("select kontonr from adresser where art = 'K' order by kontonr", __FILE__ . " linje " . __LINE__); while ($r = db_fetch_array($q)) { $x++; $ktoliste[$x] = $r['kontonr']; } $kontonr = 1000; while (in_array($kontonr, $ktoliste)) { $kontonr++; } } db_modify("insert into adresser (firmanavn,kontonr,addr1,postnr,bynavn,land,cvrnr,gruppe,art) values ('" . db_escape_string($firmanavn) . "','{$kontonr}','" . db_escape_string($vejnavn . " " . $husnr) . "','" . db_escape_string($postnr) . "','" . db_escape_string($bynavn) . "','" . db_escape_string($land) . "','" . db_escape_string($cvrnr) . "','{$opret_lev}','K')", __FILE__ . " linje " . __LINE__); } if (!$konto_id) { $r = db_fetch_array(db_select("select * from adresser where art = 'K' and cvrnr='{$cvrnr}'", __FILE__ . " linje " . __LINE__)); if ($r['id']) { $konto_id = $r['id']; $kontonr = $r['kontonr']; $gruppe = $r['gruppe']; $betalingsdage = $r['betalingsdage']; if (!$betalingsdage) { $betalingsdage = 8; } $betalingsbet = $r['betalingsbet']; if (!$betalingsbet) { $betalingsbet = 'Netto'; } if ($gruppe) { $r = db_fetch_array(db_select("select box1, box3 from grupper where art='KG' and kodenr='{$gruppe}'", __FILE__ . " linje " . __LINE__)); $valuta = trim($r['box3']); if (substr($r['box1'], 0, 1) == 'K') { $tmp = substr($r['box1'], 1, 1) * 1; $r = db_fetch_array(db_select("select box2 from grupper where art='KM' and kodenr = '{$tmp}'", __FILE__ . " linje " . __LINE__)); $momssats = trim($r['box2']) * 1; } elseif (substr($r['box1'], 0, 1) == 'E') { $momssats = '0.00'; } elseif (substr($r['box1'], 0, 1) == 'Y') { $momssats = '0.00'; } } else { print "<BODY onLoad=\"javascript:alert('Kreditor ikke tilknyttet en kreditorgruppe')\">"; } } else { $grp_antal = 0; $q = db_select("select * from grupper where art='KG' order by kodenr", __FILE__ . " linje " . __LINE__); while ($r = db_fetch_array($q)) { $grp_antal++; $grp_id[$grp_antal] = $r['kodenr']; $grp_navn[$grp_antal] = $r['beskrivelse']; } print "<form name=\"opret_kreditor\" action=\"{$_SERVER['PHP_SELF']}\" method=\"post\">"; print "<input type=\"hidden\" name=\"filnavn\" value={$filnavn}>"; print "<input type=\"hidden\" name=\"descfil\" value={$descfil}>"; print "<tr><td align=\"center\"><table><tbody>"; print "<tr><td>Der eksisterer ingen leverandører med cvrnr.: {$cvrnr}</td></tr>"; if ($grp_antal > 1) { print "<tr><td>Vælg kreditorgruppe: <select name=\"opret_lev\">"; for ($y = 1; $y <= $grp_antal; $y++) { print "<option value=\"{$grp_id[$y]}\">{$grp_id[$y]} : {$grp_navn[$y]}</option>"; } print "</select></td></tr>\n"; } print "<tr><td align=\"center\"><input type=\"submit\" name=\"opret\" value=\"Opret\"></td></tr>\n"; print "</tbody></table></td></tr>"; print "</form>"; exit; } } if ($opret_vare) { global $gl_varenr; global $opret_varenr; global $salgspris; if ($opret_varenr && $salgspris) { $salgspris = usdecimal($salgspris); $low = strtolower($opret_varenr); $up = strtoupper($opret_varenr); for ($x = 0; $x < count($l_varenr); $x++) { if ($gl_varenr == $l_varenr[$x]) { transaktion('begin'); if ($r = db_fetch_array(db_select("select id,beskrivelse from varer where varenr='{$opret_varenr}' or lower(varenr)= '{$low}' or upper(varenr)='{$up}' or lower(stregkode)= '{$low}' or upper(stregkode)='{$up}'", __FILE__ . " linje " . __LINE__))) { $vare_id[$x] = $r['id']; } else { db_modify("insert into varer (varenr,kostpris,salgspris,beskrivelse,gruppe,lukket) values ('{$opret_varenr}','{$l_pris[$x]}','{$salgspris}','{$l_tekst[$x]}','{$opret_vare}','0')", __FILE__ . " linje " . __LINE__); $r = db_fetch_array(db_select("select id,beskrivelse from varer where varenr='{$opret_varenr}'", __FILE__ . " linje " . __LINE__)); $vare_id[$x] = $r['id']; } db_modify("insert into vare_lev(posnr,lev_id,vare_id,lev_varenr,kostpris) values ('0','{$konto_id}','{$vare_id[$x]}','{$l_varenr[$x]}','{$l_pris[$x]}')", __FILE__ . " linje " . __LINE__); # $x=$linjenr; transaktion('commit'); } } } elseif ($opret_varenr) { print "<BODY onLoad=\"javascript:alert('Angiv en salgspris på varen')\">"; } if (isset($_POST['tilknyt']) || $tilknyt) { $low = strtolower($opret_varenr); $up = strtoupper($opret_varenr); for ($x = 0; $x < count($l_varenr); $x++) { if ($gl_varenr == $l_varenr[$x]) { if ($r = db_fetch_array(db_select("select id,beskrivelse from varer where varenr='{$opret_varenr}' or lower(varenr)= '{$low}' or upper(varenr)='{$up}' or lower(stregkode)= '{$low}' or upper(stregkode)='{$up}'", __FILE__ . " linje " . __LINE__))) { $vare_id[$x] = $r['id']; db_modify("insert into vare_lev(posnr,lev_id,vare_id,lev_varenr,kostpris) values ('0','{$konto_id}','{$vare_id[$x]}','{$l_varenr[$x]}','{$l_pris[$x]}')", __FILE__ . " linje " . __LINE__); # $x=$linjenr; } } } } } for ($x = 0; $x < count($l_varenr); $x++) { if (!$vare_id[$x]) { $low = strtolower($l_varenr[$x]); $up = strtoupper($l_varenr[$x]); $r = db_fetch_array(db_select("select * from vare_lev where lev_id='{$konto_id}' and (lev_varenr='{$l_varenr[$x]}' or lower(lev_varenr)= '{$low}' or upper(lev_varenr)='{$up}')", __FILE__ . " linje " . __LINE__)); $vare_lev_id[$x] = $r['id']; $vare_id[$x] = $r['vare_id']; } if (!$vare_id[$x]) { print "<tr><td align=\"center\"><table><tbody>"; print "<form name=\"opret_vare\" action=\"{$_SERVER['PHP_SELF']}\" method=\"post\">"; $r = db_fetch_array(db_select("select id,beskrivelse from varer where varenr='{$l_varenr[$x]}' or lower(varenr)= '{$low}' or upper(varenr)='{$up}' or lower(stregkode)= '{$low}' or upper(stregkode)='{$up}'", __FILE__ . " linje " . __LINE__)); if ($vare_id[$x] = $r['id']) { print "<tr><td colspan=\"2\">Varenummer {$l_varenr[$x]} ({$l_tekst[$x]}) eksisterer i systemet med beskrivelsen " . $r['beskrivelse'] . " og er ikke tilknyttet denne leverandør<br></td></tr>"; print "<tr><td colspan=\"2\">Klik OK for et tilknytte den eksisterende vare til denne leverandør eller skriv et alternativt varenummer for et oprette varen med andet varenr.<br></td></tr>"; } $grp_antal = 0; $q = db_select("select * from grupper where art='VG' order by kodenr", __FILE__ . " linje " . __LINE__); while ($r = db_fetch_array($q)) { $grp_antal++; $grp_id[$grp_antal] = $r['kodenr']; $grp_navn[$grp_antal] = $r['beskrivelse']; } print "<input type=\"hidden\" name=\"filnavn\" value={$filnavn}>"; print "<input type=\"hidden\" name=\"descfil\" value={$descfil}>"; print "<input type=\"hidden\" name=\"gl_varenr\" value=\"{$l_varenr[$x]}\">"; print "<tr><td colspan=\"2\">Der eksisterer ingen varer med varenr / stregkode.: {$l_varenr[$x]}<br></td></tr>"; print "<tr><td colspan=\"2\">Hvis varen eksisterer med et andet varenummer kan du skrive det herunder og klikke på \"Tilknyt\"<br></td></tr>"; print "<tr><td colspan=\"2\">Eller du kan klikke på \"Opret\" og oprette varen med det varenummer som er angivet.<br></td></tr>"; if ($grp_antal > 1) { print "<tr><td>Varegruppe:</td><td><select name=\"opret_vare\">"; for ($y = 1; $y <= $grp_antal; $y++) { print "<option value=\"{$grp_id[$y]}\">{$grp_id[$y]} : {$grp_navn[$y]}</option>"; } print "</select></td></tr>"; } print "<tr><td>Varenr:</td><td><input type=\"tekst\" name=\"opret_varenr\" value=\"{$l_varenr[$x]}\"><br></td></tr>"; print "<tr><td>Købspris:</td><td>" . dkdecimal($l_pris[$x]) . "<br></td></tr>"; print "<tr><td>Salgspris:</td><td><input type=\"text\" name=\"salgspris\"><br></td></tr>"; print "<tr><td align=\"center\" colspan=\"2\"><input type=\"submit\" name=\"opret\" value=\"Opret\"><input type=\"submit\" name=\"tilknyt\" value=\"Tilknyt\"></td></tr>"; print "</form></tbody></table></td></tr>"; exit; } } if (isset($_POST['importer']) && $_POST['importer'] == 'Importer') { transaktion('begin'); #cho "Importer til ordre"; $r = db_fetch_array(db_select("select max(ordrenr) as ordrenr from ordrer where art='KO' or art='KK'", __FILE__ . " linje " . __LINE__)); $ordrenr = $r['ordrenr'] + 1; db_modify("insert into ordrer (ordrenr,konto_id,kontonr,firmanavn,addr1,postnr,bynavn,land,betalingsdage,betalingsbet,cvrnr,art,ordredate,levdate,momssats,status,hvem,tidspkt,valuta,fakturanr) values ('{$ordrenr}','{$konto_id}','{$kontonr}','" . db_escape_string($firmanavn) . "','" . db_escape_string($vejnavn) . " {$husnr}','{$postnr}','{$bynavn}','{$land}','{$betalingsdage}','{$betalingsbet}','{$cvrnr}','KO','{$ordredate}','{$ordredate}','{$momssats}','1','{$brugernavn}','{$tidspkt}','{$valuta}','{$fakturanr}')", __FILE__ . " linje " . __LINE__); $r = db_fetch_array(db_select("select id from ordrer where art='KO' and ordrenr = '{$ordrenr}'", __FILE__ . " linje " . __LINE__)); $ordre_id = $r['id']; $pos = 0; for ($x = 0; $x < count($l_varenr); $x++) { if ($vare_id[$x]) { $pos++; $r = db_fetch_array(db_select("select * from varer where id='{$vare_id[$x]}'", __FILE__ . " linje " . __LINE__)); db_modify("insert into ordrelinjer (ordre_id,lev_varenr,varenr,vare_id,beskrivelse,antal,leveres,pris,posnr) values ('{$ordre_id}','{$l_varenr[$x]}','{$r['varenr']}','{$vare_id[$x]}', '{$l_tekst[$x]}','{$l_antal[$x]}','{$l_antal[$x]}','{$l_pris[$x]}','{$pos}')", __FILE__ . " linje " . __LINE__); } } transaktion('commit'); if ($descfil) { print "<input type=\"hidden\" name=\"slet_bilailnavn\" value={$filnavn}>"; print "<input type=\"hidden\" name=\"descfil\" value={$descfil}>"; print "<meta http-equiv=\"refresh\" content=\"0;URL=ublimport.php?slet=1&descfil={$descfil}&funktion=gennemse\">"; } else { print "<meta http-equiv=\"refresh\" content=\"0;URL=ordre.php?id={$ordre_id}\">"; } } else { print "<form name=\"importer\" action=\"{$_SERVER['PHP_SELF']}\" method=\"post\">"; print "<input type=\"hidden\" name=\"filnavn\" value={$filnavn}>"; print "<input type=\"hidden\" name=\"descfil\" value={$descfil}>"; print "<tr><td width=\"100%\" align=\"center\"><input type=\"submit\" name=\"importer\" value=\"Importer\"></td></tr>"; print "</form>"; } }
#|| $ean[0] || $prisgruppe[0] || $beskrivelse[0] || $enhed[0] || $salgspris[0] || $kostpris[0]) { } if ($ean[0]) { $x = udvaelg($x, $ean[0], $ean[$x]); #|| $ean[0] || $prisgruppe[0] || $beskrivelse[0] || $enhed[0] || $salgspris[0] || $kostpris[0]) { } if ($beskrivelse[0]) { $x = udvaelg($x, $beskrivelse[0], $beskrivelse[$x]); #|| $ean[0] || $prisgruppe[0] || $beskrivelse[0] || $enhed[0] || $salgspris[0] || $kostpris[0]) { } if ($enhed[0]) { $x = udvaelg($x, $enhed[0], $enhed[$x]); #|| $ean[0] || $prisgruppe[0] || $beskrivelse[0] || $enhed[0] || $salgspris[0] || $kostpris[0]) { } if ($salgspris[0]) { $a = usdecimal($salgspris[0]); $x = udvaelg($x, $a, $salgspris[$x]); #|| $ean[0] || $prisgruppe[0] || $beskrivelse[0] || $enhed[0] || $salgspris[0] || $kostpris[0]) { } if ($kostpris[0]) { $x = udvaelg($x, $kostpris[0], $kostpris[$x]); #|| $ean[0] || $prisgruppe[0] || $beskrivelse[0] || $enhed[0] || $salgspris[0] || $kostpris[0]) { } if ($x > $s**t) { break 1; } # S**t solar (fast format) } elseif (stristr($prisfil, "maxmc")) { $x++; $splitter = ","; if ($charset == 'UTF-8' && $tegnset != 'UTF-8') {
$sluttid[$x] = tjektid($sluttid[$x]); } $salgspris[$x] *= 0.8; $kostpris[$x] *= 1; if ($id[$x]) { $qtxt = "update varetilbud set"; $qtxt .= " startdag='{$startdag[$x]}',slutdag='{$slutdag[$x]}',starttid='{$starttid[$x]}',sluttid='{$sluttid[$x]}',ugedag='{$ugedag[$x]}',"; $qtxt .= "salgspris=" . usdecimal($salgspris[$x]) . ",kostpris=" . usdecimal($kostpris[$x]); $qtxt .= " where id='{$id[$x]}'"; db_modify($qtxt, __FILE__ . " linje " . __LINE__); } elseif ($startdag[$x] && $slutdag[$x] && $starttid[$x] && $sluttid[$x] && $ugedag[$x] && $salgspris[$x]) { $qtxt = "insert into varetilbud"; $qtxt .= " (vare_id,startdag,slutdag,starttid,sluttid,ugedag,salgspris,kostpris)"; $qtxt .= " values "; $qtxt .= "('{$vare_id}','{$startdag[$x]}','{$slutdag[$x]}','{$starttid[$x]}','{$sluttid[$x]}','{$ugedag[$x]}','" . usdecimal($salgspris[$x]) . "',"; $qtxt .= "'" . usdecimal($kostpris[$x]) . "')"; db_modify($qtxt, __FILE__ . " linje " . __LINE__); } } } } $r = db_fetch_array(db_select("select beskrivelse, salgspris, kostpris from varer where id = {$vare_id}", __FILE__ . " linje " . __LINE__)); $varenavn = $r['beskrivelse']; $varepris = $r['salgspris']; $varekost = $r['kostpris']; $x = 0; $id = array(); $startdato[$x] = array(); $slutdato[$x] = array(); $starttid[$x] = array(); $sluttid[$x] = array();
for ($x = 1; $x <= $linjeantal; $x++) { if ($posnr[$x] == '-') { if ($linje_id[$x]) { db_modify("delete from ordrelinjer where id='{$linje_id[$x]}'", __FILE__ . " linje " . __LINE__); } } else { # if ($ordreliste[$x]) $posnr[$x] = $posnr[$x] * 1; if ($dkantal[$x] == '') { $dkantal[$x] = 1; } $antal = usdecimal($dkantal[$x]); strlen($dkpris[$x]) ? $pris = usdecimal($dkpris[$x]) : ($pris = NULL); #20130916 $rabat = usdecimal($dkrabat[$x]); $procent = usdecimal($dkprocent[$x]); $beskrivelse[$x] = trim(db_escape_string($beskrivelse[$x])); if (!$projekt[$x]) { $projekt[$x] = ''; } # if ($linje_id[$x]) echo "update ordrelinjer set posnr='$posnr[$x]',antal='$antal',beskrivelse='$beskrivelse[$x]',pris='$pris',rabat='$rabat',kdo='$kdo[$x]',projekt='$projekt[$x]' where id='$linje_id[$x]'<br>"; if ($linje_id[$x]) { $pris *= 1; db_modify("update ordrelinjer set posnr='{$posnr[$x]}',antal='{$antal}',beskrivelse='{$beskrivelse[$x]}',pris='{$pris}',rabat='{$rabat}',procent='{$procent}',kdo='{$kdo[$x]}',projekt='{$projekt[$x]}' where id='{$linje_id[$x]}'", __FILE__ . " linje " . __LINE__); } elseif ($varenr[$x]) { opret_ordrelinje($ordre_id[$x], '', $varenr[$x], $antal, $beskrivelse[$x], $pris, $rabat, $procent, $art, $momsfri, $posnr[$x], $linje_id[$x], $incl_moms, $kdo[$x]); #20140426 # indset_varenr($varenr[$x],$posnr[$x],$antal,$beskrivelse[$x],$pris,$rabat,$ordre_id[$x]); } elseif ($beskrivelse[$x]) { db_modify("insert into ordrelinjer (posnr,antal,beskrivelse,pris,rabat,ordre_id,kdo,procent) values ('{$posnr[$x]}','0','{$beskrivelse[$x]}','0','0','{$ordre_id[$x]}','{$kdo[$x]}','100')", __FILE__ . " linje " . __LINE__); } else {
# 20150622 del 1 start $fp = fopen($filnavn, "w"); # 20150622 del 1 s**t if (!$udfyld && isset($_POST['gem'])) { #cho "Gemmer nu<br>"; $kontoantal = $_POST['kontoantal']; $maanedantal = $_POST['maanedantal']; $kontonr = $_POST['kontonr']; $amount = $_POST['amount']; $id = $_POST['id']; for ($x = 1; $x <= $kontoantal; $x++) { for ($z = 1; $z <= $maanedantal; $z++) { $b_id = $id[$x][$z] * 1; $tmp = substr($amount[$x][$z], -4); if (strpos($tmp, ",")) { $amount[$x][$z] = usdecimal($amount[$x][$z]); } $tal = round($amount[$x][$z], 0); if ($b_id) { db_modify("update budget set amount='{$tal}' where id='{$b_id}'", __FILE__ . " linje " . __LINE__); } elseif ($tal) { db_modify("insert into budget(regnaar,kontonr,md,amount) values ({$regnaar},'{$kontonr[$x]}','{$z}','{$tal}')", __FILE__ . " linje " . __LINE__); } } } db_modify("delete from budget where amount = 0", __FILE__ . " linje " . __LINE__); } $x = 0; $md = array(); #20140923 $q = db_select("select id,amount,md,kontonr from budget where regnaar='{$regnaar}' order by kontonr,md,id", __FILE__ . " linje " . __LINE__);
function overfoer_data($filnavn, $splitter, $feltnavn, $feltantal) { global $charset; global $regnaar; $r1 = db_fetch_array(db_select("select max(kodenr) as kodenr from grupper where art='RA'", __FILE__ . " linje " . __LINE__)); $regnskabsaar = $r1[kodenr]; $fp = fopen("{$filnavn}", "r"); if ($fp) { for ($y = 1; $y < 4; $y++) { $linje = fgets($fp); } $tmp = $linje; while ($tmp = substr(strstr($tmp, ";"), 1)) { $semikolon++; } $tmp = $linje; while ($tmp = substr(strstr($tmp, ","), 1)) { $komma++; } $tmp = $linje; while ($tmp = substr(strstr($tmp, chr(9)), 1)) { $tabulator++; } $tmp = ''; if ($komma > $semikolon && $komma > $tabulator) { $tmp = 'Komma'; $feltantal = $komma; } elseif ($semikolon > $tabulator && $semikolon > $komma) { $tmp = 'Semikolon'; $feltantal = $semikolon; } elseif ($tabulator > $semikolon && $tabulator > $komma) { $tmp = 'Tabulator'; $feltantal = $tabulator; } if (!$splitter) { $splitter = $tmp; } $cols = $feltantal + 1; } fclose($fp); for ($y = 0; $y <= $feltantal; $y++) { if ($feltnavn[$y] == 'Kontonr' && $kontonr == 1) { print "<BODY onLoad=\"javascript:alert('Der kan kun være 1 kolonne med Dato')\">"; $feltnavn[$y] = ''; } elseif ($feltnavn[$y] == 'Kontonr') { $kontonr = 1; } if ($feltnavn[$y] == 'Beskrivelse' && $beskrivelse == 1) { print "<BODY onLoad=\"javascript:alert('Der kan kun være 1 kolonne med Beskrivelse')\">"; $feltnavn[$y] = ''; } elseif ($feltnavn[$y] == 'Beskrivelse') { $beskrivelse = 1; } if (strstr($feltnavn[$y], 'Kontotype') && $kontotype == 1) { print "<BODY onLoad=\"javascript:alert('Der kan kun være 1 kolonne med Kontotype')\">"; $feltnavn[$y] = ''; } elseif ($feltnavn[$y] == 'Kontotype') { $kontotype = 1; } if (strstr($feltnavn[$y], 'Moms') && $moms == 1) { print "<BODY onLoad=\"javascript:alert('Der kan kun være 1 kolonne med Moms')\">"; $feltnavn[$y] = ''; } elseif ($feltnavn[$y] == 'Moms') { $moms = 1; } if (strstr($feltnavn[$y], 'Fra_kto') && $fra_kto == 1) { print "<BODY onLoad=\"javascript:alert('Der kan kun være 1 kolonne med fra_kto')\">"; $feltnavn[$y] = ''; } elseif ($feltnavn[$y] == 'Fra_kto') { $fra_kto = 1; } if (strstr($feltnavn[$y], 'primo') && $primo == 1) { print "<BODY onLoad=\"javascript:alert('Der kan kun være 1 kolonne med primo')\">"; $feltnavn[$y] = ''; } elseif ($feltnavn[$y] == 'primo') { $primo = 1; } } print "<tr><td colspan={$cols}><hr></td></tr>\n"; if (!$splitter || $splitter == 'Semikolon') { $splitter = ';'; } elseif ($splitter == 'Komma') { $splitter = ','; } elseif ($splitter == 'Tabulator') { $splitter = chr(9); } # print "<tr><td><span title='Angiv 1. bilagsnummer'><input type=text size=4 name=bilag value=$bilag></span></td>"; transaktion('begin'); #echo "delete from kontoplan where regnskabsaar='$regnskabsaar'<br>"; db_modify("delete from kontoplan where regnskabsaar='{$regnskabsaar}'", __FILE__ . " linje " . __LINE__); $fp = fopen("{$filnavn}", "r"); if ($fp) { $kontonumre = array(); $x = 0; while (!feof($fp)) { $skriv_linje = 0; if ($linje = trim(fgets($fp))) { $x++; $skriv_linje = 1; if ($charset == 'UTF-8') { $linje = utf8_encode($linje); } $felt = array(); $kontotyper = array("H", "D", "S", "Z", "R"); $momstyper = array("S", "K", "E", "Y"); $felt = explode($splitter, $linje); for ($y = 0; $y <= $feltantal; $y++) { $felt[$y] = trim($felt[$y]); $feltnavn[$y] = strtolower($feltnavn[$y]); if (substr($felt[$y], 0, 1) == '"' && substr($felt[$y], -1) == '"') { $felt[$y] = substr($felt[$y], 1, strlen($felt[$y]) - 2); } if ($feltnavn[$y] == 'Kontonr' && ($felt[$y] != $felt[$y] * 1 || in_array($felt[$y], $kontonumre))) { $skriv_linje = 2; } elseif ($feltnavn[$y] == 'Kontonr') { $kontonumre[$x] = $felt[$y]; } if ($feltnavn[$y] == 'kontonr' && $felt[$y] != $felt[$y] * 1) { $skriv_linje = 2; } if ($feltnavn[$y] == 'beskrivelse') { $felt[$y] = addslashes($felt[$y]); } if ($feltnavn[$y] == 'kontotype') { if (strlen($felt[$y]) > 1 || !in_array($felt[$y], $kontotyper)) { $skriv_linje = 2; } else { if ($felt[$y] == 'Z') { $sumkonto = 1; } else { $sumkonto = 0; } } } if ($feltnavn[$y] == 'moms') { $a = substr($felt[$y], 0, 1); $b = substr($felt[$y], 1); if ($felt[$y] && (!in_array($a, $momstyper) || $b != $b * 1)) { $skriv_linje = 2; } } if ($feltnavn[$y] == 'fra_kto' && $sumkonto) { if (!$felt[$y]) { $felt[$y] = '0'; } if ($felt[$y] != $felt[$y] * 1) { $skriv_linje = 2; } } elseif ($feltnavn[$y] == 'fra_kto') { $felt[$y] = '0'; } if ($feltnavn[$y] == 'primo') { if (!is_numeric($felt[$y])) { $felt[$y] = usdecimal($felt[$y]); } $balance = $balance + $felt[$y]; } } } if ($skriv_linje == 1) { $a = ''; $b = ''; for ($y = 0; $y <= $feltantal; $y++) { if ($y > 0 && $feltnavn[$y]) { if ($a) { $a = $a . ","; $b = $b . ","; } } if ($feltnavn[$y]) { $a = $a . $feltnavn[$y]; $b = $b . "'" . $felt[$y] . "'"; } } db_modify("insert into kontoplan({$a}, regnskabsaar) values ({$b}, '{$regnskabsaar}')", __FILE__ . " linje " . __LINE__); } } } fclose($fp); $q = db_modify("update kontoplan set til_kto=kontonr where kontotype='Z' and regnskabsaar='{$regnskabsaar}'", __FILE__ . " linje " . __LINE__); transaktion('commit'); print "</tbody></table>"; print "</td></tr>"; if ($regnaar == 1 && $balance) { print "<BODY onLoad=\"javascript:alert('Åbningsbalance stemmer ikke - kontroller sum')\">"; } else { print "<BODY onLoad=\"javascript:alert('Kontoplan importeret - husk at overføre åbningstal')\">"; } print "<meta http-equiv=\"refresh\" content=\"0;URL=../includes/luk.php\">"; }
function indsaet_linjer($kladde_id, $bilag, $dato, $beskrivelse, $d_type, $debet, $k_type, $kredit, $faktura, $belob, $afd, $ansat, $projekt, $valuta, $forfaldsdato, $betal_id, $momsfri) { global $fejl; $date = usdate($dato); $amount = usdecimal($belob); if ($forfaldsdato) { $forfaldsdate = usdate($forfaldsdato); } else { $forfaldsdate = NULL; } $bilag = str_replace('+', ':', $bilag); #jeg ved ikke hvorfor, men den vil ikke splitte med "+" list($bilag, $antal) = explode(':', $bilag); if ($ansat) { $r = db_fetch_array(db_select("select id from adresser where art = 'S'", __FILE__ . " linje " . __LINE__)); $tmp = $r['id'] * 1; $r = db_fetch_array(db_select("select id from ansatte where initialer = '{$ansat}' and konto_id = '{$tmp}'", __FILE__ . " linje " . __LINE__)); $ansat_id = $r['id']; } $ansat_id = $ansat_id * 1; if ($valuta && $valuta != 'DKK') { $r = db_fetch_array(db_select("select kodenr from grupper where box1 = '{$valuta}' and art = 'VK'", __FILE__ . " linje " . __LINE__)); if ($r['kodenr']) { $valutakode = $r['kodenr'] * 1; } else { $fejl = 1; print "<BODY onLoad=\"javascript:alert('Valuta {$valuta} eksisterer ikke (Bilag {$bilag})')\">"; } } else { $valutakode = 0; } if (!$fejl) { if ($antal == "=") { if (!$forfaldsdate) { $forfaldsdate = $date; } db_modify("insert into kassekladde (bilag,kladde_id,transdate,beskrivelse,d_type,debet,k_type,kredit,faktura,amount,afd,ansat,projekt,valuta,forfaldsdate,betal_id,momsfri) values ('{$bilag}','{$kladde_id}','{$date}','{$beskrivelse}','{$d_type}','{$debet}','{$k_type}','{$kredit}','{$faktura}','{$amount}','{$afd}','{$ansat_id}','{$projekt}','{$valutakode}','{$forfaldsdate}','{$betal_id}','{$momsfri}')", __FILE__ . " linje " . __LINE__); } else { $antal = $antal * 1; } if ($antal > 25) { #20150521 print "<BODY onLoad=\"javascript:alert('Du forsøger at indsætte {$antal} bilagslinjer! Max er 25!')\">"; $antal = 0; } for ($x = 1; $x <= $antal; $x++) { db_modify("insert into kassekladde (bilag, kladde_id, transdate) values ('{$bilag}', '{$kladde_id}', '{$date}')", __FILE__ . " linje " . __LINE__); db_modify("insert into tmpkassekl (bilag, kladde_id, transdate) values ('{$bilag}', '{$kladde_id}', '{$dato}')", __FILE__ . " linje " . __LINE__); } } if (!$fokus) { $fokus = "ny_kladdenote"; } }
if ($ny_rabat[$x][$y]>100) $ny_rabat[$x][$y]=100; if ($ny_rabat[$x][$y] != $rabat[$x][$y]) { if ($id[$x][$y]) { if ($ny_rabat[$x][$y]) db_modify("update rabat set rabat = '".$ny_rabat[$x][$y]."' where id = '".$id[$x][$y]."'",__FILE__ . " linje " . __LINE__); else { db_modify("delete from rabat where id = '".$id[$x][$y]."'",__FILE__ . " linje " . __LINE__); } } elseif ($ny_rabat[$x][$y]) db_modify("insert into rabat (rabat,debitorart,debitor,vareart,vare) values ('".$ny_rabat[$x][$y]."','DG','$x','VG',$y)",__FILE__ . " linje " . __LINE__); } } $dg_antal=0; } */ for ($x = 1; $x <= $dg_antal; $x++) { for ($y = 1; $y <= $vg_antal; $y++) { $ny_rabat[$x][$y] = usdecimal($ny_rabat[$x][$y]) * 1; $rabat[$x][$y] = $rabat[$x][$y] * 1; if ($ny_rabat[$x][$y] < 0) { $ny_rabat[$x][$y] = 0; } if ($ny_rabat[$x][$y] > 100 && $ny_rabatart[$x] == '%') { $ny_rabat[$x][$y] = 100; } if ($ny_rabat[$x][$y] != $rabat[$x][$y] || $ny_rabatart[$x] != $rabatart[$x]) { if ($id[$x][$y]) { if ($ny_rabat[$x][$y]) { db_modify("update rabat set rabat = '" . $ny_rabat[$x][$y] . "',rabatart = '" . $ny_rabatart[$x] . "' where id = '" . $id[$x][$y] . "'", __FILE__ . " linje " . __LINE__); } else { db_modify("delete from rabat where id = '" . $id[$x][$y] . "'", __FILE__ . " linje " . __LINE__); } } elseif ($ny_rabat[$x][$y]) {
$kurs = NULL; $valuta = NULL; $beskrivelse = NULL; $kodenr = if_isset($_GET['kodenr']); $id = if_isset($_GET['id']); if (isset($_GET['ret'])) { print "<BODY onLoad=\"javascript:alert('Ved kursændring skal du ikke rette kursen, men tilføje en ny kurs med angivelse af dato for kursændringen.\\nEllers risikerer du at lave rod i dit regnskab ')\">"; } if (isset($_POST['submit'])) { $dato = addslashes(if_isset($_POST['dato'])); $kurs = addslashes(if_isset($_POST['kurs'])); $valuta = addslashes(if_isset($_POST['valuta'])); $beskrivelse = addslashes(if_isset($_POST['beskrivelse'])); $difkto = if_isset($_POST['difkto']) * 1; $ny_valdate = usdate($dato); $ny_kurs = usdecimal($kurs); $r = db_fetch_array(db_select("select max(transdate) as transdate from transaktioner where valuta = '{$kodenr}'", __FILE__ . " linje " . __LINE__)); $transdate = $r['transdate']; if ($ny_valdate <= $transdate) { print "<BODY onLoad=\"javascript:alert('Det er foretaget posteringer i {$vauta} efter {$dato}! Kursændring afbrudt')\">"; $dato = NULL; } if (!($r = db_fetch_array(db_select("select id from kontoplan where kontonr='{$difkto}' and kontotype = 'D' and regnskabsaar= '{$regnaar}'")))) { print "<BODY onLoad=\"javascript:alert('Driftkonto {$difkto} eksisterer ikke')\">"; $difkto = ''; $kodenr = -1; } #cho "$difkto && is_numeric($kodenr) && $dato && $kurs && $dato!=\"-\" && $kurs!=\"-\"<br>"; if ($difkto && is_numeric($kodenr) && $dato && $kurs && $dato != "-" && $kurs != "-") { if ($id) { $r = db_fetch_array(db_select("select kurs from valuta where id = '{$id}'", __FILE__ . " linje " . __LINE__));
function flyt_data($kladde_id, $filnavn, $bilag, $modkonto) { global $charset; transaktion('begin'); $fp = fopen("{$filnavn}", "r"); if ($fp) { $y = 0; $feltantal = 0; # for ($y=1; $y<20; $y++) { while ($linje = fgets($fp)) { $linje = trim(utf8_encode($linje)); if ($linje) { $y++; $skriv_linje[$y] = 1; list($debitor[$y], $beskrivelse[$y], , , $belob[$y], , $date[$y]) = explode(";", $linje); if (!is_numeric($debitor[$y])) { $skriv_linje[$y] = 0; } $amount[$y] = usdecimal($belob[$y]) * 1; if (!$amount[$y]) { $skriv_linje[$y] = 0; } list($aar, $maaned, $dag) = explode("-", $date[$y]); # echo "$maaned,$dag,$aar<br>"; if (checkdate($maaned, $dag, $aar)) { $dato[$y] = dkdato($date[$y]); } else { $skriv_linje[$y] = 0; } } } } $linjeantal = $y; fclose($fp); for ($x = 1; $x <= $linjeantal; $x++) { if ($skriv_linje[$x] == 1) { $bilag++; db_modify("insert into kassekladde (bilag,transdate,beskrivelse,d_type,debet,k_type,kredit,amount,kladde_id) values ('{$bilag}','{$date[$x]}','{$beskrivelse[$x]}','F','{$modkonto}','D','{$debitor[$x]}','{$amount[$x]}', '{$kladde_id}')", __FILE__ . " linje " . __LINE__); } } fclose($fp); unlink($filnavn); # sletter filen. transaktion('commit'); print "<meta http-equiv=\"refresh\" content=\"0;URL=kassekladde.php?kladde_id={$kladde_id}\">"; }
db_modify("insert into kassekladde(bilag,transdate,beskrivelse,k_type,faktura,amount,kladde_id,kredit,valuta,forfaldsdate,betal_id) values ('{$bilag}','{$faktdate}','{$beskrivelse}','K','{$faktnr}','{$amount}','{$kladde_id}','{$k_kontonr}','{$valutakode}','{$forfaldsdate}','{$betal_id}')", __FILE__ . " linje " . __LINE__); } elseif ($felt1 == '"K"') { list($felt1, $kontonr, $projekt, $ansat, $beskrivelse, $belob, $moms) = split(chr(9), $linje); $kontonr = str_replace("\"", "", $kontonr); $projekt = str_replace("\"", "", $projekt); $beskrivelse = str_replace("\"", "", $beskrivelse); if ($projekt) { $projekt = $projekt * 1; $extra = ",projekt"; $projekt = ",'" . $projekt . "'"; } else { $projekt = ''; } $ansat = str_replace("\"", "", $ansat); $moms = str_replace("\"", "", $moms); $amount = usdecimal($belob); if ($moms == 'E1') { $momsfri = ''; } elseif ($moms) { $amount = $amount * 1.25; $momsfri = ''; } else { $momsfri = 'on'; } $r = db_fetch_array(db_select("select id from ansatte where konto_id='{$konto_id}' and initialer='{$ansat}'", __FILE__ . " linje " . __LINE__)); $ansat_id = $r['id'] * 1; db_modify("insert into kassekladde(bilag,transdate,beskrivelse,faktura,amount,kladde_id,momsfri,debet,valuta,ansat {$extra}) values ('{$bilag}','{$faktdate}','{$beskrivelse}','{$faktnr}','{$amount}','{$kladde_id}','{$momsfri}','{$kontonr}','{$valutakode}','{$ansat_id}' {$projekt})", __FILE__ . " linje " . __LINE__); } } if ($fejldato) { fclose($fp2);
function posbogfor($kasse, $regnstart) { global $afd; global $brugernavn; #cho $_POST['udtages']."<br>"; $udtages = if_isset($_POST['udtages']); if ($udtages) { $udtages = usdecimal($udtages) * 1; } #cho "select ansat_id from brugere where brugernavn = '$brugernavn'<br>"; $r = db_fetch_array(db_select("select ansat_id from brugere where brugernavn = '{$brugernavn}'", __FILE__ . " linje " . __LINE__)); $ansat_id = $r['ansat_id']; $r = db_fetch_array(db_select("select box2,box3 from grupper where art = 'POS' and kodenr = '1'", __FILE__ . " linje " . __LINE__)); $kassekonti = explode(chr(9), $r['box2']); $kassekonto = $kassekonti[$kasse - 1]; $afdelinger = explode(chr(9), $r['box3']); $afd = $afdelinger[$kasse - 1] * 1; $r = db_fetch_array(db_select("select box8 from grupper where art = 'POS' and kodenr = '2'", __FILE__ . " linje " . __LINE__)); $mellemkonti = explode(chr(9), $r['box8']); $mellemkonto = $mellemkonti[$kasse - 1]; $x = 0; #cho "select distinct(fakturadate) as fakturadate from ordrer where felt_5='$kasse' and konto_id= '0' and art = 'PO' and status='3' and fakturadate >= '$regnstart' order by fakturadate<br>\n"; $q = db_select("select distinct(fakturadate) as fakturadate from ordrer where felt_5='{$kasse}' and (konto_id='0' or betalingsbet='Kontant') and art = 'PO' and status='3' and fakturadate >= '{$regnstart}' order by fakturadate", __FILE__ . " linje " . __LINE__); while ($r = db_fetch_array($q)) { if ($r['fakturadate']) { $x++; $fakturadate[$x] = $r['fakturadate']; #cho "$fakturadate[$x]<br>\n"; } } $x = 0; #cho "select distinct(felt_1) as betaling from ordrer where felt_5='$kasse' and konto_id= '0' and art = 'PO' and status='3' and fakturadate >= '$regnstart' order by felt_1<br>\n"; $q = db_select("select distinct(felt_1) as betaling from ordrer where felt_5='{$kasse}' and (konto_id='0' or betalingsbet='Kontant') and art = 'PO' and status='3' and fakturadate >= '{$regnstart}' order by felt_1", __FILE__ . " linje " . __LINE__); while ($r = db_fetch_array($q)) { if ($r['betaling']) { $x++; $betaling[$x] = $r['betaling']; #cho "$betaling[$x]<br>\n"; } } $x = 0; #cho "select distinct(felt_3) as betaling2 from ordrer where felt_5='$kasse' and konto_id= '0' and art = 'PO' and status='3' and fakturadate >= '$regnstart' order by felt_3<br>\n"; $q = db_select("select distinct(felt_3) as betaling2 from ordrer where felt_5='{$kasse}' and (konto_id='0' or betalingsbet='Kontant') and art = 'PO' and status='3' and fakturadate >= '{$regnstart}' order by felt_3", __FILE__ . " linje " . __LINE__); while ($r = db_fetch_array($q)) { if ($r['betaling2']) { $x++; $betaling2[$x] = $r['betaling2']; } } for ($x = 1; $x <= count($fakturadate); $x++) { for ($y = 0; $y <= count($betaling); $y++) { for ($z = 0; $z <= count($betaling2); $z++) { $id = NULL; $q = db_select("select id from ordrer where felt_5='{$kasse}' and fakturadate='{$fakturadate[$x]}' and felt_1='{$betaling[$y]}' and felt_3='{$betaling2[$z]}' and (konto_id='0' or betalingsbet='Kontant') and art = 'PO' and status='3'", __FILE__ . " linje " . __LINE__); while ($r = db_fetch_array($q)) { if ($id) { $id .= "," . $r['id']; } else { $id = $r['id']; } } $r = db_fetch_array(db_select("select box9 from grupper where art='POS' and kodenr='1'", __FILE__ . " linje " . __LINE__)); if ($id) { transaktion('begin'); $svar = bogfor_nu("{$id}", "Dagsafslutning"); if ($svar && $svar != 'OK') { #cho "$svar<br>"; print "<BODY onLoad=\"javascript:alert('Der er konstateret en uoverenstemmelse i posteringssummen. \\nKontakt Danosoft på telefon 4690 2208 eller 2066 9820')\">\n"; print "<meta http-equiv=\"refresh\" content=\"0;URL=pos_ordre.php?id={$id}\">\n"; } else { transaktion('commit'); } } } } } if ($kassekonto && $mellemkonto && $udtages) { $dd = date("Y-m-d"); $logtime = date("H:i"); if ($udtages > 0) { $debet = 0; $kredit = $udtages; } else { $debet = $udtages; $kredit = 0; } db_modify("insert into transaktioner (bilag,transdate,beskrivelse,kontonr,faktura,debet,kredit,kladde_id,afd,logdate,logtime,projekt,ansat,ordre_id) values ('0','{$dd}','Overført til mellemkonto fra kasse {$kasse}','{$kassekonto}','0','{$debet}','{$kredit}',0,'{$afd}','{$dd}','{$logtime}','','{$ansat_id}','0')", __FILE__ . " linje " . __LINE__); db_modify("insert into transaktioner (bilag,transdate,beskrivelse,kontonr,faktura,debet,kredit,kladde_id,afd,logdate,logtime,projekt,ansat,ordre_id) values ('0','{$dd}','Overført til mellemkonto fra kasse {$kasse}','{$mellemkonto}','0','{$kredit}','{$debet}',0,'{$afd}','{$dd}','{$logtime}','','{$ansat_id}','0')", __FILE__ . " linje " . __LINE__); } }
function overfoer_data($filnavn, $splitter, $feltnavn, $feltantal) { global $charset; global $kontotype; global $art; global $opdat; $x = 0; $fp = fopen("../importfiler/postnr.csv", "r"); if ($fp) { while (!feof($fp)) { $x++; $linje = trim(fgets($fp)); list($postnr[$x], $bynavn[$x]) = explode(chr(9), $linje); } } fclose($fp); $postnr_antal = $x; $fp = fopen("{$filnavn}", "r"); if ($fp) { for ($y = 1; $y < 4; $y++) { $linje = fgets($fp); } $tmp = $linje; while ($tmp = substr(strstr($tmp, ";"), 1)) { $semikolon++; } $tmp = $linje; while ($tmp = substr(strstr($tmp, ","), 1)) { $komma++; } $tmp = $linje; while ($tmp = substr(strstr($tmp, chr(9)), 1)) { $tabulator++; } $tmp = ''; if ($komma > $semikolon && $komma > $tabulator) { $tmp = 'Komma'; $feltantal = $komma; } elseif ($semikolon > $tabulator && $semikolon > $komma) { $tmp = 'Semikolon'; $feltantal = $semikolon; } elseif ($tabulator > $semikolon && $tabulator > $komma) { $tmp = 'Tabulator'; $feltantal = $tabulator; } if (!$splitter) { $splitter = $tmp; } $cols = $feltantal + 1; } fclose($fp); for ($y = 0; $y <= $feltantal; $y++) { for ($x = 0; $x <= $felt_antal; $x++) { if ($felt_navn[$x] && $feltnavn[$y] == $felt_navn[$x] && $felt_aktiv[$x] == 1) { print "<BODY onLoad=\"javascript:alert('Der kan kun være 1 kolonne med {$felt_navn[$x]}')\">"; $feltnavn[$y] = ''; } elseif ($felt_navn[$x] && $feltnavn[$y] == $felt_navn[$x]) { $felt_aktiv[$x] = 1; } } } print "<tr><td colspan={$cols}><hr></td></tr>\n"; if (!$splitter || $splitter == 'Semikolon') { $splitter = ';'; } elseif ($splitter == 'Komma') { $splitter = ','; } elseif ($splitter == 'Tabulator') { $splitter = chr(9); } transaktion('begin'); #$felt_antal=$feltantal; if ($r = db_fetch_array(db_select("select * from grupper where art='DebInfo'", __FILE__ . " linje " . __LINE__))) { $status_id = explode(chr(9), $r['box3']); $status_beskrivelse = explode(chr(9), $r['box4']); $status_antal = count($status_id); # for ($x=0;$x<$status_antal;$x++)$status_beskrivelse[$x]=addslashes($status_beskrivelse[$x]); } else { db_modify("insert into grupper(beskrivelse,art) values ('Div DebitorInfo','DebInfo')", __FILE__ . " linje " . __LINE__); db_fetch_array(db_select("select box3 from grupper where art='DebInfo'", __FILE__ . " linje " . __LINE__)); $status_id = array(); $status_beskrivelse = array(); $status_antal = 0; } $ryd_firmanavn = 0; $fp = fopen("{$filnavn}", "r"); if ($fp) { $kontonumre = array(); $x = 0; $imp_antal = 0; while (!feof($fp)) { # $feltantal=$felt_antal; $skriv_linje = 0; if ($linje = fgets($fp)) { $x++; $skriv_linje = 1; if ($charset == 'UTF-8') { $linje = utf8_encode($linje); } $felt = array(); $felt = opdel($splitter, $linje); # if ($ryd_firmanavn) $felt[$ryd_firmanavn]=''; if (in_array('pbs_nr', $feltnavn) && !in_array('pbs', $feltnavn)) { $feltantal++; $pbs = $feltantal; $feltnavn[$feltantal] = 'pbs'; $felt[$feltantal] = ''; } if (in_array('husnr', $feltnavn)) { $felt = add2felt($feltantal, 'husnr', 'addr1', $feltnavn, $felt); } if (in_array('etage', $feltnavn)) { $felt = add2felt($feltantal, 'etage', 'addr1', $feltnavn, $felt); } if (in_array('fornavn', $feltnavn) && !in_array('firmanavn', $feltnavn)) { $feltantal++; $ryd_firmanavn = $feltantal; $feltnavn[$feltantal] = 'firmanavn'; $felt[$feltantal] = ''; } if (in_array('efternavn', $feltnavn) && !in_array('firmanavn', $feltnavn)) { $feltantal++; $ryd_firmanavn = $feltantal; $feltnavn[$feltantal] = 'firmanavn'; $felt[$feltantal] = ''; } if (in_array('fornavn', $feltnavn)) { $felt = add2felt($feltantal, 'fornavn', 'firmanavn', $feltnavn, $felt); } if (in_array('efternavn', $feltnavn)) { $felt = add2felt($feltantal, 'efternavn', 'firmanavn', $feltnavn, $felt); } for ($y = 0; $y <= $feltantal; $y++) { # $felt[$y]=addslashes(trim($felt[$y])); $feltnavn[$y] = strtolower($feltnavn[$y]); if (substr($felt[$y], 0, 1) == '"' && substr($felt[$y], -1) == '"') { $felt[$y] = substr($felt[$y], 1, strlen($felt[$y]) - 2); } if ($feltnavn[$y] == 'kontonr' && !is_numeric($felt[$y])) { $kontonr = 0; $skriv_linje = 2; } elseif ($feltnavn[$y] == 'kontonr') { $kontonr = $felt[$y]; } if ($feltnavn[$y] == 'pbs_nr' && $felt[$y]) { $felt[$pbs] = 'on'; } if ($feltnavn[$y] == "postnr") { list($felt[$y], $bynavn[$y]) = explode(" ", $felt[$y], 2); } if ($feltnavn[$y] == 'kontoansvarlig' && $felt[$y] && $kontonr) { $r = db_fetch_array(db_select("select id from adresser where kontonr='{$kontonr}'", __FILE__ . " linje " . __LINE__)); $konto_id = $r['id'] * 1; $r = db_fetch_array(db_select("select id from ansatte where initialer='{$felt[$y]}' and konto_id={$konto_id}", __FILE__ . " linje " . __LINE__)); $felt[$y] = $r['id'] * 1; } elseif ($feltnavn[$y] == 'kontoansvarlig') { $felt[$y] = '0'; } if ($feltnavn[$y] == 'oprettet' && $felt[$y] && $kontonr) { $felt[$y] = usdate($felt[$y]); } elseif ($feltnavn[$y] == 'oprettet') { $felt[$y] = date("Y-m-d"); } if ($feltnavn[$y] == 'kreditmax') { $felt[$y] = usdecimal($felt[$y]); } if ($feltnavn[$y] == 'betalingsbet') { $tmp = strtolower($felt[$y]); if ($tmp == 'lb.md.') { $felt[$y] = 'Lb.Md.'; } elseif ($tmp == 'forud') { $felt[$y] = 'Forud'; } elseif ($tmp == 'kontant') { $felt[$y] = 'Kontant'; } elseif ($tmp == 'efterkrav') { $felt[$y] = 'Efterkrav'; } else { $felt[$y] = 'Netto'; } } } } if ($skriv_linje == 1) { $addr_a = ''; $addr_b = ''; $upd = ''; $kontakt_a = ''; $kontakt_b = ''; $find_kontakt = ''; for ($y = 0; $y <= $feltantal; $y++) { if ($felt[$y] && $feltnavn[$y] == 'status' && !in_array($felt[$y], $status_beskrivelse)) { $x = 1; while (in_array($x, $status_id)) { $x++; } #finder laveste ledige vaerdi $status = $x; $status_id[$status_antal] = $x; $status_beskrivelse[$status_antal] = $felt[$y]; $felt[$y] = $x; $status_antal++; $box3 = NULL; $box4 = NULL; for ($x = 0; $x < $status_antal; $x++) { # if ($status_id[$x]==$rename_status) $status_beskrivelse[$x]=$ny_status; $box3 ? $box3 .= chr(9) . $status_id[$x] : ($box3 = $status_id[$x]); $box4 ? $box4 .= chr(9) . $status_beskrivelse[$x] : ($box4 = $status_beskrivelse[$x]); } db_modify("update grupper set box3='{$box3}',box4='{$box4}' where art = 'DebInfo'", __FILE__ . " linje " . __LINE__); } else { for ($x = 0; $x < $status_antal; $x++) { if ($felt[$y] == $status_beskrivelse[$x]) { $felt[$y] = $status_id[$x]; break 1; } } } #cho "$feltnavn[$y]<br>"; if ($feltnavn[$y] && $feltnavn[$y] != 'husnr' && $feltnavn[$y] != 'etage') { $felt[$y] = trim(addslashes($felt[$y])); if ($feltnavn[$y] == 'betalingsdage') { $felt[$y] *= 1; } if (!strstr($feltnavn[$y], "kontakt_")) { if ($addr_a) { $addr_a = $addr_a . ","; $addr_b = $addr_b . ","; $upd = $upd . ","; } $addr_a = $addr_a . $feltnavn[$y]; $addr_b = $addr_b . "'" . $felt[$y] . "'"; $upd = $upd . $feltnavn[$y] . "='" . $felt[$y] . "'"; } else { if ($kontakt_a) { $kontakt_a = $kontakt_a . ","; $kontakt_b = $kontakt_b . ","; $find_kontakt .= " and "; } $tmp = substr($feltnavn[$y], 8); $kontakt_a = $kontakt_a . $tmp; $kontakt_b = $kontakt_b . "'" . $felt[$y] . "'"; $find_kontakt ? $find_kontakt .= "{$tmp}='" . $felt[$y] . "'" : ($find_kontakt = "{$kontakt_a}={$kontakt_b}"); } } } if (!strstr($addr_a, 'lukket')) { $addr_a = $addr_a . ",lukket"; $addr_b = $addr_b . ",''"; } if (!strstr($addr_a, 'gruppe')) { $addr_a = $addr_a . ",gruppe"; $addr_b = $addr_b . ",'1'"; $upd = $upd . ",gruppe='1'"; } # if (!strpos($addr_a,'art')) { # $addr_a=$addr_a.",art"; # $addr_b=$addr_b.",'$art'"; # $upd=$upd.",art='$art'"; # } else { # for ($y=0; $y<=$feltantal; $y++) { # if ($feltnavn[$y]=='art') $art=$felt[$y]; # } # } if ($r = db_fetch_array(db_select("select id from adresser where kontonr='{$kontonr}' and art='{$art}'", __FILE__ . " linje " . __LINE__))) { if ($opdat) { $konto_id = $r['id']; $imp_antal++; db_modify("update adresser set {$upd} where id='{$konto_id}'", __FILE__ . " linje " . __LINE__); #cho "kontonr=$kontonr opdateret<br>"; } else { #cho "kontonr=$kontonr ikke opdateret<br>"; $konto_id = 0; } } else { $imp_antal++; db_modify("insert into adresser({$addr_a},kontotype,art) values ({$addr_b},'{$kontotype}','{$art}')", __FILE__ . " linje " . __LINE__); $r = db_fetch_array(db_select("select id from adresser where kontonr='{$kontonr}' and art = '{$art}'", __FILE__ . " linje " . __LINE__)); $konto_id = $r['id']; } if (in_array('kontakt', $feltnavn)) { for ($y = 0; $y <= $feltantal; $y++) { if ($feltnavn[$y] == 'kontakt') { $kontakt = $felt[$y]; } } } if ($kontakt && !($r = db_fetch_array(db_select("select id from ansatte where konto_id='{$konto_id}' and navn = '{$kontakt}'", __FILE__ . " linje " . __LINE__)))) { db_modify("update ansatte set posnr=posnr+1 where konto_id= '{$konto_id}'", __FILE__ . " linje " . __LINE__); db_modify("insert into ansatte(navn,posnr,konto_id) values ('{$kontakt}',1,'{$konto_id}')", __FILE__ . " linje " . __LINE__); } if ($kontakt_a && $kontakt_b) { if (!($r = db_fetch_array(db_select("select id from ansatte where konto_id='{$konto_id}' and {$find_kontakt}", __FILE__ . " linje " . __LINE__)))) { db_modify("update ansatte set posnr=posnr+1 where konto_id= '{$konto_id}'", __FILE__ . " linje " . __LINE__); db_modify("insert into ansatte({$kontakt_a},posnr,konto_id) values ({$kontakt_b},1,'{$konto_id}')", __FILE__ . " linje " . __LINE__); } if ($kontakt_b) { list($tmp, $null) = explode(",", $kontakt_b, 2); db_modify("update adresser set kontakt={$tmp} where id = '{$konto_id}'", __FILE__ . " linje " . __LINE__); } } } } } fclose($fp); transaktion('commit'); print "</tbody></table>"; print "</td></tr>"; print "<BODY onLoad=\"javascript:alert('{$imp_antal} adresser importeret')\">"; if ($popup) { print "<meta http-equiv=\"refresh\" content=\"0;URL=../includes/luk.php\">"; } else { print "<meta http-equiv=\"refresh\" content=\"0;URL=../systemdata/diverse.php\">"; } exit; }