Revision c2f2c60e
Von Sven Schöling vor fast 16 Jahren hinzugefügt
| SL/IS.pm | ||
|---|---|---|
| 1212 | 1212 |
$main::lxdebug->enter_sub(); |
| 1213 | 1213 |
|
| 1214 | 1214 |
my ($dbh, $form, $id, $totalqty, $basefactor, $row) = @_; |
| 1215 |
|
|
| 1216 |
$basefactor ||= 1; |
|
| 1217 |
|
|
| 1215 | 1218 |
$form->{taxzone_id} *=1;
|
| 1216 | 1219 |
my $transdate = $form->{invdate} ? $dbh->quote($form->{invdate}) : "current_date";
|
| 1217 | 1220 |
my $taxzone_id = $form->{"taxzone_id"} * 1;
|
| ... | ... | |
| 1242 | 1245 |
|
| 1243 | 1246 |
# total expenses and inventory |
| 1244 | 1247 |
# sellprice is the cost of the item |
| 1245 |
my $linetotal = $form->round_amount(($ref->{sellprice} * $qty) / $basefactor, 2);
|
|
| 1248 |
my $linetotal = $form->round_amount(($ref->{sellprice} * $qty) / ( $basefactor || 1 ), 2);
|
|
| 1246 | 1249 |
|
| 1247 | 1250 |
if (!$main::eur) {
|
| 1248 | 1251 |
$ref->{expense_accno} = ($form->{"expense_accno_$row"}) ? $form->{"expense_accno_$row"} : $ref->{expense_accno};
|
Auch abrufbar als: Unified diff
Potentieller Fix für Bug 879. IS::cogs hatte unsicheres basefactor Handling.