Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision bce4f1d4

Von Jan Büren vor mehr als 2 Jahren hinzugefügt

  • ID bce4f1d4c9f7bf22f594f7491f7da00e0dade850
  • Vorgänger 958b82d6

Cvar für Preisregeln. Proof of Concept mit hartkodierter Bdv articlegroup

Voraussetzung: Eine optionale BDV (Auswahlliste) mit dem Namen articlegroup

Unterschiede anzeigen:

SL/DB/Manager/PriceRuleItem.pm
15 15 
use SL::Locale::String qw(t8);
16 16 

  		




  17
  17
  
    
my @types = qw(


  		




  18
  
  
    
  part customer vendor business partsgroup qty reqdate transdate pricegroup


  		




  
  18
  
    
  part customer vendor business partsgroup qty reqdate transdate pricegroup cvar


  		




  19
  19
  
    
);


  		




  20
  20
  
    

  		




  21
  21
  
    
my %ops = (


  		




  ......




  33
  33
  
    
  'pricegroup'          => { description => t8('Pricegroup'),         customer => 1, vendor => 1, data_type => 'int',  data => sub { $_[1]->pricegroup_id }, exclude_nulls => 1 },


  		




  34
  34
  
    
  'partsgroup'          => { description => t8('Partsgroup'),         customer => 1, vendor => 1, data_type => 'int',  data => sub { $_[1]->part->partsgroup_id }, exclude_nulls => 1 },


  		




  35
  35
  
    
  'qty'                 => { description => t8('Qty'),                customer => 1, vendor => 1, data_type => 'num',  data => sub { $_[1]->qty }, ops => 'num' },


  		




  
  36
  
    
  'cvar'                => { description => t8('Custom Variables'),   customer => 1, vendor => 1, data_type => 'int',  data => sub { $_[1]->part->cvar_by_name('articlegroup')->id }, exclude_nulls => 1 },


  		




  36
  37
  
    
);


  		




  37
  38
  
    

  		




  
  39
  
    
# ITEM.part.cvar_by_name(var.config.name)


  		




  
  40
  
    

  		




  38
  41
  
    
sub not_matching_sql_and_values {


  		




  39
  42
  
    
  my ($class, %params) = @_;


  		




  40
  43
  
    

  		












Auch abrufbar als:  Unified diff