post in SL::DB::Invoice funktioniert nur für Verkaufsrechnungen

Abbruch, wenn post bei einer Debitorenbuchung aufgerufen wird.

diff --git a/SL/DB/Invoice.pm b/SL/DB/Invoice.pm
index 54da8fa7ff00f84a9d7990b43c3f59336761c20f..7efe38ed43b3b1756f6989b6f28ee69290767dd3 100644 (file)
--- a/SL/DB/Invoice.pm
+++ b/SL/DB/Invoice.pm
@@ -222,6 +222,8 @@ sub new_from {
 sub post {
   my ($self, %params) = @_;
 
+  die "not an invoice" unless $self->invoice;
+
   require SL::DB::Chart;
   if (!$params{ar_id}) {
     my $chart = SL::DB::Manager::Chart->get_all(query   => [ SL::DB::Manager::Chart->link_filter('AR') ],