X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/b8b112a39bd601b0bc717646d78de470631da22a..a89af9c2a38f19bc2834a2e09a286ff36c9ef3d7:/SL/DB/MetaSetup/Dunning.pm diff --git a/SL/DB/MetaSetup/Dunning.pm b/SL/DB/MetaSetup/Dunning.pm index 019662bc4..a0098e776 100644 --- a/SL/DB/MetaSetup/Dunning.pm +++ b/SL/DB/MetaSetup/Dunning.pm @@ -4,23 +4,23 @@ package SL::DB::Dunning; use strict; -use base qw(SL::DB::Object); +use parent qw(SL::DB::Object); __PACKAGE__->meta->table('dunning'); __PACKAGE__->meta->columns( - id => { type => 'integer', not_null => 1, sequence => 'id' }, - trans_id => { type => 'integer' }, - dunning_id => { type => 'integer' }, - dunning_level => { type => 'integer' }, - transdate => { type => 'date' }, duedate => { type => 'date' }, - fee => { type => 'numeric', precision => 5, scale => 15 }, - interest => { type => 'numeric', precision => 5, scale => 15 }, dunning_config_id => { type => 'integer' }, + dunning_id => { type => 'integer' }, + dunning_level => { type => 'integer' }, + fee => { type => 'numeric', precision => 15, scale => 5 }, + fee_interest_ar_id => { type => 'integer' }, + id => { type => 'integer', not_null => 1, sequence => 'id' }, + interest => { type => 'numeric', precision => 15, scale => 5 }, itime => { type => 'timestamp', default => 'now()' }, mtime => { type => 'timestamp' }, - fee_interest_ar_id => { type => 'integer' }, + trans_id => { type => 'integer' }, + transdate => { type => 'date' }, ); __PACKAGE__->meta->primary_key_columns([ 'id' ]); @@ -28,13 +28,16 @@ __PACKAGE__->meta->primary_key_columns([ 'id' ]); __PACKAGE__->meta->allow_inline_column_values(1); __PACKAGE__->meta->foreign_keys( + dunning_config => { + class => 'SL::DB::DunningConfig', + key_columns => { dunning_config_id => 'id' }, + }, + fee_interest_ar => { class => 'SL::DB::Invoice', key_columns => { fee_interest_ar_id => 'id' }, }, ); -# __PACKAGE__->meta->initialize; - 1; ;