Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 0fdbcde4

Von Jan Büren vor 9 Tagen hinzugefügt

  • ID 0fdbcde4a98df83f8b64638fa9c3daa523a2c816
  • Vorgänger 222efaf4
  • Nachfolger cd4357c6

SetNumberRange: Neuer Parameter current_year, falls der Job am 01.01. ...

Unterschiede anzeigen:

SL/BackgroundJob/SetNumberRange.pm
23 23 
  if ($data->{multiplier}  && !($data->{multiplier} % 10 == 0)) {
24 24 
    die "No valid input for multiplier should be 10, 100, .., 1000000";
25 25 
  }
26 
  my $next_year  = DateTime->today_local->truncate(to => 'year')->add(years => 1)->year();
27 
  $next_year     = ($data->{digits_year} == 2) ? substr($next_year, 2, 2) : $next_year;
26 

  		




  
  27
  
    
  my $running_year  =  $data->{current_year} ? DateTime->today_local->truncate(to => 'year')


  		




  
  28
  
    
                     : DateTime->today_local->truncate(to => 'year')->add(years => 1)->year();


  		




  
  29
  
    

  		




  
  30
  
    
  $running_year     = ($data->{digits_year} == 2) ? substr($running_year, 2, 2) : $running_year;


  		




  
  31
  
    

  		




  28
  32
  
    
  my $multiplier = $data->{multiplier} || 100;


  		




  29
  33
  
    

  		




  30
  34
  
    
  my $defaults   = SL::DB::Default->get;


  		




  31
  35
  
    

  		




  32
  36
  
    
  foreach (qw(invnumber cnnumber soinumber pqinumber sonumber ponumber pocnumber sqnumber rfqnumber sdonumber pdonumber)) {


  		




  33
  37
  
    
    my $current_number = SL::PrefixedNumber->new(number => $defaults->{$_});


  		




  34
  
  
    
    $current_number->set_to($next_year * $multiplier);


  		




  
  38
  
    
    $current_number->set_to($running_year * $multiplier);


  		




  35
  39
  
    
    $defaults->{$_} = $current_number->get_current;


  		




  36
  40
  
    
  }


  		




  37
  41
  
    
  $defaults->save() || die "Could not change number ranges";


  		












Auch abrufbar als:  Unified diff