Revision 8a996479
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| SL/OE.pm | ||
|---|---|---|
| 35 | 35 |
package OE; |
| 36 | 36 |
|
| 37 | 37 |
use SL::AM; |
| 38 |
use SL::DBUtils; |
|
| 38 | 39 |
|
| 39 | 40 |
sub transactions {
|
| 40 | 41 |
$main::lxdebug->enter_sub(); |
| ... | ... | |
| 560 | 561 |
$main::lxdebug->leave_sub(); |
| 561 | 562 |
} |
| 562 | 563 |
|
| 564 |
sub close_order {
|
|
| 565 |
$main::lxdebug->enter_sub(); |
|
| 566 |
|
|
| 567 |
my ($self, $myconfig, $form) = @_; |
|
| 568 |
|
|
| 569 |
$main::lxdebug->leave_sub() unless ($form->{"id"});
|
|
| 570 |
|
|
| 571 |
my $dbh = $form->dbconnect($myconfig); |
|
| 572 |
do_query($form, $dbh, qq|UPDATE oe SET closed = TRUE where ordnumber = ?|, |
|
| 573 |
$form->{"id"});
|
|
| 574 |
$dbh->disconnect; |
|
| 575 |
|
|
| 576 |
$main::lxdebug->leave_sub(); |
|
| 577 |
} |
|
| 578 |
|
|
| 563 | 579 |
sub delete {
|
| 564 | 580 |
$main::lxdebug->enter_sub(); |
| 565 | 581 |
|
Auch abrufbar als: Unified diff
OE->save() parst verschiedene Zahlen. Das ist beim Umwandeln in anderen Formulartypen sehr ungünstig. Beim Umwandeln von Angebot in Auftrag soll aber nur das Angebot geschlossen werden.