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