index.php

Go to the documentation of this file.

<?php
/* Copyright (C) 2013-2014 Olivier Geffroy    <jeff@jeffinfo.com>
 * Copyright (C) 2013-2014 Florian Henry    <florian.henry@open-concept.pro>
 * Copyright (C) 2013-2020 Alexandre Spangaro <aspangaro@open-dsi.fr>
 * Copyright (C) 2014    Juanjo Menent    <jmenent@2byte.es>
 *
 * 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/>.
 */

require '../../main.inc.php';
require_once DOL_DOCUMENT_ROOT.'/core/lib/date.lib.php';
require_once DOL_DOCUMENT_ROOT.'/core/lib/accounting.lib.php';
require_once DOL_DOCUMENT_ROOT.'/core/lib/company.lib.php';
require_once DOL_DOCUMENT_ROOT.'/fourn/class/fournisseur.facture.class.php';

// Load translation files required by the page
$langs->loadLangs(array("compta", "bills", "other", "main", "accountancy"));

// Security check
if (empty($conf->accounting->enabled)) {
  accessforbidden();
}
if ($user->socid > 0)
  accessforbidden();
if (!$user->rights->accounting->bind->write)
  accessforbidden();


$month_start = ($conf->global->SOCIETE_FISCAL_MONTH_START ? ($conf->global->SOCIETE_FISCAL_MONTH_START) : 1);
if (GETPOST("year", 'int')) $year_start = GETPOST("year", 'int');
else {
  $year_start = dol_print_date(dol_now(), '%Y');
  if (dol_print_date(dol_now(), '%m') < $month_start) $year_start--; // If current month is lower that starting fiscal month, we start last year
}
$year_end = $year_start + 1;
$month_end = $month_start - 1;
if ($month_end < 1)
{
  $month_end = 12;
  $year_end--;
}
$search_date_start = dol_mktime(0, 0, 0, $month_start, 1, $year_start);
$search_date_end = dol_get_last_day($year_end, $month_end);
$year_current = $year_start;

// Validate History
$action = GETPOST('action', 'aZ09');

$chartaccountcode = dol_getIdFromCode($db, $conf->global->CHARTOFACCOUNTS, 'accounting_system', 'rowid', 'pcg_version');


/*
 * Actions
 */

if ($action == 'clean' || $action == 'validatehistory')
{
  // Clean database
  $db->begin();
  $sql1 = "UPDATE ".MAIN_DB_PREFIX."facture_fourn_det as fd";
  $sql1 .= " SET fk_code_ventilation = 0";
  $sql1 .= ' WHERE fd.fk_code_ventilation NOT IN';
  $sql1 .= '  (SELECT accnt.rowid ';
  $sql1 .= '  FROM '.MAIN_DB_PREFIX.'accounting_account as accnt';
  $sql1 .= '  INNER JOIN '.MAIN_DB_PREFIX.'accounting_system as syst';
  $sql1 .= '  ON accnt.fk_pcg_version = syst.pcg_version AND syst.rowid='.$conf->global->CHARTOFACCOUNTS.' AND accnt.entity = '.$conf->entity.')';
  $sql1 .= ' AND fd.fk_facture_fourn IN (SELECT rowid FROM '.MAIN_DB_PREFIX.'facture_fourn WHERE entity = '.$conf->entity.')';
  $sql1 .= ' AND fk_code_ventilation <> 0';
  dol_syslog("htdocs/accountancy/customer/index.php fixaccountancycode", LOG_DEBUG);
  $resql1 = $db->query($sql1);
  if (!$resql1) {
    $error++;
    $db->rollback();
    setEventMessages($db->lasterror(), null, 'errors');
  } else {
    $db->commit();
  }
  // End clean database
}

if ($action == 'validatehistory') {
  $error = 0;
  $db->begin();

  // Now make the binding. Bind automatically only for product with a dedicated account that exists into chart of account, others need a manual bind
  /*if ($db->type == 'pgsql') {
    $sql1 = "UPDATE " . MAIN_DB_PREFIX . "facture_fourn_det";
    $sql1 .= " SET fk_code_ventilation = accnt.rowid";
    $sql1 .= " FROM " . MAIN_DB_PREFIX . "product as p, " . MAIN_DB_PREFIX . "accounting_account as accnt , " . MAIN_DB_PREFIX . "accounting_system as syst";
    $sql1 .= " WHERE " . MAIN_DB_PREFIX . "facture_fourn_det.fk_product = p.rowid  AND accnt.fk_pcg_version = syst.pcg_version AND syst.rowid=" . $conf->global->CHARTOFACCOUNTS.' AND accnt.entity = '.$conf->entity;
    $sql1 .= " AND accnt.active = 1 AND p.accountancy_code_buy=accnt.account_number";
    $sql1 .= " AND " . MAIN_DB_PREFIX . "facture_fourn_det.fk_code_ventilation = 0";
  } else {
    $sql1 = "UPDATE " . MAIN_DB_PREFIX . "facture_fourn_det as fd, " . MAIN_DB_PREFIX . "product as p, " . MAIN_DB_PREFIX . "accounting_account as accnt , " . MAIN_DB_PREFIX . "accounting_system as syst";
    $sql1 .= " SET fk_code_ventilation = accnt.rowid";
    $sql1 .= " WHERE fd.fk_product = p.rowid AND accnt.fk_pcg_version = syst.pcg_version AND syst.rowid=" . $conf->global->CHARTOFACCOUNTS.' AND accnt.entity = '.$conf->entity;
    $sql1 .= " AND accnt.active = 1 AND p.accountancy_code_buy=accnt.account_number";
    $sql1 .= " AND fd.fk_code_ventilation = 0";
  }*/

  // Supplier Invoice Lines (must be same request than into page list.php for manual binding)
  $sql = "SELECT f.rowid as facid, f.ref, f.ref_supplier, f.libelle as invoice_label, f.datef, f.type as ftype,";
  $sql .= " l.rowid, l.fk_product, l.description, l.total_ht, l.fk_code_ventilation, l.product_type as type_l, l.tva_tx as tva_tx_line, l.vat_src_code,";
  $sql .= " p.rowid as product_id, p.ref as product_ref, p.label as product_label, p.fk_product_type as type,";
  $sql .= " p.accountancy_code_buy as code_buy, p.accountancy_code_buy_intra as code_buy_intra, p.accountancy_code_buy_export as code_buy_export, p.tva_tx as tva_tx_prod,";
  $sql .= " aa.rowid as aarowid, aa2.rowid as aarowid_intra, aa3.rowid as aarowid_export,";
  $sql .= " co.code as country_code, co.label as country_label,";
  $sql .= " s.tva_intra";
  $sql .= " FROM ".MAIN_DB_PREFIX."facture_fourn as f";
  $sql .= " INNER JOIN ".MAIN_DB_PREFIX."societe as s ON s.rowid = f.fk_soc";
  $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."c_country as co ON co.rowid = s.fk_pays ";
  $sql .= " INNER JOIN ".MAIN_DB_PREFIX."facture_fourn_det as l ON f.rowid = l.fk_facture_fourn";
  $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."product as p ON p.rowid = l.fk_product";
  $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."accounting_account as aa  ON p.accountancy_code_buy = aa.account_number         AND aa.active = 1  AND aa.fk_pcg_version = '".$db->escape($chartaccountcode)."' AND aa.entity = ".$conf->entity;
  $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."accounting_account as aa2 ON p.accountancy_code_buy_intra = aa2.account_number  AND aa2.active = 1 AND aa2.fk_pcg_version = '".$db->escape($chartaccountcode)."' AND aa2.entity = ".$conf->entity;
  $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."accounting_account as aa3 ON p.accountancy_code_buy_export = aa3.account_number AND aa3.active = 1 AND aa3.fk_pcg_version = '".$db->escape($chartaccountcode)."' AND aa3.entity = ".$conf->entity;
  $sql .= " WHERE f.fk_statut > 0 AND l.fk_code_ventilation <= 0";
  $sql .= " AND l.product_type <= 2";

  dol_syslog('htdocs/accountancy/supplier/index.php');

  $result = $db->query($sql);
  if (!$result) {
    $error++;
    setEventMessages($db->lasterror(), null, 'errors');
  } else {
    $num_lines = $db->num_rows($result);

    $isBuyerInEEC = isInEEC($mysoc);

    $i = 0;
    while ($i < min($num_lines, 10000)) { // No more than 10000 at once
      $objp = $db->fetch_object($result);

      $isSellerInEEC = isInEEC($objp);

      // Search suggested account for product/service
      $suggestedaccountingaccountfor = '';
      if (($objp->country_code == $mysoc->country_code) || empty($objp->country_code)) {  // If buyer in same country than seller (if not defined, we assume it is same country)
        $objp->code_buy_p = $objp->code_buy;
        $objp->aarowid_suggest = $objp->aarowid;
        $suggestedaccountingaccountfor = '';
      } else {
        if ($isSellerInEEC && $isBuyerInEEC) {          // European intravat sale
          $objp->code_buy_p = $objp->code_buy_intra;
          $objp->aarowid_suggest = $objp->aarowid_intra;
          $suggestedaccountingaccountfor = 'eec';
        } else {                                        // Foreign sale
          $objp->code_buy_p = $objp->code_buy_export;
          $objp->aarowid_suggest = $objp->aarowid_export;
          $suggestedaccountingaccountfor = 'export';
        }
      }

      if ($objp->aarowid_suggest > 0)
      {
        $sqlupdate = "UPDATE ".MAIN_DB_PREFIX."facture_fourn_det";
        $sqlupdate .= " SET fk_code_ventilation = ".$objp->aarowid_suggest;
        $sqlupdate .= " WHERE fk_code_ventilation <= 0 AND product_type <= 2 AND rowid = ".$objp->rowid;

        $resqlupdate = $db->query($sqlupdate);
        if (!$resqlupdate)
        {
          $error++;
          setEventMessages($db->lasterror(), null, 'errors');
          break;
        }
      }

      $i++;
    }
  }

  if ($error)
  {
    $db->rollback();
  } else {
    $db->commit();
    setEventMessages($langs->trans('AutomaticBindingDone'), null, 'mesgs');
  }
}


/*
 * View
 */

llxHeader('', $langs->trans("SuppliersVentilation"));

$textprevyear = '<a href="'.$_SERVER["PHP_SELF"].'?year='.($year_current - 1).'">'.img_previous().'</a>';
$textnextyear = '&nbsp;<a href="'.$_SERVER["PHP_SELF"].'?year='.($year_current + 1).'">'.img_next().'</a>';

print load_fiche_titre($langs->trans("SuppliersVentilation")." ".$textprevyear."&nbsp;".$langs->trans("Year")."&nbsp;".$year_start."&nbsp;".$textnextyear, '', 'title_accountancy');

print '<span class="opacitymedium">'.$langs->trans("DescVentilSupplier").'</span><br>';
print '<span class="opacitymedium hideonsmartphone">'.$langs->trans("DescVentilMore", $langs->transnoentitiesnoconv("ValidateHistory"), $langs->transnoentitiesnoconv("ToBind")).'<br>';
print '</span><br>';

$y = $year_current;

$buttonbind = '<a class="butAction" href="'.$_SERVER['PHP_SELF'].'?year='.$year_current.'&action=validatehistory">'.$langs->trans("ValidateHistory").'</a>';


print_barre_liste($langs->trans("OverviewOfAmountOfLinesNotBound"), '', '', '', '', '', '', -1, '', '', 0, $buttonbind, '', 0, 1, 1);
//print load_fiche_titre($langs->trans("OverviewOfAmountOfLinesNotBound"), $buttonbind, '');

print '<div class="div-table-responsive-no-min">';
print '<table class="noborder centpercent">';
print '<tr class="liste_titre"><td width="200">'.$langs->trans("Account").'</td>';
print '<td width="200" class="left">'.$langs->trans("Label").'</td>';
for ($i = 1; $i <= 12; $i++) {
  $j = $i + ($conf->global->SOCIETE_FISCAL_MONTH_START ? $conf->global->SOCIETE_FISCAL_MONTH_START : 1) - 1;
  if ($j > 12) $j -= 12;
  print '<td width="60" class="right">'.$langs->trans('MonthShort'.str_pad($j, 2, '0', STR_PAD_LEFT)).'</td>';
}
print '<td width="60" class="right"><b>'.$langs->trans("Total").'</b></td></tr>';

$sql = "SELECT ".$db->ifsql('aa.account_number IS NULL', "'tobind'", 'aa.account_number')." AS codecomptable,";
$sql .= "  ".$db->ifsql('aa.label IS NULL', "'tobind'", 'aa.label')." AS intitule,";
for ($i = 1; $i <= 12; $i++) {
  $j = $i + ($conf->global->SOCIETE_FISCAL_MONTH_START ? $conf->global->SOCIETE_FISCAL_MONTH_START : 1) - 1;
  if ($j > 12) $j -= 12;
  $sql .= "  SUM(".$db->ifsql('MONTH(ff.datef)='.$j, 'ffd.total_ht', '0').") AS month".str_pad($j, 2, '0', STR_PAD_LEFT).",";
}
$sql .= "  SUM(ffd.total_ht) as total";
$sql .= " FROM ".MAIN_DB_PREFIX."facture_fourn_det as ffd";
$sql .= "  LEFT JOIN ".MAIN_DB_PREFIX."facture_fourn as ff ON ff.rowid = ffd.fk_facture_fourn";
$sql .= "  LEFT JOIN ".MAIN_DB_PREFIX."accounting_account as aa ON aa.rowid = ffd.fk_code_ventilation";
$sql .= " WHERE ff.datef >= '".$db->idate($search_date_start)."'";
$sql .= "  AND ff.datef <= '".$db->idate($search_date_end)."'";
// Define begin binding date
if (!empty($conf->global->ACCOUNTING_DATE_START_BINDING)) {
  $sql .= " AND ff.datef >= '".$db->idate($conf->global->ACCOUNTING_DATE_START_BINDING)."'";
}
$sql .= "  AND ff.fk_statut > 0";
$sql .= "  AND ffd.product_type <= 2";
$sql .= " AND ff.entity IN (".getEntity('facture_fourn', 0).")"; // We don't share object for accountancy
$sql .= " AND aa.account_number IS NULL";
$sql .= " GROUP BY ffd.fk_code_ventilation,aa.account_number,aa.label";

dol_syslog('htdocs/accountancy/supplier/index.php');
$resql = $db->query($sql);
if ($resql) {
  $num = $db->num_rows($resql);

  while ($row = $db->fetch_row($resql)) {
    print '<tr class="oddeven"><td>';
    if ($row[0] == 'tobind')
    {
      print $langs->trans("Unknown");
    } else print length_accountg($row[0]);
    print '</td>';
    print '<td class="left">';
    if ($row[0] == 'tobind')
    {
      print $langs->trans("UseMenuToSetBindindManualy", DOL_URL_ROOT.'/accountancy/supplier/list.php?search_year='.$y, $langs->transnoentitiesnoconv("ToBind"));
    } else print $row[1];
    print '</td>';
    for ($i = 2; $i <= 12; $i++) {
      print '<td class="nowrap right">'.price($row[$i]).'</td>';
    }
    print '<td class="nowrap right">'.price($row[13]).'</td>';
    print '<td class="nowrap right"><b>'.price($row[14]).'</b></td>';
    print '</tr>';
  }
  $db->free($resql);
} else {
  print $db->lasterror(); // Show last sql error
}
print "</table>\n";
print '</div>';


print '<br>';


print_barre_liste($langs->trans("OverviewOfAmountOfLinesBound"), '', '', '', '', '', '', -1, '', '', 0, '', '', 0, 1, 1);
//print load_fiche_titre($langs->trans("OverviewOfAmountOfLinesBound"), '', '');

print '<div class="div-table-responsive-no-min">';
print '<table class="noborder centpercent">';
print '<tr class="liste_titre"><td width="200">'.$langs->trans("Account").'</td>';
print '<td width="200" class="left">'.$langs->trans("Label").'</td>';
for ($i = 1; $i <= 12; $i++) {
  $j = $i + ($conf->global->SOCIETE_FISCAL_MONTH_START ? $conf->global->SOCIETE_FISCAL_MONTH_START : 1) - 1;
  if ($j > 12) $j -= 12;
  print '<td width="60" class="right">'.$langs->trans('MonthShort'.str_pad($j, 2, '0', STR_PAD_LEFT)).'</td>';
}
print '<td width="60" class="right"><b>'.$langs->trans("Total").'</b></td></tr>';

$sql = "SELECT ".$db->ifsql('aa.account_number IS NULL', "'tobind'", 'aa.account_number')." AS codecomptable,";
$sql .= "  ".$db->ifsql('aa.label IS NULL', "'tobind'", 'aa.label')." AS intitule,";
for ($i = 1; $i <= 12; $i++) {
  $j = $i + ($conf->global->SOCIETE_FISCAL_MONTH_START ? $conf->global->SOCIETE_FISCAL_MONTH_START : 1) - 1;
  if ($j > 12) $j -= 12;
  $sql .= "  SUM(".$db->ifsql('MONTH(ff.datef)='.$j, 'ffd.total_ht', '0').") AS month".str_pad($j, 2, '0', STR_PAD_LEFT).",";
}
$sql .= "  SUM(ffd.total_ht) as total";
$sql .= " FROM ".MAIN_DB_PREFIX."facture_fourn_det as ffd";
$sql .= "  LEFT JOIN ".MAIN_DB_PREFIX."facture_fourn as ff ON ff.rowid = ffd.fk_facture_fourn";
$sql .= "  LEFT JOIN ".MAIN_DB_PREFIX."accounting_account as aa ON aa.rowid = ffd.fk_code_ventilation";
$sql .= " WHERE ff.datef >= '".$db->idate($search_date_start)."'";
$sql .= "  AND ff.datef <= '".$db->idate($search_date_end)."'";
// Define begin binding date
if (!empty($conf->global->ACCOUNTING_DATE_START_BINDING)) {
  $sql .= " AND ff.datef >= '".$db->idate($conf->global->ACCOUNTING_DATE_START_BINDING)."'";
}
$sql .= "  AND ff.fk_statut > 0";
$sql .= "  AND ffd.product_type <= 2";
$sql .= " AND ff.entity IN (".getEntity('facture_fourn', 0).")"; // We don't share object for accountancy
$sql .= " AND aa.account_number IS NOT NULL";
$sql .= " GROUP BY ffd.fk_code_ventilation,aa.account_number,aa.label";

dol_syslog('htdocs/accountancy/supplier/index.php');
$resql = $db->query($sql);
if ($resql) {
  $num = $db->num_rows($resql);

  while ($row = $db->fetch_row($resql)) {
    print '<tr class="oddeven"><td>';
    if ($row[0] == 'tobind')
    {
      print $langs->trans("Unknown");
    } else print length_accountg($row[0]);
    print '</td>';
    print '<td class="left">';
    if ($row[0] == 'tobind')
    {
      print $langs->trans("UseMenuToSetBindindManualy", DOL_URL_ROOT.'/accountancy/supplier/list.php?search_year='.$y, $langs->transnoentitiesnoconv("ToBind"));
    } else print $row[1];
    print '</td>';
    for ($i = 2; $i <= 12; $i++) {
      print '<td class="nowrap right">'.price($row[$i]).'</td>';
    }
    print '<td class="nowrap right">'.price($row[13]).'</td>';
    print '<td class="nowrap right"><b>'.price($row[14]).'</b></td>';
    print '</tr>';
  }
  $db->free($resql);
} else {
  print $db->lasterror(); // Show last sql error
}
print "</table>\n";
print '</div>';



if ($conf->global->MAIN_FEATURES_LEVEL > 0) // This part of code looks strange. Why showing a report that should rely on result of this step ?
{
  print '<br>';
  print '<br>';

  print_barre_liste($langs->trans("OtherInfo"), '', '', '', '', '', '', -1, '', '', 0, '', '', 0, 1, 1);
  //print load_fiche_titre($langs->trans("OtherInfo"), '', '');

  print '<div class="div-table-responsive-no-min">';
  print '<table class="noborder centpercent">';
  print '<tr class="liste_titre"><td width="400" class="left">'.$langs->trans("Total").'</td>';
  for ($i = 1; $i <= 12; $i++) {
    $j = $i + ($conf->global->SOCIETE_FISCAL_MONTH_START ? $conf->global->SOCIETE_FISCAL_MONTH_START : 1) - 1;
    if ($j > 12) $j -= 12;
    print '<td width="60" class="right">'.$langs->trans('MonthShort'.str_pad($j, 2, '0', STR_PAD_LEFT)).'</td>';
  }
  print '<td width="60" class="right"><b>'.$langs->trans("Total").'</b></td></tr>';

  $sql = "SELECT '".$db->escape($langs->trans("CAHTF"))."' AS label,";
  for ($i = 1; $i <= 12; $i++) {
    $j = $i + ($conf->global->SOCIETE_FISCAL_MONTH_START ? $conf->global->SOCIETE_FISCAL_MONTH_START : 1) - 1;
    if ($j > 12) $j -= 12;
    $sql .= "  SUM(".$db->ifsql('MONTH(ff.datef)='.$j, 'ffd.total_ht', '0').") AS month".str_pad($j, 2, '0', STR_PAD_LEFT).",";
  }
  $sql .= "  SUM(ffd.total_ht) as total";
  $sql .= " FROM ".MAIN_DB_PREFIX."facture_fourn_det as ffd";
  $sql .= "  LEFT JOIN ".MAIN_DB_PREFIX."facture_fourn as ff ON ff.rowid = ffd.fk_facture_fourn";
  $sql .= " WHERE ff.datef >= '".$db->idate($search_date_start)."'";
  $sql .= "  AND ff.datef <= '".$db->idate($search_date_end)."'";
  // Define begin binding date
  if (!empty($conf->global->ACCOUNTING_DATE_START_BINDING)) {
    $sql .= " AND ff.datef >= '".$db->idate($conf->global->ACCOUNTING_DATE_START_BINDING)."'";
  }
  $sql .= "  AND ff.fk_statut > 0";
  $sql .= "  AND ffd.product_type <= 2";
  $sql .= " AND ff.entity IN (".getEntity('facture_fourn', 0).")"; // We don't share object for accountancy

  dol_syslog('htdocs/accountancy/supplier/index.php');
  $resql = $db->query($sql);
  if ($resql) {
    $num = $db->num_rows($resql);

    while ($row = $db->fetch_row($resql)) {
      print '<tr><td>'.$row[0].'</td>';
      for ($i = 1; $i <= 12; $i++) {
        print '<td class="nowrap right">'.price($row[$i]).'</td>';
      }
      print '<td class="nowrap right"><b>'.price($row[13]).'</b></td>';
      print '</tr>';
    }
    $db->free($resql);
  } else {
    print $db->lasterror(); // Show last sql error
  }
  print "</table>\n";
  print '</div>';
}

// End of page
llxFooter();
$db->close();