Revision 29795499
Von Sven Schöling vor etwa 17 Jahren hinzugefügt
| SL/IR.pm | ||
|---|---|---|
| 305 | 305 |
|
| 306 | 306 |
$h_item_unit->finish(); |
| 307 | 307 |
|
| 308 |
my $project_id = conv_i($form->{"globalproject_id"});
|
|
| 308 |
$project_id = conv_i($form->{"globalproject_id"});
|
|
| 309 | 309 |
|
| 310 | 310 |
$form->{datepaid} = $form->{invdate};
|
| 311 | 311 |
|
| ... | ... | |
| 637 | 637 |
$main::lxdebug->enter_sub(); |
| 638 | 638 |
|
| 639 | 639 |
my ($self, $myconfig, $form) = @_; |
| 640 |
|
|
| 640 |
my $query; |
|
| 641 | 641 |
# connect to database |
| 642 | 642 |
my $dbh = $form->dbconnect_noauto($myconfig); |
| 643 | 643 |
|
| 644 | 644 |
&reverse_invoice($dbh, $form); |
| 645 | 645 |
|
| 646 | 646 |
# delete zero entries |
| 647 |
my $query = qq|DELETE FROM acc_trans WHERE amount = 0|;
|
|
| 647 |
$query = qq|DELETE FROM acc_trans WHERE amount = 0|; |
|
| 648 | 648 |
do_query($form, $dbh, $query); |
| 649 | 649 |
|
| 650 | 650 |
# delete AP record |
| 651 |
my $query = qq|DELETE FROM ap WHERE id = ?|;
|
|
| 651 |
$query = qq|DELETE FROM ap WHERE id = ?|; |
|
| 652 | 652 |
do_query($form, $dbh, $query, conv_i($form->{id}));
|
| 653 | 653 |
|
| 654 | 654 |
my $rc = $dbh->commit; |
Auch abrufbar als: Unified diff
Verbesserungen am Tag Script.
Ausserdem Merge der Revisionen 5239 5259 5340 5341 5342 und 5343.