* Copyright (C) 2013-2014 Alexandre Spangaro * Copyright (C) 2014 Florian Henry * * 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 . */ /** * \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 '

' . $langs->trans("Processing") . '...

'; if (is_array($to_import) && count($to_import) > 0) { print '

' . count($to_import) . ' ' . $langs->trans("SelectedLines") . '

'; $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 '

' . $langs->trans("AnyLineImport") . '

'; } print '

' . $langs->trans("EndProcessing") . '

'; } /* * 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 '

' . "\n"; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; $form = new Form($db); $htmlacc = new FormVentilation($db); $var = true; while ( $i < min($num_lines, $limit) ) { $objp = $db->fetch_object($result); $var = ! $var; print ""; print ''; print ''; // Colonne choix du compte print ''; print ''; print ''; // Colonne choix ligne a ventiler $checked = ('label' == 'O') ? ' checked' : ''; print ''; print ''; $i ++; } print ''; print '

' . $langs->trans("accountingaccount") . '	' . $langs->trans("label") . '	' . $langs->trans("Accountparent") . '	' . $langs->trans("Pcgtype") . '	' . $langs->trans("Pcgsubtype") . '	' . $langs->trans("Import") . '
'; print $objp->accounting; print '	'; print ''; print '	'; print $htmlacc->select_account($accounting->account_parent, 'AccountParent'); print '	'; print $htmlacc->select_pcgtype($accounting->pcg_type, 'pcgType'); print '	'; print $htmlacc->select_pcgsubtype($accounting->pcg_subtype, 'pcgSubType'); print '	'; print ''; print '

'; print '

'; } else { print $db->error(); } llxFooter(); $db->close();