X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FAM.pm;h=af2c25f91e327ed1eedde8f7f378bc7195dc9343;hb=b254ba338a904bf6469425f07970ed0136d95744;hp=5645c4dd79337dbe43bc253ed7c4dc46bc0ddfab;hpb=5ac0b1b2cb0b120d0421acd6355a31e376885646;p=kivitendo-erp.git diff --git a/SL/AM.pm b/SL/AM.pm index 5645c4dd7..af2c25f91 100644 --- a/SL/AM.pm +++ b/SL/AM.pm @@ -213,11 +213,8 @@ sub save_account { qw(AR_amount AR_tax AR_paid AP_amount AP_tax AP_paid IC_sale IC_cogs IC_taxpart IC_income IC_expense IC_taxservice); } - if ($form->{AR_include_in_dropdown}) { - $form->{$form->{AR_include_in_dropdown}} = $form->{AR_include_in_dropdown}; - } - if ($form->{AP_include_in_dropdown}) { - $form->{$form->{AP_include_in_dropdown}} = $form->{AP_include_in_dropdown}; + for (qw(AR_include_in_dropdown AP_include_in_dropdown)) { + $form->{$form->{$_}} = $form->{$_} if $form->{$_}; } $form->{link} = ""; @@ -265,8 +262,8 @@ sub save_account { if (!$form->{id} || $form->{id} eq "") { $query = qq|SELECT nextval('id')|; ($form->{"id"}) = selectrow_query($form, $dbh, $query); - $query = qq|INSERT INTO chart (id, accno) VALUES (?, ?)|; - do_query($form, $dbh, $query, $form->{"id"}, $form->{"accno"}); + $query = qq|INSERT INTO chart (id, accno, link) VALUES (?, ?, ?)|; + do_query($form, $dbh, $query, $form->{"id"}, $form->{"accno"}, ''); } @values = (); @@ -475,11 +472,9 @@ sub delete_account { do_query($form, $dbh, $query, $form->{id}); } - foreach my $table (qw(partstax customertax vendortax tax)) { - $query = qq|DELETE FROM $table - WHERE chart_id = ?|; - do_query($form, $dbh, $query, $form->{id}); - } + $query = qq|DELETE FROM tax + WHERE chart_id = ?|; + do_query($form, $dbh, $query, $form->{id}); # delete chart of account record $query = qq|DELETE FROM chart @@ -1779,8 +1774,8 @@ sub get_tax { taxkey, taxdescription, round(rate * 100, 2) AS rate, - chart_id, - (id IN (SELECT tax_id + chart_id, + (id IN (SELECT tax_id FROM acc_trans)) AS tax_already_used FROM tax WHERE id = ? |;