Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 05c6840d

Von Moritz Bunkus vor fast 14 Jahren hinzugefügt

  • ID 05c6840d4fbb90cbe81e14427617793c45ba4714
  • Vorgänger 2af9eae7
  • Nachfolger 9437bec6

Dateiencodings auf UTF-8 geändert

Fix für Bug 1375.

Unterschiede anzeigen:

SL/USTVA.pm
29 29 

  		




  30
  30
  
    
use SL::DBUtils;


  		




  31
  31
  
    

  		




  
  32
  
    
use utf8;


  		




  32
  33
  
    
use strict;


  		




  33
  34
  
    

  		




  34
  35
  
    
my @tax_office_information = (


  		




  35
  
  
    
  { 'id' =>  8, 'name' => 'Baden-W?rttemberg',      'taxbird_nr' => '0',  'elster_format' => 'FF/BBB/UUUUP',  },


  		




  
  36
  
    
  { 'id' =>  8, 'name' => 'Baden-Württemberg',      'taxbird_nr' => '0',  'elster_format' => 'FF/BBB/UUUUP',  },


  		




  36
  37
  
    
  { 'id' =>  9, 'name' => 'Bayern',                 'taxbird_nr' => '1',  'elster_format' => 'FFF/BBB/UUUUP', },


  		




  37
  38
  
    
  { 'id' => 11, 'name' => 'Berlin',                 'taxbird_nr' => '2',  'elster_format' => 'FF/BBB/UUUUP',  },


  		




  38
  39
  
    
  { 'id' => 12, 'name' => 'Brandenburg',            'taxbird_nr' => '3',  'elster_format' => 'FFF/BBB/UUUUP', },


  		




  ......




  47
  48
  
    
  { 'id' => 14, 'name' => 'Sachsen',                'taxbird_nr' => '12', 'elster_format' => 'FFF/BBB/UUUUP', },


  		




  48
  49
  
    
  { 'id' => 15, 'name' => 'Sachsen-Anhalt',         'taxbird_nr' => '13', 'elster_format' => 'FFF/BBB/UUUUP', },


  		




  49
  50
  
    
  { 'id' =>  1, 'name' => 'Schleswig-Holstein',     'taxbird_nr' => '14', 'elster_format' => 'FF BBB UUUUP',  },


  		




  50
  
  
    
  { 'id' => 16, 'name' => 'Th?ringen',              'taxbird_nr' => '15', 'elster_format' => 'FFF/BBB/UUUUP', },


  		




  
  51
  
    
  { 'id' => 16, 'name' => 'Thüringen',              'taxbird_nr' => '15', 'elster_format' => 'FFF/BBB/UUUUP', },


  		




  51
  52
  
    
  );


  		




  52
  53
  
    

  		




  53
  54
  
    
sub new {


  		




  ......




  69
  70
  
    

  		




  70
  71
  
    
  foreach (@tax_office_information) {


  		




  71
  72
  
    
    my $entry      = \%{ $_ };


  		




  72
  
  
    
    $entry->{name} = $main::locale->{iconv_iso8859}->convert($entry->{name});


  		




  
  73
  
    
    $entry->{name} = $::locale->{iconv_utf8}->convert($entry->{name});


  		




  73
  74
  
    
    push @{ $self->{tax_office_information} }, $entry;


  		




  74
  75
  
    
  }


  		




  75
  76
  
    
}


  		




  ......




  282
  283
  
    

  		




  283
  284
  
    
#  use SL::Form;


  		




  284
  285
  
    

  		




  285
  
  
    
  # Referenz wird ?bergeben, hash of hash wird nicht


  		




  286
  
  
    
  # in neues  Hash kopiert, sondern direkt ?ber die Referenz ver?ndert


  		




  287
  
  
    
  # Prototyp f?r diese Konstruktion


  		




  
  286
  
    
  # Referenz wird übergeben, hash of hash wird nicht


  		




  
  287
  
    
  # in neues  Hash kopiert, sondern direkt über die Referenz verändert


  		




  
  288
  
    
  # Prototyp für diese Konstruktion


  		




  288
  289
  
    

  		




  289
  290
  
    
  my ($self, $land, $elsterFFFF, $elster_init) = @_;


  		




  290
  291
  
    

  		




  ......




  302
  303
  
    
                var elsterBLAuswahl = document.verzeichnis.elsterland_new;


  		




  303
  304
  
    
                var elsterFAAuswahl = document.verzeichnis.elsterFFFF_new;


  		




  304
  305
  
    

  		




  305
  
  
    
                elsterFAAuswahl.options.length = 0; // dropdown aufr?umen


  		




  
  306
  
    
                elsterFAAuswahl.options.length = 0; // dropdown aufräumen


  		




  306
  307
  
    
                |;


  		




  307
  308
  
    

  		




  308
  309
  
    
  foreach my $elster_land (sort keys %$elster_init) {


  		




  ......




  427
  428
  
    
  $main::lxdebug->enter_sub();


  		




  428
  429
  
    

  		




  429
  430
  
    
  # noch nicht fertig


  		




  430
  
  
    
  # soll mal eine Erinnerungsfunktion f?r USTVA Abgaben werden, die automatisch


  		




  431
  
  
    
  # den Termin der n?chsten USTVA anzeigt.


  		




  
  431
  
    
  # soll mal eine Erinnerungsfunktion für USTVA Abgaben werden, die automatisch


  		




  
  432
  
    
  # den Termin der nächsten USTVA anzeigt.


  		




  432
  433
  
    
  #


  		




  433
  434
  
    
  #


  		




  434
  435
  
    
  my ($today, $FA_dauerfrist, $FA_voranmeld) = @_;


  		




  ......




  522
  523
  
    

  		




  523
  524
  
    
    #There is no table, read the table from sql/finanzamt.sql


  		




  524
  525
  
    
    print qq|<p>Bitte warten, Tabelle $table wird einmalig in Datenbank:


  		




  525
  
  
    
    $myconfig->{dbname} als Benutzer: $myconfig->{dbuser} hinzugef?gt...</p>|;


  		




  
  526
  
    
    $myconfig->{dbname} als Benutzer: $myconfig->{dbuser} hinzugefügt...</p>|;


  		




  526
  527
  
    
    process_query($form, $dbh, $filename) || $self->error(DBI->errstr);


  		




  527
  528
  
    

  		




  528
  529
  
    
    #execute second last call


  		




  ......




  741
  742
  
    
  }


  		




  742
  743
  
    

  		




  743
  744
  
    

  		




  744
  
  
    
  # Fixme: Wird auch noch f?r Oesterreich gebraucht,


  		




  
  745
  
    
  # Fixme: Wird auch noch für Oesterreich gebraucht,


  		




  745
  746
  
    
  # weil kein eigenes Ausgabeformular


  		




  746
  
  
    
  # sotte aber aus der allgem?inen Steuerberechnung verschwinden


  		




  
  747
  
    
  # sotte aber aus der allgeméinen Steuerberechnung verschwinden


  		




  747
  748
  
    
  #


  		




  748
  749
  
    
  # Berechnung der USTVA Formularfelder laut Bogen 207


  		




  749
  750
  
    
  #


  		




  ......




  925
  926
  
    

  		




  926
  927
  
    
  #########################################


  		




  927
  928
  
    
  # Ausgaben und Gl Buchungen sind gleich


  		




  928
  
  
    
  # f?r Ist- und Soll-Versteuerung


  		




  
  929
  
    
  # für Ist- und Soll-Versteuerung


  		




  929
  930
  
    
  #########################################


  		




  930
  931
  
    
  $query .= qq|


  		




  931
  932
  
    
     UNION -- alle Ausgaben AP erfassen


  		












Auch abrufbar als:  Unified diff