Revision 43f9b1c5
Von G. Richardson vor etwa 13 Jahren hinzugefügt
| bin/mozilla/am.pl | ||
|---|---|---|
| 46 | 46 |
use CGI::Ajax; |
| 47 | 47 |
use CGI; |
| 48 | 48 |
|
| 49 |
use Data::Dumper; |
|
| 50 |
|
|
| 51 | 49 |
require "bin/mozilla/common.pl"; |
| 52 | 50 |
|
| 53 | 51 |
use strict; |
| ... | ... | |
| 1392 | 1390 |
} |
| 1393 | 1391 |
|
| 1394 | 1392 |
my $linkaccounts; |
| 1395 |
if (!$::lx_office_conf{system}->{eur}) {
|
|
| 1393 |
if ( $::instance_conf->get_inventory_system eq 'perpetual' ) { # was !$::lx_office_conf{system}->{eur}) {
|
|
| 1396 | 1394 |
$linkaccounts = qq| |
| 1397 | 1395 |
<tr> |
| 1398 | 1396 |
<th align=right>| . $locale->text('Inventory') . qq|</th>
|
| 1399 | 1397 |
<td><select name=inventory_accno_id>$form->{selectIC}</select></td>
|
| 1400 | 1398 |
<input name=selectIC type=hidden value="$form->{selectIC}">
|
| 1401 | 1399 |
</tr>|; |
| 1402 |
} else {
|
|
| 1400 |
} elsif ( $::instance_conf->get_inventory_system eq 'periodic' ) {
|
|
| 1401 |
# don't allow choice of inventory accno and don't show that line |
|
| 1403 | 1402 |
$linkaccounts = qq| |
| 1404 | 1403 |
<input type=hidden name=inventory_accno_id value=$form->{inventory_accno_id}>|;
|
| 1405 |
} |
|
| 1404 |
};
|
|
| 1406 | 1405 |
|
| 1407 | 1406 |
|
| 1408 | 1407 |
$linkaccounts .= qq| |
| ... | ... | |
| 1550 | 1549 |
|
| 1551 | 1550 |
map { $form->{"defaults_${_}"} = $form->{defaults}->{$_} } keys %{ $form->{defaults} };
|
| 1552 | 1551 |
|
| 1552 |
# EÜR = cash, Bilanzierung = accrual |
|
| 1553 |
|
|
| 1553 | 1554 |
foreach my $key (keys %{ $form->{IC} }) {
|
| 1554 | 1555 |
foreach my $accno (sort keys %{ $form->{IC}->{$key} }) {
|
| 1555 | 1556 |
my $array = "ACCNOS_" . uc($key); |
Auch abrufbar als: Unified diff
Umstellung von eur zu 3 Variablen in defaults
accounting_method inventory_system profit_determination
Details siehe doc/umstellung_eur.txt