projekt kivitendo

use SL::DB::Order;

use SL::DB::PurchaseInvoice;

use List::Util qw(sum0);

    # Link this record to the record it was created from.

    my $convert_from_oe_id = delete $form->{convert_from_oe_id};

    if (!$form->{postasnew} && $convert_from_oe_id) {

      RecordLinks->create_links('dbh'        => $dbh,

                                'mode'       => 'ids',

                                'from_table' => 'oe',

                                'from_ids'   => $convert_from_oe_id,

                                'to_table'   => 'ap',

                                'to_id'      => $form->{id},

      );

      # Close the record it was created from if the amount of

      # all APs create from this record equals the records amount.

      my @links = RecordLinks->get_links('dbh'        => $dbh,

                                         'from_table' => 'oe',

                                         'from_id'    => $convert_from_oe_id,

                                         'to_table'   => 'ap',

      );

      my $amount_sum = sum0 map { SL::DB::PurchaseInvoice->new(id => $_->{to_id})->load->amount } @links;

      my $order      = SL::DB::Order->new(id => $convert_from_oe_id)->load;

      $order->update_attributes(closed => 1) if ($amount_sum - $order->amount) == 0;

    }

                        only => [ qw(save save_as_new save_and_delivery_order save_and_invoice save_and_ap_transaction

                                     print send_email) ]);

                        only => [ qw(save save_as_new save_and_delivery_order save_and_invoice save_and_ap_transaction

                                     print send_email) ]);

# workflow from purchase order to ap transaction

sub action_save_and_ap_transaction {

  my ($self) = @_;

  my $errors = $self->save();

  if (scalar @{ $errors }) {

    $self->js->flash('error', $_) foreach @{ $errors };

    return $self->js->render();

  }

  my $text = $self->type eq sales_order_type()       ? $::locale->text('The order has been saved')

           : $self->type eq purchase_order_type()    ? $::locale->text('The order has been saved')

           : $self->type eq sales_quotation_type()   ? $::locale->text('The quotation has been saved')

           : $self->type eq request_quotation_type() ? $::locale->text('The rfq has been saved')

           : '';

  flash_later('info', $text);

  my @redirect_params = (

    controller => 'ap.pl',

    action     => 'add_from_purchase_order',

    id         => $self->order->id,

  );

  $self->redirect_to(@redirect_params);

}

        action => [

          t8('Save and AP Transaction'),

          call      => [ 'kivi.Order.save', 'save_and_ap_transaction', $::instance_conf->get_order_warn_duplicate_parts ],

          only_if   => (any { $self->type eq $_ } (purchase_order_type()))

        ],

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

use SL::DB::Order;

  map { delete $form->{$_} } qw(printed emailed queued invnumber deliverydate id datepaid_1 gldate_1 acc_trans_id_1 source_1 memo_1 paid_1 exchangerate_1 AP_paid_1 storno convert_from_oe_id);

sub add_from_purchase_order {

  $main::auth->assert('ap_transactions');

  return if !$::form->{id};

  my $order_id = delete $::form->{id};

  my $order    = SL::DB::Order->new(id => $order_id)->load;

  return if $order->type ne 'purchase_order';

  my $today                     = DateTime->today_local;

  $::form->{title}              = "Add";

  $::form->{vc}                 = 'vendor';

  $::form->{vendor_id}          = $order->customervendor->id;

  $::form->{vendor}             = $order->vendor->name;

  $::form->{convert_from_oe_id} = $order->id;

  $::form->{globalproject_id}   = $order->globalproject_id;

  $::form->{ordnumber}          = $order->number;

  $::form->{department_id}      = $order->department_id;

  $::form->{currency}           = $order->currency->name;

  $::form->{taxincluded}        = 1; # we use amount below, so tax is included

  $::form->{transdate}          = $today->to_kivitendo;

  $::form->{duedate}            = $today->to_kivitendo;

  $::form->{duedate}            = $order->vendor->payment->calc_date(reference_date => $today)->to_kivitendo if $order->vendor->payment;

  create_links();

  my $config_po_ap_workflow_chart_id = $::instance_conf->get_workflow_po_ap_chart_id;

  my ($first_taxchart, $default_taxchart, $taxchart_to_use);

  my @taxcharts = ();

  @taxcharts    = GL->get_active_taxes_for_chart($config_po_ap_workflow_chart_id, $::form->{transdate}) if (defined $config_po_ap_workflow_chart_id);

  foreach my $item (@taxcharts) {

    $first_taxchart   //= $item;

    $default_taxchart   = $item if $item->{is_default};

  }

  $taxchart_to_use      = $default_taxchart // $first_taxchart;

  my %pat = $order->calculate_prices_and_taxes;

  my $row = 1;

  foreach my $amount_chart (keys %{$pat{amounts}}) {

    my $tax = SL::DB::Manager::Tax->find_by(id => $pat{amounts}->{$amount_chart}->{tax_id});

    # If tax chart from order for this amount is active, use it. Use default or first tax chart for selected chart else.

    if (defined $config_po_ap_workflow_chart_id) {

      $taxchart_to_use = (first {$_->{id} == $tax->id} @taxcharts) // $taxchart_to_use;

    } else {

      $taxchart_to_use = $tax;

    }

    $::form->{"AP_amount_chart_id_$row"}          = $config_po_ap_workflow_chart_id // $amount_chart;

    $::form->{"previous_AP_amount_chart_id_$row"} = $::form->{"AP_amount_chart_id_$row"};

    $::form->{"amount_$row"}                      = $::form->format_amount(\%::myconfig, $pat{amounts}->{$amount_chart}->{amount} * (1 + $tax->rate), 2);

    $::form->{"taxchart_$row"}                    = $taxchart_to_use->id . '--' . $taxchart_to_use->rate;

    $::form->{"project_id_$row"}                  = $order->globalproject_id;

    $row++;

  }

  my $last_used_ap_chart               = SL::DB::Vendor->load_cached($::form->{vendor_id})->last_used_ap_chart;

  $::form->{"AP_amount_chart_id_$row"} = $last_used_ap_chart->id if $last_used_ap_chart;

  $::form->{rowcount}                  = $row;

  update(

    keep_rows_without_amount => 1,

    dont_add_new_row         => 1,

  );

}

- Neuer Workflow Lieferantenauftrag->Kreditorenbuchung: Für jedes Aufwandskonto

  der Positionen im Lieferantenauftrag wird eine Zeile in der Kreditorenbuchung

  erstellt. Gebucht wird standardmäßig auf des entsprechende Aufwandskonto. In

  der Mandantenkonfiguration kann unter Standardkonten ein Konto ausgewählt

  werden, auf das dann alle Zeilen gebucht werden.

  Die Steuern werden übernommen, sofern diese für das ausgewählte Aufwandskonto

  gültig sind. Ansonsten wird die Default-Steuer für das Aufwandskonto gesetzt.

  Der Quellauftrag wird geschlossen, wenn der Betrag aller Kreditorenbuchungen,

  die aus Workflows aus dem Quellauftrag entstanden sind, gleich dem Betrag

  des Quellauftrags ist.

  'Account for workflow from purchase order to ap transaction' => 'Konto für den Workflow von Lieferantenauftrag nach Kreditorenbuchung',

  'Account for workflow from purchase order to ap transaction' => '',

-- @tag: defaults_workflow_po_ap_chart_id

-- @description: Voreingestelltes Konto für Workflow Lieferantenauftrag -> Kreditorenbuchung

-- @depends: release_3_5_4

ALTER TABLE defaults ADD COLUMN workflow_po_ap_chart_id INTEGER;

[%- P.hidden_tag('convert_from_oe_id', convert_from_oe_id) -%]

  <tr>

   <td align="right">[% LxERP.t8("Account for workflow from purchase order to ap transaction") %]</td>

   <td>[% P.chart.picker('defaults.workflow_po_ap_chart_id', SELF.defaults.workflow_po_ap_chart_id, type='AP_amount', choose=1, style=style) %]<td>

  </tr>

</table>