X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/ab725987652635d307d17f6dbf7029184f3a48bd..cea0e38dce1dae54e77c85614b11ae16826a7e01:/SL/Dev/Record.pm?ds=inline

diff --git a/SL/Dev/Record.pm b/SL/Dev/Record.pm
index 089b65c49..3ec9639f3 100644
--- a/SL/Dev/Record.pm
+++ b/SL/Dev/Record.pm
@@ -329,6 +329,15 @@ Example including creation of part and of sales order.
                   ]
   );
 
+Example: create 100 orders with the same part for 100 new customers:
+
+  my $part1 = SL::Dev::Part::create_part(partnumber => 'T6256')->save;
+  SL::Dev::Record::create_sales_order(
+    save         => 1,
+    taxincluded  => 0,
+    orderitems => [ SL::Dev::Record::create_order_item(part => $part1, qty => 1, sellprice => 9) ]
+  ) for 1 .. 100;
+
 =head2 C<create_purchase_order %PARAMS>
 
 See comments for C<create_sales_order>.