- qq|UPDATE ar set | .
- qq| invnumber = ?, ordnumber = ?, transdate = ?, customer_id = ?, | .
- qq| taxincluded = ?, amount = ?, duedate = ?, paid = ?, datepaid = ?, | .
- qq| netamount = ?, curr = ?, notes = ?, department_id = ?, | .
- qq| employee_id = ? | .
- qq|WHERE id = ?|;
- my @values = ($form->{invnumber}, $form->{ordnumber},
- conv_date($form->{transdate}), conv_i($form->{customer_id}),
- $form->{taxincluded} ? 't' : 'f', $form->{amount},
- conv_date($form->{duedate}), $form->{paid},
- conv_date($datepaid), $form->{netamount},
- $form->{currency}, $form->{notes},
- conv_i($form->{department_id}),
- conv_i($form->{employee_id}),
- conv_i($form->{id}));
+ qq|UPDATE ar set
+ invnumber = ?, ordnumber = ?, transdate = ?, customer_id = ?,
+ taxincluded = ?, amount = ?, duedate = ?, paid = ?, datepaid = ?,
+ netamount = ?, curr = ?, notes = ?, department_id = ?,
+ employee_id = ?
+ WHERE id = ?|;
+ my @values = ($form->{invnumber}, $form->{ordnumber}, conv_date($form->{transdate}), conv_i($form->{customer_id}), $form->{taxincluded} ? 't' : 'f', $form->{amount},
+ conv_date($form->{duedate}), $form->{paid}, conv_date($datepaid), $form->{netamount}, $form->{currency}, $form->{notes}, conv_i($form->{department_id}),
+ conv_i($form->{employee_id}), conv_i($form->{id}));