Revision 5a260a84
Von G. Richardson vor fast 5 Jahren hinzugefügt
| SL/Dev/Record.pm | ||
|---|---|---|
| 384 | 384 |
type => undef, # isn't set for ap |
| 385 | 385 |
employee_id => SL::DB::Manager::Employee->current->id, |
| 386 | 386 |
); |
| 387 |
# $ap_transaction->assign_attributes(%params) if %params; |
|
| 387 |
# assign any parameters that weren't explicitly handled above, e.g. itime |
|
| 388 |
$ap_transaction->assign_attributes(%params) if %params; |
|
| 388 | 389 |
|
| 389 | 390 |
foreach my $booking ( @{$bookings} ) {
|
| 390 | 391 |
my $chart = delete $booking->{chart};
|
| ... | ... | |
| 504 | 505 |
type => undef, # isn't set for ar |
| 505 | 506 |
employee_id => SL::DB::Manager::Employee->current->id, |
| 506 | 507 |
); |
| 507 |
# $ar_transaction->assign_attributes(%params) if %params; |
|
| 508 |
# assign any parameters that weren't explicitly handled above, e.g. itime |
|
| 509 |
$ar_transaction->assign_attributes(%params) if %params; |
|
| 508 | 510 |
|
| 509 | 511 |
foreach my $booking ( @{$bookings} ) {
|
| 510 | 512 |
my $chart = delete $booking->{chart};
|
| ... | ... | |
| 610 | 612 |
storno_id => undef, |
| 611 | 613 |
transactions => [], |
| 612 | 614 |
); |
| 615 |
# assign any parameters that weren't explicitly handled above, e.g. itime |
|
| 616 |
$gl_transaction->assign_attributes(%params) if %params; |
|
| 613 | 617 |
|
| 614 | 618 |
my @acc_trans; |
| 615 | 619 |
if ( scalar @{$bookings} ) {
|
Auch abrufbar als: Unified diff
Dev Record - create_{ar|ap|gl}_transaction mit assign_attributes
Damit kann man auch Felder setzen, die nicht explizit abgefragt und
geprüft werden, z.B. itime manuell setzen. Wird für manche Tests
benötigt.