Revision 72e40323
Von Kivitendo Admin vor mehr als 8 Jahren hinzugefügt
| SL/DB/Invoice.pm | ||
|---|---|---|
| 240 | 240 |
|
| 241 | 241 |
require SL::DB::Chart; |
| 242 | 242 |
if (!$params{ar_id}) {
|
| 243 |
my $chart = SL::DB::Manager::Chart->get_all(query => [ SL::DB::Manager::Chart->link_filter('AR') ],
|
|
| 244 |
sort_by => 'id ASC', |
|
| 245 |
limit => 1)->[0]; |
|
| 243 |
my $chart; |
|
| 244 |
if ($::instance_conf->get_ar_chart_id) {
|
|
| 245 |
$chart = SL::DB::Manager::Chart->find_by(id => $::instance_conf->get_ar_chart_id); |
|
| 246 |
} else {
|
|
| 247 |
$chart = SL::DB::Manager::Chart->get_all(query => [ SL::DB::Manager::Chart->link_filter('AR') ],
|
|
| 248 |
sort_by => 'id ASC', |
|
| 249 |
limit => 1)->[0]; |
|
| 250 |
}; |
|
| 246 | 251 |
croak("No AR chart found and no parameter 'ar_id' given") unless $chart;
|
| 247 | 252 |
$params{ar_id} = $chart->id;
|
| 248 | 253 |
} |
Auch abrufbar als: Unified diff
SL::DB::Invoice.pm post Methode benutzt Standardforderungskonto
statt einfach das erste AR-Konto, wenn es in der Mandantenkonfiguration
gesetzt ist, und kein Forderungskonto übergeben wurde.