Revision 185d7c5b
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| bin/mozilla/rp.pl | ||
|---|---|---|
| 36 | 36 |
#====================================================================== |
| 37 | 37 |
|
| 38 | 38 |
require "$form->{path}/arap.pl";
|
| 39 |
require "bin/mozilla/common.pl"; |
|
| 39 | 40 |
|
| 40 | 41 |
use SL::PE; |
| 41 | 42 |
use SL::RP; |
| ... | ... | |
| 130 | 131 |
</tr> |
| 131 | 132 |
| if $form->{selectdepartment};
|
| 132 | 133 |
|
| 134 |
$form->get_lists("projects" => { "key" => "ALL_PROJECTS",
|
|
| 135 |
"all" => 1 }); |
|
| 136 |
|
|
| 137 |
my %project_labels = (); |
|
| 138 |
my @project_values = ("");
|
|
| 139 |
foreach my $item (@{ $form->{"ALL_PROJECTS"} }) {
|
|
| 140 |
push(@project_values, $item->{"id"});
|
|
| 141 |
$project_labels{$item->{"id"}} = $item->{"projectnumber"};
|
|
| 142 |
} |
|
| 143 |
|
|
| 144 |
my $projectnumber = |
|
| 145 |
NTI($cgi->popup_menu('-name' => "project_id",
|
|
| 146 |
'-values' => \@project_values, |
|
| 147 |
'-labels' => \%project_labels)); |
|
| 148 |
|
|
| 133 | 149 |
# use JavaScript Calendar or not |
| 134 | 150 |
$form->{jsscript} = $jscalendar;
|
| 135 | 151 |
$jsscript = ""; |
| ... | ... | |
| 280 | 296 |
print qq| |
| 281 | 297 |
<tr> |
| 282 | 298 |
<th align=right nowrap>| . $locale->text('Project') . qq|</th>
|
| 283 |
<td colspan=3><input name=projectnumber size=25</td>
|
|
| 299 |
<td colspan=3>$projectnumber</td>
|
|
| 284 | 300 |
</tr> |
| 285 | 301 |
<input type=hidden name=nextsub value=generate_income_statement> |
| 286 | 302 |
</table> |
| ... | ... | |
| 390 | 406 |
print qq| |
| 391 | 407 |
<tr> |
| 392 | 408 |
<th align=right nowrap>| . $locale->text('Project') . qq|</th>
|
| 393 |
<td colspan=3><input name=projectnumber size=25</td>
|
|
| 409 |
<td colspan=3>$projectnumber</td>
|
|
| 394 | 410 |
</tr> |
| 395 | 411 |
<input type=hidden name=nextsub value=generate_bwa> |
| 396 | 412 |
</table> |
| ... | ... | |
| 1062 | 1078 |
$form->{endbold} = "</b>";
|
| 1063 | 1079 |
$form->{br} = "<br>";
|
| 1064 | 1080 |
|
| 1065 |
&get_project(generate_income_statement); |
|
| 1066 |
|
|
| 1067 |
$form->{projectnumber} = $form->{projectnumber_1};
|
|
| 1068 |
|
|
| 1069 | 1081 |
if ($form->{reporttype} eq "custom") {
|
| 1070 | 1082 |
|
| 1071 | 1083 |
#forgotten the year --> thisyear |
| ... | ... | |
| 2714 | 2726 |
$form->{endbold} = "</b>";
|
| 2715 | 2727 |
$form->{br} = "<br>";
|
| 2716 | 2728 |
|
| 2717 |
# &get_project(generate_bwa); |
|
| 2718 |
|
|
| 2719 | 2729 |
if ($form->{reporttype} eq "custom") {
|
| 2720 | 2730 |
|
| 2721 | 2731 |
#forgotten the year --> thisyear |
Auch abrufbar als: Unified diff
Berichte -> GuV und BWA: Projektauswahl als Drop-Down-Box. Bei BWA erscheint aber noch ein SQL-Fehler, wenn ein Projekt ausgewählt wird.