Revision 8ee1c3bd
Von Jan Büren vor etwa 15 Jahren hinzugefügt
| SL/IS.pm | ||
|---|---|---|
|
conv_i($form->{"id"}));
|
||
|
do_query($form, $dbh, $query, @values);
|
||
|
|
||
|
if($form->{"formname"} eq "credit_note") {
|
||
|
for my $i (1 .. $form->{rowcount}) {
|
||
|
$query = qq|UPDATE parts SET onhand = onhand - ? WHERE id = ?|;
|
||
|
@values = (conv_i($form->{"qty_$i"}), conv_i($form->{"id_$i"}));
|
||
|
do_query($form, $dbh, $query, @values);
|
||
|
}
|
||
|
}
|
||
|
|
||
|
if ($form->{storno}) {
|
||
|
$query =
|
||
Auch abrufbar als: Unified diff
Bugfix zu 1289 Gutschriften zu Rechnungen haben in der Tat Lagerbewegungen (in der Tabelle parts) ausgelöst. Entsprechend rausgenommen