projekt kivitendo

  die "Can't find employee" unless $employee;

    $self->redirect_to(controller => "oe.pl", action => 'edit', type => 'sales_order', vc => 'customer', id => $order->id);

  for (qw(Part CustomerVendor Inventory Record Payment Shop)) {

use Data::Dumper;

our @EXPORT_OK = qw(new_shop new_shop_part new_shop_order);

our %EXPORT_TAGS = (ALL => \@EXPORT_OK);

sub new_shop {

    description => delete $params{description} || 'testshop',

sub new_shop_part {

sub new_shop_order {

      $self->import_data_to_shop_order($import);

      $self->config->assign_attributes( last_order_number => $ordnumber);

      $of++;

sub import_data_to_shop_order {

  my ( $self, $import ) = @_;

  my $shop_order = $self->map_data_to_shoporder($import);

  $shop_order->save;

  my $id = $shop_order->id;

  my @positions = sort { Sort::Naturally::ncmp($a->{"partnumber"}, $b->{"partnumber"}) } @{ $import->{data}->{details} };

  my $position = 1;

  my $active_price_source = $self->config->price_source;

  foreach my $pos(@positions) {

    my $price = $::form->round_amount($pos->{price},2);

    my %pos_columns = ( description          => $pos->{articleName},

                        partnumber           => $pos->{articleNumber},

                        price                => $price,

                        quantity             => $pos->{quantity},

                        position             => $position,

                        tax_rate             => $pos->{taxRate},

                        shop_trans_id        => $pos->{articleId},

                        shop_order_id        => $id,

                        active_price_source  => $active_price_source,

                      );

    my $pos_insert = SL::DB::ShopOrderItem->new(%pos_columns);

    $pos_insert->save;

    $position++;

  }

  $shop_order->{positions} = $position-1;

  my $customer = $shop_order->get_customer;

  if(ref($customer)){

    $shop_order->kivi_customer_id($customer->id);

    $shop_order->save;

  }

}

  my $shop_id      = $self->config->id;

  my $tax_included = $self->config->pricetype;

    shop_id                 => $shop_id,

    tax_included            => $tax_included eq "brutto" ? 1 : 0,

SL::Shopconnecter::Shopware - connector for shopware 5

=head1 METHODS

=back 4

=item C<import_data_to_shop_order>

Creates on shoporder object from json

Pricesrules, pricessources aren't fully implemented yet.

Payments aren't implemented( need to map payments from Shopware like invoice, paypal etc. to payments in kivitendo)

None yet. :)

W. Hahn E<lt>wh@futureworldsearch.netE<gt>

use SL::Controller::ShopOrder;

  $shop = SL::Dev::Shop::new_shop->save;

  $shop_part = SL::Dev::Shop::new_shop_part(part => $part, shop => $shop)->save;

sub save_shorcontroller_to_string {

  my $output;

  open(my $outputFH, '<', \$output) or die "OUTPUT";

  my $oldFH = select $outputFH;

  my $shor_controller = SL::Controller::ShopOrder->new;

  $shor_controller->action_transfer;

  select $oldFH;

  close $outputFH;

  return $output;

}

sub test_transfer {

  my ( %params ) = @_;

  $::form = Support::TestSetup->create_new_form;

  $::form->{import_id} = $params{import_id};

  $::form->{customer} =  $params{customer};

  my $test_name = 'Test Controller Action Transfer';

  save_shorcontroller_to_string();

  my @links_record = RecordLinks->get_links( 'from_table' => 'shop_orders',

                                            'from_id'    => $params{import_id},

                                            'to_table'   => 'oe',

                                          );

  is($links_record[0]->{from_id}    , $params{import_id}, "record from id check");

  is($links_record[0]->{from_table} , 'shop_orders'     , "record from table <shop_orders> check");

  is($links_record[0]->{to_table}   , 'oe'              , "record to table <oe> check");

}

my $shop_order = SL::Dev::Shop::new_shop_order(

test_transfer( import_id => $shop_order->id , customer => $customer->id );

use strict;

use Test::More;

use lib 't';

use Support::TestSetup;

use Carp;

use Test::Exception;

use SL::Dev::ALL;

use SL::DB::Shop;

use SL::DB::ShopOrder;

use SL::DB::ShopOrderItem;

use SL::Controller::ShopOrder;

use SL::Shop;

use Data::Dumper;

use SL::JSON;

use SL::ShopConnector::Shopware;

my ($shop, $shopware, $shop_order, $shop_part, $part, $customer, $employee, $json_import);

sub reset_state {

  my %params = @_;

  clear_up();

  $shop = SL::Dev::Shop::new_shop( connector         => 'shopware',

                                   last_order_number => 20000,

                                   pricetype         => 'brutto',

                                   price_source      => 'master_data',

                                   taxzone_id        => 1,

                                 );

  $shopware = SL::Shop->new( config => $shop );

  $part = SL::Dev::Part::new_part( partnumber   => 'SW10002',

                                         description  => 'TITANIUM CARBON GS 12m cm',

                                       );

  $shop_part = SL::Dev::Shop::new_shop_part(part => $part, shop => $shop);

  $employee = SL::DB::Manager::Employee->current || croak "No employee";

  $customer = SL::Dev::CustomerVendor::new_customer(

    name    => 'Evil Inc',

    street  => 'Evil Street',

    zipcode => '66666',

    email   => 'evil@evilinc.com'

  )->save;

}

sub get_json {

  local $/;

  my $file = "t/shop/json_ok.json";

  my $json_text = do {

    open(my $json_fh, "<:encoding(UTF-8)", $file)

         or die("Can't open \"$file\": $!\n");

    local $/;

    <$json_fh>

  };

  return $json_text;

}

sub test_import {

  my $json_import = get_json();

  note('testing shoporder mapping json good');

  my $import = SL::JSON::decode_json($json_import);

  $shop_order = $shopware->connector->import_data_to_shop_order($import);

  is($shop_order->shop_id , $shop->id  , "shop_id ok");

}

Support::TestSetup::login();

reset_state();

test_import();

done_testing;

clear_up();

1;

sub clear_up {

  "SL::DB::Manager::${_}"->delete_all(all => 1) for qw(OrderItem Order);

  "SL::DB::Manager::${_}"->delete_all(all => 1) for qw(ShopPart Part ShopOrderItem ShopOrder Shop Customer);

}