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;
}
