Revision f6fa032d
Von Thomas Kasulke vor mehr als 17 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 1644 | 1644 |
$main::lxdebug->leave_sub(); |
| 1645 | 1645 |
} |
| 1646 | 1646 |
|
| 1647 |
sub _get_payments {
|
|
| 1648 |
$main::lxdebug->enter_sub(); |
|
| 1649 |
|
|
| 1650 |
my ($self, $dbh, $key) = @_; |
|
| 1651 |
|
|
| 1652 |
$key = "all_payments" unless ($key); |
|
| 1653 |
|
|
| 1654 |
my $query = qq|SELECT * FROM payment_terms ORDER BY id|; |
|
| 1655 |
|
|
| 1656 |
$self->{$key} = selectall_hashref_query($self, $dbh, $query);
|
|
| 1657 |
|
|
| 1658 |
$main::lxdebug->leave_sub(); |
|
| 1659 |
} |
|
| 1660 |
|
|
| 1647 | 1661 |
sub _get_customers {
|
| 1648 | 1662 |
$main::lxdebug->enter_sub(); |
| 1649 | 1663 |
|
| ... | ... | |
| 1741 | 1755 |
if($params{"vendors"}) {
|
| 1742 | 1756 |
$self->_get_vendors($dbh, $params{"vendors"});
|
| 1743 | 1757 |
} |
| 1758 |
|
|
| 1759 |
if($params{"payments"}) {
|
|
| 1760 |
$self->_get_payments($dbh, $params{"payments"});
|
|
| 1761 |
} |
|
| 1744 | 1762 |
|
| 1745 | 1763 |
$dbh->disconnect(); |
| 1746 | 1764 |
|
Auch abrufbar als: Unified diff
get_lsits um payments eweitert