Revision 70220684
Von Moritz Bunkus vor mehr als 5 Jahren hinzugefügt
| bin/mozilla/ir.pl | ||
|---|---|---|
|
use SL::DB::BankTransactionAccTrans;
|
||
|
use SL::DB::Default;
|
||
|
use SL::DB::Department;
|
||
|
use SL::DB::Project;
|
||
|
use SL::DB::PurchaseInvoice;
|
||
|
use SL::DB::Vendor;
|
||
|
use List::MoreUtils qw(uniq);
|
||
|
use List::Util qw(max sum);
|
||
|
use List::UtilsBy qw(sort_by);
|
||
|
|
||
| ... | ... | |
|
|
||
|
$form->{defaultcurrency} = $form->get_default_currency(\%myconfig);
|
||
|
|
||
|
my @old_project_ids = ($form->{"globalproject_id"});
|
||
|
map { push @old_project_ids, $form->{"project_id_$_"} if $form->{"project_id_$_"}; } 1..$form->{"rowcount"};
|
||
|
my @old_project_ids = uniq grep { $_ } map { $_ * 1 } ($form->{"globalproject_id"}, map { $form->{"project_id_$_"} } 1..$form->{"rowcount"});
|
||
|
my @conditions = @old_project_ids ? (id => \@old_project_ids) : ();
|
||
|
$TMPL_VAR{ALL_PROJECTS} = SL::DB::Manager::Project->get_all_sorted(query => [ or => [ active => 1, @conditions ]]);
|
||
|
$form->{ALL_PROJECTS} = $TMPL_VAR{ALL_PROJECTS}; # make projects available for second row drop-down in io.pl
|
||
|
|
||
|
$form->get_lists("taxzones" => ($form->{id} ? "ALL_TAXZONES" : "ALL_ACTIVE_TAXZONES"),
|
||
|
"currencies" => "ALL_CURRENCIES",
|
||
| templates/webpages/ir/form_header.html | ||
|---|---|---|
|
</tr>
|
||
|
<tr>
|
||
|
<th align="right" nowrap>[% 'Project Number' | $T8 %]</th>
|
||
|
<td>[% P.project.picker('globalproject_id', globalproject_id) %]</td>
|
||
|
<td>[%- L.select_tag('globalproject_id', ALL_PROJECTS, title_key = 'projectnumber', default = globalproject_id, with_empty = '1', onChange = "document.getElementById('update_button').click();") %]</td>
|
||
|
</tr>
|
||
|
</table>
|
||
|
</td>
|
||
Auch abrufbar als: Unified diff
Einkaufsrechnungen: Projektauswahl gefixt