projekt kivitendo

  my $order   = $config->order;

  my $invoice;

    1;                          # make Emacs happy

    $invoice = SL::DB::Invoice->new_from($order);

    _log_msg("_create_invoice created for period start date $period_start_date id " . $invoice->id . " number " . $invoice->invnumber . " netamount " . $invoice->netamount . " amount " . $invoice->amount);

    # die $invoice->transaction_description;

  })) {

    $::lxdebug->message(LXDebug->WARN(), "_create_invoice failed: " . join("\n", (split(/\n/, $self->{db_obj}->db->error))[0..2]));

    return undef;

  # allow deletion of unused Buchungsgruppen. Will fail, due to database

  # constraint, if Buchungsgruppe is connected to a part

  }) || flash_later('error', $::locale->text('The booking group is in use and cannot be deleted.'));

  $self->redirect_to(action => 'list');

  my @errors;

  my $db = $self->config->db;

    $self->config->assign_attributes(%{ $params }); # assign description and inventory_accno_id

        $taxzone_chart->save;

      }

    }

  flash_later('info', $is_new ? t8('The booking group has been created.') : t8('The booking group has been saved.'));

  $self->redirect_to(action => 'list');

  my $db = $self->{cv}->db;

    my $cvs_by_nr;

    if ( $self->is_vendor() ) {

      if ( $self->{cv}->vendornumber ) {

        $note->delete(cascade => 'delete');

      }

    }

  }) || die($db->error);

}

    $self->action_edit();

  } else {

      $self->{cv}->delete(cascade => 1);

      my $snumbers = $self->is_vendor() ? 'vendornumber_'. $self->{cv}->vendornumber : 'customernumber_'. $self->{cv}->customernumber;

    SL::Helper::Flash::flash('error', $::locale->text('No contact selected to delete'));

  } else {

      if ( $self->{contact}->used ) {

        $self->{contact}->detach();

        $self->{contact}->save();

        $self->{contact}->delete(cascade => 1);

        SL::Helper::Flash::flash('info', $::locale->text('Contact deleted.'));

      }

    }) || die($db->error);

    $self->{contact} = $self->_new_contact_object;

    SL::Helper::Flash::flash('error', $::locale->text('No shipto selected to delete'));

  } else {

      if ( $self->{shipto}->used ) {

        $self->{shipto}->detach();

        $self->{shipto}->save(cascade => 1);

        $self->{shipto}->delete(cascade => 1);

        SL::Helper::Flash::flash('info', $::locale->text('Shipto deleted.'));

      }

    }) || die($db->error);

    $self->{shipto} = SL::DB::Shipto->new();

  }

  my $db = SL::DB::Invoice->new->db;

    foreach my $id (@sales_delivery_order_ids) {

      my $delivery_order    = SL::DB::DeliveryOrder->new(id => $id)->load;

      push @invoices, $invoice;

    }

    1;

  })) {

    $::lxdebug->message(LXDebug::WARN(), "Error: " . $db->error);

    $::form->error($db->error);

  }

}

sub action_list_invoices {

  my ($self) = @_;

  my $errors = [];

    sub {

      my @spoolfiles = grep { $_ } map { $_->spoolfile } @{ SL::DB::Manager::Status->get_all(where => [ trans_id => $self->order->id ]) };

      $self->order->delete;

  my ($self) = @_;

  my $errors = [];

  }) || push(@{$errors}, $db->error);

  return $errors;

sub action_ajax_save_time_and_cost_estimate {

  my ($self) = @_;

    # Make Emacs happy

    1;

    foreach my $attributes (@{ $::form->{requirement_spec_items} || [] }) {

  }

  my $db = $self->requirement_spec->db;

    if ($self->copy_source) {

      $self->requirement_spec($self->copy_source->create_copy(%{ $params }));

    } else {

      $self->requirement_spec->save(cascade => 1);

    }

  })) {

    $::lxdebug->message(LXDebug::WARN(), "Error: " . $db->error);

    @errors = ($::locale->text('Saving failed. Error message from the database: #1', $db->error));

  return $self->js->error(@errors)->render if @errors;

  my $db = $self->requirement_spec->db;

    $project->save;

    $self->requirement_spec->update_attributes(project_id => $project->id);

  my $old_type            = $self->item->item_type;

  my $new_type            = !$dropped_item ? 'section' : $position =~ m/before|after/ ? $dropped_item->item_type : $dropped_item->child_type;

    $self->item->remove_from_list;

    $self->item->parent_id($position =~ m/before|after/ ? $dropped_item->parent_id : $dropped_item->id) if $dropped_item;

    $self->item->item_type($new_type);

  my ($self) = @_;

  my $db = $self->requirement_spec->db;

    # Make Emacs happy

    1;

    my $parts    = $::form->{additional_parts} || [];

    $_->{position} = $position++ for @{ $parts };

    $self->requirement_spec->update_attributes(parts => $parts)->load;

  }) or do {

    return $self->js->error(t8('Saving failed. Error message from the database: #1', $db->error))->render;

  };

  my $dropped_type       = $position ne 'last' ? undef : $::form->{dropped_type} =~ m/^ text-blocks- (?:front|back) $/x ? $::form->{dropped_type} : die "Unknown 'dropped_type' parameter";

  my $old_where          = $self->text_block->output_position;

    1;

    $self->text_block->remove_from_list;

    $self->text_block->output_position($position =~ m/before|after/ ? $dropped_text_block->output_position : $::form->{dropped_type} eq 'text-blocks-front' ? 0 : 1);

sub paste_picture {

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

    1;

    $self->picture($copied->to_object)->save;        # Create new picture from copied data and save

    $self->text_block->add_pictures($self->picture); # Add new picture to text block

  # allow deletion of unused tax zones. Will fail, due to database

  # constraints, if tax zone is used anywhere

  }) || flash_later('error', $::locale->text('The tax zone is in use and cannot be deleted.'));

  $self->redirect_to(action => 'list');

  my @errors;

  my $db = $self->config->db;

    # always allow editing of description and obsolete

    $self->config->assign_attributes( %{$params} ) ;

        $taxzone_chart->save;

      }

    }

  flash_later('info', $is_new ? t8('The taxzone has been created.') : t8('The taxzone has been saved.'));

  $self->redirect_to(action => 'list');

sub remove_from_list {

  my ($self) = @_;

    remove_position($self);

    # Set to -1 manually because $self->update_attributes() would

SQL

    $self->db->dbh->do($sql, undef, $self->$primary_key_col);

    $self->$column(undef);

}

sub add_to_list {

      ${group_by}

SQL

    $self->db->dbh->do($query, undef, $new_position - 1, @values);

    $self->update_attributes($column => $new_position);

}

sub get_next_in_list {

  my $self   = ref($class_or_self) ? $class_or_self : $class_or_self->new;

  my $column = column_name($self);

    my $query = qq|UPDATE | . $self->meta->table . qq| SET ${column} = ? WHERE id = ?|;

    my $sth   = $self->db->dbh->prepare($query) || die $self->db->dbh->errstr;

    }

    $sth->finish;

  });

  return $result;

    $params{ar_id} = $chart->id;

  }

    my %data = $self->calculate_prices_and_taxes;

    $self->_post_create_assemblyitem_entries($data{assembly_items});

    $self->_post_update_allocated($data{allocated});

    $self->_post_book_rounding($data{rounding});

    $::lxdebug->message(LXDebug->WARN(), "convert_to_invoice failed: " . join("\n", (split(/\n/, $self->db->error))[0..2]));

    return undef;

  }

sub save {

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

  return $result;

}

sub delete {

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

  return $result;

}

  return $self->_create_copy(%params) if $self->db->in_transaction;

  my $copy;

    $::lxdebug->message(LXDebug->WARN(), "create_copy failed: " . join("\n", (split(/\n/, $self->db->error))[0..2]));

    return undef;

  }

  my $db = $invoice->db;

  my $tax = SL::DB::Manager::Tax->find_by(taxkey => 0, rate => 0);

  _save_and_pay_and_check(invoice => $invoice, bank => $bank, pay => 1, check => 1);

  }) || die "something went wrong: " . $db->error;

  return $invoice->invnumber;

};

  my $db = $invoice->db;

  # TODO: check for currency and exchange rate

  $invoice->create_ar_row( chart => $ar_chart );

  _save_and_pay_and_check(invoice => $invoice, bank => $bank, pay => 1, check => 1);

  }) || die "something went wrong: " . $db->error;

  return $invoice->invnumber;

};