projekt kivitendo

    qq|c_vendor_id = ?, | .

    qq|klass = ?, | .

    qq|currency_id = (SELECT id FROM currencies WHERE name = ?), | .

    qq|WHERE id = ?|;

  my @values = (

    $form->{customernumber},

    conv_i($form->{klass}),

    $form->{currency},

    $form->{taxincluded_checked} ne '' ? $form->{taxincluded_checked} : undef,

    $form->{id}

    );

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

    qq|  username = ?, | .

    qq|  user_password = ?, | .

    qq|  v_customer_id = ?, | .

    qq|WHERE id = ?|;

  my @values = (

    $form->{vendornumber},

    $form->{user_password},

    $form->{v_customer_id},

    $form->{currency},

    $form->{id}

    );

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