SL/USTVA.pm

   1 #=====================================================================
   2 # Lx-Office ERP
   3 # Copyright (c) 2004 by Udo Spallek, Aachen
   4 #
   5 #  Author: Udo Spallek
   6 #   Email: udono@gmx.net
   7 #     Web: http://www.lx-office.org
   8 #
   9 #
  10 # This program is free software; you can redistribute it and/or modify
  11 # it under the terms of the GNU General Public License as published by
  12 # the Free Software Foundation; either version 2 of the License, or
  13 # (at your option) any later version.
  14 #
  15 # This program is distributed in the hope that it will be useful,
  16 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 # GNU General Public License for more details.
  19 # You should have received a copy of the GNU General Public License
  20 # along with this program; if not, write to the Free Software
  21 # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  22 #======================================================================
  23 # Utilities for ustva
  24 #=====================================================================
  25
  26 package USTVA;
  27
  28 sub create_steuernummer {
  29   $main::lxdebug->enter_sub();
  30
  31   $part           = $form->{part};
  32   $patterncount   = $form->{patterncount};
  33   $delimiter      = $form->{delimiter};
  34   $elster_pattern = $form->{elster_pattern};
  35
  36   # rebuild steuernummer and elstersteuernummer
  37   # es gibt eine gespeicherte steuernummer $form->{steuernummer}
  38   # und die parts und delimiter
  39
  40   my $h = 0;
  41   my $i = 0;
  42
  43   $steuernummer_new       = $part;
  44   $elstersteuernummer_new = $elster_FFFF;
  45   $elstersteuernummer_new .= '0';
  46
  47   for ($h = 1; $h < $patterncount; $h++) {
  48     $steuernummer_new .= qq|$delimiter|;
  49     for ($i = 1; $i <= length($elster_pattern); $i++) {
  50       $steuernummer_new       .= $form->{"part_$h\_$i"};
  51       $elstersteuernummer_new .= $form->{"part_$h\_$i"};
  52     }
  53   }
  54   if ($form->{steuernummer} ne $steuernummer_new) {
  55     $form->{steuernummer}       = $steuernummer_new;
  56     $form->{elstersteuernummer} = $elstersteuernummer_new;
  57     $form->{steuernummer_new}   = $steuernummer_new;
  58   }
  59   $main::lxdebug->leave_sub();
  60   return ($steuernummer_new, $elstersteuernummer_new);
  61 }
  62
  63 sub steuernummer_input {
  64   $main::lxdebug->enter_sub();
  65
  66   my ($self, $elsterland, $elsterFFFF, $steuernummer) = @_;
  67
  68   my $steuernummer_input = '';
  69
  70   $elster_land  = $elsterland;
  71   $elster_FFFF  = $elsterFFFF;
  72   $steuernummer = '0000000000' if ($steuernummer eq '');
  73
  74   # $steuernummer formatieren (nur Zahlen) -> $stnr
  75   my $stnr = $steuernummer;
  76   $stnr =~ s/\D+//g;
  77
  78   #Pattern description Elstersteuernummer
  79   my %elster_STNRformat = (
  80       'Mecklenburg Vorpommern' => 'FFF/BBB/UUUUP',    # '/' 3
  81       'Hessen'                 => '0FF BBB UUUUP',    # ' ' 3
  82       'Nordrhein Westfalen'    => 'FFF/BBBB/UUUP',    # '/' 3
  83       'Schleswig Holstein'     => 'FF BBB UUUUP',     # ' ' 2
  84       'Berlin'                 => 'FF/BBB/UUUUP',     # '/' 3
  85       'Thüringen'              => 'FFF/BBB/UUUUP',    # '/' 3
  86       'Sachsen'                => 'FFF/BBB/UUUUP',    # '/' 3
  87       'Hamburg'                => 'FF/BBB/UUUUP',     # '/' 3
  88       'Baden Würtemberg'       => 'FF/BBB/UUUUP',     # '/' 2
  89       'Sachsen Anhalt'         => 'FFF/BBB/UUUUP',    # '/' 3
  90       'Saarland'               => 'FFF/BBB/UUUUP',    # '/' 3
  91       'Bremen'                 => 'FF BBB UUUUP',     # ' ' 3
  92       'Bayern'                 => 'FFF/BBB/UUUUP',    # '/' 3
  93       'Rheinland Pfalz'        => 'FF/BBB/UUUU/P',    # '/' 4
  94       'Niedersachsen'          => 'FF/BBB/UUUUP',     # '/' 3
  95       'Brandenburg'            => 'FFF/BBB/UUUUP',    # '/' 3
  96   );
  97
  98   #split the pattern
  99   my $elster_pattern = $elster_STNRformat{$elster_land};
 100   my @elster_pattern = split(' ', $elster_pattern);
 101   my $delimiter      = '&nbsp;';
 102   my $patterncount   = @elster_pattern;
 103   if ($patterncount < 2) {
 104     @elster_pattern = ();
 105     @elster_pattern = split('/', $elster_pattern);
 106     $delimiter      = '/';
 107     $patterncount   = @elster_pattern;
 108   }
 109
 110   # no we have an array of patternparts and a delimiter
 111   # create the first automated and fixed part and delimiter
 112
 113   $steuernummer_input .= qq|<b><font size="+1">|;
 114   my $part = '';
 115 SWITCH: {
 116     $elster_pattern[0] eq 'FFF' && do {
 117       $part = substr($elster_FFFF, 1, 4);
 118       $steuernummer_input .= qq|$part|;
 119       last SWITCH;
 120     };
 121     $elster_pattern[0] eq '0FF' && do {
 122       $part = '0' . substr($elster_FFFF, 2, 4);
 123       $steuernummer_input .= qq|$part|;
 124       last SWITCH;
 125     };
 126     $elster_pattern[0] eq 'FF' && do {
 127       $part = substr($elster_FFFF, 2, 4);
 128       $steuernummer_input .= qq|$part|;
 129       last SWITCH;
 130     };
 131     1 == 1 && do {
 132       $steuernummer_input .= qq|Fehler!|;
 133       last SWITCH;
 134     };
 135   }
 136
 137   #now the rest of the Steuernummer ...
 138   $steuernummer_input .= qq|</b></font>|;
 139   $steuernummer_input .= qq|\n
 140            <input type=hidden name="elster_pattern" value="$elster_pattern">
 141            <input type=hidden name="patterncount" value="$patterncount">
 142            <input type=hidden name="patternlength" value="$patterncount">
 143            <input type=hidden name="delimiter" value="$delimiter">
 144            <input type=hidden name="part" value="$part">
 145   |;
 146
 147   my $k = 0;
 148
 149   for (my $h = 1; $h < $patterncount; $h++) {
 150     $steuernummer_input .= qq|&nbsp;$delimiter&nbsp;\n|;
 151     for (my $i = 1; $i <= length($elster_pattern[$h]); $i++) {
 152       $steuernummer_input .= qq|<select name="part_$h\_$i">\n|;
 153
 154       for (my $j = 0; $j <= 9; $j++) {
 155         $steuernummer_input .= qq|      <option value="$j"|;
 156         if ($steuernummer ne '') {
 157           if ($j eq substr($stnr, length($part) + $k, 1)) {
 158             $steuernummer_input .= qq| selected|;
 159           }
 160         }
 161         $steuernummer_input .= qq|>$j</option>\n|;
 162       }
 163       $k++;
 164       $steuernummer_input .= qq|</select>\n|;
 165     }
 166   }
 167
 168   $main::lxdebug->leave_sub();
 169
 170   return $steuernummer_input;
 171 }
 172
 173 sub fa_auswahl {
 174   $main::lxdebug->enter_sub();
 175
 176 #  use SL::Form;
 177
 178   # Referenz wird übergeben, hash of hash wird nicht
 179   # in neues  Hash kopiert, sondern direkt über die Referenz verändert
 180   # Prototyp für diese Konstruktion
 181
 182   my ($self, $land, $elsterFFFF, $elster_init) = @_;
 183
 184   my $terminal = '';
 185   my $FFFF     = $elsterFFFF;
 186   my $ffff     = '';
 187   my $checked  = '';
 188   $checked = 'checked' if ($elsterFFFF eq '' and $land eq '');
 189
 190   #if ($ENV{HTTP_USER_AGENT} =~ /(mozilla|opera|w3m)/i){
 191   #$terminal='mozilla';
 192   #} elsif ($ENV{HTTP_USER_AGENT} =~ /(links|lynx)/i){
 193   #$terminal = 'lynx';
 194   #}
 195
 196   #if ( $terminal eq 'mozilla' or $terminal eq 'js' ) {
 197   my $fa_auswahl = qq|
 198         <script language="Javascript">
 199         function update_auswahl()
 200         {
 201                 var elsterBLAuswahl = document.verzeichnis.elsterland_new;
 202                 var elsterFAAuswahl = document.verzeichnis.elsterFFFF_new;
 203
 204                 elsterFAAuswahl.options.length = 0; // dropdown aufräumen
 205                 |;
 206
 207   foreach $elster_land (sort keys %$elster_init) {
 208     $fa_auswahl .= qq|
 209                if (elsterBLAuswahl.options[elsterBLAuswahl.selectedIndex].
 210                value == "$elster_land")
 211                {
 212                |;
 213     my $j              = 0;
 214     my %elster_land_fa = ();
 215     $FFFF = '';
 216     for $FFFF (keys %{ $elster_init->{$elster_land} }) {
 217       $elster_land_fa{$FFFF} = $elster_init->{$elster_land}->{$FFFF}->[0];
 218     }
 219     foreach $ffff (sort { $elster_land_fa{$a} cmp $elster_land_fa{$b} }
 220                    keys(%elster_land_fa)
 221       ) {
 222       $fa_auswahl .= qq|
 223                    elsterFAAuswahl.options[$j] = new Option("$elster_land_fa{$ffff} ($ffff)","$ffff");|;
 224       $j++;
 225     }
 226     $fa_auswahl .= qq|
 227                }|;
 228   }
 229   $fa_auswahl .= qq|
 230         }
 231         </script>
 232
 233         <table width="100%">
 234           <tr>
 235             <td>
 236                Bundesland
 237             </td>
 238             <td>
 239               <select size="1" name="elsterland_new" onchange="update_auswahl()">|;
 240   if ($land eq '') {
 241     $fa_auswahl .= qq|<option value="Auswahl" $checked>hier auswählen...</option>\n|;
 242   }
 243   foreach $elster_land (sort keys %$elster_init) {
 244     $fa_auswahl .= qq|
 245                   <option value="$elster_land"|;
 246     if ($elster_land eq $land and $checked eq '') {
 247       $fa_auswahl .= qq| selected|;
 248     }
 249     $fa_auswahl .= qq|>$elster_land</option>
 250              |;
 251   }
 252   $fa_auswahl .= qq|
 253             </td>
 254           </tr>
 255           |;
 256
 257   my $elster_land = '';
 258   $elster_land = ($land ne '') ? $land : '';
 259   %elster_land_fa = ();
 260   for $FFFF (keys %{ $elster_init->{$elster_land} }) {
 261     $elster_land_fa{$FFFF} = $elster_init->{$elster_land}->{$FFFF}->[0];
 262   }
 263
 264   $fa_auswahl .= qq|
 265            <tr>
 266               <td>Finanzamt
 267               </td>
 268               <td>
 269                  <select size="1" name="elsterFFFF_new">|;
 270   if ($elsterFFFF eq '') {
 271     $fa_auswahl .= qq|<option value="Auswahl" $checked>hier auswählen...</option>|;
 272   } else {
 273     foreach $ffff (sort { $elster_land_fa{$a} cmp $elster_land_fa{$b} }
 274                    keys(%elster_land_fa)
 275       ) {
 276
 277       $fa_auswahl .= qq|
 278                         <option value="$ffff"|;
 279       if ($ffff eq $elsterFFFF and $checked eq '') {
 280         $fa_auswahl .= qq| selected|;
 281       }
 282       $fa_auswahl .= qq|>$elster_land_fa{$ffff} ($ffff)</option>|;
 283     }
 284   }
 285   $fa_auswahl .= qq|
 286                  </td>
 287               </tr>
 288             </table>
 289             </select>|;
 290
 291   $main::lxdebug->leave_sub();
 292   return $fa_auswahl;
 293 }
 294
 295 sub info {
 296   $main::lxdebug->enter_sub();
 297
 298   my $msg = $_[0];
 299
 300   if ($ENV{HTTP_USER_AGENT}) {
 301     $msg =~ s/\n/<br>/g;
 302
 303     print qq|<body><h2 class=info>Hinweis</h2>
 304
 305     <p><b>$msg</b>
 306     <br>
 307     <br>
 308     <hr>
 309     <input type=button value="zurück" onClick="history.go(-1)">
 310     </body>
 311     |;
 312
 313     exit;
 314
 315   } else {
 316
 317     if ($form->{error_function}) {
 318       &{ $form->{error_function} }($msg);
 319     } else {
 320       die "Hinweis: $msg\n";
 321     }
 322   }
 323
 324   $main::lxdebug->leave_sub();
 325 }
 326
 327 sub stichtag {
 328   $main::lxdebug->enter_sub();
 329
 330   # noch nicht fertig
 331   # soll mal eine Erinnerungsfunktion für USTVA Abgaben werden, die automatisch
 332   # den Termin der nächsten USTVA anzeigt.
 333   #
 334   #
 335   my ($today, $FA_dauerfrist, $FA_voranmeld) = @_;
 336
 337   #$today zerlegen:
 338
 339   #$today =today * 1;
 340   $today =~ /(\d\d\d\d)(\d\d)(\d\d)/;
 341   $year     = $1;
 342   $month    = $2;
 343   $day      = $3;
 344   $yy       = $year;
 345   $mm       = $month;
 346   $yymmdd   = "$year$month$day" * 1;
 347   $mmdd     = "$month$day" * 1;
 348   $stichtag = '';
 349
 350   #$tage_bis = '1234';
 351   #$ical = '...vcal format';
 352
 353   #if ($FA_voranmeld eq 'month'){
 354
 355   %liste = ("0110" => 'December',
 356             "0210" => 'January',
 357             "0310" => 'February',
 358             "0410" => 'March',
 359             "0510" => 'April',
 360             "0610" => 'May',
 361             "0710" => 'June',
 362             "0810" => 'July',
 363             "0910" => 'August',
 364             "1010" => 'September',
 365             "1110" => 'October',
 366             "1210" => 'November');
 367
 368   #$mm += $dauerfrist
 369   #$month *= 1;
 370   $month += 1 if ($day > 10);
 371   $month    = sprintf("%02d", $month);
 372   $stichtag = $year . $month . "10";
 373   $ust_va   = $month . "10";
 374
 375   foreach $date (%liste) {
 376     $ust_va = $liste{$date} if ($date eq $stichtag);
 377   }
 378
 379   #} elsif ($FA_voranmeld eq 'quarter'){
 380   #1;
 381
 382   #}
 383
 384   #@stichtag = ('10.04.2004', '10.05.2004');
 385
 386   #@liste = ['0110', '0210', '0310', '0410', '0510', '0610', '0710', '0810', '0910',
 387   #          '1010', '1110', '1210', ];
 388   #
 389   #foreach $key (@liste){
 390   #  #if ($ddmm < ('0110' * 1));
 391   #  if ($ddmm ){}
 392   #  $stichtag = $liste[$key - 1] if ($ddmm > $key);
 393   #
 394   #}
 395   #
 396   #$stichtag =~ /([\d]\d)(\d\d)$/
 397   #$stichtag = "$1.$2.$yy"
 398   #$stichtag=$1;
 399   $main::lxdebug->leave_sub();
 400   return ($stichtag, $description, $tage_bis, $ical);
 401 }
 402
 403 sub query_finanzamt {
 404   $main::lxdebug->enter_sub();
 405
 406   my ($self, $myconfig, $form) = @_;
 407
 408   my $dbh = $form->dbconnect($myconfig) or $self->error(DBI->errstr);
 409
 410   #Test, if table finanzamt exist
 411   my $table    = 'finanzamt';
 412   my $filename = "sql/$table.sql";
 413
 414   my $tst = $dbh->prepare("SELECT * FROM $table");
 415   $tst->execute;
 416   if ($DBI::err) {
 417
 418     #There is no table, read the table from sql/finanzamt.sql
 419     print qq|<p>Bitte warten, Tabelle $table wird einmalig in Datenbank:
 420     $myconfig->{dbname} als Benutzer: $myconfig->{dbuser} hinzugefügt...</p>|;
 421     process_query($form, $dbh, $filename) || $self->error(DBI->errstr);
 422
 423     #execute second last call
 424     my $dbh = $form->dbconnect($myconfig) or $self->error(DBI->errstr);
 425     $dbh->disconnect();
 426   }
 427   $tst->finish();
 428
 429   #$dbh->disconnect();
 430
 431   my @vars = (
 432     'FA_Land_Nr',             #  0
 433     'FA_BUFA_Nr',             #  1
 434                               #'FA_Verteiler',                          #  2
 435     'FA_Name',                #  3
 436     'FA_Strasse',             #  4
 437     'FA_PLZ',                 #  5
 438     'FA_Ort',                 #  6
 439     'FA_Telefon',             #  7
 440     'FA_Fax',                 #  8
 441     'FA_PLZ_Grosskunden',     #  9
 442     'FA_PLZ_Postfach',        # 10
 443     'FA_Postfach',            # 11
 444     'FA_BLZ_1',               # 12
 445     'FA_Kontonummer_1',       # 13
 446     'FA_Bankbezeichnung_1',   # 14
 447                               #'FA_BankIBAN_1',                         # 15
 448                               #'FA_BankBIC_1',                          # 16
 449                               #'FA_BankInhaber_BUFA_Nr_1',                      # 17
 450     'FA_BLZ_2',               # 18
 451     'FA_Kontonummer_2',       # 19
 452     'FA_Bankbezeichnung_2',   # 20
 453                               #'FA_BankIBAN_2',                         # 21
 454                               #'FA_BankBIC_2',                          # 22
 455                               #'FA_BankInhaber_BUFA_Nr_2',                      # 23
 456     'FA_Oeffnungszeiten',     # 24
 457     'FA_Email',               # 25
 458     'FA_Internet'             # 26
 459                               #'FA_zustaendige_Hauptstelle_BUFA_Nr',            # 27
 460                               #'FA_zustaendige_vorgesetzte_Finanzbehoerde'      # 28
 461   );
 462
 463   my $field = join(', ', @vars);
 464
 465   my $query = "SELECT $field FROM finanzamt ORDER BY FA_Land_nr";
 466   my $sth = $dbh->prepare($query) or $self->error($dbh->errstr);
 467   $sth->execute || $form->dberror($query);
 468   my $array_ref = $sth->fetchall_arrayref();
 469   my $land      = '';
 470   foreach my $row (@$array_ref) {
 471     my $FA_finanzamt = $row;
 472     $land = 'Schleswig Holstein'     if (@$FA_finanzamt[0] eq '1');
 473     $land = 'Hamburg'                if (@$FA_finanzamt[0] eq '2');
 474     $land = 'Niedersachsen'          if (@$FA_finanzamt[0] eq '3');
 475     $land = 'Bremen'                 if (@$FA_finanzamt[0] eq '4');
 476     $land = 'Nordrhein Westfalen'    if (@$FA_finanzamt[0] eq '5');
 477     $land = 'Hessen'                 if (@$FA_finanzamt[0] eq '6');
 478     $land = 'Rheinland Pfalz'        if (@$FA_finanzamt[0] eq '7');
 479     $land = 'Baden Würtemberg'       if (@$FA_finanzamt[0] eq '8');
 480     $land = 'Bayern'                 if (@$FA_finanzamt[0] eq '9');
 481     $land = 'Saarland'               if (@$FA_finanzamt[0] eq '10');
 482     $land = 'Berlin'                 if (@$FA_finanzamt[0] eq '11');
 483     $land = 'Brandenburg'            if (@$FA_finanzamt[0] eq '12');
 484     $land = 'Mecklenburg Vorpommern' if (@$FA_finanzamt[0] eq '13');
 485     $land = 'Sachsen'                if (@$FA_finanzamt[0] eq '14');
 486     $land = 'Sachsen Anhalt'         if (@$FA_finanzamt[0] eq '15');
 487     $land = 'Thüringen'              if (@$FA_finanzamt[0] eq '16');
 488
 489     my $ffff = @$FA_finanzamt[1];
 490
 491     my $rec = {};
 492     $rec->{$land} = $ffff;
 493
 494     shift @$row;
 495     shift @$row;
 496
 497     $finanzamt{$land}{$ffff} = [@$FA_finanzamt];
 498   }
 499
 500   $sth->finish();
 501   $dbh->disconnect();
 502
 503   $main::lxdebug->leave_sub();
 504
 505   return \%finanzamt;
 506 }
 507
 508 sub process_query {
 509   $main::lxdebug->enter_sub();
 510
 511   # Copyright D. Simander -> SL::Form under Gnu GPL.
 512   my ($form, $dbh, $filename) = @_;
 513
 514   #  return unless (-f $filename);
 515
 516   open(FH, "$filename") or $form->error("$filename : $!\n");
 517   my $query = "";
 518   my $sth;
 519   my @quote_chars;
 520
 521   while (<FH>) {
 522
 523     # Remove DOS and Unix style line endings.
 524     s/[\r\n]//g;
 525
 526     # don't add comments or empty lines
 527     next if /^(--.*|\s+)$/;
 528
 529     for (my $i = 0; $i < length($_); $i++) {
 530       my $char = substr($_, $i, 1);
 531
 532       # Are we inside a string?
 533       if (@quote_chars) {
 534         if ($char eq $quote_chars[-1]) {
 535           pop(@quote_chars);
 536         }
 537         $query .= $char;
 538
 539       } else {
 540         if (($char eq "'") || ($char eq "\"")) {
 541           push(@quote_chars, $char);
 542
 543         } elsif ($char eq ";") {
 544
 545           # Query is complete. Send it.
 546
 547           $sth = $dbh->prepare($query);
 548           $sth->execute || $form->dberror($query);
 549           $sth->finish;
 550
 551           $char  = "";
 552           $query = "";
 553         }
 554
 555         $query .= $char;
 556       }
 557     }
 558   }
 559
 560   close FH;
 561
 562   $main::lxdebug->leave_sub();
 563 }
 564
 565 sub ustva {
 566   $main::lxdebug->enter_sub();
 567
 568   my ($self, $myconfig, $form) = @_;
 569
 570   # connect to database
 571   my $dbh = $form->dbconnect($myconfig);
 572
 573   my $last_period     = 0;
 574   my $category        = "pos_ustva";
 575   my @category_cent = qw(
 576      511  861  36   80   971  931  98   96   53   74
 577      85   65   66   61   62   67   63   64   59   69
 578      39   83   811  891  Z43  Z45  Z53  Z62  Z65  Z67
 579   );
 580
 581   my @category_euro = qw(
 582      41 44 49 43 48 51
 583      86 35 77 76 91 97
 584      93 95 94 42 60 45
 585      52 73 84 81 89
 586   );
 587
 588   $form->{decimalplaces} *= 1;
 589
 590   foreach $item (@category_cent) {
 591     $form->{"$item"} = 0;
 592   }
 593   foreach $item (@category_euro) {
 594     $form->{"$item"} = 0;
 595   }
 596
 597   $form->{coa} = coa_get($dbh);
 598   $main::lxdebug->message(LXDebug::DEBUG2, "COA: $form->{coa}");
 599
 600   &get_accounts_ustva($dbh, $last_period, $form->{fromdate}, $form->{todate},
 601                       $form, $category);
 602
 603   ###########################################
 604   #
 605   # Nationspecific Modfications
 606   #
 607   ###########################################
 608
 609   # Germany
 610
 611   if ( $form->{coa} eq 'Germany-DATEV-SKR03EU' or $form->{coa} eq 'Germany-DATEV-SKR04EU'){
 612
 613     # 16%/19% Umstellung
 614     # Umordnen der Kennziffern
 615     if ( $form->{year} < 2007) {
 616       $form->{35} += $form->{81};
 617       $form->{36} += $form->{811};
 618       $form->{95} += $form->{89};
 619       $form->{98} += $form->{891};
 620       map { delete $form->{$_} } qw(81 811 89 891);
 621     } else {
 622       $form->{35} += $form->{51};
 623       $form->{36} += $form->{511};
 624       $form->{95} += $form->{97};
 625       $form->{98} += $form->{971};
 626       map { delete $form->{$_} } qw(51 511 97 971);
 627     }
 628
 629   }
 630
 631
 632   # Fixme: Wird auch noch für Oesterreich gebraucht,
 633   # weil kein eigenes Ausgabeformular
 634   # sotte aber aus der allgeméinen Steuerberechnung verschwinden
 635   #
 636   # Berechnung der USTVA Formularfelder laut Bogen 207
 637   #
 638
 639   $form->{"51r"} = $form->{"511"};
 640   $form->{"86r"} = $form->{"861"};
 641   $form->{"97r"} = $form->{"971"};
 642   $form->{"93r"} = $form->{"931"};
 643
 644   $form->{"Z43"} = $form->{"511"}     + $form->{"811"} + $form->{"861"}
 645                      + $form->{"36"}  + $form->{"80"}  + $form->{"971"}
 646                      + $form->{"891"} + $form->{"931"} + $form->{"96"}
 647                      + $form->{"98"};
 648
 649   $form->{"Z45"} = $form->{"Z43"};
 650
 651   $form->{"Z53"} = $form->{"Z45"}     + $form->{"53"}  + $form->{"74"}
 652                      + $form->{"85"}  + $form->{"65"};
 653
 654   $form->{"Z62"} = $form->{"Z43"}     - $form->{"66"}  - $form->{"61"}
 655                      - $form->{"62"}  - $form->{"67"}  - $form->{"63"}
 656                      - $form->{"64"}  - $form->{"59"};
 657
 658   $form->{"Z65"} = $form->{"Z62"}     - $form->{"69"};
 659   $form->{"83"}  = $form->{"Z65"}     - $form->{"39"};
 660
 661   $dbh->disconnect;
 662
 663   $main::lxdebug->leave_sub();
 664 }
 665
 666 sub coa_get {
 667
 668   my ($dbh) = @_;
 669
 670   my $query= qq|SELECT coa FROM defaults|;
 671
 672   my $sth = $dbh->prepare($query);
 673
 674   $sth->execute || $form->dberror($query);
 675
 676   ($ref) = $sth->fetchrow_array;
 677
 678   return $ref;
 679
 680 };
 681
 682 sub get_accounts_ustva {
 683   $main::lxdebug->enter_sub();
 684
 685   my ($dbh, $last_period, $fromdate, $todate, $form, $category) = @_;
 686
 687   my ($null, $department_id) = split /--/, $form->{department};
 688
 689   my $query;
 690   my $dpt_where;
 691   my $dpt_join;
 692   my $project;
 693   my $where    = "";
 694   my $glwhere  = "";
 695   my $subwhere = "";
 696   my $ARwhere  = "";
 697   my $APwhere  = '';
 698   my $arwhere  = "";
 699   my $item;
 700
 701     my $gltaxkey_where = "(tk.pos_ustva>=59 AND tk.pos_ustva<=66)";
 702
 703   if ($fromdate) {
 704     if ($form->{method} eq 'cash') {
 705       $subwhere .= " AND transdate >= '$fromdate'";
 706       $glwhere = " AND ac.transdate >= '$fromdate'";
 707       $ARwhere .= " AND acc.transdate >= '$fromdate'";
 708     }
 709     $APwhere .= " AND AP.transdate >= '$fromdate'";
 710     $where .= " AND ac.transdate >= '$fromdate'";
 711   }
 712
 713   if ($todate) {
 714     $where    .= " AND ac.transdate <= '$todate'";
 715     $ARwhere  .= " AND acc.transdate <= '$todate'";
 716   }
 717
 718   if ($department_id) {
 719     $dpt_join = qq|
 720                JOIN department t ON (a.department_id = t.id)
 721                   |;
 722     $dpt_where = qq|
 723                AND t.id = $department_id
 724                    |;
 725   }
 726
 727   if ($form->{project_id}) {
 728     $project = qq|
 729                  AND ac.project_id = $form->{project_id}
 730                  |;
 731   }
 732   ############################################
 733   # Method eq 'cash' = IST Versteuerung
 734   ############################################
 735   # Betrifft nur die eingenommene Umsatzsteuer
 736   #
 737   ############################################
 738
 739   if ($form->{method} eq 'cash') {
 740
 741     $query = qq|
 742        SELECT
 743          -- USTVA IST-Versteuerung
 744          --
 745          -- Alle tatsaechlichen _Zahlungseingaenge_
 746          -- im Voranmeldezeitraum erfassen
 747          -- (Teilzahlungen werden prozentual auf verschiedene Steuern aufgeteilt)
 748          SUM( ac.amount *
 749             -- Bezahlt / Rechnungssumme
 750            (
 751              SELECT SUM(acc.amount)
 752              FROM acc_trans acc
 753              INNER JOIN chart c ON (acc.chart_id   =   c.id
 754                                     AND c.link   like  '%AR_paid%')
 755              WHERE
 756               1=1
 757               $ARwhere
 758               AND acc.trans_id = ac.trans_id
 759               )
 760            /
 761            (
 762             SELECT amount FROM ar WHERE id = ac.trans_id
 763            )
 764          ) AS amount,
 765          tk.pos_ustva
 766        FROM acc_trans ac
 767        LEFT JOIN chart c ON (c.id  = ac.chart_id)
 768        LEFT JOIN ar      ON (ar.id = ac.trans_id)
 769        LEFT JOIN taxkeys tk ON (
 770          tk.id = (
 771            SELECT id FROM taxkeys
 772            WHERE chart_id   = ac.chart_id
 773              -- AND taxkey_id  = ac.taxkey
 774              AND startdate <= COALESCE(ar.deliverydate,ar.transdate)
 775            ORDER BY startdate DESC LIMIT 1
 776          )
 777        )
 778        WHERE
 779        1=1
 780        -- Here no where, please. All Transactions ever should be
 781        -- testet if they are paied in the USTVA report period.
 782        GROUP BY tk.pos_ustva
 783     |;
 784
 785   } elsif ($form->{method} eq 'accrual') {
 786     #########################################
 787     # Method eq 'accrual' = Soll Versteuerung
 788     #########################################
 789
 790     if ($department_id) {
 791       $dpt_join = qq|
 792               JOIN dpt_trans t ON (t.trans_id = ac.trans_id)
 793               |;
 794       $dpt_where = qq|
 795                AND t.department_id = $department_id
 796               |;
 797     }
 798
 799
 800     $query = qq|
 801        -- Alle Einnahmen AR und pos_ustva erfassen
 802        SELECT
 803          - sum(ac.amount) AS amount,
 804          tk.pos_ustva
 805        FROM acc_trans ac
 806        JOIN chart c ON (c.id = ac.chart_id)
 807        JOIN ar ON (ar.id = ac.trans_id)
 808        JOIN taxkeys tk ON (
 809          tk.id = (
 810            SELECT id FROM taxkeys
 811            WHERE chart_id   = ac.chart_id
 812              AND startdate <= COALESCE(ar.deliverydate,ar.transdate)
 813            ORDER BY startdate DESC LIMIT 1
 814          )
 815        )
 816        $dpt_join
 817        WHERE 1 = 1
 818        $where
 819        $dpt_where
 820        $project
 821        GROUP BY tk.pos_ustva
 822   |;
 823
 824   } else {
 825
 826     $self->error("Unknown tax method: $form->{method}")
 827
 828   }
 829
 830   #########################################
 831   # Ausgaben und Gl Buchungen sind gleich
 832   # für Ist- und Soll-Versteuerung
 833   #########################################
 834   $query .= qq|
 835      UNION -- alle Ausgaben AP erfassen
 836
 837        SELECT
 838          sum(ac.amount) AS amount,
 839          tk.pos_ustva
 840        FROM acc_trans ac
 841        JOIN ap ON (ap.id = ac.trans_id )
 842        JOIN chart c ON (c.id = ac.chart_id)
 843        LEFT JOIN taxkeys tk ON (
 844            tk.id = (
 845              SELECT id FROM taxkeys
 846              WHERE chart_id=ac.chart_id
 847                AND taxkey_id = ac.taxkey
 848                AND startdate <= COALESCE(AP.transdate)
 849              ORDER BY startdate DESC LIMIT 1
 850            )
 851        )
 852        WHERE
 853        1=1
 854        $where
 855        $dpt_where
 856        $project
 857        GROUP BY tk.pos_ustva
 858
 859      UNION -- Einnahmen direkter gl Buchungen erfassen
 860
 861        SELECT sum
 862          ( - ac.amount) AS amount,
 863          tk.pos_ustva
 864        FROM acc_trans ac
 865        JOIN chart c ON (c.id = ac.chart_id)
 866        JOIN gl a ON (a.id = ac.trans_id)
 867        LEFT JOIN taxkeys tk ON (
 868          tk.id = (
 869            SELECT id FROM taxkeys
 870            WHERE chart_id=ac.chart_id
 871              AND NOT $gltaxkey_where
 872              AND startdate <= COALESCE(ac.transdate)
 873            ORDER BY startdate DESC LIMIT 1
 874          )
 875        )
 876
 877        $dpt_join
 878        WHERE 1 = 1
 879        $where
 880        $dpt_from
 881        $project
 882        GROUP BY tk.pos_ustva
 883
 884
 885      UNION -- Ausgaben direkter gl Buchungen erfassen
 886
 887        SELECT sum
 888          (ac.amount) AS amount,
 889          tk.pos_ustva
 890        FROM acc_trans ac
 891        JOIN chart c ON (c.id = ac.chart_id)
 892        JOIN gl a ON (a.id = ac.trans_id)
 893        LEFT JOIN taxkeys tk ON (
 894          tk.id = (
 895            SELECT id FROM taxkeys
 896            WHERE chart_id=ac.chart_id
 897              AND $gltaxkey_where
 898              AND startdate <= COALESCE(ac.transdate)
 899            ORDER BY startdate DESC LIMIT 1
 900          )
 901        )
 902
 903        $dpt_join
 904        WHERE 1 = 1
 905        $where
 906        $dpt_from
 907        $project
 908        GROUP BY tk.pos_ustva
 909
 910   |;
 911
 912   my @accno;
 913   my $accno;
 914   my $ref;
 915
 916   # Show all $query in Debuglevel LXDebug::QUERY
 917   $callingdetails = (caller (0))[3];
 918   $main::lxdebug->message(LXDebug::QUERY, "$callingdetails \$query=\n $query");
 919
 920   my $sth = $dbh->prepare($query);
 921
 922   $sth->execute || $form->dberror($query);
 923
 924   while ($ref = $sth->fetchrow_hashref(NAME_lc)) {
 925     # Bug 365 solved?!
 926     $ref->{amount} *= -1;
 927     if ($category eq "pos_bwa") {
 928       if ($last_period) {
 929         $form->{ $ref->{$category} }{kumm} += $ref->{amount};
 930       } else {
 931         $form->{ $ref->{$category} }{jetzt} += $ref->{amount};
 932       }
 933     } else {
 934       $form->{ $ref->{$category} } += $ref->{amount};
 935     }
 936   }
 937
 938   $sth->finish;
 939
 940   $main::lxdebug->leave_sub();
 941
 942 }
 943
 944 sub get_config {
 945   $main::lxdebug->enter_sub();
 946
 947   my ($self, $userpath, $filename) = @_;
 948
 949   my $form = $main::form;
 950
 951   if (!open(FACONF, "$userpath/$form->{login}_$filename")) {
 952     open(FANEW, ">$userpath/$form->{login}_$filename") ||
 953       $form->error("$userpath/$filename : $!");
 954     close(FANEW);
 955     open(FACONF, "$userpath/$form->{login}_$filename") ||
 956       $form->error("$userpath/$form->{username}_$filename : $!");
 957   }
 958
 959   while (<FACONF>) {
 960     last if (/^\[/);
 961     next if (/^(\#|\s)/);
 962
 963     # remove comments
 964     s/\s#.*//g;
 965
 966     # remove any trailing whitespace
 967     s/^\s*(.*?)\s*$/$1/;
 968     my ($key, $value) = split(/=/, $_, 2);
 969
 970     $form->{$key} = "$value";
 971
 972   }
 973
 974   close(FACONF);
 975
 976   $main::lxdebug->leave_sub();
 977 }
 978
 979
 980 1;