Revision ea14cfa5
Von Moritz Bunkus vor mehr als 10 Jahren hinzugefügt
| SL/IS.pm | ||
|---|---|---|
| 583 | 583 |
$query = qq|SELECT nextval('glid')|;
|
| 584 | 584 |
($form->{"id"}) = selectrow_query($form, $dbh, $query);
|
| 585 | 585 |
|
| 586 |
$query = qq|INSERT INTO ar (id, invnumber, currency_id) VALUES (?, ?, (SELECT id FROM currencies WHERE name=?))|;
|
|
| 587 |
do_query($form, $dbh, $query, $form->{"id"}, $form->{"id"}, $form->{currency});
|
|
| 586 |
$query = qq|INSERT INTO ar (id, invnumber, currency_id, taxzone_id) VALUES (?, ?, (SELECT id FROM currencies WHERE name=?), ?)|;
|
|
| 587 |
do_query($form, $dbh, $query, $form->{"id"}, $form->{"id"}, $form->{currency}, $form->{taxzone_id});
|
|
| 588 | 588 |
|
| 589 | 589 |
if (!$form->{invnumber}) {
|
| 590 | 590 |
my $trans_number = SL::TransNumber->new(type => $form->{type}, dbh => $dbh, number => $form->{invnumber}, id => $form->{id});
|
Auch abrufbar als: Unified diff
Einkaufs-/Verkaufsbelege: Spalte taxzone_id bereits beim INSERT befüllen
Ansonsten gibt es wegen der neuen NOT NULL-Restriktion einen Fehler.