Revision ea14cfa5
Von Moritz Bunkus vor mehr als 10 Jahren hinzugefügt
| SL/AP.pm | ||
|---|---|---|
|
($form->{id}) = selectrow_query($form, $dbh, qq|SELECT nextval('glid')|);
|
||
|
|
||
|
$query =
|
||
|
qq|INSERT INTO ap (id, invnumber, employee_id,currency_id) | .
|
||
|
qq|INSERT INTO ap (id, invnumber, employee_id,currency_id, taxzone_id) | .
|
||
|
qq|VALUES (?, ?, (SELECT e.id FROM employee e WHERE e.login = ?),
|
||
|
(SELECT id FROM currencies WHERE name = ?) )|;
|
||
|
do_query($form, $dbh, $query, $form->{id}, $form->{invnumber}, $form->{login}, $form->{currency});
|
||
|
(SELECT id FROM currencies WHERE name = ?), (SELECT taxzone_id FROM vendor WHERE id = ?) )|;
|
||
|
do_query($form, $dbh, $query, $form->{id}, $form->{invnumber}, $form->{login}, $form->{currency}, $form->{vendor_id});
|
||
|
|
||
|
}
|
||
|
|
||
| SL/AR.pm | ||
|---|---|---|
|
} else {
|
||
|
$query = qq|SELECT nextval('glid')|;
|
||
|
($form->{id}) = selectrow_query($form, $dbh, $query);
|
||
|
$query = qq|INSERT INTO ar (id, invnumber, employee_id, currency_id) VALUES (?, 'dummy', ?, (SELECT id FROM currencies WHERE name=?))|;
|
||
|
do_query($form, $dbh, $query, $form->{id}, $form->{employee_id}, $form->{currency});
|
||
|
$query = qq|INSERT INTO ar (id, invnumber, employee_id, currency_id, taxzone_id) VALUES (?, 'dummy', ?, (SELECT id FROM currencies WHERE name=?), (SELECT taxzone_id FROM customer WHERE id = ?))|;
|
||
|
do_query($form, $dbh, $query, $form->{id}, $form->{employee_id}, $form->{currency}, $form->{customer_id});
|
||
|
if (!$form->{invnumber}) {
|
||
|
my $trans_number = SL::TransNumber->new(type => 'invoice', dbh => $dbh, number => $form->{partnumber}, id => $form->{id});
|
||
|
$form->{invnumber} = $trans_number->create_unique;
|
||
| SL/DO.pm | ||
|---|---|---|
|
$query = qq|SELECT nextval('id')|;
|
||
|
($form->{id}) = selectrow_query($form, $dbh, $query);
|
||
|
|
||
|
$query = qq|INSERT INTO delivery_orders (id, donumber, employee_id, currency_id) VALUES (?, '', ?, (SELECT currency_id FROM defaults LIMIT 1))|;
|
||
|
do_query($form, $dbh, $query, $form->{id}, conv_i($form->{employee_id}));
|
||
|
$query = qq|INSERT INTO delivery_orders (id, donumber, employee_id, currency_id, taxzone_id) VALUES (?, '', ?, (SELECT currency_id FROM defaults LIMIT 1), ?)|;
|
||
|
do_query($form, $dbh, $query, $form->{id}, conv_i($form->{employee_id}), $form->{taxzone_id});
|
||
|
}
|
||
|
|
||
|
my $project_id;
|
||
| SL/IR.pm | ||
|---|---|---|
|
&reverse_invoice($dbh, $form);
|
||
|
} else {
|
||
|
($form->{id}) = selectrow_query($form, $dbh, qq|SELECT nextval('glid')|);
|
||
|
do_query($form, $dbh, qq|INSERT INTO ap (id, invnumber, currency_id) VALUES (?, '', (SELECT id FROM currencies WHERE name=?))|, $form->{id}, $form->{currency});
|
||
|
do_query($form, $dbh, qq|INSERT INTO ap (id, invnumber, currency_id, taxzone_id) VALUES (?, '', (SELECT id FROM currencies WHERE name=?), ?)|, $form->{id}, $form->{currency}, $form->{taxzone_id});
|
||
|
}
|
||
|
}
|
||
|
|
||
| SL/IS.pm | ||
|---|---|---|
|
$query = qq|SELECT nextval('glid')|;
|
||
|
($form->{"id"}) = selectrow_query($form, $dbh, $query);
|
||
|
|
||
|
$query = qq|INSERT INTO ar (id, invnumber, currency_id) VALUES (?, ?, (SELECT id FROM currencies WHERE name=?))|;
|
||
|
do_query($form, $dbh, $query, $form->{"id"}, $form->{"id"}, $form->{currency});
|
||
|
$query = qq|INSERT INTO ar (id, invnumber, currency_id, taxzone_id) VALUES (?, ?, (SELECT id FROM currencies WHERE name=?), ?)|;
|
||
|
do_query($form, $dbh, $query, $form->{"id"}, $form->{"id"}, $form->{currency}, $form->{taxzone_id});
|
||
|
|
||
|
if (!$form->{invnumber}) {
|
||
|
my $trans_number = SL::TransNumber->new(type => $form->{type}, dbh => $dbh, number => $form->{invnumber}, id => $form->{id});
|
||
| SL/OE.pm | ||
|---|---|---|
|
$query = qq|SELECT nextval('id')|;
|
||
|
($form->{id}) = selectrow_query($form, $dbh, $query);
|
||
|
|
||
|
$query = qq|INSERT INTO oe (id, ordnumber, employee_id, currency_id) VALUES (?, '', ?, (SELECT currency_id FROM defaults))|;
|
||
|
do_query($form, $dbh, $query, $form->{id}, $form->{employee_id});
|
||
|
$query = qq|INSERT INTO oe (id, ordnumber, employee_id, currency_id, taxzone_id) VALUES (?, '', ?, (SELECT currency_id FROM defaults), ?)|;
|
||
|
do_query($form, $dbh, $query, $form->{id}, $form->{employee_id}, $form->{taxzone_id});
|
||
|
}
|
||
|
|
||
|
my $amount = 0;
|
||
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.