Revision 07d71c33
Von Stephan Köhler vor fast 19 Jahren hinzugefügt
| SL/OE.pm | ||
|---|---|---|
| 311 | 311 |
$reqdate = |
| 312 | 312 |
($form->{"reqdate_$i"}) ? qq|'$form->{"reqdate_$i"}'| : "NULL";
|
| 313 | 313 |
|
| 314 |
# get pricegroup_id and save ist |
|
| 315 |
($null, my $pricegroup_id) = split /--/, $form->{"sellprice_drag_$i"};
|
|
| 316 |
$pricegroup_id *= 1; |
|
| 317 |
|
|
| 314 | 318 |
# save detail record in orderitems table |
| 315 | 319 |
$query = qq|INSERT INTO orderitems (|; |
| 316 | 320 |
$query .= "id, " if $form->{"orderitems_id_$i"};
|
| 317 | 321 |
$query .= qq|trans_id, parts_id, description, qty, sellprice, discount, |
| 318 |
unit, reqdate, project_id, serialnumber, ship) |
|
| 322 |
unit, reqdate, project_id, serialnumber, ship, pricegroup_id)
|
|
| 319 | 323 |
VALUES (|; |
| 320 | 324 |
$query .= qq|$form->{"orderitems_id_$i"},|
|
| 321 | 325 |
if $form->{"orderitems_id_$i"};
|
| ... | ... | |
| 323 | 327 |
'$form->{"description_$i"}', $form->{"qty_$i"},
|
| 324 | 328 |
$fxsellprice, $form->{"discount_$i"},
|
| 325 | 329 |
'$form->{"unit_$i"}', $reqdate, (SELECT id from project where projectnumber = '$project_id'),
|
| 326 |
'$form->{"serialnumber_$i"}', $form->{"ship_$i"})|;
|
|
| 330 |
'$form->{"serialnumber_$i"}', $form->{"ship_$i"},
|
|
| 331 |
'$pricegroup_id')|; |
|
| 327 | 332 |
$dbh->do($query) || $form->dberror($query); |
| 328 | 333 |
|
| 329 | 334 |
$form->{"sellprice_$i"} = $fxsellprice;
|
| ... | ... | |
| 631 | 636 |
o.sellprice, o.parts_id AS id, o.unit, o.discount, p.bin, p.notes AS partnotes, |
| 632 | 637 |
o.reqdate, o.project_id, o.serialnumber, o.ship, |
| 633 | 638 |
pr.projectnumber, |
| 634 |
pg.partsgroup |
|
| 639 |
pg.partsgroup, o.pricegroup_id, (SELECT pricegroup FROM pricegroup WHERE id=o.pricegroup_id) as pricegroup
|
|
| 635 | 640 |
FROM orderitems o |
| 636 | 641 |
JOIN parts p ON (o.parts_id = p.id) |
| 637 | 642 |
LEFT JOIN chart c1 ON (p.inventory_accno_id = c1.id) |
Auch abrufbar als: Unified diff
Merge von 599-602,605,614,615 aus unstable: Preisgruppen Teil 1
--Preisgruppenerweiterung auf Basis von Andres Patch - Thanks
-Preisgruppenverwaltung
-Preiseingabe der Preisgruppen in Masken Waren,etc.
-Auswahl der Preisgruppen in den Verkaufsmasken
-Erweiterung Datenbankschema
-Übersetzungen für Preisgruppen
-Bugfix Preisgruppen, in der Warenmaske zeigte er eine Preisgruppe a
"Gruppe 1" als "Gruppe" an
-Anpassung locale
--Fehler bei negativen Umsaetzen behoben
--Fehler beim Speichern von Rechnungen und Angeboten/Auftraegen wenn keine Preisgruppen vorhanden
--Fehler bei Drucken und Buchen und Preisgruppen behoben, Preisgruppen Quelltext ein wenig modifiziert