X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FAM.pm;h=8696cba0da19d48bde3c8627b2c0d37cfa91b3c6;hb=0965925ab25ba4484389669acce9dec9d66e657b;hp=91a334bde1c33f839ad5fcb2e0b63348b2899b63;hpb=be47ce7f0ee15e692ade53804c8b4682dc89d627;p=kivitendo-erp.git diff --git a/SL/AM.pm b/SL/AM.pm index 91a334bde..8696cba0d 100644 --- a/SL/AM.pm +++ b/SL/AM.pm @@ -180,7 +180,7 @@ sub save_account { my ($tax_id, $taxkey) = split(/--/, $form->{tax}); my $startdate = $form->{startdate} ? $form->{startdate} : "1970-01-01"; - if ($form->{id} && $form->{orphaned}) { + if ($form->{id}) { $query = qq|UPDATE chart SET accno = ?, description = ?, charttype = ?, gifi_accno = ?, category = ?, link = ?, @@ -506,7 +506,7 @@ sub business { # connect to database my $dbh = $form->dbconnect($myconfig); - my $query = qq|SELECT id, description, discount, customernumberinit, salesman + my $query = qq|SELECT id, description, discount, customernumberinit FROM business ORDER BY 2|; @@ -533,7 +533,7 @@ sub get_business { my $dbh = $form->dbconnect($myconfig); my $query = - qq|SELECT b.description, b.discount, b.customernumberinit, b.salesman + qq|SELECT b.description, b.discount, b.customernumberinit FROM business b WHERE b.id = ?|; my $sth = $dbh->prepare($query); @@ -559,20 +559,19 @@ sub save_business { my $dbh = $form->dbconnect($myconfig); my @values = ($form->{description}, $form->{discount}, - $form->{customernumberinit}, $form->{salesman} ? 't' : 'f'); + $form->{customernumberinit}); # id is the old record if ($form->{id}) { $query = qq|UPDATE business SET description = ?, discount = ?, - customernumberinit = ?, - salesman = ? + customernumberinit = ? WHERE id = ?|; push(@values, $form->{id}); } else { $query = qq|INSERT INTO business - (description, discount, customernumberinit, salesman) - VALUES (?, ?, ?, ?)|; + (description, discount, customernumberinit) + VALUES (?, ?, ?)|; } do_query($form, $dbh, $query, @values);