Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision e023704a

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

  • ID e023704ae91d6ee9025caf005b01c270175cea0f
  • Vorgänger aed1f6f0
  • Nachfolger 6378138a

Angebots-Eingang: Verknüpfte Belege

Unterschiede anzeigen:

SL/Controller/RecordLinks.pm
49 49 
  { title => t8('Sales Reclamation'),       type => 'sales_reclamation',       model => 'Reclamation',     number => 'record_number',},
50 50 
  { title => t8('Sales Invoice'),           type => 'invoice',                 model => 'Invoice',         number => 'invnumber', },
51 51 
  { title => t8('Request for Quotation'),   type => 'request_quotation',       model => 'Order',           number => 'quonumber', },
52 
  { title => t8('Purchase Quotation Intake'), type => 'purchase_quotation_intake', model => 'Order',       number => 'quonumber', },
52 53 
  { title => t8('Purchase Order'),          type => 'purchase_order',          model => 'Order',           number => 'ordnumber', },
53 54 
  { title => t8('Purchase delivery order'), type => 'purchase_delivery_order', model => 'DeliveryOrder',   number => 'donumber',  },
54 55 
  { title => t8('Supplier delivery order'), type => 'supplier_delivery_order', model => 'DeliveryOrder',   number => 'sdonumber', },
SL/DB/Helper/LinkedRecords.pm
341 341 
              'SL::DB::DeliveryOrder'   =>  sub { $scores{ $_[0]->type } },
342 342 
              'SL::DB::Invoice'         =>  50,
343 343 
              request_quotation         => 120,
344 
              purchase_quotation_intake => 125,
344 345 
              purchase_order            => 130,
345 346 
              purchase_delivery_order   => 140,
346 347 
              'SL::DB::PurchaseInvoice' => 150,
SL/Presenter/Order.pm
34 34 
  return _oe_record($order, 'request_quotation', %params);
35 35 
}
36 36 

  		




  
  37
  
    
sub purchase_quotation_intake {


  		




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


  		




  
  39
  
    

  		




  
  40
  
    
  return _oe_record($order, 'purchase_quotation_intake', %params);


  		




  
  41
  
    
}


  		




  
  42
  
    

  		




  37
  43
  
    
sub purchase_order {


  		




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


  		




  39
  45
  
    

  		




  ......




  76
  82
  
    

  		




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


  		




  78
  84
  
    
quotations, sales order_intakes, sales orders,


  		




  79
  
  
    
requests for quotations and purchase orders


  		




  
  85
  
    
requests for quotations, purchase_quotation_intakes and purchase orders


  		




  80
  86
  
    

  		




  81
  87
  
    
=head1 SYNOPSIS


  		




  82
  88
  
    

  		












  

    
      SL/Presenter/Record.pm
    
  





  55
  55
  
    
  $output .= _ar_transaction_list(         $groups{ar_transactions},          %params) if $groups{ar_transactions};


  		




  56
  56
  
    

  		




  57
  57
  
    
  $output .= _request_quotation_list(      $groups{purchase_quotations},      %params) if $groups{purchase_quotations};


  		




  
  58
  
    
  $output .= _purchase_quotation_intake_list( $groups{purchase_quotation_intakes}, %params) if $groups{purchase_quotation_intakes};


  		




  58
  59
  
    
  $output .= _purchase_order_list(         $groups{purchase_orders},          %params) if $groups{purchase_orders};


  		




  59
  60
  
    
  $output .= _purchase_delivery_order_list($groups{purchase_delivery_orders}, %params) if $groups{purchase_delivery_orders};


  		




  60
  61
  
    
  $output .= _supplier_delivery_order_list($groups{supplier_delivery_orders}, %params) if $groups{supplier_delivery_orders};


  		




  ......




  197
  198
  
    
    sales_invoices           => sub { (ref($_[0]) eq 'SL::DB::Invoice')         &&  $_[0]->invoice                      },


  		




  198
  199
  
    
    ar_transactions          => sub { (ref($_[0]) eq 'SL::DB::Invoice')         && !$_[0]->invoice                      },


  		




  199
  200
  
    
    purchase_quotations      => sub { (ref($_[0]) eq 'SL::DB::Order')           &&  $_[0]->is_type('request_quotation') },


  		




  
  201
  
    
    purchase_quotation_intakes => sub { (ref($_[0]) eq 'SL::DB::Order')         &&  $_[0]->is_type('purchase_quotation_intake') },


  		




  200
  202
  
    
    purchase_orders          => sub { (ref($_[0]) eq 'SL::DB::Order')           &&  $_[0]->is_type('purchase_order')    },


  		




  201
  203
  
    
    purchase_delivery_orders => sub { (ref($_[0]) eq 'SL::DB::DeliveryOrder')   &&  $_[0]->is_type('purchase_delivery_order') },


  		




  202
  204
  
    
    supplier_delivery_orders => sub { (ref($_[0]) eq 'SL::DB::DeliveryOrder')   &&  $_[0]->is_type('supplier_delivery_order') },


  		




  ......




  313
  315
  
    
  );


  		




  314
  316
  
    
}


  		




  315
  317
  
    

  		




  
  318
  
    
sub _purchase_quotation_intake_list {


  		




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


  		




  
  320
  
    

  		




  
  321
  
    
  return record_list(


  		




  
  322
  
    
    $list,


  		




  
  323
  
    
    title   => $::locale->text('Purchase Quotation Intakes'),


  		




  
  324
  
    
    type    => 'purchase_quotation_intake',


  		




  
  325
  
    
    columns => [


  		




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


  		




  
  327
  
    
      [ $::locale->text('Quotation Number'),        sub { $_[0]->presenter->purchase_quotation_intake(display => 'table-cell') } ],


  		




  
  328
  
    
      [ $::locale->text('Vendor'),                  'vendor'                                                                   ],


  		




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


  		




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


  		




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


  		




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


  		




  
  333
  
    
    ],


  		




  
  334
  
    
    %params,


  		




  
  335
  
    
  );


  		




  
  336
  
    
}


  		




  
  337
  
    

  		




  316
  338
  
    
sub _sales_order_intake_list {


  		




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


  		




  318
  340
  
    

  		












Auch abrufbar als:  Unified diff