tcolorbox breakable

[mfinanz.git] / SL / DB / Invoice.pm

diff --git a/SL/DB/Invoice.pm b/SL/DB/Invoice.pm
index 44b81dfd09cd9ebc46dfa07eb830597297565578..38ec9c0f7549f56c84ce27ee5e7b8f5e24979df7 100644 (file)
--- a/SL/DB/Invoice.pm
+++ b/SL/DB/Invoice.pm
@@ -60,6 +60,12 @@ __PACKAGE__->meta->add_relationship(
       sort_by      => 'acc_trans_id ASC',
     },
   },
       sort_by      => 'acc_trans_id ASC',
     },
   },

+  dunnings       => {
+    type         => 'one to many',
+    class        => 'SL::DB::Dunning',
+    column_map   => { id => 'trans_id' },
+    manager_args => { with_objects => [ 'dunnings' ] }
+  },

 );
 
 __PACKAGE__->meta->initialize;
 );
 
 __PACKAGE__->meta->initialize;


@@ -178,9 +184,16 @@ sub new_from {
 
   $args{payment_id} = ( $terms ? $terms->id : $source->payment_id);
 
 
   $args{payment_id} = ( $terms ? $terms->id : $source->payment_id);
 

-  if ($source->type =~ /_order$/) {
+  if ($source->type =~ /_delivery_order$/) {
+    $args{deliverydate} = $source->reqdate;
+    if (my $order = SL::DB::Manager::Order->find_by(ordnumber => $source->ordnumber)) {
+      $args{orddate}    = $order->transdate;
+    }
+
+  } elsif ($source->type =~ /_order$/) {

     $args{deliverydate} = $source->reqdate;
     $args{orddate}      = $source->transdate;
     $args{deliverydate} = $source->reqdate;
     $args{orddate}      = $source->transdate;

+

   } else {
     $args{quodate}      = $source->transdate;
   }
   } else {
     $args{quodate}      = $source->transdate;
   }


@@ -349,6 +362,7 @@ sub add_ar_amount_row {
     chart_id   => $params{chart}->id,
     chart_link => $params{chart}->link,
     transdate  => $self->transdate,
     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},
     taxkey     => $tax->taxkey,
     tax_id     => $tax->id,
     project_id => $params{project_id},


@@ -363,6 +377,7 @@ sub add_ar_amount_row {
        chart_id   => $tax->chart_id,
        chart_link => $tax->chart->link,
        transdate  => $self->transdate,
        chart_id   => $tax->chart_id,
        chart_link => $tax->chart->link,
        transdate  => $self->transdate,

+       gldate     => $self->gldate,

        taxkey     => $tax->taxkey,
        tax_id     => $tax->id,
      );
        taxkey     => $tax->taxkey,
        tax_id     => $tax->id,
      );


@@ -578,8 +593,8 @@ sub link {
   my ($self) = @_;
 
   my $html;
   my ($self) = @_;
 
   my $html;

-  $html   = SL::Presenter->get->sales_invoice($self, display => 'inline') if $self->invoice;
-  $html   = SL::Presenter->get->ar_transaction($self, display => 'inline') if !$self->invoice;
+  $html   = $self->presenter->sales_invoice(display => 'inline') if $self->invoice;
+  $html   = $self->presenter->ar_transaction(display => 'inline') if !$self->invoice;

 
   return $html;
 }
 
   return $html;
 }


@@ -714,7 +729,7 @@ See L<SL::DB::Object::basic_info>.
 =item C<closed>
 
 Returns 1 or 0, depending on whether the invoice is closed or not. Currently
 =item C<closed>
 
 Returns 1 or 0, depending on whether the invoice is closed or not. Currently

-invoices that are overpaid also count as closed.
+invoices that are overpaid also count as closed and credit notes in general.

 
 =item C<recalculate_amounts %params>
 
 
 =item C<recalculate_amounts %params>