my @a = (transdate, invnumber, name);
push @a, "employee" if $form->{l_employee};
my $sortorder = join ', ', $form->sort_columns(@a);
my @a = (transdate, invnumber, name);
push @a, "employee" if $form->{l_employee};
my $sortorder = join ', ', $form->sort_columns(@a);