projekt kivitendo

use SL::DB::Draft;

use SL::DB::Order;

use SL::DB::PurchaseInvoice;

use SL::Util qw(trim);

use SL::DB;

use Data::Dumper;

sub _post_transaction {

  my ($self, $myconfig, $form, $provided_dbh, %params) = @_;

  my $payments_only = $params{payments_only};

  my $dbh = $provided_dbh || SL::DB->client->dbh;

    }

  }

  return 1;

}

use SL::IO;

use SL::MoreCommon;

use SL::DB::Default;

use SL::TransNumber;

use SL::Util qw(trim);

use SL::DB;

sub _post_transaction {

  my ($self, $myconfig, $form, $provided_dbh, %params) = @_;

  my $payments_only = $params{payments_only};

  my ($query, $sth, $null, $taxrate, $amount, $tax);

    }

  }

  return 1;

}

use SL::DB::DeliveryOrder;

use SL::DB::DeliveryOrder::TypeData qw(:types is_valid_type);

use SL::DB::Status;

use SL::DBUtils;

use SL::Helper::ShippedQty;

use SL::HTML::Restrict;

  my $myconfig = \%main::myconfig;

  my $form     = $main::form;

  my $dbh = SL::DB->client->dbh;

  my $restricter = SL::HTML::Restrict->create;

  Common::webdav_folder($form);

  $main::lxdebug->leave_sub();

  return 1;

use SL::DBUtils;

use SL::DB::Chart;

use SL::DB::Draft;

use SL::Util qw(trim);

use SL::DB;

  my ($self, $myconfig, $form) = @_;

  $main::lxdebug->enter_sub();

  my ($debit, $credit) = (0, 0);

  my $project_id;

    }

  }

  return 1;

}

use SL::DB::Default;

use SL::DB::TaxZone;

use SL::DB::MakeModel;

use SL::DB;

use SL::Presenter::Part qw(type_abbreviation classification_abbreviation);

use List::Util qw(min);

sub _post_invoice {

  my ($self, $myconfig, $form, $provided_dbh, %params) = @_;

  my $payments_only = $params{payments_only};

  my $dbh = $provided_dbh || SL::DB->client->dbh;

  my $restricter = SL::HTML::Restrict->create;

    }

  }

  return 1;

}

use SL::DB::Draft;

use SL::DB::Tax;

use SL::DB::TaxZone;

use SL::TransNumber;

use SL::DB;

use SL::Presenter::Part qw(type_abbreviation classification_abbreviation);

sub _post_invoice {

  my ($self, $myconfig, $form, $provided_dbh, %params) = @_;

  my $payments_only = $params{payments_only};

  my $dbh = $provided_dbh || SL::DB->client->dbh;

  my $restricter = SL::HTML::Restrict->create;

    $shop->connector->set_orderstatus($shop_order->shop_trans_id, "completed");

  }

  return 1;

}

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

  $form->mtime_ischanged('ap');

  my ($inline) = @_;

  # check if there is a vendor, invoice, due date and invnumber

  $form->{id} = 0 if $form->{postasnew};

  if (AP->post_transaction(\%myconfig, \%$form)) {

    # create webdav folder

    if ($::instance_conf->get_webdav) {

      SL::Webdav->new(type     => 'accounts_payable',

  $form->mtime_ischanged('ar');

  my ($datepaid);

  # check if there is an invoice number, invoice and due date

  $form->{id} = 0 if $form->{postasnew};

  $form->error($locale->text('Cannot post transaction!')) unless AR->post_transaction(\%myconfig, \%$form);

  # saving the history

  if(!exists $form->{addition} && $form->{id} ne "") {

    $form->{snumbers}  = "invnumber_$form->{invnumber}";

  $form->mtime_ischanged('delivery_orders');

  $form->{defaultcurrency} = $form->get_default_currency(\%myconfig);

  $form->isblank("transdate", $locale->text('Delivery Order Date missing!'));

    $::dispatcher->end_request;

  }

  # we rely on converted_from_orderitems, if the workflow is used

  # be sure that at least one position is linked to the original orderitem

  if ($form->{convert_from_oe_ids}) {

  }

  DO->save();

  # saving the history

  if(!exists $form->{addition}) {

    $form->{snumbers} = qq|donumber_| . $form->{donumber};

  my $form     = $main::form;

  my $locale   = $main::locale;

  if ($::myconfig{mandatory_departments} && !$form->{department_id}) {

    $form->error($locale->text('You have to specify a department.'));

  }

  post_transaction();

  if ($::instance_conf->get_webdav) {

    SL::Webdav->new(type     => 'general_ledger',

                    number   => $form->{id},

  $form->mtime_ischanged('ap');

  $form->{defaultcurrency} = $form->get_default_currency(\%myconfig);

  $form->isblank("invdate",   $locale->text('Invoice Date missing!'));

  relink_accounts();

  if (IR->post_invoice(\%myconfig, \%$form)){

    # saving the history

    if(!exists $form->{addition} && $form->{id} ne "") {

      $form->{snumbers}  = qq|invnumber_| . $form->{invnumber};

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

  $form->mtime_ischanged('ar');

  $form->{defaultcurrency} = $form->get_default_currency(\%myconfig);

  $form->isblank("invdate",  $locale->text('Invoice Date missing!'));

  $form->isblank("customer_id", $locale->text('Customer missing!'));

    }

  }

  if(!exists $form->{addition}) {

    $form->{snumbers}  =  'invnumber' .'_'. $form->{invnumber}; # ($form->{type} eq 'credit_note' ? 'cnnumber' : 'invnumber') .'_'. $form->{invnumber};

    $form->{what_done} = 'invoice';