function krediter($id, $levdate, $beholdning, $vare_id, $antal, $pris, $linje_id, $serienr, $kred_linje_id)
{
global $sn_id;
global $lev_nr;
global $fp;
$rest = $antal;
$sn_start = 0;
$kobsbelob = 0;
$a = 0;
$res_sum = 0;
$row = db_fetch_array(db_select("select posnr, kred_linje_id from ordrelinjer where id='{$linje_id}'", __FILE__ . " linje " . __LINE__));
$kred_linje_id = $row['kred_linje_id'];
$posnr = $row['posnr'];
$x = 0;
$q = db_select("select * from batch_salg where linje_id={$kred_linje_id} order by id desc", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$x++;
$batch_kob_id[$x] = $r['batch_kob_id'];
$batch_kob_antal[$x] = $r['antal'];
if ($batch_kob_antal[$x] > $antal) {
$batch_kob_antal[$x] = $antal;
}
if (!$batch_kob_id[$x]) {
?>
<script language="Javascript">
<!--
alert ("Der er observeret en uoverensstemmelse mellem mellem oprindelig ordre og denne (pos nr: <?php
echo $posnr;
?>
)\nRapporter venligst til udviklingsteamet. mail: fejl@saldi.dk")
//-->
</script>
<?php
print "<meta http-equiv=\"refresh\" content=\"0;URL=ordre.php?id={$id}\">";
exit;
}
}
if (count($batch_kob_id)) {
db_modify("update batch_kob set rest = rest+{$antal} where id ='{$batch_kob_id['1']}'", __FILE__ . " linje " . __LINE__);
}
$tmp = $antal * -1;
db_modify("insert into batch_salg(vare_id, linje_id, salgsdate, ordre_id, antal) values ({$vare_id}, {$linje_id}, '{$levdate}', {$id}, {$tmp})", __FILE__ . " linje " . __LINE__);
# db_modify("insert into batch_kob(vare_id, linje_id, kobsdate, ordre_id, antal, rest) values ($vare_id, $linje_id, '$levdate', $id, $antal, $antal)",__FILE__ . " linje " . __LINE__);
# $r=db_fetch_array(db_select("select max(id) as id from batch_kob where linje_id=$linje_id",__FILE__ . " linje " . __LINE__));
# $q = db_select("select id from batch_kob where linje_id=$kred_linje_id",__FILE__ . " linje " . __LINE__);
# $batch_kob_id=$r['id'];
lagerstatus($vare_id, $lager, -$antal);
if ($serienr || $serienr == '0') {
$q = db_select("select * from serienr where salgslinje_id=-{$kred_linje_id}", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$serienr = $r['serienr'];
db_modify("insert into serienr (kobslinje_id, vare_id, batch_kob_id, serienr, batch_salg_id, salgslinje_id) values ('{$linje_id}','{$vare_id}', {$batch_kob_id}, '{$r['serienr']}','0','0')", __FILE__ . " linje " . __LINE__);
}
}
#xit;
}
function krediter($id, $levdate, $beholdning, $vare_id, $antal, $pris, $linje_id, $serienr, $kred_linje_id)
{
global $sn_id;
global $lev_nr;
global $fp;
$rest = $antal;
$sn_start = 0;
$kobsbelob = 0;
$a = 0;
$res_sum = 0;
$query = db_select("select posnr, kred_linje_id from ordrelinjer where id={$linje_id}", __FILE__ . " linje " . __LINE__);
$row = db_fetch_array($query);
$kred_linje_id = $row[kred_linje_id];
$posnr = $row[posnr];
if ($kred_linje_id > 0) {
#if Indsat 071106 grundet fejl ved negativt vareantal p�ordin� salgsordre.
# Anvendes ved ved negativt vareantal p� ordin�r salgsordre - n�r varen tidligere har v�ret solgt til kunden
$x = 0;
$q = db_select("select * from batch_salg where linje_id={$kred_linje_id}", __FILE__ . " linje " . __LINE__);
while ($r = db_fetch_array($q)) {
$x++;
$batch_kob_id[$x] = $r[batch_kob_id];
$batch_kob_antal[$x] = $r[antal];
if ($batch_kob_antal[$x] > $antal) {
$batch_kob_antal[$x] = $antal;
}
if (!$batch_kob_id[$x]) {
?>
<script language="Javascript">
<!--
alert ("Der er observeret en uoverensstemmelse mellem mellem oprindelig ordre og denne (pos nr: <?php
echo $posnr;
?>
)\nRapporter venligst til udviklingsteamet. mail: fejl@saldi.dk")
//-->
</script>
<?php
print "<meta http-equiv=\"refresh\" content=\"0;URL=ordre.php?id={$id}\">";
exit;
}
$q2 = db_select("select rest from batch_kob where id={$batch_kob_id[$x]}", __FILE__ . " linje " . __LINE__);
$r2 = db_fetch_array($q2);
$kob_rest[$x] = $r2[rest] + $batch_kob_antal[$x];
db_modify("update batch_kob set rest={$kob_rest[$x]} where id={$batch_kob_id[$x]}", __FILE__ . " linje " . __LINE__);
lagerstatus($vare_id, $lager, -$batch_kob_antal[$x]);
db_modify("insert into batch_salg(batch_kob_id, vare_id, linje_id, salgsdate, ordre_id, antal, lev_nr) values ({$batch_kob_id[$x]}, {$vare_id}, {$linje_id}, '{$levdate}', {$id}, -{$batch_kob_antal[$x]}, '{$lev_nr}')", __FILE__ . " linje " . __LINE__);
# Rettet til $antal fra $batch_kob_antal[$x] -- rettet tilbage 12.11.07 dat det ikke fungerer hvis antal != batch_kob_antal[$x] .
$q3 = db_select("select id from batch_salg where batch_kob_id={$batch_kob_id[$x]} and vare_id={$vare_id} and linje_id={$linje_id} and salgsdate='{$levdate}' and ordre_id={$id} and antal=-{$batch_kob_antal[$x]} and lev_nr='{$lev_nr}' order by id desc", __FILE__ . " linje " . __LINE__);
#se ovenfor.
$r3 = db_fetch_array($q3);
$batch_salg_id[$x] = $r3['id'];
if ($serienr) {
$q4 = db_select("select * from serienr where salgslinje_id=-{$kred_linje_id}", __FILE__ . " linje " . __LINE__);
while ($r4 = db_fetch_array($q4)) {
db_modify("insert into serienr (kobslinje_id, vare_id, batch_kob_id, serienr, batch_salg_id, salgslinje_id) values ({$r4['kobslinje_id']}, {$r4['vare_id']}, {$r4['batch_kob_id']}, '{$r4['serienr']}', {$batch_salg_id[$x]}, {$linje_id})", __FILE__ . " linje " . __LINE__);
db_modify("update serienr set batch_salg_id=-{$r4['batch_salg_id']} where id={$r4['id']}", __FILE__ . " linje " . __LINE__);
}
}
}
} else {
db_modify("update ordrelinjer set kred_linje_id = '-1' where id = {$linje_id}", __FILE__ . " linje " . __LINE__);
#indsat 20071004
db_modify("insert into batch_kob(vare_id, linje_id, kobsdate, ordre_id, antal, rest) values ({$vare_id}, {$linje_id}, '{$levdate}', {$id}, {$antal}, {$antal})", __FILE__ . " linje " . __LINE__);
if ($serienr) {
$query = db_select("select * from serienr where salgslinje_id=-{$kred_linje_id}", __FILE__ . " linje " . __LINE__);
while ($row = db_fetch_array($query)) {
db_modify("insert into serienr (kobslinje_id, vare_id, batch_kob_id, serienr, batch_salg_id, salgslinje_id) values ({$row['kobslinje_id']}, {$row['vare_id']}, {$row['batch_kob_id']}, '{$row['serienr']}', {$batch_salg_id}, {$linje_id})", __FILE__ . " linje " . __LINE__);
db_modify("update serienr set batch_salg_id=-{$row['batch_salg_id']} where id={$row['id']}", __FILE__ . " linje " . __LINE__);
}
}
}
}
