bin/mozilla/ustva.pl

   1 #!/bin/perl
   2 #=====================================================================
   3 # Lx-Office ERP
   4 # Copyright (c) 2004 by Udo Spallek, Aachen
   5 #
   6 #  Author: Udo Spallek
   7 #   Email: udono@gmx.net
   8 #     Web: http://www.lx-office.org
   9 #
  10 #
  11 # This program is free software; you can redistribute it and/or modify
  12 # it under the terms of the GNU General Public License as published by
  13 # the Free Software Foundation; either version 2 of the License, or
  14 # (at your option) any later version.
  15 #
  16 # This program is distributed in the hope that it will be useful,
  17 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  18 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19 # GNU General Public License for more details.
  20 # You should have received a copy of the GNU General Public License
  21 # along with this program; if not, write to the Free Software
  22 # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  23 #======================================================================
  24 # German Tax authority Module and later ELSTER Interface
  25 #======================================================================
  26
  27 require "$form->{path}/arap.pl";
  28
  29 #use strict;
  30 #no strict 'refs';
  31 #use diagnostics;
  32 #use warnings FATAL=> 'all';
  33 #use vars qw($locale $form %myconfig);
  34 #our ($myconfig);
  35 #use CGI::Carp "fatalsToBrowser";
  36
  37 use SL::PE;
  38 use SL::RP;
  39 use SL::USTVA;
  40 use SL::User;
  41 1;
  42
  43 # this is for our long dates
  44 # $locale->text('January')
  45 # $locale->text('February')
  46 # $locale->text('March')
  47 # $locale->text('April')
  48 # $locale->text('May ')
  49 # $locale->text('June')
  50 # $locale->text('July')
  51 # $locale->text('August')
  52 # $locale->text('September')
  53 # $locale->text('October')
  54 # $locale->text('November')
  55 # $locale->text('December')
  56
  57 # this is for our short month
  58 # $locale->text('Jan')
  59 # $locale->text('Feb')
  60 # $locale->text('Mar')
  61 # $locale->text('Apr')
  62 # $locale->text('May')
  63 # $locale->text('Jun')
  64 # $locale->text('Jul')
  65 # $locale->text('Aug')
  66 # $locale->text('Sep')
  67 # $locale->text('Oct')
  68 # $locale->text('Nov')
  69 # $locale->text('Dec')
  70 #############################
  71
  72 sub report {
  73   $lxdebug->enter_sub();
  74   my $myconfig = \%myconfig;
  75   use CGI;
  76   $form->{title} = $locale->text('UStVA');
  77   $form->{kz10}  = '';                       #Berichtigte Anmeldung? Ja =1
  78
  79   #  $accrual = ($eur) ? "" : "checked";
  80   #  $cash = ($eur) ? "checked" : "";
  81   my $year = '';
  82   my $null = '';
  83   ($null, $null, $null, $null, $null, $year, $null, $null, $null) =
  84     localtime();
  85   $year += 1900;
  86
  87   my $department = '';
  88   local $hide = '';
  89   $form->header;
  90
  91   print qq|
  92 <body>
  93
  94 <form method=post action=$form->{script}>
  95
  96 <input type=hidden name=title value="$form->{title}">
  97
  98 <table width=100%>
  99   <tr>
 100     <th class=listtop>$form->{title}</th>
 101   </tr>
 102   <tr height="5"></tr>
 103   <tr>
 104     <td>
 105       <table>
 106       $department
 107 |;
 108
 109   # Hier Aufruf von get_config aus bin/mozilla/fa.pl zum
 110   # Einlesen der Finanzamtdaten
 111   &get_config($userspath, 'finanzamt.ini');
 112
 113   my @a = qw(signature name company address businessnumber tel fax email
 114     company_street company_city company_email);
 115   map { $form->{$_} = $myconfig->{$_} } @a;
 116
 117   my $oeffnungszeiten = $form->{FA_Oeffnungszeiten};
 118   $oeffnungszeiten =~ s/\\\\n/<br>/g;
 119   print qq|
 120         <tr >
 121           <td width="50%" align="left" valign="top">
 122           <fieldset>
 123           <legend>
 124           <b>| . $locale->text('Firma') . qq|</b>
 125           </legend>
 126   |;
 127   if ($form->{company} ne '') {
 128     print qq|<h3>$form->{company}</h3>\n|;
 129   } else {
 130     print qq|
 131             <a href=am.pl?path=$form->{path}&action=config&level=Programm--Preferences&login=$form->{login}&password=$form->{password}>
 132             | . $locale->text('Kein Firmenname hinterlegt!') . qq|</a><br>
 133     |;
 134   }
 135
 136   #klären, ob $form->{company_street|_address} gesetzt sind
 137   ###
 138   if ($form->{address} ne '') {
 139     my $temp = $form->{address};
 140     $temp =~ s/\\n/<br \/>/;
 141     print qq|$temp|;
 142     ($form->{company_street}, $form->{company_city}) = split("<br \/", $temp);
 143   } elsif ($form->{address} eq ''
 144          and ($form->{company_street} ne '' and $form->{company_city} ne '')) {
 145     print qq|$form->{company_street}<br>\n| if ($form->{company_street} ne '');
 146     print qq|$form->{company_city}\n|       if ($form->{company_city}   ne '');
 147          } elsif ($form->{company_street} eq '' or $form->{company_city} eq '') {
 148     print qq|
 149           <a href=am.pl?path=$form->{path}&action=config&level=Programm--Preferences&login=$form->{login}&password=$form->{password}>
 150           | . $locale->text('Keine Firmenadresse hinterlegt!') . qq|</a>\n|;
 151   }
 152
 153   print qq|
 154           <br>
 155           <br>
 156           | . $locale->text('Tel.: ') . qq|
 157           $form->{tel}
 158           <br>
 159           | . $locale->text('Fax.: ') . qq|
 160           $form->{fax}
 161           <br>
 162           <br>
 163           $form->{email}
 164           <br>
 165           <br>
 166           | . $locale->text('Steuernummer: ') . qq|
 167   |;
 168
 169   if ($form->{steuernummer} ne '') {
 170     print qq|$form->{steuernummer}|;
 171   } else {
 172     print qq|
 173           <a href="ustva.pl?path=$form->{path}&action=edit&level=Programm--Finanzamteinstellungen&login=$form->{login}&password=$form->{password}">
 174           Keine Steuernummer hinterlegt!</a><br>|;
 175   }
 176   print qq|
 177           <!--<br>
 178           | . $locale->text('ELSTER-Steuernummer: ') . qq|
 179           $form->{elstersteuernummer}
 180           <br>-->
 181           <br>
 182
 183           </fieldset>
 184           <br>
 185   |;
 186   if ($form->{FA_steuerberater_name} ne '') {
 187     print qq|
 188           <fieldset>
 189           <legend>
 190             <input checked="checked" title="|
 191       . $locale->text('Beraterdaten in UStVA übernehmen?')
 192       . qq|" name="FA_steuerberater" id=steuerberater class=checkbox type=checkbox value="1">&nbsp;
 193             <b>| . $locale->text('Steuerberater/-in') . qq|</b>
 194             </legend>
 195
 196             $form->{FA_steuerberater_name}<br>
 197             $form->{FA_steuerberater_street}<br>
 198             $form->{FA_steuerberater_city}<br>
 199             Tel: $form->{FA_steuerberater_tel}<br>
 200           </fieldset>
 201           <br>
 202     |;
 203   }
 204   print qq|
 205           <fieldset>
 206           <legend>
 207           <b>| . $locale->text('Voranmeldezeitraum') . qq|</b>
 208           </legend>
 209   |;
 210   &ustva_vorauswahl();
 211
 212   my @years = ();
 213   if (not defined $form->{all_years}) {
 214
 215     # accounting years if SQL-Ledger Version < 2.4.1
 216     #    $year = $form->{year} * 1;
 217     @years = sort { $b <=> $a } (2000 .. ($year));
 218     $form->{all_years} = \@years;
 219   }
 220   map { $form->{selectaccountingyear} .= qq|<option>$_\n| }
 221     @{ $form->{all_years} };
 222   print qq|
 223           <select name=year title="| . $locale->text('Year') . qq|">
 224   |;
 225   my $key = '';
 226   foreach $key (@years) {
 227     print qq|<option |;
 228     print qq|selected| if ($key eq $form->{year});
 229     print qq| >$key</option>
 230     |;
 231   }
 232
 233   my $voranmeld = $form->{FA_voranmeld};
 234   print qq|             </select>|;
 235   my $checked = '';
 236   $checked = "checked" if ($form->{kz10} eq '1');
 237   print qq|
 238            <input name="FA_10" id=FA_10 class=checkbox type=checkbox value="1" $checked title = "|
 239     . $locale->text(
 240       'Ist dies eine berichtigte Anmeldung? (Nr. 10/Zeile 15 Steuererklärung)')
 241     . qq|">
 242             | . $locale->text('Berichtigte Anmeldung') . qq|
 243           <br>
 244   |;
 245
 246   if ($voranmeld ne '') {
 247     print qq|
 248           <br>
 249           | . $locale->text($voranmeld) . qq|
 250   |;
 251     print qq| mit Dauerfristverlängerung| if ($form->{FA_dauerfrist} eq '1');
 252     print qq|
 253
 254       <br>
 255   |;
 256   }
 257   if ($form->{method} ne '') {
 258     print qq|| . $locale->text('Method') . qq|: |;
 259     print qq|| . $locale->text('accrual') . qq||
 260       if ($form->{method} eq 'accrual');
 261     print qq|| . $locale->text('cash') . qq|| if ($form->{method} eq 'cash');
 262   }
 263   print qq|
 264           </fieldset>
 265
 266     </td>|;
 267
 268   if ($form->{FA_Name} ne '') {
 269     print qq|
 270     <td width="50%" valign="top">
 271           <fieldset>
 272           <legend>
 273           <b>| . $locale->text('Finanzamt') . qq|</b>
 274           </legend>
 275           <h3>$form->{FA_Name}</h2>
 276     |;
 277
 278     #if ($form->{FA_Ergaenzung_Name ne ''}){
 279     #  print qq|
 280     #          $form->{FA_Ergaenzung_Name}&nbsp
 281     #          <br>
 282     #  |;
 283     #}
 284     print qq|
 285           $form->{FA_Strasse}
 286           <br>
 287           $form->{FA_PLZ}&nbsp; &nbsp;$form->{FA_Ort}
 288           <br>
 289           <br>
 290           | . $locale->text('Tel. : ') . qq|
 291           $form->{FA_Telefon}
 292           <br>
 293           | . $locale->text('Fax. : ') . qq|
 294           $form->{FA_Fax}
 295           <br>
 296           <br>
 297           <a href="mailto:$form->{FA_Email}?subject=|
 298       . CGI::escape("Steuer Nr: $form->{steuernummer}:")
 299       . qq|&amp;body=|
 300       . CGI::escape(
 301              "Sehr geehrte Damen und Herren,\n\n\nMit freundlichen Grüßen\n\n")
 302       . CGI::escape($form->{signature}) . qq|">
 303             $form->{FA_Email}
 304           </a>
 305           <br>
 306           <a href="$form->{FA_Internet}">
 307             $form->{FA_Internet}
 308           </a>
 309           <br>
 310           <br>
 311           | . $locale->text('Öffnungszeiten') . qq|
 312           <br>
 313           $oeffnungszeiten
 314           <br>
 315    |;
 316
 317     my $FA_1 =
 318       (   $form->{FA_BLZ_1} ne ''
 319        && $form->{FA_Kontonummer_1}     ne ''
 320        && $form->{FA_Bankbezeichnung_1} ne '');
 321     my $FA_2 =
 322       (   $form->{FA_BLZ_2} ne ''
 323        && $form->{FA_Kontonummer_2}            ne ''
 324        && $form->{FA_Bankbezeichnung_oertlich} ne '');
 325
 326     if ($FA_1 && $FA_2) {
 327       print qq|
 328           <br>
 329           | . $locale->text('Bankverbindungen') . qq|
 330           <table>
 331           <tr>
 332           <td>
 333           $form->{FA_Bankbezeichnung_1}
 334           <br>
 335           | . $locale->text('Konto: ') . qq|
 336           $form->{FA_Kontonummer_1}
 337           <br>
 338           | . $locale->text('BLZ: ') . qq|
 339           $form->{FA_BLZ_1}
 340           </td>
 341           <td>
 342           $form->{FA_Bankbezeichnung_oertlich}
 343           <br>
 344           | . $locale->text('Konto: ') . qq|
 345           $form->{FA_Kontonummer_2}
 346           <br>
 347           | . $locale->text('BLZ: ') . qq|
 348           $form->{FA_BLZ_2}
 349           </td>
 350           </tr>
 351           </table>
 352           <br>|;
 353     } elsif ($FA_1) {
 354       print qq|
 355           <br>
 356           | . $locale->text('Bankverbindung') . qq|
 357           <br>
 358           <br>
 359           $form->{FA_Bankbezeichnung_1}
 360           <br>
 361           | . $locale->text('Konto: ') . qq|
 362           $form->{FA_Kontonummer_1}
 363           <br>
 364           | . $locale->text('BLZ: ') . qq|
 365           $form->{FA_BLZ_1}          <br>
 366           <br>|;
 367     } elsif ($FA_2) {
 368       print qq|
 369           <br>
 370           | . $locale->text('Bankverbindung') . qq|
 371           <br>
 372           <br>
 373           $form->{FA_Bankbezeichnung_oertlich}
 374           <br>
 375           | . $locale->text('Konto: ') . qq|
 376           $form->{FA_Kontonummer_2}
 377           <br>
 378           | . $locale->text('BLZ: ') . qq|
 379           $form->{FA_BLZ_2}
 380      |;
 381     }
 382     print qq|
 383
 384       </fieldset>
 385       <br>
 386       <fieldset>
 387       <legend>
 388       <b>| . $locale->text('Ausgabeformat') . qq|</b>
 389       </legend>
 390   |;
 391
 392     &show_options;
 393     my $ausgabe = '1';
 394     print qq|
 395           </fieldset>
 396       |;
 397
 398     # Stichtag der nächsten USTVA berechnen
 399     #
 400     # ($stichtag, $tage_bis, $ical) = FA->stichtag($today[dd.mm.yyyy],
 401     #                                              $FA_dauerfrist[1,0],
 402     #                                              $FA_voranmeld[month, quarter])
 403     #$tmpdateform= $myconfig{dateformat};
 404     #  $myconfig{dateformat}= "dd.mm.yyyy";
 405     #  $form->{today} = $form->datetonum($form->current_date(\%myconfig), \%myconfig);
 406     #  ($stichtag, $description, $tage_bis, $ical) = FA::stichtag($form->{today}, $form->{FA_dauerfrist},$form->{FA_voranmeld});
 407     #   $form->{today} = $form->date($stichtag, \%myconfig );
 408     #$myconfig{dateformat}= $tmpdateform;
 409
 410     #print qq|
 411     #   <br>
 412     #   <br>
 413     #   <fieldset>
 414     #    <label>
 415     #    |.$locale->text('Anstehende Voranmeldungen').qq|
 416     #    </label>
 417     #     <h2 class="confirm">$stichtag<h2>
 418     #     <h3>$description</h3>
 419     #     <h4>$form->{today}</h4>
 420     #
 421     #   </fieldset>|;
 422
 423   } else {
 424     print qq|
 425      <td width="50%" valign="bottom">
 426      <fieldset>
 427      <legend>
 428      <b>| . $locale->text('Hinweise') . qq|</b>
 429      </legend>
 430       <h2 class="confirm">Die Ausgabefunktionen sind wegen fehlender Daten deaktiviert.</h2>
 431       <h3>Hilfe:</h3>
 432       <ul>
 433       <li><a href="ustva.pl?path=$form->{path}&action=edit&level=Programm--Finanzamteinstellungen&login=$form->{login}&password=$form->{password}">
 434       Bitte 'Einstellungen' wählen um die Erweiterten UStVa Funktionen nutzen zu können.</a></li>
 435       <br>
 436       <li><a href="am.pl?path=$form->{path}&action=config&level=Programm--Preferences&login=$form->{login}&password=$form->{password}">
 437       Firmendaten können bei den Benutzereinstellungen verändert werden.</a></li>
 438       </ul>
 439       </fieldset>
 440      |;
 441     my $ausgabe = '';
 442     $hide = q|disabled="disabled"|;
 443   }
 444
 445   print qq|
 446       </td>
 447     </tr>
 448   |;
 449
 450   #}# end if report = ustva
 451
 452   print qq|
 453       </table>
 454      </td>
 455     </tr>
 456     <tr>
 457      <td><hr size="3" noshade></td>
 458     </tr>
 459   </table>
 460
 461   <br>
 462   <input type="hidden" name="address" value="$form->{address}">
 463   <input type="hidden" name="reporttype" value="custom">
 464   <input type="hidden" name="company_street" value="$form->{company_street}">
 465   <input type="hidden" name="company_city" value="$form->{company_city}">
 466   <input type="hidden" name="path" value="$form->{path}">
 467   <input type="hidden" name="login" value="$form->{login}">
 468   <input type="hidden" name="password" value="$form->{password}">
 469   <table width="100%">
 470   <tr>
 471    <td align="left">
 472      <input type=hidden name=nextsub value=generate_ustva>
 473      <input $hide type=submit class=submit name=action value="|
 474     . $locale->text('Show') . qq|">
 475      <input type=submit class=submit name=action value="|
 476     . $locale->text('Config') . qq|">
 477    </td>
 478    <td align="right">
 479
 480     <!--</form>
 481     <form action="doc/ustva.html" method="get">
 482     -->
 483        <input type=submit class=submit name=action value="|
 484     . $locale->text('Help') . qq|">
 485    <!-- </form>-->
 486    </td>
 487   </tr>
 488   </table>
 489   |;
 490
 491   print qq|
 492
 493   </body>
 494   </html>
 495   |;
 496
 497   $lxdebug->leave_sub();
 498 }
 499
 500 #############################
 501
 502 sub help {
 503   $lxdebug->enter_sub();
 504
 505   # parse help documents under doc
 506   my $tmp = $form->{templates};
 507   $form->{templates} = 'doc';
 508   $form->{help}      = 'ustva';
 509   $form->{type}      = 'help';
 510   $form->{format}    = 'html';
 511   &generate_ustva();
 512
 513   #$form->{templates} = $tmp;
 514   $lxdebug->leave_sub();
 515 }
 516
 517 sub show {
 518   $lxdebug->enter_sub();
 519
 520   #&generate_ustva();
 521   no strict 'refs';
 522   &{ $form->{nextsub} };
 523   use strict 'refs';
 524   $lxdebug->leave_sub();
 525 }
 526
 527 sub ustva_vorauswahl {
 528   $lxdebug->enter_sub();
 529
 530   #Aktuelles Datum zerlegen:
 531   $locale->date(\%myconfig, $form->current_date(\%myconfig, '0', '0'), 0) =~
 532     /(\d\d).(\d\d).(\d\d\d\d)/;
 533
 534   #$locale->date($myconfig, $form->current_date($myconfig), 0)=~ /(\d\d).(\d\d).(\d\d\d\d)/;
 535   $form->{day}   = $1;
 536   $form->{month} = $2;
 537   $form->{year}  = $3;
 538   my $sel    = '';
 539   my $yymmdd = '';
 540
 541   # Testdaten erzeugen:
 542   #$form->{day}= '11';
 543   #$form->{month}= '01';
 544   #$form->{year}= 2004;
 545   print qq|
 546      <input type=hidden name=day value=$form->{day}>
 547      <input type=hidden name=month value=$form->{month}>
 548      <input type=hidden name=yymmdd value=$yymmdd>
 549      <input type=hidden name=sel value=$sel>
 550  |;
 551
 552   if ($form->{FA_voranmeld} eq 'month') {
 553
 554     # Vorauswahl bei monatlichem Voranmeldungszeitraum
 555     print qq|
 556      <select name="duetyp" id=zeitraum title="|
 557       . $locale->text('Hier den Berechnungszeitraum auswählen...') . qq|">
 558    |;
 559
 560     my %liste = ('01' => 'January',
 561                  '02' => 'February',
 562                  '03' => 'March',
 563                  '04' => 'April',
 564                  '05' => 'May',
 565                  '06' => 'June',
 566                  '07' => 'July',
 567                  '08' => 'August',
 568                  '09' => 'September',
 569                  '10' => 'October',
 570                  '11' => 'November',
 571                  '12' => 'December');
 572
 573     my $yy = $form->{year} * 10000;
 574     $yymmdd = "$form->{year}$form->{month}$form->{day}" * 1;
 575     $sel    = '';
 576     my $dfv = '0';    # Offset für Dauerfristverlängerung
 577                       #$dfv = '100' if ($form->{FA_dauerfrist} eq '1');
 578
 579   SWITCH: {
 580       $yymmdd <= ($yy + 110 + $dfv) && do {
 581         $form->{year} = $form->{year} - 1;
 582         $sel = '12';
 583         last SWITCH;
 584       };
 585       $yymmdd <= ($yy + 210 + $dfv) && do {
 586         $sel = '01';
 587         last SWITCH;
 588       };
 589       $yymmdd <= ($yy + 310 + $dfv) && do {
 590         $sel = '02';
 591         last SWITCH;
 592       };
 593       $yymmdd <= ($yy + 410 + $dfv) && do {
 594         $sel = '03';
 595         last SWITCH;
 596       };
 597       $yymmdd <= ($yy + 510 + $dfv) && do {
 598         $sel = '04';
 599         last SWITCH;
 600       };
 601       $yymmdd <= ($yy + 610 + $dfv) && do {
 602         $sel = '05';
 603         last SWITCH;
 604       };
 605       $yymmdd <= ($yy + 710 + $dfv) && do {
 606         $sel = '06';
 607         last SWITCH;
 608       };
 609       $yymmdd <= ($yy + 810 + $dfv) && do {
 610         $sel = '07';
 611         last SWITCH;
 612       };
 613       $yymmdd <= ($yy + 910 + $dfv) && do {
 614         $sel = '08';
 615         last SWITCH;
 616       };
 617       $yymmdd <= ($yy + 1010 + $dfv) && do {
 618         $sel = '09';
 619         last SWITCH;
 620       };
 621       $yymmdd <= ($yy + 1110 + $dfv) && do {
 622         $sel = '10';
 623         last SWITCH;
 624       };
 625       $yymmdd <= ($yy + 1210) && do {
 626         $sel = '11';
 627         last SWITCH;
 628       };
 629       $yymmdd <= ($yy + 1231) && do {
 630         $sel = '12';
 631         last SWITCH;
 632       };
 633
 634     }
 635     my $key = '';
 636     foreach $key (sort keys %liste) {
 637       my $selected = '';
 638       $selected = 'selected' if ($sel eq $key);
 639       print qq|
 640          <option value="$key" $selected>|
 641         . $locale->text("$liste{$key}")
 642         . qq|</option>
 643
 644    |;
 645     }
 646     print qq|</select>|;
 647
 648   } elsif ($form->{FA_voranmeld} eq 'quarter') {
 649
 650     # Vorauswahl bei quartalsweisem Voranmeldungszeitraum
 651     my %liste = ('A' => '1.',
 652                  'B' => '2.',
 653                  'C' => '3.',
 654                  'D' => '4.',);
 655
 656     my $yy = $form->{year} * 10000;
 657     $yymmdd = "$form->{year}$form->{month}$form->{day}" * 1;
 658     $sel    = '';
 659     my $dfv = '';    # Offset für Dauerfristverlängerung
 660     $dfv = '100' if ($form->{FA_dauerfrist} eq '1');
 661
 662   SWITCH: {
 663       $yymmdd <= ($yy + 110 + $dfv) && do {
 664         $form->{year} = $form->{year} - 1;
 665         $sel = 'D';
 666         last SWITCH;
 667       };
 668       $yymmdd <= ($yy + 410 + $dfv) && do {
 669         $sel = 'A';
 670         last SWITCH;
 671       };
 672       $yymmdd <= ($yy + 710 + $dfv) && do {
 673         $sel = 'B';
 674         last SWITCH;
 675       };
 676       $yymmdd <= ($yy + 1010 + $dfv) && do {
 677         $sel = 'C';
 678         last SWITCH;
 679       };
 680       $yymmdd <= ($yy + 1231) && do {
 681         $sel = 'D';
 682       };
 683     }
 684
 685     print qq|<select id="zeitraum" name="duetyp" title="|
 686       . $locale->text('Select a period') . qq|" >|;
 687     my $key = '';
 688     foreach $key (sort keys %liste) {
 689       my $selected = '';
 690       $selected = 'selected' if ($sel eq $key);
 691       print qq|
 692          <option value="$key" $selected>$liste{$key} |
 693         . $locale->text('Quarter')
 694         . qq|</option>
 695      |;
 696     }
 697     print qq|\n</select>
 698    |;
 699
 700   } else {
 701
 702     # keine Vorauswahl bei Voranmeldungszeitraum
 703     print qq|<select id="zeitraum" name="duetyp" title="|
 704       . $locale->text('Select a period') . qq|" >|;
 705
 706     my %listea = ('A' => '1.',
 707                   'B' => '2.',
 708                   'C' => '3.',
 709                   'D' => '4.',);
 710
 711     my %listeb = ('01' => 'January',
 712                   '02' => 'February',
 713                   '03' => 'March',
 714                   '04' => 'April',
 715                   '05' => 'May',
 716                   '06' => 'June',
 717                   '07' => 'July',
 718                   '08' => 'August',
 719                   '09' => 'September',
 720                   '10' => 'October',
 721                   '11' => 'November',
 722                   '12' => 'December',);
 723     my $key = '';
 724     foreach $key (sort keys %listea) {
 725       print qq|
 726          <option value="$key">$listea{$key} |
 727         . $locale->text('Quarter')
 728         . qq|</option>
 729
 730      |;
 731     }
 732
 733     foreach $key (sort keys %listeb) {
 734       print qq|
 735          <option value="$key">| . $locale->text("$listeb{$key}") . qq|</option>
 736
 737      |;
 738     }
 739     print qq|</select>|;
 740   }
 741   $lxdebug->leave_sub();
 742 }
 743
 744 sub config {
 745   $lxdebug->enter_sub();
 746   edit();
 747   $lxdebug->leave_sub();
 748 }
 749
 750 sub debug {
 751   $form->debug();
 752 }
 753
 754 sub show_options {
 755   $lxdebug->enter_sub();
 756
 757   #  $form->{PD}{$form->{type}} = "selected";
 758   #  $form->{DF}{$form->{format}} = "selected";
 759   #  $form->{OP}{$form->{media}} = "selected";
 760   #  $form->{SM}{$form->{sendmode}} = "selected";
 761   my $type   = qq|      <input type=hidden name="type" value="ustva">|;
 762   my $media  = qq|      <input type=hidden name="media" value="screen">|;
 763   my $format =
 764       qq|       <option value=html selected>|
 765     . $locale->text('Vorschau')
 766     . qq|</option>|;
 767   if ($latex) {
 768     $format .=
 769         qq|    <option value=pdf>|
 770       . $locale->text('UStVA als PDF-Dokument')
 771       . qq|</option>|;
 772   }
 773
 774   #my $disabled= qq|disabled="disabled"|;
 775   #$disabled='' if ($form->{elster} eq '1' );
 776   if ($form->{elster} eq '1') {
 777     $format .=
 778         qq|<option value=elster>|
 779       . $locale->text('ELSTER Export nach Winston')
 780       . qq|</option>|;
 781   }
 782
 783   #$format .= qq|<option value=elster>|.$locale->text('ELSTER Export nach Winston').qq|</option>|;
 784   print qq|
 785     $type
 786     $media
 787     <select name=format title = "|
 788     . $locale->text('Ausgabeformat auswählen...')
 789     . qq|">$format</select>
 790   |;
 791   $lxdebug->leave_sub();
 792 }
 793
 794 sub generate_ustva {
 795   $lxdebug->enter_sub();
 796
 797   # Aufruf von get_config aus bin/mozilla/ustva.pl zum
 798   # Einlesen der Finanzamtdaten aus finanzamt.ini
 799
 800   get_config($userspath, 'finanzamt.ini');
 801
 802   # form vars initialisieren
 803   my @anmeldungszeitraum =
 804     qw('0401' '0402' '0403' '0404' '0405' '0405' '0406' '0407' '0408' '0409' '0410' '0411' '0412' '0441' '0442' '0443' '0444');
 805   my $item = '';
 806   foreach $item (@anmeldungszeitraum) {
 807     $form->{$item} = "";
 808   }
 809   if ($form->{reporttype} eq "custom") {
 810
 811     #forgotten the year --> thisyear
 812     if ($form->{year} !~ m/^\d\d\d\d$/) {
 813       $locale->date(\$myconfig, $form->current_date(\$myconfig), 0) =~
 814         /(\d\d\d\d)/;
 815       $form->{year} = $1;
 816     }
 817
 818     #yearly report
 819     if ($form->{duetyp} eq "13") {
 820       $form->{fromdate} = "1.1.$form->{year}";
 821       $form->{todate}   = "31.12.$form->{year}";
 822     }
 823
 824     #Quater reports
 825     if ($form->{duetyp} eq "A") {
 826       $form->{fromdate} = "1.1.$form->{year}";
 827       $form->{todate}   = "31.3.$form->{year}";
 828       $form->{'0441'}   = "X";
 829     }
 830     if ($form->{duetyp} eq "B") {
 831       $form->{fromdate} = "1.4.$form->{year}";
 832       $form->{todate}   = "30.6.$form->{year}";
 833       $form->{'0442'}   = "X";
 834     }
 835     if ($form->{duetyp} eq "C") {
 836       $form->{fromdate} = "1.7.$form->{year}";
 837       $form->{todate}   = "30.9.$form->{year}";
 838       $form->{'0443'}   = "X";
 839     }
 840     if ($form->{duetyp} eq "D") {
 841       $form->{fromdate} = "1.10.$form->{year}";
 842       $form->{todate}   = "31.12.$form->{year}";
 843       $form->{'0444'}   = "X";
 844     }
 845
 846     #Monthly reports
 847   SWITCH: {
 848       $form->{duetyp} eq "01" && do {
 849         $form->{fromdate} = "1.1.$form->{year}";
 850         $form->{todate}   = "31.1.$form->{year}";
 851         $form->{'0401'}   = "X";
 852         last SWITCH;
 853       };
 854       $form->{duetyp} eq "02" && do {
 855         $form->{fromdate} = "1.2.$form->{year}";
 856
 857         #this works from 1901 to 2099, 1900 and 2100 fail.
 858         my $leap = ($form->{year} % 4 == 0) ? "29" : "28";
 859         $form->{todate} = "$leap.2.$form->{year}";
 860         $form->{"0402"} = "X";
 861         last SWITCH;
 862       };
 863       $form->{duetyp} eq "03" && do {
 864         $form->{fromdate} = "1.3.$form->{year}";
 865         $form->{todate}   = "31.3.$form->{year}";
 866         $form->{"0403"}   = "X";
 867         last SWITCH;
 868       };
 869       $form->{duetyp} eq "04" && do {
 870         $form->{fromdate} = "1.4.$form->{year}";
 871         $form->{todate}   = "30.4.$form->{year}";
 872         $form->{"0404"}   = "X";
 873         last SWITCH;
 874       };
 875       $form->{duetyp} eq "05" && do {
 876         $form->{fromdate} = "1.5.$form->{year}";
 877         $form->{todate}   = "31.5.$form->{year}";
 878         $form->{"0405"}   = "X";
 879         last SWITCH;
 880       };
 881       $form->{duetyp} eq "06" && do {
 882         $form->{fromdate} = "1.6.$form->{year}";
 883         $form->{todate}   = "30.6.$form->{year}";
 884         $form->{"0406"}   = "X";
 885         last SWITCH;
 886       };
 887       $form->{duetyp} eq "07" && do {
 888         $form->{fromdate} = "1.7.$form->{year}";
 889         $form->{todate}   = "31.7.$form->{year}";
 890         $form->{"0407"}   = "X";
 891         last SWITCH;
 892       };
 893       $form->{duetyp} eq "08" && do {
 894         $form->{fromdate} = "1.8.$form->{year}";
 895         $form->{todate}   = "31.8.$form->{year}";
 896         $form->{"0408"}   = "X";
 897         last SWITCH;
 898       };
 899       $form->{duetyp} eq "09" && do {
 900         $form->{fromdate} = "1.9.$form->{year}";
 901         $form->{todate}   = "30.9.$form->{year}";
 902         $form->{"0409"}   = "X";
 903         last SWITCH;
 904       };
 905       $form->{duetyp} eq "10" && do {
 906         $form->{fromdate} = "1.10.$form->{year}";
 907         $form->{todate}   = "31.10.$form->{year}";
 908         $form->{"0410"}   = "X";
 909         last SWITCH;
 910       };
 911       $form->{duetyp} eq "11" && do {
 912         $form->{fromdate} = "1.11.$form->{year}";
 913         $form->{todate}   = "30.11.$form->{year}";
 914         $form->{"0411"}   = "X";
 915         last SWITCH;
 916       };
 917       $form->{duetyp} eq "12" && do {
 918         $form->{fromdate} = "1.12.$form->{year}";
 919         $form->{todate}   = "31.12.$form->{year}";
 920         $form->{"0412"}   = "X";
 921         last SWITCH;
 922       };
 923     }
 924   }
 925
 926   #$myconfig = \%myconfig;
 927   RP->ustva(\%myconfig, \%$form);
 928
 929   #??($form->{department}) = split /--/, $form->{department};
 930
 931   $form->{period} =
 932     $locale->date(\%myconfig, $form->current_date(\%myconfig), 1, 0, 0);
 933   $form->{todate} = $form->current_date($myconfig) unless $form->{todate};
 934
 935   # if there are any dates construct a where
 936   if ($form->{fromdate} || $form->{todate}) {
 937
 938     unless ($form->{todate}) {
 939       $form->{todate} = $form->current_date($myconfig);
 940     }
 941
 942     my $longtodate  = $locale->date($myconfig, $form->{todate}, 1, 0, 0);
 943     my $shorttodate = $locale->date($myconfig, $form->{todate}, 0, 0, 0);
 944
 945     my $longfromdate  = $locale->date($myconfig, $form->{fromdate}, 1, 0, 0);
 946     my $shortfromdate = $locale->date($myconfig, $form->{fromdate}, 0, 0, 0);
 947
 948     $form->{this_period} = "$shortfromdate<br>\n$shorttodate";
 949     $form->{period}      =
 950         $locale->text('for Period')
 951       . qq|<br>\n$longfromdate |
 952       . $locale->text('bis')
 953       . qq| $longtodate|;
 954   }
 955
 956   if ($form->{comparefromdate} || $form->{comparetodate}) {
 957     my $longcomparefromdate =
 958       $locale->date(\%myconfig, $form->{comparefromdate}, 1, 0, 0);
 959     my $shortcomparefromdate =
 960       $locale->date(\%myconfig, $form->{comparefromdate}, 0, 0, 0);
 961
 962     my $longcomparetodate =
 963       $locale->date(\%myconfig, $form->{comparetodate}, 1, 0, 0);
 964     my $shortcomparetodate =
 965       $locale->date(\%myconfig, $form->{comparetodate}, 0, 0, 0);
 966
 967     $form->{last_period} = "$shortcomparefromdate<br>\n$shortcomparetodate";
 968     $form->{period} .=
 969         "<br>\n$longcomparefromdate "
 970       . $locale->text('bis')
 971       . qq| $longcomparetodate|;
 972   }
 973
 974   $form->{Datum_heute} =
 975     $locale->date(\%myconfig, $form->current_date(\%myconfig), 0, 0, 0);
 976
 977   # setup variables for the form
 978   my @a = ();
 979   @a = qw(company businessnumber tel fax email company_email);
 980   map { $form->{$_} = $myconfig{$_} } @a;
 981
 982   if ($form->{address} ne '') {
 983     my $temp = $form->{address};
 984     $temp =~ s/\\n/<br \/>/;
 985     ($form->{company_street}, $form->{company_city}) = split("<br \/>", $temp);
 986   }
 987
 988   if (   $form->{format} eq 'pdf'
 989       or $form->{format} eq 'postscript') {
 990     $form->{padding} = "~~";
 991     $form->{bold}    = "\textbf{";
 992     $form->{endbold} = "}";
 993     $form->{br}      = '\\\\';
 994
 995     my @numbers = qw(51r 86r 97r 93r 96 43 45
 996       66 62 67);
 997     my $number = '';
 998     foreach $number (@numbers) {
 999       $form->{$number} =~ s/,/~~/g;
1000     }
1001       } elsif ($form->{format} eq 'html') {
1002     $form->{padding} = "&nbsp;&nbsp;";
1003     $form->{bold}    = "<b>";
1004     $form->{endbold} = "</b>";
1005     $form->{br}      = "<br>";
1006     $form->{address} =~ s/\\n/<br \/>/;
1007
1008   }
1009
1010   if ($form->{format} eq 'elster') {
1011     &create_winston();
1012   } else {
1013     $form->{templates} = $myconfig{templates};
1014     $form->{templates} = "doc" if ($form->{type} eq 'help');
1015
1016     $form->{IN} = "$form->{type}";
1017     $form->{IN} = "$form->{help}" if ($form->{type} eq 'help');
1018     $form->{IN} .= "-$form->{year}"
1019       if (   $form->{format} eq 'pdf'
1020           or $form->{format} eq 'postscript');
1021
1022     $form->{IN} .= '.tex'
1023       if (   $form->{format} eq 'pdf'
1024           or $form->{format} eq 'postscript');
1025
1026     $form->{IN} .= '.html' if ($form->{format} eq 'html');
1027
1028     #$form->header;
1029     #print qq|$myconfig<br>$path|;
1030     $form->parse_template($myconfig, $userspath);
1031   }
1032   $lxdebug->leave_sub();
1033 }
1034
1035 sub edit {
1036   $lxdebug->enter_sub();
1037
1038   # edit all taxauthority prefs
1039
1040   $form->header;
1041   &get_config($userspath, 'finanzamt.ini');
1042
1043   #&create_steuernummer;
1044
1045   my $land = $form->{elsterland};
1046   my $amt  = $form->{elsterFFFF};
1047
1048   $form->{title} = $locale->text('Finanzamt - Einstellungen');
1049   print qq|
1050     <body>
1051     <form name="verzeichnis" method=post action="$form->{script}">
1052      <table width=100%>
1053         <tr>
1054           <th class="listtop">|
1055     . $locale->text('Finanzamt - Einstellungen')
1056     . qq|</th>
1057         </tr>
1058         <tr>
1059          <td>
1060            <br>
1061            <fieldset>
1062            <legend><b>|
1063     . $locale->text('Angaben zum Finanzamt')
1064     . qq|</b></legend>
1065   |;
1066
1067   #print qq|$form->{terminal}|;
1068
1069   USTVA::fa_auswahl($land, $amt, &elster_hash());
1070   print qq|
1071            </fieldset>
1072            <br>
1073   |;
1074   my $checked = '';
1075   $checked = "checked" if ($form->{method} eq 'accrual');
1076   print qq|
1077            <fieldset>
1078            <legend><b>| . $locale->text('Verfahren') . qq|</b>
1079            </legend>
1080            <input name=method id=accrual class=radio type=radio value="accrual" $checked>
1081            <label for="accrual">| . $locale->text('accrual') . qq|</label>
1082            <br>
1083   |;
1084   $checked = '';
1085   $checked = "checked" if ($form->{method} eq 'cash');
1086   print qq|
1087            <input name=method id=cash class=radio type=radio value="cash" $checked>
1088            <label for="cash">| . $locale->text('cash') . qq|</label>
1089            </fieldset>
1090            <br>
1091            <fieldset>
1092            <legend><b>| . $locale->text('Voranmeldungszeitraum') . qq|</b>
1093            </legend>
1094   |;
1095   $checked = '';
1096   $checked = "checked" if ($form->{FA_voranmeld} eq 'month');
1097   print qq|
1098            <input name=FA_voranmeld id=month class=radio type=radio value="month" $checked>
1099            <label for="month">| . $locale->text('month') . qq|</label>
1100            <br>
1101   |;
1102   $checked = '';
1103   $checked = "checked" if ($form->{FA_voranmeld} eq 'quarter');
1104   print qq|
1105            <input name="FA_voranmeld" id=quarter class=radio type=radio value="quarter" $checked>
1106            <label for="quarter">| . $locale->text('quarter') . qq|</label>
1107            <br>
1108   |;
1109   $checked = '';
1110   $checked = "checked" if ($form->{FA_dauerfrist} eq '1');
1111   print qq|
1112            <input name="FA_dauerfrist" id=FA_dauerfrist class=checkbox type=checkbox value="1" $checked>
1113            <label for="">|
1114     . $locale->text('Dauerfristverlängerung')
1115     . qq|</label>
1116
1117            </fieldset>
1118            <br>
1119            <fieldset>
1120            <legend><b>| . $locale->text('Steuerberater/-in') . qq|</b>
1121            </legend>
1122   |;
1123   $checked = '';
1124   $checked = "checked" if ($form->{FA_71} eq 'X');
1125   print qq|
1126           <!-- <input name="FA_71" id=FA_71 class=checkbox type=checkbox value="X" $checked>
1127            <label for="FA_71">|
1128     . $locale->text('Verrechnung des Erstattungsbetrages erwünscht (Zeile 71)')
1129     . qq|</label>
1130            <br>
1131            <br>-->
1132            <table>
1133            <tr>
1134            <td>
1135            | . $locale->text('Name') . qq|
1136            </td>
1137            <td>
1138            | . $locale->text('Straße') . qq|
1139            </td>
1140            <td>
1141            | . $locale->text('PLZ, Ort') . qq|
1142            </td>
1143            <td>
1144            | . $locale->text('Telefon') . qq|
1145            </td>
1146            </tr>
1147            <tr>
1148            <td>
1149            <input name="FA_steuerberater_name" id=steuerberater size=25 value="$form->{FA_steuerberater_name}">
1150            </td>
1151            <td>
1152            <input name="FA_steuerberater_street" id=steuerberater size=25 value="$form->{FA_steuerberater_street}">
1153            </td>
1154            <td>
1155            <input name="FA_steuerberater_city" id=steuerberater size=25 value="$form->{FA_steuerberater_city}">
1156            </td>
1157            <td>
1158            <input name="FA_steuerberater_tel" id=steuerberater size=25 value="$form->{FA_steuerberater_tel}">
1159            </tr>
1160            </table>
1161
1162            </fieldset>
1163
1164            <br>
1165            <br>
1166            <hr>
1167            <!--<input type=submit class=submit name=action value="|
1168     . $locale->text('debug')
1169     . qq|">-->
1170            <input type=submit class=submit name=action value="|
1171     . $locale->text('continue') . qq|">
1172          </td>
1173        </tr>
1174      </table>
1175   |;
1176
1177   my @variables = qw( steuernummer elsterland elstersteuernummer elsterFFFF);
1178   my $variable  = '';
1179   foreach $variable (@variables) {
1180     print qq|
1181           <input name=$variable type=hidden value="$form->{$variable}">|;
1182   }
1183   my $steuernummer_new = '';
1184
1185   #<input type=hidden name="steuernummer_new" value="$form->{$steuernummer_new}">
1186   print qq|
1187
1188           <input type=hidden name="nextsub" value="edit_form">
1189           <input type=hidden name="warnung" value="1">
1190           <input type=hidden name="saved" value="|
1191     . $locale->text('Bitte Angaben überprüfen') . qq|">
1192           <input type=hidden name="path" value=$form->{path}>
1193           <input type=hidden name="login" value=$form->{login}>
1194           <input type=hidden name="password" value=$form->{password}>
1195           <input type=hidden name="warnung" value="0">
1196   |;
1197
1198   @variables = qw(FA_Name FA_Strasse FA_PLZ
1199     FA_Ort FA_Telefon FA_Fax FA_PLZ_Grosskunden FA_PLZ_Postfach FA_Postfach
1200     FA_BLZ_1 FA_Kontonummer_1 FA_Bankbezeichnung_1 FA_BLZ_2
1201     FA_Kontonummer_2 FA_Bankbezeichnung_oertlich FA_Oeffnungszeiten
1202     FA_Email FA_Internet);
1203
1204   foreach $variable (@variables) {
1205     print qq|
1206           <input name=$variable type=hidden value="$form->{$variable}">|;
1207   }
1208
1209   print qq|
1210    </form>
1211    </body>
1212 |;
1213   $lxdebug->leave_sub();
1214 }
1215
1216 sub edit_form {
1217   $lxdebug->enter_sub();
1218   $form->header();
1219   print qq|
1220     <body>
1221   |;
1222   my $elsterland         = '';
1223   my $elster_amt         = '';
1224   my $elsterFFFF         = '';
1225   my $elstersteuernummer = '';
1226   &get_config($userspath, 'finanzamt.ini')
1227     if ($form->{saved} eq $locale->text('saved'));
1228
1229   # Auf Übergabefehler checken
1230   USTVA::info(
1231     $locale->text(
1232       'Bitte das Bundesland UND die Stadt bzw. den Einzugsbereich Ihres zuständigen Finanzamts auswählen.'
1233     ))
1234     if (   $form->{elsterFFFF_new} eq 'Auswahl'
1235         || $form->{elsterland_new} eq 'Auswahl');
1236   USTVA::info(
1237     $locale->text(
1238       'Es fehlen Angaben zur Versteuerung.
1239   Wenn Sie Ist Versteuert sind, wählen Sie die Einnahmen/Überschuß-Rechnung aus.
1240   Sind Sie Soll-Versteuert und Bilanzverpflichtet, dann wählen Sie Bilanz aus.'
1241     ))
1242     if ($form->{method} eq '');
1243
1244   # Klären, ob Variablen bereits befüllt sind UND ob veräderungen auf
1245   # der vorherigen Maske stattfanden: $change = 1(in der edit sub,
1246   # mittels get_config)
1247
1248   my $change =
1249        $form->{elsterland} eq $form->{elsterland_new}
1250     && $form->{elsterFFFF} eq $form->{elsterFFFF_new} ? '0' : '1';
1251   $change = '0' if ($form->{saved} eq $locale->text('saved'));
1252   my $elster_init = &elster_hash();
1253
1254   #my %elster_init = ();
1255   my %elster_init = %$elster_init;
1256
1257   if ($change eq '1') {
1258
1259     # Daten ändern
1260     $elsterland           = $form->{elsterland_new};
1261     $elsterFFFF           = $form->{elsterFFFF_new};
1262     $form->{elsterland}   = $elsterland;
1263     $form->{elsterFFFF}   = $elsterFFFF;
1264     $form->{steuernummer} = '';
1265     &create_steuernummer;
1266
1267     # rebuild elster_amt
1268     my $amt = '';
1269     foreach $amt (keys %{ $elster_init{ $form->{elsterland} } }) {
1270       $elster_amt = $amt
1271         if ($elster_init{ $form->{elsterland}{$amt} eq $form->{elsterFFFF} });
1272     }
1273
1274     # load the predefined hash data into the FA_* Vars
1275     my @variables = qw(FA_Name FA_Strasse FA_PLZ FA_Ort
1276       FA_Telefon FA_Fax FA_PLZ_Grosskunden FA_PLZ_Postfach
1277       FA_Postfach
1278       FA_BLZ_1 FA_Kontonummer_1 FA_Bankbezeichnung_1
1279       FA_BLZ_2 FA_Kontonummer_2 FA_Bankbezeichnung_oertlich
1280       FA_Oeffnungszeiten FA_Email FA_Internet);
1281
1282     for (my $i = 0; $i <= 20; $i++) {
1283       $form->{ $variables[$i] } =
1284         $elster_init->{$elsterland}->{$elsterFFFF}->[$i];
1285     }
1286
1287   } else {
1288
1289     $elsterland = $form->{elsterland};
1290     $elsterFFFF = $form->{elsterFFFF};
1291
1292   }
1293   my $stnr = $form->{steuernummer};
1294   $stnr =~ s/\D+//g;
1295   my $patterncount   = $form->{patterncount};
1296   my $elster_pattern = $form->{elster_pattern};
1297   my $delimiter      = $form->{delimiter};
1298   my $steuernummer   = '';
1299   $steuernummer = $form->{steuernummer} if ($steuernummer eq '');
1300
1301   #Warnung
1302   my $warnung = $form->{warnung};
1303
1304   #printout form
1305   print qq|
1306    <form name="elsterform" method=post action="$form->{script}">
1307    <table width="100%">
1308        <tr>
1309         <th colspan="2" class="listtop">|
1310     . $locale->text('Finanzamt - Einstellungen')
1311     . qq|</th>
1312        </tr>
1313        <tr>
1314          <td colspan=2>
1315          <br>
1316   |;
1317   &show_fa_daten;
1318   print qq|
1319          </td>
1320        </tr>
1321        <tr>
1322          <td colspan="2">
1323            <br>
1324            <fieldset>
1325            <legend>
1326            <font size="+1">| . $locale->text('Steuernummer') . qq|</font>
1327            </legend>
1328            <br>
1329   |;
1330   $steuernummer =
1331     USTVA::steuernummer_input($form->{elsterland}, $form->{elsterFFFF},
1332                               $form->{steuernummer});
1333   print qq|
1334            </H2><br>
1335            </fieldset>
1336            <br>
1337            <br>
1338            <hr>
1339          </td>
1340       </tr>
1341       <tr>
1342          <td align="left">
1343
1344
1345           <!--<input type=hidden name=nextsub value="debug">
1346           <input type=submit class=submit name=action value="|
1347     . $locale->text('debug') . qq|">
1348           <input type=hidden name=nextsub value="test">
1349           <input type=submit class=submit name=action value="|
1350     . $locale->text('test')
1351     . qq|">-->
1352           <input type=hidden name=lastsub value="edit">
1353           <input type=submit class=submit name=action value="|
1354     . $locale->text('back') . qq|">
1355   |;
1356
1357   if ($form->{warnung} eq "1") {
1358     print qq|
1359           <input type=hidden name=nextsub value="edit_form">
1360           <input type=submit class=submit name=action value="|
1361       . $locale->text('continue') . qq|">
1362           <input type=hidden name="saved" value="|
1363       . $locale->text('Bitte alle Angaben überprüfen') . qq|">
1364     |;
1365   } else {
1366     print qq|
1367           <input type=hidden name="nextsub" value="save">
1368           <input type=hidden name="filename" value="finanzamt.ini">
1369           <input type=submit class=submit name=action value="|
1370       . $locale->text('save') . qq|">
1371          |;
1372   }
1373
1374   print qq|
1375          </td>
1376          <td align="right">
1377            <H2 class=confirm>$form->{saved}</H2>
1378          </td>
1379       </tr>
1380   </table>
1381   |;
1382
1383   my @variables = qw(FA_steuerberater_name FA_steuerberater_street
1384     FA_steuerberater_city FA_steuerberater_tel
1385     FA_voranmeld method
1386     FA_dauerfrist FA_71 FA_Name elster
1387     path login password type elster_init saved
1388   );
1389   my $variable = '';
1390   foreach $variable (@variables) {
1391     print qq|
1392         <input name="$variable" type="hidden" value="$form->{$variable}">|;
1393   }
1394   print qq|
1395           <input type=hidden name="elsterland" value="$elsterland">
1396           <input type=hidden name="elsterFFFF" value="$elsterFFFF">
1397           <input type=hidden name="warnung" value="$warnung">
1398           <input type=hidden name="elstersteuernummer" value="$elstersteuernummer">
1399           <input type=hidden name="steuernummer" value="$stnr">
1400   </form>
1401   |;
1402   $lxdebug->leave_sub();
1403 }
1404
1405 sub create_steuernummer {
1406   $lxdebug->enter_sub();
1407   my $part           = $form->{part};
1408   my $patterncount   = $form->{patterncount};
1409   my $delimiter      = $form->{delimiter};
1410   my $elster_pattern = $form->{elster_pattern};
1411
1412   # rebuild steuernummer and elstersteuernummer
1413   # es gibt eine gespeicherte steuernummer $form->{steuernummer}
1414   # und die parts und delimiter
1415
1416   my $h = 0;
1417   my $i = 0;
1418
1419   my $steuernummer_new       = $part;
1420   my $elstersteuernummer_new = $form->{elster_FFFF};
1421   $elstersteuernummer_new .= '0';
1422
1423   for ($h = 1; $h < $patterncount; $h++) {
1424     $steuernummer_new .= qq|$delimiter|;
1425     for (my $i = 1; $i <= length($elster_pattern); $i++) {
1426       $steuernummer_new       .= $form->{"part_$h\_$i"};
1427       $elstersteuernummer_new .= $form->{"part_$h\_$i"};
1428     }
1429   }
1430   if ($form->{steuernummer} ne $steuernummer_new) {
1431     $form->{steuernummer}       = $steuernummer_new;
1432     $form->{elstersteuernummer} = $elstersteuernummer_new;
1433     $form->{steuernummer_new}   = $steuernummer_new;
1434   } else {
1435     $form->{steuernummer_new}       = '';
1436     $form->{elstersteuernummer_new} = '';
1437   }
1438   $lxdebug->leave_sub();
1439 }
1440
1441 sub get_config {
1442   $lxdebug->enter_sub();
1443
1444   my ($userpath, $filename) = @_;
1445   my ($key,      $value)    = '';
1446   open(FACONF, "$userpath/$filename")
1447     or $form->error("$userpath/$filename : $!");
1448   while (<FACONF>) {
1449     last if /^\[/;
1450     next if /^(#|\s)/;
1451
1452     # remove comments
1453     s/\s#.*//g;
1454
1455     # remove any trailing whitespace
1456     s/^\s*(.*?)\s*$/$1/;
1457     ($key, $value) = split /=/, $_, 2;
1458
1459     #if ($value eq ' '){
1460     #   $form->{$key} = " " ;
1461     #} elsif ($value ne ' '){
1462     $form->{$key} = "$value";
1463
1464     #}
1465   }
1466   close FACONF;
1467
1468   # Textboxen formatieren: Linebreaks entfernen
1469   #
1470   #$form->{FA_Oeffnungszeiten} =~ s/\\\\n/<br>/g;
1471   $lxdebug->leave_sub();
1472 }
1473
1474 sub save {
1475   $lxdebug->enter_sub();
1476   my $filename = $form->{filename};
1477
1478   #zuerst die steuernummer aus den part, parts_X_Y und delimiter herstellen
1479   create_steuernummer;
1480
1481   # Textboxen formatieren: Linebreaks entfernen
1482   #
1483   $form->{FA_Oeffnungszeiten} =~ s/\r\n/\\n/g;
1484
1485   #URL mit http:// davor?
1486   $form->{FA_Internet} =~ s/^http:\/\///;
1487   $form->{FA_Internet} = 'http://' . $form->{FA_Internet};
1488
1489   my @config = qw(elster elsterland elstersteuernummer steuernummer
1490     elsteramt elsterFFFF FA_Name FA_Strasse
1491     FA_PLZ FA_Ort FA_Telefon FA_Fax FA_PLZ_Grosskunden
1492     FA_PLZ_Postfach FA_Postfach FA_BLZ_1 FA_Kontonummer_1
1493     FA_Bankbezeichnung_1 FA_BLZ_2 FA_Kontonummer_2
1494     FA_Bankbezeichnung_oertlich FA_Oeffnungszeiten
1495     FA_Email FA_Internet FA_voranmeld method FA_steuerberater_name
1496     FA_steuerberater_street FA_steuerberater_city FA_steuerberater_tel
1497     FA_71 FA_dauerfrist);
1498
1499   # Hier kommt dann die Plausibilitätsprüfung der ELSTERSteuernummer
1500   if ($form->{elstersteuernummer} ne '000000000') {
1501     $form->{elster} = '1';
1502     open(CONF, ">$userspath/$filename") or $form->error("$filename : $!");
1503
1504     # create the config file
1505     print CONF qq|# Configuration file for USTVA\n\n|;
1506     my $key = '';
1507     foreach $key (sort @config) {
1508       $form->{$key} =~ s/\\/\\\\/g;
1509       $form->{$key} =~ s/"/\\"/g;
1510
1511       # strip M
1512       $form->{$key} =~ s/\r\n/\n/g;
1513       print CONF qq|$key=|;
1514       if ($form->{$key} ne 'Y') {
1515         print CONF qq|$form->{$key}\n|;
1516       }
1517       if ($form->{$key} eq 'Y') {
1518         print CONF qq|checked \n|;
1519       }
1520     }
1521     print CONF qq|\n\n|;
1522     close CONF;
1523     $form->{saved} = $locale->text('saved');
1524
1525   } else {
1526
1527     $form->{saved} = $locale->text('Bitte eine Steuernummer angeben');
1528   }
1529
1530   &edit_form;
1531   $lxdebug->leave_sub();
1532 }
1533
1534 sub show_fa_daten {
1535   $lxdebug->enter_sub();
1536   my $readonly        = $_;
1537   my $oeffnungszeiten = $form->{FA_Oeffnungszeiten};
1538   $oeffnungszeiten =~ s/\\\\n/\n/g;
1539   print qq|    <br>
1540                <fieldset>
1541                <legend>
1542                <font size="+1">|
1543     . $locale->text('Finanzamt')
1544     . qq| $form->{FA_Name}</font>
1545                </legend>
1546   |;
1547
1548   #print qq|\n<h4>$form->{FA_Ergaenzung_Name}&nbsp;</h4>
1549   #        | if ( $form->{FA_Ergaenzung_Name} );
1550   print qq|
1551                <table width="100%" valign="top">
1552                <tr>
1553                 <td valign="top">
1554                   <br>
1555                   <fieldset>
1556                     <legend>
1557                     <b>| . $locale->text('Address') . qq|</b>
1558                     </legend>
1559
1560                   <table width="100%">
1561                    <tr>
1562                     <td colspan="2">
1563                      <input name="FA_Strasse" size="40" title="FA_Strasse" value="$form->{FA_Strasse}" $readonly>
1564                     </td width="100%">
1565                    </tr>
1566                    <tr>
1567                     <td width="116px">
1568                      <input name="FA_PLZ" size="10" title="FA_PLZ" value="$form->{FA_PLZ}" $readonly>
1569                     </td>
1570                     <td>
1571                      <input name="FA_Ort" size="20" title="FA_Ort" value="$form->{FA_Ort}" $readonly>
1572                     </td>
1573                   </tr>
1574                   </table>
1575                   </fieldset>
1576                   <br>
1577                   <fieldset>
1578                   <legend>
1579                   <b>| . $locale->text('Kontakt') . qq|</b>
1580                   </legend>
1581                       | . $locale->text('Telefon') . qq|<br>
1582                       <input name="FA_Telefon" size="40" title="FA_Telefon" value="$form->{FA_Telefon}" $readonly>
1583                       <br>
1584                       <br>
1585                       | . $locale->text('Fax') . qq|<br>
1586                       <input name="FA_Fax" size="40" title="FA_Fax" value="$form->{FA_Fax}" $readonly>
1587                       <br>
1588                       <br>
1589                       | . $locale->text('Internet') . qq|<br>
1590                       <input name="FA_Email" size="40" title="FA_Email" value="$form->{FA_Email}" $readonly>
1591                       <br>
1592                       <br>
1593                       <input name="FA_Internet" size="40" title="" title="FA_Internet" value="$form->{FA_Internet}" $readonly>
1594                       <br>
1595                   </fieldset>
1596                 </td>
1597                 <td valign="top">
1598                   <br>
1599                   <fieldset>
1600                   <legend>
1601                   <b>| . $locale->text('Öffnungszeiten') . qq|</b>
1602                   </legend>
1603                   <textarea name="FA_Oeffnungszeiten" rows="4" cols="40" $readonly>$oeffnungszeiten</textarea>
1604                   </fieldset>
1605                   <br>
1606   |;
1607   my $FA_1 =
1608     (   $form->{FA_BLZ_1} ne ''
1609      && $form->{FA_Kontonummer_1}     ne ''
1610      && $form->{FA_Bankbezeichnung_1} ne '');
1611   my $FA_2 =
1612     (   $form->{FA_BLZ_2} ne ''
1613      && $form->{FA_Kontonummer_2}            ne ''
1614      && $form->{FA_Bankbezeichnung_oertlich} ne '');
1615
1616   if ($FA_1 && $FA_2) {
1617     print qq|
1618                     <fieldset>
1619                     <legend>
1620                     <b>|
1621       . $locale->text('Bankverbindungen des Finanzamts') . qq|</b>
1622                     <legend>
1623                     <table>
1624                     <tr>
1625                      <td>
1626                         | . $locale->text('Kreditinstitut') . qq|
1627                         <br>
1628                         <input name="FA_Bankbezeichnung_1" size="30" value="$form->{FA_Bankbezeichnung_1}" $readonly>
1629                         <br>
1630                         <br>
1631                         | . $locale->text('Kontonummer') . qq|
1632                         <br>
1633                         <input name="FA_Kontonummer_1" size="15" value="$form->{FA_Kontonummer_1}" $readonly>
1634                         <br>
1635                         <br>
1636                         | . $locale->text('Bankleitzahl') . qq|
1637                         <br>
1638                         <input name="FA_BLZ_1" size="15" value="$form->{FA_BLZ_1}" $readonly>
1639                      </td>
1640                      <td>
1641                         | . $locale->text('Kreditinstitut') . qq|
1642                         <br>
1643                         <input name="FA_Bankbezeichnung_oertlich" size="30" value="$form->{FA_Bankbezeichnung_oertlich}" $readonly>
1644                         <br>
1645                         <br>
1646                         | . $locale->text('Kontonummer') . qq|
1647                         <br>
1648                         <input name="FA_Kontonummer_2" size="15" value="$form->{FA_Kontonummer_2}" $readonly>
1649                         <br>
1650                         <br>
1651                         | . $locale->text('Bankleitzahl') . qq|
1652                         <br>
1653                         <input name="FA_BLZ_2" size="15" value="$form->{FA_BLZ_2}" $readonly>
1654                      </td>
1655                     </tr>
1656                     </table>
1657                     </fieldset>
1658     |;
1659   } elsif ($FA_1) {
1660     print qq|
1661                     <fieldset>
1662                     <legend>
1663                       <b>|
1664       . $locale->text('Bankverbindung des Finanzamts') . qq|</b>
1665                     <legend>
1666                     | . $locale->text('Kontonummer') . qq|
1667                     <br>
1668                     <input name="FA_Kontonummer_1" size="30" value="$form->{FA_Kontonummer_1}" $readonly>
1669                     <br>
1670                     <br>
1671                     | . $locale->text('Bankleitzahl (BLZ)') . qq|
1672                     <br>
1673                     <input name="FA_BLZ_1" size="15" value="$form->{FA_BLZ_1}" $readonly>
1674                     <br>
1675                     <br>
1676                     | . $locale->text('Kreditinstitut') . qq|
1677                     <br>
1678                     <input name="FA_Bankbezeichnung_1" size="15" value="$form->{FA_Bankbezeichnung_1}" $readonly>
1679                     <br>
1680                     </fieldset>
1681     |;
1682   } else {
1683     print qq|
1684                     <fieldset>
1685                     <legend>
1686                       <b>|
1687       . $locale->text('Bankverbindung des Finanzamts') . qq|</b>
1688                     <legend>
1689                     | . $locale->text('Kontonummer') . qq|
1690                     <br>
1691                     <input name="FA_Kontonummer_2" size="30" value="$form->{FA_Kontonummer_2}" $readonly>
1692                     <br>
1693                     <br>
1694                     | . $locale->text('Bankleitzahl (BLZ)') . qq|
1695                     <br>
1696                     <input name="FA_BLZ_2" size="15" value="$form->{FA_BLZ_2}" $readonly>
1697                     <br>
1698                     <br>
1699                     | . $locale->text('Kreditinstitut') . qq|
1700                     <br>
1701                     <input name="FA_Bankbezeichnung_oertlich" size="15" value="$form->{FA_Bankbezeichnung_oertlich}" $readonly>
1702                     </fieldset>
1703     |;
1704   }
1705   print qq|
1706                  </td>
1707                </tr>
1708           </table>
1709   </fieldset>
1710   |;
1711   $lxdebug->leave_sub();
1712 }
1713
1714 sub create_winston {
1715   $lxdebug->enter_sub();
1716   &get_config($userspath, 'finanzamt.ini');
1717
1718   # There is no generic Linux GNU/GPL solution out for using ELSTER.
1719   # In lack of availability linux users may use windows pendants. I choose
1720   # WINSTON, because it's free of coast, it has an API and its tested under
1721   # Linux using WINE.
1722   # The author of WINSTON developed some c-code to realize ELSTER under
1723   # WINDOWS and Linux (http://www.felfri.de/fa_xml/). Next year (2005) I start to
1724   # develop a server side solution for LX-Office ELSTER under Linux and
1725   # WINDOWS based on this c-code.
1726   #
1727   # You need to download WINSTON from http://www.felfri.de/winston/
1728   # There (http://www.felfri.de/winston/download.htm) you'll find instructions
1729   # about WINSTON under Linux WINE
1730   # More infos about Winstons API: http://www.felfri.de/winston/schnittstellen.htm
1731   my $azr  = '';
1732   my $file = '';    # Filename for Winstonfile
1733   $file .= 'U';     # 1. char 'U' = USTVA
1734
1735 SWITCH:
1736   {    # 2. and 3. char 01-12= Month 41-44= Quarter (azr:Abrechnungszeitraum)
1737     $form->{duetyp} eq "01" && do {
1738       $azr = "01";
1739       last SWITCH;
1740     };
1741     $form->{duetyp} eq "02" && do {
1742       $azr = "02";
1743       last SWITCH;
1744     };
1745     $form->{duetyp} eq "03" && do {
1746       $azr = "03";
1747       last SWITCH;
1748     };
1749     $form->{duetyp} eq "04" && do {
1750       $azr = "04";
1751       last SWITCH;
1752     };
1753     $form->{duetyp} eq "05" && do {
1754       $azr = "05";
1755       last SWITCH;
1756     };
1757     $form->{duetyp} eq "06" && do {
1758       $azr = "06";
1759       last SWITCH;
1760     };
1761     $form->{duetyp} eq "07" && do {
1762       $azr = "07";
1763       last SWITCH;
1764     };
1765     $form->{duetyp} eq "08" && do {
1766       $azr = "08";
1767       last SWITCH;
1768     };
1769     $form->{duetyp} eq "09" && do {
1770       $azr = "09";
1771       last SWITCH;
1772     };
1773     $form->{duetyp} eq "10" && do {
1774       $azr = "10";
1775       last SWITCH;
1776     };
1777     $form->{duetyp} eq "11" && do {
1778       $azr = "11";
1779       last SWITCH;
1780     };
1781     $form->{duetyp} eq "12" && do {
1782       $azr = "12";
1783       last SWITCH;
1784     };
1785     $form->{duetyp} eq "A" && do {
1786       $azr = "41";
1787       last SWITCH;
1788     };
1789     $form->{duetyp} eq "B" && do {
1790       $azr = "42";
1791       last SWITCH;
1792     };
1793     $form->{duetyp} eq "C" && do {
1794       $azr = "43";
1795       last SWITCH;
1796     };
1797     $form->{duetyp} eq "D" && do {
1798       $azr = "44";
1799       last SWITCH;
1800     };
1801     do {
1802       $form->error(
1803         "Ungültiger Anmeldezeitraum.\n
1804                                         Sie können für ELSTER nur einen monatlichen oder
1805                                         quartalsweisen Anmeldezeitraum auswählen."
1806       );
1807     };
1808   }
1809
1810   $file .= $azr;
1811
1812   #4. and 5. char = year modulo 100
1813   $file .= sprintf("%02d", $form->{year} % 100);
1814
1815   #6. to 18. char = Elstersteuernummer
1816   #Beispiel: Steuernummer in Bayern
1817   #111/222/33334 ergibt für UStVA Jan 2004: U01049111022233334
1818
1819   $file .= $form->{elsterFFFF};
1820   $file .= $form->{elstersteuernummer};
1821
1822   #file suffix
1823
1824   $file .= '.xml';
1825   $form->{elsterfile} = $file;
1826
1827   #Calculations
1828
1829   my $k51 =
1830     sprintf("%d", $form->parse_amount(\%myconfig, $form->{"51"}))
1831     ;    # Umsätze zu 16% USt
1832   my $k86 =
1833     sprintf("%d", $form->parse_amount(\%myconfig, $form->{"86"}))
1834     ;    # Umsätze zu 7% USt
1835   my $k97 =
1836     sprintf("%d", $form->parse_amount(\%myconfig, $form->{"97"}))
1837     ;    # 16% Steuerpflichtige innergemeinsachftliche Erwerbe
1838   my $k93 =
1839     sprintf("%d", $form->parse_amount(\%myconfig, $form->{"93"}))
1840     ;    # 16% Steuerpflichtige innergemeinsachftliche Erwerbe
1841   my $k94 =
1842     sprintf("%d", $form->parse_amount(\%myconfig, $form->{"94"}))
1843     ;    # neuer Fahrzeuge von Lieferern
1844   my $k66 =
1845     $form->parse_amount(\%myconfig, $form->{"66"}) *
1846     100;    # Vorsteuer 7% plus 16%
1847   my $k83 =
1848     $form->parse_amount(\%myconfig, $form->{"67"}) * 100;   # Umsätze zu 7% USt
1849   my $k96 = $form->parse_amount(\%myconfig, $form->{"96"}) * 100;    #
1850                                                                      #
1851         # Now build the xml content
1852         #
1853
1854   $form->{elster} = qq|<?xml version="1.0" encoding="ISO-8859-1" ?>
1855 <!-- Diese Datei ist mit Lx-Office $form->{version} generiert -->
1856 <WinstonAusgang>
1857  <Formular Typ="UST"></Formular>
1858  <Ordnungsnummer>$form->{elstersteuernummer}</Ordnungsnummer>
1859  <AnmeldeJahr>$form->{year}</AnmeldeJahr>
1860  <AnmeldeZeitraum>$azr</AnmeldeZeitraum>
1861   |;
1862
1863   $form->{elster} .= qq|<Kennzahl Nr="51">$k51</Kennzahl>\n| if ($k51 ne '0');
1864   $form->{elster} .= qq|<Kennzahl Nr="86">$k86</Kennzahl>\n| if ($k86 ne '0');
1865   $form->{elster} .= qq|<Kennzahl Nr="97">$k97</Kennzahl>\n| if ($k97 ne '0');
1866   $form->{elster} .= qq|<Kennzahl Nr="93">$k93</Kennzahl>\n| if ($k93 ne '0');
1867   $form->{elster} .= qq|<Kennzahl Nr="94">$k94</Kennzahl>\n| if ($k94 ne '0');
1868   $form->{elster} .= qq|<Kennzahl Nr="96">$k96</Kennzahl>\n| if ($k96 ne '0');
1869   $form->{elster} .= qq|<Kennzahl Nr="66">$k66</Kennzahl>\n| if ($k66 ne '0');
1870   $form->{elster} .= qq|<Kennzahl Nr="83">$k83</Kennzahl>\n| if ($k83 ne '0');
1871   $form->{elster} .= qq|\n</WinstonAusgang>\n\n|;
1872
1873   #$form->header;
1874   #print qq|$form->{elsterfile}|;
1875   #print qq|$form->{elster}|;
1876   $SIG{INT} = 'IGNORE';
1877
1878   &save_winston;
1879   $lxdebug->leave_sub();
1880 }
1881
1882 sub save_winston {
1883   $lxdebug->enter_sub();
1884   my $elster     = $form->{elster};
1885   my $elsterfile = $form->{elsterfile};
1886   open(OUT, ">-") or $form->error("STDOUT : $!");
1887   print OUT qq|Content-Type: application/file;
1888 Content-Disposition: attachment; filename="$elsterfile"\n\n|;
1889   print OUT $elster;
1890   close(OUT);
1891   $lxdebug->leave_sub();
1892 }
1893
1894 sub continue {
1895   $lxdebug->enter_sub();
1896
1897   # allow Symbolic references just here:
1898   no strict 'refs';
1899   &{ $form->{nextsub} };
1900   use strict 'refs';
1901   $lxdebug->leave_sub();
1902 }
1903
1904 sub back { &{ $form->{lastsub} } }
1905
1906 sub elster_hash {
1907   $lxdebug->enter_sub();
1908   my $finanzamt = USTVA::query_finanzamt(\%myconfig, \%$form);
1909   $lxdebug->leave_sub();
1910   return $finanzamt;
1911 }
1912
1913 sub test {
1914   $lxdebug->enter_sub();
1915
1916   # biegt nur den Testeintrag in Programm->Test auf eine Routine um
1917
1918   $form->header;
1919   &elster_send;
1920   $lxdebug->leave_sub();
1921 }
1922
1923 sub elster_send {
1924   $lxdebug->enter_sub();
1925
1926   #read config
1927   my $elster_conf = &elster_conf();
1928   &elster_xml();
1929   use Cwd;
1930   $form->{cwd}     = cwd();
1931   $form->{tmpdir}  = $form->{cwd} . '/' . $elster_conf->{'path'};
1932   $form->{tmpfile} = $elster_conf->{'err'};
1933   my $caller = $elster_conf->{'call'}[0];
1934
1935   chdir("$form->{tmpdir}") or $form->error($form->cleanup . "chdir : $!");
1936   my $send =
1937     "faxmlsend $caller -config etc/faxmlsend.cnf -xml faxmlsend.xml -tt faxmlsend.tt -debug";
1938
1939   system("$send > $form->{tmpfile}");
1940   $form->{tmpdir} .= "$elster_conf->{'path'}/";
1941   $form->{tmpfile} = "faxmlsend.err";
1942   $form->error($form->cleanup
1943         . "faxmlsend : OFD meldet: Error 404 \n Internetseite nicht vorhanden")
1944     if ($? eq '1024');
1945   $form->error($form->cleanup
1946     . "faxmlsend : No such File: faxmlsend.xml \n Fehlernummer: $? \n Problem beim öffnen der faxmlsend.xml"
1947     )
1948     if ($?);
1949
1950   # foreach my $line (&elster_feedback("$elster_conf->{'path'}")){
1951   #   print qq|$line\n|;
1952   # }
1953   print qq|Log:<br>|;
1954
1955   #for (my $i=0; $i<= )
1956   &elster_readlog();
1957   print qq|\n ende\n|;
1958   $lxdebug->leave_sub();
1959 }
1960
1961 sub elster_readlog {
1962   $lxdebug->enter_sub();
1963   my $elster_conf = &elster_conf();
1964   open(LOG, "$elster_conf->{'logfile'}")
1965     or $form->error("$elster_conf->{'logfile'}: $!");
1966   print qq|<listing>|;
1967   my $log = '';
1968   my $xml = '';
1969   my $tmp = '';
1970   while (<LOG>) {
1971     my $i = 0;
1972
1973     #$_ =~ s/</&lt\;/;
1974     #$_ =~ s/>/&gt\;/;
1975     $_ =~ s/\s+//mg;
1976
1977     #$_ =~ s/\015\012//mg;
1978     $_ =~ s/</\n</mg;
1979
1980     #$_ =~ s/\n\n+//mg;
1981     if ($_ =~ /^\d\d\d\d\d\d/g) {
1982       $log .= qq|$_<br>|;
1983
1984       #} elsif ($_ =~ /(<([^\/]*?)>)/ ) {
1985     } elsif ($_ =~ /(<([^\/].*?)>(.*))/g) {
1986
1987       #$xml .= qq|$2 = $3\n\n|;
1988       #$_ =~ s/\015\012//mg;
1989       $_ =~ s/\s+//;
1990       $xml .= qq|$_\n|;
1991
1992     } else {
1993       $tmp .= qq|$_<br>|;
1994     }
1995     $i++;
1996   }
1997
1998   #second parse
1999   #my $var='';
2000   #while (<$xml>){
2001   #  $var .= qq|$2 = $3\n\n|;
2002   #}
2003   #print qq|$log|;
2004   print qq|$xml|;
2005   print qq|</listing>|;
2006
2007   # $_=$log;
2008   #  s{<(\w+)\b([^<>]*)>
2009   #    ((?:.(?!</?\1\b))*.)
2010   #      (<\1>) }
2011   #   { print "markup=",$1," args=",$2," enclosed=",$3," final=",$4 ; "" }gsex;
2012   close LOG;
2013   $lxdebug->leave_sub();
2014 }
2015
2016 sub elster_feedback {
2017   $lxdebug->enter_sub();
2018   my ($file) = @_;
2019   my @content = ();
2020   print qq|feedback:<br>|;
2021   if (-f "$file") {
2022     open(FH, "$file");
2023     @content = <FH>;
2024     close(FH);
2025   }
2026   $lxdebug->leave_sub();
2027   return (@content);
2028 }
2029
2030 sub elster_conf {
2031   $lxdebug->enter_sub();
2032   my $elster_conf = { 'path'     => 'elster',
2033                       'prg'      => 'faxmlsend',
2034                       'err'      => 'faxmlsend.err',
2035                       'ttfile'   => 'faxmlsend.tt',
2036                       'xmlfile'  => 'faxmlsend.xml',
2037                       'cline'    => '-tt $ttfile -xml $xmlfile',
2038                       'call'     => ['send', 'protokoll', 'anmeldesteuern'],
2039                       'logfile'  => 'log/faxmlsend.log',
2040                       'conffile' => 'faxmlsend.cnf',
2041                       'debug'    => '-debug' };
2042
2043   $lxdebug->leave_sub();
2044
2045   return $elster_conf;
2046 }
2047
2048 sub elster_xml {
2049   $lxdebug->enter_sub();
2050
2051   my $elster_conf = &elster_conf();
2052
2053   #  $k51 = sprintf("%d", $form->parse_amount(\%myconfig, $form->{"51"})); # Umsätze zu 16% USt
2054   #  $k86 = sprintf("%d", $form->parse_amount(\%myconfig, $form->{"86"})); # Umsätze zu 7% USt
2055   #  $k97 = sprintf("%d", $form->parse_amount(\%myconfig, $form->{"97"})); # 16% Steuerpflichtige innergemeinsachftliche Erwerbe
2056   #  $k93 = sprintf("%d", $form->parse_amount(\%myconfig, $form->{"93"})); # 16% Steuerpflichtige innergemeinsachftliche Erwerbe
2057   #  $k94 = sprintf("%d", $form->parse_amount(\%myconfig, $form->{"94"})); # neuer Fahrzeuge von Lieferern
2058   #  $k66 = $form->parse_amount(\%myconfig, $form->{"66"}) * 100;# Vorsteuer 7% plus 16%
2059   #  $k83 = $form->parse_amount(\%myconfig, $form->{"67"}) * 100;# Umsätze zu 7% USt
2060   #  $k96 = $form->parse_amount(\%myconfig, $form->{"96"}) * 100;#
2061
2062   my $TransferHeader = qq|<?xml version="1.0" encoding="ISO-8859-1"?>
2063 <?xml-stylesheet type="text/xsl" href="..\\Stylesheet\\ustva.xsl"?>
2064 <Elster xmlns="http://www.elster.de/2002/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.elster.de/2002/XMLSchema
2065 ..\\Schemata\\elster_UStA_200501_extern.xsd">
2066    <TransferHeader version="7">
2067       <Verfahren>ElsterAnmeldung</Verfahren>
2068       <DatenArt>UStVA</DatenArt>
2069       <Vorgang>send-NoSig</Vorgang>
2070       <Testmerker>700000004</Testmerker>
2071       <HerstellerID>74931</HerstellerID>
2072       <DatenLieferant>Helmut</DatenLieferant>
2073       <Datei>
2074         <Verschluesselung>PKCS#7v1.5</Verschluesselung>
2075         <Kompression>GZIP</Kompression>
2076         <DatenGroesse>123456789012345678901234567890123456789012</DatenGroesse>
2077         <TransportSchluessel/>
2078       </Datei>
2079       <RC>
2080         <Rueckgabe>
2081           <Code>0</Code>
2082           <Text/>
2083         </Rueckgabe>
2084         <Stack>
2085           <Code>0</Code>
2086           <Text/>
2087         </Stack>
2088       </RC>
2089       <VersionClient/>
2090       <Zusatz>
2091         <Info>test</Info>
2092       </Zusatz>
2093    </TransferHeader>|;
2094
2095   my $DatenTeil = qq|
2096    <DatenTeil>
2097       <Nutzdatenblock>
2098          <NutzdatenHeader version="9">
2099             <NutzdatenTicket>234234234</NutzdatenTicket>
2100             <Empfaenger id="F">9198</Empfaenger>
2101             <Hersteller>
2102                <ProduktName>ElsterAnmeldung</ProduktName>
2103                <ProduktVersion>V 1.4</ProduktVersion>
2104             </Hersteller>
2105             <DatenLieferant>String, der Lieferanteninfo enthaelt</DatenLieferant>
2106             <Zusatz>
2107               <Info>....</Info>
2108             </Zusatz>
2109          </NutzdatenHeader>
2110          <Nutzdaten>
2111             <!--die Version gibt Auskunft ueber das Jahr und die derzeit gueltige Versionsnummer-->
2112             <Anmeldungssteuern art="UStVA" version="200501">
2113                <DatenLieferant>
2114                   <Name>OFD Muenchen</Name>
2115                   <Strasse>Meiserstr. 6</Strasse>
2116                   <PLZ>80335</PLZ>
2117                   <Ort>München</Ort>
2118                </DatenLieferant>
2119                <Erstellungsdatum>20041127</Erstellungsdatum>
2120                <Steuerfall>
2121                   <Umsatzsteuervoranmeldung>
2122                      <Jahr>2005</Jahr>
2123                      <Zeitraum>01</Zeitraum>
2124                      <Steuernummer>9198011310134</Steuernummer>
2125                      <Kz09>74931*NameSteuerber.*Berufsbez.*089*59958327*Mandantenname</Kz09>
2126                   </Umsatzsteuervoranmeldung>
2127                </Steuerfall>
2128             </Anmeldungssteuern>
2129          </Nutzdaten>
2130       </Nutzdatenblock>
2131    </DatenTeil>
2132 </Elster>\n|;
2133
2134   #$DatenTeil .= qq|                              <Kz51>$k51</Kz51>\n| if ($k51 ne '0');
2135   #$DatenTeil .= qq|                              <Kz86>$k86</Kz86>\n| if ($k86 ne '0');
2136   #$DatenTeil .= qq|                              <Kz97>$k97</Kz97>\n| if ($k97 ne '0');
2137   #$DatenTeil .= qq|                              <Kz93>$k93</Kz93>\n| if ($k93 ne '0');
2138   #$DatenTeil .= qq|                              <Kz94>$k94</Kz94>\n| if ($k94 ne '0');
2139   #$DatenTeil .= qq|                              <Kz96>$k96</Kz96>\n| if ($k96 ne '0');
2140   #$DatenTeil .= qq|                              <Kz66>$k66</Kz66>\n| if ($k66 ne '0');
2141   #$DatenTeil .= qq|                              <Kz83>$k83</Kz83>\n| if ($k83 ne '0');
2142
2143   my $filename = "$elster_conf->{'path'}/$elster_conf->{'xmlfile'}";
2144   open(XML, ">$elster_conf->{'path'}/$elster_conf->{'xmlfile'}")
2145     or $form->error("$filename : $!");
2146   print XML qq|$TransferHeader $DatenTeil|;
2147   close XML;
2148   $lxdebug->leave_sub();
2149 }
2150