accounting.lib.php

Go to the documentation of this file.

<?php
/* Copyright (C) 2013-2014 Olivier Geffroy      <jeff@jeffinfo.com>
 * Copyright (C) 2013-2017 Alexandre Spangaro   <aspangaro@open-dsi.fr>
 * Copyright (C) 2014      Florian Henry        <florian.henry@open-concept.pro>
 * Copyright (C) 2019      Eric Seigne         <eric.seigne@cap-rel.fr>
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 3 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program. If not, see <https://www.gnu.org/licenses/>.
 */

function is_empty($var, $allow_false = false, $allow_ws = false)
{
  if (!isset($var) || is_null($var) || ($allow_ws == false && trim($var) == "" && !is_bool($var)) || ($allow_false === false && is_bool($var) && $var === false) || (is_array($var) && empty($var))) {
    return true;
  }
  return false;
}

function accounting_prepare_head(AccountingAccount $object)
{
  global $langs, $conf;

  $h = 0;
  $head = array();

  $head[$h][0] = DOL_URL_ROOT.'/accountancy/admin/card.php?id='.$object->id;
  $head[$h][1] = $langs->trans("AccountAccounting");
  $head[$h][2] = 'card';
  $h++;

  // Show more tabs from modules
  // Entries must be declared in modules descriptor with line
  // $this->tabs = array('entity:+tabname:Title:@mymodule:/mymodule/mypage.php?id=__ID__'); to add new tab
  // $this->tabs = array('entity:-tabname); to remove a tab
  complete_head_from_modules($conf, $langs, $object, $head, $h, 'accounting_account');

  complete_head_from_modules($conf, $langs, $object, $head, $h, 'accounting_account', 'remove');

  return $head;
}

function clean_account($account)
{
  $account = rtrim($account, "0");

  return $account;
}

function length_accountg($account)
{
  global $conf;

  if ($account < 0 || is_empty($account)) return '';

  if (!empty($conf->global->ACCOUNTING_MANAGE_ZERO)) return $account;

  $g = $conf->global->ACCOUNTING_LENGTH_GACCOUNT;
  if (!is_empty($g)) {
    // Clean parameters
    $i = strlen($account);

    if ($i >= 1) {
      while ($i < $g) {
        $account .= '0';

        $i++;
      }

      return $account;
    } else {
      return $account;
    }
  } else {
    return $account;
  }
}

function length_accounta($accounta)
{
  global $conf;

  if ($accounta < 0 || is_empty($accounta)) return '';

  if (!empty($conf->global->ACCOUNTING_MANAGE_ZERO)) return $accounta;

  $a = $conf->global->ACCOUNTING_LENGTH_AACCOUNT;
  if (!is_empty($a)) {
    // Clean parameters
    $i = strlen($accounta);

    if ($i >= 1) {
      while ($i < $a) {
        $accounta .= '0';

        $i++;
      }

      return $accounta;
    } else {
      return $accounta;
    }
  } else {
    return $accounta;
  }
}



function journalHead($nom, $variante, $period, $periodlink, $description, $builddate, $exportlink = '', $moreparam = array(), $calcmode = '', $varlink = '')
{
  global $langs;

  print "\n\n<!-- start banner journal -->\n";

  if (!is_empty($varlink)) $varlink = '?'.$varlink;

  $head = array();
  $h = 0;
  $head[$h][0] = $_SERVER["PHP_SELF"].$varlink;
  $head[$h][1] = $langs->trans("Journalization");
  $head[$h][2] = 'journal';

  print '<form method="POST" action="'.$_SERVER["PHP_SELF"].$varlink.'">';
  print '<input type="hidden" name="token" value="'.newToken().'">';

  print dol_get_fiche_head($head, 'journal');

  foreach ($moreparam as $key => $value)
  {
    print '<input type="hidden" name="'.$key.'" value="'.$value.'">';
  }
  print '<table width="100%" class="border">';

  // Ligne de titre
  print '<tr>';
  print '<td width="110">'.$langs->trans("Name").'</td>';
  print '<td colspan="3">';
  print $nom;
  print '</td>';
  print '</tr>';

  // Calculation mode
  if ($calcmode)
  {
    print '<tr>';
    print '<td width="110">'.$langs->trans("CalculationMode").'</td>';
    if (!$variante) print '<td colspan="3">';
    else print '<td>';
    print $calcmode;
    if ($variante) print '</td><td colspan="2">'.$variante;
    print '</td>';
    print '</tr>';
  }

  // Ligne de la periode d'analyse du rapport
  print '<tr>';
  print '<td>'.$langs->trans("ReportPeriod").'</td>';
  if (!$periodlink) print '<td colspan="3">';
  else print '<td>';
  if ($period) print $period;
  if ($periodlink) print '</td><td colspan="2">'.$periodlink;
  print '</td>';
  print '</tr>';

  // Ligne de description
  print '<tr>';
  print '<td>'.$langs->trans("ReportDescription").'</td>';
  print '<td colspan="3">'.$description.'</td>';
  print '</tr>';

  print '</table>';

  print dol_get_fiche_end();

  print '<div class="center"><input type="submit" class="button" name="submit" value="'.$langs->trans("Refresh").'"></div>';

  print '</form>';

  print "\n<!-- end banner journal -->\n\n";
}

function getDefaultDatesForTransfer()
{
  global $db, $conf;

  // Period by default on transfer (0: previous month | 1: current month | 2: fiscal year)
  $periodbydefaultontransfer = $conf->global->ACCOUNTING_DEFAULT_PERIOD_ON_TRANSFER;
  isset($periodbydefaultontransfer) ? $periodbydefaultontransfer : 0;
  if ($periodbydefaultontransfer == 2) {
    $sql = "SELECT date_start, date_end from ".MAIN_DB_PREFIX."accounting_fiscalyear ";
    $sql .= " where date_start < '".$db->idate(dol_now())."' and date_end > '".$db->idate(dol_now())."'";
    $sql .= $db->plimit(1);
    $res = $db->query($sql);
    if ($res->num_rows > 0) {
      $fiscalYear = $db->fetch_object($res);
      $date_start = strtotime($fiscalYear->date_start);
      $date_end = strtotime($fiscalYear->date_end);
    } else {
      $month_start = ($conf->global->SOCIETE_FISCAL_MONTH_START ? ($conf->global->SOCIETE_FISCAL_MONTH_START) : 1);
      $year_start = dol_print_date(dol_now(), '%Y');
      $year_end = $year_start + 1;
      $month_end = $month_start - 1;
      if ($month_end < 1)
      {
        $month_end = 12;
        $year_end--;
      }
      $date_start = dol_mktime(0, 0, 0, $month_start, 1, $year_start);
      $date_end = dol_get_last_day($year_end, $month_end);
    }
  } elseif ($periodbydefaultontransfer == 1) {
    $year_current = strftime("%Y", dol_now());
    $pastmonth = strftime("%m", dol_now());
    $pastmonthyear = $year_current;
    if ($pastmonth == 0) {
      $pastmonth = 12;
      $pastmonthyear--;
    }
  } else {
    $year_current = strftime("%Y", dol_now());
    $pastmonth = strftime("%m", dol_now()) - 1;
    $pastmonthyear = $year_current;
    if ($pastmonth == 0) {
      $pastmonth = 12;
      $pastmonthyear--;
    }
  }

  return array(
    'date_start' => $date_start,
    'date_end' => $date_end,
    'pastmonthyear' => $pastmonthyear,
    'pastmonth' => $pastmonth
  );
}