X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDB%2FPurchaseInvoice.pm;h=dd49433c6adb518e9638437439b64509ec7b69d8;hb=bcdc9f7040d4bc0c0b4d7ce77f1afc29543b04a4;hp=78034c7f85365de620967b5d2909bae41922599a;hpb=6a12a968761127af91e9da8db7579be2836bcaaa;p=kivitendo-erp.git diff --git a/SL/DB/PurchaseInvoice.pm b/SL/DB/PurchaseInvoice.pm index 78034c7f8..dd49433c6 100644 --- a/SL/DB/PurchaseInvoice.pm +++ b/SL/DB/PurchaseInvoice.pm @@ -3,12 +3,16 @@ package SL::DB::PurchaseInvoice; use strict; use Carp; +use Data::Dumper; use SL::DB::MetaSetup::PurchaseInvoice; use SL::DB::Manager::PurchaseInvoice; use SL::DB::Helper::AttrHTML; +use SL::DB::Helper::AttrSorted; use SL::DB::Helper::LinkedRecords; +use SL::DB::Helper::Payment qw(:ALL); use SL::Locale::String qw(t8); +use Rose::DB::Object::Helpers qw(has_loaded_related forget_related); # The calculator hasn't been adjusted for purchase invoices yet. # use SL::DB::Helper::PriceTaxCalculator; @@ -26,6 +30,12 @@ __PACKAGE__->meta->add_relationship( column_map => { id => 'ap_id' }, manager_args => { with_objects => [ 'sepa_export' ] } }, + sepa_exports => { + type => 'many to many', + map_class => 'SL::DB::SepaExportItem', + map_from => 'ap', + map_to => 'sepa_export', + }, custom_shipto => { type => 'one to one', class => 'SL::DB::Shipto', @@ -44,15 +54,11 @@ __PACKAGE__->meta->add_relationship( __PACKAGE__->meta->initialize; __PACKAGE__->attr_html('notes'); +__PACKAGE__->attr_sorted('items'); sub items { goto &invoiceitems; } sub add_items { goto &add_invoiceitems; } - -sub items_sorted { - my ($self) = @_; - - return [ sort {$a->position <=> $b->position } @{ $self->items } ]; -} +sub record_number { goto &invnumber; }; sub is_sales { # For compatibility with Order, DeliveryOrder @@ -82,56 +88,163 @@ sub abbreviation { }; -sub pay_invoice { - my ($self, %params) = @_; +sub oneline_summary { + my $self = shift; - #Mark invoice as paid - $self->paid($self->paid+$params{amount}); - $self->save; - - Common::check_params(\%params, qw(chart_id trans_id amount transdate)); - - #account of bank account or cash - my $account_bank = SL::DB::Manager::Chart->find_by(id => $params{chart_id}); - - #Search the contra account - my $acc_trans = SL::DB::Manager::AccTransaction->find_by(trans_id => $params{trans_id}, - or => [ chart_link => { like => "%:AP" }, - chart_link => { like => "AP:%" }, - chart_link => "AP" ]); - my $contra_account = SL::DB::Manager::Chart->find_by(id => $acc_trans->chart_id); - - #Two new transfers in acc_trans (for bank account and for contra account) - my $new_acc_trans = SL::DB::AccTransaction->new(trans_id => $params{trans_id}, - chart_id => $account_bank->id, - chart_link => $account_bank->link, - amount => $params{amount}, - transdate => $params{transdate}, - source => $params{source}, - memo => '', - taxkey => 0, - tax_id => SL::DB::Manager::Tax->find_by(taxkey => 0)->id); - $new_acc_trans->save; - $new_acc_trans = SL::DB::AccTransaction->new(trans_id => $params{trans_id}, - chart_id => $contra_account->id, - chart_link => $contra_account->link, - amount => (-1 * $params{amount}), - transdate => $params{transdate}, - source => $params{source}, - memo => '', - taxkey => 0, - tax_id => SL::DB::Manager::Tax->find_by(taxkey => 0)->id); - $new_acc_trans->save; + return sprintf("%s: %s %s %s (%s)", $self->abbreviation, $self->invnumber, $self->vendor->name, + $::form->format_amount(\%::myconfig, $self->amount,2), $self->transdate->to_kivitendo); } sub link { my ($self) = @_; my $html; - $html = SL::Presenter->get->purchase_invoice($self, display => 'inline') if $self->invoice; - $html = SL::Presenter->get->ap_transaction($self, display => 'inline') if !$self->invoice; + $html = $self->presenter->purchase_invoice(display => 'inline') if $self->invoice; + $html = $self->presenter->ap_transaction(display => 'inline') if !$self->invoice; return $html; } +sub invoice_type { + my ($self) = @_; + + return 'ap_transaction' if !$self->invoice; + return 'purchase_invoice'; +} + +sub displayable_type { + my ($self) = @_; + + return t8('AP Transaction') if $self->invoice_type eq 'ap_transaction'; + return t8('Purchase Invoice'); +} + +sub displayable_name { + join ' ', grep $_, map $_[0]->$_, qw(displayable_type record_number); +}; + +sub create_ap_row { + my ($self, %params) = @_; + # needs chart as param + # to be called after adding all AP_amount rows + + # only allow this method for ap invoices (Kreditorenbuchung) + die if $self->invoice and not $self->vendor_id; + + my $acc_trans = []; + my $chart = $params{chart} || SL::DB::Manager::Chart->find_by(id => $::instance_conf->get_ap_chart_id); + die "illegal chart in create_ap_row" unless $chart; + + die "receivables chart must have link 'AP'" . Dumper($chart) unless $chart->link eq 'AP'; + + # hardcoded entry for no tax, tax_id and taxkey should be 0 + my $tax = SL::DB::Manager::Tax->find_by(id => 0, taxkey => 0) || die "Can't find tax with id 0 and taxkey 0"; + + my $sign = $self->vendor_id ? 1 : -1; + my $acc = SL::DB::AccTransaction->new( + amount => $self->amount * $sign, + chart_id => $params{chart}->id, + chart_link => $params{chart}->link, + transdate => $self->transdate, + taxkey => $tax->taxkey, + tax_id => $tax->id, + ); + $self->add_transactions( $acc ); + push( @$acc_trans, $acc ); + return $acc_trans; +}; + +sub add_ap_amount_row { + my ($self, %params ) = @_; + + # only allow this method for ap invoices (Kreditorenbuchung) + die "not an ap invoice" if $self->invoice and not $self->vendor_id; + + die "add_ap_amount_row needs a chart object as chart param" unless $params{chart} && $params{chart}->isa('SL::DB::Chart'); + die unless $params{chart}->link =~ /AP_amount/; + + my $acc_trans = []; + + my $roundplaces = 2; + my ($netamount,$taxamount); + + $netamount = $params{amount} * 1; + my $tax = SL::DB::Manager::Tax->find_by(id => $params{tax_id}) || die "Can't find tax with id " . $params{tax_id}; + + if ( $tax and $tax->rate != 0 ) { + ($netamount, $taxamount) = Form->calculate_tax($params{amount}, $tax->rate, $self->taxincluded, $roundplaces); + }; + next unless $netamount; # netamount mustn't be zero + + my $sign = $self->vendor_id ? -1 : 1; + my $acc = SL::DB::AccTransaction->new( + amount => $netamount * $sign, + chart_id => $params{chart}->id, + chart_link => $params{chart}->link, + transdate => $self->transdate, + gldate => $self->gldate, + taxkey => $tax->taxkey, + tax_id => $tax->id, + project_id => $params{project_id}, + ); + + $self->add_transactions( $acc ); + push( @$acc_trans, $acc ); + + if ( $taxamount ) { + my $acc = SL::DB::AccTransaction->new( + amount => $taxamount * $sign, + chart_id => $tax->chart_id, + chart_link => $tax->chart->link, + transdate => $self->transdate, + gldate => $self->gldate, + taxkey => $tax->taxkey, + tax_id => $tax->id, + project_id => $params{project_id}, + ); + $self->add_transactions( $acc ); + push( @$acc_trans, $acc ); + }; + return $acc_trans; +}; + +sub mark_as_paid { + my ($self) = @_; + + $self->update_attributes(paid => $self->amount); +} + +sub effective_tax_point { + my ($self) = @_; + + return $self->tax_point || $self->deliverydate || $self->transdate; +} + 1; + + +__END__ + +=pod + +=encoding UTF-8 + +=head1 NAME + +SL::DB::PurchaseInvoice: Rose model for purchase invoices (table "ap") + +=head1 FUNCTIONS + +=over 4 + +=item C + +Marks the invoice as paid by setting its C member to the value of C. + +=back + +=head1 AUTHOR + +Moritz Bunkus Em.bunkus@linet-services.deE + +=cut