--- /dev/null
+package SL::Dev::ALL;
+
+use strict;
+
+use SL::Dev::Part;
+use SL::Dev::CustomerVendor;
+use SL::Dev::Inventory;
+
+1;
+
+__END__
+
+=pod
+
+=head1 NAME
+
+SL::Dev::ALL: Dependency-only package for all SL::Dev::* modules
+
+=head1 SYNOPSIS
+
+ use SL::Dev::ALL;
+
+=head1 DESCRIPTION
+
+This module depends on all modules in SL/Dev/*.pm for the convenience of being
+able to write a simple C<use SL::Dev::ALL> and having everything loaded. This
+is supposed to be used only for test cases or in the kivitendo console. Normal
+modules should C<use> only the modules they actually need.
+
+To automatically include it in the console, add a line in the client section of
+the kivitendo.config, e.g.
+
+[console]
+autorun = require "bin/mozilla/common.pl";
+ = use SL::DB::Helper::ALL;
+ = use SL::Dev::ALL;
+
+=head1 AUTHOR
+
+G. Richardson E<lt>grichardson@kivitendo-premium.deE<gt>
+
+=cut
--- /dev/null
+package SL::Dev::CustomerVendor;
+
+use base qw(Exporter);
+@EXPORT = qw(create_customer);
+
+use SL::DB::TaxZone;
+use SL::DB::Currency;
+use SL::DB::Customer;
+
+sub create_customer {
+ my (%params) = @_;
+
+ my ($taxzone, $currency);
+
+ if ( my $taxzone_id = delete $params{taxzone_id} ) {
+ $taxzone = SL::DB::Manager::TaxZone->find_by( id => $taxzone_id ) || die "Can't find taxzone_id";
+ } else {
+ $taxzone = SL::DB::Manager::TaxZone->find_by( description => 'Inland') || die "No taxzone 'Inland'";
+ }
+
+ if ( my $currency_id = delete $params{currency_id} ) {
+ $currency = SL::DB::Manager::Currency->find_by( id => $currency_id ) || die "Can't find currency_id";
+ } else {
+ $currency = SL::DB::Manager::Currency->find_by( id => $::instance_conf->get_currency_id );
+ }
+
+ my $customer = SL::DB::Customer->new( name => delete $params{name} || 'Testkunde',
+ currency_id => $currency->id,
+ taxzone_id => $taxzone->id,
+ );
+ $customer->assign_attributes( %params );
+ return $customer;
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+SL::Dev::CustomerVendor - create customer and vendor objects for testing, with minimal defaults
+
+=head1 FUNCTIONS
+
+=head2 C<create_customer %PARAMS>
+
+Creates a new customer.
+
+Minimal usage, default values, without saving to database:
+
+ my $customer = SL::Dev::CustomerVendor::create_customer();
+
+Complex usage, overwriting some defaults, and save to database:
+ SL::Dev::CustomerVendor::create_customer(name => 'Test customer',
+ hourly_rate => 50,
+ taxzone_id => 2,
+ )->save;
+
+
+=head1 BUGS
+
+Nothing here yet.
+
+=head1 AUTHOR
+
+G. Richardson E<lt>grichardson@kivitendo-premium.deE<gt>
+
+=cut
+1;
--- /dev/null
+package SL::Dev::Inventory;
+
+use base qw(Exporter);
+@EXPORT = qw(create_warehouse_and_bins set_stock);
+
+use SL::DB::Warehouse;
+use SL::DB::Bin;
+use SL::DB::Inventory;
+use SL::DB::TransferType;
+use SL::DB::Employee;
+
+sub create_warehouse_and_bins {
+ my (%params) = @_;
+
+ my $number_of_bins = $params{number_of_bins} || 5;
+ my $wh = SL::DB::Warehouse->new(description => $params{warehouse_description} || "Warehouse", invalid => 0);
+ for my $i ( 1 .. $number_of_bins ) {
+ $wh->add_bins( SL::DB::Bin->new(description => ( $params{bin_description} || "Bin" ) . " $i" ) );
+ }
+ $wh->save;
+ return ($wh, $wh->bins->[0]);
+}
+
+sub set_stock {
+ my ($part, %params) = @_;
+
+ die "first argument is not a part" unless ref($part) eq 'SL::DB::Part';
+
+ die "no default warehouse" unless $part->warehouse_id or $part->bin_id;
+
+ die "Can't determine employee" unless SL::DB::Manager::Employee->current;
+
+ die "qty is missing or not positive" unless $params{qty} and $params{qty} > 0;
+
+ my $transfer_type_description = delete $params{transfer_type} || 'stock';
+ my $transfer_type = SL::DB::Manager::TransferType->find_by( description => $transfer_type_description, direction => 'in' );
+
+ my $shippingdate;
+ if ( $params{shippingdate} ) {
+ $shippingdate = $::locale->parse_date_to_object(delete $params{shippingdate});
+ } else {
+ $shippingdate = DateTime->today;
+ };
+
+ my ($trans_id) = $part->db->dbh->selectrow_array("select nextval('id')", {});
+
+ SL::DB::Inventory->new(
+ parts_id => $part->id,
+ bin_id => $part->bin_id,
+ warehouse_id => $part->warehouse_id,
+ employee_id => $params{employee_id} || SL::DB::Manager::Employee->current->id,
+ trans_type_id => $transfer_type->id,
+ comment => $params{comment},
+ shippingdate => $shippingdate,
+ qty => $params{qty},
+ trans_id => $trans_id,
+ )->save;
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+SL::Dev::Inventory - create inventory-related objects for testing, with minimal
+defaults
+
+=head1 FUNCTIONS
+
+=head2 C<create_warehouse_and_bins %PARAMS>
+
+Creates a new warehouse and bins, and immediately saves them. Returns the
+warehouse and the first bin object.
+ my ($wh, $bin) = SL::Dev::Inventory::create_warehouse_and_bins();
+
+Create named warehouse with 10 bins:
+ my ($wh, $bin) = SL::Dev::Inventory::create_warehouse_and_bins(warehouse_description => 'Testlager',
+ bin_description => 'Testlagerplatz',
+ number_of_bins => 10,
+ );
+To access the second bin:
+ my $bin2 = $wh->bins->[1];
+
+=head2 C<set_stock $part, %PARAMS>
+
+Increase the stock level of a certain part by creating an inventory event. Currently
+only positive stock levels can be set. To access the updated onhand the part
+object needs to be loaded afterwards.
+
+ my $part = SL::DB::Manager::Part->find_by(partnumber => '1');
+ SL::Dev::Inventory::set_stock($part, 5);
+ $part->load;
+
+=head1 BUGS
+
+Nothing here yet.
+
+=head1 AUTHOR
+
+G. Richardson E<lt>grichardson@kivitendo-premium.deE<gt>
+
+=cut
--- /dev/null
+package SL::Dev::Part;
+
+use base qw(Exporter);
+@EXPORT = qw(create_part create_service);
+
+use SL::DB::Part;
+use SL::DB::Unit;
+use SL::DB::Buchungsgruppe;
+
+sub create_part {
+ my (%params) = @_;
+
+ my ($buchungsgruppe, $unit);
+ $buchungsgruppe = SL::DB::Manager::Buchungsgruppe->find_by(description => 'Standard 19%') || die "No accounting group";
+ $unit = SL::DB::Manager::Unit->find_by(name => 'Stck') || die "No unit";
+
+ my $part = SL::DB::Part->new_part(
+ description => 'Test part',
+ sellprice => '10',
+ lastcost => '5',
+ buchungsgruppen_id => $buchungsgruppe->id,
+ unit => $unit->name,
+ );
+ $part->assign_attributes( %params );
+ return $part;
+}
+
+sub create_service {
+ my (%params) = @_;
+
+ my ($buchungsgruppe, $unit);
+ $buchungsgruppe = SL::DB::Manager::Buchungsgruppe->find_by(description => 'Standard 19%') || die "No accounting group";
+ $unit = SL::DB::Manager::Unit->find_by(name => 'Stck') || die "No unit";
+
+ my $part = SL::DB::Part->new_service(
+ description => 'Test service',
+ sellprice => '10',
+ lastcost => '5',
+ buchungsgruppen_id => $buchungsgruppe->id,
+ unit => $unit->name,
+ );
+ $part->assign_attributes( %params );
+ return $part;
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+SL::Dev::Part - create part objects for testing, with minimal defaults
+
+=head1 FUNCTIONS
+
+=head2 C<create_part %PARAMS>
+
+Creates a new part (part_type = part).
+
+Minimal usage, default values, without saving to database:
+
+ my $part = SL::Dev::Part::create_part();
+
+Create a test part with a default warehouse and bin and save it:
+
+ my $wh = SL::Dev::Inventory::create_warehouse_and_bins()->save;
+ my $part1 = SL::Dev::Part::create_part(partnumber => 'a123',
+ description => 'Testpart 1',
+ warehouse_id => $wh->id,
+ bin_id => $wh->bins->[0]->id,
+ )->save;
+
+=head1 TODO
+
+=over 2
+
+=item * create_assembly
+
+=back
+
+=head1 BUGS
+
+Nothing here yet.
+
+=head1 AUTHOR
+
+G. Richardson E<lt>grichardson@kivitendo-premium.deE<gt>
+
+=cut
projects / kivitendo-erp.git / commitdiff