Revision cfc6a60d
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| bin/mozilla/is.pl | ||
|---|---|---|
| 353 | 353 |
<input type=hidden name=selecttaxzone value="$form->{selecttaxzone}">
|
| 354 | 354 |
</tr>|; |
| 355 | 355 |
|
| 356 |
my @old_project_ids = ($form->{"globalproject_id"});
|
|
| 357 |
map({ push(@old_project_ids, $form->{"project_id_$_"})
|
|
| 358 |
if ($form->{"project_id_$_"}); } (1..$form->{"rowcount"}));
|
|
| 359 |
|
|
| 356 | 360 |
$form->get_lists("contacts" => "ALL_CONTACTS",
|
| 357 |
"shipto" => "ALL_SHIPTO"); |
|
| 361 |
"shipto" => "ALL_SHIPTO", |
|
| 362 |
"projects" => { "key" => "ALL_PROJECTS",
|
|
| 363 |
"all" => 0, |
|
| 364 |
"old_id" => \@old_project_ids }); |
|
| 358 | 365 |
|
| 359 | 366 |
my (%labels, @values); |
| 360 | 367 |
foreach my $item (@{ $form->{"ALL_CONTACTS"} }) {
|
| ... | ... | |
| 363 | 370 |
($item->{"cp_abteilung"} ? " ($item->{cp_abteilung})" : "");
|
| 364 | 371 |
} |
| 365 | 372 |
my $contact = |
| 366 |
$cgi->popup_menu('-name' => 'cp_id', '-values' => \@values,
|
|
| 367 |
'-labels' => \%labels, '-default' => $form->{"cp_id"});
|
|
| 373 |
NTI($cgi->popup_menu('-name' => 'cp_id', '-values' => \@values,
|
|
| 374 |
'-labels' => \%labels, '-default' => $form->{"cp_id"}));
|
|
| 368 | 375 |
|
| 369 | 376 |
%labels = (); |
| 370 | 377 |
@values = ("");
|
| ... | ... | |
| 377 | 384 |
my $shipto = qq| |
| 378 | 385 |
<th align=right>| . $locale->text('Shipping Address') . qq|</th>
|
| 379 | 386 |
<td>| . |
| 380 |
$cgi->popup_menu('-name' => 'shipto_id', '-values' => \@values,
|
|
| 381 |
'-labels' => \%labels, '-default' => $form->{"shipto_id"})
|
|
| 387 |
NTI($cgi->popup_menu('-name' => 'shipto_id', '-values' => \@values,
|
|
| 388 |
'-labels' => \%labels, '-default' => $form->{"shipto_id"}))
|
|
| 382 | 389 |
. qq|</td>|; |
| 383 | 390 |
|
| 391 |
%labels = (); |
|
| 392 |
@values = ("");
|
|
| 393 |
foreach my $item (@{ $form->{"ALL_PROJECTS"} }) {
|
|
| 394 |
push(@values, $item->{"id"});
|
|
| 395 |
$labels{$item->{"id"}} = $item->{"projectnumber"};
|
|
| 396 |
} |
|
| 397 |
my $globalprojectnumber = |
|
| 398 |
NTI($cgi->popup_menu('-name' => 'globalproject_id', '-values' => \@values,
|
|
| 399 |
'-labels' => \%labels, |
|
| 400 |
'-default' => $form->{"globalproject_id"}));
|
|
| 401 |
|
|
| 384 | 402 |
# set option selected |
| 385 | 403 |
foreach $item (qw(AR customer currency department employee)) {
|
| 386 | 404 |
$form->{"select$item"} =~ s/ selected//;
|
| ... | ... | |
| 743 | 761 |
</tr> |
| 744 | 762 |
<tr> |
| 745 | 763 |
<th align="right" nowrap>| . $locale->text('Project Number') . qq|</th>
|
| 746 |
<td> |
|
| 747 |
<input name="globalprojectnumber" size="11" value="| . Q($form->{globalprojectnumber}) . qq|">
|
|
| 748 |
<input type="hidden" name="oldglobalprojectnumber" value="| . Q($form->{globalprojectnumber}) . qq|">
|
|
| 749 |
<input type="hidden" name="globalproject_id" value="| . Q($form->{globalproject_id}) . qq|">
|
|
| 750 |
</td> |
|
| 764 |
<td>$globalprojectnumber</td> |
|
| 751 | 765 |
</tr> |
| 752 | 766 |
</table> |
| 753 | 767 |
</td> |
| ... | ... | |
| 1167 | 1181 |
|
| 1168 | 1182 |
&check_name(customer); |
| 1169 | 1183 |
|
| 1170 |
&check_project; |
|
| 1171 |
|
|
| 1172 | 1184 |
$form->{exchangerate} = $exchangerate
|
| 1173 | 1185 |
if ( |
| 1174 | 1186 |
$form->{forex} = (
|
Auch abrufbar als: Unified diff
Anzeige und Auswahl von Projektnummern bei Einkaufs- und Verkaufsbelegen nur noch per Drop-Down-Box.