mirror of
https://github.com/Dolibarr/dolibarr.git
synced 2025-12-06 17:48:25 +01:00
348 lines
12 KiB
PHP
348 lines
12 KiB
PHP
<?php
|
|
/* Copyright (C) 2013-2014 Florian Henry <florian.henry@open-concept.pro>
|
|
* Copyright (C) 2013-2014 Olivier Geffroy <jeff@jeffinfo.com>
|
|
* Copyright (C) 2013-2015 Alexandre Spangaro <aspangaro.dolibarr@gmail.com>
|
|
* Copyright (C) 2015 Ari Elbaz (elarifr) <github@accedinfo.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 <http://www.gnu.org/licenses/>.
|
|
*/
|
|
|
|
/**
|
|
* \file htdocs/accountancy/class/html.formventilation.class.php
|
|
* \ingroup Accounting Expert
|
|
* \brief File of class with all html predefined components
|
|
*/
|
|
|
|
/**
|
|
* Class to manage generation of HTML components for bank module
|
|
*/
|
|
class FormVentilation extends Form
|
|
{
|
|
var $db;
|
|
var $error;
|
|
|
|
/**
|
|
* Constructor
|
|
*
|
|
* @param DoliDB $db Database handler
|
|
*/
|
|
public function __construct($db)
|
|
{
|
|
$this->db = $db;
|
|
}
|
|
|
|
/**
|
|
* Return select filter with date of transaction
|
|
*
|
|
* @param string $htmlname Name of select field
|
|
* @param string $selectedkey Value
|
|
* @return string HTML edit field
|
|
*/
|
|
function select_bookkeeping_importkey($htmlname = 'importkey', $selectedkey='')
|
|
{
|
|
$sql = 'SELECT DISTINCT import_key from ' . MAIN_DB_PREFIX . 'accounting_bookkeeping';
|
|
$sql .= ' ORDER BY import_key DESC';
|
|
|
|
$out = '<SELECT name="' . $htmlname . '">';
|
|
|
|
dol_syslog(get_class($this) . "::select_bookkeeping_importkey sql=" . $sql, LOG_DEBUG);
|
|
$resql = $this->db->query($sql);
|
|
if ($resql) {
|
|
$i = 0;
|
|
$num = $this->db->num_rows($resql);
|
|
|
|
while ( $i < $num ) {
|
|
$obj = $this->db->fetch_object($resql);
|
|
|
|
$selected = '';
|
|
if ($selectedkey == $obj->import_key) {
|
|
$selected = ' selected ';
|
|
}
|
|
|
|
$out .= '<OPTION value="' . $obj->import_key . '"' . $selected . '>' . dol_print_date($obj->import_key,'dayhourtext') . '</OPTION>';
|
|
|
|
$i ++;
|
|
}
|
|
} else {
|
|
$this->error = "Error " . $this->db->lasterror();
|
|
dol_syslog(get_class($this) . "::select_bookkeeping_importkey " . $this->error, LOG_ERR);
|
|
return - 1;
|
|
}
|
|
|
|
$out .= '</SELECT>';
|
|
|
|
return $out;
|
|
}
|
|
|
|
/**
|
|
* Return list of accounts with label by chart of accounts
|
|
*
|
|
* @param string $selectid Preselected chart of accounts
|
|
* @param string $htmlname Name of field in html form
|
|
* @param int $showempty Add an empty field
|
|
* @param array $event Event options
|
|
* @param int $select_in $selectid value is a aa.rowid (0 default) or aa.account_number (1)
|
|
* @param int $select_out set value returned by select 0=rowid (default), 1=account_number
|
|
* @param int $aabase set accounting_account base class to display empty=all or from 1 to 8 will display only account beginning by this number
|
|
*
|
|
* @return string String with HTML select
|
|
*/
|
|
function select_account($selectid, $htmlname = 'account', $showempty = 0, $event = array(), $select_in = 0, $select_out = 0, $aabase = '')
|
|
{
|
|
global $conf;
|
|
|
|
require_once DOL_DOCUMENT_ROOT.'/core/lib/accounting.lib.php';
|
|
|
|
$out = '';
|
|
|
|
$sql = "SELECT DISTINCT aa.account_number, aa.label, aa.rowid, aa.fk_pcg_version";
|
|
$sql .= " FROM " . MAIN_DB_PREFIX . "accounting_account as aa";
|
|
$sql .= " INNER JOIN " . MAIN_DB_PREFIX . "accounting_system as asy ON aa.fk_pcg_version = asy.pcg_version";
|
|
$sql .= " AND asy.rowid = " . $conf->global->CHARTOFACCOUNTS;
|
|
$sql .= " AND aa.active = 1";
|
|
$sql .= " ORDER BY aa.account_number";
|
|
|
|
dol_syslog(get_class($this) . "::select_account sql=" . $sql, LOG_DEBUG);
|
|
$resql = $this->db->query($sql);
|
|
if ($resql) {
|
|
|
|
$out .= ajax_combobox($htmlname, $event);
|
|
$out .= '<select id="' . $htmlname . '" class="flat" name="' . $htmlname . '">';
|
|
if ($showempty)
|
|
$out .= '<option value="-1"></option>';
|
|
$num = $this->db->num_rows($resql);
|
|
$trunclength = defined('ACCOUNTING_LENGTH_DESCRIPTION_ACCOUNT') ? $conf->global->ACCOUNTING_LENGTH_DESCRIPTION_ACCOUNT : '50';
|
|
|
|
$i = 0;
|
|
if ($num) {
|
|
while ( $i < $num ) {
|
|
$obj = $this->db->fetch_object($resql);
|
|
$label = length_accountg($obj->account_number) . ' - ' . $obj->label;
|
|
$label = dol_trunc($label, $trunclength);
|
|
if ($select_in == 0 ) $select_value_in = $obj->rowid;
|
|
if ($select_in == 1 ) $select_value_in = $obj->account_number;
|
|
if ($select_out == 0 ) $select_value_out = $obj->rowid;
|
|
if ($select_out == 1 ) $select_value_out = $obj->account_number;
|
|
// Remember guy's we store in database llx_facturedet the rowid of accounting_account and not the account_number
|
|
// Because same account_number can be share between different accounting_system and do have the same meaning
|
|
if (($selectid != '') && $selectid == $select_value_in) {
|
|
// $out .= '<option value="' . $obj->account_number . '" selected>' . $label . '</option>';
|
|
$out .= '<option value="' . $select_value_out . '" selected>' . $label . '</option>';
|
|
} else {
|
|
// $out .= '<option value="' . $obj->account_number . '">' . $label . '</option>';
|
|
$out .= '<option value="' . $select_value_out . '">' . $label . '</option>';
|
|
}
|
|
$i ++;
|
|
}
|
|
}
|
|
$out .= '</select>';
|
|
} else {
|
|
$this->error = "Error " . $this->db->lasterror();
|
|
dol_syslog(get_class($this) . "::select_account " . $this->error, LOG_ERR);
|
|
return - 1;
|
|
}
|
|
$this->db->free($resql);
|
|
return $out;
|
|
}
|
|
|
|
/**
|
|
* Return list of accounts with label by class of accounts
|
|
*
|
|
* @param string $selectid Preselected pcg_type
|
|
* @param string $htmlname Name of field in html form
|
|
* @param int $showempty Add an empty field
|
|
* @param array $event Event options
|
|
*
|
|
* @return string String with HTML select
|
|
*/
|
|
function select_pcgtype($selectid, $htmlname = 'pcg_type', $showempty = 0, $event = array())
|
|
{
|
|
global $conf;
|
|
|
|
$out = '';
|
|
|
|
$sql = "SELECT DISTINCT pcg_type ";
|
|
$sql .= " FROM " . MAIN_DB_PREFIX . "accounting_account as aa";
|
|
$sql .= " INNER JOIN " . MAIN_DB_PREFIX . "accounting_system as asy ON aa.fk_pcg_version = asy.pcg_version";
|
|
$sql .= " AND asy.rowid = " . $conf->global->CHARTOFACCOUNTS;
|
|
$sql .= " ORDER BY pcg_type";
|
|
|
|
dol_syslog(get_class($this) . "::select_pcgtype sql=" . $sql, LOG_DEBUG);
|
|
$resql = $this->db->query($sql);
|
|
if ($resql) {
|
|
|
|
$out .= ajax_combobox($htmlname, $event);
|
|
|
|
$out .= '<select id="' . $htmlname . '" class="flat" name="' . $htmlname . '">';
|
|
if ($showempty)
|
|
$out .= '<option value="-1"></option>';
|
|
$num = $this->db->num_rows($resql);
|
|
$i = 0;
|
|
if ($num) {
|
|
while ( $i < $num ) {
|
|
$obj = $this->db->fetch_object($resql);
|
|
$label = $obj->pcg_type;
|
|
|
|
if (($selectid != '') && $selectid == $obj->pcg_type) {
|
|
$out .= '<option value="' . $obj->pcg_type . '" selected>' . $label . '</option>';
|
|
} else {
|
|
$out .= '<option value="' . $obj->pcg_type . '">' . $label . '</option>';
|
|
}
|
|
$i ++;
|
|
}
|
|
}
|
|
$out .= '</select>';
|
|
} else {
|
|
$this->error = "Error " . $this->db->lasterror();
|
|
dol_syslog(get_class($this) . "::select_pcgtype " . $this->error, LOG_ERR);
|
|
return - 1;
|
|
}
|
|
$this->db->free($resql);
|
|
return $out;
|
|
}
|
|
|
|
/**
|
|
* Return list of accounts with label by sub_class of accounts
|
|
*
|
|
* @param string $selectid Preselected pcg_type
|
|
* @param string $htmlname Name of field in html form
|
|
* @param int $showempty Add an empty field
|
|
* @param array $event Event options
|
|
*
|
|
* @return string String with HTML select
|
|
*/
|
|
function select_pcgsubtype($selectid, $htmlname = 'pcg_subtype', $showempty = 0, $event = array())
|
|
{
|
|
global $conf;
|
|
|
|
$out = '';
|
|
|
|
$sql = "SELECT DISTINCT pcg_subtype ";
|
|
$sql .= " FROM " . MAIN_DB_PREFIX . "accounting_account as aa";
|
|
$sql .= " INNER JOIN " . MAIN_DB_PREFIX . "accounting_system as asy ON aa.fk_pcg_version = asy.pcg_version";
|
|
$sql .= " AND asy.rowid = " . $conf->global->CHARTOFACCOUNTS;
|
|
$sql .= " ORDER BY pcg_subtype";
|
|
|
|
dol_syslog(get_class($this) . "::select_pcgsubtype sql=" . $sql, LOG_DEBUG);
|
|
$resql = $this->db->query($sql);
|
|
if ($resql) {
|
|
|
|
$out .= ajax_combobox($htmlname, $event);
|
|
|
|
$out .= '<select id="' . $htmlname . '" class="flat" name="' . $htmlname . '">';
|
|
if ($showempty)
|
|
$out .= '<option value="-1"></option>';
|
|
$num = $this->db->num_rows($resql);
|
|
$i = 0;
|
|
if ($num) {
|
|
while ( $i < $num ) {
|
|
$obj = $this->db->fetch_object($resql);
|
|
$label = $obj->pcg_subtype;
|
|
|
|
if (($selectid != '') && $selectid == $obj->pcg_subtype) {
|
|
$out .= '<option value="' . $obj->pcg_subtype . '" selected>' . $label . '</option>';
|
|
} else {
|
|
$out .= '<option value="' . $obj->pcg_subtype . '">' . $label . '</option>';
|
|
}
|
|
$i ++;
|
|
}
|
|
}
|
|
$out .= '</select>';
|
|
} else {
|
|
$this->error = "Error " . $this->db->lasterror();
|
|
dol_syslog(get_class($this) . "::select_pcgsubtype " . $this->error, LOG_ERR);
|
|
return - 1;
|
|
}
|
|
$this->db->free($resql);
|
|
return $out;
|
|
}
|
|
|
|
/**
|
|
* Return list of auxilary thirdparty accounts
|
|
*
|
|
* @param string $selectid Preselected pcg_type
|
|
* @param string $htmlname Name of field in html form
|
|
* @param int $showempty Add an empty field
|
|
* @param array $event Event options
|
|
*
|
|
* @return string String with HTML select
|
|
*/
|
|
function select_auxaccount($selectid, $htmlname = 'account_num_aux', $showempty = 0, $event = array()) {
|
|
global $conf;
|
|
|
|
$out = '';
|
|
|
|
$aux_account = array ();
|
|
|
|
// Auxiliary customer account
|
|
$sql = "SELECT DISTINCT code_compta, nom ";
|
|
$sql .= " FROM " . MAIN_DB_PREFIX . "societe";
|
|
$sql .= " ORDER BY code_compta";
|
|
dol_syslog(get_class($this) . "::select_auxaccount", LOG_DEBUG);
|
|
$resql = $this->db->query($sql);
|
|
if ($resql) {
|
|
while ( $obj = $this->db->fetch_object($resql) ) {
|
|
if (! empty($obj->code_compta)) {
|
|
$aux_account[$obj->code_compta] = $obj->code_compta . ' (' . $obj->nom . ')';
|
|
}
|
|
}
|
|
} else {
|
|
$this->error = "Error " . $this->db->lasterror();
|
|
dol_syslog(get_class($this) . "::select_pcgsubtype " . $this->error, LOG_ERR);
|
|
return - 1;
|
|
}
|
|
$this->db->free($resql);
|
|
|
|
// Auxiliary supplier account
|
|
$sql = "SELECT DISTINCT code_compta_fournisseur, nom ";
|
|
$sql .= " FROM " . MAIN_DB_PREFIX . "societe";
|
|
$sql .= " ORDER BY code_compta";
|
|
dol_syslog(get_class($this) . "::select_auxaccount", LOG_DEBUG);
|
|
$resql = $this->db->query($sql);
|
|
if ($resql) {
|
|
while ( $obj = $this->db->fetch_object($resql) ) {
|
|
if (! empty($obj->code_compta_fournisseur)) {
|
|
$aux_account[$obj->code_compta_fournisseur] = $obj->code_compta_fournisseur . ' (' . $obj->nom . ')';
|
|
}
|
|
}
|
|
} else {
|
|
$this->error = "Error " . $this->db->lasterror();
|
|
dol_syslog(get_class($this) . "::select_pcgsubtype " . $this->error, LOG_ERR);
|
|
return - 1;
|
|
}
|
|
$this->db->free($resql);
|
|
|
|
|
|
//Build select
|
|
if (count($aux_account) > 0) {
|
|
|
|
$out .= ajax_combobox($htmlname, $event);
|
|
|
|
$out .= '<select id="' . $htmlname . '" class="flat" name="' . $htmlname . '">';
|
|
if ($showempty)
|
|
$out .= '<option value="-1"></option>';
|
|
foreach ( $aux_account as $key => $val ) {
|
|
if (($selectid != '') && $selectid == $key) {
|
|
$out .= '<option value="' . $key . '" selected>' . $val . '</option>';
|
|
} else {
|
|
$out .= '<option value="' . $key . '">' . $val . '</option>';
|
|
}
|
|
}
|
|
$out .= '</select>';
|
|
}
|
|
|
|
return $out;
|
|
}
|
|
}
|