Revision 98ad02ca
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 1822 | 1822 |
|
| 1823 | 1823 |
$sth = $dbh->prepare($query); |
| 1824 | 1824 |
|
| 1825 |
do_statement($form, $sth, $query, '%' . $module . '%');
|
|
| 1825 |
do_statement($self, $sth, $query, '%' . $module . '%');
|
|
| 1826 | 1826 |
|
| 1827 | 1827 |
$self->{accounts} = "";
|
| 1828 | 1828 |
while ($ref = $sth->fetchrow_hashref(NAME_lc)) {
|
| ... | ... | |
| 1847 | 1847 |
|
| 1848 | 1848 |
# get taxkeys and description |
| 1849 | 1849 |
$query = qq|SELECT id, taxkey, taxdescription FROM tax|; |
| 1850 |
$self->{TAXKEY} = selectall_hashref_query($form, $dbh, $query);
|
|
| 1850 |
$self->{TAXKEY} = selectall_hashref_query($self, $dbh, $query);
|
|
| 1851 | 1851 |
|
| 1852 | 1852 |
# get tax zones |
| 1853 | 1853 |
$query = qq|SELECT id, description FROM tax_zones|; |
| 1854 |
$self->{TAXZONE} = selectall_hashref_query($form, $dbh, $query);
|
|
| 1854 |
$self->{TAXZONE} = selectall_hashref_query($self, $dbh, $query);
|
|
| 1855 | 1855 |
|
| 1856 | 1856 |
if (($module eq "AP") || ($module eq "AR")) {
|
| 1857 | 1857 |
# get tax rates and description |
| 1858 | 1858 |
$query = qq|SELECT * FROM tax|; |
| 1859 |
$self->{TAX} = selectall_hashref_query($form, $dbh, $query);
|
|
| 1859 |
$self->{TAX} = selectall_hashref_query($self, $dbh, $query);
|
|
| 1860 | 1860 |
} |
| 1861 | 1861 |
|
| 1862 | 1862 |
if ($self->{id}) {
|
| ... | ... | |
| 1896 | 1896 |
ORDER BY c.accno|; |
| 1897 | 1897 |
|
| 1898 | 1898 |
$sth = $dbh->prepare($query); |
| 1899 |
do_statement($form, $sth, $query, "%" . $module . "%");
|
|
| 1899 |
do_statement($self, $sth, $query, "%" . $module . "%");
|
|
| 1900 | 1900 |
|
| 1901 | 1901 |
$self->{accounts} = "";
|
| 1902 | 1902 |
while ($ref = $sth->fetchrow_hashref(NAME_lc)) {
|
| ... | ... | |
| 1941 | 1941 |
AND a.fx_transaction = '0' |
| 1942 | 1942 |
ORDER BY a.oid, a.transdate|; |
| 1943 | 1943 |
$sth = $dbh->prepare($query); |
| 1944 |
do_statement($form, $sth, $query, $self->{id});
|
|
| 1944 |
do_statement($self, $sth, $query, $self->{id});
|
|
| 1945 | 1945 |
|
| 1946 | 1946 |
# get exchangerate for currency |
| 1947 | 1947 |
$self->{exchangerate} =
|
Auch abrufbar als: Unified diff
In Form.pm gibt es kein $form, nur $self.