Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 66b6d647

Von Werner Hahn vor fast 8 Jahren hinzugefügt

  • ID 66b6d6473abe4206549ae9cbea8a2583541a325a
  • Vorgänger 211de7dc
  • Nachfolger e8e03e2c

RecordsLinks auch für/bei ShopOrders anzeigen

Conflicts:
SL/Controller/RecordLinks.pm

Unterschiede anzeigen:

SL/Controller/RecordLinks.pm
15 15 
use SL::DB::RecordLink;
16 16 
use SL::DB::RequirementSpec;
17 17 
use SL::DBUtils qw(like);
18 
use SL::DB::ShopOrder;
18 19 
use SL::JSON;
19 20 
use SL::Locale::String;
20 21 

  		




  ......




  35
  36
  
    
);


  		




  36
  37
  
    

  		




  37
  38
  
    
my @link_type_specifics = (


  		




  38
  
  
    
  { title => t8('Requirement spec'),        type => 'requirement_spec',        model => 'RequirementSpec', number => 'id',           description => 'title',   description_title => t8('Title'),   date => undef, project => 'project', filter => 'working_copy_filter', },


  		




  
  39
  
    
  { title => t8('Requirement spec'),        type => 'requirement_spec',        model => 'RequirementSpec', number => 'id', project => 'project', description => 'title', date => undef, filter => 'working_copy_filter', },


  		




  
  40
  
    
  { title => t8('Shop Order'),              type => 'shop_order',              model => 'ShopOrder',       number => 'shop_ordernumber', },


  		




  39
  41
  
    
  { title => t8('Sales quotation'),         type => 'sales_quotation',         model => 'Order',           number => 'quonumber', },


  		




  40
  42
  
    
  { title => t8('Sales Order'),             type => 'sales_order',             model => 'Order',           number => 'ordnumber', },


  		




  41
  43
  
    
  { title => t8('Sales delivery order'),    type => 'sales_delivery_order',    model => 'DeliveryOrder',   number => 'donumber',  },


  		




  ......




  59
  61
  
    
  eval {


  		




  60
  62
  
    
    my $linked_records = $self->object->linked_records(direction => 'both', recursive => 1, save_path => 1);


  		




  61
  63
  
    
    push @{ $linked_records }, $self->object->sepa_export_items if $self->object->can('sepa_export_items');


  		




  
  64
  
    
    $main::lxdebug->dump(0, 'WH: RECORDS:', \$linked_records);


  		




  
  65
  
    

  		




  62
  66
  
    
    my $output         = SL::Presenter->get->grouped_record_list(


  		




  63
  67
  
    
      $linked_records,


  		




  64
  68
  
    
      with_columns      => [ qw(record_link_direction) ],


  		




  ......




  118
  122
  
    
  my ($self) = @_;


  		




  119
  123
  
    

  		




  120
  124
  
    
  my $manager     = 'SL::DB::Manager::' . $self->link_type_desc->{model};


  		




  121
  
  
    
  my $vc          = $self->link_type =~ m/sales_|^invoice|requirement_spec|letter/ ? 'customer' : 'vendor';


  		




  
  125
  
    
  my $vc          = $self->link_type =~ m/shop|sales_|^invoice|requirement_spec|letter/ ? 'customer' : 'vendor';


  		




  122
  126
  
    
  my $project     = $self->link_type_desc->{project};


  		




  123
  127
  
    
  my $project_id  = "${project}_id";


  		




  124
  128
  
    
  my $description = $self->link_type_desc->{description};


  		












Auch abrufbar als:  Unified diff