Revision 3c1ceacd
Von Moritz Bunkus vor mehr als 16 Jahren hinzugefügt
| SL/IR.pm | ||
|---|---|---|
| 37 | 37 |
use SL::AM; |
| 38 | 38 |
use SL::Common; |
| 39 | 39 |
use SL::DBUtils; |
| 40 |
use SL::DO; |
|
| 40 | 41 |
use SL::MoreCommon; |
| 41 | 42 |
use List::Util qw(min); |
| 42 | 43 |
|
| ... | ... | |
| 538 | 539 |
|
| 539 | 540 |
Common::webdav_folder($form) if ($main::webdav); |
| 540 | 541 |
|
| 541 |
my $rc = 1; |
|
| 542 |
my @close_do_ids = map { $_ * 1 } grep { $_ } split m/\s+/, $form->{close_do_ids};
|
|
| 543 |
if (scalar @close_do_ids) {
|
|
| 544 |
DO->close_orders('dbh' => $dbh,
|
|
| 545 |
'ids' => \@close_do_ids); |
|
| 546 |
} |
|
| 542 | 547 |
|
| 548 |
my $rc = 1; |
|
| 543 | 549 |
if (!$provided_dbh) {
|
| 544 | 550 |
$rc = $dbh->commit(); |
| 545 | 551 |
$dbh->disconnect(); |
Auch abrufbar als: Unified diff
------------------------------------------------------------------------
r7135 | mbunkus | 2008-06-20 10:56:08 +0200 (Fri, 20 Jun 2008) | 1 line
Wenn eine Rechnung aus einem oder mehreren Lieferscheinen erstellt wird, so wird beim Buchen der Rechnung automatisch alle Lieferscheine als geschlossen markiert, aus denen die Rechnung erstellt wurde.
------------------------------------------------------------------------