Revision 2ff471a7
Von Moritz Bunkus vor fast 18 Jahren hinzugefügt
| bin/mozilla/is.pl | ||
|---|---|---|
| 121 | 121 |
if ($form->{all_customer}) {
|
| 122 | 122 |
unless ($form->{customer_id}) {
|
| 123 | 123 |
$form->{customer_id} = $form->{all_customer}->[0]->{id};
|
| 124 |
$form->{salesman_id} = $form->{all_customer}->[0]->{salesman_id};
|
|
| 124 | 125 |
} |
| 125 | 126 |
} |
| 126 | 127 |
|
| ... | ... | |
| 367 | 368 |
"shipto" => "ALL_SHIPTO", |
| 368 | 369 |
"projects" => { "key" => "ALL_PROJECTS",
|
| 369 | 370 |
"all" => 0, |
| 370 |
"old_id" => \@old_project_ids }); |
|
| 371 |
"old_id" => \@old_project_ids }, |
|
| 372 |
"employees" => "ALL_SALESMEN"); |
|
| 371 | 373 |
|
| 372 | 374 |
my (%labels, @values); |
| 373 | 375 |
foreach my $item (@{ $form->{"ALL_CONTACTS"} }) {
|
| ... | ... | |
| 405 | 407 |
'-labels' => \%labels, |
| 406 | 408 |
'-default' => $form->{"globalproject_id"}));
|
| 407 | 409 |
|
| 410 |
%labels = (); |
|
| 411 |
@values = ("");
|
|
| 412 |
foreach my $item (@{ $form->{ALL_SALESMEN} }) {
|
|
| 413 |
push(@values, $item->{id});
|
|
| 414 |
$labels{$item->{id}} = $item->{name} ne "" ? $item->{name} : $item->{login};
|
|
| 415 |
} |
|
| 416 |
|
|
| 417 |
$salesman = |
|
| 418 |
qq|<tr> |
|
| 419 |
<th align="right">| . $locale->text('Salesman') . qq|</th>
|
|
| 420 |
<td>| . |
|
| 421 |
NTI($cgi->popup_menu('-name' => 'salesman_id', '-default' => $form->{salesman_id},
|
|
| 422 |
'-values' => \@values, '-labels' => \%labels)) |
|
| 423 |
. qq|</td> |
|
| 424 |
</tr>|; |
|
| 425 |
|
|
| 408 | 426 |
# set option selected |
| 409 | 427 |
foreach $item (qw(AR customer currency department employee)) {
|
| 410 | 428 |
$form->{"select$item"} =~ s/ selected//;
|
| ... | ... | |
| 717 | 735 |
<td colspan=2><select name=employee>$form->{selectemployee}</select></td>
|
| 718 | 736 |
<input type=hidden name=selectemployee value="$form->{selectemployee}">
|
| 719 | 737 |
<td></td> |
| 720 |
</tr>|; |
|
| 738 |
</tr> |
|
| 739 |
$salesman |
|
| 740 |
|; |
|
| 721 | 741 |
if ($form->{type} eq "credit_note") {
|
| 722 | 742 |
print qq| <tr> |
| 723 | 743 |
<th align=right nowrap>| . $locale->text('Credit Note Number') . qq|</th>
|
Auch abrufbar als: Unified diff
Speichern und Anzeigen eines Verkäufers bei Verkaufsmasken.