- $query = qq|INSERT INTO $form->{arap} (invnumber, employee_id)
- VALUES ('$uid', (SELECT e.id FROM employee e
- WHERE e.login = '$form->{login}'))|;
- $dbh->do($query) || $form->dberror($query);
-
- $query = qq|SELECT a.id FROM $form->{arap} a
- WHERE a.invnumber = '$uid'|;
- $sth = $dbh->prepare($query);
- $sth->execute || $form->dberror($query);
-
- ($uid) = $sth->fetchrow_array;
- $sth->finish;
-
- my $invnumber = ($form->{invnumber}) ? $form->{invnumber} : $uid;
- $query = qq|UPDATE $form->{arap} set
- invnumber = '$invnumber',
- $vc_id = $form->{"$form->{vc}_id"},
- transdate = '$form->{datepaid}',
- datepaid = '$form->{datepaid}',
- duedate = '$form->{datepaid}',
- netamount = 0,
- amount = 0,
- paid = $fxamount,
- curr = '$form->{currency}',
- department_id = $form->{department_id}
- WHERE id = $uid|;
- $dbh->do($query) || $form->dberror($query);
+ $query =
+ qq|INSERT INTO $arap (id, invnumber, employee_id) | .
+ qq|VALUES (?, ?, (SELECT id FROM employee WHERE login = ?))|;
+ my @values = ($new_id, $form->{login}, $form->{login});
+ do_query($form, $dbh, $query, @values);
+
+ my $invnumber = ($form->{invnumber}) ? $form->{invnumber} : $new_id;
+ $query =
+ qq|UPDATE $arap SET invnumber = ?, $vc_id = ?, transdate = ?, datepaid = ?, | .
+ qq|duedate = ?, netamount = ?, amount = ?, paid = ?, | .
+ qq|curr = ?, department_id = ? | .
+ qq|WHERE id = ?|;
+ @values = ($invnumber, $form->{$vc_id},
+ conv_date($form->{datepaid}), conv_date($form->{datepaid}),
+ conv_date($form->{datepaid}), 0, 0, $fxamount, $form->{currency},
+ $form->{department_id}, $new_id);
+ do_query($form, $dbh, $query, @values);