Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 5cb3cbb6

Von Sven Schöling vor fast 13 Jahren hinzugefügt

  • ID 5cb3cbb663005df469f2647dd2acbb1531264f83
  • Vorgänger 6784f6d4
  • Nachfolger 0b542b25

Drucken von Lieferscheinen über die Warteschlange

Unterschiede anzeigen:

bin/mozilla/bp.pl
49 49 
    'sales_order'       => 'sales_order_edit',
50 50 
    'sales_quotation'   => 'sales_quotation_edit',
51 51 
    'purchase_order'    => 'purchase_order_edit',
52 
    'packing_list'      => 'sales_delivery_order_edit|purchase_delivery_order_edit',
52 53 
    'request_quotation' => 'request_quotation_edit',
53 54 
    'check'             => 'cash',
54 55 
    'receipt'           => 'cash',
......
76 77 
       purchase_order    => { title => $::locale->text('Purchase Orders'), ordnumber => 1, },
77 78 
       sales_quotation   => { title => $::locale->text('Quotations'),      quonumber => 1, },
78 79 
       request_quotation => { title => $::locale->text('RFQs'),            quonumber => 1, },
80 
       packing_list      => { title => $::locale->text('Delivery Orders'), donumber  => 1, ordnumber => 1 },
79 81 
       check             => { title => $::locale->text('Checks'),          chknumber => 1, },
80 82 
       receipt           => { title => $::locale->text('Receipts'),        rctnumber => 1, },
81 83 
  );
......
161 163 
    invnumber     => sub { $::locale->text('Invoice Number')   . " : $::form->{invnumber}" },
162 164 
    ordnumber     => sub { $::locale->text('Order Number')     . " : $::form->{ordnumber}" },
163 165 
    quonumber     => sub { $::locale->text('Quotation Number') . " : $::form->{quonumber}" },
166 
    donumber      => sub { $::locale->text('Delivery Order Number') . " : $::form->{donumber}" },
164 167 
    transdatefrom => sub { $::locale->text('From') . " " . $::locale->date(\%::myconfig, $::form->{transdatefrom}, 1) },
165 168 
    transdateto   => sub { $::locale->text('To')   . " " . $::locale->date(\%::myconfig, $::form->{transdateto}, 1) },
166 169 
  );
167 170 

  		




  168
  171
  
    
  my @options;


  		




  169
  
  
    
  for my $key ($::form->{vc}, qw(account invnumber ordnumber quonumber transdatefrom transdateto)) {


  		




  
  172
  
    
  for my $key ($::form->{vc}, qw(account invnumber ordnumber quonumber donumber transdatefrom transdateto)) {


  		




  170
  173
  
    
    next unless $::form->{$key};


  		




  171
  174
  
    
    push @href_options, $key;


  		




  172
  175
  
    
    push @options, $option_texts{$key} ? $option_texts{$key}->() : '';


  		












Auch abrufbar als:  Unified diff