Revision e0c0b59f
Von Tamino Steinert vor etwa 1 Jahr hinzugefügt
| 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
EK/VK-Rechnung Typefilter für alle vorhandenen Typen erweitert