Revision e53cae00
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| bin/mozilla/io.pl | ||
|---|---|---|
| 488 | 488 |
|
| 489 | 489 |
print qq| |
| 490 | 490 |
<b>$projectnumber</b> <input name="projectnumber_$i" size=10 value="$form->{"projectnumber_$i"}">
|
| 491 |
<input type=hidden name="oldprojectnumber_$i" value="$form->{"oldprojectnumber_$i"}">
|
|
| 491 |
<input type=hidden name="oldprojectnumber_$i" value="$form->{"projectnumber_$i"}">
|
|
| 492 | 492 |
<input type=hidden name="project_id_$i" value="$form->{"project_id_$i"}">
|
| 493 | 493 |
|; |
| 494 | 494 |
if ($form->{type} eq 'invoice' or $form->{type} =~ /order/) {
|
| ... | ... | |
| 981 | 981 |
|
| 982 | 982 |
# remove any makes or model rows |
| 983 | 983 |
if ($form->{item} eq 'part') {
|
| 984 |
$lxdebug->message(0, "a1 $form->{sellprice}");
|
|
| 984 | 985 |
map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) }
|
| 985 | 986 |
qw(listprice sellprice lastcost weight rop); |
| 987 |
$lxdebug->message(0, "a2 $form->{sellprice}");
|
|
| 986 | 988 |
|
| 987 | 989 |
@flds = (make, model); |
| 988 | 990 |
for my $i (1 .. ($form->{makemodel_rows})) {
|
| ... | ... | |
| 995 | 997 |
} |
| 996 | 998 |
} |
| 997 | 999 |
|
| 1000 |
$lxdebug->message(0, "a3 $form->{sellprice}");
|
|
| 998 | 1001 |
$form->redo_rows(\@flds, \@a, $count, $form->{makemodel_rows});
|
| 1002 |
$lxdebug->message(0, "a4 $form->{sellprice}");
|
|
| 999 | 1003 |
$form->{makemodel_rows} = $count;
|
| 1000 | 1004 |
|
| 1001 | 1005 |
} elsif ($form->{item} eq 'assembly') {
|
| ... | ... | |
| 1076 | 1080 |
} |
| 1077 | 1081 |
} |
| 1078 | 1082 |
|
| 1083 |
$lxdebug->message(0, "a5 $form->{sellprice}");
|
|
| 1079 | 1084 |
#sk |
| 1080 | 1085 |
# if pricegroups |
| 1081 | 1086 |
if ( $form->{type} =~ (/sales_quotation/)
|
| ... | ... | |
| 1090 | 1095 |
set_pricegroup($form->{rowcount});
|
| 1091 | 1096 |
|
| 1092 | 1097 |
} |
| 1098 |
$lxdebug->message(0, "a6 $form->{sellprice}");
|
|
| 1093 | 1099 |
|
| 1094 | 1100 |
&display_form; |
| 1101 |
$lxdebug->message(0, "a7 $form->{sellprice}");
|
|
| 1095 | 1102 |
|
| 1096 | 1103 |
$lxdebug->leave_sub(); |
| 1097 | 1104 |
} |
Auch abrufbar als: Unified diff
Bei der Ausgabe der oldprojectnumber_$i den aktuellen Wert benutzen, damit der Rest des Programmes den nicht manuell setzen muss.