block-info.php

Go to the documentation of this file.

<?php
/* Copyright (C) 2017 Laurent Destailleur  <eldy@users.sourceforge.net>
 * Copyright (C) 2017 ATM Consulting       <contact@atm-consulting.fr>
 * Copyright (C) 2024-2025  Frédéric France         <frederic.france@free.fr>
 * Copyright (C) 2024-2026  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/>.
 */
 
// This script is called with a POST method.
// Directory to scan (full path) is inside POST['dir'].
 
if (!defined('NOTOKENRENEWAL')) {
  define('NOTOKENRENEWAL', 1); // Disables token renewal
}
if (!defined('NOREQUIREMENU')) {
  define('NOREQUIREMENU', '1');
}
if (!defined('NOREQUIREHTML')) {
  define('NOREQUIREHTML', '1');
}
 
 
// Load Dolibarr environment
require '../../main.inc.php';
require_once DOL_DOCUMENT_ROOT.'/blockedlog/class/blockedlog.class.php';
 
 
$id = GETPOSTINT('id');
$block = new BlockedLog($db);
 
if ((!$user->admin && !$user->hasRight('blockedlog', 'read')) || empty($conf->blockedlog->enabled)) {
  accessforbidden();
}
 
$langs->loadLangs(array("admin", "bills", "blockedlog", "cashdesk", "companies", "compta", "mails", "members", "products"));
 
 
/*
 * View
 */
 
top_httphead();
 
print '<div id="pop-info"><table height="80%" class="border centpercent"><thead>';
print '<th width="30%" class="left">'.$langs->trans('Field').'</th><th class="left">'.$langs->trans('Label').'</th><th class="left">'.$langs->trans('Value').'</th></thead>';
print '<tbody>';
 
if ($block->fetch($id) > 0) {
  $objtoshow = $block->object_data;
 
  print formatObject($objtoshow, '', $block->element);
} else {
  print 'Error, failed to get unalterable log with id '.$id;
}
 
print '</tbody>';
print '</table></div>';
 
 
$db->close();
 
 
function formatObject($objtoshow, $prefix, $parentelement = '')
{
  global $db, $langs, $mysoc;
 
  $s = '';
 
  $newobjtoshow = $objtoshow;
 
  $tmpobject = null;
  $arrayoffields = array();
  if ($prefix == 'mycompany' || $prefix == 'thirdparty') {
    include_once DOL_DOCUMENT_ROOT.'/societe/class/societe.class.php';
    $tmpobject = new Societe($db);
    $arrayoffields = $tmpobject->fields;
  } elseif ($prefix == 'invoice') {
    include_once DOL_DOCUMENT_ROOT.'/compta/facture/class/facture.class.php';
    $tmpobject = new Facture($db);
    $arrayoffields = $tmpobject->fields;
  } elseif ($prefix == 'invoiceline') {
    include_once DOL_DOCUMENT_ROOT.'/compta/facture/class/factureligne.class.php';
    $tmpobject = new FactureLigne($db);
    $arrayoffields = $tmpobject->fields;
  }
 
  // Convert the key stored into blocked log into the key used into ->fields
  $convertkey = array(
    'name' => 'nom',
    'country_code' => 'fk_pays',
    'typent_code' => 'fk_typent',
    'forme_juridique_code' => 'fk_forme_juridique',
  );
 
  $otherlabels = array(
    'link' => 'Link',
    'module_source' => 'POSModule',
    'pos_source' => "POSTerminal",
    'posmodule' => 'POSModule',
    'posnumber' => 'POSTerminal',
    'pos_print_counter' => "NumberOfPrintsIfDocValidated",
    'email_sent_counter' => "NumberOfEmailsSent",
    'managers' => 'Managers',
    'type_code' => 'PaymentMode',
    'date_creation' => 'DateCreation',
    'datec' => 'DateCreation',
    'dateh' => 'DateSubscription',
    'datef' => 'DateEndSubscription',
    'fk_adherent' => 'MemberId',
    'amount' => 'Amount',
    'id' => 'ID',
    'ref' => 'Ref',
    'payment_num' => '',      // a label
    'element' => 'TypeOfEvent',
    'entity' => 'Entity',
    'label' => 'Label',
    'date' => 'Date',
    'total_ht' => 'TotalHT',
    'total_ttc' => 'TotalTTC',
    'total_tva' => 'TotalVAT',
    'total_localtax1' => 'TotalTax2',
    'total_localtax2' => 'TotalTax3',
    'multicurrency_total_ht' => 'TotalHTShortCurrency',
    'multicurrency_total_ttc' => 'TotalTTCShortCurrency',
    'multicurrency_total_tva' => 'TotalVATShortCurrency',
    'tva_tx' => 'VATRate',
    'localtax1_tx' => 'Localtax1Rate',
    'localtax2_tx' => 'Localtax2Rate',
    'vat_src_code' => 'VATCode',
    'multicurrency_code' => 'Currency',
    'qty' => 'Quantity',
    'remise_percent' => $langs->transnoentitiesnoconv('Discount').' (%)',
    'nom' => 'Name',
    'name' => 'Name',
    'email' => 'Email',
    'address' => 'Address',
    'town' => 'Town',
    'zip' => 'Zip',
    'state_code' => 'State',
    'fk_pays' => 'Country',
    'fk_typent' => 'CompanyType',
    'revenuestamp' => 'RevenueStamp',
    'code_client' => 'CustomerCode',
    'code_fournisseur' => 'SupplierCode',
    'capital' => 'Capital',
    'fullname' => 'Fullname',
    'period' => 'Period',
    'tva_assuj' => 'VATIsUsed',
    'localtax1_assuj' => $langs->transcountry('LocalTax1IsUsed', $mysoc->country_code),
    'localtax2_assuj' => $langs->transcountry('LocalTax2IsUsed', $mysoc->country_code),
    'localtax1_value' => 'Localtax1Rate',
    'localtax2_value' => 'Localtax2Rate',
    'subprice' => 'UnitPrice',
    'product_type' => 'ProductType',
    'product_label' => 'ProductLabel',
    'type' => 'InvoiceType',
    'info_bits' => 'TVA NPR or NOT',
    'special_code' => 'Special line (WEEE line, option, id of module...)',
    'status' => 'Status',
    'cash' => 'PaymentTypeLIQ',
    'cash_declared' => $langs->transnoentitiesnoconv('PaymentTypeLIQ').' - '.$langs->transnoentitiesnoconv("AmuntCountedByUserShort"),
    'cash_lifetime' => $langs->transnoentitiesnoconv('LifetimeAmount', $langs->transnoentitiesnoconv('PaymentTypeLIQ')),
    'card' => 'PaymentTypeCB',
    'card_declared' => $langs->transnoentitiesnoconv('PaymentTypeCB').' - '.$langs->transnoentitiesnoconv("AmuntCountedByUserShort"),
    'card_lifetime' => $langs->transnoentitiesnoconv('LifetimeAmount', $langs->transnoentitiesnoconv('PaymentTypeCB')),
    'cheque' => 'PaymentTypeCHQ',
    'cheque_declared' => $langs->transnoentitiesnoconv('PaymentTypeCHQ').' - '.$langs->transnoentitiesnoconv("AmuntCountedByUserShort"),
    'cheque_lifetime' => $langs->transnoentitiesnoconv('LifetimeAmount', $langs->transnoentitiesnoconv('PaymentTypeCHQ')),
    'lifetime_start' => 'LifetimeStatDate',
    'total_billed' => 'Turnover',
    'total_collected' => 'TurnoverCollected',
    'totallifetime_billed' => $langs->transnoentitiesnoconv('Turnover').' - '.$langs->transnoentitiesnoconv('LifetimeAmountShort'),
    'totallifetime_collected' => $langs->transnoentitiesnoconv('TurnoverCollected').' - '.$langs->transnoentitiesnoconv('LifetimeAmountShort'),
    'email_from' => 'MailFrom',
    'email_to' => 'MailTo',
    'email_msgid' => 'EmailMsgID',
    'year_close' => 'Year',
    'month_close' => 'Month',
    'day_close' => 'Day',
    'hour_close' => 'Hour',
    'min_close' => 'Minutes',
    'sec_close' => 'Second',
  );
 
  if (is_object($newobjtoshow) || is_array($newobjtoshow)) {
    //var_dump($newobjtoshow);
    foreach ($newobjtoshow as $key => $val) {
      if (!is_object($val) && !is_array($val)) {
        // $val can be '__PHP_Incomplete_Class', the is_object return false
        $s .= '<tr>';
 
        // Field code
        $s .= '<td>';
        $types = $arrayoffields[$key]['type'] ?? '';
        $labels = (array_key_exists($key, $convertkey) ? ($arrayoffields[$convertkey[$key]]['label'] ?? '') : '');
        $s .= '<!-- '.$key.' '.$types.' '.$labels.' -->';
        $s .= ($prefix ? $prefix.' > ' : '');
        $s .= $key;
        $s .= '</td>';
 
        // Label
        $s .= '<td>';
        $label = '';
        if (isset($arrayoffields[$key]['label'])) {
          $label = $langs->trans($tmpobject->fields[$key]['label']);
        } elseif (!empty($convertkey[$key]) && isset($arrayoffields[$convertkey[$key]]['label'])) {
          $label = $langs->trans($tmpobject->fields[$convertkey[$key]]['label']);
        } elseif ($prefix == 'mycompany' || $prefix == 'thirdparty') {
          $reg = array();
          if (preg_match('/^idprof(\d+)$/', $key, $reg)) {
            $countrycode = property_exists($newobjtoshow, 'country_code') ? ($newobjtoshow->country_code ?? '') : '';
            $label = $langs->trans("ProfId".$reg[1].$countrycode);
          }
        }
        if (empty($label) && !empty($otherlabels[$key])) {
          if (preg_match('/^invoiceline/', $prefix) && $key === 'ref') {
            $label = $langs->trans("ProductRef");
          } else {
            $label = $langs->trans($otherlabels[$key]);
          }
        }
        if (empty($label) && array_key_exists($key, $convertkey) && array_key_exists((string) $convertkey[$key], $otherlabels)) {
          $label = $langs->trans((string) $otherlabels[(string) $convertkey[$key]]);
        }
        if (empty($label)) {
          $label = array_key_exists($key, $convertkey) ? $convertkey[$key] : '';
        }
        if (!empty($label)) {
          $s .= '<span class="opacitymedium">'.$label.'</span>';
        }
 
        // Value
        $s .= '<td>';
        if (in_array($key, array('type')) && $parentelement == 'facture') {
          //var_dump($tmpobject);
          include_once DOL_DOCUMENT_ROOT.'/compta/facture/class/facture.class.php';
          $tmpinvoice = new Facture($db);
          $tmpinvoice->type = $val;
          $s .= $tmpinvoice->getLibType(0);
        } elseif (in_array($key, array('date', 'datef'))) {
          $s .= dol_print_date($val, 'day');
        } elseif (in_array($key, array('dateh', 'datec', 'date_creation', 'datem', 'tms', 'date_valid', 'datep', 'lifetime_start'))) {
          $s .= dol_print_date($val, 'dayhour');
        } elseif (in_array($key, array('tva_assuj', 'localtax1_assuj', 'localtax2_assuj'))) {
          $s .= yn($val);
        } elseif (in_array($key, array('product_type'))) {
          $s .= $val ? 'Product' : 'Service';
        } elseif (in_array($key, array(
          'qty', 'subprice',
          'tva_tx', 'localtax1_tx', 'localtax2_tx', 'total_ht', 'total_ttc', 'total_tva', 'total_localtax1', 'total_localtax2', 'localtax2', 'localtax2', 'revenuestamp',
          'multicurrency_total_ht', 'multicurrency_total_tva', 'multicurrency_total_ttc', 'multicurrency_subprice',
          'opening',
          'cash', 'cheque', 'card',
          'amount',
          'cash_declared', 'cheque_declared', 'card_declared', 'cash_lifetime', 'cheque_lifetime', 'card_lifetime'
        )) || (isset($arrayoffields[$key]['type']) && in_array($arrayoffields[$key]['type'], array('price')))) {
          $s .= '<span class="amount">'.price($val, 0, $langs, 1, 0, -2).'</span>';
        } elseif (in_array($key, array('total_billed', 'total_collected', 'totallifetime_billed', 'totallifetime_collected'))) {
          $s .= '<span class="amount">'.$val.'</span>';
        } else {
          $s .= $val;
        }
        $s .= '</td></tr>';
      } elseif (is_array($val)) {
        $s .= formatObject($val, ($prefix ? $prefix.' > ' : '').$key, $parentelement);
      } elseif (is_object($val)) {
        $s .= formatObject($val, ($prefix ? $prefix.' > ' : '').$key, $parentelement);
      }
    }
  }
 
  return $s;
}