Revision ddf1c00a
Von Moritz Bunkus vor mehr als 11 Jahren hinzugefügt
| SL/OE.pm | ||
|---|---|---|
| 691 | 691 |
qq|WHERE trans_id = ?|; |
| 692 | 692 |
do_query($form, $dbh, $query, @values); |
| 693 | 693 |
|
| 694 |
# delete OE record |
|
| 695 |
$query = qq|DELETE FROM oe | . |
|
| 696 |
qq|WHERE id = ?|; |
|
| 697 |
do_query($form, $dbh, $query, @values); |
|
| 698 |
|
|
| 699 | 694 |
# delete individual entries |
| 700 | 695 |
$query = qq|DELETE FROM orderitems | . |
| 701 | 696 |
qq|WHERE trans_id = ?|; |
| ... | ... | |
| 705 | 700 |
qq|WHERE trans_id = ? AND module = 'OE'|; |
| 706 | 701 |
do_query($form, $dbh, $query, @values); |
| 707 | 702 |
|
| 703 |
# delete OE record |
|
| 704 |
$query = qq|DELETE FROM oe | . |
|
| 705 |
qq|WHERE id = ?|; |
|
| 706 |
do_query($form, $dbh, $query, @values); |
|
| 707 |
|
|
| 708 | 708 |
my $rc = $dbh->commit; |
| 709 | 709 |
|
| 710 | 710 |
if ($rc) {
|
Auch abrufbar als: Unified diff
Aufträge etc: Beleg nach Zeilen löschen
Behebt #2207.