projekt kivitendo

use SL::DBUpgrade2::Base;

    $control->{charset} = 'UTF-8' if $file =~ m/\.pl$/;

  $dbh->begin_work;

  # setup dbup_ export vars & run script

  my %dbup_myconfig = map { ($_ => $::form->{$_}) } qw(dbname dbuser dbpasswd dbhost dbport dbconnect);

  my $result        = SL::DBUpgrade2::Base::execute_script(

    file_name => $filename,

    tag       => $version_or_control->{tag},

    dbh       => $dbh,

    locale    => $::locale,

    myconfig  => \%dbup_myconfig,

  );

    print $::form->parse_html_template("dbupgrade/error", { file  => $filename, error => $@ });

    $dbh->do("INSERT INTO " . $self->{schema} . "schema_info (tag, login) VALUES (" . $dbh->quote($version_or_control->{tag}) . ", " . $dbh->quote($::form->{login}) . ")");

package SL::DBUpgrade2::Base;

use strict;

use parent qw(Rose::Object);

use English qw(-no_match_vars);

use Rose::Object::MakeMethods::Generic (

  scalar => [ qw(dbh myconfig) ],

);

use SL::DBUtils;

sub execute_script {

  my (%params) = @_;

  my $file_name = delete $params{file_name};

  if (!eval { require $file_name }) {

    delete $INC{$file_name};

    die $EVAL_ERROR;

  }

  my $package =  delete $params{tag};

  $package    =~ s/[^a-zA-Z0-9_]+/_/g;

  $package    =  "SL::DBUpgrade2::${package}";

  $package->new(%params)->run;

}

sub db_error {

  my ($self, $msg) = @_;

  die $self->locale->text("Database update error:") . "<br>$msg<br>" . $DBI::errstr;

}

sub db_query {

  my ($self, $query, $may_fail) = @_;

  return if $self->dbh->do($query);

  $self->db_error($query) unless $may_fail;

  $self->dbh->rollback;

  $self->dbh->begin_work;

}

sub check_coa {

  my ($self, $wanted_coa) = @_;

  my ($have_coa)          = selectrow_query($::form, $self->dbh, q{ SELECT count(*) FROM defaults WHERE coa = ? }, $wanted_coa);

  return $have_coa;

}

sub is_coa_empty {

  my ($self) = @_;

  my $query = q{ SELECT count(*)

                 FROM ar, ap, gl, invoice, acc_trans, customer, vendor, parts

               };

  my ($empty) = selectrow_query($::form, $self->dbh, $query);

  return !$empty;

}

1;

__END__

=pod

=encoding utf8

=head1 NAME

SL::DBUpgrade2::Base - Base class for Perl-based database upgrade files

=head1 OVERVIEW

Database scripts written in Perl must be derived from this class and

provide a method called C<run>.

The functions in this base class offer functionality for the upgrade

scripts.

=head1 PROPERTIES

The following properties (which can be accessed with

C<$self-E<gt>property_name>) are available to the database upgrade

script:

=over 4

=item C<dbh>

The database handle; an Instance of L<DBI>. It is connected, and a

transaction has been started right before the script (the method

L</run>)) was executed.

=item C<myconfig>

The stripped-down version of the C<%::myconfig> hash: this hash

reference only contains the database connection parameters applying to

the current database.

=back

=head1 FUNCTIONS

=over 4

=item C<check_coa $coa_name>

Returns trueish if the database uses the chart of accounts named

C<$coa_name>.

=item C<db_error $message>

Outputs an error message C<$message> to the user and aborts execution.

=item C<db_query $query, $may_fail>

Executes an SQL query. What the method does if the query fails depends

on C<$may_fail>. If it is falsish then the method will simply die

outputting the error message via L</db_error>. If C<$may_fail> is

trueish then the current transaction will be rolled back, a new one

will be started

=item C<execute_script>

Executes a named database upgrade script. This function is not

supposed to be called from an upgrade script. Instead, the upgrade

manager L<SL::DBUpgrade2> uses it in order to execute the actual

database upgrade scripts.

=item C<is_coa_empty>

Returns trueish if no transactions have been recorded in the table

C<acc_trans> yet.

=item C<run>

This method is the entry point for the actual upgrade. Each upgrade

script must provide this method.

=back

=head1 BUGS

Nothing here yet.

=head1 AUTHOR

Moritz Bunkus E<lt>m.bunkus@linet-services.deE<gt>

=cut

package SL::DBUpgrade2::auth_schema_normalization_1;

use utf8;

use parent qw(SL::DBUpgrade2::Base);

  my ($self, $query) = @_;

  if ($self->dbh->do($query)) {

    $self->dbh->commit();

    $self->dbh->rollback();

sub run {

  my ($self) = @_;

  $self->dbh($::auth->dbconnect);

  $self->do_one($_) for @queries;

package SL::DBUpgrade2::SKR04_3804_addition;

use parent qw(SL::DBUpgrade2::Base);

sub run {

  my ($self) = @_;

  my ($kontenrahmen) = $self->dbh->selectrow_array("select coa from defaults");

  my ($anzahl_buchungen) = $self->dbh->selectrow_array("select count (*) from acc_trans where taxkey=13 and transdate >= '2007-01-01';");

    if ($::form->{bookings_exist} ) {

      return 1;

    }

    # Meldung anzeigen und auf Rückgabe warten

    print_past_booking_warning();

    return 2;

  }

  # es gibt keine Buchungen mit taxkey 13 nach 01.01.2007

  # prüfen ob Konto 3804 schon existiert

  my ($konto_existiert) = $self->dbh->selectrow_array("select count (*) from chart where accno = '3804'");

  if ( $konto_existiert ) {

    # 3804 existiert, wir gehen davon aus, daß der Benutzer das Konto schon selber angelegt hat und

    # ordnungsgemäß benutzt

    if ($::form->{account_exists} ) {

      print "Konto existiert, Upgrade überspringen\n";

      return 1;

    }

    # Meldung anzeigen und auf Rückgabe warten

    print_3804_already_exists();

    return 2;

  }

  my $insert_chart = <<SQL;

  $self->db_query($insert_chart);

  my $konto_anlegen = $self->dbh->prepare($insert_chart) || $self->db_error($insert_chart);

  # 13-1 (16%) korrigieren:

  my $edit_taxkey_13 = qq|UPDATE tax SET taxdescription = 'Steuerpflichtige EG-Lieferung zum vollen Steuersatz', rate = '0.16', chart_id = (select id FROM chart where accno = '3803'), taxnumber = 3803 WHERE taxkey = '13'|;

  $self->db_query($edit_taxkey_13);

  # Sicherstellen, daß 3803 die richtige Bezeichnung hat

  my $update_3803 = qq|update chart set description = 'Umsatzsteuer aus EG-Erwerb 16%' where accno = '3803'|;

  $self->db_query($update_3803);

  # Zweiter  Eintrag für taxkey 13 in key: 19%

  my $insert_taxkey_13_2 = qq|INSERT INTO tax ( taxkey, taxdescription, rate, chart_id, taxnumber ) VALUES ('13', 'Steuerpflichtige EG-Lieferung zum vollen Steuersatz', '0.19', (select id from chart where accno = '3804'), '3804')|;

  $self->db_query($insert_taxkey_13_2);

  # alle Konten finden, bei denen 3803 das Steuerautomatikkonto ist,

  # und dort den zweiten Eintrag ab 1.1.2007 für 19% einstellen

  my $sth_query  = $self->dbh->prepare(qq|select c.id from chart c join taxkeys t on (c.id = t.chart_id) where tax_id = (select id from tax where taxnumber = '3803')|);

  my $sth_insert = $self->dbh->prepare(<<SQL);

    INSERT INTO taxkeys ( taxkey_id, chart_id, tax_id, pos_ustva, startdate )

    VALUES              ( 13, ?, (select id from tax where taxkey = 13 and rate = '0.19'),

                          (SELECT pos_ustva FROM taxkeys WHERE tax_id = (SELECT id FROM tax WHERE taxnumber = '3803') AND pos_ustva > 0 LIMIT 1),

                         '01.01.2007' )

SQL

  $sth_query->execute;

  while (my $ref = $sth_query->fetchrow_hashref) {

    $sth_insert->execute($ref->{id});

  }

  $sth_query->finish;

  $sth_insert->finish;

} # end run

  print $::form->parse_html_template("dbupgrade/SKR04_3804_update");

}

  print $::form->parse_html_template("dbupgrade/SKR04_3804_already_exists");

}

1;

package SL::DBUpgrade2::USTVA_abstraction;

use strict;

use utf8;

use parent qw(SL::DBUpgrade2::Base);

  my ($self) = @_;

  $self->db_query("DROP SCHEMA tax CASCADE;", 1);

  map({ $self->db_query($_, 0); } @queries);

  my ($self) = @_;

      "1;Lieferungen und sonstige Leistungen;(einschließlich unentgeltlicher Wertabgaben)",

      "3;Ergänzende Angaben zu Umsätzen;",

     "1;1;received;Steuerfreie Umsätze mit Vorsteuerabzug;",

     "2;1;recieved;Steuerfreie Umsätze ohne Vorsteuerabzug;",

     "3;1;recieved;Steuerpflichtige Umsätze;(Lieferungen und sonstige Leistungen einschl. unentgeltlicher Wertabgaben)",

     "6;3;recieved;Umsätze, für die als Leistungsempfänger die Steuer nach § 13b Abs. 2 UStG geschuldet wird;",

     "7;3;paied;Abziehbare Vorsteuerbeträge;",

     "8;3;paied;Andere Steuerbeträge;",

     "1;41;1;Innergemeinschaftliche Lieferungen (§ 4 Nr. 1 Buchst. b UStG) an Abnehmer mit USt-IdNr.;0;0;19700101",

     "3;49;1;neuer Fahrzeuge außerhalb eines Unternehmens (§ 2a UStG);0;0;19700101",

     "4;43;1;Weitere steuerfreie Umsätze mit Vorsteuerabzug;0;0;19700101",

     "5;48;2;Umsätze nach § 4 Nr. 8 bis 28 UStG;0;0;19700101",

     "12;35;3;Umsätze, die anderen Steuersätzen unterliegen;0;0;19700101",

     "14;77;3;Lieferungen in das übrige Gemeinschaftsgebiet an Abnehmer mit USt-IdNr.;0;0;19700101",

     "15;76;3;Umsätze, für die eine Steuer nach § 24 UStG zu entrichten ist;0;0;19700101",

     "17;91;4;Erwerbe nach § 4b UStG;0;0;19700101",

     "24;95;5;zu anderen Steuersätzen;0;0;19700101",

     "28;42;66;Lieferungen des ersten Abnehmers bei innergemeinschaftlichen Dreiecksgeschäften (§ 25b Abs. 2 UStG);0;0;19700101",

     "29;60;66;Steuerpflichtige Umsätze im Sinne des § 13b Abs. 1 Satz 1 Nr. 1 bis 5 UStG, für die der Leistungsempfänger die Steuer schuldet;0;0;19700101",

     "30;45;66;Nicht steuerbare Umsätze (Leistungsort nicht im Inland);0;0;19700101",

     "31;52;6;Leistungen eines im Ausland ansässigen Unternehmers (§ 13b Abs. 1 Satz 1 Nr. 1 und 5 UStG);0;0;19700101",

     "33;73;6;Lieferungen sicherungsübereigneter Gegenstände und Umsätze, die unter das GrEStG fallen (§ 13b Abs. 1 Satz 1 Nr. 2 und 3 UStG);0;0;19700101",

     "35;84;6;Bauleistungen eines im Inland ansässigen Unternehmers (§ 13b Abs. 1 Satz 1 Nr. 4 UStG);0;0;19700101",

     "37;65;6;Steuer infolge Wechsels der Besteuerungsform sowie Nachsteuer auf versteuerte Anzahlungen u. ä. wegen Steuersatzänderung;;2;19700101",

     "38;66;7;Vorsteuerbeträge aus Rechnungen von anderen Unternehmern (§ 15 Abs. 1 Satz 1 Nr. 1 UStG), aus Leistungen im Sinne des § 13a Abs. 1 Nr. 6 UStG (§ 15 Abs. 1 Satz 1 Nr. 5 UStG) und aus innergemeinschaftlichen Dreiecksgeschäften (§ 25b Abs. 5 UStG);;2;19700101",

     "39;61;7;Vorsteuerbeträge aus dem innergemeinschaftlichen Erwerb von Gegenständen (§ 15 Abs. 1 Satz 1 Nr. 3 UStG);;2;19700101",

     "40;62;7;Entrichtete Einfuhrumsatzsteuer (§ 15 Abs. 1 Satz 1 Nr. 2 UStG);;2;19700101",

     "41;67;7;Vorsteuerbeträge aus Leistungen im Sinne des § 13b Abs. 1 UStG (§ 15 Abs. 1 Satz 1 Nr. 4 UStG);;2;19700101",

     "42;63;7;Vorsteuerbeträge, die nach allgemeinen Durchschnittssätzen berechnet sind (§§ 23 und 23a UStG);;2;19700101",

     "43;64;7;Berichtigung des Vorsteuerabzugs (§ 15a UStG);;2;19700101",

     "44;59;7;Vorsteuerabzug für innergemeinschaftliche Lieferungen neuer Fahrzeuge außerhalb eines Unternehmens (§ 2a UStG) sowie von Kleinunternehmern im Sinne des § 19 Abs. 1 UStG (§ 15 Abs. 4a UStG);;2;19700101",

     "45;69;8;in Rechnungen unrichtig oder unberechtigt ausgewiesene Steuerbeträge (§ 14c UStG) sowie Steuerbeträge, die nach § 4 Nr. 4a Satz 1 Buchst. a Satz 2, § 6a Abs. 4 Satz 2, § 17 Abs. 1 Satz 6 oder § 25b Abs. 2 UStG geschuldet werden;;2;19700101",

     "46;39;8;Anrechnung (Abzug) der festgesetzten Sondervorauszahlung für Dauerfristverlängerung (nur auszufüllen in der letzten Voranmeldung des Besteuerungszeitraums, in der Regel Dezember);;2;19700101",

    my $query = $copy_statements[$statement];

    my $sth   = $self->dbh->prepare($query) || $self->db_error($query);

      $sth->execute(split m/;/, $copy_data[$statement][$copy_line], -1) || $self->db_error($query);

sub run {

  my ($self) = @_;

  return $self->create_tables && $self->do_copy;

}

1;

package SL::DBUpgrade2::USTVA_at;

use utf8;

use parent qw(SL::DBUpgrade2::Base);

sub run {

  my ($self) = @_;

  if (!$self->check_coa('Austria')) {

    print qq|Nichts zu tun in diesem Kontenrahmen.|;

    return 1;

  if (!$self->is_coa_empty)  {

    print qq|Eine österreichische Datenbank in der bereits Buchungssätze enthalten sind, kann nicht aktualisiert werden.<br />

  print qq|Eine leere Datenbank mit Kontenrahmen Österreich vorgefunden. <br />

           Die Aktualisierungen werden eingespielt...<br />

           <b>Achtung: Dieses Update ist ungetestet und bedarf weiterer Konfiguration</b>|;

  return

       $self->clear_tables('tax.report_variables', 'tax.report_headings',

                           'tax.report_categorys', 'taxkeys',

                           'tax',                  'chart',

                           'buchungsgruppen')

    && $self->do_copy_tax_report_structure()

    && $self->do_insert_chart()

    && $self->do_insert_tax()

    && $self->do_insert_taxkeys()

    && $self->do_insert_buchungsgruppen()

      ;

  my ($self, @clear) = @_;

  map({ $self->db_query("DELETE FROM $_ ;", 0); } @clear);

  my ($self) = @_;

  map({ $self->db_query($_); } @queries);

      "1;000;0;a) Gesamtbetrag der Bemessungsgrundlage für Lieferungen und sonstige Leistungen (ohne den nachstehend angeführten Eigenverbrauch) einschließlich Anzahlungen (jeweils ohne Umsatzsteuer);2;1970-01-01",

      "2;001;0;zuzüglich Eigenverbrauch (§1 Abs. 1 Z 2, § 3 Abs. 2 und § 3a Abs. 1a);2;1970-01-01",

      "3;021;0;abzüglich Umsätze für die die Steuerschuld gemäß § 19 Abs. 1 zweiter Satz sowie gemäß § 19 Abs. 1a, Abs. 1b, Abs. 1c auf den Leistungsempfänger übergegangen ist.;2;1970-01-01",

      "4;011;0;a) §6 Abs. 1 Z 1 iVm § 7 (Ausfuhrlieferungen);2;1970-01-01",

      "5;012;0;b) §6 Abs. 1 Z 1 iVm § 8 (Lohnveredelungen);2;1970-01-01",

      "6;015;0;c) §6 Abs. 1 Z 2 bis 6 sowie § 23 Abs. 5 (Seeschifffahrt, Luftfahrt, grenzüberschreitende Personenbeförderung, Diplomaten, Reisevorleistungen im Drittlandsgebiet usw.);2;1970-01-01",

      "7;017;0;d) Art. 6 Abs. 1 (innergemeinschaftliche Lieferungen ohne die nachstehend gesondert anzuführenden Fahrzeuglieferungen);2;1970-01-01",

      "8;018;0;e) Art. 6 Abs. 1, sofern Lieferungen neuer Fahrzeuge an Abnehmer ohne UID-Nummer bzw. durch Fahrzeuglieferer gemäß Art. 2 erfolgen.;2;1970-01-01",

      "9;019;0;a) § 6 Abs. 1 Z 9 lit. a (Grundstücksumsätze);2;1970-01-01",

      "10;016;0;b) §6 Abs. 1 Z 27 (Kleinunternehmer);2;1970-01-01",

      "11;020;0;c) § 6 Abs. 1 Z ___ (übrige steuerfreie Umsätze ohne Vorsteuerabzug);2;1970-01-01",

      "14;029_links;0;10% ermäßigter Steuersatz;2;1970-01-01",

      "15;029_rechts;0;10% ermäßigter Steuersatz;2;1970-01-01",

      "16;025_links;0;12% für Weinumsätze durch landwirtschaftliche Betriebe;2;1970-01-01",

      "17;025_rechts;0;12% für Weinumsätze durch landwirtschaftliche Betriebe;2;1970-01-01",

      "18;035_links;0;16% für Jungholz und Mittelberg;2;1970-01-01",

      "19;035_rechts;0;16% für Jungholz und Mittelberg;2;1970-01-01",

      "20;052_links;0;10% Zusatzsteuer für pauschalierte land- und forstwirtschaftliche Betriebe;2;1970-01-01",

      "21;052_rechts;0;10% Zusatzsteuer für pauschalierte land- und forstwirtschaftliche Betriebe;2;1970-01-01",

      "22;038_links;0;8% Zusatzsteuer für pauschalierte land- und forstwirtschaftliche Betriebe;2;1970-01-01",

      "23;038_rechts;0;8% Zusatzsteuer für pauschalierte land- und forstwirtschaftliche Betriebe;2;1970-01-01",

      "24;056;0;Steuerschuld gemäß § 11 Abs. 12 und 14, § 16 Abs. 2 sowie gemäß Art. 7 Abs. 4;2;1970-01-01",

      "25;057;0;Steuerschuld gemäß § 19 Abs. 1 zweiter Satz, § 19 Abs. 1c sowie gemäß Art. 25 Abs. 5;2;1970-01-01",

      "26;048;0;Steuerschuld gemäß § 19 Abs. 1a (Bauleistungen);2;1970-01-01",

      "27;044;0;Steuerschuld gemäß § 19 Abs. 1b (Sicherungseigentum, Vorbehaltseigentum und Grundstücke im Zwangsversteigerungsverfahren);2;1970-01-01",

      "28;070;0;Gesamtbetrag der Bemessungsgrundlagen für innergemeinschaftliche Erwerbe;2;1970-01-01",

      "29;071;0;Davon Steuerfrei gemäß Art. 6 Abs 2;2;1970-01-01",

      "32;073_links;0;10% ermäßigter Steuersatz;2;1970-01-01",

      "33;073_rechts;0;10% ermäßigter Steuersatz;2;1970-01-01",

      "34;075_links;0;16% für Jungholz und Mittelberg;2;1970-01-01",

      "35;075_rechts;0;16% für Jungholz und Mittelberg;2;1970-01-01",

      "36;076;0;Erwerbe gemäß Art. 3 Abs. 8 zweiter Satz, die im Mitgliedstaat des Bestimmungslandes besteuert worden sind;2;1970-01-01",

      "37;077;0;Erwerbe gemäß Art. 3 Abs. 8 zweiter Satz, die gemäß Art. 25 Abs. 2 im Inland als besteuert gelten;2;1970-01-01",

      "38;060;0;Gesamtbetrag der Vorsteuern (ohne die nachstehend gesondert anzuführenden Beträge);2;1970-01-01",

      "39;061;0;Vorsteuern betreffend die entrichtete Einfuhrumsatzsteuer (§12 Abs. 1 Z 2 lit.a);2;1970-01-01",

      "40;083;0;Vorsteuern betreffend die am Abgabenkonto verbuchte Einfuhrumsatzsteuer (§12 Abs. 1 Z 2 lit.b);2;1970-01-01",

      "42;066;0;Vorsteuern betreffend der Steuerschuld gemäß § 19 Abs. 1c sowie gemäß Art. 25 Abs. 5;2;1970-01-01",

      "43;082;0;Vorsteuern betreffend der Steuerschuld gemäß § 19 Abs. 1a (Bauleistungen);2;1970-01-01",

      "44;087;0;Vorsteuern betreffend die Steuerschuld gemäß § 19 Abs. 1b (Sicherungseigentum, Vorbehaltseigentum und Grundstücke im Zwangsversteigerungsverfahren);2;1970-01-01",

      "45;064;0;Vorsteuern gemäß §12 Abs. 16 und Vorsteuern für innergemeinschaftliche Lieferungen neuer Fahrzeuge von Fahrzeuglieferanten gemäß Art. 2;2;1970-01-01",

      "46;062;0;Davon gemäß § 12 Abs. 3 iVm Abs. 4 und 5;2;1970-01-01",

      "47;063;0;Berichtigung gemäß § 12 Abs. 10 und 11;2;1970-01-01",

      "48;067;0;Berichtigung gemäß § 16;2;1970-01-01",

    my $query = $copy_statements[$statement];

    my $sth   = $self->dbh->prepare($query) || $self->db_error($query);

      $sth->execute(split m/;/, $copy_data[$statement][$copy_line], -1) || $self->db_error($query);

  my ($self) = @_;

      "INSERT INTO chart VALUES (1, '0000', 'AUFWENDUNGEN FÜR INGANGSETZEN UND ERWEITERN DES BETRIEBES', 'H', 'A', '', '00', NULL, NULL, NULL, NULL, NULL, false, '2006-01-28 18:22:52.276724', NULL, NULL, NULL);",

      "INSERT INTO chart VALUES (3, '0100', 'IMMATERIELLE VERMÖGENSGEGENSTÄNDE', 'H', 'A', '', '01', NULL, NULL, NULL, NULL, NULL, false, '2006-01-28 18:22:52.288542', NULL, NULL, NULL);",

      "INSERT INTO chart VALUES (5, '0200', 'GRUNDSTÜCKE', 'H', 'A', '', '02-03', NULL, NULL, NULL, NULL, NULL, false, '2006-01-28 18:22:52.294929', NULL, NULL, NULL);",

      "INSERT INTO chart VALUES (6, '0210', 'unbebaute Grundstücke', 'A', 'A', 'AP_amount', '020', NULL, NULL, NULL, NULL, NULL, false, '2006-01-28 18:22:52.297958', NULL, NULL, NULL);",

      "INSERT INTO chart VALUES (7, '0220', 'bebaute Grundstücke', 'A', 'A', 'AP_amount', '021', NULL, NULL, NULL, NULL, NULL, false, '2006-01-28 18:22:52.300987', NULL, NULL, NULL);",

      "INSERT INTO chart VALUES (8, '0229', 'kum. Abschreibung bebaute Grundstücke', 'A', 'A', '', '039', NULL, NULL, NULL, NULL, NULL, false, '2006-01-28 18:22:52.304114', NULL, NULL, NULL);",

      "INSERT INTO chart VALUES (15, '0600', 'BETRIEBS- UND GESCHÄFTSAUSSTATTUNG', 'H', 'A', '', '06', NULL, NULL, NULL, NULL, NULL, false, '2006-01-28 18:22:52.330691', NULL, NULL, NULL);",

      "INSERT INTO chart VALUES (16, '0620', 'Büroeinrichtungen', 'A', 'A', 'AP_amount', '066', NULL, NULL, NULL, NULL, NULL, false, '2006-01-28 18:22:52.33373', NULL, NULL, NULL);",

      "INSERT INTO chart VALUES (17, '0625', 'kum. Abschreibung Betriebs- und Geschäftsausstattung', 'A', 'A', '', '069', NULL, NULL, NULL, NULL, NULL, false, '2006-01-28 18:22:52.336939', NULL, NULL, NULL);",

      "INSERT INTO chart VALUES (23, '1120', 'Vorräte - Rohstoffe', 'A', 'A', 'IC', '110-119', NULL, NULL, NULL, NULL, NULL, false, '2006-01-28 18:22:52.357447', NULL, NULL, NULL);",

      "INSERT INTO chart VALUES (25, '1220', 'Vorräte - bezogene Teile', 'A', 'A', 'IC', '120-129', NULL, NULL, NULL, NULL, NULL, false, '2006-01-28 18:22:52.363627', NULL, NULL, NULL);",

      "INSERT INTO chart VALUES (30, '1420', 'Vorräte - unfertige Erzeugnisse', 'A', 'A', 'IC', '140-149', NULL, NULL, NULL, NULL, NULL, false, '2006-01-28 18:22:52.381463', NULL, NULL, NULL);",

      "INSERT INTO chart VALUES (34, '1540', 'Vorräte - Gruppe C', 'A', 'A', 'IC', '150-159', NULL, NULL, NULL, NULL, NULL, false, '2006-01-28 18:22:52.395426', NULL, NULL, NULL);",

      "INSERT INTO chart VALUES (47, '2620', 'Wertpapiere Umlaufvermögen', 'A', 'A', 'AP_amount', '26', NULL, NULL, NULL, NULL, NULL, false, '2006-01-28 18:22:52.441382', NULL, NULL, NULL);",

      "INSERT INTO chart VALUES (74, '4600', 'SONSTIGE ERLÖSE', 'H', 'I', '', '4', NULL, NULL, NULL, NULL, NULL, false, '2006-01-28 18:22:52.539718', NULL, NULL, NULL);",

      "INSERT INTO chart VALUES (92, '7020', 'geringwertige Wirtschaftsgüter', 'A', 'E', 'AP_amount', '701-708', NULL, NULL, NULL, NULL, NULL, false, '2006-01-28 18:22:52.601829', NULL, NULL, NULL);",

      "INSERT INTO chart VALUES (161, '7780', 'Beiträge zur Berufsvertretung', 'A', 'E', 'AP_amount', '', 0, NULL, NULL, 3, NULL, false, '2006-02-03 15:33:11.055578', NULL, NULL, NULL);",

      "INSERT INTO chart VALUES (112, '7700', 'VERSICHERUNGEN UND ÜBRIGE AUFWÄNDUNGEN', 'H', 'E', '', '', 0, NULL, NULL, NULL, NULL, false, '2006-01-28 18:22:52.674186', '2006-02-03 15:44:43.301845', NULL, NULL);",

      "INSERT INTO chart VALUES (114, '8000', 'FINANZERTRÄGE UND FINANZAUFWÄNDUNGEN', 'H', 'L', '', '', 0, NULL, NULL, NULL, NULL, false, '2006-01-28 18:22:52.680743', '2006-02-03 15:45:08.299546', NULL, NULL);",

      "INSERT INTO chart VALUES (33, '1530', 'Vorräte Gruppe B', 'A', 'A', 'IC', '', 0, NULL, NULL, NULL, NULL, false, '2006-01-28 18:22:52.392343', '2006-02-03 16:25:53.167131', NULL, NULL);",

      "INSERT INTO chart VALUES (121, '9200', 'KAPITALRÜCKLAGEN', 'H', 'Q', '', '9', NULL, NULL, NULL, NULL, NULL, false, '2006-01-28 18:22:52.703925', NULL, NULL, NULL);",

      "INSERT INTO chart VALUES (122, '9210', 'freie Rücklage', 'A', 'Q', '', '920-929', NULL, NULL, NULL, NULL, NULL, false, '2006-01-28 18:22:52.708819', NULL, NULL, NULL);",

      "INSERT INTO chart VALUES (126, '9400', 'RÜCKSTELLUNGEN', 'H', 'L', '', '3', NULL, NULL, NULL, NULL, NULL, false, '2006-01-28 18:22:52.723021', NULL, NULL, NULL);",

      "INSERT INTO chart VALUES (127, '9420', 'Abfertigungsrückstellung', 'A', 'L', '', '300', NULL, NULL, NULL, NULL, NULL, false, '2006-01-28 18:22:52.726006', NULL, NULL, NULL);",

      "INSERT INTO chart VALUES (128, '9430', 'Urlaubsrückstellung', 'A', 'L', '', '304-309', NULL, NULL, NULL, NULL, NULL, false, '2006-01-28 18:22:52.730698', NULL, NULL, NULL);",

      "INSERT INTO chart VALUES (9, '0300', 'BETRIEBS- UND GESCHÄFTSGEBÄUDE', 'H', 'A', '', '', 0, NULL, NULL, NULL, NULL, false, '2006-01-28 18:22:52.308885', '2006-02-02 09:31:17.849895', NULL, NULL);",

      "INSERT INTO chart VALUES (67, '4000', 'BETRIEBLICHE ERTRÄGE', 'H', 'I', '', '', 0, NULL, NULL, NULL, NULL, false, '2006-01-28 18:22:52.513926', '2006-02-02 10:05:21.278993', NULL, NULL);",

      "INSERT INTO chart VALUES (75, '4630', 'Erlöse aus Abgang vom Anlagevermögen', 'A', 'I', 'AR_amount:IC_income', '', 0, NULL, NULL, NULL, NULL, false, '2006-01-28 18:22:52.542817', '2006-02-02 10:09:41.959462', NULL, NULL);",

      "INSERT INTO chart VALUES (131, '4450', 'Erlösschmälerung durch Skontoaufwand', 'A', 'I', 'AR_amount', '', 0, NULL, NULL, NULL, NULL, false, '2006-01-28 18:22:52.740526', '2006-02-02 10:20:51.822294', NULL, NULL);",

      "INSERT INTO chart VALUES (144, '4640', 'Erträge aus Abgang vom Anlagevermögen', 'A', 'I', 'AR_amount:IC_income', '', 0, NULL, NULL, NULL, NULL, false, '2006-02-02 10:24:49.118289', '2006-02-02 10:25:34.716838', NULL, NULL);",

      "INSERT INTO chart VALUES (118, '9000', 'KAPITAL, UNVERSTEUERTE RÜCKLAGEN, ABSCHLUSS- UND EVIDENZKONTEN', 'H', 'Q', '', '', 0, NULL, NULL, NULL, NULL, false, '2006-01-28 18:22:52.694841', '2006-02-02 10:28:27.424046', NULL, NULL);",

      "INSERT INTO chart VALUES (109, '7390', 'Porto und Postgebühren', 'A', 'E', 'AP_amount:IC_expense', '', 0, NULL, NULL, NULL, NULL, false, '2006-01-28 18:22:52.661848', '2006-02-02 12:28:47.456197', NULL, NULL);",

      "INSERT INTO chart VALUES (110, '7680', 'Repräsentationsaufwand', 'A', 'E', '', '', 0, NULL, NULL, NULL, NULL, false, '2006-01-28 18:22:52.665034', '2006-02-02 12:35:16.950252', NULL, NULL);",

      "INSERT INTO chart VALUES (115, '8280', 'Bankzinsen und Gebühren', 'A', 'E', '', '', 0, NULL, NULL, NULL, NULL, false, '2006-01-28 18:22:52.683783', '2006-02-02 12:41:44.274229', NULL, NULL);",

      "INSERT INTO chart VALUES (117, '8110', 'Erträge aus Zinsen', 'A', 'I', '', '', 0, NULL, NULL, NULL, NULL, false, '2006-01-28 18:22:52.691802', '2006-02-02 12:42:41.520779', NULL, NULL);",

      "INSERT INTO chart VALUES (132, '8050', 'Erträge aus Wertpapieren', 'A', 'E', '', '', 0, NULL, NULL, NULL, NULL, false, '2006-01-28 18:22:52.743602', '2006-02-02 12:44:29.033245', NULL, NULL);",

      "INSERT INTO chart VALUES (104, '7610', 'Büromaterial', 'A', 'E', 'AP_amount', '', 9, NULL, 11, 3, NULL, false, '2006-01-28 18:22:52.644151', '2006-02-03 15:25:38.53287', NULL, NULL);",

      "INSERT INTO chart VALUES (116, '8010', 'Erträge aus Beteiligungen', 'A', 'I', '', '', 0, NULL, NULL, NULL, NULL, false, '2006-01-28 18:22:52.688643', '2006-02-02 12:47:19.930787', NULL, NULL);",

      "INSERT INTO chart VALUES (119, '9010', 'Kapital, Geschäftsanteile', 'A', 'Q', '', '', 0, NULL, NULL, NULL, NULL, false, '2006-01-28 18:22:52.69788', '2006-02-02 12:48:41.514201', NULL, NULL);",

      "INSERT INTO chart VALUES (32, '1520', 'Vorräte Gruppe A', 'A', 'A', 'IC', '', 0, NULL, NULL, NULL, NULL, false, '2006-01-28 18:22:52.389168', '2006-02-03 16:26:08.72507', NULL, NULL);",

      "INSERT INTO chart VALUES (59, '3550', 'Finanzamt Verrechnung Körperschaftssteuer', 'A', 'L', '', '', 0, NULL, NULL, NULL, NULL, false, '2006-01-28 18:22:52.483655', '2006-02-08 20:09:47.697565', NULL, NULL);",

      "INSERT INTO chart VALUES (150, '5640', 'Verbrauch von sonstigen Ölen und Schmierstoffen', 'A', 'E', 'AP_amount', '', 9, NULL, 4, 1, 19, false, '2006-02-02 12:07:52.512006', '2006-02-03 15:01:09.867763', NULL, NULL);",

      "INSERT INTO chart VALUES (130, '9810', 'Eröffnungsbilanz', 'A', 'L', '', '', 0, NULL, NULL, NULL, NULL, false, '2006-01-28 18:22:52.736825', '2006-02-02 10:37:49.001565', NULL, NULL);",

      "INSERT INTO chart VALUES (149, '5630', 'Verbrauch von Treib- und Schmierstoffen für Motorsägen', 'A', 'E', 'AP_amount', '', 9, NULL, 4, 1, 19, false, '2006-02-02 12:01:05.969406', '2006-02-03 15:00:30.512596', NULL, NULL);",

      "INSERT INTO chart VALUES (158, '5650', 'gasförmige Brennstoffe', 'A', 'E', 'AP_amount', '', 9, NULL, 4, 2, 12, false, '2006-02-03 15:02:36.649746', NULL, NULL, NULL);",

      "INSERT INTO chart VALUES (72, '4320', 'Erlöse Beratung', 'A', 'I', 'AR_amount:IC_sale:IC_income', '', 3, 51, 1, 1, 2, false, '2006-01-28 18:22:52.533226', '2006-02-04 23:05:45.241847', NULL, NULL);",

      "INSERT INTO chart VALUES (73, '4330', 'Erlöse Programmierung', 'A', 'I', 'AR_amount:IC_sale:IC_income', '', 3, 51, 1, 1, 1, false, '2006-01-28 18:22:52.536409', '2006-02-04 23:06:03.959353', NULL, NULL);",

      "INSERT INTO chart VALUES (69, '4030', 'Erlöse - Softwareverkauf', 'A', 'I', 'AR_amount:IC_sale', '', 2, 86, 1, 1, 1, false, '2006-01-28 18:22:52.521819', '2006-02-02 10:06:58.91888', NULL, NULL);",

      "INSERT INTO chart VALUES (70, '4040', 'Erlöse - Ersatzteilverkauf', 'A', 'I', 'AR_amount:IC_sale', '', 3, 51, 1, 1, 1, false, '2006-01-28 18:22:52.524987', '2006-02-02 10:07:34.327738', NULL, NULL);",

      "INSERT INTO chart VALUES (55, '3120', 'Kredite von Eigentümern', 'A', 'L', '', '', 0, NULL, NULL, NULL, NULL, false, '2006-01-28 18:22:52.471098', NULL, NULL, NULL);",

      "INSERT INTO chart VALUES (68, '4020', 'Erlöse - Hardwareverkauf', 'A', 'I', 'AR_amount:IC_sale', '', 2, 86, 1, 1, 1, false, '2006-01-28 18:22:52.51796', '2006-02-04 23:05:12.810823', NULL, NULL);",

      "insert into chart (accno,description,charttype,gifi_accno,category,link) values ('7632','Reise- und Repräsentationsaufwand','A','734-735','E','');",

      "insert into chart (accno,description,charttype,gifi_accno,category,link) values ('7634','Registrierungsgebühren','A','748-749','E','AP_amount');",

      "insert into chart (accno,description,charttype,gifi_accno,category,link) values ('8020','Bankzinsen und Gebühren','A','80-83','E','');",

    my $query = $copy_statements[$statement];

      $self->db_query($query, 0);

  my ($self) = @_;

    my $query = $copy_statements[$statement];

      $self->db_query($query, 0);

  my ($self) = @_;

    my $query = $copy_statements[$statement];

      $self->db_query($query, 0);

  my ($self) = @_;

      "INSERT INTO buchungsgruppen VALUES (256, 'Erlöse aus Dienstleistungen', 23, 72, 99, 72, 77, 72, 77, 72, 77, 3);",

      "INSERT INTO buchungsgruppen VALUES (254, 'Erlöse aus Warenlieferungen', 23, 68, 77, 72, 77, 72, 77, 72, 77, 2);",

      "INSERT INTO buchungsgruppen VALUES (255, 'Erlöse aus Dienstleistungen', 23, 72, 77, 72, 77, 72, 77, 72, 77, 1);",

    my $query = $copy_statements[$statement];

      $self->db_query($query, 0);

  return 1;

1;

package SL::DBUpgrade2::acc_trans_constraints;

use parent qw(SL::DBUpgrade2::Base);

sub run {

  my ($self) = @_;

  my ($no_chart_id) = $self->dbh->selectrow_array($query);

  my ($no_trans_id) = $self->dbh->selectrow_array($query);

  $::form->{no_chart_id}=$no_chart_id;

  $::form->{no_trans_id}=$no_trans_id;

    my $sth = $self->dbh->prepare($query);

    $sth->execute || $::form->dberror($query);

    $::form->{NO_CHART_ID} = [];

      push @{ $::form->{NO_CHART_ID} }, $ref;

    $sth = $self->dbh->prepare($query);

    $sth->execute || $::form->dberror($query);

    $::form->{NO_TRANS_ID} = [];

      push @{ $::form->{NO_TRANS_ID} }, $ref;

  $self->db_query($query);

  print $::form->parse_html_template("dbupgrade/acc_trans_constraints");

1;

package SL::DBUpgrade2::acc_trans_id_uniqueness;

use parent qw(SL::DBUpgrade2::Base);

use SL::DBUtils;

sub run {

  my ($self) = @_;

  my @entries = selectall_hashref_query($::form, $self->dbh, $query);

  $self->db_query($query, 0);

      $self->db_query($query, 0);

1;

package SL::DBUpgrade2::add_more_constraints_fibu_projekt_xplace3;

use utf8;

use parent qw(SL::DBUpgrade2::Base);

use SL::DBUtils;

sub run {

  my ($self) = @_;

  # die project_id in der acc_trans ist auch zwingend fremdschlüssel in project

  my $sth_all_groups = prepare_execute_query($::form, $self->dbh, $query);

      # Falls wir keine alte buggy Installation haben, ist es super die

  my $sth_all_groups = prepare_execute_query($::form, $self->dbh, $query);

      # Falls wir keine alte buggy Installation haben, ist es super die

    my $sth   = prepare_query($::form, $self->dbh, $query);

    do_statement($::form,$sth,$query);

  $self->dbh ->commit();