Revision 0fa80981
Von Moritz Bunkus vor mehr als 7 Jahren hinzugefügt
| SL/DB/Vendor.pm | ||
|---|---|---|
| 4 | 4 |
|
| 5 | 5 |
use Rose::DB::Object::Helpers qw(as_tree); |
| 6 | 6 |
|
| 7 |
use SL::DBUtils (); |
|
| 7 | 8 |
use SL::DB::MetaSetup::Vendor; |
| 8 | 9 |
use SL::DB::Manager::Vendor; |
| 9 | 10 |
use SL::DB::Helper::IBANValidation; |
| ... | ... | |
| 63 | 64 |
sub payment_terms { goto &payment }
|
| 64 | 65 |
sub number { goto &vendornumber }
|
| 65 | 66 |
|
| 67 |
sub last_used_ap_chart {
|
|
| 68 |
my ($self) = @_; |
|
| 69 |
|
|
| 70 |
my $query = <<EOSQL; |
|
| 71 |
SELECT c.id |
|
| 72 |
FROM chart c |
|
| 73 |
JOIN acc_trans ac ON (ac.chart_id = c.id) |
|
| 74 |
JOIN ap a ON (a.id = ac.trans_id) |
|
| 75 |
WHERE (a.vendor_id = ?) |
|
| 76 |
AND (c.category = 'E') |
|
| 77 |
AND (c.link !~ '_(paid|tax)') |
|
| 78 |
AND (a.id IN (SELECT max(a2.id) FROM ap a2 WHERE a2.vendor_id = ?)) |
|
| 79 |
ORDER BY ac.acc_trans_id ASC |
|
| 80 |
LIMIT 1 |
|
| 81 |
EOSQL |
|
| 82 |
|
|
| 83 |
my ($chart_id) = SL::DBUtils::selectfirst_array_query($::form, $self->db->dbh, $query, ($self->id) x 2); |
|
| 84 |
|
|
| 85 |
return if !$chart_id; |
|
| 86 |
return SL::DB::Chart->load_cached($chart_id); |
|
| 87 |
} |
|
| 88 |
|
|
| 66 | 89 |
1; |
Auch abrufbar als: Unified diff
Kreditorenbuchungen auf Verwendung des Chart-Pickers umgestellt