Revision cfc6a60d
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| bin/mozilla/ir.pl | ||
|---|---|---|
| 36 | 36 |
|
| 37 | 37 |
require "$form->{path}/io.pl";
|
| 38 | 38 |
require "$form->{path}/arap.pl";
|
| 39 |
require "$form->{path}/common.pl";
|
|
| 39 | 40 |
|
| 40 | 41 |
1; |
| 41 | 42 |
|
| ... | ... | |
| 259 | 260 |
<input type=hidden name=forex value=$form->{forex}>
|
| 260 | 261 |
|; |
| 261 | 262 |
|
| 262 |
$form->get_lists("contacts" => "ALL_CONTACTS");
|
|
| 263 |
my @old_project_ids = ($form->{"globalproject_id"});
|
|
| 264 |
map({ push(@old_project_ids, $form->{"project_id_$_"})
|
|
| 265 |
if ($form->{"project_id_$_"}); } (1..$form->{"rowcount"}));
|
|
| 266 |
|
|
| 267 |
$form->get_lists("contacts" => "ALL_CONTACTS",
|
|
| 268 |
"projects" => { "key" => "ALL_PROJECTS",
|
|
| 269 |
"all" => 0, |
|
| 270 |
"old_id" => \@old_project_ids }); |
|
| 263 | 271 |
|
| 264 | 272 |
my (%labels, @values); |
| 265 | 273 |
foreach my $item (@{ $form->{"ALL_CONTACTS"} }) {
|
| ... | ... | |
| 268 | 276 |
($item->{"cp_abteilung"} ? " ($item->{cp_abteilung})" : "");
|
| 269 | 277 |
} |
| 270 | 278 |
my $contact = |
| 271 |
$cgi->popup_menu('-name' => 'cp_id', '-values' => \@values,
|
|
| 272 |
'-labels' => \%labels, '-default' => $form->{"cp_id"});
|
|
| 279 |
NTI($cgi->popup_menu('-name' => 'cp_id', '-values' => \@values,
|
|
| 280 |
'-labels' => \%labels, '-default' => $form->{"cp_id"}));
|
|
| 281 |
|
|
| 282 |
%labels = (); |
|
| 283 |
@values = ("");
|
|
| 284 |
foreach my $item (@{ $form->{"ALL_PROJECTS"} }) {
|
|
| 285 |
push(@values, $item->{"id"});
|
|
| 286 |
$labels{$item->{"id"}} = $item->{"projectnumber"};
|
|
| 287 |
} |
|
| 288 |
my $globalprojectnumber = |
|
| 289 |
NTI($cgi->popup_menu('-name' => 'globalproject_id', '-values' => \@values,
|
|
| 290 |
'-labels' => \%labels, |
|
| 291 |
'-default' => $form->{"globalproject_id"}));
|
|
| 273 | 292 |
|
| 274 | 293 |
if (@{ $form->{TAXZONE} }) {
|
| 275 | 294 |
$form->{selecttaxzone} = "";
|
| ... | ... | |
| 457 | 476 |
</tr> |
| 458 | 477 |
<tr> |
| 459 | 478 |
<th align="right" nowrap>| . $locale->text('Project Number') . qq|</th>
|
| 460 |
<td> |
|
| 461 |
<input name="globalprojectnumber" size="11" value="| . Q($form->{globalprojectnumber}) . qq|">
|
|
| 462 |
<input type="hidden" name="oldglobalprojectnumber" value="| . Q($form->{globalprojectnumber}) . qq|">
|
|
| 463 |
<input type="hidden" name="globalproject_id" value="| . Q($form->{globalproject_id}) . qq|">
|
|
| 464 |
</td:> |
|
| 479 |
<td>$globalprojectnumber</td> |
|
| 465 | 480 |
</tr> |
| 466 | 481 |
</table> |
| 467 | 482 |
</td> |
| ... | ... | |
| 813 | 828 |
|
| 814 | 829 |
&check_name(vendor); |
| 815 | 830 |
|
| 816 |
&check_project; |
|
| 817 |
|
|
| 818 | 831 |
$form->{exchangerate} = $exchangerate
|
| 819 | 832 |
if ( |
| 820 | 833 |
$form->{forex} = (
|
Auch abrufbar als: Unified diff
Anzeige und Auswahl von Projektnummern bei Einkaufs- und Verkaufsbelegen nur noch per Drop-Down-Box.