projekt kivitendo

# @tag: finanzamt_update_fa_bufa_nr_hamburg

# @description: Aktualisiert die fa_bufa_nr f?r Hamburg

# @depends: release_2_7_0

# @charset: utf-8

package finanzamt_update_fa_bufa_nr_hamburg;

use utf8;

use strict;

if ( !$::form ) {

  die('This script cannot be run from the command line.');

}

sub query {

  my ($query) = @_;

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

    die($dbup_locale->text('Database update error:') .'<br>'. $query .'<br>'. $DBI::errstr);

  }

}

my @data = (

    ['02', '41'],

    ['57', '42'],

    ['71', '43'],

    ['15', '43'],

    ['03', '44'],

    ['54', '45'],

    ['22', '46'],

    ['06', '47'],

    ['74', '48'],

    ['26', '49'],

    ['09', '50'],

    ['08', '51'],

  );

foreach my $entry (@data) {

  query('

    UPDATE finanzamt

    SET

      fa_bufa_nr = \'22'. $entry->[1] .'\'

    WHERE

          fa_land_nr = \'2\'

      AND fa_bufa_nr = \'22'. $entry->[0] .'\';');

}

return 1;