my @tax_arrays =
qw(taxbase tax taxdescription taxrate taxnumber);
- map({ $form->{$_} = [] } (@arrays, @tax_arrays));
-
foreach $item (sort { $a->[1] cmp $b->[1] } @partsgroup) {
$i = $item->[0];
}
# get rest for the customer
- my $query = qq|SELECT ct.*, cp.*, ct.notes as customernotes
+ my $query = qq|SELECT ct.*, cp.*, ct.notes as customernotes, ct.phone AS customerphone, ct.fax AS customerfax, ct.email AS customeremail
FROM customer ct
LEFT JOIN contacts cp on ct.id = cp.cp_cv_id
WHERE ct.id = $form->{customer_id} $contact order by cp.cp_id limit 1|;
$form->{"paid_$i"} *= -1;
$query = qq|INSERT INTO acc_trans (trans_id, chart_id, amount, transdate,
- source, memo, ?)
+ source, memo, project_id)
VALUES ($form->{id}, (SELECT c.id FROM chart c
- WHERE c.accno = '$accno', project_id),
+ WHERE c.accno = '$accno'),
$form->{"paid_$i"}, '$form->{"datepaid_$i"}',
- '$form->{"source_$i"}', '$form->{"memo_$i"}')|;
+ '$form->{"source_$i"}', '$form->{"memo_$i"}', ?)|;
do_query($form, $dbh, $query, $project_id);
# exchangerate difference