Revision 1c72997a
Von Thomas Kasulke vor mehr als 17 Jahren hinzugefügt
| bin/mozilla/ir.pl | ||
|---|---|---|
| 223 | 223 |
$lxdebug->enter_sub(); |
| 224 | 224 |
|
| 225 | 225 |
# set option selected |
| 226 |
foreach $item (qw(AP vendor currency department)) {
|
|
| 226 |
foreach $item (qw(AP vendor currency department employee)) {
|
|
| 227 | 227 |
$form->{"select$item"} =~ s/ selected//;
|
| 228 | 228 |
$form->{"select$item"} =~
|
| 229 | 229 |
s/option>\Q$form->{$item}\E/option selected>$form->{$item}/;
|
| ... | ... | |
| 275 | 275 |
"all" => 0, |
| 276 | 276 |
"old_id" => \@old_project_ids }, |
| 277 | 277 |
"taxzones" => "ALL_TAXZONES", |
| 278 |
"employees" => "ALL_SALESMEN", |
|
| 278 | 279 |
"currencies" => "ALL_CURRENCIES"); |
| 279 | 280 |
|
| 280 | 281 |
my %labels; |
| ... | ... | |
| 316 | 317 |
'-values' => \@values, '-labels' => \%labels)) . qq| |
| 317 | 318 |
</td> |
| 318 | 319 |
</tr>|; |
| 320 |
|
|
| 321 |
|
|
| 322 |
%labels = (); |
|
| 323 |
@values = (); |
|
| 324 |
my $i = 0; |
|
| 325 |
foreach my $item (@{ $form->{"ALL_SALESMEN"} }) {
|
|
| 326 |
push(@values, $item->{"id"});
|
|
| 327 |
$labels{$item->{"id"}} = $item->{"name"};
|
|
| 328 |
} |
|
| 329 |
my $employees = qq| |
|
| 330 |
<tr> |
|
| 331 |
<th align="right">| . $locale->text('Employee') . qq|</th>
|
|
| 332 |
<td>| . |
|
| 333 |
NTI($cgi->popup_menu('-name' => 'employee', '-default' => $form->{"employee"},
|
|
| 334 |
'-values' => \@values, '-labels' => \%labels)) . qq| |
|
| 335 |
</td> |
|
| 336 |
</tr>|; |
|
| 319 | 337 |
|
| 320 | 338 |
%labels = (); |
| 321 | 339 |
@values = (); |
| ... | ... | |
| 349 | 367 |
($form->{selectvendor})
|
| 350 | 368 |
? qq|<select name="vendor" |
| 351 | 369 |
onchange="document.getElementById('update_button').click();">| .
|
| 352 |
qq|$form->{selectvendor}</select>\n<input type=hidden name="selectvendor" value="| .
|
|
| 370 |
qq|$form->{selectvendor}</select>\n<input type="hidden" name="selectvendor" value="| .
|
|
| 353 | 371 |
Q($form->{selectvendor}) . qq|">|
|
| 354 |
: qq|<input name=vendor value="$form->{vendor}" size=35>|;
|
|
| 372 |
: qq|<input name="vendor" value="$form->{vendor}" size="35">|;
|
|
| 355 | 373 |
|
| 356 | 374 |
$department = qq| |
| 357 | 375 |
<tr> |
| 358 | 376 |
<th align="right" nowrap>| . $locale->text('Department') . qq|</th>
|
| 359 |
<td colspan=3><select name=department>$form->{selectdepartment}</select>
|
|
| 360 |
<input type=hidden name=selectdepartment value="$form->{selectdepartment}">
|
|
| 377 |
<td colspan="3"><select name="department">$form->{selectdepartment}</select>
|
|
| 378 |
<input type="hidden" name="selectdepartment" value="$form->{selectdepartment}">
|
|
| 361 | 379 |
</td> |
| 362 | 380 |
</tr> |
| 363 | 381 |
| if $form->{selectdepartment};
|
| ... | ... | |
| 450 | 468 |
|
| 451 | 469 |
<input type=hidden name=vendor_id value=$form->{vendor_id}>
|
| 452 | 470 |
<input type=hidden name=oldvendor value="$form->{oldvendor}">
|
| 453 |
|
|
| 454 | 471 |
</tr> |
| 455 | 472 |
<tr> |
| 456 | 473 |
<td></td> |
| 457 |
<td colspan=3>
|
|
| 474 |
<td> |
|
| 458 | 475 |
<table> |
| 459 | 476 |
<tr> |
| 460 | 477 |
<th nowrap>| . $locale->text('Credit Limit') . qq|</th>
|
| ... | ... | |
| 464 | 481 |
<td class="plus$n">$form->{creditremaining}</td>
|
| 465 | 482 |
</tr> |
| 466 | 483 |
</table> |
| 467 |
</td> |
|
| 484 |
</td>
|
|
| 468 | 485 |
<tr> |
| 469 |
<th align=right>| . $locale->text('Record in') . qq|</th>
|
|
| 470 |
<td colspan=3><select name=AP>$form->{selectAP}</select></td>
|
|
| 471 |
<input type=hidden name=selectAP value="$form->{selectAP}">
|
|
| 486 |
<th align="right">| . $locale->text('Record in') . qq|</th>
|
|
| 487 |
<td colspan="3"><select name="AP">$form->{selectAP}</select></td>
|
|
| 488 |
<input type="hidden" name="selectAP" value="$form->{selectAP}">
|
|
| 472 | 489 |
</tr> |
| 473 | 490 |
$taxzone |
| 474 | 491 |
$department |
| ... | ... | |
| 480 | 497 |
</td> |
| 481 | 498 |
<td align=right> |
| 482 | 499 |
<table> |
| 483 |
<tr> |
|
| 500 |
$employees |
|
| 501 |
<tr> |
|
| 484 | 502 |
<th align=right nowrap>| . $locale->text('Invoice Number') . qq|</th>
|
| 485 | 503 |
<td><input name=invnumber size=11 value="$form->{invnumber}"></td>
|
| 486 | 504 |
</tr> |
| ... | ... | |
| 663 | 681 |
<table width=100%> |
| 664 | 682 |
$subtotal |
| 665 | 683 |
$tax |
| 666 |
<tr>0
|
|
| 684 |
<tr> |
|
| 667 | 685 |
<th align=right>| . $locale->text('Total') . qq|</th>
|
| 668 | 686 |
<td align=right>$form->{invtotal}</td>
|
| 669 | 687 |
</tr> |
Auch abrufbar als: Unified diff
Bearbeiter-Popup eingefügt