projekt kivitendo

use Data::Dumper;

use SL::DB::Helper::AccountingPeriod qw(get_balance_starting_date);

use List::Util qw(sum);

# use warnings;

use strict;

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

  my ($query, $sth, $ref);

  my %balance = ();

  }

  # debits and credits for headings

  foreach my $accno (@headingaccounts) {

    foreach $ref (@{ $form->{TB} }) {

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

  # connect to database

  my ($invoice, $arap, $buysell, $ct, $ct_id, $ml);

  $sth->finish;

  $main::lxdebug->leave_sub();

}

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

  my $ct = $form->{ct} eq "customer" ? "customer" : "vendor";

       WHERE ct.id = ?|;

  ($form->{ $form->{ct} }, $form->{email}, $form->{cc}, $form->{bcc}) =

    selectrow_query($form, $dbh, $query, $form->{"${ct}_id"});

  $main::lxdebug->leave_sub();

}

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

  my ($null, $department_id) = split /--/, $form->{department};

  $form->{TR} = selectall_hashref_query($form, $dbh, $query);

  $main::lxdebug->leave_sub();

}

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

  my $last_period = 0;

  my $category;

    }

  }

  $main::lxdebug->leave_sub();

}