Revision 1e251313
Von Moritz Bunkus vor etwa 17 Jahren hinzugefügt
| bin/mozilla/is.pl | ||
|---|---|---|
| 312 | 312 |
my @old_project_ids = ($form->{"globalproject_id"});
|
| 313 | 313 |
map { push @old_project_ids, $form->{"project_id_$_"} if $form->{"project_id_$_"}; } 1..$form->{"rowcount"};
|
| 314 | 314 |
|
| 315 |
$form->get_lists("contacts" => "ALL_CONTACTS",
|
|
| 316 |
"shipto" => "ALL_SHIPTO", |
|
| 317 |
"projects" => { "key" => "ALL_PROJECTS",
|
|
| 318 |
"all" => 0, |
|
| 319 |
"old_id" => \@old_project_ids }, |
|
| 320 |
"employees" => "ALL_SALESMEN", |
|
| 321 |
"taxzones" => "ALL_TAXZONES", |
|
| 322 |
"currencies" => "ALL_CURRENCIES", |
|
| 323 |
"customers" => "ALL_CUSTOMERS"); |
|
| 315 |
$form->get_lists("contacts" => "ALL_CONTACTS",
|
|
| 316 |
"shipto" => "ALL_SHIPTO", |
|
| 317 |
"projects" => { "key" => "ALL_PROJECTS",
|
|
| 318 |
"all" => 0, |
|
| 319 |
"old_id" => \@old_project_ids }, |
|
| 320 |
"employees" => "ALL_SALESMEN", |
|
| 321 |
"taxzones" => "ALL_TAXZONES", |
|
| 322 |
"currencies" => "ALL_CURRENCIES", |
|
| 323 |
"customers" => "ALL_CUSTOMERS", |
|
| 324 |
"price_factors" => "ALL_PRICE_FACTORS"); |
|
| 324 | 325 |
|
| 325 | 326 |
my %labels; |
| 326 | 327 |
my @values = (undef); |
| ... | ... | |
| 1226 | 1227 |
$form->{payment_id} = $form->{"part_payment_id_$i"} if $form->{"part_payment_id_$i"} ne "";
|
| 1227 | 1228 |
$form->{"discount_$i"} = 0 if $form->{"not_discountable_$i"};
|
| 1228 | 1229 |
|
| 1230 |
$form->{"marge_price_factor_$i"} = $form->{item_list}->[0]->{price_factor};
|
|
| 1231 |
|
|
| 1229 | 1232 |
($sellprice || $form->{"sellprice_$i"}) =~ /\.(\d+)/;
|
| 1230 | 1233 |
$decimalplaces = max 2, length $1; |
| 1231 | 1234 |
|
Auch abrufbar als: Unified diff
Preisfatkoren implementiert.