- $main::lxdebug->message(0, "commit: " . $dbh->commit());
- $main::lxdebug->message(0, "errstr: " . $dbh->errstr);
+ $dbh->commit();
+ $dbh->begin_work();
+}
+
+sub assign_buchungsgruppen_for_assemblies {
+ my ($query, $sth, $i);
+
+ $query =
+ "UPDATE parts " .
+ "SET buchungsgruppen_id = ? " .
+ "WHERE assembly AND " .
+ "(buchungsgruppen_id ISNULL OR (buchungsgruppen_id = 0)) AND " .
+ "(income_accno_id = ?)";
+ $sth = $dbh->prepare($query);
+
+ for ($i = 1; $i <= $form->{"rowcount"}; $i++) {
+ next unless ($form->{"new_buchungsgruppen_id_$i"});
+
+ my @values = ($form->{"new_buchungsgruppen_id_$i"},
+ $form->{"income_accno_id_0_$i"});
+ $sth->execute(@values) ||
+ mydberror($query . " (" . join(", ", @values) . ")");
+ }
+
+ $sth->finish();
+
+ $dbh->commit();