projekt kivitendo

    } else {

      ($form->{id}) = selectrow_query($form, $dbh, qq|SELECT nextval('glid')|);

      $query =

        qq|INSERT INTO ap (id, invnumber, employee_id,currency_id, taxzone_id) | .

        qq|VALUES (?, ?, (SELECT e.id FROM employee e WHERE e.login = ?),

  # constraint, if Buchungsgruppe is connected to a part

  my $db = $self->{config}->db;

        my $taxzone_charts = SL::DB::Manager::TaxzoneChart->get_all(where => [ buchungsgruppen_id => $self->config->id ]);

        foreach my $taxzonechart ( @{$taxzone_charts} ) { $taxzonechart->delete };

        $self->config->delete();

    my $ri = $p->{row_ident};

    $ccb->{row_ident}->{$ri} = [ map { "cvar_" . $_->name } (@{ $self->cvar_configs_by->{row_ident}->{$ri} }) ];

  }

  return $ccb;

}

  my ($self) = @_;

  return SL::DB::Manager::TaxzoneChart->get_all(where => [ buchungsgruppen_id => $self->id ]);

}

sub orphaned {

  my ($self) = @_;

  die 'not an accessor' if @_ > 1;

  $form->{saved_donumber} = $form->{donumber};

  $form->{saved_ordnumber} = $form->{ordnumber};

  $form->{saved_cusordnumber} = $form->{cusordnumber};

  Common::webdav_folder($form);

  $main::lxdebug->leave_sub();

    # also search hits in makemodels, but only cache the results by id and merge later

    my $mm_query = qq|

      WHERE NOT parts.obsolete AND model ILIKE ? AND (make IS NULL OR make = ?);

    |;

    my $mm_results = selectall_hashref_query($::form, $dbh, $mm_query, '%' . $form->{"partnumber_$i"} . '%', $::form->{vendor_id});

           WHERE id = p.buchungsgruppen_id) = c1.id)

       LEFT JOIN chart c2 ON

         ((SELECT tc.income_accno_id

           WHERE tc.taxzone_id = '$taxzone_id' and tc.buchungsgruppen_id = p.buchungsgruppen_id) = c2.id)

       LEFT JOIN chart c3 ON

         ((SELECT tc.expense_accno_id

report.

Valid options:

=item C<get_is_changeable>

=back

=over 2

  Common::check_params(\%params, qw(assembly_id dst_warehouse_id login qty unit dst_bin_id chargenumber bestbefore comment));

  if ($unit) {

    my $assembly = SL::DB::Manager::Assembly->get_all(

      query => [ id => $params{assembly_id} ],

    # stored seperately).  However, for fxsellprice this method only works when

    # the tax is not included, because otherwise fxsellprice includes the tax

    # and there is no simple way to extract the tax rate of the article from

    #

    # Using fxsellprice is potentially more accurate (certainly for tax

    # included), because we can use the same method as is used while the

    # sellprice_total_including_tax = qty * fxsellprice * (1-discount) /  price_factor * exchangerate

    # $ar->{sellprice_total_including_tax} =  $form->round_amount( $ar->{qty} * ( $ar->{fxsellprice} * ( 1 - $ar->{discount} ) ) / $ar->{price_factor}, $form->{"decimalplaces"});

    $ar->{sellprice_total} = $form->round_amount( $ar->{qty} * $ar->{sellprice} / $ar->{price_factor} , $form->{"decimalplaces"});

    $ar->{lastcost}        = $ar->{lastcost}   / $ar->{price_factor} / $basefactor;