Revision 07948c34
Von Moritz Bunkus vor mehr als 16 Jahren hinzugefügt
| SL/IS.pm | ||
|---|---|---|
| 1828 | 1828 |
|
| 1829 | 1829 |
my $i = 1; |
| 1830 | 1830 |
my $id = 0; |
| 1831 |
my $dimension_units = AM->retrieve_units($myconfig, $form, "dimension"); |
|
| 1832 |
my $service_units = AM->retrieve_units($myconfig, $form, "service"); |
|
| 1833 | 1831 |
my $all_units = AM->retrieve_units($myconfig, $form); |
| 1834 | 1832 |
while (($form->{"id_$i"}) or ($form->{"new_id_$i"})) {
|
| 1835 | 1833 |
$form->{"PRICES"}{$i} = [];
|
| ... | ... | |
| 1862 | 1860 |
# vergleichen und bei Unterschied den Preis entsprechend umrechnen. |
| 1863 | 1861 |
$form->{"selected_unit_$i"} = $form->{"unit_$i"} unless ($form->{"selected_unit_$i"});
|
| 1864 | 1862 |
|
| 1865 |
my $check_units = $form->{"inventory_accno_$i"} ? $dimension_units : $service_units;
|
|
| 1866 |
if (!$check_units->{$form->{"selected_unit_$i"}} ||
|
|
| 1867 |
($check_units->{$form->{"selected_unit_$i"}}->{"base_unit"} ne
|
|
| 1863 |
if (!$all_units->{$form->{"selected_unit_$i"}} ||
|
|
| 1864 |
($all_units->{$form->{"selected_unit_$i"}}->{"base_unit"} ne
|
|
| 1868 | 1865 |
$all_units->{$form->{"unit_old_$i"}}->{"base_unit"})) {
|
| 1869 | 1866 |
# Die ausgewaehlte Einheit ist fuer diesen Artikel nicht gueltig |
| 1870 | 1867 |
# (z.B. Dimensionseinheit war ausgewaehlt, es handelt sich aber |
Auch abrufbar als: Unified diff
Trennung zwischen Dienstleistungs- und Wareneinheiten aufgehoben.