Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 7280d170

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

  • ID 7280d170943f609ecc9ca38e9b0197dfaef0c540
  • Vorgänger fe7ad402
  • Nachfolger 08ac1ae3

Anzahlungs-Rg.: neuen Typ bei Nummergenerierung berücksichtigen

Unterschiede anzeigen:

SL/TransNumber.pm
15 15 
 scalar => [ qw(type id number save dbh dbh_provided business_id) ],
16 16 
);
17 17 

  		




  18
  
  
    
my @SUPPORTED_TYPES = qw(invoice credit_note customer vendor sales_delivery_order purchase_delivery_order sales_order purchase_order sales_quotation request_quotation part service assembly assortment letter);


  		




  
  18
  
    
my @SUPPORTED_TYPES = qw(invoice invoice_for_advance_payment credit_note customer vendor sales_delivery_order purchase_delivery_order sales_order purchase_order sales_quotation request_quotation part service assembly assortment letter);


  		




  19
  19
  
    

  		




  20
  20
  
    
sub new {


  		




  21
  21
  
    
  my $class = shift;


  		




  ......




  37
  37
  
    
  my $type    = $self->type;


  		




  38
  38
  
    
  my %filters = ( where => '' );


  		




  39
  39
  
    

  		




  40
  
  
    
  if (any { $_ eq $type } qw(invoice credit_note)) {


  		




  
  40
  
    
  if (any { $_ eq $type } qw(invoice invoice_for_advance_payment credit_note)) {


  		




  41
  41
  
    
    $filters{trans_number}  = "invnumber";


  		




  42
  42
  
    
    $filters{numberfield}   = $type eq 'credit_note' ? "cnnumber" : "invnumber";


  		




  43
  43
  
    
    $filters{table}         = "ar";


  		












Auch abrufbar als:  Unified diff