Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 1adadc30

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

  • ID 1adadc3007e658f3c0723701e79f42569e71df9f
  • Vorgänger b1c40d4d
  • Nachfolger 11c945f2

CSV-Import für Lagerbewegung, bzw. Lagerbestand.

Conflicts:

SL/Controller/CsvImport.pm
        locale/de/all
        locale/en/all

Übernahme aus Kundenprojekt.

Unterschiede anzeigen:

SL/Controller/CsvImport.pm
13 13 
use SL::Controller::CsvImport::Contact;
14 14 
use SL::Controller::CsvImport::CustomerVendor;
15 15 
use SL::Controller::CsvImport::Part;
16 
use SL::Controller::CsvImport::Inventory;
16 17 
use SL::Controller::CsvImport::Shipto;
17 18 
use SL::Controller::CsvImport::Project;
18 19 
use SL::Controller::CsvImport::Order;
......
221 222 
sub check_type {
222 223 
  my ($self) = @_;
223 224 

  		




  224
  
  
    
  die "Invalid CSV import type" if none { $_ eq $::form->{profile}->{type} } qw(parts customers_vendors addresses contacts projects orders);


  		




  
  225
  
    
  die "Invalid CSV import type" if none { $_ eq $::form->{profile}->{type} } qw(parts inventories customers_vendors addresses contacts projects orders);


  		




  225
  226
  
    
  $self->type($::form->{profile}->{type});


  		




  226
  227
  
    
}


  		




  227
  228
  
    

  		




  ......




  263
  264
  
    
            : $self->type eq 'addresses'         ? $::locale->text('CSV import: shipping addresses')


  		




  264
  265
  
    
            : $self->type eq 'contacts'          ? $::locale->text('CSV import: contacts')


  		




  265
  266
  
    
            : $self->type eq 'parts'             ? $::locale->text('CSV import: parts and services')


  		




  
  267
  
    
            : $self->type eq 'inventories'       ? $::locale->text('CSV import: inventories')


  		




  266
  268
  
    
            : $self->type eq 'projects'          ? $::locale->text('CSV import: projects')


  		




  267
  269
  
    
            : $self->type eq 'orders'            ? $::locale->text('CSV import: orders')


  		




  268
  270
  
    
            : die;


  		




  ......




  608
  610
  
    
       : $self->{type} eq 'contacts'          ? SL::Controller::CsvImport::Contact->new(@args)


  		




  609
  611
  
    
       : $self->{type} eq 'addresses'         ? SL::Controller::CsvImport::Shipto->new(@args)


  		




  610
  612
  
    
       : $self->{type} eq 'parts'             ? SL::Controller::CsvImport::Part->new(@args)


  		




  
  613
  
    
       : $self->{type} eq 'inventories'       ? SL::Controller::CsvImport::Inventory->new(@args)


  		




  611
  614
  
    
       : $self->{type} eq 'projects'          ? SL::Controller::CsvImport::Project->new(@args)


  		




  612
  615
  
    
       : $self->{type} eq 'orders'            ? SL::Controller::CsvImport::Order->new(@args)


  		




  613
  616
  
    
       :                                        die "Program logic error";


  		












Auch abrufbar als:  Unified diff