Revision 7e073dcd
Von Moritz Bunkus vor fast 18 Jahren hinzugefügt
| bin/mozilla/io.pl | ||
|---|---|---|
| 981 | 981 |
|
| 982 | 982 |
# remove any makes or model rows |
| 983 | 983 |
if ($form->{item} eq 'part') {
|
| 984 |
$lxdebug->message(0, "a1 $form->{sellprice}");
|
|
| 985 | 984 |
map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) }
|
| 986 | 985 |
qw(listprice sellprice lastcost weight rop); |
| 987 |
$lxdebug->message(0, "a2 $form->{sellprice}");
|
|
| 988 | 986 |
|
| 989 | 987 |
@flds = (make, model); |
| 990 | 988 |
for my $i (1 .. ($form->{makemodel_rows})) {
|
| ... | ... | |
| 997 | 995 |
} |
| 998 | 996 |
} |
| 999 | 997 |
|
| 1000 |
$lxdebug->message(0, "a3 $form->{sellprice}");
|
|
| 1001 | 998 |
$form->redo_rows(\@flds, \@a, $count, $form->{makemodel_rows});
|
| 1002 |
$lxdebug->message(0, "a4 $form->{sellprice}");
|
|
| 1003 | 999 |
$form->{makemodel_rows} = $count;
|
| 1004 | 1000 |
|
| 1005 | 1001 |
} elsif ($form->{item} eq 'assembly') {
|
| ... | ... | |
| 1080 | 1076 |
} |
| 1081 | 1077 |
} |
| 1082 | 1078 |
|
| 1083 |
$lxdebug->message(0, "a5 $form->{sellprice}");
|
|
| 1084 | 1079 |
#sk |
| 1085 | 1080 |
# if pricegroups |
| 1086 | 1081 |
if ( $form->{type} =~ (/sales_quotation/)
|
| ... | ... | |
| 1095 | 1090 |
set_pricegroup($form->{rowcount});
|
| 1096 | 1091 |
|
| 1097 | 1092 |
} |
| 1098 |
$lxdebug->message(0, "a6 $form->{sellprice}");
|
|
| 1099 | 1093 |
|
| 1100 | 1094 |
&display_form; |
| 1101 |
$lxdebug->message(0, "a7 $form->{sellprice}");
|
|
| 1102 | 1095 |
|
| 1103 | 1096 |
$lxdebug->leave_sub(); |
| 1104 | 1097 |
} |
Auch abrufbar als: Unified diff
Debugmeldungen...