blockedlog.lib.php

Go to the documentation of this file.

<?php
/* Copyright (C) 2017 ATM Consulting <contact@atm-consulting.fr>
 * Copyright (C) 2024   MDW             <mdeweerd@users.noreply.github.com>
 *
 * 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 blockedlogadmin_prepare_head($withtabsetup)
{
  global $db, $langs, $conf;
 
  $langs->load("blockedlog");
 
  $h = 0;
  $head = array();
 
  if ($withtabsetup) {
    $head[$h][0] = DOL_URL_ROOT."/blockedlog/admin/blockedlog.php?withtab=".$withtabsetup;
    $head[$h][1] = $langs->trans("Setup");
    $head[$h][2] = 'blockedlog';
    $h++;
  }
 
  $head[$h][0] = DOL_URL_ROOT."/blockedlog/admin/blockedlog_list.php?withtab=".$withtabsetup;
  $head[$h][1] = $langs->trans("BrowseBlockedLog");
 
  require_once DOL_DOCUMENT_ROOT.'/blockedlog/class/blockedlog.class.php';
  $b = new BlockedLog($db);
  if ($b->alreadyUsed()) {
    $head[$h][1] .= (!getDolGlobalString('MAIN_OPTIMIZEFORTEXTBROWSER') ? '<span class="badge marginleftonlyshort">...</span>' : '');
  }
  $head[$h][2] = 'fingerprints';
  $h++;
 
 
  $head[$h][0] = DOL_URL_ROOT."/blockedlog/admin/blockedlog_archives.php?withtab=".$withtabsetup;
  $head[$h][1] = $langs->trans("Archives");
  // TODO Add number of archive files in badge
  $head[$h][2] = 'archives';
  $h++;
 
 
  $object = new stdClass();
 
  // 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, 'blockedlog');
 
  complete_head_from_modules($conf, $langs, $object, $head, $h, 'blockedlog', 'remove');
 
  return $head;
}
 
 
function isRegistrationDataSaved()
{
  global $mysoc;
 
  $companyname = getDolGlobalString('BLOCKEDLOG_REGISTRATION_NAME', $mysoc->name);
  $companyemail = getDolGlobalString('BLOCKEDLOG_REGISTRATION_EMAIL', $mysoc->email);
  $companycountrycode = getDolGlobalString('BLOCKEDLOG_REGISTRATION_COUNTRY_CODE', $mysoc->country_code);
  $companyidprof1 = getDolGlobalString('BLOCKEDLOG_REGISTRATION_IDPROF1', $mysoc->idprof1);
  //$companytel = getDolGlobalString('BLOCKEDLOG_REGISTRATION_TEL', $mysoc->phone);
 
  if (empty($companyname) || empty($companycountrycode) || empty($companyidprof1) || empty($companyemail)) {
    return false;
  }
 
  $providerset = getDolGlobalString('MAIN_INFO_ITPROVIDER_NAME'); // Can be 'myself'
 
  if (empty($providerset)) {
    return false;
  }
 
  return true;
}
 
 
function getHashUniqueIdOfRegistration()
{
  global $conf;
 
  return dol_hash('dolibarr'.$conf->file->instance_unique_id, 'sha256', 1);
}
 
 
function isALNEQualifiedVersion($ignoredev = 0, $ignoremodule = 0)
{
  global $mysoc;
 
  // For Debug help: Constant set by developer to force all LNE restrictions even if country is not France so we can test them on any dev instance.
  // Note that you can force, with this option, the enabling of the LNE restrictions, but there is no way to force the disabling of the LNE restriction.
  if (defined('CERTIF_LNE') && (int) constant('CERTIF_LNE') === 2) {
    return true;
  }
 
  if (!$ignoredev && preg_match('/\-/', DOL_VERSION)) { // This is not a stable version
    return false;
  }
  if ($mysoc->country_code != 'FR') {
    return false;
  }
  if (!defined('CERTIF_LNE') || (int) constant('CERTIF_LNE') === 0) {
    return false;
  }
  if (!$ignoremodule && !isModEnabled('blockedlog')) {
    return false;
  }
 
  return true;  // all conditions are ok to become a LNE certified version
}
 
 
function isALNERunningVersion($blockedlogtestalreadydone = 0)
{
  // For Debug help: Constant set by developer to force all LNE restrictions
  // even if country is not France so we can test them on any dev instance.
  // Note that you can force, with this option, the enabling of the LNE restrictions,
  // but there is no way to force the disabling of the LNE restriction.
  if (defined('CERTIF_LNE') && (int) constant('CERTIF_LNE') === 2
    && isModEnabled('blockedlog') && ($blockedlogtestalreadydone || isBlockedLogUsed())) {
    return true;
  }
  if (defined('CERTIF_LNE') && (int) constant('CERTIF_LNE') === 1
    && isModEnabled('blockedlog') && ($blockedlogtestalreadydone || isBlockedLogUsed())) {
    return true;
  }
 
  return false;
}
 
function isBlockedLogUsed($ignoresystem = 0)
{
  global $conf, $db;
 
  $result = true; // by default restrictions are on, so we can't disable them
 
  // Note: if module on, we suppose it is used, if not, we check in case of it was disabled.
  if (!isModEnabled('blockedlog')) {
    // Test the cache key
    if (array_key_exists('isblockedlogused', $conf->cache)) {
      return $conf->cache['isblockedlogused'.$ignoresystem];
    }
 
    $sql = "SELECT rowid FROM ".MAIN_DB_PREFIX."blockedlog";
    $sql .= " WHERE entity = ".((int) $conf->entity); // Sharing entity in blocked log is disallowed
    if ($ignoresystem) {
      $sql .= " AND action NOT IN ('MODULE_SET', 'MODULE_RESET')";
    }
    $sql .= $db->plimit(1);
 
    $resql = $db->query($sql);
    if ($resql !== false) {
      $obj = $db->fetch_object($resql);
      if (!$obj) {
        $result = false;
      }
    } else {
      dol_print_error($db);
    }
 
    $conf->cache['isblockedlogused'.$ignoresystem] = $result;
  }
 
  dol_syslog("isBlockedLogUsed: ignoresystem=".$ignoresystem." returns ".(string) $result);
 
  return $result;
}
 
 
function pdfCertifMentionblockedLog(&$pdf, $outputlangs, $seller, $default_font_size, &$posy, $pdftemplate)
{
  $result = 0;
 
  if (in_array($seller->country_code, array('FR')) && isALNEQualifiedVersion()) { // If necessary, we could replace with "if isALNERunningVersion()"
    $outputlangs->load("blockedlog");
    $blockedlog_mention = $outputlangs->transnoentitiesnoconv("InvoiceGeneratedWithLNECertifiedPOSSystem");
    if ($blockedlog_mention) {
      $pdf->SetFont('', '', $default_font_size - 2);
      $pdf->SetXY($pdftemplate->marge_gauche, $posy);
      $pdf->MultiCell(100, 3, $blockedlog_mention, 0, 'L', false);
      $posy = $pdf->GetY();
      $result = 1;
    }
  }
 
  return $result;
}
 
function sumAmountsForUnalterableEvent($block, &$refinvoicefound, &$totalhtamount, &$totalvatamount, &$totalamount, &$total_ht, &$total_vat, &$total_ttc)
{
  // Init to avoid warnings if not initialized yet
  if (!isset($totalamount[$block->action][$block->module_source])) {
    $totalhtamount[$block->action][$block->module_source] = 0;
    $totalvatamount[$block->action][$block->module_source] = 0;
    $totalamount[$block->action][$block->module_source] = 0;
  }
 
  if ($block->action == 'BILL_VALIDATE') {
    $total_ht = $block->object_data->total_ht;
    $total_vat = $block->object_data->total_tva;
    $total_ttc = $block->object_data->total_ttc;
 
    // We add total for the invoice if "invoice validate event" not yet met.
    // If we already met the event for this object, we keep only first one but this should not happen because edition of validated invoice is not allowed on secured versions.
    if (empty($refinvoicefound[$block->ref_object])) {
      $totalhtamount[$block->action][$block->module_source] += $total_ht;
      $totalvatamount[$block->action][$block->module_source] += $total_vat;
      $totalamount[$block->action][$block->module_source] += $total_ttc;
    }
    $refinvoicefound[$block->ref_object] = 1;
  } elseif ($block->action == 'PAYMENT_CUSTOMER_CREATE') {
    $total_ht = $block->object_data->amount;
    $total_vat = 0;
    $total_ttc = $block->object_data->amount;
 
    $totalhtamount[$block->action][$block->module_source] += $total_ht;
    $totalvatamount[$block->action][$block->module_source] += $total_vat;
    $totalamount[$block->action][$block->module_source] += $total_ttc;
  } else {
    $total_ttc = $block->amounts;
  }
 
  return 1;
}