Revision e0c0b59f
Von Tamino Steinert vor mehr als 1 Jahr hinzugefügt
| SL/DB/Manager/PurchaseInvoice.pm | ||
|---|---|---|
|
my $type = lc(shift || '');
|
||
|
|
||
|
return (or => [ invoice => 0, invoice => undef ]) if $type eq 'ap_transaction';
|
||
|
return (and => [ invoice => 1, or => [ storno => 0, storno => undef ] ]) if $type =~ m/^(?:purchase_)?invoice$/;
|
||
|
return (and => [ invoice => 1, amount => { lt => 0 }, or => [ storno => 0, storno => undef ] ]) if $type eq 'purchase_credit_note';
|
||
|
return (and => [ invoice => 1, amount => { ge => 0 }, or => [ storno => 0, storno => undef ] ]) if $type =~ m/^(?:purchase_)?invoice$/;
|
||
|
return (and => [ invoice => 1, storno => 1 ]) if $type =~ m/(?:invoice_)?storno/;
|
||
|
|
||
|
die "Unknown type $type";
|
||
Auch abrufbar als: Unified diff
EK/VK-Rechnung Typefilter für alle vorhandenen Typen erweitert