Revision 1beff66b
Von Moritz Bunkus vor fast 18 Jahren hinzugefügt
| SL/AM.pm | ||
|---|---|---|
| 998 | 998 |
$sth->finish; |
| 999 | 999 |
|
| 1000 | 1000 |
} |
| 1001 |
|
|
| 1002 |
$query = "SELECT inventory_accno_id FROM defaults"; |
|
| 1003 |
($form->{"std_inventory_accno_id"}) = $dbh->selectrow_array($query);
|
|
| 1004 |
|
|
| 1001 | 1005 |
my $module = "IC"; |
| 1002 | 1006 |
$query = qq|SELECT c.accno, c.description, c.link, c.id, |
| 1003 | 1007 |
d.inventory_accno_id, d.income_accno_id, d.expense_accno_id |
| ... | ... | |
| 1010 | 1014 |
$sth->execute || $form->dberror($query); |
| 1011 | 1015 |
while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
|
| 1012 | 1016 |
foreach my $key (split(/:/, $ref->{link})) {
|
| 1017 |
if (!$form->{"std_inventory_accno_id"} && ($key eq "IC")) {
|
|
| 1018 |
$form->{"std_inventory_accno_id"} = $ref->{"id"};
|
|
| 1019 |
} |
|
| 1013 | 1020 |
if ($key =~ /$module/) {
|
| 1014 | 1021 |
if ( ($ref->{id} eq $ref->{inventory_accno_id})
|
| 1015 | 1022 |
|| ($ref->{id} eq $ref->{income_accno_id})
|
| bin/mozilla/am.pl | ||
|---|---|---|
| 1712 | 1712 |
"$form->{script}?action=add_buchungsgruppe&path=$form->{path}&login=$form->{login}&password=$form->{password}"
|
| 1713 | 1713 |
unless $form->{callback};
|
| 1714 | 1714 |
AM->get_buchungsgruppe(\%myconfig, \%$form); |
| 1715 |
if ($eur) {
|
|
| 1716 |
$form->{"inventory_accno_id"} = $form->{"std_inventory_accno_id"};
|
|
| 1717 |
} |
|
| 1715 | 1718 |
|
| 1716 | 1719 |
&buchungsgruppe_header; |
| 1717 | 1720 |
&form_footer; |
Auch abrufbar als: Unified diff
Buchungsgruppen: Bei aktivierter EUR muss das Inventarkonto automatisch ausgewaehlt und vorbelegt werden. War durch Commit 1406 defekt.