Revision d659dc18
Von Moritz Bunkus vor etwa 8 Jahren hinzugefügt
| bin/mozilla/rp.pl | ||
|---|---|---|
|
|
||
|
$nextsub = "generate_$::form->{report}";
|
||
|
|
||
|
# setup vc selection
|
||
|
$::form->all_vc(\%::myconfig, $::form->{vc}, $is_sales ? "AR" : "AP");
|
||
|
$vc .= "<option>$_->{name}--$_->{id}\n" for @{ $::form->{"all_$::form->{vc}"} };
|
||
|
$vc = ($vc)
|
||
|
? qq|<select name=$::form->{vc} class="initial_focus"><option>\n$vc</select>|
|
||
|
: qq|<input name=$::form->{vc} size=35 class="initial_focus">|;
|
||
|
$vc = qq|<input name=$::form->{vc} size=35 class="initial_focus">|;
|
||
|
}
|
||
|
|
||
|
my ($selection, $paymentaccounts);
|
||
Auch abrufbar als: Unified diff
Berichte: $form->all_vc nicht mehr verwenden