From a2c8ac75876e26954813308b4b6448b101033021 Mon Sep 17 00:00:00 2001 From: "G. Richardson" Date: Wed, 15 Mar 2017 17:33:11 +0100 Subject: [PATCH] =?utf8?q?SL::Dev::Record=20-=20Doku=20Beispiel=20f=C3=BCr?= =?utf8?q?=20viele=20Auftr=C3=A4ge?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- SL/Dev/Record.pm | 9 +++++++++ 1 file changed, 9 insertions(+) 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 See comments for C. -- 2.20.1