Revision 185d7c5b
Von Moritz Bunkus vor etwa 18 Jahren hinzugefügt
| bin/mozilla/rp.pl | ||
|---|---|---|
|
#======================================================================
|
||
|
|
||
|
require "$form->{path}/arap.pl";
|
||
|
require "bin/mozilla/common.pl";
|
||
|
|
||
|
use SL::PE;
|
||
|
use SL::RP;
|
||
| ... | ... | |
|
</tr>
|
||
|
| if $form->{selectdepartment};
|
||
|
|
||
|
$form->get_lists("projects" => { "key" => "ALL_PROJECTS",
|
||
|
"all" => 1 });
|
||
|
|
||
|
my %project_labels = ();
|
||
|
my @project_values = ("");
|
||
|
foreach my $item (@{ $form->{"ALL_PROJECTS"} }) {
|
||
|
push(@project_values, $item->{"id"});
|
||
|
$project_labels{$item->{"id"}} = $item->{"projectnumber"};
|
||
|
}
|
||
|
|
||
|
my $projectnumber =
|
||
|
NTI($cgi->popup_menu('-name' => "project_id",
|
||
|
'-values' => \@project_values,
|
||
|
'-labels' => \%project_labels));
|
||
|
|
||
|
# use JavaScript Calendar or not
|
||
|
$form->{jsscript} = $jscalendar;
|
||
|
$jsscript = "";
|
||
| ... | ... | |
|
print qq|
|
||
|
<tr>
|
||
|
<th align=right nowrap>| . $locale->text('Project') . qq|</th>
|
||
|
<td colspan=3><input name=projectnumber size=25</td>
|
||
|
<td colspan=3>$projectnumber</td>
|
||
|
</tr>
|
||
|
<input type=hidden name=nextsub value=generate_income_statement>
|
||
|
</table>
|
||
| ... | ... | |
|
print qq|
|
||
|
<tr>
|
||
|
<th align=right nowrap>| . $locale->text('Project') . qq|</th>
|
||
|
<td colspan=3><input name=projectnumber size=25</td>
|
||
|
<td colspan=3>$projectnumber</td>
|
||
|
</tr>
|
||
|
<input type=hidden name=nextsub value=generate_bwa>
|
||
|
</table>
|
||
| ... | ... | |
|
$form->{endbold} = "</b>";
|
||
|
$form->{br} = "<br>";
|
||
|
|
||
|
&get_project(generate_income_statement);
|
||
|
|
||
|
$form->{projectnumber} = $form->{projectnumber_1};
|
||
|
|
||
|
if ($form->{reporttype} eq "custom") {
|
||
|
|
||
|
#forgotten the year --> thisyear
|
||
| ... | ... | |
|
$form->{endbold} = "</b>";
|
||
|
$form->{br} = "<br>";
|
||
|
|
||
|
# &get_project(generate_bwa);
|
||
|
|
||
|
if ($form->{reporttype} eq "custom") {
|
||
|
|
||
|
#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.