projekt kivitendo

# LX-Office ERP

# Copyright (C) 2004

# Based on SQL-Ledger Version 2.1.9

  };

  my ($query, $startdate, $last_ob, $mindate);

  ($last_ob) = selectrow_query($::form, $dbh, $query, $::locale->format_date(\%::myconfig, $asofdate));

  $last_ob = $::locale->parse_date_to_object(\%::myconfig, $last_ob) if $last_ob;

  ($mindate) = selectrow_query($::form, $dbh, $query);

  $mindate = $::locale->parse_date_to_object(\%::myconfig, $mindate);

    return $::locale->format_date(\%::myconfig, $mindate);

  };

sub balance_sheet {

  $main::lxdebug->enter_sub();

    $form->{period} = $form->{this_period} = conv_dateq($form->{asofdate});

  }

  $form->{this_startdate} = get_balance_starting_date($form->{asofdate});

  get_accounts($dbh, $last_period, $form->{this_startdate}, $form->{asofdate}, $form, \@categories);