X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fic.pl;h=f2ca8a9294402060220869190525e0a0fd059285;hb=2994c1e9337b80e4e9a60cd4393fcf49595da5df;hp=fbd4fdedfa931db81c9ea9623054863e0a265706;hpb=df0cd5df111e996f5f073b499044dc12dd35e6a1;p=kivitendo-erp.git diff --git a/bin/mozilla/ic.pl b/bin/mozilla/ic.pl index fbd4fdedf..f2ca8a929 100644 --- a/bin/mozilla/ic.pl +++ b/bin/mozilla/ic.pl @@ -270,7 +270,7 @@ sub list { for ($j = 1; $j <= $i; $j++) { print qq| - |; + |; if ($j == 1) { print qq| |; @@ -752,8 +752,8 @@ sub addtop100 { } #rof } #fi # build data for columns + my $i = 0; foreach my $ref (@{ $form->{parts} }) { - my $i = 0; if ($form->{l_subtotal} eq 'Y' && !$ref->{assemblyitem}) { if ($sameitem ne $ref->{ $form->{sort} }) { @@ -1954,6 +1954,8 @@ sub save { map { $form->{"${_}_$i"} = $newform{$_} } qw(partnumber description bin unit listprice inventory_accno income_accno expense_accno sellprice lastcost price_factor_id); + $form->{"longdescription_$i"} = $newform{notes}; + $form->{"sellprice_$i"} = $newform{lastcost} if ($form->{vendor_id}); if ($form->{exchangerate} != 0) { @@ -2067,30 +2069,13 @@ sub price_row { my ($numrows) = @_; - print qq| - - - - - - - -|; - for my $i (1 .. $numrows) { - print qq| - - - - - -|; - } + my @PRICES = map +{ + pricegroup => $form->{"pricegroup_$_"}, + pricegroup_id => $form->{"pricegroup_id_$_"}, + price => $form->{"price_$_"}, + }, 1 .. $numrows; - print qq| -
| . $locale->text('Preisklasse') . qq|| . $locale->text('Preis') . qq|
$form->{"pricegroup_$i"}
- - -|; + print $form->parse_html_template('ic/price_row', { PRICES => \@PRICES }); $lxdebug->leave_sub(); }