Revision a751b16c
Von Moritz Bunkus vor fast 18 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 1578 | 1578 |
$main::lxdebug->leave_sub(); |
| 1579 | 1579 |
} |
| 1580 | 1580 |
|
| 1581 |
sub _get_employees {
|
|
| 1582 |
$main::lxdebug->enter_sub(); |
|
| 1583 |
|
|
| 1584 |
my ($self, $dbh, $key) = @_; |
|
| 1585 |
|
|
| 1586 |
$key = "all_employees" unless ($key); |
|
| 1587 |
$self->{$key} =
|
|
| 1588 |
selectall_hashref_query($self, $dbh, qq|SELECT * FROM employee|); |
|
| 1589 |
|
|
| 1590 |
$main::lxdebug->leave_sub(); |
|
| 1591 |
} |
|
| 1592 |
|
|
| 1581 | 1593 |
sub get_lists {
|
| 1582 | 1594 |
$main::lxdebug->enter_sub(); |
| 1583 | 1595 |
|
| ... | ... | |
| 1616 | 1628 |
$self->_get_taxcharts($dbh, $params{"taxcharts"});
|
| 1617 | 1629 |
} |
| 1618 | 1630 |
|
| 1631 |
if ($params{"employees"}) {
|
|
| 1632 |
$self->_get_employees($dbh, $params{"employees"});
|
|
| 1633 |
} |
|
| 1634 |
|
|
| 1619 | 1635 |
$dbh->disconnect(); |
| 1620 | 1636 |
|
| 1621 | 1637 |
$main::lxdebug->leave_sub(); |
Auch abrufbar als: Unified diff
Speichern von Verkäufern bei Kundenstammdaten.