Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 5e620eea

Von Tamino Steinert vor etwa 1 Jahr hinzugefügt

  • ID 5e620eea552115a07bfca5749f7f4d43cc06542b
  • Vorgänger 81c31c30
  • Nachfolger 608fa060

EK/VK-Rechnung Typefilter für alle vorhandenen Typen erweitert

Unterschiede anzeigen:

SL/DB/Manager/PurchaseInvoice.pm
16 16
  my $type  = lc(shift || '');
17 17

  
18 18
  return (or  => [ invoice => 0, invoice => undef                       ]) if $type eq 'ap_transaction';
19
  return (and => [ invoice => 1, or => [ storno => 0, storno => undef ] ]) if $type =~ m/^(?:purchase_)?invoice$/;
19
  return (and => [ invoice => 1, amount => { lt => 0 }, or => [ storno => 0, storno => undef ] ]) if $type eq 'purchase_credit_note';
20
  return (and => [ invoice => 1, amount => { ge => 0 }, or => [ storno => 0, storno => undef ] ]) if $type =~ m/^(?:purchase_)?invoice$/;
20 21
  return (and => [ invoice => 1,         storno => 1                    ]) if $type =~ m/(?:invoice_)?storno/;
21 22

  
22 23
  die "Unknown type $type";

Auch abrufbar als: Unified diff