]> wagnertech.de Git - mfinanz.git/blobdiff - SL/DO.pm
Redmine: #317 KNE-Export für DATEV entfernen
[mfinanz.git] / SL / DO.pm
index 3b0b41be24a44750b87a3129cc3b6a0e18040b4f..53730d77148b03e08dde125f1afe7dc38692ec28 100644 (file)
--- a/SL/DO.pm
+++ b/SL/DO.pm
@@ -663,7 +663,7 @@ sub delete_transfers {
     die "No valid delivery order found" unless ref $do eq 'SL::DB::DeliveryOrder';
 
     my $dt = DateTime->today->subtract(days => $::instance_conf->get_undo_transfer_interval);
-    croak "Wrong call. Please check undoing interval" unless DateTime->compare($do->itime, $dt) == 1;
+    croak "Wrong call. Please check undoing interval" unless $do->itime > $dt;
 
     foreach my $doi (@{ $do->orderitems }) {
       foreach my $dois (@{ $doi->delivery_order_stock_entries}) {