projekt kivitendo

package SL::DB;

use strict;

use Carp;

use Data::Dumper;

use English qw(-no_match_vars);

use Rose::DB;

use base qw(Rose::DB);

__PACKAGE__->use_private_registry;

my (%_db_registered, %_initial_sql_executed);

sub create {

  my $domain = shift || SL::DB->default_domain;

  my $type   = shift || SL::DB->default_type;

  if ($type eq 'LXOFFICE') {

    $domain = 'LXEMPTY' unless %::myconfig && $::myconfig{dbname};

    $type   = join $SUBSCRIPT_SEPARATOR, map { $::myconfig{$_} } qw(dbdriver dbname dbhost dbport dbuser dbpasswd) if %::myconfig;

  }

  _register_db($domain, $type);

  my $db = __PACKAGE__->new_or_cached(domain => $domain, type => $type);

  return $db;

}

sub _register_db {

  my $domain = shift;

  my $type   = shift;

  my $idx    = "${domain}::${type}";

  return if $_db_registered{$idx};

  $_db_registered{$idx} = 1;

  __PACKAGE__->register_db(domain          => $domain,

                           type            => $type,

                           driver          => $::myconfig{dbdriver} || 'Pg',

                           database        => $::myconfig{dbname},

                           host            => $::myconfig{dbhost},

                           port            => $::myconfig{dbport} || 5432,

                           username        => $::myconfig{dbuser},

                           password        => $::myconfig{dbpasswd},

                           connect_options => { pg_enable_utf8 => $::locale && $::locale->is_utf8,

                                              },

                          );

}

1;

# This file has been auto-generated only because it didn't exist.

# Feel free to modify it at will; it will not be overwritten automatically.

package SL::DB::Assembly;

use strict;

use SL::DB::MetaSetup::Assembly;

__PACKAGE__->meta->add_relationships(

  part => {

    type         => 'one to one',

    class        => 'SL::DB::Part',

    column_map   => { parts_id => 'id' },

  },

);

# Creates get_all, get_all_count, get_all_iterator, delete_all and update_all.

__PACKAGE__->meta->make_manager_class;

__PACKAGE__->meta->initialize;

1;

# This file has been auto-generated only because it didn't exist.

# Feel free to modify it at will; it will not be overwritten automatically.

package SL::DB::Bin;

use strict;

use SL::DB::MetaSetup::Bin;

# Creates get_all, get_all_count, get_all_iterator, delete_all and update_all.

__PACKAGE__->meta->make_manager_class;

1;

# This file has been auto-generated only because it didn't exist.

# Feel free to modify it at will; it will not be overwritten automatically.

package SL::DB::Business;

use strict;

use SL::DB::MetaSetup::Business;

__PACKAGE__->attr_percent('discount', places => -2);

# Creates get_all, get_all_count, get_all_iterator, delete_all and update_all.

__PACKAGE__->meta->make_manager_class;

1;

package SL::DB::Chart;

use strict;

use SL::DB::MetaSetup::Chart;

__PACKAGE__->meta->make_manager_class;

1;

package SL::DB::Customer;

use strict;

use SL::DB::MetaSetup::Customer;

use SL::DB::VC;

__PACKAGE__->meta->add_relationship(

  shipto => {

    type         => 'one to many',

    class        => 'SL::DB::Shipto',

    column_map   => { id      => 'trans_id' },

    manager_args => { sort_by => 'lower(shipto.shiptoname)' },

    query_args   => [ 'shipto.module' => 'CT' ],

  },

  business => {

    type         => 'one to one',

    class        => 'SL::DB::Business',

    column_map   => { business_id => 'id' },

  },

);

__PACKAGE__->meta->make_manager_class;

__PACKAGE__->meta->initialize;

1;

package SL::DB::DeliveryOrder;

use strict;

use SL::DB::MetaSetup::DeliveryOrder;

use SL::DB::Manager::DeliveryOrder;

use SL::DB::Order;

use List::Util qw(first);

for my $field (qw(transdate reqdate)) {

  __PACKAGE__->attr_date($field);

}

__PACKAGE__->meta->add_relationship(orderitems => { type         => 'one to many',

                                                    class        => 'SL::DB::DeliveryOrderItem',

                                                    column_map   => { id => 'trans_id' },

                                                    manager_args => { with_objects => [ 'part' ] }

                                                  },

                                   );

__PACKAGE__->meta->initialize;

# methods

sub sales_order {

  my $self   = shift;

  my %params = @_;

  my $orders = SL::DB::Manager::Order->get_all(

    query => [

      ordnumber => $self->ordnumber,

      @{ $params{query} || [] },

    ],

  );

  return first { $_->is_type('sales_order') } @{ $orders };

}

1;

package SL::DB::DeliveryOrderItem;

use strict;

use SL::DB::MetaSetup::DeliveryOrderItem;

for my $field (qw(qty sellprice discount base_qty lastcost price_factor marge_price_factor)) {

  __PACKAGE__->attr_number($field, places => -2);

}

__PACKAGE__->meta->make_manager_class;

# methods

sub part {

  # canonial alias for parts.

  return shift->parts;

}

1;

# This file has been auto-generated only because it didn't exist.

# Feel free to modify it at will; it will not be overwritten automatically.

package SL::DB::DeliveryOrderItemsStock;

use strict;

use SL::DB::MetaSetup::DeliveryOrderItemsStock;

for my $field (qw(qty)) {

  __PACKAGE__->attr_number($field, places => -2);

}

# Creates get_all, get_all_count, get_all_iterator, delete_all and update_all.

__PACKAGE__->meta->make_manager_class;

1;

package SL::DB::GLTransaction;

use strict;

use SL::DB::MetaSetup::GLTransaction;

for my $field (qw(transdate gldate)) {

  __PACKAGE__->attr_date($field);

}

# Creates get_all, get_all_count, get_all_iterator, delete_all and update_all.

__PACKAGE__->meta->make_manager_class;

1;

package SL::DB::Helpers::ALL;

use strict;

use SL::DB::Assembly;

use SL::DB::Bin;

use SL::DB::Business;

use SL::DB::Chart;

use SL::DB::Customer;

use SL::DB::DeliveryOrder;

use SL::DB::DeliveryOrderItem;

use SL::DB::DeliveryOrderItemsStock;

use SL::DB::GLTransaction;

use SL::DB::Invoice;

use SL::DB::InvoiceItem;

use SL::DB::Order;

use SL::DB::OrderItem;

use SL::DB::Part;

use SL::DB::PriceFactor;

use SL::DB::Printer;

use SL::DB::Project;

use SL::DB::PurchaseInvoice;

use SL::DB::Shipto;

use SL::DB::TransferType;

use SL::DB::Unit;

use SL::DB::Vendor;

use SL::DB::Warehouse;

1;

__END__

=pod

=head1 NAME

SL::DB::Helpers::ALL: Dependency-only package for all SL::DB::* modules

=head1 SYNOPSIS

  use SL::DB::Helpers::ALL;

=head1 DESCRIPTION

This module depends on all modules in SL/DB/*.pm for the convenience

of being able to write a simple \C<use SL::DB::Helpers::ALL> and

having everything loaded. This is supposed to be used only in the

Lx-Office console. Normal modules should C<use> only the modules they

actually need.

=head1 AUTHOR

Moritz Bunkus E<lt>m.bunkus@linet-services.deE<gt>

=cut

package SL::DB::Helpers::AttrDate;

use strict;

use Carp;

use English;

sub define {

  my $package     = shift;

  my $attribute   = shift;

  my %params      = @_;

  $params{places} = 2 if !defined($params{places});

  my $code        = <<CODE;

package ${package};

sub ${attribute}_as_date {

  my \$self = shift;

  if (scalar \@_) {

    if (\$_[0]) {

      my (\$yy, \$mm, \$dd) = \$::locale->parse_date(\\\%::myconfig, \@_);

      \$self->${attribute}(DateTime->new(year => \$yy, month => \$mm, day => \$dd));

    } else {

      \$self->${attribute}(undef);

    }

  }

  return \$self->${attribute} ? \$::locale->reformat_date({ dateformat => 'yy-mm-dd' }, \$self->${attribute}->ymd, \$::myconfig{dateformat}) : undef;

}

1;

CODE

  eval $code;

  croak "Defining '${attribute}_as_number' failed: $EVAL_ERROR" if $EVAL_ERROR;

  return 1;

}

1;

package SL::DB::Helpers::AttrNumber;

use strict;

use Carp;

use English;

sub define {

  my $package     = shift;

  my $attribute   = shift;

  my %params      = @_;

  $params{places} = 2 if !defined($params{places});

  my $code        = <<CODE;

package ${package};

sub ${attribute}_as_number {

  my \$self = shift;

  if (scalar \@_) {

    \$self->${attribute}(\$::form->parse_amount(\\\%::myconfig, \$_[0]));

  }

  return \$::form->format_amount(\\\%::myconfig, \$self->${attribute}, $params{places});

}

1;

CODE

  eval $code;

  croak "Defining '${attribute}_as_number' failed: $EVAL_ERROR" if $EVAL_ERROR;

  return 1;

}

1;

package SL::DB::Helpers::AttrPercent;

use strict;

use Carp;

use English;

sub define {

  my $package     = shift;

  my $attribute   = shift;

  my %params      = @_;

  $params{places} = 2 if !defined($params{places});

  my $code        = <<CODE;

package ${package};

sub ${attribute}_as_percent {

  my \$self = shift;

  if (scalar \@_) {

    \$self->${attribute}(\$::form->parse_amount(\\\%::myconfig, \$_[0]) / 100);

  }

  return \$::form->format_amount(\\\%::myconfig, 100 * \$self->${attribute}, $params{places});

}

1;

CODE

  eval $code;

  croak "Defining '${attribute}_as_number' failed: $EVAL_ERROR" if $EVAL_ERROR;

  return 1;

}

1;

package SL::DB::Helpers::ConventionManager;

use strict;

use Rose::DB::Object::ConventionManager;

use base qw(Rose::DB::Object::ConventionManager);

sub auto_manager_class_name {

  my $self         = shift;

  my $object_class = shift || $self->meta->class;

  my @parts        = split m/::/, $object_class;

  my $last         = pop @parts;

  return join('::', @parts, 'Manager', $last);

}

# Base name used for 'make_manager_class', e.g. 'get_all',

# 'update_all'

sub auto_manager_base_name {

  return 'all';

}

sub auto_manager_base_class {

  return 'SL::DB::Helpers::Manager';

}

1;

package SL::DB::Helpers::Manager;

use strict;

use Rose::DB::Object::Manager;

use base qw(Rose::DB::Object::Manager);

sub make_manager_methods {

  my $class  = shift;

  my @params = scalar(@_) ? @_ : qw(all);

  return $class->SUPER::make_manager_methods(@params);

}

sub find_by {

  my $class = shift;

  return if !@_;

  return $class->get_all(query => [ @_ ], limit => 1)->[0];

}

sub get_first {

  shift->get_all(

    limit => 1,

  )->[0];

}

1;

package SL::DB::Helpers::Mappings;

use strict;

# threse will not be managed as Rose::DB models, because they are not normalized

# significant changes are needed to get them done.

my @lxoffice_blacklist_permanent = qw(

  acc_trans audittrail customertax datev defaults department dpt_trans

  exchangerate finanzamt follow_up_access gifi inventory leads licenseinvoice

  makemodel partsgroup partstax prices record_links rmaitems status tax_zones

  todo_user_config translation translation_payment_terms units_language

  vendortax);

# these are not managed _yet_, but will hopefully at some point.

# if you are confident that one of these works, remove it here.

my @lxoffice_blacklist_temp = qw(

  bank_accounts buchungsgruppen contacts custom_variable_configs

  custom_variables custom_variables_validity drafts dunning dunning_config

  employee follow_up_links follow_ups generic_translations history_erp language

  license notes payment_terms pricegroup rma schema_info sepa_export

  sepa_export_items tax taxkeys

);

my @lxoffice_blacklist = (@lxoffice_blacklist_permanent, @lxoffice_blacklist_temp);

# map table names to their models.

# unlike rails we have no singular<->plural magic.

# remeber: tables should be named as the plural of the model name.

my %lxoffice_package_names = (

  ar                             => 'invoice',

  ap                             => 'purchase_invoice',

  delivery_orders                => 'delivery_order',

  delivery_order_items           => 'delivery_order_item',

  gl                             => 'GLTransaction',

  invoice                        => 'invoice_item',

  orderitems                     => 'order_item',

  oe                             => 'order',

  parts                          => 'part',

  price_factors                  => 'price_factor',

  printers                       => 'Printer',

  units                          => 'unit',

);

sub get_blacklist {

  return LXOFFICE => \@lxoffice_blacklist;

}

sub get_package_names {

  return LXOFFICE => \%lxoffice_package_names;

}

1;

__END__

=head1 NAME

SL::DB::Helpers::Mappings - Rose Table <-> Model mapping information

=head1 SYNOPSIS

  use SL::DB::Helpers::Mappings qw(@blacklist %table2model);

=head1 DESCRIPTION

This modul stores table <-> model mappings used by the

L<scripts/rose_auto_create_model.pl> script.  If you add a new table that has

custom mappings, add it here.

=head1 BUGS

nothing yet

=head1 SEE ALSO

L<scripts/rose_auto_create_model.pl>

=head1 AUTHOR

Sven Sch?ling <s.schoeling@linet-services.de>

=cut

package SL::DB::Helpers::Metadata;

use strict;

use Rose::DB::Object::Metadata;

use SL::DB::Helpers::ConventionManager;

use base qw(Rose::DB::Object::Metadata);

sub convention_manager_class {

  return 'SL::DB::Helpers::ConventionManager';

}

sub default_manager_base_class {

  return 'SL::DB::Helpers::Manager';

}

1;

# This file has been auto-generated only because it didn't exist.

# Feel free to modify it at will; it will not be overwritten automatically.

package SL::DB::Invoice;

use strict;

use List::Util qw(first);

use SL::DB::MetaSetup::Invoice;

use SL::DB::Manager::Invoice;

__PACKAGE__->attr_number($_, places => -2) for qw(amount netamount paid  marge_total marge_percent taxamount);

__PACKAGE__->attr_date($_) for qw(transdate gldate datepaid duedate deliverydate orddate quodate);

__PACKAGE__->attr_percent($_) for qw(abschlag_percentage);

__PACKAGE__->meta->add_relationship(

  invoiceitems => {

    type         => 'one to many',

    class        => 'SL::DB::InvoiceItem',

    column_map   => { id => 'trans_id' },

    manager_args => {

      with_objects => [ 'part' ]

    }

  },

);

__PACKAGE__->meta->initialize;

# methods

# it is assumed, that ordnumbers are unique here.

sub first_order_by_ordnumber {

  my $self = shift;

  my $orders = SL::DB::Manager::Order->get_all(

    query => [

      ordnumber => $self->ordnumber,

    ],

  );

  return first { $_->is_type('sales_order') } @{ $orders };

}

sub abschlag_percentage {

  my $self         = shift;

  my $order        = $self->first_order_by_ordnumber or return;

  my $order_amount = $order->netamount               or return;

  return $self->abschlag

    ? $self->netamount / $order_amount

    : undef;

}

sub taxamount {

  my $self = shift;

  die 'not a setter method' if @_;

  return $self->amount - $self->netamount;

}

1;

package SL::DB::InvoiceItem;

use strict;

use SL::DB::MetaSetup::InvoiceItem;

for my $field (qw(

  qty allocated sellprice fxsellprice discount base_qty marge_total

  marge_percent lastcost price_factor marge_price_factor

)) {

  __PACKAGE__->attr_number($field, places => -2);

}

__PACKAGE__->meta->add_relationship(

  part => {

    type         => 'one to one',

    class        => 'SL::DB::Part',

    column_map   => { parts_id => 'id' },

  }

);

# Creates get_all, get_all_count, get_all_iterator, delete_all and update_all.

__PACKAGE__->meta->make_manager_class;

__PACKAGE__->meta->initialize;

1;

package SL::DB::Manager::DeliveryOrder;

use strict;

use SL::DB::Helpers::Manager;

use base qw(SL::DB::Helpers::Manager);

sub object_class { 'SL::DB::DeliveryOrder' }

__PACKAGE__->make_manager_methods;

sub type_filter {

  my $class = shift;

  my $type  = lc(shift || '');

  return ('!customer_id' => undef) if $type eq 'sales_delivery_order';

  return ('!vendor_id'   => undef) if $type eq 'purchase_delivery_order';

  die "Unknown type $type";

}

1;

package SL::DB::Manager::Invoice;

use strict;

use base qw(SL::DB::Helpers::Manager);

sub object_class { 'SL::DB::Invoice' }

__PACKAGE__->make_manager_methods;

sub type_filter {

  my $class = shift;

  my $type  = lc(shift || '');

  return (or  => [ invoice => 0, invoice => undef                                               ]) if $type eq 'ar_transaction';

  return (and => [ invoice => 1, amount  => { ge => 0 }, or => [ storno => 0, storno => undef ] ]) if $type eq 'invoice';

  return (and => [ invoice => 1, amount  => { lt => 0 }, or => [ storno => 0, storno => undef ] ]) if $type eq 'credit_note';

  return (and => [ invoice => 1, amount  => { lt => 0 },         storno => 1                    ]) if $type =~ m/(?:invoice_)?storno/;

  return (and => [ invoice => 1, amount  => { ge => 0 },         storno => 1                    ]) if $type eq 'credit_note_storno';

  die "Unknown type $type";

}

1;

package SL::DB::Manager::Order;

use strict;

use SL::DB::Helpers::Manager;

use base qw(SL::DB::Helpers::Manager);

sub object_class { 'SL::DB::Order' }

__PACKAGE__->make_manager_methods;

sub type_filter {

  my $class = shift;

  my $type  = lc(shift || '');

  return (and => [ '!customer_id' => undef,         quotation => 1                       ]) if $type eq 'sales_quotation';

  return (and => [ '!vendor_id'   => undef,         quotation => 1                       ]) if $type eq 'request_quotation';

  return (and => [ '!customer_id' => undef, or => [ quotation => 0, quotation => undef ] ]) if $type eq 'sales_order';

  return (and => [ '!vendor_id'   => undef, or => [ quotation => 0, quotation => undef ] ]) if $type eq 'purchase_order';

  die "Unknown type $type";

}

1;

package SL::DB::Manager::Part;

use strict;

use SL::DB::Helpers::Manager;

use base qw(SL::DB::Helpers::Manager);

use Carp;

use SL::DBUtils;

sub object_class { 'SL::DB::Part' }

__PACKAGE__->make_manager_methods;

sub type_filter {

  my $class = shift;

  my $type  = lc(shift || '');

  if ($type =~ m/^part/) {

    return (and => [ or                    => [ assembly => 0, assembly => undef ],

                     '!inventory_accno_id' => 0,

                     '!inventory_accno_id' => undef,

                   ]);

  } elsif ($type =~ m/^service/) {

    return (and => [ or => [ assembly           => 0, assembly           => undef ],

                     or => [ inventory_accno_id => 0, inventory_accno_id => undef ],

                   ]);

  } elsif ($type =~ m/^assembl/) {

    return (assembly => 1);

  }

  return ();

}

sub get_ordered_qty {

  my $class    = shift;

  my @part_ids = @_;

  return () unless @part_ids;

  my $placeholders = join ',', ('?') x @part_ids;

  my $query        = <<SQL;

    SELECT oi.parts_id, SUM(oi.base_qty) AS qty

    FROM orderitems oi

    LEFT JOIN oe ON (oi.trans_id = oe.id)

    WHERE (oi.parts_id IN ($placeholders))

      AND (NOT COALESCE(oe.quotation, FALSE))

      AND (NOT COALESCE(oe.closed,    FALSE))

      AND (NOT COALESCE(oe.delivered, FALSE))

      AND (COALESCE(oe.vendor_id, 0) <> 0)

    GROUP BY oi.parts_id

SQL

  my %qty_by_id = map { $_->{parts_id} => $_->{qty} * 1 } @{ selectall_hashref_query($::form, $class->object_class->init_db->dbh, $query, @part_ids) };

  map { $qty_by_id{$_} ||= 0 } @part_ids;

  return %qty_by_id;

}

1;

package SL::DB::Manager::PurchaseInvoice;

use strict;

use SL::DB::Helpers::Manager;

use base qw(SL::DB::Helpers::Manager);

sub object_class { 'SL::DB::PurchaseInvoice' }

__PACKAGE__->make_manager_methods;

sub type_filter {

  my $class = shift;

  my $type  = lc(shift || '');

  return (or  => [ invoice => 0, invoice => undef                       ]) if $type eq 'ap_transaction';

  return (and => [ invoice => 1, or => [ storno => 0, storno => undef ] ]) if $type eq 'invoice';

  return (and => [ invoice => 1,         storno => 1                    ]) if $type =~ m/(?:invoice_)?storno/;

  die "Unknown type $type";

}

1;

package SL::DB::Manager::TransferType;

use strict;

use base qw(SL::DB::Helpers::Manager);

use Carp;

sub object_class { 'SL::DB::TransferType' }

__PACKAGE__->make_manager_methods;

# class functions

sub get_all_in {

  return shift()->get_all( query => [ direction => 'in', ] );

}

sub get_all_out {

  return shift()->get_all( query => [ direction => 'out', ] );

}

sub get_all_transfer {

  return shift()->get_all( query => [ direction => 'transfer', ] );

}

1;

# This file has been auto-generated. Do not modify it; it will be overwritten

# by rose_auto_create_model.pl automatically.

package SL::DB::Assembly;

use strict;

use base qw(SL::DB::Object);

__PACKAGE__->meta->setup(

  table   => 'assembly',

  columns => [

    id          => { type => 'integer' },

    parts_id    => { type => 'integer' },

    qty         => { type => 'float', precision => 4 },

    bom         => { type => 'boolean' },

    itime       => { type => 'timestamp', default => 'now()' },

    mtime       => { type => 'timestamp' },

    variable    => { type => 'boolean', default => 'false', not_null => 1, remarks => 'true if this part of the assembly is variable, and can be modified' },

    item_id     => { type => 'integer', remarks => 'used to group parts in an assembly for exclusive options' },

    assembly_id => { type => 'serial', not_null => 1 },

  ],

  primary_key_columns => [ 'assembly_id' ],

  allow_inline_column_values => 1,

);

1;

;

# This file has been auto-generated. Do not modify it; it will be overwritten

# by rose_auto_create_model.pl automatically.

package SL::DB::Bin;

use strict;

use base qw(SL::DB::Object);

__PACKAGE__->meta->setup(

  table   => 'bin',

  columns => [

    id           => { type => 'integer', not_null => 1, sequence => 'id' },

    warehouse_id => { type => 'integer', not_null => 1 },

    description  => { type => 'text' },

    itime        => { type => 'timestamp', default => 'now()' },

    mtime        => { type => 'timestamp' },

  ],

  primary_key_columns => [ 'id' ],

  allow_inline_column_values => 1,

  foreign_keys => [

    warehouse => {

      class       => 'SL::DB::Warehouse',

      key_columns => { warehouse_id => 'id' },

    },

  ],

);

1;

;

# This file has been auto-generated. Do not modify it; it will be overwritten

# by rose_auto_create_model.pl automatically.

package SL::DB::Business;

use strict;

use base qw(SL::DB::Object);

__PACKAGE__->meta->setup(

  table   => 'business',

  columns => [

    id                 => { type => 'integer', not_null => 1, sequence => 'id' },

    description        => { type => 'text' },

    discount           => { type => 'float', precision => 4 },

    customernumberinit => { type => 'text' },

    salesman           => { type => 'boolean', default => 'false' },

    itime              => { type => 'timestamp', default => 'now()' },

    mtime              => { type => 'timestamp' },

  ],

  primary_key_columns => [ 'id' ],

  allow_inline_column_values => 1,

);

1;

;

# This file has been auto-generated. Do not modify it; it will be overwritten

# by rose_auto_create_model.pl automatically.

package SL::DB::Chart;

use strict;

use base qw(SL::DB::Object);

__PACKAGE__->meta->setup(

  table   => 'chart',

  columns => [

    id             => { type => 'integer', not_null => 1, sequence => 'id' },

    accno          => { type => 'text', not_null => 1 },

    description    => { type => 'text' },

    charttype      => { type => 'character', default => 'A', length => 1 },

    category       => { type => 'character', length => 1 },

    link           => { type => 'text' },

    gifi_accno     => { type => 'text' },

    taxkey_id      => { type => 'integer' },

    pos_ustva      => { type => 'integer' },

    pos_bwa        => { type => 'integer' },

    pos_bilanz     => { type => 'integer' },

    pos_eur        => { type => 'integer' },

    datevautomatik => { type => 'boolean', default => 'false' },

    itime          => { type => 'timestamp', default => 'now()' },

    mtime          => { type => 'timestamp' },

    new_chart_id   => { type => 'integer' },

    valid_from     => { type => 'date' },

  ],

  primary_key_columns => [ 'id' ],

  unique_key => [ 'accno' ],

  allow_inline_column_values => 1,

);

1;

;

# This file has been auto-generated. Do not modify it; it will be overwritten

# by rose_auto_create_model.pl automatically.

package SL::DB::Customer;

use strict;

use base qw(SL::DB::Object);

__PACKAGE__->meta->setup(

  table   => 'customer',

  columns => [

    id             => { type => 'integer', not_null => 1, sequence => 'id' },

    name           => { type => 'varchar', length => 75, not_null => 1 },

    department_1   => { type => 'varchar', length => 75 },

    department_2   => { type => 'varchar', length => 75 },

    street         => { type => 'varchar', length => 75 },

    zipcode        => { type => 'varchar', length => 10 },

    city           => { type => 'varchar', length => 75 },

    country        => { type => 'varchar', length => 75 },

    contact        => { type => 'varchar', length => 75 },

    phone          => { type => 'varchar', length => 30 },

    fax            => { type => 'varchar', length => 30 },

    homepage       => { type => 'text' },

    email          => { type => 'text' },

    notes          => { type => 'text' },

    discount       => { type => 'float', precision => 4 },

    taxincluded    => { type => 'boolean' },

    creditlimit    => { type => 'numeric', default => '0', precision => 5, scale => 15 },

    terms          => { type => 'integer', default => '0' },

    customernumber => { type => 'text' },

    cc             => { type => 'text' },

    bcc            => { type => 'text' },

    business_id    => { type => 'integer' },

    taxnumber      => { type => 'text' },

    account_number => { type => 'varchar', length => 15 },

    bank_code      => { type => 'varchar', length => 10 },

    bank           => { type => 'text' },

    language       => { type => 'varchar', length => 5 },

    datevexport    => { type => 'integer' },

    itime          => { type => 'timestamp', default => 'now()' },

    mtime          => { type => 'timestamp' },

    obsolete       => { type => 'boolean', default => 'false' },

    username       => { type => 'varchar', length => 50 },

    user_password  => { type => 'text' },

    salesman_id    => { type => 'integer' },

    c_vendor_id    => { type => 'text' },

    klass          => { type => 'integer', default => '0' },

    language_id    => { type => 'integer' },

    payment_id     => { type => 'integer' },

    taxzone_id     => { type => 'integer', default => '0', not_null => 1 },

    greeting       => { type => 'text' },

    ustid          => { type => 'varchar', length => 14 },

    direct_debit   => { type => 'boolean', default => 'false' },

    iban           => { type => 'varchar', length => 100 },

    bic            => { type => 'varchar', length => 100 },

  ],

  primary_key_columns => [ 'id' ],

  allow_inline_column_values => 1,

);

1;

;

# This file has been auto-generated. Do not modify it; it will be overwritten

# by rose_auto_create_model.pl automatically.

package SL::DB::DeliveryOrder;

use strict;

use base qw(SL::DB::Object);

__PACKAGE__->meta->setup(

  table   => 'delivery_orders',

  columns => [

    id                      => { type => 'integer', not_null => 1, sequence => 'id' },

    donumber                => { type => 'text', not_null => 1 },

    ordnumber               => { type => 'text' },

    transdate               => { type => 'date', default => 'now()' },

    vendor_id               => { type => 'integer' },

    customer_id             => { type => 'integer' },

    reqdate                 => { type => 'date' },

    shippingpoint           => { type => 'text' },

    notes                   => { type => 'text' },

    intnotes                => { type => 'text' },

    employee_id             => { type => 'integer' },

    closed                  => { type => 'boolean', default => 'false' },

    delivered               => { type => 'boolean', default => 'false' },

    cusordnumber            => { type => 'text' },

    oreqnumber              => { type => 'text' },

    department_id           => { type => 'integer' },

    shipvia                 => { type => 'text' },

    cp_id                   => { type => 'integer' },

    language_id             => { type => 'integer' },

    shipto_id               => { type => 'integer' },

    globalproject_id        => { type => 'integer' },

    salesman_id             => { type => 'integer' },

    transaction_description => { type => 'text' },

    is_sales                => { type => 'boolean' },

    itime                   => { type => 'timestamp', default => 'now()' },

    mtime                   => { type => 'timestamp' },

    notes_bottom            => { type => 'text' },

    taxzone_id              => { type => 'integer' },

    taxincluded             => { type => 'boolean' },

    terms                   => { type => 'integer' },

    curr                    => { type => 'character', length => 3 },

  ],

  primary_key_columns => [ 'id' ],

  allow_inline_column_values => 1,

  foreign_keys => [

    customer => {

      class       => 'SL::DB::Customer',

      key_columns => { customer_id => 'id' },

    },

    globalproject => {

      class       => 'SL::DB::Project',

      key_columns => { globalproject_id => 'id' },

    },

    vendor => {

      class       => 'SL::DB::Vendor',

      key_columns => { vendor_id => 'id' },

    },

  ],

);

1;

;

# This file has been auto-generated. Do not modify it; it will be overwritten

# by rose_auto_create_model.pl automatically.

package SL::DB::DeliveryOrderItem;

use strict;

use base qw(SL::DB::Object);

__PACKAGE__->meta->setup(

  table   => 'delivery_order_items',

  columns => [

    id                 => { type => 'integer', not_null => 1, sequence => 'delivery_order_items_id' },

    delivery_order_id  => { type => 'integer', not_null => 1 },

    parts_id           => { type => 'integer', not_null => 1 },

    description        => { type => 'text' },

    qty                => { type => 'numeric', precision => 5, scale => 25 },

    sellprice          => { type => 'numeric', precision => 5, scale => 15 },

    discount           => { type => 'float', precision => 4 },

    project_id         => { type => 'integer' },

    reqdate            => { type => 'date' },

    serialnumber       => { type => 'text' },

    ordnumber          => { type => 'text' },

    transdate          => { type => 'text' },

    cusordnumber       => { type => 'text' },

    unit               => { type => 'varchar', length => 20 },

    base_qty           => { type => 'float', precision => 4 },

    longdescription    => { type => 'text' },

    lastcost           => { type => 'numeric', precision => 5, scale => 15 },

    price_factor_id    => { type => 'integer' },

    price_factor       => { type => 'numeric', default => 1, precision => 5, scale => 15 },

    marge_price_factor => { type => 'numeric', default => 1, precision => 5, scale => 15 },

    itime              => { type => 'timestamp', default => 'now()' },

    mtime              => { type => 'timestamp' },

  ],

  primary_key_columns => [ 'id' ],

  allow_inline_column_values => 1,

  foreign_keys => [

    delivery_order => {

      class       => 'SL::DB::DeliveryOrder',

      key_columns => { delivery_order_id => 'id' },

    },

    parts => {

      class       => 'SL::DB::Part',

      key_columns => { parts_id => 'id' },

    },

    price_factor_obj => {

      class       => 'SL::DB::PriceFactor',

      key_columns => { price_factor_id => 'id' },

    },

    project => {

      class       => 'SL::DB::Project',

      key_columns => { project_id => 'id' },

    },

  ],

);

1;

;

# This file has been auto-generated. Do not modify it; it will be overwritten

# by rose_auto_create_model.pl automatically.

package SL::DB::DeliveryOrderItemsStock;

use strict;

use base qw(SL::DB::Object);

__PACKAGE__->meta->setup(

  table   => 'delivery_order_items_stock',

  columns => [

    id                     => { type => 'integer', not_null => 1, sequence => 'id' },

    delivery_order_item_id => { type => 'integer', not_null => 1 },

    qty                    => { type => 'numeric', not_null => 1, precision => 5, scale => 15 },

    unit                   => { type => 'varchar', length => 20, not_null => 1 },

    warehouse_id           => { type => 'integer', not_null => 1 },

    bin_id                 => { type => 'integer', not_null => 1 },

    chargenumber           => { type => 'text' },

    itime                  => { type => 'timestamp', default => 'now()' },

    mtime                  => { type => 'timestamp' },

    bestbefore             => { type => 'date' },

  ],

  primary_key_columns => [ 'id' ],

  allow_inline_column_values => 1,

  foreign_keys => [

    bin => {

      class       => 'SL::DB::Bin',

      key_columns => { bin_id => 'id' },

    },

    delivery_order_item => {

      class       => 'SL::DB::DeliveryOrderItem',

      key_columns => { delivery_order_item_id => 'id' },

    },

    warehouse => {

      class       => 'SL::DB::Warehouse',

      key_columns => { warehouse_id => 'id' },

    },

  ],

);

1;

;

# This file has been auto-generated. Do not modify it; it will be overwritten

# by rose_auto_create_model.pl automatically.

package SL::DB::GLTransaction;

use strict;

use base qw(SL::DB::Object);

__PACKAGE__->meta->setup(

  table   => 'gl',

  columns => [

    id             => { type => 'integer', not_null => 1, sequence => 'glid' },

    reference      => { type => 'text' },

    description    => { type => 'text' },

    transdate      => { type => 'date', default => 'now' },

    gldate         => { type => 'date', default => 'now' },

    employee_id    => { type => 'integer' },

    notes          => { type => 'text' },

    department_id  => { type => 'integer', default => '0' },

    taxincluded    => { type => 'boolean' },

    itime          => { type => 'timestamp', default => 'now()' },

    mtime          => { type => 'timestamp' },

    type           => { type => 'text' },

    storno         => { type => 'boolean', default => 'false' },

    storno_id      => { type => 'integer' },

    ob_transaction => { type => 'boolean' },

    cb_transaction => { type => 'boolean' },

  ],

  primary_key_columns => [ 'id' ],

  allow_inline_column_values => 1,

  foreign_keys => [

    storno_obj => {

      class       => 'SL::DB::GLTransaction',

      key_columns => { storno_id => 'id' },

    },

  ],

);

1;

;

# This file has been auto-generated. Do not modify it; it will be overwritten

# by rose_auto_create_model.pl automatically.

package SL::DB::Invoice;

use strict;

use base qw(SL::DB::Object);

__PACKAGE__->meta->setup(

  table   => 'ar',

  columns => [

    id                      => { type => 'integer', not_null => 1, sequence => 'glid' },

    invnumber               => { type => 'text', not_null => 1 },

    transdate               => { type => 'date', default => 'now' },

    gldate                  => { type => 'date', default => 'now' },

    customer_id             => { type => 'integer' },

    taxincluded             => { type => 'boolean' },

    amount                  => { type => 'numeric', precision => 5, scale => 15 },

    netamount               => { type => 'numeric', precision => 5, scale => 15 },

    paid                    => { type => 'numeric', precision => 5, scale => 15 },

    datepaid                => { type => 'date' },