X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=sql%2FPg-upgrade2%2Fconvert_taxzone.pl;h=b1e1a0bb60eedde540db2215ee3f24c76f505dcf;hb=e822adb3f7c61a1148cd6f73be2bb302ab704e0f;hp=413d772de5c811dadb8718a1d0e99dda68490903;hpb=b989d7cfb4bd8de5c3e290b8df0519ad34d5dd0c;p=kivitendo-erp.git diff --git a/sql/Pg-upgrade2/convert_taxzone.pl b/sql/Pg-upgrade2/convert_taxzone.pl index 413d772de..b1e1a0bb6 100644 --- a/sql/Pg-upgrade2/convert_taxzone.pl +++ b/sql/Pg-upgrade2/convert_taxzone.pl @@ -39,17 +39,21 @@ SQL } $sth->finish; - my $taxzone_charts_update_query; - foreach my $taxzone ( @{$::form->{taxzones}} ) { - foreach my $buchungsgruppe ( @{$::form->{buchungsgruppen}} ) { - my $id = $taxzone->{id}; - my $income_accno_id = $buchungsgruppe->{"income_accno_id_$id"}; - my $expense_accno_id = $buchungsgruppe->{"expense_accno_id_$id"}; - # TODO: check if the variables have a value - $taxzone_charts_update_query .= "INSERT INTO taxzone_charts (taxzone_id, buchungsgruppen_id, income_accno_id, expense_accno_id) VALUES ('$taxzone->{id}', '$buchungsgruppe->{id}', $income_accno_id, $expense_accno_id);\n"; + # convert Buchungsgruppen to taxzone_charts if any exist + # the default swiss COA doesn't have any, for example + if ( scalar @{ $::form->{buchungsgruppen} } > 0 ) { + my $taxzone_charts_update_query; + foreach my $taxzone ( @{$::form->{taxzones}} ) { + foreach my $buchungsgruppe ( @{$::form->{buchungsgruppen}} ) { + my $id = $taxzone->{id}; + my $income_accno_id = $buchungsgruppe->{"income_accno_id_$id"}; + my $expense_accno_id = $buchungsgruppe->{"expense_accno_id_$id"}; + # TODO: check if the variables have a value + $taxzone_charts_update_query .= "INSERT INTO taxzone_charts (taxzone_id, buchungsgruppen_id, income_accno_id, expense_accno_id) VALUES ('$taxzone->{id}', '$buchungsgruppe->{id}', $income_accno_id, $expense_accno_id);\n"; + }; }; + $self->db_query($taxzone_charts_update_query) if $taxzone_charts_update_query; }; - $self->db_query($taxzone_charts_update_query); my $clean_buchungsgruppen_query = <