Einheiten die Waren zugeordnet sind entsprechend als Fremdschlüssel verknüpfen.

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

diff --git a/SL/DB/Order.pm b/SL/DB/Order.pm
index d74f9414dc8958283ad3f8069156c0714919c37d..6b31cd235437961d9f2e0137aeca10edca43a854 100644 (file)
--- a/SL/DB/Order.pm
+++ b/SL/DB/Order.pm
@@ -10,6 +10,7 @@ use List::Util qw(max);
 use SL::DB::MetaSetup::Order;
 use SL::DB::Manager::Order;
 use SL::DB::Invoice;
 use SL::DB::MetaSetup::Order;
 use SL::DB::Manager::Order;
 use SL::DB::Invoice;

+use SL::DB::Helper::FlattenToForm;

 use SL::DB::Helper::LinkedRecords;
 use SL::DB::Helper::PriceTaxCalculator;
 use SL::DB::Helper::PriceUpdater;
 use SL::DB::Helper::LinkedRecords;
 use SL::DB::Helper::PriceTaxCalculator;
 use SL::DB::Helper::PriceUpdater;


@@ -40,6 +41,26 @@ __PACKAGE__->meta->add_relationship(
     class      => 'SL::DB::PaymentTerm',
     column_map => { payment_id => 'id' },
   },
     class      => 'SL::DB::PaymentTerm',
     column_map => { payment_id => 'id' },
   },

+  contact      => {
+    type       => 'one to one',
+    class      => 'SL::DB::Contact',
+    column_map => { cp_id => 'cp_id' },
+  },
+  shipto       => {
+    type       => 'one to one',
+    class      => 'SL::DB::Shipto',
+    column_map => { shipto_id => 'shipto_id' },
+  },
+  department   => {
+    type       => 'one to one',
+    class      => 'SL::DB::Department',
+    column_map => { department_id => 'id' },
+  },
+  language     => {
+    type       => 'one to one',
+    class      => 'SL::DB::Language',
+    column_map => { language_id => 'id' },
+  },

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


@@ -115,13 +136,13 @@ SL::DB::Order - Order Datenbank Objekt.
 
 =head1 FUNCTIONS
 
 
 =head1 FUNCTIONS
 

-=head2 type
+=head2 C<type>

 
 Returns one of the following string types:
 
 =over 4
 
 
 Returns one of the following string types:
 
 =over 4
 

-=item saes_order
+=item sales_order

 
 =item purchase_order
 
 
 =item purchase_order
 


@@ -131,11 +152,11 @@ Returns one of the following string types:
 
 =back
 
 
 =back
 

-=head2 is_type TYPE
+=head2 C<is_type TYPE>

 
 

-Rreturns true if the order is of the given type.
+Returns true if the order is of the given type.

 
 

-=item C<convert_to_invoice %params>
+=head2 C<convert_to_invoice %params>

 
 Creates a new invoice with C<$self> as the basis by calling
 L<SL::DB::Invoice::new_from>. That invoice is posted, and C<$self> is
 
 Creates a new invoice with C<$self> as the basis by calling
 L<SL::DB::Invoice::new_from>. That invoice is posted, and C<$self> is


@@ -150,7 +171,7 @@ nothing is created or changed in the database.
 
 At the moment only sales quotations and sales orders can be converted.
 
 
 At the moment only sales quotations and sales orders can be converted.
 

-=item C<create_sales_process>
+=head2 C<create_sales_process>

 
 Creates and saves a new sales process. Can only be called for sales
 orders.
 
 Creates and saves a new sales process. Can only be called for sales
 orders.


@@ -160,8 +181,6 @@ C<$self> and to all sales quotations that are linked to C<$self>.
 
 Returns the newly created process instance.
 
 
 Returns the newly created process instance.
 

-=back
-

 =head1 BUGS
 
 Nothing here yet.
 =head1 BUGS
 
 Nothing here yet.