projekt kivitendo

  #get name of currency instead of id:

  $query = qq|SELECT name AS curr FROM currencies WHERE id=?|;

  if ( $form->{salesman_id} ) {

    my $query =

    $query = qq|SELECT nextval('id')|;

    ($form->{id}) = selectrow_query($form, $dbh, $query);

    do_query($form, $dbh, $query, $form->{id});

  }

    $query = qq|SELECT nextval('id')|;

    ($form->{id}) = selectrow_query($form, $dbh, $query);

    do_query($form, $dbh, $query, $form->{id});

    my $vendornumber      = SL::TransNumber->new(type   => 'vendor',

    $query = qq|SELECT nextval('id')|;

    ($form->{id}) = selectrow_query($form, $dbh, $query);

    do_query($form, $dbh, $query, $form->{id}, conv_i($form->{employee_id}));

  }

             conv_i($form->{salesman_id}), conv_i($form->{cp_id}),

             $form->{transaction_description},

             $form->{type} =~ /^sales/ ? 't' : 'f',

             conv_i($form->{id}));

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

                    "a.department_id"         => "department_id",

                    "d.description"           => "department",

                    "ct.name"                 => $table,

                    "current_date + ct.terms" => "duedate",

    );

  $self->db_query($query);

  #Check wheather defaultcurrency is already in table currencies:

  my ($insert_default) = $self->dbh->selectrow_array($query);

  if (!$insert_default) {

    $self->db_query($query);

  }

      <td>[% L.input_tag('bic', bic, maxlength=100, size=30) %]</td>

      [%- IF ALL_CURRENCIES.size %]

        <th align="right">[% 'Currency' | $T8 %]</th>

      [%- END %]

     </tr>