projekt kivitendo

    $amount{ $ref->{accno} } = $ref->{amount};

  }

  $query = qq{

    SELECT

  $intnotes .= "\n\n" if ($intnotes);

  my $now = scalar localtime;

  $intnotes .= $main::locale->text('[email]') . "\n"

    push @values, $form->{accnoto};

  }

  my $query     = qq|SELECT c.accno, c.description

                     FROM chart c

sub _make_sort_spec {

  my ($class) = @_;

  my $meta = $class->object_class->meta;

                                        'to_table'   => 'delivery_orders',

                                        'to_id'      => $params{do_id});

  return $main::lxdebug->leave_sub() if (!$oe_id);

    $key = $params;

  }

  my $query = qq|SELECT * FROM tax $where ORDER BY taxkey|;

  my $options        = ref $key eq 'HASH' ? $key : { key => $key };

  $options->{key}  ||= "all_customers";

  my @where;

  push @where, qq|business_id IN (SELECT id FROM business WHERE salesman)| if  $options->{business_is_salesman};

    $extension            = 'xls';

  }

  $self->{IN}         = "$self->{formname}${email_extension}${language}${printer_code}.${extension}";

  # Format dates.

  my $select_clause = join ', ',    map { $token_builder->($_, 1) } @select_tokens;

  my $join_clause   = join ' ',     @joins{ grep $joins_needed{$_}, @join_order };

  my $where_clause  = join ' AND ', map { "($_)" } @where_tokens;

  my %oe_flag_to_cvar = (

    bought   => 'invoice',

  my ($sth, $ref, $query);

  $query =

    qq|SELECT

  }

  if ($form->{periodic_invoices_active} ne $form->{periodic_invoices_inactive}) {

    $query  .= qq| AND ${not} COALESCE(pcfg.active, 'f')|;

  }

  }

  my $sortorder =  $params{sort} ? $params{sort} : "projectnumber";

  $sortorder    =~ s/[^a-z_]//g;

    add_token(\@where_tokens, \@where_values, col => $col, val => $params{$col}) if $params{$col};

  }

  my $query = "DELETE FROM record_links $where";

  do_query($form, $dbh, $query, @where_values);

  my $font_height       = $font_size + 2 * $padding;

  my $title_font_height = $font_size + 2 * $padding;

  my $top_text_height   = 0;

  push @where,  'se.vc = ?';

  push @values, $vc;

  my $query =

    qq|SELECT se.id, se.employee_id, se.executed, se.closed, itime::date AS export_date,

  my $attribute  = $arg_ref->{attribute}; #

  my $dec_places = (defined $arg_ref->{dec_places}) ? $arg_ref->{dec_places}:undef;

  my $query = qq|

    SELECT $attribute

  $sort_order    = $filter{order}        unless $sort_order;

  my $sort_spec  = "${sort_col} " . ($sort_order ? " DESC" : " ASC");

  $select_tokens{'trans'} = {

     "parts_id"             => "i1.parts_id",

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

  $restriction    .= qq| AND h.itime::date >= | . conv_dateq($form->{fromdate})                                                          if $form->{fromdate};

  $restriction    .= qq| AND h.itime::date <= | . conv_dateq($form->{todate})                                                            if $form->{todate};

  if ($form->{mitarbeiter} =~ m/^\d+$/) {

  my $notes =

    qq|<textarea name=notes rows=$rows cols=50 wrap=soft $readonly>$form->{notes}</textarea>|;

              <tr>

                <th align="right" nowrap>| . $locale->text('Department') . qq|</th>

                <td colspan=3><select name=department>$form->{selectdepartment}</select>

    } (@{ $form->{all_departments} || [] });

  }

        <tr>

          <th align=right nowrap>| . $locale->text('Department') . qq|</th>

          <td colspan=3><select name=department>$form->{selectdepartment}</select></td>

    my $projectnumber_hidden = qq|

    <input type="hidden" name="project_id_$i" value="$form->{"project_id_$i"}">|;

    print qq|<tr valign=top>

    $accno

  $form->{title} = $locale->text("$title General Ledger Transaction");

  my $readonly   = ($form->{id}) ? "readonly" : "";

  # $locale->text('Add General Ledger Transaction')

  # $locale->text('Edit General Ledger Transaction')

  } else {

    if ($form->{draft_id}) {

      print qq|<p>\n|

        . qq|  <input name="remove_draft" id="remove_draft" type="checkbox" class="checkbox" ${remove_draft_checked}>|

        . qq|  <label for="remove_draft">| . $locale->text('Remove Draft') . qq|</label>\n|

  my %subtotals = map { $_ => 0 } ('onhand', @subtotal_columns);

  my %totals    = map { $_ => 0 } @subtotal_columns;

  my $idx       = 0;

  my $defaults  = AM->get_defaults();

# calculate onhand

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

      my $part         = IC->get_basic_part_info(id => $form->{"id_$i"});

      push @ROW2, { value => sprintf "<b>%s</b> <font %s>%s %s</font>",

                      $locale->text('On Hand'),

                      $onhand_color,

    $extension            = 'xls';

  }

  $form->{IN}         = "$form->{formname}${email_extension}$form->{language}${printer_code}.${extension}";

  $form->{exchangerate} = $form->parse_amount(\%myconfig, $form->{exchangerate}) unless $recursive_call;

  $form->{print_and_post} = 0         if $form->{second_run};

  $form->{update} = 1;

  &check_name("customer");

    $form->{quodate}      = $form->{transdate};

  }

  # if the name changed get new values

  if (&check_name($form->{vc})) {

    map { $form->{selectdepartment} .= "<option>$_->{description}--$_->{id}\n" } @{ $form->{all_departments} || [] };

  }

        <tr>

          <th align=right nowrap>| . $locale->text('Department') . qq|</th>

          <td colspan=3><select name=department>$form->{selectdepartment}</select></td>

  my $form     = $main::form;

  my %params   = @_;

  my %todo_cfg = TODO->get_user_config('login' => $form->{login});

  $::form->{title} = $::locale->text('Tax Office Preferences');

  my $_hidden_variables_ref;

  my $patterncount   = $form->{patterncount};

  my $elster_pattern = $form->{elster_pattern};

  my $delimiter      = $form->{delimiter};

  $form->{FA_Oeffnungszeiten} =~ s/\\\\n/\n/g;

foreach my $file (@testitems) {

  my $clean = 1;

    print $fh "?: PPI error for file $file: " . PPI::Document::errstr() . "\n";

    ok 0, $file;

    next;