projekt kivitendo

use SL::MoreCommon;

use Data::Dumper;

sub close_orders_if_billed {

  $main::lxdebug->enter_sub();

use SL::User;

use SL::DBUtils;

sub new {

  $main::lxdebug->enter_sub();

    $dsn .= ';port=' . $cfg->{port};

  }

  $self->{dbh} = DBI->connect($dsn, $cfg->{user}, $cfg->{password}, { 'AutoCommit' => 0 });

    $dsn .= ';port=' . $cfg->{port};

  }

  my $dbh = DBI->connect($dsn, $params{superuser}, $params{superuser_password});

  my $query = qq|CREATE DATABASE "$cfg->{db}" OWNER "$cfg->{user}" TEMPLATE "$params{template}" ENCODING '$encoding'|;

  $dbh->do($query);

use SL::DBUtils;

sub get_vc {

  $main::lxdebug->enter_sub();

  my $vc = $form->{vc} eq "customer" ? "customer" : "vendor";

  my $arap_type = defined($arap{$form->{type}}) ? $arap{$form->{type}} : 'ar';

    qq|SELECT count(*) | .

    qq|FROM (SELECT DISTINCT ON (vc.id) vc.id FROM $vc vc, $arap_type a, status s | .

    qq|  WHERE a.${vc}_id = vc.id  AND s.trans_id = a.id AND s.formname = ? | .

      qq|WHERE a.${vc}_id = vc.id AND s.trans_id = a.id AND s.formname = ? | .

      qq|  AND s.spoolfile IS NOT NULL|;

    $sth->execute($form->{type}) || $form->dberror($query . " ($form->{type})");

    $form->{"all_${vc}"} = [];

      push @{ $form->{"all_${vc}"} }, $ref;

    }

    $sth->finish;

  $sth->execute($form->{type}) || $form->dberror($query . " ($form->{type})");

  $form->{accounts} = [];

    push @{ $form->{accounts} }, $ref;

  }

    }

  }

  my $sortorder = join ', ', $form->sort_columns(@a);

  if (grep({ $_ eq $form->{sort} }

    $form->dberror($query . " (" . join(", ", @values) . ")");

  $form->{SPOOL} = [];

    push @{ $form->{SPOOL} }, $ref;

  }

      open(OUT, $output) or $form->error("$output : $!");

      $form->{"spoolfile_$i"} =~ s|.*/||;

      # send file to printer

      open(IN, $spoolfile) or $form->error("$spoolfile : $!");

use SL::DBUtils;

@db_encodings = (

  { "label" => "ASCII",          "dbencoding" => "SQL_ASCII", "charset" => "ASCII" },

use SL::Common;

require Exporter;

sub parse_dbupdate_controls {

  $main::lxdebug->enter_sub();

use Data::Dumper;

use SL::DBUtils;

sub delete_transaction {

  my ($self, $myconfig, $form) = @_;

  $main::lxdebug->enter_sub();

    $form->{taxincluded} = 0;

  }

  if ($form->{id}) {

  # connect to database

  my $dbh = $form->dbconnect($myconfig);

  my ($glwhere, $arwhere, $apwhere) = ("1 = 1", "1 = 1", "1 = 1");

  my (@glvalues, @arvalues, @apvalues);

    push(@apvalues, $project_id, $project_id);

  }

  if ($form->{"l_projectnumbers"}) {

    $project_columns = qq|, ac.project_id, pr.projectnumber|;

    $project_join = qq|LEFT JOIN project pr ON (ac.project_id = pr.id)|;

    }

  }

  my %sort_columns =  (

    'id'           => [ qw(id)                   ],

    map { $columns_for_sorting{$_} .= sprintf(', lower(%s) AS lower_%s', $lowered_columns{$column}->{$_}, $column) } qw(gl arap);

  }

    qq|SELECT

        ac.acc_trans_id, g.id, 'gl' AS type, $false AS invoice, g.reference, ac.taxkey, c.link,

        g.description, ac.transdate, ac.source, ac.trans_id,

  my @values = (@glvalues, @arvalues, @apvalues);

  # Show all $query in Debuglevel LXDebug::QUERY

  $sth = prepare_execute_query($form, $dbh, $query, @values);

  my $trans_id  = "";

  my $trans_id2 = "";

  my ($i, $j, $k, $l, $ref, $ref2);

  $form->{GL} = [];

    $trans_id = $ref0->{id};

    } else { # following lines of a booking, line increasing

      $ref2      = $ref0;

      $trans_id2 = $ref2->{id};

      $balance =

  if ($form->{id}) {

    $query =

      qq|SELECT g.reference, g.description, g.notes, g.transdate, g.storno, g.storno_id,

         g.ob_transaction, g.cb_transaction

         FROM gl g

         LEFT JOIN department d ON (d.id = g.department_id)

  # now copy acc_trans entries

  $query = qq|SELECT * FROM acc_trans WHERE trans_id = ?|;

  for my $row (@$rowref) {

    delete @$row{qw(itime mtime)};

use SL::MoreCommon;

use List::Util qw(min);

sub post_invoice {

  $main::lxdebug->enter_sub();

  my ($amount, $linetotal, $lastinventoryaccno, $lastexpenseaccno);

  my ($netamount, $invoicediff, $expensediff) = (0, 0, 0);

  my $exchangerate = 0;

  my $all_units = AM->retrieve_units($myconfig, $form);

    $price_factor = $price_factors{ $form->{"price_factor_id_$i"} } || 1;

    #####################################################################

    # das ist aus IS.pm kopiert. schlimm. jb 7.10.2009

    # ... vier stellen = (einkauf + verkauf) * (maske + backend)

    # ansonsten stolpert man immer wieder viermal statt einmal heftig

    # und auch das undo discount formatting ist nicht besonders wartungsfreundlich

    # keep entered selling price

    # keine ahnung wofür das in IS.pm gemacht wird:

    #      my ($dec) = ($fxsellprice =~ /\.(\d+)/);

    $form->{"discount_$i"} = $form->parse_amount($myconfig, $form->{"discount_$i"}) / 100;

    # deduct discount

    $form->{"sellprice_$i"} = $fxsellprice * (1 - $form->{"discount_$i"});

    ######################################################################

    if ($form->{"inventory_accno_$i"}) {

           ORDER BY transdate|;

      $sth = prepare_execute_query($form, $dbh, $query, conv_i($form->{"id_$i"}));

        my $qty    = min $totalqty, ($ref->{base_qty} + $ref->{allocated});

        $linetotal = $form->round_amount(($form->{"sellprice_$i"} * $qty) / $basefactor, 2);

  my $netamount = 0;

    $netamount += $form->round_amount($ref->{sellprice} * $ref->{qty} * -1, 2);

    next unless $ref->{inventory_accno_id};

         ORDER BY transdate DESC|;

      my $sth2 = prepare_execute_query($form, $dbh, $query, $ref->{parts_id});

        my $qty = $ref->{allocated};

        if (($ref->{allocated} + $pthref->{allocated}) > 0) {

          $qty = $pthref->{allocated} * -1;

        ORDER BY i.id|;

  $sth = prepare_execute_query($form, $dbh, $query, conv_i($form->{id}));

    # Retrieve custom variables.

    my $cvars = CVar->get_custom_variables(dbh        => $dbh,

                                           module     => 'IC',

    $ref->{taxaccounts} = "";

    my $i = 0;

      if (($ptr->{accno} eq "") && ($ptr->{rate} == 0)) {

        $i++;

        $ptr->{accno} = $i;

       LEFT JOIN business b       ON (b.id = v.business_id)

       LEFT JOIN payment_terms pt ON (v.payment_id = pt.id)

       WHERE 1=1 $where|;

  map { $params->{$_} = $ref->{$_} } keys %$ref;

  $params->{creditremaining} = $params->{creditlimit};

    for $ref (@$refs) {

      if ($ref->{category} eq 'E') {

        $i++;

        if ($params->{initial_transdate}) {

          my $tax_query = qq|SELECT tk.tax_id, t.rate FROM taxkeys tk

                             LEFT JOIN tax t ON (tk.tax_id = t.id)

                             WHERE (tk.chart_id = ?) AND (startdate <= ?)

                             ORDER BY tk.startdate DESC

                             LIMIT 1|;

          $params->{"taxchart_$i"} = "${tax_id}--${rate}";

        }

  my $sth = prepare_execute_query($form, $dbh, $query, @values);

  $form->{item_list} = [];

    # In der Buchungsgruppe ist immer ein Bestandskonto verknuepft, auch wenn

    # es sich um eine Dienstleistung handelt. Bei Dienstleistungen muss das

    delete($ref->{inventory_accno_id});

    # get tax rates and description

    $query =

      qq|SELECT c.accno, t.taxdescription, t.rate, t.taxnumber

         FROM tax t

    $ref->{taxaccounts} = "";

    my $i = 0;

      #    if ($customertax{$ref->{accno}}) {

      if (($ptr->{accno} eq "") && ($ptr->{rate} == 0)) {

       ORDER BY accno|;

  my $sth = prepare_execute_query($query, $dbh, $query);

    foreach my $key (split(/:/, $ref->{link})) {

      if ($key =~ /IC/) {

        push @{ $form->{IC_links}{$key} },

package IS;

use List::Util qw(max);

use SL::AM;

use SL::IC;

use Data::Dumper;

sub invoice_details {

  $main::lxdebug->enter_sub();

use IO::File;

sub new {

  $main::lxdebug->enter_sub(2);

use SL::Form;

sub save_license {

  $main::lxdebug->enter_sub();

  my ($self, $myconfig, $form) = @_;

    qq| INSERT INTO license (licensenumber) VALUES ('$form->{licensenumber}')|;

  $sth->execute || $form->dberror($query);

  $sth->finish();

    qq|SELECT l.id FROM license l WHERE l.licensenumber = '$form->{licensenumber}'|;

  $sth = $dbh->prepare($query);

  $sth->execute || $form->dberror($query);

  $sth->finish();

  # save license

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

  $sth->execute || $form->dberror($query);

  $form->{"all_customers"} = [];

    push(@{ $form->{"all_customers"} }, $ref);

  }

  $sth->finish();

  $sth = $dbh->prepare($query);

  $sth->execute() || $form->dberror($query);

  $form->{"licenses"} = [];

    push(@{ $form->{"licenses"} }, $ref);

  }

    . $form->{"id"};

  $sth = $dbh->prepare($query);

  $sth->execute() || $form->dberror($query);

  $sth->finish();

  $dbh->disconnect();

  $main::lxdebug->leave_sub();

use SL::Common;

use SL::Inifile;

sub new {

  $main::lxdebug->enter_sub();

  my $longdate  = "";

  my $longmonth = ($longformat) ? 'LONG_MONTH' : 'SHORT_MONTH';

  if ($date) {

    # get separator

  $main::lxdebug->enter_sub();

  my ($self, $myconfig, $date, $longformat) = @_;

  unless ($date) {

    $main::lxdebug->leave_sub();

package SL::MoreCommon;

require Exporter;

use YAML;

use SL::AM;

sub save_form {

  $main::lxdebug->enter_sub();

use SL::DBUtils;

use SL::CVar;

my %project_id_column_prefixes  = ("ar"              => "global",

                                   "ap"              => "global",

                                   "oe"              => "global",

    $params{active} = 1;

  }

               WHERE id = ?|;

  @values = ($params{projectnumber}, $params{description}, $params{active} ? 't' : 'f', conv_i($params{id}));

use SL::DBUtils;

sub paymentaccounts {

  $main::lxdebug->enter_sub();

use Data::Dumper;

use List::Util qw(reduce);

sub create_links {

  $main::lxdebug->enter_sub();

use SL::Form;

# Cause locales.pl to parse these files:

# parse_html_template('report_generator/html_report')

     $report->add_data($row1, $row2, @more_rows);

     $report->generate_with_headers();

Sorting of columns will be alphabetic, and options will be set to their defaults.

The report will be printed including table headers, html headers and http headers.

Then it lacks usability. You want it to be able to sort the data. You add code for that.

Then there are too many results, you need pagination, you want to print or export that data..... and so on.

Which makes it almost as complicated to use as doing the work for yourself.

=head1 FUNCTIONS

=item add_data \%data

ReportGenerator does only colum sorting on its own, and provides links to sorting and visual cue as to which column was sorted by.

=item add_separator

=item add_control \%data

Adds a control element to the data. Control elements are an experimental feature to add functionality to a report the regular data cannot.

Currently the only control element is a colspan element, which can be used as a mini header further down the report.

=item clear_data

=item generate_with_headers

for example 'HTML' will add proper table headers, html headers and http headers. See configuration for this option.

=item get_visible_columns $format

=item prepare_html_content $column,$name,@column_headers

Should not be called extrenally, since all render and generate functions invoke it anyway.

=item generate_html_content

The html generation function. Is invoked by generate_with_headers.

Landscape or portrait. Default is landscape.

Default is Verdana. Supported font names are Courier, Georgia, Helvetica, Times and Verdana. This option only affects the rendering with PDF::API2.

use SL::DBUtils;

sub get_user_config {

  $main::lxdebug->enter_sub();

use SL::DBUtils;

my @tax_office_information = (

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

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

sub create_steuernummer {

  $main::lxdebug->enter_sub();

  # rebuild steuernummer and elstersteuernummer

  # es gibt eine gespeicherte steuernummer $form->{steuernummer}

  my $h = 0;

  my $i = 0;

  for ($h = 1; $h < $patterncount; $h++) {

    $steuernummer_new .= qq|$delimiter|;

  $main::lxdebug->enter_sub();

  my ($self, $elsterland, $elsterFFFF, $steuernummer) = @_;

  my $steuernummer_input = '';

  my $ffff     = '';

  my $checked  = '';

  $checked = 'checked' if ($elsterFFFF eq '' and $land eq '');

  my $fa_auswahl = qq|

        <script language="Javascript">

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

                |;

    $fa_auswahl .= qq|

               if (elsterBLAuswahl.options[elsterBLAuswahl.selectedIndex].

               value == "$elster_land")

               {

               |;

    my $j              = 0;

    $FFFF = '';

    for $FFFF (keys %{ $elster_init->{$elster_land} }) {

      $elster_land_fa{$FFFF} = $elster_init->{$elster_land}->{$FFFF}->[0];

  if ($land eq '') {

    $fa_auswahl .= qq|<option value="Auswahl" $checked>| . $main::locale->text('Select federal state...') . qq|</option>\n|;

  }

    $fa_auswahl .= qq|

                  <option value="$elster_land"|;

    if ($elster_land eq $land and $checked eq '') {

  $main::lxdebug->leave_sub();

}

sub stichtag {

  $main::lxdebug->enter_sub();

  #$today =today * 1;

  $today =~ /(\d\d\d\d)(\d\d)(\d\d)/;

  #$tage_bis = '1234';

  #$ical = '...vcal format';

  #if ($FA_voranmeld eq 'month'){

  #$mm += $dauerfrist

  #$month *= 1;

  $month += 1 if ($day > 10);

  $month    = sprintf("%02d", $month);

  $stichtag = $year . $month . "10";

    $ust_va = $liste{$date} if ($date eq $stichtag);

  }

  #$stichtag =~ /([\d]\d)(\d\d)$/

  #$stichtag = "$1.$2.$yy"

  #$stichtag=$1;

  $main::lxdebug->leave_sub();

  return ($stichtag, $description, $tage_bis, $ical);

}

  $sth->execute || $form->dberror($query);

  my $array_ref = $sth->fetchall_arrayref();

  my $land      = '';

  foreach my $row (@$array_ref) {

    my $FA_finanzamt = $row;

    my $tax_office   = first { $_->{id} == $FA_finanzamt->[0] } @{ $self->{tax_office_information} };

  $form->{decimalplaces} *= 1;

    $form->{"$item"} = 0;

  }

    $form->{"$item"} = 0;

  }

  my $coa_name = coa_get($dbh);

  # Controlvariable for templates

  $form->{"$coa_name"} = '1';

  &get_accounts_ustva($dbh, $last_period, $form->{fromdate}, $form->{todate},

                      $form, $category);

sub coa_get {

  my ($dbh) = @_;

  my $query= qq|SELECT coa FROM defaults|;

  $sth->execute || $form->dberror($query);

  return $ref;

  $main::lxdebug->enter_sub();

  my ($dbh, $last_period, $fromdate, $todate, $form, $category) = @_;

  my $query;

  my $where    = "";

  my $ref;

  # Show all $query in Debuglevel LXDebug::QUERY

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

  $sth->execute || $form->dberror($query);

    # Bug 365 solved?!

    $ref->{amount} *= -1;

    $form->{ $ref->{$category} } += $ref->{amount};

  my ($self, $userspath, $filename) = @_;

  my $form = $main::form;

  $filename = "$form->{login}_$filename";

  $filename =~ s|.*/||;

  $filename = "$userspath/$filename";

    # catch open error

    # create file if file does not exist

    open my $FANEW, ">", $filename  or $form->error("CREATE: $filename : $!");

  $dbh->begin_work();

  my %dbup_myconfig = ();

  map({ $dbup_myconfig{$_} = $form->{$_}; }

      qw(dbname dbuser dbpasswd dbhost dbport dbconnect));

require Tie::Hash;

my %watched_variables;

###################

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

sub mydberror {

  my ($msg) = @_;

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

# @description: USTVA Report Daten fuer Oesterreich. Vielen Dank an Gerhard Winkler..

# @depends: USTVA_abstraction

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

}

if ( check_coa('Austria') ){

  if ( coa_is_empty() )  {

    print qq|Eine leere Datenbank mit Kontenrahmen ?sterreich vorgefunden. <br />

             Die Aktualisierungen werden eingespielt...<br />

             <b>Achtung: Dieses Update ist ungetestet und bedarf weiterer Konfiguration</b>|;

    return 1

                        'tax',                  'chart',

                        'buchungsgruppen',

                     ))

      && do_insert_taxkeys()

      && do_insert_buchungsgruppen()

    ;

  else {

             Bitte eine neue Datenbank mit Kontenrahmen 'Austria' anlegen.|;

    return 1;

  }

}

sub check_coa {

  my ( $want_coa ) = @_;

  my $query = q{ SELECT count(*) FROM defaults WHERE coa = ? };

  return $have_coa;

}

sub coa_is_empty {

                 FROM ar, ap, gl, invoice, acc_trans, customer, vendor, parts

               };

  $empty = !$empty;

        "INSERT INTO tax.report_headings (id, category_id, type, description, subdescription) VALUES (0, 0, NULL, NULL, NULL)",

  );

  my @copy_statements = (

      "INSERT INTO tax.report_variables (id, position, heading_id, description, dec_places, valid_from) VALUES (?, ?, ?, ?, ?, ?)",

  );

  my @copy_data = (

      "1;000;0;a) Gesamtbetrag der Bemessungsgrundlage f?r Lieferungen und sonstige Leistungen (ohne den nachstehend angef?hrten Eigenverbrauch) einschlie?lich Anzahlungen (jeweils ohne Umsatzsteuer);2;1970-01-01",

      "2;001;0;zuz?glich Eigenverbrauch (?1 Abs. 1 Z 2, ? 3 Abs. 2 und ? 3a Abs. 1a);2;1970-01-01",

      "3;021;0;abz?glich Ums?tze f?r die die Steuerschuld gem?? ? 19 Abs. 1 zweiter Satz sowie gem?? ? 19 Abs. 1a, Abs. 1b, Abs. 1c auf den Leistungsempf?nger ?bergegangen ist.;2;1970-01-01",

  return 1;

}

sub do_insert_tax {

  my @copy_statements = (

      "INSERT INTO tax (chart_id, taxnumber, taxkey, taxdescription, itime, mtime, rate, id) VALUES (65, '2510', 7, 'Vorsteuer 10%', '2006-01-30 11:08:23.332857', '2006-02-08 20:28:09.63567', 0.10000, 173);",

      "INSERT INTO tax (chart_id, taxnumber, taxkey, taxdescription, itime, mtime, rate, id) VALUES (64, '2512', 8, 'Vorsteuer 12%', '2006-02-02 17:39:18.535036', '2006-02-08 20:28:21.463869', 0.12000, 174);",

      "INSERT INTO tax (chart_id, taxnumber, taxkey, taxdescription, itime, mtime, rate, id) VALUES (NULL, NULL, 10, 'Im anderen EG-Staat steuerpfl. Lieferung', '2006-01-30 11:08:23.332857', '2006-02-08 12:45:36.44088', NULL, 171);",

      "INSERT INTO tax (chart_id, taxnumber, taxkey, taxdescription, itime, mtime, rate, id) VALUES (NULL, NULL, 11, 'Steuerfreie EG-Lief. an Abn. mit UStIdNr', '2006-01-30 11:08:23.332857', '2006-02-08 12:45:36.44088', NULL, 172);",

      "INSERT INTO tax (chart_id, taxnumber, taxkey, taxdescription, itime, mtime, rate, id) VALUES (NULL, NULL, 0, 'Keine Steuer', '2006-01-30 11:08:23.332857', '2006-02-08 12:45:36.44088', 0.00000, 0);",

  );

  for my $statement ( 0 .. $#copy_statements ) {

}

sub do_insert_taxkeys {

  my @copy_statements = (

      "INSERT INTO taxkeys VALUES (230, 69, 177, 2, NULL, '1970-01-01');",

      "INSERT INTO taxkeys VALUES (231, 72, 178, 3, NULL, '1970-01-01');",

      "UPDATE taxkeys SET pos_ustva='017' WHERE chart_id IN (SELECT id FROM chart WHERE accno IN ('4015', '4025', '4035', '4045', '4315', '4325', '4335', '4345'));",

      "UPDATE taxkeys SET pos_ustva='022' WHERE chart_id IN (SELECT id FROM chart WHERE accno IN ('4040', '4045'));",

      "UPDATE taxkeys SET pos_ustva='122' WHERE chart_id IN (SELECT id FROM chart WHERE accno IN ('3520'));",

      "UPDATE taxkeys SET pos_ustva='129' WHERE chart_id IN (SELECT id FROM chart WHERE accno IN ('3510'));",

      "UPDATE taxkeys SET pos_ustva='025' WHERE chart_id IN (SELECT id FROM chart WHERE accno IN ('4012'));",

      "UPDATE taxkeys SET pos_ustva='125' WHERE chart_id IN (SELECT id FROM chart WHERE accno IN ('3512'));",

# @description: Migration of cp_greeting to cp_gender

# @depends: generic_translations

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

sub mydberror {

  my ($msg) = @_;

  # list of all entries where cp_greeting is empty, meaning can't determine gender from parsing Herr/Frau/...

  # this assumes cp_greeting still exists, i.e. gender.sql was not run yet

  my $sql2 = "select cp_id,cp_givenname,cp_name,cp_title,cp_greeting from contacts where not (cp_greeting ILIKE '%frau%' OR cp_greeting ILIKE '%herr%' or cp_greeting ILIKE '%mrs.%' or cp_greeting ILIKE '%miss%') ";

  my $sth2 = $dbh->prepare($sql2) or die $dbh->errstr();

  $gender_table .= '<table border="1"><tr><th>cp_givenname</th><th>cp_name</th><th>cp_title</th><th>cp_greeting</th><th><translate>male/female</th></tr>';

  $gender_table .= "\n";

  while (my $row = $sth2->fetchrow_hashref()) {

			$mchecked = "";

			$fchecked = "checked";

	} else {

			$mchecked = "checked";

			$fchecked = "";

	};

   $gender_table .= "<tr><input type=hidden name=\"cp_id_$i\" value=\"$row->{cp_id}\"> <td>$row->{cp_givenname}</td> <td>$row->{cp_name}</td> <td>$row->{cp_title} </td> <td>$row->{cp_greeting} </td><td> <input type=\"radio\" name=\"gender_$i\" value=\"m\" $mchecked> <input type=\"radio\" name=\"gender_$i\" value=\"f\" $fchecked></td></tr>\n";

   $i++;

  };

  $gender_table .= "</table>";

  $main::form->{gender_table} = $gender_table;

  my $title_table;

  my $sql3 = "select cp_id,cp_givenname,cp_name,cp_title,cp_greeting from contacts where not ( (cp_greeting ILIKE '%frau%' OR cp_greeting ILIKE '%herr%' or cp_greeting ILIKE '%mrs.%' or cp_greeting ILIKE '%miss%')) and not (cp_greeting like ''); ";

  my $sth3 = $dbh->prepare($sql3) or die $dbh->errstr();

  $title_table = '<table border="1"><tr><th>cp_givenname</th><th>cp_name</th><th>cp_title</th><th>cp_greeting</th><th>cp_title new</th></tr>';

		  $j++;

  };

  $title_table .= "</table>";

  $main::form->{title_table} = $title_table;

# @description: Neue Spalte für eine globale Projektnummer in Einkaufs- und Verkaufsbelegen

# @depends: release_2_4_1

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

sub mydberror {

# @description:  Diverse neue Tabellen und Spalten zur Mehrlagerfähigkeit inkl. Migration

# @depends: release_2_4_3

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

sub mydberror {

  my ($msg) = @_;

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

  }

}

sub print_question {

  print $main::form->parse_html_template("dbupgrade/warehouse_form");

UPDATE tmp_parts SET bin = NULL WHERE bin = '';

-- Restore old onhand

   WHERE warehouse.description=$warehouse);

 (warehouse_id, parts_id, bin_id, qty, employee_id, trans_id, trans_type_id, chargenumber)

 (SELECT warehouse.id, tmp_parts.id, bin.id, onhand, (SELECT id FROM employee LIMIT 1), nextval('id'), transfer_type.id, ''

  FROM transfer_type, warehouse, tmp_parts, bin

  WHERE warehouse.description = $warehouse

    AND transfer_type.description = 'stock');

EOF

;