Revision f01741e3
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| bin/mozilla/ar.pl | ||
|---|---|---|
| 421 | 421 |
|; |
| 422 | 422 |
} |
| 423 | 423 |
|
| 424 |
my @old_project_ids = (); |
|
| 425 |
map({ push(@old_project_ids, $form->{"project_id_$_"})
|
|
| 426 |
if ($form->{"project_id_$_"}); } (1..$form->{"rowcount"}));
|
|
| 427 |
|
|
| 428 |
$form->get_lists("projects" => { "key" => "ALL_PROJECTS",
|
|
| 429 |
"all" => 0, |
|
| 430 |
"old_id" => \@old_project_ids }); |
|
| 431 |
|
|
| 432 |
my %project_labels = (); |
|
| 433 |
my @project_values = ("");
|
|
| 434 |
foreach my $item (@{ $form->{"ALL_PROJECTS"} }) {
|
|
| 435 |
push(@project_values, $item->{"id"});
|
|
| 436 |
$project_labels{$item->{"id"}} = $item->{"projectnumber"};
|
|
| 437 |
} |
|
| 438 |
|
|
| 424 | 439 |
$form->{fokus} = "arledger.customer";
|
| 425 | 440 |
|
| 426 | 441 |
# use JavaScript Calendar or not |
| ... | ... | |
| 582 | 597 |
qq|<td><select id="taxchart_$i" name="taxchart_$i" style="width:200px">$tax</select></td>|; |
| 583 | 598 |
$korrektur_checked = ($form->{"korrektur_$i"} ? 'checked' : '');
|
| 584 | 599 |
|
| 600 |
my $projectnumber = |
|
| 601 |
NTI($cgi->popup_menu('-name' => "project_id_$i",
|
|
| 602 |
'-values' => \@project_values, |
|
| 603 |
'-labels' => \%project_labels, |
|
| 604 |
'-default' => $form->{"project_id_$i"} ));
|
|
| 605 |
|
|
| 585 | 606 |
print qq| |
| 586 | 607 |
<tr> |
| 587 | 608 |
<td width=50%><select name="AR_amount_$i" onChange="setTaxkey(this, $i)" style="width:100%">$selectAR_amount</select></td> |
| ... | ... | |
| 589 | 610 |
<td><input name="tax_$i" size=10 value=$form->{"tax_$i"}></td>
|
| 590 | 611 |
<td><input type="checkbox" name="korrektur_$i" value="1" $korrektur_checked></td> |
| 591 | 612 |
$tax |
| 592 |
<td><input name="projectnumber_$i" size=20 value="$form->{"projectnumber_$i"}">
|
|
| 593 |
<input type=hidden name="project_id_$i" value=$form->{"project_id_$i"}>
|
|
| 594 |
<input type=hidden name="oldprojectnumber_$i" value="$form->{"oldprojectnumber_$i"}"></td>
|
|
| 613 |
<td>$projectnumber</td> |
|
| 595 | 614 |
</tr> |
| 596 | 615 |
|; |
| 597 | 616 |
$amount = ""; |
| ... | ... | |
| 870 | 889 |
&check_name(customer); |
| 871 | 890 |
$form->{AR} = $save_AR;
|
| 872 | 891 |
|
| 873 |
&check_project; |
|
| 874 |
|
|
| 875 | 892 |
$form->{invtotal} =
|
| 876 | 893 |
($form->{taxincluded}) ? $form->{invtotal} : $form->{invtotal} + $totaltax;
|
| 877 | 894 |
|
Auch abrufbar als: Unified diff
Projektauswahl in Debitoren- und Kreditorenbuchungen per Drop-Down-Box. Bei der Buchung auf das Gegenkonto wird keine Projektnummer vermerkt.