277 |
277 |
}
|
278 |
278 |
|
279 |
279 |
# build in drop down list for pricesgroups
|
|
280 |
# $sellprice_value setzt den Wert etwas unabhängiger von der Darstellung.
|
|
281 |
# Hintergrund: Preisgruppen werden hier überprüft und neu berechnet.
|
|
282 |
# Vorher wurde der ganze cgi->textfield Block zweimal identisch eingebaut, dass passiert
|
|
283 |
# jetzt nach der Abfrage.
|
|
284 |
my $sellprice_value;
|
280 |
285 |
if ($form->{"prices_$i"}) {
|
281 |
286 |
$column_data{sellprice_pg} = qq|<select name="sellprice_pg_$i" style="width: 8em">$form->{"prices_$i"}</select>|;
|
282 |
|
$column_data{sellprice} = $cgi->textfield(-name => "sellprice_$i", -size => 10, -onBlur => 'check_right_number_format(this)', -value =>
|
283 |
|
(($form->{"new_pricegroup_$i"} != $form->{"old_pricegroup_$i"})
|
|
287 |
$sellprice_value =($form->{"new_pricegroup_$i"} != $form->{"old_pricegroup_$i"})
|
284 |
288 |
? $form->format_amount(\%myconfig, $form->{"price_new_$i"}, $decimalplaces)
|
285 |
|
: $form->format_amount(\%myconfig, $form->{"sellprice_$i"}, $decimalplaces)));
|
|
289 |
: $form->format_amount(\%myconfig, $form->{"sellprice_$i"}, $decimalplaces);
|
286 |
290 |
} else {
|
287 |
291 |
# for last row and report
|
288 |
292 |
# set pricegroup drop down list from report menu
|
... | ... | |
295 |
299 |
} else {
|
296 |
300 |
$column_data{sellprice_pg} = qq| |;
|
297 |
301 |
}
|
298 |
|
$column_data{sellprice} = $cgi->textfield(-name => "sellprice_$i", -size => 10, -onBlur => "check_right_number_format(this)", -value =>
|
299 |
|
$form->format_amount(\%myconfig, $form->{"sellprice_$i"}, $decimalplaces));
|
|
302 |
$sellprice_value = $form->format_amount(\%myconfig, $form->{"sellprice_$i"}, $decimalplaces);
|
300 |
303 |
|
301 |
304 |
}
|
302 |
|
$column_data{discount} = $cgi->textfield(-name => "discount_$i", -size => 3, -value => $form->format_amount(\%myconfig, $form->{"discount_$i"}));
|
|
305 |
# Falls der Benutzer die Preise nicht anpassen sollte, wird das entsprechende
|
|
306 |
# Textfield auf readonly gesetzt. Anm. von Sven: Manipulation der Preise ist
|
|
307 |
# immer noch möglich, konsequenterweise sollten diese NUR aus der Datenbank
|
|
308 |
# geholt werden.
|
|
309 |
my $edit_prices = $main::auth->assert('edit_prices', 1);
|
|
310 |
$column_data{sellprice} = (!$edit_prices)
|
|
311 |
? $cgi->textfield(-readonly => "readonly",
|
|
312 |
-name => "sellprice_$i", -size => 10, -onBlur => "check_right_number_format(this)", -value => $sellprice_value)
|
|
313 |
: $cgi->textfield(-name => "sellprice_$i", -size => 10, -onBlur => "check_right_number_format(this)", -value => $sellprice_value);
|
|
314 |
$column_data{discount} = (!$edit_prices)
|
|
315 |
? $cgi->textfield(-readonly => "readonly",
|
|
316 |
-name => "discount_$i", -size => 3, -value => $form->format_amount(\%myconfig, $form->{"discount_$i"}))
|
|
317 |
: $cgi->textfield(-name => "discount_$i", -size => 3, -value => $form->format_amount(\%myconfig, $form->{"discount_$i"}));
|
303 |
318 |
$column_data{linetotal} = $form->format_amount(\%myconfig, $linetotal, 2);
|
304 |
319 |
$column_data{bin} = $form->{"bin_$i"};
|
305 |
320 |
|
Programmlogik für Recht 'Schreibgeschützte Preise' (s.a. Commit davor)
Details: Vergessen bei dem Commit von gerade, die entsprechenden Programmänderungen auch zu committen, betrifft: Übersetzungen, Recht in Auth.pm sowie die entsprechende neue Logik in io.pl->display_row