dolibarr_ynh/sources/dolibarr/htdocs/accountancy/admin/importaccounts.php

<?php
/* 
 * Copyright (C) 2013-2014 Olivier Geffroy      <jeff@jeffinfo.com>
 * Copyright (C) 2013-2014 Alexandre Spangaro   <aspangaro.dolibarr@gmail.com> 
 * Copyright (C) 2014	   Florian Henry		<florian.henry@open-concept.pro>
 *
 * 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/admin/importaccounts.php
 * \ingroup			Accounting Expert
 * \brief			Page import accounting account
 */

require '../../main.inc.php';
	
// Class
require_once DOL_DOCUMENT_ROOT.'/core/lib/accounting.lib.php';
require_once DOL_DOCUMENT_ROOT.'/accountancy/class/accountingaccount.class.php';
require_once DOL_DOCUMENT_ROOT.'/accountancy/class/html.formventilation.class.php';

// langs
$langs->load("compta");
$langs->load("bills");
$langs->load("main");
$langs->load("accountancy");

// Security check
if (!$user->admin)
    accessforbidden();

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

$to_import = GETPOST("mesCasesCochees");

if ($_POST["action"] == 'import') {
	print '<div><font color="red">' . $langs->trans("Processing") . '...</font></div>';
	if (is_array($to_import) && count($to_import) > 0) {
		print '<div><font color="red">' . count($to_import) . ' ' . $langs->trans("SelectedLines") . '</font></div>';
		$sql = 'SELECT pcg_version FROM ' . MAIN_DB_PREFIX . 'accounting_system WHERE rowid=' . $conf->global->CHARTOFACCOUNTS;
		
		$result = $db->query($sql);
		if ($result && ($db->num_rows($result) > 0)) {
			
			$obj = $db->fetch_object($result);
			
			$cpt = 0;
			foreach ( $to_import as $maLigneCochee ) {
				
				$accounting = new AccountingAccount($db);
				
				$monLabel = GETPOST('label' . $maLigneCochee);
				$monParentAccount = GETPOST('AccountParent' . $maLigneCochee);
				$monType = GETPOST('pcgType' . $maLigneCochee);
				$monSubType = GETPOST('pcgSubType' . $maLigneCochee);
				
				$accounting->fk_pcg_version = $obj->pcg_version;
				$accounting->account_number = $maLigneCochee;
				$accounting->label = $monLabel;
				$accounting->account_parent = $monParentAccount;
				$accounting->pcg_type = $monType;
				$accounting->pcg_subtype = $monSubType;
				$accounting->active = 1;
				
				$result = $accounting->create($user);
				if ($result > 0) {
					setEventMessage($langs->trans("AccountingAccountAdd"), 'mesgs');
				} else {
					setEventMessage($accounting->error, 'errors');
				}
				$cpt ++;
			}
		} else {
			setEventMessage($langs->trans('AccountPlanNotFoundCheckSetting'), 'errors');
		}
	} else {
		print '<div><font color="red">' . $langs->trans("AnyLineImport") . '</font></div>';
	}
	print '<div><font color="red">' . $langs->trans("EndProcessing") . '</font></div>';
}

/*
* list accounting account from product 
*
*/
$page = GETPOST("page");
if ($page < 0)
	$page = 0;
$limit = $conf->global->ACCOUNTING_LIMIT_LIST_VENTILATION;
$offset = $limit * $page;

$sql = "(SELECT p.rowid as product_id, p.accountancy_code_sell as accounting ";
$sql .= " FROM  " . MAIN_DB_PREFIX . "product as p ";
$sql .= " WHERE p.accountancy_code_sell >=0";
$sql .= " GROUP BY accounting ";
$sql .= ")";
$sql .= "UNION ALL(SELECT p.rowid as product_id, p.accountancy_code_buy as accounting ";
$sql .= " FROM  " . MAIN_DB_PREFIX . "product as p ";
$sql .= " WHERE p.accountancy_code_buy >=0";
$sql .= " GROUP BY accounting ";
$sql .= ") ";
$sql .= " ORDER BY accounting DESC " . $db->plimit($limit + 1, $offset);

dol_syslog('accountancy/admin/importaccounts.php:: $sql=' . $sql);
$result = $db->query($sql);
if ($result) {
	$num_lines = $db->num_rows($result);
	$i = 0;
	print_barre_liste($langs->trans("ImportAccount"), $page, $_SERVER["PHP_SELF"], "", $sortfield, $sortorder, '', $num_lines);
	
	print '<form action="' . $_SERVER["PHP_SELF"] . '" method="POST">' . "\n";
	print '<input type="hidden" name="action" value="import">';
	
	print '<table class="noborder" width="100%">';
	print '<tr class="liste_titre"><td>' . $langs->trans("accountingaccount") . '</td>';
	print '<td>' . $langs->trans("label") . '</td>';
	print '<td>' . $langs->trans("Accountparent") . '</td>';
	print '<td>' . $langs->trans("Pcgtype") . '</td>';
	print '<td>' . $langs->trans("Pcgsubtype") . '</td>';
	print '<td align="center">' . $langs->trans("Import") . '</td>';
	print '</tr>';
	
	$form = new Form($db);
	$htmlacc = new FormVentilation($db);
	
	$var = true;
	while ( $i < min($num_lines, $limit) ) {
		$objp = $db->fetch_object($result);
		$var = ! $var;
		print "<tr $bc[$var]>";
		
		print '<td align="left">';
		print $objp->accounting;
		print '</td>';
		
		print '<td align="left">';
		print '<input name="label" size="30" value="">';
		print '</td>';
		
		// Colonne choix du compte
		print '<td>';
		print $htmlacc->select_account($accounting->account_parent, 'AccountParent');
		print '</td>';
		
		print '<td>';
		print $htmlacc->select_pcgtype($accounting->pcg_type, 'pcgType');
		print '</td>';
		
		print '<td>';
		print $htmlacc->select_pcgsubtype($accounting->pcg_subtype, 'pcgSubType');
		print '</td>';
		
		// Colonne choix ligne a ventiler
		
		$checked = ('label' == 'O') ? ' checked' : '';
		
		print '<td align="center">';
		print '<input type="checkbox" name="mesCasesCochees[]" ' . $checked . ' value="' . $objp->accounting . '"/>';
		print '</td>';
		
		print '</tr>';
		$i ++;
	}
	
	print '<tr><td colspan="8">&nbsp;</td></tr><tr><td colspan="8" align="center"><input type="submit" class="butAction" value="' . $langs->trans("Import") . '"></td></tr>';
	
	print '</table>';
	print '</form>';
} else {
	print $db->error();
}

llxFooter();
$db->close();