Revision f0fa67d2
Von Jan Büren vor mehr als 2 Jahren hinzugefügt
| SL/AR.pm | ||
|---|---|---|
|
|
||
|
my $dbh = $provided_dbh || SL::DB->client->dbh;
|
||
|
|
||
|
# if we have an id delete old records else make one
|
||
|
if (!$payments_only) {
|
||
|
if ($form->{id}) {
|
||
|
# delete detail records
|
||
|
$query = qq|DELETE FROM acc_trans WHERE trans_id = ?|;
|
||
|
do_query($form, $dbh, $query, $form->{id});
|
||
|
|
||
|
} else {
|
||
|
$query = qq|SELECT nextval('glid')|;
|
||
|
($form->{id}) = selectrow_query($form, $dbh, $query);
|
||
|
$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;
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
|
||
|
$form->{defaultcurrency} = $form->get_default_currency($myconfig);
|
||
|
# check default or record exchangerate
|
||
|
if ($form->{currency} eq $form->{defaultcurrency}) {
|
||
Auch abrufbar als: Unified diff
ARAP _post_transaction Anlegen der id am Anfang wie bei den Rechnungsmasken
Nicht ganz sauber getrennt, ein bisschen Refactor ist im Vor-Commit