$form->{onhand} *= 1;
$form->{ve} *= 1;
$form->{ge} *= 1;
- $form->{alu} *= 1;
$form->{buchungsgruppen_id} *= 1;
- $form->{adr_id} *= 1;
$form->{not_discountable} *= 1;
$form->{payment_id} *= 1;
rop = $form->{rop},
bin = '$form->{bin}',
buchungsgruppen_id = '$form->{buchungsgruppen_id}',
- adr_id = '$form->{adr_id}',
payment_id = '$form->{payment_id}',
inventory_accno_id = (SELECT c.id FROM chart c
WHERE c.accno = '$form->{inventory_accno}'),
shop = '$form->{shop}',
ve = '$form->{ve}',
gv = '$form->{gv}',
- alu = '$form->{alu}',
not_discountable = '$form->{not_discountable}',
microfiche = '$form->{microfiche}',
partsgroup_id = $partsgroup_id
}
$sth->finish;
- # get adr
- $query = qq|SELECT id, adr_description, adr_code
- FROM adr|;
- $sth = $dbh->prepare($query);
- $sth->execute || $form->dberror($query);
-
-
- $form->{ADR} = [];
- while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
- push @{ $form->{ADR} }, $ref;
- }
- $sth->finish;
-
# get payment terms
$query = qq|SELECT id, description
FROM payment_terms