Revision 0e0ff150
Von Jan Büren vor fast 14 Jahren hinzugefügt
| bin/mozilla/cp.pl | ||
|---|---|---|
| 78 | 78 |
|
| 79 | 79 |
CP->paymentaccounts(\%myconfig, \%$form); |
| 80 | 80 |
|
| 81 |
# Standard Konto für Umlaufvermögen |
|
| 82 |
my $accno_arap = IS->get_standard_accno_current_assets(\%myconfig, \%$form); |
|
| 83 |
|
|
| 81 | 84 |
$form->{selectaccount} = "";
|
| 82 | 85 |
$form->{"select$form->{ARAP}"} = "";
|
| 83 | 86 |
|
| 84 |
map { $form->{selectaccount} .= "<option>$_->{accno}--$_->{description}\n" }
|
|
| 85 |
@{ $form->{PR}{"$form->{ARAP}_paid"} };
|
|
| 86 |
map {
|
|
| 87 |
$form->{"select$form->{ARAP}"} .=
|
|
| 88 |
"<option>$_->{accno}--$_->{description}\n"
|
|
| 89 |
} @{ $form->{PR}{ $form->{ARAP} } };
|
|
| 87 |
map { $form->{selectaccount} .= "<option>$_->{accno}--$_->{description}\n";
|
|
| 88 |
$form->{account} = "$_->{accno}--$_->{description}" if ($_->{accno} eq $accno_arap) } @{ $form->{PR}{"$form->{ARAP}_paid"} };
|
|
| 89 |
|
|
| 90 |
# Braucht man das hier überhaupt? Erstmal auskommentieren .. jan 18.12.2010 |
|
| 91 |
# map {
|
|
| 92 |
# $form->{"select$form->{ARAP}"} .=
|
|
| 93 |
# "<option>$_->{accno}--$_->{description}\n"
|
|
| 94 |
# } @{ $form->{PR}{ $form->{ARAP} } };
|
|
| 95 |
# ENDE LOESCHMICH in 2012 |
|
| 90 | 96 |
|
| 91 | 97 |
# currencies |
| 92 | 98 |
# oldcurrency ist zwar noch hier als fragment enthalten, wird aber bei |
Auch abrufbar als: Unified diff
Standard-Auswahl für Umlaufvermögenskonto (Bank) mandantenweit setzen. Ferner yearend aus AM.pm entfernt und schliessende </options> für selectAP_paid Array hinzugefügt