Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision a513e188

Von Bernd Bleßmann vor etwa 1 Jahr hinzugefügt

  • ID a513e1882d62a2d919f0430e802327b05da6a760
  • Vorgänger fa0d7587
  • Nachfolger 19fce727

Artikel-Stamm: Preisinfo aus Angebot/Auftrag: Preisfaktor berücksichtigen

Unterschiede anzeigen:

SL/Controller/SellPriceInformation.pm
65 65 
sub column_defs {
66 66 
  my ($self) = @_;
67 67 
  return {
68 
    transdate   => { text => $::locale->text('Date'),
69 
                      sub => sub { $_[0]->order->transdate_as_date }},
70 
    ordnumber   => { text => $::locale->text('Number'),
71 
                      sub => sub { $_[0]->order->number },
72 
                 obj_link => sub { $self->link_to($_[0]->order) }},
73 
    customer    => { text => $::locale->text('Customer'),
74 
                      sub => sub { $_[0]->order->customer->name },
75 
                 obj_link => sub { $self->link_to($_[0]->order->customer) }},
76 
    customer    => { text => $::locale->text('Customer'),
77 
                      sub => sub { $_[0]->order->customer->name },
78 
                 obj_link => sub { $self->link_to($_[0]->order->customer) }},
79 
    ship        => { text => $::locale->text('Delivered'),
80 
                      sub => sub { $::form->format_amount(\%::myconfig, $_[0]->shipped_qty) . ' ' . $_[0]->unit }},
81 
    qty         => { text => $::locale->text('Qty'),
82 
                      sub => sub { $_[0]->qty_as_number . ' ' . $_[0]->unit }},
83 
    sellprice   => { text => $::locale->text('Sell Price'),
84 
                      sub => sub { $_[0]->sellprice_as_number }},
85 
    discount    => { text => $::locale->text('Discount'),
86 
                      sub => sub { $_[0]->discount_as_percent . "%" }},
87 
    amount      => { text => $::locale->text('Amount'),
88 
                      sub => sub { $::form->format_amount(\%::myconfig, $_[0]->qty * $_[0]->sellprice * (1 - $_[0]->discount), 2) }},
68 
    transdate    => { text => $::locale->text('Date'),
69 
                       sub => sub { $_[0]->order->transdate_as_date }},
70 
    ordnumber    => { text => $::locale->text('Number'),
71 
                       sub => sub { $_[0]->order->number },
72 
                  obj_link => sub { $self->link_to($_[0]->order) }},
73 
    customer     => { text => $::locale->text('Customer'),
74 
                       sub => sub { $_[0]->order->customer->name },
75 
                  obj_link => sub { $self->link_to($_[0]->order->customer) }},
76 
    customer     => { text => $::locale->text('Customer'),
77 
                       sub => sub { $_[0]->order->customer->name },
78 
                  obj_link => sub { $self->link_to($_[0]->order->customer) }},
79 
    ship         => { text => $::locale->text('Delivered'),
80 
                       sub => sub { $::form->format_amount(\%::myconfig, $_[0]->shipped_qty) . ' ' . $_[0]->unit }},
81 
    qty          => { text => $::locale->text('Qty'),
82 
                       sub => sub { $_[0]->qty_as_number . ' ' . $_[0]->unit }},
83 
    price_factor => { text => $::locale->text('Price Factor'),
84 
                      sub => sub { $_[0]->price_factor_as_number }},
85 
    sellprice    => { text => $::locale->text('Sell Price'),
86 
                       sub => sub { $_[0]->sellprice_as_number }},
87 
    discount     => { text => $::locale->text('Discount'),
88 
                       sub => sub { $_[0]->discount_as_percent . "%" }},
89 
    amount       => { text => $::locale->text('Amount'),
90 
                       sub => sub { $::form->format_amount(\%::myconfig, $_[0]->qty * $_[0]->sellprice * (1 - $_[0]->discount) / ($_[0]->price_factor ? $_[0]->price_factor : 1.0), 2) }},
89 91 
  };
90 92 
}
91 93 

  		




  ......




  99
  101
  
    
  my $title    = $::locale->text('Sales Price information');


  		




  100
  102
  
    
  $title      .= ': ' . $::locale->text($::form->{filter}->{order}{type}) if $::form->{filter}->{order}{type};


  		




  101
  103
  
    

  		




  102
  
  
    
  my @columns  = qw(transdate ordnumber customer ship qty sellprice discount amount);


  		




  103
  
  
    
  my @visible  = qw(transdate ordnumber customer ship qty sellprice discount amount);


  		




  104
  
  
    
  my @sortable = qw(transdate ordnumber customer          sellprice discount       );


  		




  
  104
  
    
  my @columns  = qw(transdate ordnumber customer ship qty price_factor sellprice discount amount);


  		




  
  105
  
    
  my @visible  = qw(transdate ordnumber customer ship qty price_factor sellprice discount amount);


  		




  
  106
  
    
  my @sortable = qw(transdate ordnumber customer          sellprice              discount       );


  		




  105
  107
  
    

  		




  106
  108
  
    
  my $column_defs = $self->column_defs;


  		




  107
  109
  
    

  		












Auch abrufbar als:  Unified diff