Revision be6f6cfd
Von Moritz Bunkus vor fast 14 Jahren hinzugefügt
| SL/IS.pm | ||
|---|---|---|
| 1045 | 1045 |
# save printed, emailed and queued |
| 1046 | 1046 |
$form->save_status($dbh); |
| 1047 | 1047 |
|
| 1048 |
Common::webdav_folder($form) if ($main::webdav);
|
|
| 1048 |
Common::webdav_folder($form); |
|
| 1049 | 1049 |
|
| 1050 | 1050 |
# Link this record to the records it was created from. |
| 1051 | 1051 |
RecordLinks->create_links('dbh' => $dbh,
|
| ... | ... | |
| 1277 | 1277 |
# sellprice is the cost of the item |
| 1278 | 1278 |
my $linetotal = $form->round_amount(($ref->{sellprice} * $qty) / ( ($ref->{price_factor} || 1) * ( $basefactor || 1 )), 2);
|
| 1279 | 1279 |
|
| 1280 |
if (!$main::eur) {
|
|
| 1280 |
if (!$::lx_office_conf{system}->{eur}) {
|
|
| 1281 | 1281 |
$ref->{expense_accno} = ($form->{"expense_accno_$row"}) ? $form->{"expense_accno_$row"} : $ref->{expense_accno};
|
| 1282 | 1282 |
# add to expense |
| 1283 | 1283 |
$form->{amount_cogs}{ $form->{id} }{ $ref->{expense_accno} } += -$linetotal;
|
| ... | ... | |
| 1584 | 1584 |
} |
| 1585 | 1585 |
$sth->finish; |
| 1586 | 1586 |
|
| 1587 |
Common::webdav_folder($form) if ($main::webdav);
|
|
| 1587 |
Common::webdav_folder($form); |
|
| 1588 | 1588 |
} |
| 1589 | 1589 |
|
| 1590 | 1590 |
my $rc = $dbh->commit; |
Auch abrufbar als: Unified diff
Globale Variablen für Systemeinstellungen und Features nach %::lx_office_conf verschoben
Betroffen sind:
$webdav
$vertreter
$lizenzen
$show_best_before
$parts_show_image
$parts_image_css
$parts_listing_images
$eur
$dbcharset
$language