projekt kivitendo

use strict;

die("This script cannot be run from the command line.") unless ($main::form);

sub mydberror {

  my ($msg) = @_;

  die($dbup_locale->text("Database update error:") .

      "<br>$msg<br>" . $DBI::errstr);

}

sub do_query {

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

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

    mydberror($query) unless ($may_fail);

    $dbh->rollback();

    $dbh->begin_work();

  }

}

  do_query("DROP SCHEMA tax CASCADE;", 1);

  map({ do_query($_, 0); } @queries);

      "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 = $iconv->convert($copy_statements[$statement]);

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

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

return create_tables() && do_copy();