Revision 8470071b
Von G. Richardson vor mehr als 12 Jahren hinzugefügt
| SL/IC.pm | ||
|---|---|---|
| 1121 | 1121 |
$form->{parts} = \@assemblies;
|
| 1122 | 1122 |
} |
| 1123 | 1123 |
|
| 1124 |
if ($form->{l_pricegroups} ) {
|
|
| 1125 |
my $query = <<SQL; |
|
| 1126 |
SELECT parts_id, price, pricegroup_id |
|
| 1127 |
FROM prices |
|
| 1128 |
WHERE parts_id = ? |
|
| 1129 |
SQL |
|
| 1130 |
|
|
| 1131 |
my $sth = prepare_query($form, $dbh, $query); |
|
| 1132 |
|
|
| 1133 |
foreach my $part (@{ $form->{parts} }) {
|
|
| 1134 |
do_statement($form, $sth, $query, conv_i($part->{id}));
|
|
| 1135 |
|
|
| 1136 |
while (my $ref = $sth->fetchrow_hashref("NAME_lc")) {
|
|
| 1137 |
$part->{"pricegroup_$ref->{pricegroup_id}"} = $ref->{price};
|
|
| 1138 |
} |
|
| 1139 |
$sth->finish; |
|
| 1140 |
} |
|
| 1141 |
}; |
|
| 1142 |
|
|
| 1143 |
|
|
| 1124 | 1144 |
$main::lxdebug->leave_sub(); |
| 1125 | 1145 |
|
| 1126 | 1146 |
return wantarray ? @{ $form->{parts} } : $form->{parts};
|
Auch abrufbar als: Unified diff
Preisgruppen in all_parts Lieferanten
(Implementierung grösstenteils von Geoffrey, leicht modifiziert von mir)