Revision debf6f14
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| SL/IR.pm | ||
|---|---|---|
| 54 | 54 |
my $taxdiff; |
| 55 | 55 |
my $item; |
| 56 | 56 |
|
| 57 |
my $service_units = AM->retrieve_units($myconfig,$form,"service"); |
|
| 58 |
my $part_units = AM->retrieve_units($myconfig,$form,"dimension"); |
|
| 57 |
my $all_units = AM->retrieve_units($myconfig, $form); |
|
| 59 | 58 |
|
| 60 | 59 |
if ($form->{id}) {
|
| 61 | 60 |
|
| ... | ... | |
| 124 | 123 |
my ($item_unit) = $sth->fetchrow_array(); |
| 125 | 124 |
$sth->finish; |
| 126 | 125 |
|
| 127 |
if ($form->{"inventory_accno_$i"}) {
|
|
| 128 |
if (defined($part_units->{$item_unit}->{factor}) && $part_units->{$item_unit}->{factor} ne '' && $part_units->{$item_unit}->{factor} ne '0') {
|
|
| 129 |
$basefactor = $part_units->{$form->{"unit_$i"}}->{factor} / $part_units->{$item_unit}->{factor};
|
|
| 130 |
} else {
|
|
| 131 |
$basefactor = 1; |
|
| 132 |
} |
|
| 133 |
$baseqty = $form->{"qty_$i"} * $basefactor;
|
|
| 126 |
if (defined($all_units->{$item_unit}->{factor})
|
|
| 127 |
&& ($all_units->{$item_unit}->{factor} ne '')
|
|
| 128 |
&& ($all_units->{$item_unit}->{factor} * 1 != 0)) {
|
|
| 129 |
$basefactor = $all_units->{$form->{"unit_$i"}}->{factor} / $all_units->{$item_unit}->{factor};
|
|
| 134 | 130 |
} else {
|
| 135 |
if (defined($service_units->{$item_unit}->{factor}) && $service_units->{$item_unit}->{factor} ne '' && $service_units->{$item_unit}->{factor} ne '0') {
|
|
| 136 |
$basefactor = $service_units->{$form->{"unit_$i"}}->{factor} / $service_units->{$item_unit}->{factor};
|
|
| 137 |
} else {
|
|
| 138 |
$basefactor = 1; |
|
| 139 |
} |
|
| 140 |
$baseqty = $form->{"qty_$i"} * $basefactor;
|
|
| 131 |
$basefactor = 1; |
|
| 141 | 132 |
} |
| 133 |
$baseqty = $form->{"qty_$i"} * $basefactor;
|
|
| 142 | 134 |
|
| 143 | 135 |
map { $form->{"${_}_$i"} =~ s/\'/\'\'/g }
|
| 144 | 136 |
qw(partnumber description unit); |
Auch abrufbar als: Unified diff
Beim Speichern einfach in allen Einheiten nach der ausgewählten Einheit suchen.