Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 9f4ef62c

Von Bernd Bleßmann vor fast 4 Jahren hinzugefügt

  • ID 9f4ef62c42dceef5a27ad3a0d8c8d260ffef9848
  • Vorgänger 994dab13
  • Nachfolger 299dba8f

CsvImport für Lieferscheine

Unterschiede anzeigen:

SL/Controller/CsvImport/Base.pm
551 551 
          push @{ $entry->{errors} }, $::locale->text('Error when saving: #1', $object->db->error);
552 552 
        } else {
553 553 
          $self->_save_history($object);
554 
          $self->save_additions($object);
554 555 
          $self->controller->num_imported($self->controller->num_imported + 1);
555 556 
        }
556 557 
      }
......
592 593 
  return @cleaned_fields;
593 594 
}
594 595 

  		




  
  596
  
    
sub save_additions {


  		




  
  597
  
    
  my ($self, $object) = @_;


  		




  
  598
  
    

  		




  
  599
  
    
  # Can be overridden by derived specialized importer classes to save


  		




  
  600
  
    
  # additional tables (e.g. record links).


  		




  
  601
  
    
  # This sub is called after the object is saved successfully in an transaction.


  		




  
  602
  
    

  		




  
  603
  
    
  return;


  		




  
  604
  
    
}


  		




  
  605
  
    

  		




  595
  606
  
    
sub _save_history {


  		




  596
  607
  
    
  my ($self, $object) = @_;


  		




  597
  608
  
    

  		




  598
  
  
    
  if (any { $self->controller->{type} && $_ eq $self->controller->{type} } qw(parts customers_vendors orders ar_transactions)) {


  		




  
  609
  
    
  if (any { $self->controller->{type} && $_ eq $self->controller->{type} } qw(parts customers_vendors orders delivery_orders ar_transactions)) {


  		




  599
  610
  
    
    my $snumbers = $self->controller->{type} eq 'parts'             ? 'partnumber_' . $object->partnumber


  		




  600
  611
  
    
                 : $self->controller->{type} eq 'customers_vendors' ?


  		




  601
  612
  
    
                     ($self->table eq 'customer' ? 'customernumber_' . $object->customernumber : 'vendornumber_' . $object->vendornumber)


  		




  602
  613
  
    
                 : $self->controller->{type} eq 'orders'            ? 'ordnumber_' . $object->ordnumber


  		




  
  614
  
    
                 : $self->controller->{type} eq 'delivery_orders'   ? 'donumber_'  . $object->donumber


  		




  603
  615
  
    
                 : $self->controller->{type} eq 'ar_transactions'   ? 'invnumber_' . $object->invnumber


  		




  604
  616
  
    
                 : '';


  		




  605
  617
  
    

  		




  ......




  607
  619
  
    
    if ($self->controller->{type} eq 'orders') {


  		




  608
  620
  
    
      $what_done = $object->customer_id ? 'sales_order' : 'purchase_order';


  		




  609
  621
  
    
    }


  		




  
  622
  
    
    if ($self->controller->{type} eq 'delivery_orders') {


  		




  
  623
  
    
      $what_done = $object->customer_id ? 'sales_delivery_order' : 'purchase_delivery_order';


  		




  
  624
  
    
    }


  		




  610
  625
  
    

  		




  611
  626
  
    
    SL::DB::History->new(


  		




  612
  627
  
    
      trans_id    => $object->id,


  		












Auch abrufbar als:  Unified diff