- $query = qq|UPDATE oe set
- ordnumber = '$form->{ordnumber}',
- quonumber = '$form->{quonumber}',
- cusordnumber = '$form->{cusordnumber}',
- transdate = '$form->{transdate}',
- vendor_id = $form->{vendor_id},
- customer_id = $form->{customer_id},
- amount = $amount,
- netamount = $netamount,
- reqdate = $reqdate,
- taxincluded = '$form->{taxincluded}',
- shippingpoint = '$form->{shippingpoint}',
- shipvia = '$form->{shipvia}',
- notes = '$form->{notes}',
- intnotes = '$form->{intnotes}',
- curr = '$form->{currency}',
- closed = '$form->{closed}',
- delivered = '| . ($form->{delivered} ? "t" : "f") . qq|',
- proforma = '$form->{proforma}',
- quotation = '$quotation',
- department_id = $form->{department_id},
- language_id = $form->{language_id},
- taxzone_id = $form->{taxzone_id},
- shipto_id = $form->{shipto_id},
- payment_id = $form->{payment_id},
- delivery_vendor_id = $form->{delivery_vendor_id},
- delivery_customer_id = $form->{delivery_customer_id},
- globalproject_id = | . conv_i($form->{"globalproject_id"}, 'NULL') . qq|,
- employee_id = $form->{employee_id},
- cp_id = | . conv_i($form->{cp_id}, 'NULL') . qq|
- WHERE id = $form->{id}|;
- $dbh->do($query) || $form->dberror($query);
+ $query =
+ qq|UPDATE oe set | .
+ qq|ordnumber = ?, quonumber = ?, cusordnumber = ?, transdate = ?, vendor_id = ?, | .
+ qq|customer_id = ?, amount = ?, netamount = ?, reqdate = ?, taxincluded = ?, | .
+ qq|shippingpoint = ?, shipvia = ?, notes = ?, intnotes = ?, curr = ?, closed = ?, | .
+ qq|delivered = ?, proforma = ?, quotation = ?, department_id = ?, language_id = ?, | .
+ qq|taxzone_id = ?, shipto_id = ?, payment_id = ?, delivery_vendor_id = ?, delivery_customer_id = ?, | .
+ qq|globalproject_id = ?, employee_id = ?, salesman_id = ?, cp_id = ? | .
+ qq|WHERE id = ?|;
+
+ @values = ($form->{ordnumber}, $form->{quonumber},
+ $form->{cusordnumber}, conv_date($form->{transdate}),
+ conv_i($form->{vendor_id}), conv_i($form->{customer_id}),
+ $amount, $netamount, conv_date($reqdate),
+ $form->{taxincluded} ? 't' : 'f', $form->{shippingpoint},
+ $form->{shipvia}, $form->{notes}, $form->{intnotes},
+ $form->{currency}, $form->{closed} ? 't' : 'f',
+ $form->{delivered} ? "t" : "f", $form->{proforma} ? 't' : 'f',
+ $quotation, conv_i($form->{department_id}),
+ conv_i($form->{language_id}), conv_i($form->{taxzone_id}),
+ conv_i($form->{shipto_id}), conv_i($form->{payment_id}),
+ conv_i($form->{delivery_vendor_id}),
+ conv_i($form->{delivery_customer_id}),
+ conv_i($form->{globalproject_id}), conv_i($form->{employee_id}),
+ conv_i($form->{salesman_id}), conv_i($form->{cp_id}),
+ conv_i($form->{id}));
+ do_query($form, $dbh, $query, @values);