Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 6859be4f

Von Bernd Bleßmann vor 8 Monaten hinzugefügt

  • ID 6859be4fce4fe9cd0a8da5ce82d8c72775abc1d6
  • Vorgänger 57008bc3
  • Nachfolger 196e8ebf

S:D:Order: Methoden für Vorgängerbelege für Orders ohne id erweitert …

… auf Angebotseingang und Anfrage

Unterschiede anzeigen:

SL/DB/Order.pm
861 861
  } else {
862 862
    if ('SL::DB::Order' eq $self->{RECORD_TYPE_REF()}) {
863 863
      my $order = SL::DB::Order->load_cached($self->{RECORD_ID()});
864
      push @lrs, $order if $order->record_type eq PURCHASE_QUOTATION_INTAKE_TYPE();
864
      if ($order->record_type eq PURCHASE_QUOTATION_INTAKE_TYPE()) {
865
        push @lrs, $order;
866

  
867
      } elsif ($order->record_type eq PURCHASE_ORDER_TYPE()) {
868
        @lrs = @{ $order->preceding_purchase_quotation_intakes() || [] };
869
      }
865 870
    }
866 871
  }
867 872

  
......
877 882
  } else {
878 883
    if ('SL::DB::Order' eq $self->{RECORD_TYPE_REF()}) {
879 884
      my $order = SL::DB::Order->load_cached($self->{RECORD_ID()});
880
      push @lrs, $order if $order->record_type eq REQUEST_QUOTATION_TYPE();
885
      if ($order->record_type eq REQUEST_QUOTATION_TYPE()) {
886
        push @lrs, $order
887

  
888
      } elsif (any { $order->record_type eq $_ } (PURCHASE_ORDER_TYPE(), PURCHASE_QUOTATION_INTAKE_TYPE())) {
889
        @lrs = @{ $order->preceding_request_quotations() || [] };
890
      }
881 891
    }
882 892
  }
883 893

  

Auch abrufbar als: Unified diff