Revision 4236c151
Von Jan Büren vor mehr als 14 Jahren hinzugefügt
| SL/WH.pm | ||
|---|---|---|
| 170 | 170 |
my $sthTransferPartSQL = prepare_query($form, $dbh, $transferPartSQL); |
| 171 | 171 |
|
| 172 | 172 |
# der return-string für die fehlermeldung inkl. welche waren zum fertigen noch fehlen |
| 173 |
my $kannNichtFertigen ="Für dieses Erzeugnis sind keine Einzelteile definiert. |
|
| 174 |
Dementsprechend kann auch nichts hergestellt werden"; |
|
| 175 | 173 |
|
| 174 |
my $kannNichtFertigen =""; # Falls leer dann erfolgreich |
|
| 175 |
my $schleife_durchlaufen=0; # Falls die Schleife nicht ausgeführt wird -> Keine Einzelteile definiert. Bessere Idee? jan |
|
| 176 | 176 |
while (my $hash_ref = $sth_part_qty_assembly->fetchrow_hashref()) { #Schleife für select parts_id,(...) from assembly
|
| 177 |
$kannNichtFertigen =""; # Wieder auf erfolgreich setzen LEER == keine Fehlermeldung
|
|
| 177 |
$schleife_durchlaufen=1; # Erzeugnis definiert
|
|
| 178 | 178 |
my $partsQTY = $hash_ref->{qty} * $params{qty}; # benötigte teile * anzahl erzeugnisse
|
| 179 | 179 |
my $currentPart_ID = $hash_ref->{parts_id};
|
| 180 | 180 |
|
| ... | ... | |
| 236 | 236 |
} |
| 237 | 237 |
} # ende while SELECT SUM(qty), bin_id, chargenumber, bestbefore FROM inventory WHERE warehouse_id |
| 238 | 238 |
} #ende while select parts_id,qty from assembly where id = ? |
| 239 |
|
|
| 240 |
if ($schleife_durchlaufen==0){ # falls die schleife nicht durchlaufen wurde, wurden auch
|
|
| 241 |
# keine einzelteile definiert |
|
| 242 |
$kannNichtFertigen ="Für dieses Erzeugnis sind keine Einzelteile definiert. |
|
| 243 |
Dementsprechend kann auch nichts hergestellt werden"; |
|
| 244 |
} |
|
| 245 |
# gibt die Fehlermeldung zurück. A.) Keine Teile definiert |
|
| 246 |
# B.) Artikel und Anzahl der fehlenden Teile/Dienstleistungen |
|
| 239 | 247 |
if ($kannNichtFertigen) {
|
| 240 | 248 |
return $kannNichtFertigen; |
| 241 | 249 |
} |
Auch abrufbar als: Unified diff
Fehlerbehebung für Bug 1409 - Bei 'Erzeugnis fertigen' wird nur der Bestand der letzten Komponente geprüft. Fehlerhafte Überprüfung, ob überhaupt Waren/Dienstleistungen definiert worden sind. Entsprechend geändert