Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision bba7b4f6

Von Bernd Bleßmann vor mehr als 1 Jahr hinzugefügt

  • ID bba7b4f6f4ef32cc2b99f1d0c23446c384003dc8
  • Vorgänger 549bb6d9
  • Nachfolger a1cd7d5e

Auftrags-Eingang: Verknüpfte Belege

Unterschiede anzeigen:

SL/Controller/RecordLinks.pm
42 42 
  { title => t8('Requirement spec'),        type => 'requirement_spec',        model => 'RequirementSpec', number => 'id', project => 'project', description => 'title', date => undef, filter => 'working_copy_filter', },
43 43 
  { title => t8('Shop Order'),              type => 'shop_order',              model => 'ShopOrder',       number => 'shop_ordernumber', date => 'order_date', project => undef, description => undef, },
44 44 
  { title => t8('Sales quotation'),         type => 'sales_quotation',         model => 'Order',           number => 'quonumber', },
45 
  { title => t8('Sales Order Intake'),      type => 'sales_order_intake',      model => 'Order',           number => 'ordnumber', },
45 46 
  { title => t8('Sales Order'),             type => 'sales_order',             model => 'Order',           number => 'ordnumber', },
46 47 
  { title => t8('Sales delivery order'),    type => 'sales_delivery_order',    model => 'DeliveryOrder',   number => 'donumber',  },
47 48 
  { title => t8('RMA delivery order'),      type => 'rma_delivery_order',      model => 'DeliveryOrder',   number => 'rdonumber', },
SL/DB/Helper/LinkedRecords.pm
335 335 
              'SL::DB::RequirementSpec' =>  15,
336 336 
              'SL::DB::Order'           =>  sub { $scores{ $_[0]->type } },
337 337 
              sales_quotation           =>  20,
338 
              sales_order_intake        =>  25,
338 339 
              sales_order               =>  30,
339 340 
              sales_delivery_order      =>  40,
340 341 
              'SL::DB::DeliveryOrder'   =>  sub { $scores{ $_[0]->type } },
SL/Presenter/Order.pm
16 16 
  return _oe_record($order, 'sales_quotation', %params);
17 17 
}
18 18 

  		




  
  19
  
    
sub sales_order_intake {


  		




  
  20
  
    
  my ($order, %params) = @_;


  		




  
  21
  
    

  		




  
  22
  
    
  return _oe_record($order, 'sales_order_intake', %params);


  		




  
  23
  
    
}


  		




  
  24
  
    

  		




  19
  25
  
    
sub sales_order {


  		




  20
  26
  
    
  my ($order, %params) = @_;


  		




  21
  27
  
    

  		




  ......




  69
  75
  
    
=head1 NAME


  		




  70
  76
  
    

  		




  71
  77
  
    
SL::Presenter::Order - Presenter module for Rose::DB objects for sales


  		




  72
  
  
    
quotations, sales orders, requests for quotations and purchase orders


  		




  
  78
  
    
quotations, sales order_intakes, sales orders,


  		




  
  79
  
    
requests for quotations and purchase orders


  		




  73
  80
  
    

  		




  74
  81
  
    
=head1 SYNOPSIS


  		




  75
  82
  
    

  		












  

    
      SL/Presenter/Record.pm
    
  





  46
  46
  
    
  $output .= _requirement_spec_list(       $groups{requirement_specs},        %params) if $groups{requirement_specs};


  		




  47
  47
  
    
  $output .= _shop_order_list(             $groups{shop_orders},              %params) if $groups{shop_orders};


  		




  48
  48
  
    
  $output .= _sales_quotation_list(        $groups{sales_quotations},         %params) if $groups{sales_quotations};


  		




  
  49
  
    
  $output .= _sales_order_intake_list(     $groups{sales_order_intakes},      %params) if $groups{sales_order_intakes};


  		




  49
  50
  
    
  $output .= _sales_order_list(            $groups{sales_orders},             %params) if $groups{sales_orders};


  		




  50
  51
  
    
  $output .= _sales_delivery_order_list(   $groups{sales_delivery_orders},    %params) if $groups{sales_delivery_orders};


  		




  51
  52
  
    
  $output .= _rma_delivery_order_list(     $groups{rma_delivery_orders},      %params) if $groups{rma_delivery_orders};


  		




  ......




  188
  189
  
    
    requirement_specs        => sub { (ref($_[0]) eq 'SL::DB::RequirementSpec')                                         },


  		




  189
  190
  
    
    shop_orders              => sub { (ref($_[0]) eq 'SL::DB::ShopOrder')       &&  $_[0]->id                           },


  		




  190
  191
  
    
    sales_quotations         => sub { (ref($_[0]) eq 'SL::DB::Order')           &&  $_[0]->is_type('sales_quotation')   },


  		




  
  192
  
    
    sales_order_intakes      => sub { (ref($_[0]) eq 'SL::DB::Order')           &&  $_[0]->is_type('sales_order_intake') },


  		




  191
  193
  
    
    sales_orders             => sub { (ref($_[0]) eq 'SL::DB::Order')           &&  $_[0]->is_type('sales_order')       },


  		




  192
  194
  
    
    sales_delivery_orders    => sub { (ref($_[0]) eq 'SL::DB::DeliveryOrder')   &&  $_[0]->is_type('sales_delivery_order') },


  		




  193
  195
  
    
    rma_delivery_orders      => sub { (ref($_[0]) eq 'SL::DB::DeliveryOrder')   &&  $_[0]->is_type('rma_delivery_order')   },


  		




  ......




  311
  313
  
    
  );


  		




  312
  314
  
    
}


  		




  313
  315
  
    

  		




  
  316
  
    
sub _sales_order_intake_list {


  		




  
  317
  
    
  my ($list, %params) = @_;


  		




  
  318
  
    

  		




  
  319
  
    
  return record_list(


  		




  
  320
  
    
    $list,


  		




  
  321
  
    
    title   => $::locale->text('Sales Order Intakes'),


  		




  
  322
  
    
    type    => 'sales_order_intake',


  		




  
  323
  
    
    columns => [


  		




  
  324
  
    
      [ $::locale->text('Order Date'),              'transdate'                                                                ],


  		




  
  325
  
    
      [ $::locale->text('Order Number'),            sub { $_[0]->presenter->sales_order_intake(display => 'table-cell') }      ],


  		




  
  326
  
    
      [ $::locale->text('Quotation'),               'quonumber' ],


  		




  
  327
  
    
      [ $::locale->text('Customer'),                'customer'                                                                 ],


  		




  
  328
  
    
      [ $::locale->text('Net amount'),              'netamount'                                                                ],


  		




  
  329
  
    
      [ $::locale->text('Transaction description'), 'transaction_description'                                                  ],


  		




  
  330
  
    
      [ $::locale->text('Project'),                 'globalproject', ],


  		




  
  331
  
    
      [ $::locale->text('Closed'),                  'closed'                                                                   ],


  		




  
  332
  
    
    ],


  		




  
  333
  
    
    %params,


  		




  
  334
  
    
  );


  		




  
  335
  
    
}


  		




  
  336
  
    

  		




  314
  337
  
    
sub _sales_order_list {


  		




  315
  338
  
    
  my ($list, %params) = @_;


  		




  316
  339
  
    

  		












Auch abrufbar als:  Unified diff