X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FIS.pm;h=b47944bdcdda58ea9581a0228b14f4ed91ba9c43;hb=c9b8ad08645675a40f96bdeaa23b1d0e62d772e6;hp=82a426d85b648abae404bb830ec4a044a2772f20;hpb=88d594e955975a737c4ccab46415837cd48aeb66;p=kivitendo-erp.git diff --git a/SL/IS.pm b/SL/IS.pm index 82a426d85..b47944bdc 100644 --- a/SL/IS.pm +++ b/SL/IS.pm @@ -492,6 +492,8 @@ sub post_invoice { if (!$form->{employee_id}) { $form->get_employee($dbh); } + + $form->{defaultcurrency} = $form->get_default_currency($myconfig); ($null, $form->{department_id}) = split(/--/, $form->{department}); @@ -1109,7 +1111,7 @@ sub post_payment { # Retrieve the invoice from the database. $self->retrieve_invoice($myconfig, $form); - # Set up the content of $form in the way that IR::post_invoice() expects. + # Set up the content of $form in the way that IS::post_invoice() expects. $form->{exchangerate} = $form->format_amount($myconfig, $form->{exchangerate}); for $row (1 .. scalar @{ $form->{invoice_details} }) { @@ -1792,7 +1794,7 @@ sub retrieve_item { my $query = qq|SELECT p.id, p.partnumber, p.description, p.sellprice, - p.listprice, p.inventory_accno_id, + p.listprice, p.inventory_accno_id, p.lastcost, c1.accno AS inventory_accno, c1.new_chart_id AS inventory_new_chart,