Revision 0e0ff150
Von Jan Büren vor fast 14 Jahren hinzugefügt
| bin/mozilla/ir.pl | ||
|---|---|---|
| 171 | 171 |
foreach my $key (keys %{ $form->{AP_links} }) {
|
| 172 | 172 |
|
| 173 | 173 |
foreach my $ref (@{ $form->{AP_links}{$key} }) {
|
| 174 |
$form->{"select$key"} .= "<option>$ref->{accno}--$ref->{description}\n";
|
|
| 174 |
$form->{"select$key"} .= "<option>$ref->{accno}--$ref->{description}</option>";
|
|
| 175 | 175 |
} |
| 176 | 176 |
|
| 177 | 177 |
next unless $form->{acc_trans}{$key};
|
| ... | ... | |
| 393 | 393 |
$form->{paidaccounts}++ if ($form->{"paid_$form->{paidaccounts}"});
|
| 394 | 394 |
$form->{paid_indices} = [ 1 .. $form->{paidaccounts} ];
|
| 395 | 395 |
|
| 396 |
# Standard Konto für Umlaufvermögen |
|
| 397 |
my $accno_arap = IS->get_standard_accno_current_assets(\%myconfig, \%$form); |
|
| 398 |
|
|
| 396 | 399 |
for my $i (1 .. $form->{paidaccounts}) {
|
| 397 | 400 |
$form->{"selectAP_paid_$i"} = $form->{selectAP_paid};
|
| 398 |
$form->{"selectAP_paid_$i"} =~ s/option>\Q$form->{"AP_paid_$i"}\E/option selected>$form->{"AP_paid_$i"}/;
|
|
| 401 |
if (!$form->{"AP_paid_$i"}) {
|
|
| 402 |
$form->{"selectAP_paid_$i"} =~ s/option>$accno_arap--(.*?)>/option selected>$accno_arap--$1>/;
|
|
| 403 |
} else {
|
|
| 404 |
$form->{"selectAP_paid_$i"} =~ s/option>\Q$form->{"AP_paid_$i"}\E/option selected>$form->{"AP_paid_$i"}/;
|
|
| 405 |
} |
|
| 406 |
|
|
| 399 | 407 |
$totalpaid += $form->{"paid_$i"};
|
| 400 | 408 |
} |
| 401 | 409 |
|
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