Revision ef220490
Von Moritz Bunkus vor mehr als 15 Jahren hinzugefügt
| bin/mozilla/ic.pl | ||
|---|---|---|
| 1796 | 1796 |
# don't trample on previous variables |
| 1797 | 1797 |
map { delete $form->{$_} } keys %newform;
|
| 1798 | 1798 |
|
| 1799 |
my $ic_cvar_configs = CVar->get_configs(module => 'IC'); |
|
| 1800 |
my @ic_cvar_fields = map { "cvar_$_->{name}" } @{ $ic_cvar_configs };
|
|
| 1801 |
|
|
| 1799 | 1802 |
# now take it apart and restore original values |
| 1800 | 1803 |
foreach my $item (split /&/, $previousform) {
|
| 1801 | 1804 |
my ($key, $value) = split m/=/, $item, 2; |
| ... | ... | |
| 1819 | 1822 |
|
| 1820 | 1823 |
# change/add values for assembly item |
| 1821 | 1824 |
map { $form->{"${_}_$i"} = $newform{$_} } qw(partnumber description bin unit weight listprice sellprice inventory_accno income_accno expense_accno price_factor_id);
|
| 1825 |
map { $form->{"ic_${_}_$i"} = $newform{$_} } @ic_cvar_fields;
|
|
| 1822 | 1826 |
|
| 1823 | 1827 |
# das ist __voll__ bekloppt, dass so auszurechnen jb 22.5.09 |
| 1824 | 1828 |
#$form->{sellprice} += $form->{"sellprice_$i"} * $form->{"qty_$i"};
|
| ... | ... | |
| 1831 | 1835 |
$form->{"qty_$i"} = 1 unless ($form->{"qty_$i"});
|
| 1832 | 1836 |
|
| 1833 | 1837 |
map { $form->{"${_}_$i"} = $newform{$_} } qw(partnumber description bin unit listprice inventory_accno income_accno expense_accno sellprice lastcost price_factor_id);
|
| 1838 |
map { $form->{"ic_${_}_$i"} = $newform{$_} } @ic_cvar_fields;
|
|
| 1834 | 1839 |
|
| 1835 | 1840 |
$form->{"longdescription_$i"} = $newform{notes};
|
| 1836 | 1841 |
|
Auch abrufbar als: Unified diff
Ausweitung der benutzerdefinierten Variablen für Waren/Dienstleistungen/Erzeugnisse auf Anzeige/Modifikation in Angeboten/Aufträgen.