dolibarr  18.0.0-alpha
bankjournal.php
Go to the documentation of this file.
1 <?php
2 /* Copyright (C) 2007-2010 Laurent Destailleur <eldy@users.sourceforge.net>
3  * Copyright (C) 2007-2010 Jean Heimburger <jean@tiaris.info>
4  * Copyright (C) 2011 Juanjo Menent <jmenent@2byte.es>
5  * Copyright (C) 2012 Regis Houssin <regis.houssin@inodbox.com>
6  * Copyright (C) 2013 Christophe Battarel <christophe.battarel@altairis.fr>
7  * Copyright (C) 2013-2022 Open-DSI <support@open-dsi.fr>
8  * Copyright (C) 2013-2014 Florian Henry <florian.henry@open-concept.pro>
9  * Copyright (C) 2013-2014 Olivier Geffroy <jeff@jeffinfo.com>
10  * Copyright (C) 2017-2021 Frédéric France <frederic.france@netlogic.fr>
11  * Copyright (C) 2018 Ferran Marcet <fmarcet@2byte.es>
12  * Copyright (C) 2018 Eric Seigne <eric.seigne@cap-rel.fr>
13  * Copyright (C) 2021 Gauthier VERDOL <gauthier.verdol@atm-consulting.fr>
14  *
15  * This program is free software; you can redistribute it and/or modify
16  * it under the terms of the GNU General Public License as published by
17  * the Free Software Foundation; either version 3 of the License, or
18  * (at your option) any later version.
19  *
20  * This program is distributed in the hope that it will be useful,
21  * but WITHOUT ANY WARRANTY; without even the implied warranty of
22  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
23  * GNU General Public License for more details.
24  *
25  * You should have received a copy of the GNU General Public License
26  * along with this program. If not, see <https://www.gnu.org/licenses/>.
27  */
28 
34 require '../../main.inc.php';
35 require_once DOL_DOCUMENT_ROOT.'/core/lib/report.lib.php';
36 require_once DOL_DOCUMENT_ROOT.'/core/lib/date.lib.php';
37 require_once DOL_DOCUMENT_ROOT.'/core/lib/bank.lib.php';
38 require_once DOL_DOCUMENT_ROOT.'/core/lib/accounting.lib.php';
39 require_once DOL_DOCUMENT_ROOT.'/accountancy/class/accountingaccount.class.php';
40 require_once DOL_DOCUMENT_ROOT.'/accountancy/class/accountingjournal.class.php';
41 require_once DOL_DOCUMENT_ROOT.'/societe/class/societe.class.php';
42 require_once DOL_DOCUMENT_ROOT.'/user/class/user.class.php';
43 require_once DOL_DOCUMENT_ROOT.'/adherents/class/adherent.class.php';
44 require_once DOL_DOCUMENT_ROOT.'/compta/sociales/class/chargesociales.class.php';
45 require_once DOL_DOCUMENT_ROOT.'/compta/paiement/class/paiement.class.php';
46 require_once DOL_DOCUMENT_ROOT.'/don/class/don.class.php';
47 require_once DOL_DOCUMENT_ROOT.'/don/class/paymentdonation.class.php';
48 require_once DOL_DOCUMENT_ROOT.'/compta/tva/class/tva.class.php';
49 require_once DOL_DOCUMENT_ROOT.'/salaries/class/paymentsalary.class.php';
50 require_once DOL_DOCUMENT_ROOT.'/compta/facture/class/facture.class.php';
51 require_once DOL_DOCUMENT_ROOT.'/fourn/class/paiementfourn.class.php';
52 require_once DOL_DOCUMENT_ROOT.'/fourn/class/fournisseur.facture.class.php';
53 require_once DOL_DOCUMENT_ROOT.'/fourn/class/fournisseur.class.php';
54 require_once DOL_DOCUMENT_ROOT.'/accountancy/class/bookkeeping.class.php';
55 require_once DOL_DOCUMENT_ROOT.'/societe/class/client.class.php';
56 require_once DOL_DOCUMENT_ROOT.'/expensereport/class/expensereport.class.php';
57 require_once DOL_DOCUMENT_ROOT.'/expensereport/class/paymentexpensereport.class.php';
58 require_once DOL_DOCUMENT_ROOT.'/compta/bank/class/paymentvarious.class.php';
59 require_once DOL_DOCUMENT_ROOT.'/compta/bank/class/account.class.php';
60 require_once DOL_DOCUMENT_ROOT.'/loan/class/loan.class.php';
61 require_once DOL_DOCUMENT_ROOT.'/loan/class/paymentloan.class.php';
62 require_once DOL_DOCUMENT_ROOT.'/adherents/class/subscription.class.php';
63 
64 // Load translation files required by the page
65 $langs->loadLangs(array("companies", "other", "compta", "banks", "bills", "donations", "loan", "accountancy", "trips", "salaries", "hrm", "members"));
66 
67 // Multi journal
68 $id_journal = GETPOST('id_journal', 'int');
69 
70 $date_startmonth = GETPOST('date_startmonth', 'int');
71 $date_startday = GETPOST('date_startday', 'int');
72 $date_startyear = GETPOST('date_startyear', 'int');
73 $date_endmonth = GETPOST('date_endmonth', 'int');
74 $date_endday = GETPOST('date_endday', 'int');
75 $date_endyear = GETPOST('date_endyear', 'int');
76 $in_bookkeeping = GETPOST('in_bookkeeping', 'aZ09');
77 if ($in_bookkeeping == '') {
78  $in_bookkeeping = 'notyet';
79 }
80 
81 $now = dol_now();
82 
83 $action = GETPOST('action', 'aZ09');
84 
85 // Security check
86 if (!isModEnabled('accounting')) {
88 }
89 if ($user->socid > 0) {
91 }
92 if (empty($user->rights->accounting->mouvements->lire)) {
94 }
95 
96 
97 /*
98  * Actions
99  */
100 
101 $error = 0;
102 
103 $date_start = dol_mktime(0, 0, 0, $date_startmonth, $date_startday, $date_startyear);
104 $date_end = dol_mktime(23, 59, 59, $date_endmonth, $date_endday, $date_endyear);
105 
106 if (empty($date_startmonth) || empty($date_endmonth)) {
107  // Period by default on transfer
108  $dates = getDefaultDatesForTransfer();
109  $date_start = $dates['date_start'];
110  $date_end = $dates['date_end'];
111  $pastmonthyear = $dates['pastmonthyear'];
112  $pastmonth = $dates['pastmonth'];
113 }
114 
115 if (!GETPOSTISSET('date_startmonth') && (empty($date_start) || empty($date_end))) { // We define date_start and date_end, only if we did not submit the form
116  $date_start = dol_get_first_day($pastmonthyear, $pastmonth, false);
117  $date_end = dol_get_last_day($pastmonthyear, $pastmonth, false);
118 }
119 
120 $sql = "SELECT b.rowid, b.dateo as do, b.datev as dv, b.amount, b.amount_main_currency, b.label, b.rappro, b.num_releve, b.num_chq, b.fk_type, b.fk_account,";
121 $sql .= " ba.courant, ba.ref as baref, ba.account_number, ba.fk_accountancy_journal,";
122 $sql .= " soc.rowid as socid, soc.nom as name, soc.email as email, bu1.type as typeop_company,";
123 if (!empty($conf->global->MAIN_COMPANY_PERENTITY_SHARED)) {
124  $sql .= " spe.accountancy_code_customer as code_compta,";
125  $sql .= " spe.accountancy_code_supplier as code_compta_fournisseur,";
126 } else {
127  $sql .= " soc.code_compta,";
128  $sql .= " soc.code_compta_fournisseur,";
129 }
130 $sql .= " u.accountancy_code, u.rowid as userid, u.lastname as lastname, u.firstname as firstname, u.email as useremail, u.statut as userstatus,";
131 $sql .= " bu2.type as typeop_user,";
132 $sql .= " bu3.type as typeop_payment, bu4.type as typeop_payment_supplier";
133 $sql .= " FROM ".MAIN_DB_PREFIX."bank as b";
134 $sql .= " JOIN ".MAIN_DB_PREFIX."bank_account as ba on b.fk_account=ba.rowid";
135 $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."bank_url as bu1 ON bu1.fk_bank = b.rowid AND bu1.type='company'";
136 $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."bank_url as bu2 ON bu2.fk_bank = b.rowid AND bu2.type='user'";
137 $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."bank_url as bu3 ON bu3.fk_bank = b.rowid AND bu3.type='payment'";
138 $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."bank_url as bu4 ON bu4.fk_bank = b.rowid AND bu4.type='payment_supplier'";
139 $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."societe as soc on bu1.url_id=soc.rowid";
140 if (!empty($conf->global->MAIN_COMPANY_PERENTITY_SHARED)) {
141  $sql .= " LEFT JOIN " . MAIN_DB_PREFIX . "societe_perentity as spe ON spe.fk_soc = soc.rowid AND spe.entity = " . ((int) $conf->entity);
142 }
143 $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."user as u on bu2.url_id=u.rowid";
144 $sql .= " WHERE ba.fk_accountancy_journal=".((int) $id_journal);
145 $sql .= ' AND b.amount <> 0 AND ba.entity IN ('.getEntity('bank_account', 0).')'; // We don't share object for accountancy
146 if ($date_start && $date_end) {
147  $sql .= " AND b.dateo >= '".$db->idate($date_start)."' AND b.dateo <= '".$db->idate($date_end)."'";
148 }
149 // Define begin binding date
150 if (!empty($conf->global->ACCOUNTING_DATE_START_BINDING)) {
151  $sql .= " AND b.dateo >= '".$db->idate($conf->global->ACCOUNTING_DATE_START_BINDING)."'";
152 }
153 // Already in bookkeeping or not
154 if ($in_bookkeeping == 'already') {
155  $sql .= " AND (b.rowid IN (SELECT fk_doc FROM ".MAIN_DB_PREFIX."accounting_bookkeeping as ab WHERE ab.doc_type='bank') )";
156 }
157 if ($in_bookkeeping == 'notyet') {
158  $sql .= " AND (b.rowid NOT IN (SELECT fk_doc FROM ".MAIN_DB_PREFIX."accounting_bookkeeping as ab WHERE ab.doc_type='bank') )";
159 }
160 $sql .= " ORDER BY b.datev";
161 //print $sql;
162 
163 $object = new Account($db);
164 $paymentstatic = new Paiement($db);
165 $paymentsupplierstatic = new PaiementFourn($db);
166 $societestatic = new Societe($db);
167 $userstatic = new User($db);
168 $bankaccountstatic = new Account($db);
169 $chargestatic = new ChargeSociales($db);
170 $paymentdonstatic = new PaymentDonation($db);
171 $paymentvatstatic = new Tva($db);
172 $paymentsalstatic = new PaymentSalary($db);
173 $paymentexpensereportstatic = new PaymentExpenseReport($db);
174 $paymentvariousstatic = new PaymentVarious($db);
175 $paymentloanstatic = new PaymentLoan($db);
176 $accountLinestatic = new AccountLine($db);
177 $paymentsubscriptionstatic = new Subscription($db);
178 
179 $tmppayment = new Paiement($db);
180 $tmpinvoice = new Facture($db);
181 
182 $accountingaccount = new AccountingAccount($db);
183 
184 // Get code of finance journal
185 $accountingjournalstatic = new AccountingJournal($db);
186 $accountingjournalstatic->fetch($id_journal);
187 $journal = $accountingjournalstatic->code;
188 $journal_label = $accountingjournalstatic->label;
189 
190 //print $sql;
191 dol_syslog("accountancy/journal/bankjournal.php", LOG_DEBUG);
192 $result = $db->query($sql);
193 if ($result) {
194  $num = $db->num_rows($result);
195  //print $sql;
196 
197  // Variables
198  $account_supplier = (($conf->global->ACCOUNTING_ACCOUNT_SUPPLIER != "") ? $conf->global->ACCOUNTING_ACCOUNT_SUPPLIER : 'NotDefined'); // NotDefined is a reserved word
199  $account_customer = (($conf->global->ACCOUNTING_ACCOUNT_CUSTOMER != "") ? $conf->global->ACCOUNTING_ACCOUNT_CUSTOMER : 'NotDefined'); // NotDefined is a reserved word
200  $account_employee = (!empty($conf->global->SALARIES_ACCOUNTING_ACCOUNT_PAYMENT) ? $conf->global->SALARIES_ACCOUNTING_ACCOUNT_PAYMENT : 'NotDefined'); // NotDefined is a reserved word
201  $account_pay_vat = (!empty($conf->global->ACCOUNTING_VAT_PAY_ACCOUNT) ? $conf->global->ACCOUNTING_VAT_PAY_ACCOUNT : 'NotDefined'); // NotDefined is a reserved word
202  $account_pay_donation = (!empty($conf->global->DONATION_ACCOUNTINGACCOUNT) ? $conf->global->DONATION_ACCOUNTINGACCOUNT : 'NotDefined'); // NotDefined is a reserved word
203  $account_pay_subscription = (!empty($conf->global->ADHERENT_SUBSCRIPTION_ACCOUNTINGACCOUNT) ? $conf->global->ADHERENT_SUBSCRIPTION_ACCOUNTINGACCOUNT : 'NotDefined'); // NotDefined is a reserved word
204  $account_transfer = (!empty($conf->global->ACCOUNTING_ACCOUNT_TRANSFER_CASH) ? $conf->global->ACCOUNTING_ACCOUNT_TRANSFER_CASH : 'NotDefined'); // NotDefined is a reserved word
205 
206  $tabcompany = array();
207  $tabuser = array();
208  $tabpay = array();
209  $tabbq = array();
210  $tabtp = array();
211  $tabtype = array();
212  $tabmoreinfo = array();
213 
214  // Loop on each line into llx_bank table. For each line, we should get:
215  // one line tabpay = line into bank
216  // one line for bank record = tabbq
217  // one line for thirdparty record = tabtp
218  $i = 0;
219  while ($i < $num) {
220  $obj = $db->fetch_object($result);
221 
222  $lineisapurchase = -1;
223  $lineisasale = -1;
224  // Old method to detect if it's a sale or purchase
225  if ($obj->label == '(SupplierInvoicePayment)' || $obj->label == '(SupplierInvoicePaymentBack)') {
226  $lineisapurchase = 1;
227  }
228  if ($obj->label == '(CustomerInvoicePayment)' || $obj->label == '(CustomerInvoicePaymentBack)') {
229  $lineisasale = 1;
230  }
231  // Try a more reliable method to detect if record is a supplier payment or a customer payment
232  if ($lineisapurchase < 0) {
233  if ($obj->typeop_payment_supplier == 'payment_supplier') {
234  $lineisapurchase = 1;
235  }
236  }
237  if ($lineisasale < 0) {
238  if ($obj->typeop_payment == 'payment') {
239  $lineisasale = 1;
240  }
241  }
242  //var_dump($obj->type_payment); var_dump($obj->type_payment_supplier);
243  //var_dump($lineisapurchase); //var_dump($lineisasale);
244 
245  // Set accountancy code for bank
246  $compta_bank = $obj->account_number;
247 
248  // Set accountancy code for thirdparty (example: '411CU...' or '411' if no subledger account defined on customer)
249  $compta_soc = 'NotDefined';
250  if ($lineisapurchase > 0) {
251  $compta_soc = (($obj->code_compta_fournisseur != "") ? $obj->code_compta_fournisseur : $account_supplier);
252  }
253  if ($lineisasale > 0) {
254  $compta_soc = (!empty($obj->code_compta) ? $obj->code_compta : $account_customer);
255  }
256 
257  $tabcompany[$obj->rowid] = array(
258  'id' => $obj->socid,
259  'name' => $obj->name,
260  'code_compta' => $compta_soc,
261  'email' => $obj->email
262  );
263 
264  // Set accountancy code for user
265  // $obj->accountancy_code is the accountancy_code of table u=user but it is defined only if a link with type 'user' exists)
266  $compta_user = (!empty($obj->accountancy_code) ? $obj->accountancy_code : '');
267 
268  $tabuser[$obj->rowid] = array(
269  'id' => $obj->userid,
270  'name' => dolGetFirstLastname($obj->firstname, $obj->lastname),
271  'lastname' => $obj->lastname,
272  'firstname' => $obj->firstname,
273  'email' => $obj->useremail,
274  'accountancy_code' => $compta_user,
275  'status' => $obj->userstatus
276  );
277 
278  // Variable bookkeeping ($obj->rowid is Bank Id)
279  $tabpay[$obj->rowid]["date"] = $obj->do;
280  $tabpay[$obj->rowid]["type_payment"] = $obj->fk_type; // CHQ, VIR, LIQ, CB, ...
281  $tabpay[$obj->rowid]["ref"] = $obj->label; // By default. Not unique. May be changed later
282  $tabpay[$obj->rowid]["fk_bank"] = $obj->rowid;
283  $tabpay[$obj->rowid]["bank_account_ref"] = $obj->baref;
284  $tabpay[$obj->rowid]["fk_bank_account"] = $obj->fk_account;
285  $reg = array();
286  if (preg_match('/^\((.*)\)$/i', $obj->label, $reg)) {
287  $tabpay[$obj->rowid]["lib"] = $langs->trans($reg[1]);
288  } else {
289  $tabpay[$obj->rowid]["lib"] = dol_trunc($obj->label, 60);
290  }
291 
292  // Load of url links to the line into llx_bank (so load llx_bank_url)
293  $links = $object->get_url($obj->rowid); // Get an array('url'=>, 'url_id'=>, 'label'=>, 'type'=> 'fk_bank'=> )
294 
295  // By default
296  $tabpay[$obj->rowid]['type'] = 'unknown'; // Can be SOLD, miscellaneous entry, payment of patient, or any old record with no links in bank_url.
297  $tabtype[$obj->rowid] = 'unknown';
298  $tabmoreinfo[$obj->rowid] = array();
299 
300  $amounttouse = $obj->amount;
301  if (!empty($obj->amount_main_currency)) {
302  // If $obj->amount_main_currency is set, it means that $obj->amount is not in same currency, we must use $obj->amount_main_currency
303  $amounttouse = $obj->amount_main_currency;
304  }
305 
306  // get_url may return -1 which is not traversable
307  if (is_array($links) && count($links) > 0) {
308  $is_sc = false;
309  foreach ($links as $v) {
310  if ($v['type'] == 'sc') {
311  $is_sc = true;
312  break;
313  }
314  }
315  // Now loop on each link of record in bank (code similar to bankentries_list.php)
316  foreach ($links as $key => $val) {
317  if ($links[$key]['type'] == 'user' && !$is_sc) continue;
318  if (in_array($links[$key]['type'], array('sc', 'payment_sc', 'payment', 'payment_supplier', 'payment_vat', 'payment_expensereport', 'banktransfert', 'payment_donation', 'member', 'payment_loan', 'payment_salary', 'payment_various'))) {
319  // So we excluded 'company' and 'user' here. We want only payment lines
320 
321  // We save tabtype for a future use, to remember what kind of payment it is
322  $tabpay[$obj->rowid]['type'] = $links[$key]['type'];
323  $tabtype[$obj->rowid] = $links[$key]['type'];
324  } elseif (in_array($links[$key]['type'], array('company', 'user'))) {
325  if ($tabpay[$obj->rowid]['type'] == 'unknown') {
326  // We can guess here it is a bank record for a thirdparty company or a user.
327  // But we won't be able to record somewhere else than into a waiting account, because there is no other journal to record the contreparty.
328  }
329  }
330 
331  // Special case to ask later to add more request to get information for old links without company link.
332  if ($links[$key]['type'] == 'withdraw') {
333  $tabmoreinfo[$obj->rowid]['withdraw'] = 1;
334  }
335 
336  if ($links[$key]['type'] == 'payment') {
337  $paymentstatic->id = $links[$key]['url_id'];
338  $paymentstatic->ref = $links[$key]['url_id'];
339  $tabpay[$obj->rowid]["lib"] .= ' '.$paymentstatic->getNomUrl(2, '', ''); // TODO Do not include list of invoice in tooltip, the dol_string_nohtmltag is ko with this
340  $tabpay[$obj->rowid]["paymentid"] = $paymentstatic->id;
341  } elseif ($links[$key]['type'] == 'payment_supplier') {
342  $paymentsupplierstatic->id = $links[$key]['url_id'];
343  $paymentsupplierstatic->ref = $links[$key]['url_id'];
344  $tabpay[$obj->rowid]["lib"] .= ' '.$paymentsupplierstatic->getNomUrl(2);
345  $tabpay[$obj->rowid]["paymentsupplierid"] = $paymentsupplierstatic->id;
346  } elseif ($links[$key]['type'] == 'company') {
347  $societestatic->id = $links[$key]['url_id'];
348  $societestatic->name = $links[$key]['label'];
349  $societestatic->email = $tabcompany[$obj->rowid]['email'];
350  $tabpay[$obj->rowid]["soclib"] = $societestatic->getNomUrl(1, '', 30);
351  if ($compta_soc) {
352  if (empty($tabtp[$obj->rowid][$compta_soc])) {
353  $tabtp[$obj->rowid][$compta_soc] = $amounttouse;
354  } else {
355  $tabtp[$obj->rowid][$compta_soc] += $amounttouse;
356  }
357  }
358  } elseif ($links[$key]['type'] == 'user') {
359  $userstatic->id = $links[$key]['url_id'];
360  $userstatic->name = $links[$key]['label'];
361  $userstatic->email = $tabuser[$obj->rowid]['email'];
362  $userstatic->firstname = $tabuser[$obj->rowid]['firstname'];
363  $userstatic->lastname = $tabuser[$obj->rowid]['lastname'];
364  $userstatic->statut = $tabuser[$obj->rowid]['status'];
365  $userstatic->accountancy_code = $tabuser[$obj->rowid]['accountancy_code'];
366  if ($userstatic->id > 0) {
367  $tabpay[$obj->rowid]["soclib"] = $userstatic->getNomUrl(1, 'accountancy', 0);
368  } else {
369  $tabpay[$obj->rowid]["soclib"] = '???'; // Should not happen, but happens with old data when id of user was not saved on expense report payment.
370  }
371  if ($compta_user) {
372  $tabtp[$obj->rowid][$compta_user] += $amounttouse;
373  }
374  } elseif ($links[$key]['type'] == 'sc') {
375  $chargestatic->id = $links[$key]['url_id'];
376  $chargestatic->ref = $links[$key]['url_id'];
377 
378  $tabpay[$obj->rowid]["lib"] .= ' '.$chargestatic->getNomUrl(2);
379  $reg = array();
380  if (preg_match('/^\((.*)\)$/i', $links[$key]['label'], $reg)) {
381  if ($reg[1] == 'socialcontribution') {
382  $reg[1] = 'SocialContribution';
383  }
384  $chargestatic->label = $langs->trans($reg[1]);
385  } else {
386  $chargestatic->label = $links[$key]['label'];
387  }
388  $chargestatic->ref = $chargestatic->label;
389  $tabpay[$obj->rowid]["soclib"] = $chargestatic->getNomUrl(1, 30);
390  $tabpay[$obj->rowid]["paymentscid"] = $chargestatic->id;
391 
392  // Retrieve the accounting code of the social contribution of the payment from link of payment.
393  // Note: We have the social contribution id, it can be faster to get accounting code from social contribution id.
394  $sqlmid = "SELECT cchgsoc.accountancy_code";
395  $sqlmid .= " FROM ".MAIN_DB_PREFIX."c_chargesociales cchgsoc";
396  $sqlmid .= " INNER JOIN ".MAIN_DB_PREFIX."chargesociales as chgsoc ON chgsoc.fk_type = cchgsoc.id";
397  $sqlmid .= " INNER JOIN ".MAIN_DB_PREFIX."paiementcharge as paycharg ON paycharg.fk_charge = chgsoc.rowid";
398  $sqlmid .= " INNER JOIN ".MAIN_DB_PREFIX."bank_url as bkurl ON bkurl.url_id=paycharg.rowid AND bkurl.type = 'payment_sc'";
399  $sqlmid .= " WHERE bkurl.fk_bank = ".((int) $obj->rowid);
400 
401  dol_syslog("accountancy/journal/bankjournal.php:: sqlmid=".$sqlmid, LOG_DEBUG);
402  $resultmid = $db->query($sqlmid);
403  if ($resultmid) {
404  $objmid = $db->fetch_object($resultmid);
405  $tabtp[$obj->rowid][$objmid->accountancy_code] += $amounttouse;
406  }
407  } elseif ($links[$key]['type'] == 'payment_donation') {
408  $paymentdonstatic->id = $links[$key]['url_id'];
409  $paymentdonstatic->ref = $links[$key]['url_id'];
410  $paymentdonstatic->fk_donation = $links[$key]['url_id'];
411  $tabpay[$obj->rowid]["lib"] .= ' '.$paymentdonstatic->getNomUrl(2);
412  $tabpay[$obj->rowid]["paymentdonationid"] = $paymentdonstatic->id;
413  $tabtp[$obj->rowid][$account_pay_donation] += $amounttouse;
414  } elseif ($links[$key]['type'] == 'member') {
415  $paymentsubscriptionstatic->id = $links[$key]['url_id'];
416  $paymentsubscriptionstatic->ref = $links[$key]['url_id'];
417  $paymentsubscriptionstatic->label = $links[$key]['label'];
418  $tabpay[$obj->rowid]["lib"] .= ' '.$paymentsubscriptionstatic->getNomUrl(2);
419  $tabpay[$obj->rowid]["paymentsubscriptionid"] = $paymentsubscriptionstatic->id;
420  $paymentsubscriptionstatic->fetch($paymentsubscriptionstatic->id);
421  $tabtp[$obj->rowid][$account_pay_subscription] += $amounttouse;
422  } elseif ($links[$key]['type'] == 'payment_vat') { // Payment VAT
423  $paymentvatstatic->id = $links[$key]['url_id'];
424  $paymentvatstatic->ref = $links[$key]['url_id'];
425  $paymentvatstatic->label = $links[$key]['label'];
426  $tabpay[$obj->rowid]["lib"] .= ' '.$paymentvatstatic->getNomUrl(2);
427  $tabpay[$obj->rowid]["paymentvatid"] = $paymentvatstatic->id;
428  $tabtp[$obj->rowid][$account_pay_vat] += $amounttouse;
429  } elseif ($links[$key]['type'] == 'payment_salary') {
430  $paymentsalstatic->id = $links[$key]['url_id'];
431  $paymentsalstatic->ref = $links[$key]['url_id'];
432  $paymentsalstatic->label = $links[$key]['label'];
433  $tabpay[$obj->rowid]["lib"] .= ' '.$paymentsalstatic->getNomUrl(2);
434  $tabpay[$obj->rowid]["paymentsalid"] = $paymentsalstatic->id;
435 
436  // This part of code is no more required. it is here to solve case where a link were missing (ith v14.0.0) and keep writing in accountancy complete.
437  // Note: A better way to fix this is to delete payment of salary and recreate it, or to fix the bookkeeping table manually after.
438  if (!empty($conf->global->ACCOUNTANCY_AUTOFIX_MISSING_LINK_TO_USEr_ON_SALARY_BANK_PAYMENT)) {
439  $tmpsalary = new Salary($db);
440  $tmpsalary->fetch($paymentsalstatic->id);
441  $tmpsalary->fetch_user($tmpsalary->fk_user);
442 
443  $userstatic->id = $tmpsalary->user->id;
444  $userstatic->name = $tmpsalary->user->name;
445  $userstatic->email = $tmpsalary->user->email;
446  $userstatic->firstname = $tmpsalary->user->firstname;
447  $userstatic->lastname = $tmpsalary->user->lastname;
448  $userstatic->statut = $tmpsalary->user->statut;
449  $userstatic->accountancy_code = $tmpsalary->user->accountancy_code;
450 
451  if ($userstatic->id > 0) {
452  $tabpay[$obj->rowid]["soclib"] = $userstatic->getNomUrl(1, 'accountancy', 0);
453  } else {
454  $tabpay[$obj->rowid]["soclib"] = '???'; // Should not happen
455  }
456 
457  if (empty($obj->typeop_user)) { // Add test to avoid to add amount twice if a link already exists also on user.
458  $compta_user = $userstatic->accountancy_code;
459  if ($compta_user) {
460  $tabtp[$obj->rowid][$compta_user] += $amounttouse;
461  $tabuser[$obj->rowid] = array(
462  'id' => $userstatic->id,
463  'name' => dolGetFirstLastname($userstatic->firstname, $userstatic->lastname),
464  'lastname' => $userstatic->lastname,
465  'firstname' => $userstatic->firstname,
466  'email' => $userstatic->email,
467  'accountancy_code' => $compta_user,
468  'status' => $userstatic->statut
469  );
470  }
471  }
472  }
473  } elseif ($links[$key]['type'] == 'payment_expensereport') {
474  $paymentexpensereportstatic->id = $links[$key]['url_id'];
475  $tabpay[$obj->rowid]["lib"] .= $paymentexpensereportstatic->getNomUrl(2);
476  $tabpay[$obj->rowid]["paymentexpensereport"] = $paymentexpensereportstatic->id;
477  } elseif ($links[$key]['type'] == 'payment_various') {
478  $paymentvariousstatic->id = $links[$key]['url_id'];
479  $paymentvariousstatic->ref = $links[$key]['url_id'];
480  $paymentvariousstatic->label = $links[$key]['label'];
481  $tabpay[$obj->rowid]["lib"] .= ' '.$paymentvariousstatic->getNomUrl(2);
482  $tabpay[$obj->rowid]["paymentvariousid"] = $paymentvariousstatic->id;
483  $paymentvariousstatic->fetch($paymentvariousstatic->id);
484  $account_various = (!empty($paymentvariousstatic->accountancy_code) ? $paymentvariousstatic->accountancy_code : 'NotDefined'); // NotDefined is a reserved word
485  $account_subledger = (!empty($paymentvariousstatic->subledger_account) ? $paymentvariousstatic->subledger_account : ''); // NotDefined is a reserved word
486  $tabpay[$obj->rowid]["account_various"] = $account_various;
487  $tabtp[$obj->rowid][$account_subledger] += $amounttouse;
488  } elseif ($links[$key]['type'] == 'payment_loan') {
489  $paymentloanstatic->id = $links[$key]['url_id'];
490  $paymentloanstatic->ref = $links[$key]['url_id'];
491  $paymentloanstatic->fk_loan = $links[$key]['url_id'];
492  $tabpay[$obj->rowid]["lib"] .= ' '.$paymentloanstatic->getNomUrl(2);
493  $tabpay[$obj->rowid]["paymentloanid"] = $paymentloanstatic->id;
494  //$tabtp[$obj->rowid][$account_pay_loan] += $amounttouse;
495  $sqlmid = 'SELECT pl.amount_capital, pl.amount_insurance, pl.amount_interest, l.accountancy_account_capital, l.accountancy_account_insurance, l.accountancy_account_interest';
496  $sqlmid .= ' FROM '.MAIN_DB_PREFIX.'payment_loan as pl, '.MAIN_DB_PREFIX.'loan as l';
497  $sqlmid .= ' WHERE l.rowid = pl.fk_loan AND pl.fk_bank = '.((int) $obj->rowid);
498 
499  dol_syslog("accountancy/journal/bankjournal.php:: sqlmid=".$sqlmid, LOG_DEBUG);
500  $resultmid = $db->query($sqlmid);
501  if ($resultmid) {
502  $objmid = $db->fetch_object($resultmid);
503  $tabtp[$obj->rowid][$objmid->accountancy_account_capital] -= $objmid->amount_capital;
504  $tabtp[$obj->rowid][$objmid->accountancy_account_insurance] -= $objmid->amount_insurance;
505  $tabtp[$obj->rowid][$objmid->accountancy_account_interest] -= $objmid->amount_interest;
506  }
507  } elseif ($links[$key]['type'] == 'banktransfert') {
508  $accountLinestatic->fetch($links[$key]['url_id']);
509  $tabpay[$obj->rowid]["lib"] .= ' '.$langs->trans("BankTransfer").'- '.$accountLinestatic ->getNomUrl(1);
510  $tabtp[$obj->rowid][$account_transfer] += $amounttouse;
511  $bankaccountstatic->fetch($tabpay[$obj->rowid]['fk_bank_account']);
512  $tabpay[$obj->rowid]["soclib"] = $bankaccountstatic->getNomUrl(2);
513  }
514  }
515  }
516 
517  if (empty($tabbq[$obj->rowid][$compta_bank])) {
518  $tabbq[$obj->rowid][$compta_bank] = $amounttouse;
519  } else {
520  $tabbq[$obj->rowid][$compta_bank] += $amounttouse;
521  }
522 
523  // If no links were found to know the amount on thirdparty, we try to guess it.
524  // This may happens on bank entries without the links lines to 'company'.
525  if (empty($tabtp[$obj->rowid]) && !empty($tabmoreinfo[$obj->rowid]['withdraw'])) { // If we dont find 'company' link because it is an old 'withdraw' record
526  foreach ($links as $key => $val) {
527  if ($links[$key]['type'] == 'payment') {
528  // Get thirdparty
529  $tmppayment->fetch($links[$key]['url_id']);
530  $arrayofamounts = $tmppayment->getAmountsArray();
531  if (is_array($arrayofamounts)) {
532  foreach ($arrayofamounts as $invoiceid => $amount) {
533  $tmpinvoice->fetch($invoiceid);
534  $tmpinvoice->fetch_thirdparty();
535  if ($tmpinvoice->thirdparty->code_compta) {
536  $tabtp[$obj->rowid][$tmpinvoice->thirdparty->code_compta] += $amount;
537  }
538  }
539  }
540  }
541  }
542  }
543 
544  // If no links were found to know the amount on thirdparty/user, we init it to account 'NotDefined'.
545  if (empty($tabtp[$obj->rowid])) {
546  $tabtp[$obj->rowid]['NotDefined'] = $tabbq[$obj->rowid][$compta_bank];
547  }
548 
549  // Check account number is ok
550  /*if ($action == 'writebookkeeping') // Make test now in such a case
551  {
552  reset($tabbq[$obj->rowid]);
553  $first_key_tabbq = key($tabbq[$obj->rowid]);
554  if (empty($first_key_tabbq))
555  {
556  $error++;
557  setEventMessages($langs->trans('ErrorAccountancyCodeOnBankAccountNotDefined', $obj->baref), null, 'errors');
558  }
559  reset($tabtp[$obj->rowid]);
560  $first_key_tabtp = key($tabtp[$obj->rowid]);
561  if (empty($first_key_tabtp))
562  {
563  $error++;
564  setEventMessages($langs->trans('ErrorAccountancyCodeOnThirdPartyNotDefined'), null, 'errors');
565  }
566  }*/
567 
568  // if($obj->socid)$tabtp[$obj->rowid][$compta_soc] += $amounttouse;
569 
570  $i++;
571  }
572 } else {
573  dol_print_error($db);
574 }
575 
576 
577 //var_dump($tabpay);
578 //var_dump($tabcompany);
579 //var_dump($tabbq);
580 //var_dump($tabtp);
581 //var_dump($tabtype);
582 
583 // Write bookkeeping
584 if (!$error && $action == 'writebookkeeping') {
585  $now = dol_now();
586 
587  $accountingaccountcustomer = new AccountingAccount($db);
588  $accountingaccountcustomer->fetch(null, $conf->global->ACCOUNTING_ACCOUNT_CUSTOMER, true);
589 
590  $accountingaccountsupplier = new AccountingAccount($db);
591  $accountingaccountsupplier->fetch(null, $conf->global->ACCOUNTING_ACCOUNT_SUPPLIER, true);
592 
593  $accountingaccountpayment = new AccountingAccount($db);
594  $accountingaccountpayment->fetch(null, $conf->global->SALARIES_ACCOUNTING_ACCOUNT_PAYMENT, true);
595 
596  $accountingaccountsuspense = new AccountingAccount($db);
597  $accountingaccountsuspense->fetch(null, $conf->global->ACCOUNTING_ACCOUNT_SUSPENSE, true);
598 
599  $error = 0;
600  foreach ($tabpay as $key => $val) { // $key is rowid into llx_bank
601  $date = dol_print_date($db->jdate($val["date"]), 'day');
602 
603  $ref = getSourceDocRef($val, $tabtype[$key]);
604 
605  $errorforline = 0;
606 
607  $totalcredit = 0;
608  $totaldebit = 0;
609 
610  $db->begin();
611 
612  // Introduce a protection. Total of tabtp must be total of tabbq
613  //var_dump($tabpay);
614  //var_dump($tabtp);
615  //var_dump($tabbq);exit;
616 
617  // Bank
618  if (!$errorforline && is_array($tabbq[$key])) {
619  // Line into bank account
620  foreach ($tabbq[$key] as $k => $mt) {
621  if ($mt) {
622  $accountingaccount->fetch(null, $k, true); // $k is accounting bank account. TODO We should use a cache here to avoid this fetch
623  $account_label = $accountingaccount->label;
624 
625  $reflabel = '';
626  if (!empty($val['lib'])) {
627  $reflabel .= dol_string_nohtmltag($val['lib'])." - ";
628  }
629  $reflabel .= $langs->trans("Bank").' '.dol_string_nohtmltag($val['bank_account_ref']);
630  if (!empty($val['soclib'])) {
631  $reflabel .= " - ".dol_string_nohtmltag($val['soclib']);
632  }
633 
634  $bookkeeping = new BookKeeping($db);
635  $bookkeeping->doc_date = $val["date"];
636  $bookkeeping->doc_ref = $ref;
637  $bookkeeping->doc_type = 'bank';
638  $bookkeeping->fk_doc = $key;
639  $bookkeeping->fk_docdet = $val["fk_bank"];
640 
641  $bookkeeping->numero_compte = $k;
642  $bookkeeping->label_compte = $account_label;
643 
644  $bookkeeping->label_operation = $reflabel;
645  $bookkeeping->montant = $mt;
646  $bookkeeping->sens = ($mt >= 0) ? 'D' : 'C';
647  $bookkeeping->debit = ($mt >= 0 ? $mt : 0);
648  $bookkeeping->credit = ($mt < 0 ? -$mt : 0);
649  $bookkeeping->code_journal = $journal;
650  $bookkeeping->journal_label = $langs->transnoentities($journal_label);
651  $bookkeeping->fk_user_author = $user->id;
652  $bookkeeping->date_creation = $now;
653 
654  // No subledger_account value for the bank line but add a specific label_operation
655  $bookkeeping->subledger_account = '';
656  $bookkeeping->label_operation = $reflabel;
657  $bookkeeping->entity = $conf->entity;
658 
659  $totaldebit += $bookkeeping->debit;
660  $totalcredit += $bookkeeping->credit;
661 
662  $result = $bookkeeping->create($user);
663  if ($result < 0) {
664  if ($bookkeeping->error == 'BookkeepingRecordAlreadyExists') { // Already exists
665  $error++;
666  $errorforline++;
667  setEventMessages('Transaction for ('.$bookkeeping->doc_type.', '.$bookkeeping->fk_doc.', '.$bookkeeping->fk_docdet.') were already recorded', null, 'warnings');
668  } else {
669  $error++;
670  $errorforline++;
671  setEventMessages($bookkeeping->error, $bookkeeping->errors, 'errors');
672  }
673  }
674  }
675  }
676  }
677 
678  // Third party
679  if (!$errorforline) {
680  if (is_array($tabtp[$key])) {
681  // Line into thirdparty account
682  foreach ($tabtp[$key] as $k => $mt) {
683  if ($mt) {
684  $lettering = false;
685 
686  $reflabel = '';
687  if (!empty($val['lib'])) {
688  $reflabel .= dol_string_nohtmltag($val['lib']).($val['soclib'] ? " - " : "");
689  }
690  if ($tabtype[$key] == 'banktransfert') {
691  $reflabel .= dol_string_nohtmltag($langs->transnoentitiesnoconv('TransitionalAccount').' '.$account_transfer);
692  } else {
693  $reflabel .= dol_string_nohtmltag($val['soclib']);
694  }
695 
696  $bookkeeping = new BookKeeping($db);
697  $bookkeeping->doc_date = $val["date"];
698  $bookkeeping->doc_ref = $ref;
699  $bookkeeping->doc_type = 'bank';
700  $bookkeeping->fk_doc = $key;
701  $bookkeeping->fk_docdet = $val["fk_bank"];
702 
703  $bookkeeping->label_operation = $reflabel;
704  $bookkeeping->montant = $mt;
705  $bookkeeping->sens = ($mt < 0) ? 'D' : 'C';
706  $bookkeeping->debit = ($mt < 0 ? -$mt : 0);
707  $bookkeeping->credit = ($mt >= 0) ? $mt : 0;
708  $bookkeeping->code_journal = $journal;
709  $bookkeeping->journal_label = $langs->transnoentities($journal_label);
710  $bookkeeping->fk_user_author = $user->id;
711  $bookkeeping->date_creation = $now;
712 
713  if ($tabtype[$key] == 'payment') { // If payment is payment of customer invoice, we get ref of invoice
714  $lettering = true;
715  $bookkeeping->subledger_account = $k; // For payment, the subledger account is stored as $key of $tabtp
716  $bookkeeping->subledger_label = $tabcompany[$key]['name']; // $tabcompany is defined only if we are sure there is 1 thirdparty for the bank transaction
717  $bookkeeping->numero_compte = $conf->global->ACCOUNTING_ACCOUNT_CUSTOMER;
718  $bookkeeping->label_compte = $accountingaccountcustomer->label;
719  } elseif ($tabtype[$key] == 'payment_supplier') { // If payment is payment of supplier invoice, we get ref of invoice
720  $lettering = true;
721  $bookkeeping->subledger_account = $k; // For payment, the subledger account is stored as $key of $tabtp
722  $bookkeeping->subledger_label = $tabcompany[$key]['name']; // $tabcompany is defined only if we are sure there is 1 thirdparty for the bank transaction
723  $bookkeeping->numero_compte = $conf->global->ACCOUNTING_ACCOUNT_SUPPLIER;
724  $bookkeeping->label_compte = $accountingaccountsupplier->label;
725  } elseif ($tabtype[$key] == 'payment_expensereport') {
726  $bookkeeping->subledger_account = $tabuser[$key]['accountancy_code'];
727  $bookkeeping->subledger_label = $tabuser[$key]['name'];
728  $bookkeeping->numero_compte = $conf->global->SALARIES_ACCOUNTING_ACCOUNT_PAYMENT;
729  $bookkeeping->label_compte = $accountingaccountpayment->label;
730  } elseif ($tabtype[$key] == 'payment_salary') {
731  $bookkeeping->subledger_account = $tabuser[$key]['accountancy_code'];
732  $bookkeeping->subledger_label = $tabuser[$key]['name'];
733  $bookkeeping->numero_compte = $conf->global->SALARIES_ACCOUNTING_ACCOUNT_PAYMENT;
734  $bookkeeping->label_compte = $accountingaccountpayment->label;
735  } elseif (in_array($tabtype[$key], array('sc', 'payment_sc'))) { // If payment is payment of social contribution
736  $bookkeeping->subledger_account = '';
737  $bookkeeping->subledger_label = '';
738  $accountingaccount->fetch(null, $k, true); // TODO Use a cache
739  $bookkeeping->numero_compte = $k;
740  $bookkeeping->label_compte = $accountingaccount->label;
741  } elseif ($tabtype[$key] == 'payment_vat') {
742  $bookkeeping->subledger_account = '';
743  $bookkeeping->subledger_label = '';
744  $accountingaccount->fetch(null, $k, true); // TODO Use a cache
745  $bookkeeping->numero_compte = $k;
746  $bookkeeping->label_compte = $accountingaccount->label;
747  } elseif ($tabtype[$key] == 'payment_donation') {
748  $bookkeeping->subledger_account = '';
749  $bookkeeping->subledger_label = '';
750  $accountingaccount->fetch(null, $k, true); // TODO Use a cache
751  $bookkeeping->numero_compte = $k;
752  $bookkeeping->label_compte = $accountingaccount->label;
753  } elseif ($tabtype[$key] == 'member') {
754  $bookkeeping->subledger_account = '';
755  $bookkeeping->subledger_label = '';
756  $accountingaccount->fetch(null, $k, true); // TODO Use a cache
757  $bookkeeping->numero_compte = $k;
758  $bookkeeping->label_compte = $accountingaccount->label;
759  } elseif ($tabtype[$key] == 'payment_loan') {
760  $bookkeeping->subledger_account = '';
761  $bookkeeping->subledger_label = '';
762  $accountingaccount->fetch(null, $k, true); // TODO Use a cache
763  $bookkeeping->numero_compte = $k;
764  $bookkeeping->label_compte = $accountingaccount->label;
765  } elseif ($tabtype[$key] == 'payment_various') {
766  $bookkeeping->subledger_account = $k;
767  $bookkeeping->subledger_label = $tabcompany[$key]['name'];
768  $accountingaccount->fetch(null, $tabpay[$key]["account_various"], true); // TODO Use a cache
769  $bookkeeping->numero_compte = $tabpay[$key]["account_various"];
770  $bookkeeping->label_compte = $accountingaccount->label;
771  } elseif ($tabtype[$key] == 'banktransfert') {
772  $bookkeeping->subledger_account = '';
773  $bookkeeping->subledger_label = '';
774  $accountingaccount->fetch(null, $k, true); // TODO Use a cache
775  $bookkeeping->numero_compte = $k;
776  $bookkeeping->label_compte = $accountingaccount->label;
777  } else {
778  if ($tabtype[$key] == 'unknown') { // Unknown transaction, we will use a waiting account for thirdparty.
779  // Temporary account
780  $bookkeeping->subledger_account = '';
781  $bookkeeping->subledger_label = '';
782  $bookkeeping->numero_compte = $conf->global->ACCOUNTING_ACCOUNT_SUSPENSE;
783  $bookkeeping->label_compte = $accountingaccountsuspense->label;
784  }
785  }
786  $bookkeeping->label_operation = $reflabel;
787  $bookkeeping->entity = $conf->entity;
788 
789  $totaldebit += $bookkeeping->debit;
790  $totalcredit += $bookkeeping->credit;
791 
792  $result = $bookkeeping->create($user);
793  if ($result < 0) {
794  if ($bookkeeping->error == 'BookkeepingRecordAlreadyExists') { // Already exists
795  $error++;
796  $errorforline++;
797  setEventMessages('Transaction for ('.$bookkeeping->doc_type.', '.$bookkeeping->fk_doc.', '.$bookkeeping->fk_docdet.') were already recorded', null, 'warnings');
798  } else {
799  $error++;
800  $errorforline++;
801  setEventMessages($bookkeeping->error, $bookkeeping->errors, 'errors');
802  }
803  } else {
804  if ($lettering && getDolGlobalInt('ACCOUNTING_ENABLE_LETTERING') && getDolGlobalInt('ACCOUNTING_ENABLE_AUTOLETTERING')) {
805  require_once DOL_DOCUMENT_ROOT . '/accountancy/class/lettering.class.php';
806  $lettering_static = new Lettering($db);
807  $nb_lettering = $lettering_static->bookkeepingLetteringAll(array($bookkeeping->id));
808  }
809  }
810  }
811  }
812  } else { // If thirdparty unknown, output the waiting account
813  foreach ($tabbq[$key] as $k => $mt) {
814  if ($mt) {
815  $reflabel = '';
816  if (!empty($val['lib'])) {
817  $reflabel .= dol_string_nohtmltag($val['lib'])." - ";
818  }
819  $reflabel .= dol_string_nohtmltag('WaitingAccount');
820 
821  $bookkeeping = new BookKeeping($db);
822  $bookkeeping->doc_date = $val["date"];
823  $bookkeeping->doc_ref = $ref;
824  $bookkeeping->doc_type = 'bank';
825  $bookkeeping->fk_doc = $key;
826  $bookkeeping->fk_docdet = $val["fk_bank"];
827  $bookkeeping->montant = $mt;
828  $bookkeeping->sens = ($mt < 0) ? 'D' : 'C';
829  $bookkeeping->debit = ($mt < 0 ? -$mt : 0);
830  $bookkeeping->credit = ($mt >= 0) ? $mt : 0;
831  $bookkeeping->code_journal = $journal;
832  $bookkeeping->journal_label = $langs->transnoentities($journal_label);
833  $bookkeeping->fk_user_author = $user->id;
834  $bookkeeping->date_creation = $now;
835  $bookkeeping->label_compte = '';
836  $bookkeeping->label_operation = $reflabel;
837  $bookkeeping->entity = $conf->entity;
838 
839  $totaldebit += $bookkeeping->debit;
840  $totalcredit += $bookkeeping->credit;
841 
842  $result = $bookkeeping->create($user);
843 
844  if ($result < 0) {
845  if ($bookkeeping->error == 'BookkeepingRecordAlreadyExists') { // Already exists
846  $error++;
847  $errorforline++;
848  setEventMessages('Transaction for ('.$bookkeeping->doc_type.', '.$bookkeeping->fk_doc.', '.$bookkeeping->fk_docdet.') were already recorded', null, 'warnings');
849  } else {
850  $error++;
851  $errorforline++;
852  setEventMessages($bookkeeping->error, $bookkeeping->errors, 'errors');
853  }
854  }
855  }
856  }
857  }
858  }
859 
860  if (price2num($totaldebit, 'MT') != price2num($totalcredit, 'MT')) {
861  $error++;
862  $errorforline++;
863  setEventMessages('Try to insert a non balanced transaction in book for '.$ref.'. Canceled. Surely a bug.', null, 'errors');
864  }
865 
866  if (!$errorforline) {
867  $db->commit();
868  } else {
869  //print 'KO for line '.$key.' '.$error.'<br>';
870  $db->rollback();
871 
872  $MAXNBERRORS = 5;
873  if ($error >= $MAXNBERRORS) {
874  setEventMessages($langs->trans("ErrorTooManyErrorsProcessStopped").' (>'.$MAXNBERRORS.')', null, 'errors');
875  break; // Break in the foreach
876  }
877  }
878  }
879 
880  if (empty($error) && count($tabpay) > 0) {
881  setEventMessages($langs->trans("GeneralLedgerIsWritten"), null, 'mesgs');
882  } elseif (count($tabpay) == $error) {
883  setEventMessages($langs->trans("NoNewRecordSaved"), null, 'warnings');
884  } else {
885  setEventMessages($langs->trans("GeneralLedgerSomeRecordWasNotRecorded"), null, 'warnings');
886  }
887 
888  $action = '';
889 
890  // Must reload data, so we make a redirect
891  if (count($tabpay) != $error) {
892  $param = 'id_journal='.$id_journal;
893  $param .= '&date_startday='.$date_startday;
894  $param .= '&date_startmonth='.$date_startmonth;
895  $param .= '&date_startyear='.$date_startyear;
896  $param .= '&date_endday='.$date_endday;
897  $param .= '&date_endmonth='.$date_endmonth;
898  $param .= '&date_endyear='.$date_endyear;
899  $param .= '&in_bookkeeping='.$in_bookkeeping;
900  header("Location: ".$_SERVER['PHP_SELF'].($param ? '?'.$param : ''));
901  exit;
902  }
903 }
904 
905 
906 
907 // Export
908 if ($action == 'exportcsv') { // ISO and not UTF8 !
909  $sep = $conf->global->ACCOUNTING_EXPORT_SEPARATORCSV;
910 
911  $filename = 'journal';
912  $type_export = 'journal';
913  include DOL_DOCUMENT_ROOT.'/accountancy/tpl/export_journal.tpl.php';
914 
915  // CSV header line
916  print '"'.$langs->transnoentitiesnoconv("BankId").'"'.$sep;
917  print '"'.$langs->transnoentitiesnoconv("Date").'"'.$sep;
918  print '"'.$langs->transnoentitiesnoconv("PaymentMode").'"'.$sep;
919  print '"'.$langs->transnoentitiesnoconv("AccountAccounting").'"'.$sep;
920  print '"'.$langs->transnoentitiesnoconv("LedgerAccount").'"'.$sep;
921  print '"'.$langs->transnoentitiesnoconv("SubledgerAccount").'"'.$sep;
922  print '"'.$langs->transnoentitiesnoconv("Label").'"'.$sep;
923  print '"'.$langs->transnoentitiesnoconv("AccountingDebit").'"'.$sep;
924  print '"'.$langs->transnoentitiesnoconv("AccountingCredit").'"'.$sep;
925  print '"'.$langs->transnoentitiesnoconv("Journal").'"'.$sep;
926  print '"'.$langs->transnoentitiesnoconv("Note").'"'.$sep;
927  print "\n";
928 
929  foreach ($tabpay as $key => $val) {
930  $date = dol_print_date($db->jdate($val["date"]), 'day');
931 
932  $ref = getSourceDocRef($val, $tabtype[$key]);
933 
934  // Bank
935  foreach ($tabbq[$key] as $k => $mt) {
936  if ($mt) {
937  $reflabel = '';
938  if (!empty($val['lib'])) {
939  $reflabel .= dol_string_nohtmltag($val['lib'])." - ";
940  }
941  $reflabel .= $langs->trans("Bank").' '.dol_string_nohtmltag($val['bank_account_ref']);
942  if (!empty($val['soclib'])) {
943  $reflabel .= " - ".dol_string_nohtmltag($val['soclib']);
944  }
945 
946  print '"'.$key.'"'.$sep;
947  print '"'.$date.'"'.$sep;
948  print '"'.$val["type_payment"].'"'.$sep;
949  print '"'.length_accountg(html_entity_decode($k)).'"'.$sep;
950  print '"'.length_accounta(html_entity_decode($k)).'"'.$sep;
951  print " ".$sep;
952  print '"'.$reflabel.'"'.$sep;
953  print '"'.($mt >= 0 ? price($mt) : '').'"'.$sep;
954  print '"'.($mt < 0 ? price(-$mt) : '').'"'.$sep;
955  print '"'.$journal.'"'.$sep;
956  print '"'.dol_string_nohtmltag($ref).'"'.$sep;
957  print "\n";
958  }
959  }
960 
961  // Third party
962  if (is_array($tabtp[$key])) {
963  foreach ($tabtp[$key] as $k => $mt) {
964  if ($mt) {
965  $reflabel = '';
966  if (!empty($val['lib'])) {
967  $reflabel .= dol_string_nohtmltag($val['lib']).($val['soclib'] ? " - " : "");
968  }
969  if ($tabtype[$key] == 'banktransfert') {
970  $reflabel .= dol_string_nohtmltag($langs->transnoentitiesnoconv('TransitionalAccount').' '.$account_transfer);
971  } else {
972  $reflabel .= dol_string_nohtmltag($val['soclib']);
973  }
974 
975  print '"'.$key.'"'.$sep;
976  print '"'.$date.'"'.$sep;
977  print '"'.$val["type_payment"].'"'.$sep;
978  print '"'.length_accountg(html_entity_decode($k)).'"'.$sep;
979  if ($tabtype[$key] == 'payment_supplier') {
980  print '"'.$conf->global->ACCOUNTING_ACCOUNT_SUPPLIER.'"'.$sep;
981  } elseif ($tabtype[$key] == 'payment') {
982  print '"'.$conf->global->ACCOUNTING_ACCOUNT_CUSTOMER.'"'.$sep;
983  } elseif ($tabtype[$key] == 'payment_expensereport') {
984  print '"'.$conf->global->SALARIES_ACCOUNTING_ACCOUNT_PAYMENT.'"'.$sep;
985  } elseif ($tabtype[$key] == 'payment_salary') {
986  print '"'.$conf->global->SALARIES_ACCOUNTING_ACCOUNT_PAYMENT.'"'.$sep;
987  } else {
988  print '"'.length_accountg(html_entity_decode($k)).'"'.$sep;
989  }
990  print '"'.length_accounta(html_entity_decode($k)).'"'.$sep;
991  print '"'.$reflabel.'"'.$sep;
992  print '"'.($mt < 0 ? price(-$mt) : '').'"'.$sep;
993  print '"'.($mt >= 0 ? price($mt) : '').'"'.$sep;
994  print '"'.$journal.'"'.$sep;
995  print '"'.dol_string_nohtmltag($ref).'"'.$sep;
996  print "\n";
997  }
998  }
999  } else { // If thirdparty unkown, output the waiting account
1000  foreach ($tabbq[$key] as $k => $mt) {
1001  if ($mt) {
1002  $reflabel = '';
1003  if (!empty($val['lib'])) {
1004  $reflabel .= dol_string_nohtmltag($val['lib'])." - ";
1005  }
1006  $reflabel .= dol_string_nohtmltag('WaitingAccount');
1007 
1008  print '"'.$key.'"'.$sep;
1009  print '"'.$date.'"'.$sep;
1010  print '"'.$val["type_payment"].'"'.$sep;
1011  print '"'.length_accountg($conf->global->ACCOUNTING_ACCOUNT_SUSPENSE).'"'.$sep;
1012  print '"'.length_accounta($conf->global->ACCOUNTING_ACCOUNT_SUSPENSE).'"'.$sep;
1013  print "".$sep;
1014  print '"'.$reflabel.'"'.$sep;
1015  print '"'.($mt < 0 ? price(-$mt) : '').'"'.$sep;
1016  print '"'.($mt >= 0 ? price($mt) : '').'"'.$sep;
1017  print '"'.$journal.'"'.$sep;
1018  print '"'.dol_string_nohtmltag($ref).'"'.$sep;
1019  print "\n";
1020  }
1021  }
1022  }
1023  }
1024 }
1025 
1026 
1027 /*
1028  * View
1029  */
1030 
1031 $form = new Form($db);
1032 
1033 if (empty($action) || $action == 'view') {
1034  $invoicestatic = new Facture($db);
1035  $invoicesupplierstatic = new FactureFournisseur($db);
1036  $expensereportstatic = new ExpenseReport($db);
1037  $vatstatic = new Tva($db);
1038  $donationstatic = new Don($db);
1039  $loanstatic = new Loan($db);
1040  $salarystatic = new Salary($db);
1041  $variousstatic = new PaymentVarious($db);
1042 
1043  $title = $langs->trans("GenerationOfAccountingEntries").' - '.$accountingjournalstatic->getNomUrl(0, 2, 1, '', 1);
1044 
1045  llxHeader('', dol_string_nohtmltag($title));
1046 
1047  $nom = $title;
1048  $builddate = dol_now();
1049  //$description = $langs->trans("DescFinanceJournal") . '<br>';
1050  $description = $langs->trans("DescJournalOnlyBindedVisible").'<br>';
1051 
1052  $listofchoices = array(
1053  'notyet'=>$langs->trans("NotYetInGeneralLedger"),
1054  'already'=>$langs->trans("AlreadyInGeneralLedger")
1055  );
1056  $period = $form->selectDate($date_start ? $date_start : -1, 'date_start', 0, 0, 0, '', 1, 0).' - '.$form->selectDate($date_end ? $date_end : -1, 'date_end', 0, 0, 0, '', 1, 0);
1057  $period .= ' - '.$langs->trans("JournalizationInLedgerStatus").' '.$form->selectarray('in_bookkeeping', $listofchoices, $in_bookkeeping, 1);
1058 
1059  $varlink = 'id_journal='.$id_journal;
1060  $periodlink = '';
1061  $exportlink = '';
1062 
1063  journalHead($nom, '', $period, $periodlink, $description, $builddate, $exportlink, array('action' => ''), '', $varlink);
1064 
1065  $desc = '';
1066 
1067  // Test that setup is complete (we are in accounting, so test on entity is always on $conf->entity only, no sharing allowed)
1068  $sql = "SELECT COUNT(rowid) as nb FROM ".MAIN_DB_PREFIX."bank_account WHERE entity = ".((int) $conf->entity)." AND fk_accountancy_journal IS NULL AND clos=0";
1069  $resql = $db->query($sql);
1070  if ($resql) {
1071  $obj = $db->fetch_object($resql);
1072  if ($obj->nb > 0) {
1073  print '<br><div class="warning">'.img_warning().' '.$langs->trans("TheJournalCodeIsNotDefinedOnSomeBankAccount");
1074  $desc = ' : '.$langs->trans("AccountancyAreaDescBank", 9, '{link}');
1075  $desc = str_replace('{link}', '<strong>'.$langs->transnoentitiesnoconv("MenuAccountancy").'-'.$langs->transnoentitiesnoconv("Setup")."-".$langs->transnoentitiesnoconv("BankAccounts").'</strong>', $desc);
1076  print $desc;
1077  print '</div>';
1078  }
1079  } else {
1080  dol_print_error($db);
1081  }
1082 
1083 
1084  // Button to write into Ledger
1085  if (($conf->global->ACCOUNTING_ACCOUNT_CUSTOMER == "") || $conf->global->ACCOUNTING_ACCOUNT_CUSTOMER == '-1'
1086  || ($conf->global->ACCOUNTING_ACCOUNT_SUPPLIER == "") || $conf->global->ACCOUNTING_ACCOUNT_SUPPLIER == '-1'
1087  || empty($conf->global->SALARIES_ACCOUNTING_ACCOUNT_PAYMENT) || $conf->global->SALARIES_ACCOUNTING_ACCOUNT_PAYMENT == '-1') {
1088  print ($desc ? '' : '<br>').'<div class="warning">'.img_warning().' '.$langs->trans("SomeMandatoryStepsOfSetupWereNotDone");
1089  $desc = ' : '.$langs->trans("AccountancyAreaDescMisc", 4, '{link}');
1090  $desc = str_replace('{link}', '<strong>'.$langs->transnoentitiesnoconv("MenuAccountancy").'-'.$langs->transnoentitiesnoconv("Setup")."-".$langs->transnoentitiesnoconv("MenuDefaultAccounts").'</strong>', $desc);
1091  print $desc;
1092  print '</div>';
1093  }
1094 
1095 
1096  print '<div class="tabsAction tabsActionNoBottom centerimp">';
1097 
1098  if (!empty($conf->global->ACCOUNTING_ENABLE_EXPORT_DRAFT_JOURNAL) && $in_bookkeeping == 'notyet') {
1099  print '<input type="button" class="butAction" name="exportcsv" value="'.$langs->trans("ExportDraftJournal").'" onclick="launch_export();" />';
1100  }
1101 
1102  if (($conf->global->ACCOUNTING_ACCOUNT_CUSTOMER == "") || $conf->global->ACCOUNTING_ACCOUNT_CUSTOMER == '-1'
1103  || ($conf->global->ACCOUNTING_ACCOUNT_SUPPLIER == "") || $conf->global->ACCOUNTING_ACCOUNT_SUPPLIER == '-1') {
1104  print '<input type="button" class="butActionRefused classfortooltip" title="'.dol_escape_htmltag($langs->trans("SomeMandatoryStepsOfSetupWereNotDone")).'" value="'.$langs->trans("WriteBookKeeping").'" />';
1105  } else {
1106  if ($in_bookkeeping == 'notyet') {
1107  print '<input type="button" class="butAction" name="writebookkeeping" value="'.$langs->trans("WriteBookKeeping").'" onclick="writebookkeeping();" />';
1108  } else {
1109  print '<a class="butActionRefused classfortooltip" name="writebookkeeping">'.$langs->trans("WriteBookKeeping").'</a>';
1110  }
1111  }
1112 
1113  print '</div>';
1114 
1115  // TODO Avoid using js. We can use a direct link with $param
1116  print '
1117  <script type="text/javascript">
1118  function launch_export() {
1119  console.log("Set value into form and submit");
1120  $("div.fiche form input[name=\"action\"]").val("exportcsv");
1121  $("div.fiche form input[type=\"submit\"]").click();
1122  $("div.fiche form input[name=\"action\"]").val("");
1123  }
1124  function writebookkeeping() {
1125  console.log("Set value into form and submit");
1126  $("div.fiche form input[name=\"action\"]").val("writebookkeeping");
1127  $("div.fiche form input[type=\"submit\"]").click();
1128  $("div.fiche form input[name=\"action\"]").val("");
1129  }
1130  </script>';
1131 
1132  /*
1133  * Show result array
1134  */
1135  print '<br>';
1136 
1137  $i = 0;
1138  print '<div class="div-table-responsive">';
1139  print '<table class="noborder centpercent">';
1140  print '<tr class="liste_titre">';
1141  print "<td>".$langs->trans("Date")."</td>";
1142  print "<td>".$langs->trans("Piece").' ('.$langs->trans("ObjectsRef").")</td>";
1143  print "<td>".$langs->trans("AccountAccounting")."</td>";
1144  print "<td>".$langs->trans("SubledgerAccount")."</td>";
1145  print "<td>".$langs->trans("LabelOperation")."</td>";
1146  print '<td class="center">'.$langs->trans("PaymentMode")."</td>";
1147  print '<td class="right">'.$langs->trans("AccountingDebit")."</td>";
1148  print '<td class="right">'.$langs->trans("AccountingCredit")."</td>";
1149  print "</tr>\n";
1150 
1151  $r = '';
1152 
1153  foreach ($tabpay as $key => $val) { // $key is rowid in llx_bank
1154  $date = dol_print_date($db->jdate($val["date"]), 'day');
1155 
1156  $ref = getSourceDocRef($val, $tabtype[$key]);
1157 
1158  // Bank
1159  foreach ($tabbq[$key] as $k => $mt) {
1160  if ($mt) {
1161  $reflabel = '';
1162  if (!empty($val['lib'])) {
1163  $reflabel .= $val['lib']." - ";
1164  }
1165  $reflabel .= $langs->trans("Bank").' '.$val['bank_account_ref'];
1166  if (!empty($val['soclib'])) {
1167  $reflabel .= " - ".$val['soclib'];
1168  }
1169 
1170  //var_dump($tabpay[$key]);
1171  print '<!-- Bank bank.rowid='.$key.' type='.$tabpay[$key]['type'].' ref='.$tabpay[$key]['ref'].'-->';
1172  print '<tr class="oddeven">';
1173 
1174  // Date
1175  print "<td>".$date."</td>";
1176 
1177  // Ref
1178  print "<td>".dol_escape_htmltag($ref)."</td>";
1179 
1180  // Ledger account
1181  $accounttoshow = length_accountg($k);
1182  if (empty($accounttoshow) || $accounttoshow == 'NotDefined') {
1183  $accounttoshow = '<span class="error">'.$langs->trans("BankAccountNotDefined").'</span>';
1184  }
1185  print '<td class="maxwidth300" title="'.dol_escape_htmltag(dol_string_nohtmltag($accounttoshow)).'">';
1186  print $accounttoshow;
1187  print "</td>";
1188 
1189  // Subledger account
1190  print '<td class="maxwidth300">';
1191  /*$accounttoshow = length_accountg($k);
1192  if (empty($accounttoshow) || $accounttoshow == 'NotDefined')
1193  {
1194  print '<span class="error">'.$langs->trans("BankAccountNotDefined").'</span>';
1195  }
1196  else print $accounttoshow;*/
1197  print "</td>";
1198 
1199  // Label operation
1200  print '<td>';
1201  print $reflabel; // This is already html escaped content
1202  print "</td>";
1203 
1204  print '<td class="center">'.$val["type_payment"]."</td>";
1205  print '<td class="right nowraponall amount">'.($mt >= 0 ? price($mt) : '')."</td>";
1206  print '<td class="right nowraponall amount">'.($mt < 0 ? price(-$mt) : '')."</td>";
1207  print "</tr>";
1208  }
1209  }
1210 
1211  // Third party
1212  if (is_array($tabtp[$key])) {
1213  foreach ($tabtp[$key] as $k => $mt) {
1214  if ($mt) {
1215  $reflabel = '';
1216  if (!empty($val['lib'])) {
1217  $reflabel .= $val['lib'].($val['soclib'] ? " - " : "");
1218  }
1219  if ($tabtype[$key] == 'banktransfert') {
1220  $reflabel .= $langs->trans('TransitionalAccount').' '.$account_transfer;
1221  } else {
1222  $reflabel .= $val['soclib'];
1223  }
1224 
1225  print '<!-- Thirdparty bank.rowid='.$key.' -->';
1226  print '<tr class="oddeven">';
1227 
1228  // Date
1229  print "<td>".$date."</td>";
1230 
1231  // Ref
1232  print "<td>".dol_escape_htmltag($ref)."</td>";
1233 
1234  // Ledger account
1235  $account_ledger = $k;
1236  // Try to force general ledger account depending on type
1237  if ($tabtype[$key] == 'payment') {
1238  $account_ledger = getDolGlobalString('ACCOUNTING_ACCOUNT_CUSTOMER');
1239  }
1240  if ($tabtype[$key] == 'payment_supplier') {
1241  $account_ledger = getDolGlobalString('ACCOUNTING_ACCOUNT_SUPPLIER');
1242  }
1243  if ($tabtype[$key] == 'payment_expensereport') {
1244  $account_ledger = getDolGlobalString('SALARIES_ACCOUNTING_ACCOUNT_PAYMENT');
1245  }
1246  if ($tabtype[$key] == 'payment_salary') {
1247  $account_ledger = getDolGlobalString('SALARIES_ACCOUNTING_ACCOUNT_PAYMENT');
1248  }
1249  if ($tabtype[$key] == 'payment_vat') {
1250  $account_ledger = getDolGlobalString('ACCOUNTING_VAT_PAY_ACCOUNT');
1251  }
1252  if ($tabtype[$key] == 'member') {
1253  $account_ledger = getDolGlobalString('ADHERENT_SUBSCRIPTION_ACCOUNTINGACCOUNT');
1254  }
1255  if ($tabtype[$key] == 'payment_various') {
1256  $account_ledger = $tabpay[$key]["account_various"];
1257  }
1258  $accounttoshow = length_accountg($account_ledger);
1259  if (empty($accounttoshow) || $accounttoshow == 'NotDefined') {
1260  if ($tabtype[$key] == 'unknown') {
1261  // We will accept writing, but into a waiting account
1262  if (empty($conf->global->ACCOUNTING_ACCOUNT_SUSPENSE) || $conf->global->ACCOUNTING_ACCOUNT_SUSPENSE == '-1') {
1263  $accounttoshow = '<span class="error small">'.$langs->trans('UnknownAccountForThirdpartyAndWaitingAccountNotDefinedBlocking').'</span>';
1264  } else {
1265  $accounttoshow = '<span class="warning small">'.$langs->trans('UnknownAccountForThirdparty', length_accountg($conf->global->ACCOUNTING_ACCOUNT_SUSPENSE)).'</span>'; // We will use a waiting account
1266  }
1267  } else {
1268  // We will refuse writing
1269  $errorstring = 'UnknownAccountForThirdpartyBlocking';
1270  if ($tabtype[$key] == 'payment') {
1271  $errorstring = 'MainAccountForCustomersNotDefined';
1272  }
1273  if ($tabtype[$key] == 'payment_supplier') {
1274  $errorstring = 'MainAccountForSuppliersNotDefined';
1275  }
1276  if ($tabtype[$key] == 'payment_expensereport') {
1277  $errorstring = 'MainAccountForUsersNotDefined';
1278  }
1279  if ($tabtype[$key] == 'payment_salary') {
1280  $errorstring = 'MainAccountForUsersNotDefined';
1281  }
1282  if ($tabtype[$key] == 'payment_vat') {
1283  $errorstring = 'MainAccountForVatPaymentNotDefined';
1284  }
1285  if ($tabtype[$key] == 'member') {
1286  $errorstring = 'MainAccountForSubscriptionPaymentNotDefined';
1287  }
1288  $accounttoshow = '<span class="error small">'.$langs->trans($errorstring).'</span>';
1289  }
1290  }
1291  print '<td class="maxwidth300" title="'.dol_escape_htmltag(dol_string_nohtmltag($accounttoshow)).'">';
1292  print $accounttoshow; // This is a HTML string
1293  print "</td>";
1294 
1295  // Subledger account
1296  $accounttoshowsubledger = '';
1297  if (in_array($tabtype[$key], array('payment', 'payment_supplier', 'payment_expensereport', 'payment_salary', 'payment_various'))) { // Type of payments that uses a subledger
1298  $accounttoshowsubledger = length_accounta($k);
1299  if ($accounttoshow != $accounttoshowsubledger) {
1300  if (empty($accounttoshowsubledger) || $accounttoshowsubledger == 'NotDefined') {
1301  //var_dump($tabpay[$key]);
1302  //var_dump($tabtype[$key]);
1303  //var_dump($tabbq[$key]);
1304  //print '<span class="error">'.$langs->trans("ThirdpartyAccountNotDefined").'</span>';
1305  if (!empty($tabcompany[$key]['code_compta'])) {
1306  if (in_array($tabtype[$key], array('payment_various', 'payment_salary'))) {
1307  // For such case, if subledger is not defined, we won't use subledger accounts.
1308  $accounttoshowsubledger = '<span class="warning small">'.$langs->trans("ThirdpartyAccountNotDefinedOrThirdPartyUnknownSubledgerIgnored").'</span>';
1309  } else {
1310  $accounttoshowsubledger = '<span class="warning small">'.$langs->trans("ThirdpartyAccountNotDefinedOrThirdPartyUnknown", $tabcompany[$key]['code_compta']).'</span>';
1311  }
1312  } else {
1313  $accounttoshowsubledger = '<span class="error small">'.$langs->trans("ThirdpartyAccountNotDefinedOrThirdPartyUnknownBlocking").'</span>';
1314  }
1315  }
1316  } else {
1317  $accounttoshowsubledger = '';
1318  }
1319  }
1320  print '<td class="maxwidth300">';
1321  print $accounttoshowsubledger; // This is a html string
1322  print "</td>";
1323 
1324  print "<td>".$reflabel."</td>";
1325 
1326  print '<td class="center">'.$val["type_payment"]."</td>";
1327 
1328  print '<td class="right nowraponall amount">'.($mt < 0 ? price(-$mt) : '')."</td>";
1329 
1330  print '<td class="right nowraponall amount">'.($mt >= 0 ? price($mt) : '')."</td>";
1331 
1332  print "</tr>";
1333  }
1334  }
1335  } else { // Waiting account
1336  foreach ($tabbq[$key] as $k => $mt) {
1337  if ($mt) {
1338  $reflabel = '';
1339  if (!empty($val['lib'])) {
1340  $reflabel .= $val['lib']." - ";
1341  }
1342  $reflabel .= 'WaitingAccount';
1343 
1344  print '<!-- Wait bank.rowid='.$key.' -->';
1345  print '<tr class="oddeven">';
1346  print "<td>".$date."</td>";
1347  print "<td>".$ref."</td>";
1348  // Ledger account
1349  print "<td>";
1350  /*if (empty($accounttoshow) || $accounttoshow == 'NotDefined')
1351  {
1352  print '<span class="error">'.$langs->trans("WaitAccountNotDefined").'</span>';
1353  }
1354  else */ print length_accountg($conf->global->ACCOUNTING_ACCOUNT_SUSPENSE);
1355  print "</td>";
1356  // Subledger account
1357  print "<td>";
1358  /*if (empty($accounttoshowsubledger) || $accounttoshowsubledger == 'NotDefined')
1359  {
1360  print '<span class="error">'.$langs->trans("WaitAccountNotDefined").'</span>';
1361  }
1362  else print length_accountg($conf->global->ACCOUNTING_ACCOUNT_SUSPENSE);
1363  */
1364  print "</td>";
1365  print "<td>".$reflabel."</td>";
1366  print '<td class="center">'.$val["type_payment"]."</td>";
1367  print '<td class="right nowraponall amount">'.($mt < 0 ? price(-$mt) : '')."</td>";
1368  print '<td class="right nowraponall amount">'.($mt >= 0 ? price($mt) : '')."</td>";
1369  print "</tr>";
1370  }
1371  }
1372  }
1373  }
1374 
1375  print "</table>";
1376  print '</div>';
1377 
1378  llxFooter();
1379 }
1380 
1381 $db->close();
1382 
1383 
1384 
1392 function getSourceDocRef($val, $typerecord)
1393 {
1394  global $db, $langs;
1395 
1396  // Defined the docref into $ref (We start with $val['ref'] by default and we complete according to other data)
1397  // WE MUST HAVE SAME REF FOR ALL LINES WE WILL RECORD INTO THE BOOKKEEPING
1398  $ref = $val['ref'];
1399  if ($ref == '(SupplierInvoicePayment)' || $ref == '(SupplierInvoicePaymentBack)') {
1400  $ref = $langs->transnoentitiesnoconv('Supplier');
1401  }
1402  if ($ref == '(CustomerInvoicePayment)' || $ref == '(CustomerInvoicePaymentBack)') {
1403  $ref = $langs->transnoentitiesnoconv('Customer');
1404  }
1405  if ($ref == '(SocialContributionPayment)') {
1406  $ref = $langs->transnoentitiesnoconv('SocialContribution');
1407  }
1408  if ($ref == '(DonationPayment)') {
1409  $ref = $langs->transnoentitiesnoconv('Donation');
1410  }
1411  if ($ref == '(SubscriptionPayment)') {
1412  $ref = $langs->transnoentitiesnoconv('Subscription');
1413  }
1414  if ($ref == '(ExpenseReportPayment)') {
1415  $ref = $langs->transnoentitiesnoconv('Employee');
1416  }
1417  if ($ref == '(LoanPayment)') {
1418  $ref = $langs->transnoentitiesnoconv('Loan');
1419  }
1420  if ($ref == '(payment_salary)') {
1421  $ref = $langs->transnoentitiesnoconv('Employee');
1422  }
1423 
1424  $sqlmid = '';
1425  if ($typerecord == 'payment') {
1426  if (getDolGlobalInt('FACTURE_DEPOSITS_ARE_JUST_PAYMENTS')) {
1427  $sqlmid = "SELECT payfac.fk_facture as id, ".$db->ifsql('f1.rowid IS NULL', 'f.ref', 'f1.ref')." as ref";
1428  $sqlmid .= " FROM ".$db->prefix()."paiement_facture as payfac";
1429  $sqlmid .= " LEFT JOIN ".$db->prefix()."facture as f ON f.rowid = payfac.fk_facture";
1430  $sqlmid .= " LEFT JOIN ".$db->prefix()."societe_remise_except as sre ON sre.fk_facture_source = payfac.fk_facture";
1431  $sqlmid .= " LEFT JOIN ".$db->prefix()."facture as f1 ON f1.rowid = sre.fk_facture";
1432  $sqlmid .= " WHERE payfac.fk_paiement=".((int) $val['paymentid']);
1433  } else {
1434  $sqlmid = "SELECT payfac.fk_facture as id, f.ref as ref";
1435  $sqlmid .= " FROM ".$db->prefix()."paiement_facture as payfac";
1436  $sqlmid .= " INNER JOIN ".$db->prefix()."facture as f ON f.rowid = payfac.fk_facture";
1437  $sqlmid .= " WHERE payfac.fk_paiement=".((int) $val['paymentid']);
1438  }
1439  $ref = $langs->transnoentitiesnoconv("Invoice");
1440  } elseif ($typerecord == 'payment_supplier') {
1441  $sqlmid = 'SELECT payfac.fk_facturefourn as id, f.ref';
1442  $sqlmid .= " FROM ".MAIN_DB_PREFIX."paiementfourn_facturefourn as payfac, ".MAIN_DB_PREFIX."facture_fourn as f";
1443  $sqlmid .= " WHERE payfac.fk_facturefourn = f.rowid AND payfac.fk_paiementfourn=".((int) $val["paymentsupplierid"]);
1444  $ref = $langs->transnoentitiesnoconv("SupplierInvoice");
1445  } elseif ($typerecord == 'payment_expensereport') {
1446  $sqlmid = 'SELECT e.rowid as id, e.ref';
1447  $sqlmid .= " FROM ".MAIN_DB_PREFIX."payment_expensereport as pe, ".MAIN_DB_PREFIX."expensereport as e";
1448  $sqlmid .= " WHERE pe.rowid=".((int) $val["paymentexpensereport"])." AND pe.fk_expensereport = e.rowid";
1449  $ref = $langs->transnoentitiesnoconv("ExpenseReport");
1450  } elseif ($typerecord == 'payment_salary') {
1451  $sqlmid = 'SELECT s.rowid as ref';
1452  $sqlmid .= " FROM ".MAIN_DB_PREFIX."payment_salary as s";
1453  $sqlmid .= " WHERE s.rowid=".((int) $val["paymentsalid"]);
1454  $ref = $langs->transnoentitiesnoconv("SalaryPayment");
1455  } elseif ($typerecord == 'sc') {
1456  $sqlmid = 'SELECT sc.rowid as ref';
1457  $sqlmid .= " FROM ".MAIN_DB_PREFIX."paiementcharge as sc";
1458  $sqlmid .= " WHERE sc.rowid=".((int) $val["paymentscid"]);
1459  $ref = $langs->transnoentitiesnoconv("SocialContribution");
1460  } elseif ($typerecord == 'payment_vat') {
1461  $sqlmid = 'SELECT v.rowid as ref';
1462  $sqlmid .= " FROM ".MAIN_DB_PREFIX."tva as v";
1463  $sqlmid .= " WHERE v.rowid=".((int) $val["paymentvatid"]);
1464  $ref = $langs->transnoentitiesnoconv("PaymentVat");
1465  } elseif ($typerecord == 'payment_donation') {
1466  $sqlmid = 'SELECT payd.fk_donation as ref';
1467  $sqlmid .= " FROM ".MAIN_DB_PREFIX."payment_donation as payd";
1468  $sqlmid .= " WHERE payd.fk_donation=".((int) $val["paymentdonationid"]);
1469  $ref = $langs->transnoentitiesnoconv("Donation");
1470  } elseif ($typerecord == 'payment_loan') {
1471  $sqlmid = 'SELECT l.rowid as ref';
1472  $sqlmid .= " FROM ".MAIN_DB_PREFIX."payment_loan as l";
1473  $sqlmid .= " WHERE l.rowid=".((int) $val["paymentloanid"]);
1474  $ref = $langs->transnoentitiesnoconv("LoanPayment");
1475  } elseif ($typerecord == 'payment_various') {
1476  $sqlmid = 'SELECT v.rowid as ref';
1477  $sqlmid .= " FROM ".MAIN_DB_PREFIX."payment_various as v";
1478  $sqlmid .= " WHERE v.rowid=".((int) $val["paymentvariousid"]);
1479  $ref = $langs->transnoentitiesnoconv("VariousPayment");
1480  }
1481  // Add warning
1482  if (empty($sqlmid)) {
1483  dol_syslog("Found a typerecord=".$typerecord." not supported", LOG_WARNING);
1484  }
1485 
1486  if ($sqlmid) {
1487  dol_syslog("accountancy/journal/bankjournal.php::sqlmid=".$sqlmid, LOG_DEBUG);
1488  $resultmid = $db->query($sqlmid);
1489  if ($resultmid) {
1490  while ($objmid = $db->fetch_object($resultmid)) {
1491  $ref .= ' '.$objmid->ref;
1492  }
1493  } else {
1494  dol_print_error($db);
1495  }
1496  }
1497 
1498  $ref = dol_trunc($langs->transnoentitiesnoconv("BankId").' '.$val['fk_bank'].' - '.$ref, 295); // 295 + 3 dots (...) is < than max size of 300
1499  return $ref;
1500 }
length_accounta
length_accounta($accounta)
Return Auxiliary accounting account of thirdparties with defined length.
Definition: accounting.lib.php:133
Societe
Class to manage third parties objects (customers, suppliers, prospects...)
Definition: societe.class.php:50
dol_trunc
dol_trunc($string, $size=40, $trunc='right', $stringencoding='UTF-8', $nodot=0, $display=0)
Truncate a string to a particular length adding '…' if string larger than length.
Definition: functions.lib.php:3950
llxFooter
llxFooter()
Empty footer.
Definition: wrapper.php:70
ChargeSociales
Classe permettant la gestion des paiements des charges La tva collectee n'est calculee que sur les fa...
Definition: chargesociales.class.php:34
PaymentSalary
Class to manage payments of salaries.
Definition: paymentsalary.class.php:34
$sql
if(isModEnabled('facture') &&!empty($user->rights->facture->lire)) if((isModEnabled('fournisseur') &&empty($conf->global->MAIN_USE_NEW_SUPPLIERMOD) && $user->hasRight("fournisseur", "facture", "lire"))||(isModEnabled('supplier_invoice') && $user->hasRight("supplier_invoice", "lire"))) if(isModEnabled('don') &&!empty($user->rights->don->lire)) if(isModEnabled('tax') &&!empty($user->rights->tax->charges->lire)) if(isModEnabled('facture') &&isModEnabled('commande') && $user->hasRight("commande", "lire") &&empty($conf->global->WORKFLOW_DISABLE_CREATE_INVOICE_FROM_ORDER)) $sql
Social contributions to pay.
Definition: index.php:745
GETPOST
GETPOST($paramname, $check='alphanohtml', $method=0, $filter=null, $options=null, $noreplace=0)
Return value of a param into GET or POST supervariable.
Definition: functions.lib.php:530
FactureFournisseur
Class to manage suppliers invoices.
Definition: fournisseur.facture.class.php:51
dol_print_error
dol_print_error($db='', $error='', $errors=null)
Displays error message system with all the information to facilitate the diagnosis and the escalation...
Definition: functions.lib.php:4994
PaymentDonation
Class to manage payments of donations.
Definition: paymentdonation.class.php:30
img_warning
img_warning($titlealt='default', $moreatt='', $morecss='pictowarning')
Show warning logo.
Definition: functions.lib.php:4671
PaymentLoan
Class to manage payments of loans.
Definition: paymentloan.class.php:32
$form
if($cancel &&! $id) if($action=='add' &&! $cancel) if($action=='delete') if($id) $form
Actions.
Definition: card.php:143
Don
Class to manage donations.
Definition: don.class.php:38
Facture
Class to manage invoices.
Definition: facture.class.php:60
price2num
price2num($amount, $rounding='', $option=0)
Function that return a number with universal decimal format (decimal separator is '.
Definition: functions.lib.php:5834
Loan
Loan.
Definition: loan.class.php:30
dol_print_date
dol_print_date($time, $format='', $tzoutput='auto', $outputlangs='', $encodetooutput=false)
Output date in a string format according to outputlangs (or langs if not defined).
Definition: functions.lib.php:2566
PaymentVarious
Class to manage various payments.
Definition: paymentvarious.class.php:32
llxHeader
if(!defined('NOREQUIRESOC')) if(!defined('NOREQUIRETRAN')) if(!defined('NOTOKENRENEWAL')) if(!defined('NOREQUIREMENU')) if(!defined('NOREQUIREHTML')) if(!defined('NOREQUIREAJAX')) llxHeader()
Empty header.
Definition: wrapper.php:56
AccountingJournal
Class to manage accounting accounts.
Definition: accountingjournal.class.php:27
length_accountg
length_accountg($account)
Return General accounting account with defined length (used for product and miscellaneous)
Definition: accounting.lib.php:94
dol_string_nohtmltag
dol_string_nohtmltag($stringtoclean, $removelinefeed=1, $pagecodeto='UTF-8', $strip_tags=0, $removedoublespaces=1)
Clean a string from all HTML tags and entities.
Definition: functions.lib.php:6921
dol_syslog
dol_syslog($message, $level=LOG_INFO, $ident=0, $suffixinfilename='', $restricttologhandler='', $logcontext=null)
Write log message into outputs.
Definition: functions.lib.php:1639
Subscription
Class to manage subscriptions of foundation members.
Definition: subscription.class.php:33
PaymentExpenseReport
Class to manage payments of expense report.
Definition: paymentexpensereport.class.php:31
dol_get_first_day
dol_get_first_day($year, $month=1, $gm=false)
Return GMT time for first day of a month or year.
Definition: date.lib.php:576
getDolGlobalString
if(!function_exists('utf8_encode')) if(!function_exists('utf8_decode')) getDolGlobalString($key, $default='')
Return dolibarr global constant string value.
Definition: functions.lib.php:82
journalHead
journalHead($nom, $variante, $period, $periodlink, $description, $builddate, $exportlink='', $moreparam=array(), $calcmode='', $varlink='')
Show header of a page used to transfer/dispatch data in accounting.
Definition: accounting.lib.php:183
dol_get_last_day
dol_get_last_day($year, $month=12, $gm=false)
Return GMT time for last day of a month or year.
Definition: date.lib.php:595
getSourceDocRef
getSourceDocRef($val, $typerecord)
Return source for doc_ref of a bank transaction.
Definition: bankjournal.php:1392
isModEnabled
isModEnabled($module)
Is Dolibarr module enabled.
Definition: functions.lib.php:147
dolGetFirstLastname
dolGetFirstLastname($firstname, $lastname, $nameorder=-1)
Return firstname and lastname in correct order.
Definition: functions.lib.php:8434
BookKeeping
Class to manage Ledger (General Ledger and Subledger)
Definition: bookkeeping.class.php:33
AccountingAccount
Class to manage accounting accounts.
Definition: accountingaccount.class.php:36
PaiementFourn
Class to manage payments for supplier invoices.
Definition: paiementfourn.class.php:37
User
Class to manage Dolibarr users.
Definition: user.class.php:44
Paiement
Class to manage payments of customer invoices.
Definition: paiement.class.php:41
GETPOSTISSET
GETPOSTISSET($paramname)
Return true if we are in a context of submitting the parameter $paramname from a POST of a form.
Definition: functions.lib.php:431
Lettering
Class Lettering.
Definition: lettering.class.php:34
Form
Class to manage generation of HTML components Only common components must be here.
Definition: html.form.class.php:52
AccountLine
Class to manage bank transaction lines.
Definition: account.class.php:1863
ExpenseReport
Class to manage Trips and Expenses.
Definition: expensereport.class.php:36
Salary
Class to manage salary payments.
Definition: salary.class.php:33
dol_now
dol_now($mode='auto')
Return date for now.
Definition: functions.lib.php:2947
getDefaultDatesForTransfer
getDefaultDatesForTransfer()
Return Default dates for transfer based on periodicity option in accountancy setup.
Definition: accounting.lib.php:273
price
price($amount, $form=0, $outlangs='', $trunc=1, $rounding=-1, $forcerounding=-1, $currency_code='')
Function to format a value into an amount for visual output Function used into PDF and HTML pages.
Definition: functions.lib.php:5708
setEventMessages
setEventMessages($mesg, $mesgs, $style='mesgs', $messagekey='')
Set event messages in dol_events session object.
Definition: functions.lib.php:8509
accessforbidden
accessforbidden($message='', $printheader=1, $printfooter=1, $showonlymessage=0, $params=null)
Show a message to say access is forbidden and stop program.
Definition: security.lib.php:1106
dol_mktime
dol_mktime($hour, $minute, $second, $month, $day, $year, $gm='auto', $check=1)
Return a timestamp date built from detailed informations (by default a local PHP server timestamp) Re...
Definition: functions.lib.php:2859
getDolGlobalInt
getDolGlobalInt($key, $default=0)
Return dolibarr global constant int value.
Definition: functions.lib.php:96
Account
Class to manage bank accounts.
Definition: account.class.php:39
Tva
Put here description of your class.
Definition: tva.class.php:35