Revision e7e7d67b
Von Jan Büren vor etwa 5 Jahren hinzugefügt
| bin/mozilla/gl.pl | ||
|---|---|---|
| 1369 | 1369 |
$bt->update_attributes(invoice_amount => $bt->invoice_amount + ($payment->[0]->amount * -1)); |
| 1370 | 1370 |
|
| 1371 | 1371 |
# create record_link |
| 1372 |
my @props = (
|
|
| 1372 |
my %props = (
|
|
| 1373 | 1373 |
from_table => 'bank_transactions', |
| 1374 | 1374 |
from_id => $::form->{bt_id},
|
| 1375 | 1375 |
to_table => 'gl', |
| 1376 | 1376 |
to_id => $::form->{id},
|
| 1377 | 1377 |
); |
| 1378 |
SL::DB::RecordLink->new(@props)->save;
|
|
| 1378 |
SL::DB::RecordLink->new(%props)->save;
|
|
| 1379 | 1379 |
# and tighten holy acc_trans_id for this bank_transaction |
| 1380 | 1380 |
my %props_acc = ( |
| 1381 | 1381 |
acc_trans_id => $payment->[0]->acc_trans_id, |
Auch abrufbar als: Unified diff
Kosmetik/Perl-Detail Optionen als Hash anstatt array