projekt kivitendo

  'sales_quotation'         => { gen => 1, gltype => '',   dir =>'SalesQuotation',       model => 'Order',          right => 'import_ar'  },

  'sales_order'             => { gen => 1, gltype => '',   dir =>'SalesOrder',           model => 'Order',          right => 'import_ar'  },

  'sales_delivery_order'    => { gen => 1, gltype => '',   dir =>'SalesDeliveryOrder',   model => 'DeliveryOrder',  right => 'import_ar'  },

  'invoice'                 => { gen => 1, gltype => 'ar', dir =>'SalesInvoice',         model => 'Invoice',        right => 'import_ar'  },

  'credit_note'             => { gen => 1, gltype => '',   dir =>'CreditNote',           model => 'Invoice',        right => 'import_ar'  },

  'request_quotation'       => { gen => 3, gltype => '',   dir =>'RequestForQuotation',  model => 'Order',          right => 'import_ap'  },

  'purchase_order'          => { gen => 3, gltype => '',   dir =>'PurchaseOrder',        model => 'Order',          right => 'import_ap'  },

  'purchase_delivery_order' => { gen => 3, gltype => '',   dir =>'PurchaseDeliveryOrder',model => 'DeliveryOrder',  right => 'import_ap'  },

  'purchase_invoice'        => { gen => 2, gltype => 'ap', dir =>'PurchaseInvoice',      model => 'PurchaseInvoice',right => 'import_ap'  },

  'vendor'                  => { gen => 0, gltype => '',   dir =>'Vendor',               model => 'Vendor',         right => 'xx'         },

  'customer'                => { gen => 1, gltype => '',   dir =>'Customer',             model => 'Customer',       right => 'xx'         },

  'part'                    => { gen => 0, gltype => '',   dir =>'Part',                 model => 'Part',           right => 'xx'         },

  'gl_transaction'          => { gen => 2, gltype => 'gl', dir =>'GeneralLedger',        model => 'GLTransaction',  right => 'import_ap'  },

  'draft'                   => { gen => 0, gltype => '',   dir =>'Draft',                model => 'Draft',          right => 'xx'         },

  'csv_customer'            => { gen => 1, gltype => '',   dir =>'Reports',              model => 'Customer',       right => 'xx'         },

  'csv_vendor'              => { gen => 1, gltype => '',   dir =>'Reports',              model => 'Vendor',         right => 'xx'         },

  'shop_image'              => { gen => 0, gltype => '',   dir =>'ShopImages',           model => 'Part',           right => 'xx'         },

                                      );

        if ($existobj) {

          push @existing, $existobj->id.'_'.$sfile->file_name;

        } else {

          my $fileobj = SL::File->save(object_id        => $self->object_id,

                                       object_type      => $self->object_type,

                                       mime_type        => $mime_type,

                                       source           => $source,

                                       file_type        => $self->file_type,

                                       file_name        => $basefile,

                                       title            => $::form->{title},

                                       description      => $::form->{description},

                                       ## two possibilities: what is better ? content or sessionfile ??

                                       file_contents    => ${$upfiles[$idx]->{data}},

                                       file_path        => $sfile->file_name

                                     );

          unlink($sfile->file_name);

        }

        1;

      } or do {

        $self->js->flash(       'error', t8('internal error (see details)'))

                 ->flash_detail('error', $@)->render;

        return;

      }

    }

  }

  $self->existing(\@existing);

  $self->_do_list(1);

}

sub action_download {

  my ($self) = @_;

  my ($id,$version) = split /_/, $::form->{id};

  my $file = SL::File->get(id => $id );

  $file->version($version) if $version;

  my $ref  = $file->get_content;

  my ($thumb) = @_;

  croak "No picture set yet" if !$thumb->{content};

$main::lxdebug->dump(0, 'WH: CTHUMB ', $thumb);

  my $image            = GD::Image->new($thumb->{content});

  $thumb->{thumbnail_img_content} = $thumbnail->png;

  $thumb->{thumbnail_img_content_type} = "image/png";

  $thumb->{thumbnail_img_width} = $new_width;

  $thumb->{thumbnail_img_height} = $new_height;

  #$self->thumbnail_img_content($thumbnail->png);

  #$self->thumbnail_img_content_type('image/png');

  #$self->thumbnail_img_width($new_width);

  #$self->thumbnail_img_height($new_height);

  return $thumb;

  my ($content) = @_;

  #$main::lxdebug->dump(0, 'WH: FPT Content', $content);

  return (t8("No file uploaded yet")) if !$content;

  #my $mime_type = File::MimeInfo::Magic::magic($content);

  #$main::lxdebug->dump(0, 'WH: MIME ', $mime_type);

  my $info = Image::Info::image_info(\$content);

  #$main::lxdebug->dump(0, 'WH: INFO', $info);

  my $thumbnail;

  $thumbnail->{file_content_type} = $info->{file_media_type};

  $thumbnail->{file_image_width} = $info->{width};

  $thumbnail->{file_image_height} = $info->{height};

  $thumbnail->{content} = $content;

  #$self->file_content_type($info->{file_media_type});

  #$self->files_img_width($info->{width});

  #$self->files_img_height($info->{height});

  #$self->files_mtime(DateTime->now_local);

  $thumbnail = &file_create_thumbnail($thumbnail);

  return $thumbnail;

use SL::DB::ShopImage;

$main::lxdebug->message(0, "WH:ShowFiles ");

$main::lxdebug->dump(0, 'WH:FORM ',$::form);

$main::lxdebug->dump(0, 'WH:FORM ',$::form->{part});

  #my $images = SL::DB::Manager::File->get_all_sorted( where => [ trans_id => $::form->{id}, modul => $::form->{modul}, file_content_type => { like => 'image/%' } ], sort_by => 'position' );

  #my $images = SL::DB::Manager::ShopImage->get_all_sorted( where => [ partnumber => $::form->{part}{partnumber}, ], with_object => 'file', sort_by => 'position' );

  my $images = SL::DB::Manager::ShopImage->get_all( where => [ 'files.object_id' => $::form->{id}, ], with_objects => 'file', sort_by => 'position' );

$main::lxdebug->dump(0, 'WH:ShowFiles1 ',$images);

  my %filter      = ($::form->{filter} ? parse_filter($::form->{filter}) : query => [ transferred => 0 ]);

  my $sort_by     = $::form->{sort_by} ? $::form->{sort_by} : 'part.partnumber';

    my $part       = SL::DB::Manager::Part->get_all( where => [id => $self->shop_part->part_id], with_objects => ['prices'],limit => 1)->[0];

    $price         = $part->$price_src_id;

    }else{

    my $part       = SL::DB::Manager::Part->get_all( where => [id => $self->shop_part->part_id, 'prices.'.pricegroup_id => $price_src_id], with_objects => ['prices'],limit => 1)->[0];

    my $pricegrp   = SL::DB::Manager::Pricegroup->find_by( id => $price_src_id )->pricegroup;

    $price         = $part->prices->[0]->price;

  shop_images                    => 'shop_image',

# This file has been auto-generated only because it didn't exist.

# Feel free to modify it at will; it will not be overwritten automatically.

package SL::DB::Manager::ShopImage;

use strict;

use parent qw(SL::DB::Helper::Manager);

use SL::DB::Helper::Sorted;

sub object_class { 'SL::DB::ShopImage' }

__PACKAGE__->make_manager_methods;

1;

  doc_storage_for_shopimages                => { type => 'text', default => 'Filesystem' },

# This file has been auto-generated. Do not modify it; it will be overwritten

# by rose_auto_create_model.pl automatically.

package SL::DB::ShopImage;

use strict;

use parent qw(SL::DB::Object);

__PACKAGE__->meta->table('shop_images');

__PACKAGE__->meta->columns(

  file_id                => { type => 'integer' },

  id                     => { type => 'serial', not_null => 1 },

  itime                  => { type => 'timestamp', default => 'now()' },

  mtime                  => { type => 'timestamp' },

  org_file_height        => { type => 'integer' },

  org_file_width         => { type => 'integer' },

  position               => { type => 'integer' },

  thumbnail_content      => { type => 'bytea' },

  thumbnail_content_type => { type => 'text' },

);

__PACKAGE__->meta->primary_key_columns([ 'id' ]);

__PACKAGE__->meta->allow_inline_column_values(1);

__PACKAGE__->meta->foreign_keys(

  file => {

    class       => 'SL::DB::File',

    key_columns => { file_id => 'id' },

  },

);

1;

;

# This file has been auto-generated only because it didn't exist.

# Feel free to modify it at will; it will not be overwritten automatically.

package SL::DB::ShopImage;

use strict;

use SL::DB::MetaSetup::ShopImage;

use SL::DB::Manager::ShopImage;

__PACKAGE__->meta->initialize;

1;

use SL::DB::ShopImage;

use SL::Controller::Helper::ThumbnailCreator qw(file_probe_type);

  $main::lxdebug->dump(0, 'WH: PARAMS', \%params);

  #ShopImage

  if($file->object_type eq "shop_image"){

    my $image_content = $params{file_contents};

    my $thumbnail = file_probe_type($image_content);

    $main::lxdebug->dump(0, 'WH: THUMB ',$thumbnail);

    my $shopimage = SL::DB::ShopImage->new();

    $shopimage->assign_attributes(

                                  file_id                => $file->id,

                                  thumbnail_content      => $thumbnail->{thumbnail_img_content},

                                  org_file_height        => $thumbnail->{file_image_height},

                                  org_file_width         => $thumbnail->{file_image_width},

                                  thumbnail_content_type => $thumbnail->{thumbnail_img_content_type},

                                 );

    $shopimage->save;

  }

  gl_transaction          => 'dialogbuchungen',

  shop_image              => 'shopbilder',

  gl_transaction          => 'GLTransaction',

  shop_image              => 'Part',

  GLTransaction   => 'reference',

  ShopImage       => 'partnumber',

  ns.imageUpload = function(id,type,filetype,upload_title,gl) {

    kivi.popup_dialog({ url:     'controller.pl',

                        data:    { action: 'File/ajax_upload',

                                   file_type:   filetype,

                                   object_type: type,

                                   object_id:   id,

                                   is_global:   gl

                                 },

                        id:     'files_upload',

                        dialog: { title: upload_title, width: 650, height: 240 } });

    return true;

  }

-- @tag:shopimages

-- @description: Tabelle für Shopbilder und zusätzliche Konfiguration und valid_type für Filemanagement

-- @charset: UTF-8

-- @depends: release_3_4_1 files shop_parts

-- @ignore: 0

CREATE TABLE shop_images(

  id                      SERIAL PRIMARY KEY,

  file_id                 INTEGER REFERENCES files(id) ON DELETE CASCADE,

  position                INTEGER,

  thumbnail_content       BYTEA,

  thumbnail_width         INTEGER,

  thumbnail_height        INTEGER,

  thumbnail_content_type  TEXT,

  itime                   TIMESTAMP DEFAULT now(),

  mtime                   TIMESTAMP

);

CREATE TRIGGER mtime_shop_images BEFORE UPDATE ON shop_images FOR EACH ROW EXECUTE PROCEDURE set_mtime();

ALTER TABLE defaults ADD COLUMN doc_storage_for_shopimages      text default 'Filesystem';

ALTER TABLE files

  DROP CONSTRAINT valid_type;

ALTER TABLE files

  ADD  CONSTRAINT valid_type CHECK (

             (object_type = 'credit_note'     ) OR (object_type = 'invoice'                 ) OR (object_type = 'sales_order'       )

          OR (object_type = 'sales_quotation' ) OR (object_type = 'sales_delivery_order'    ) OR (object_type = 'request_quotation' )

          OR (object_type = 'purchase_order'  ) OR (object_type = 'purchase_delivery_order' ) OR (object_type = 'purchase_invoice'  )

          OR (object_type = 'vendor'          ) OR (object_type = 'customer'                ) OR (object_type = 'part'              )

          OR (object_type = 'gl_transaction'  ) OR (object_type = 'dunning'                 ) OR (object_type = 'dunning1'          )

          OR (object_type = 'dunning2'        ) OR (object_type = 'dunning3'                ) OR (object_type = 'draft'             )

          OR (object_type = 'statement'       ) OR (object_type = 'shop_image'              )

  );

-- @tag:shopimages_2

-- @description: Umbennung der Spalten für Weite und Breite in die Weite und Breite des orginal Bildes

-- @charset: UTF-8

-- @depends: release_3_4_1 files shop_parts shopimages

-- @ignore: 0

ALTER TABLE shop_images RENAME thumbnail_width TO org_file_width;

ALTER TABLE shop_images RENAME thumbnail_height TO org_file_height;

  <tr>

    <td align="right">[% LxERP.t8('Storage Type for shopimages') %]</td>

    <td>[% L.select_tag('defaults.doc_storage_for_shopimages',

         [ [ 'None', LxERP.t8('None') ], [ 'Filesystem', LxERP.t8('Files') ],[ 'Webdav', LxERP.t8('WebDAV') ],[ 'ExtDMS', LxERP.t8('ext.DMS') ],[ 'DB', LxERP.t8('Database') ]  ],

                               default = SELF.defaults.doc_storage_for_shopimages,

                               onchange="return checkavailable_filebackend(this);") %]</td>

    <td>[% LxERP.t8('Use this storage backend for uploaded images') %]</td>

  </tr>

xx

  [% SET multiple = 'true' %]

  [% IF SELF.object_type == 'shop_image' %][% multiple = 'false' %][% END %]

   <input type="file" name="uploadfiles[]" multiple="[% multiple %]" id="upload_files" size="45" accept="[% SELF.accept_types %]" onchange="kivi.File.allow_upload_submit();"></td>

  [% IF SELF.object_type == 'shop_image' %]

    <tr>

      <td>[% LxERP.t8("Title") %]</td>

      <td>[% L.input_tag("title",'') %]</td>

    </tr>

    <tr>

      <td>[% LxERP.t8("Description") %]</td>

      <td>[% L.input_tag("description",'') %]</td>

    </tr>

  [% END %]

   [% # Dumper.dump_html(img) %]

      <td width="70px"><img src="data:[%  img.thumbnail_content_type %];base64,[%  img.thumbnail_content.encode_base64 %]" alt="[%  img.file.title %]"></td>

      <td>[% HTML.escape(img.file.title) %]</td>

      <td>[% HTML.escape(img.file.description) %]</td>

      <td>[% HTML.escape(img.file.file_name) %]</td>

      <td>[% HTML.escape(img.org_file_width) _  ' x ' _ HTML.escape(img.org_file_height) %]</td>

[% L.button_tag("kivi.shop_part.imageUpload(" _ FORM.id _ ",'shop_image','image','Upload shopimage',0);", LxERP.t8('Upload shopimage') ) %]