projekt kivitendo

use Try::Tiny;

                        only => [ qw(save save_as_new save_and_delivery_order save_and_invoice save_and_invoice_for_advance_payment

                                     save_and_final_invoice save_and_ap_transaction add_subversion

                        only => [ qw(save save_as_new save_and_delivery_order save_and_invoice save_and_invoice_for_advance_payment

                                     save_and_final_invoice save_and_ap_transaction add_subversion

# create new version and set version number

sub action_add_subversion {

  my ($self) = @_;

  try {

    my $new_version_number = $self->order->current_version_number + 1;

    if ($self->type eq sales_quotation_type() || $self->type eq request_quotation_type()) {

      $self->order->quonumber($self->order->quonumber . '-' . $new_version_number);

    } elsif ($self->type eq sales_order_type()|| $self->type eq purchase_order_type()) {

      $self->order->quonumber($self->order->quonumber . '-' . $new_version_number);

    } else { die "Invalid Call for Sub-Version. Need Order or Quotation."; }

    SL::DB::OrderVersion->new(oe_id   => $self->order->id,

                              version => $new_version_number,

                             )->save;

  } catch {  die "Could not create sub-version for record with id:" . $self->order->id . " Reason: $_" };

  # call the save action

  $self->action_save();

}

# save the order as new document and open it for edit

  # self is generated on the fly. form is a file from the dms

  # TODO: for the case Filesystem and Webdav we want the real file from the filesystem

  #       for the nyi case DMS/CMIS we need a gloid or whatever the system offers (elo_id for ELO)

  #       DMS kivi version should have a record_link to email_journal

  #       the record link has to refer to the correct version -> helper table file <-> file_version

  my $file_id = $self->{file_id} || $::form->{file_id};

  die "No file id" unless $file_id;

  # $main::lxdebug->message(0, "was wir hier haben" . $self->order->id . " " . $::form->{email_journal_id} . " file id noch frisch " . $self->{file_id});

  # email is sent -> set this version to final and link to journal and file

  my $current_version = SL::DB::Manager::OrderVersion->get_all(where => [oe_id => $self->order->id, final_version => 0]);

  die "Invalid version state" unless scalar @{ $current_version } == 1;

  $current_version->[0]->update_attributes(file_id          => $file_id,

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

                                           final_version    => 1)->save;

    # create first version if none exists

    SL::DB::OrderVersion->new(oe_id => $self->order->id, version => 1)->save unless scalar @{ $self->order->order_version };

  # VALID States for current Sales Version

  # 1. save create version without email_id             -> open

  # 2. send email set email_id for version 1            -> final

  # 3. save and subversion new version without email_id -> open

  # 4. send email set email_id for current subversion   -> final

  # for all version > 1 set postfix -2 .. -n for recordnumber (don´t compute just use autoincrement db field)

  my $final_sales_version = ($self->order->is_sales && $self->order->id) ? $self->order->is_final_version : undef;

          disabled => !$may_edit_create    ? t8('You do not have the permissions to access this function.')

                    : $final_sales_version ? t8('This record is the final version. Please create a new subversion') : undef,

          disabled => !$may_edit_create       ? t8('You do not have the permissions to access this function.')

                    : $final_sales_version    ? t8('This record is the final version. Please create a new sub-version') : undef,

        ],

        action => [

          t8('Create Sub-Version'),

          call      => [ 'kivi.Order.save', 'add_subversion',

          ],

          disabled => !$may_edit_create     ? t8('You do not have the permissions to access this function.')

                    : !$final_sales_version ? t8('This sub-version is not yet finalized') : undef,

          disabled => !$may_edit_create    ? t8('You do not have the permissions to access this function.')

                    : $final_sales_version ? t8('This record is a final version. Please create a new subversion') : undef,

          disabled => !$may_edit_create    ? t8('You do not have the permissions to access this function.')

                    : $final_sales_version ? t8('This record is a final version. Please create a new subversion') : undef,

          disabled => !$may_edit_create    ? t8('You do not have the permissions to access this function.')

                    : !$self->order->id    ? t8('This object has not been saved yet.')

                    : $final_sales_version ? t8('This record is a final version. Please create a new subversion') : undef,

  my $file_obj;

      $file_obj = SL::File->save(object_id     => $order->id,

                                 object_type   => $order->type,

                                 mime_type     => SL::MIME->mime_type_from_ext($filename),

                                 source        => 'created',

                                 file_type     => 'document',

                                 file_name     => $filename,

                                 file_contents => $content,

                                 print_variant => $variant);

      $self->{file_id}  = $file_obj->id;

use SL::DBUtils ();

  order_version => {

    type                   => 'one to many',

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

    column_map             => { id => 'oe_id' },

  },

sub current_version_number {

  my ($self) = @_;

  my $query = <<EOSQL;

    SELECT max(version)

    FROM oe_version

    WHERE (oe_id = ?)

EOSQL

  my ($current_version_number) = SL::DBUtils::selectfirst_array_query($::form, $self->db->dbh, $query, ($self->id));

  die "Invalid State. No version linked" unless $current_version_number;

  return $current_version_number;

}

sub is_final_version {

  my ($self) = @_;

  my $order_versions = SL::DB::Manager::OrderVersion->get_all(where => [ oe_id => $self->id, final_version => 0 ]);

  die "Invalid version state" unless scalar @{ $order_versions } < 2;

  my $final_version = scalar @{ $order_versions } == 1 ? 0 : 1;

  return $final_version;

}

        $self->{file_id} = $attfile->id;