discount p_discount discount_sub nodiscount_sub
linetotal nodiscount_linetotal tax_rate projectnumber);
- my @tax_arrays =
- qw(taxbase tax taxdescription taxrate taxnumber);
-
- map({ $form->{$_} = [] } (@arrays, @tax_arrays));
-
my $sameitem = "";
foreach $item (sort { $a->[1] cmp $b->[1] } @partsgroup) {
$i = $item->[0];
$form->set_payment_options($myconfig, $form->{orddate});
}
- # myconfig variables
- map { $form->{$_} = $myconfig->{$_} }
- (qw(company address tel fax signature businessnumber));
$form->{username} = $myconfig->{name};
$dbh->disconnect;