Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision d275698f

Von Werner Hahn vor mehr als 6 Jahren hinzugefügt

  • ID d275698f54eeaf70d50b9afa7a297b3d5bba708c
  • Vorgänger 9b933fc3
  • Nachfolger 8bd7bbaf

Shopmodul: RecordsLinks auch für/bei ShopOrders anzeigen

Conflicts:
SL/Controller/RecordLinks.pm

record links fehlende Datei

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 

  		




  ......




  36
  37
  
    
);


  		




  37
  38
  
    

  		




  38
  39
  
    
my @link_type_specifics = (


  		




  39
  
  
    
  { 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', },


  		




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


  		




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


  		




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


  		




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


  		




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


  		




  ......




  60
  62
  
    
  eval {


  		




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


  		




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


  		




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


  		




  
  66
  
    

  		




  63
  67
  
    
    my $output         = SL::Presenter->get->grouped_record_list(


  		




  64
  68
  
    
      $linked_records,


  		




  65
  69
  
    
      with_columns      => [ qw(record_link_direction) ],


  		




  ......




  119
  123
  
    
  my ($self) = @_;


  		




  120
  124
  
    

  		




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


  		




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


  		




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


  		




  123
  127
  
    
  my $project     = $self->link_type_desc->{project};


  		




  124
  128
  
    
  my $project_id  = "${project}_id";


  		




  125
  129
  
    
  my $description = $self->link_type_desc->{description};


  		












Auch abrufbar als:  Unified diff