# get pricegroup_id and save it
($null, my $pricegroup_id) = split(/--/, $form->{"sellprice_pg_$i"});
$pricegroup_id *= 1;
- my $subtotal = $form->{"subtotal_$i"} * 1;
# save detail record in invoice table
$query =
$form->{"unit_$i"}, conv_date($form->{"deliverydate_$i"}), conv_i($form->{"project_id_$i"}),
$form->{"serialnumber_$i"}, conv_i($pricegroup_id),
$form->{"ordnumber_$i"}, conv_date($form->{"transdate_$i"}),
- $form->{"cusordnumber_$i"}, $baseqty, $subtotal,
+ $form->{"cusordnumber_$i"}, $baseqty, $form->{"subtotal_$i"} ? 't' : 'f',
$form->{"marge_percent_$i"}, $form->{"marge_absolut_$i"},
$form->{"lastcost_$i"});
do_query($form, $dbh, $query, @values);
# save AR record
$query = qq|UPDATE ar set
- invnumber = ?,
- ordnumber = ?,
- quonumber = ?,
- cusordnumber = ?,
- transdate = ?,
- orddate = ?,
- quodate = ?,
- customer_id = ?,
- amount = ?,
- netamount = ?,
- paid = ?,
- datepaid = ?,
- duedate = ?,
- deliverydate = ?,
- invoice = '1',
- shippingpoint = ?,
- shipvia = ?,
- terms = ?,
- notes = ?,
- intnotes = ?,
- taxincluded = ?,
- curr = ?,
- department_id = ?,
- payment_id = ?,
- type = ?,
- language_id = ?,
- taxzone_id = ?,
- shipto_id = ?,
- delivery_customer_id = ?,
- delivery_vendor_id = ?,
- employee_id = ?,
- salesman_id = ?,
- storno = ?,
- storno_id = ?,
- globalproject_id = ?,
- cp_id = ?,
- transaction_description = ?,
- marge_total = ?,
- marge_percent = ?
+ invnumber = ?, ordnumber = ?, quonumber = ?, cusordnumber = ?,
+ transdate = ?, orddate = ?, quodate = ?, customer_id = ?,
+ amount = ?, netamount = ?, paid = ?, datepaid = ?,
+ duedate = ?, deliverydate = ?, invoice = ?, shippingpoint = ?,
+ shipvia = ?, terms = ?, notes = ?, intnotes = ?,
+ curr = ?, department_id = ?, payment_id = ?, taxincluded = ?,
+ type = ?, language_id = ?, taxzone_id = ?, shipto_id = ?,
+ employee_id = ?, salesman_id = ?, storno_id = ?, storno = ?,
+ cp_id = ?, marge_total = ?, marge_percent = ?,
+ globalproject_id = ?, delivery_customer_id = ?,
+ transaction_description = ?, delivery_vendor_id = ?
WHERE id = ?|;
- @values = ($form->{"invnumber"}, $form->{"ordnumber"}, $form->{"quonumber"}, $form->{"cusordnumber"},
- conv_date($form->{"invdate"}), conv_date($form->{"orddate"}), conv_date($form->{"quodate"}),
- conv_i($form->{"customer_id"}), $amount, $netamount, $form->{"paid"},
- conv_date($form->{"datepaid"}), conv_date($form->{"duedate"}), conv_date($form->{"deliverydate"}),
- $form->{"shippingpoint"}, $form->{"shipvia"}, conv_i($form->{"terms"}),
- $form->{"notes"}, $form->{"intnotes"}, $form->{"taxincluded"} ? 't' : 'f',
- $form->{"currency"}, conv_i($form->{"department_id"}), conv_i($form->{"payment_id"}),
- $form->{"type"}, conv_i($form->{"language_id"}), conv_i($form->{"taxzone_id"}),
- conv_i($form->{"shipto_id"}),
- conv_i($form->{"delivery_customer_id"}), conv_i($form->{"delivery_vendor_id"}),
- conv_i($form->{"employee_id"}), conv_i($form->{"salesman_id"}),
- $form->{"storno"} ? 't' : 'f', conv_i($form->{storno_id}), conv_i($form->{"globalproject_id"}),
- conv_i($form->{"cp_id"}), $form->{transaction_description},
- $form->{marge_total} * 1, $form->{marge_percent} * 1,
- conv_i($form->{"id"}));
+ @values = ( $form->{"invnumber"}, $form->{"ordnumber"}, $form->{"quonumber"}, $form->{"cusordnumber"},
+ conv_date($form->{"invdate"}), conv_date($form->{"orddate"}), conv_date($form->{"quodate"}), conv_i($form->{"customer_id"}),
+ $amount, $netamount, $form->{"paid"}, conv_date($form->{"datepaid"}),
+ conv_date($form->{"duedate"}), conv_date($form->{"deliverydate"}), '1', $form->{"shippingpoint"},
+ $form->{"shipvia"}, conv_i($form->{"terms"}), $form->{"notes"}, $form->{"intnotes"},
+ $form->{"currency"}, conv_i($form->{"department_id"}), conv_i($form->{"payment_id"}), $form->{"taxincluded"} ? 't' : 'f',
+ $form->{"type"}, conv_i($form->{"language_id"}), conv_i($form->{"taxzone_id"}), conv_i($form->{"shipto_id"}),
+ conv_i($form->{"employee_id"}), conv_i($form->{"salesman_id"}), conv_i($form->{storno_id}), $form->{"storno"} ? 't' : 'f',
+ conv_i($form->{"cp_id"}), 1 * $form->{marge_total} , 1 * $form->{marge_percent},
+ conv_i($form->{"globalproject_id"}), conv_i($form->{"delivery_customer_id"}),
+ $form->{transaction_description}, conv_i($form->{"delivery_vendor_id"}),
+ conv_i($form->{"id"}));
do_query($form, $dbh, $query, @values);
if($form->{"formname"} eq "credit_note") {