# Record-Hilfsfunktion
sub recParams{
	my $rec = shift; # {artnr, arttitle, anz, preis, xpreis}
	my $ypos = shift;
	# Hashref für den Return, Parameter für die Spalten
	my $params = {
		1 => [9, 40, $ypos, "$rec->{arttitle}/$rec->{artnr}"],
		2 => [9, 310, $ypos, $rec->{anz}, 'r'],
		3 => [9, 400, $ypos, $rec->{preis}, 'r'],
		4 => [9, 490, $ypos, $rec->{xpreis}, 'r'],
	};
	return $params;
}