summaryrefslogtreecommitdiff
path: root/LedgerSMB
diff options
context:
space:
mode:
Diffstat (limited to 'LedgerSMB')
-rw-r--r--LedgerSMB/IS.pm17
1 files changed, 16 insertions, 1 deletions
diff --git a/LedgerSMB/IS.pm b/LedgerSMB/IS.pm
index 8960d92a..8f804089 100644
--- a/LedgerSMB/IS.pm
+++ b/LedgerSMB/IS.pm
@@ -826,6 +826,10 @@ sub post_invoice {
%$form->{acc_trans} = ();
+ if ($form->{id}){
+ delete_invoice($self, $myconfig, $form);
+ }
+
( $null, $form->{employee_id} ) = split /--/, $form->{employee};
unless ( $form->{employee_id} ) {
( $form->{employee}, $form->{employee_id} ) = $form->get_employee($dbh);
@@ -1837,9 +1841,20 @@ sub delete_invoice {
$form->audittrail( $dbh, "", \%audittrail );
# delete AR record
- my $query = qq|DELETE FROM ar WHERE id = ?|;
+
+ my $query = qq|DELETE FROM invoice WHERE trans_id = ?|;
+ $sth = $dbh->prepare($query);
+ $sth->execute( $form->{id} ) || $form->dberror($query);
+ $sth->finish;
+ $query = qq|DELETE FROM acc_trans WHERE trans_id = ?|;
+ $sth = $dbh->prepare($query);
+ $sth->execute( $form->{id} ) || $form->dberror($query);
+ $sth->finish;
+
+ $query = qq|DELETE FROM ar WHERE id = ?|;
$sth = $dbh->prepare($query);
$sth->execute( $form->{id} ) || $form->dberror($query);
+ $sth->finish;
# delete spool files
$query = qq|