recap-compta.php 10 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317
  1. <?php
  2. /* Copyright (C) 2001-2006 Rodolphe Quiedeville <rodolphe@quiedeville.org>
  3. * Copyright (C) 2004-2017 Laurent Destailleur <eldy@users.sourceforge.net>
  4. * Copyright (C) 2017 Pierre-Henry Favre <support@atm-consulting.fr>
  5. *
  6. * This program is free software; you can redistribute it and/or modify
  7. * it under the terms of the GNU General Public License as published by
  8. * the Free Software Foundation; either version 3 of the License, or
  9. * (at your option) any later version.
  10. *
  11. * This program is distributed in the hope that it will be useful,
  12. * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13. * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  14. * GNU General Public License for more details.
  15. *
  16. * You should have received a copy of the GNU General Public License
  17. * along with this program. If not, see <https://www.gnu.org/licenses/>.
  18. */
  19. /**
  20. * \file htdocs/compta/recap-compta.php
  21. * \ingroup compta
  22. * \brief Page de fiche recap customer
  23. */
  24. // Load Dolibarr environment
  25. require '../main.inc.php';
  26. require_once DOL_DOCUMENT_ROOT.'/core/lib/company.lib.php';
  27. require_once DOL_DOCUMENT_ROOT.'/compta/facture/class/facture.class.php';
  28. require_once DOL_DOCUMENT_ROOT.'/compta/paiement/class/paiement.class.php';
  29. // Load translation files required by the page
  30. $langs->load("companies");
  31. if (isModEnabled('facture')) {
  32. $langs->load("bills");
  33. }
  34. $id = GETPOST('id') ?GETPOST('id', 'int') : GETPOST('socid', 'int');
  35. // Security check
  36. if ($user->socid) {
  37. $id = $user->socid;
  38. }
  39. $result = restrictedArea($user, 'societe', $id, '&societe');
  40. $object = new Societe($db);
  41. if ($id > 0) {
  42. $object->fetch($id);
  43. }
  44. // Initialize technical object to manage hooks of page. Note that conf->hooks_modules contains array of hook context
  45. $hookmanager->initHooks(array('recapcomptacard', 'globalcard'));
  46. // Load variable for pagination
  47. $limit = GETPOST('limit', 'int') ?GETPOST('limit', 'int') : $conf->liste_limit;
  48. $sortfield = GETPOST('sortfield', 'aZ09comma');
  49. $sortorder = GETPOST('sortorder', 'aZ09comma');
  50. $page = GETPOSTISSET('pageplusone') ? (GETPOST('pageplusone') - 1) : GETPOST("page", 'int');
  51. if (empty($page) || $page == -1) {
  52. $page = 0;
  53. } // If $page is not defined, or '' or -1
  54. $offset = $limit * $page;
  55. $pageprev = $page - 1;
  56. $pagenext = $page + 1;
  57. if (!$sortfield) {
  58. $sortfield = "f.datef,f.rowid"; // Set here default search field
  59. }
  60. if (!$sortorder) {
  61. $sortorder = "DESC";
  62. }
  63. $arrayfields = array(
  64. 'f.datef'=>array('label'=>"Date", 'checked'=>1),
  65. //...
  66. );
  67. // Initialize technical object to manage hooks of page. Note that conf->hooks_modules contains array of hook context
  68. $hookmanager->initHooks(array('supplierbalencelist', 'globalcard'));
  69. /*
  70. * Actions
  71. */
  72. $parameters = array('socid' => $id);
  73. $reshook = $hookmanager->executeHooks('doActions', $parameters, $object); // Note that $object may have been modified by some hooks
  74. if ($reshook < 0) {
  75. setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
  76. }
  77. // None
  78. /*
  79. * View
  80. */
  81. $form = new Form($db);
  82. $userstatic = new User($db);
  83. $title = $langs->trans("ThirdParty").' - '.$langs->trans("Summary");
  84. if (!empty($conf->global->MAIN_HTML_TITLE) && preg_match('/thirdpartynameonly/', $conf->global->MAIN_HTML_TITLE) && $object->name) {
  85. $title = $object->name.' - '.$langs->trans("Summary");
  86. }
  87. $help_url = 'EN:Module_Third_Parties|FR:Module_Tiers|ES:Empresas';
  88. llxHeader('', $title, $help_url);
  89. if ($id > 0) {
  90. $param = '';
  91. if ($id > 0) {
  92. $param .= '&socid='.$id;
  93. }
  94. $head = societe_prepare_head($object);
  95. print dol_get_fiche_head($head, 'customer', $langs->trans("ThirdParty"), 0, 'company');
  96. dol_banner_tab($object, 'socid', '', ($user->socid ? 0 : 1), 'rowid', 'nom', '', '', 0, '', '', 1);
  97. print dol_get_fiche_end();
  98. if (isModEnabled('facture') && $user->hasRight('facture', 'lire')) {
  99. // Invoice list
  100. print load_fiche_titre($langs->trans("CustomerPreview"));
  101. print '<table class="noborder tagtable liste centpercent">';
  102. print '<tr class="liste_titre">';
  103. if (!empty($arrayfields['f.datef']['checked'])) {
  104. print_liste_field_titre($arrayfields['f.datef']['label'], $_SERVER["PHP_SELF"], "f.datef", "", $param, 'align="center" class="nowrap"', $sortfield, $sortorder);
  105. }
  106. print '<td>'.$langs->trans("Element").'</td>';
  107. print '<td>'.$langs->trans("Status").'</td>';
  108. print '<td class="right">'.$langs->trans("Debit").'</td>';
  109. print '<td class="right">'.$langs->trans("Credit").'</td>';
  110. print '<td class="right">'.$langs->trans("Balance").'</td>';
  111. print '<td class="right">'.$langs->trans("Author").'</td>';
  112. print '</tr>';
  113. $TData = array();
  114. $sql = "SELECT s.nom, s.rowid as socid, f.ref, f.total_ttc, f.datef as df,";
  115. $sql .= " f.paye as paye, f.fk_statut as statut, f.rowid as facid,";
  116. $sql .= " u.login, u.rowid as userid";
  117. $sql .= " FROM ".MAIN_DB_PREFIX."societe as s,".MAIN_DB_PREFIX."facture as f,".MAIN_DB_PREFIX."user as u";
  118. $sql .= " WHERE f.fk_soc = s.rowid AND s.rowid = ".((int) $object->id);
  119. $sql .= " AND f.entity IN (".getEntity('invoice').")";
  120. $sql .= " AND f.fk_user_valid = u.rowid";
  121. $sql .= $db->order($sortfield, $sortorder);
  122. $resql = $db->query($sql);
  123. if ($resql) {
  124. $num = $db->num_rows($resql);
  125. // Boucle sur chaque facture
  126. for ($i = 0; $i < $num; $i++) {
  127. $objf = $db->fetch_object($resql);
  128. $fac = new Facture($db);
  129. $ret = $fac->fetch($objf->facid);
  130. if ($ret < 0) {
  131. print $fac->error."<br>";
  132. continue;
  133. }
  134. $totalpaid = $fac->getSommePaiement();
  135. $userstatic->id = $objf->userid;
  136. $userstatic->login = $objf->login;
  137. $values = array(
  138. 'fk_facture' => $objf->facid,
  139. 'date' => $fac->date,
  140. 'datefieldforsort' => $fac->date.'-'.$fac->ref,
  141. 'link' => $fac->getNomUrl(1),
  142. 'status' => $fac->getLibStatut(2, $totalpaid),
  143. 'amount' => $fac->total_ttc,
  144. 'author' => $userstatic->getLoginUrl(1)
  145. );
  146. $parameters = array('socid' => $id, 'values' => &$values, 'fac' => $fac, 'userstatic' => $userstatic);
  147. $reshook = $hookmanager->executeHooks('facdao', $parameters, $object); // Note that $parameters['values'] and $object may have been modified by some hooks
  148. if ($reshook < 0) {
  149. setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
  150. }
  151. $TData[] = $values;
  152. // Paiements
  153. $sql = "SELECT p.rowid, p.datep as dp, pf.amount, p.statut,";
  154. $sql .= " p.fk_user_creat, u.login, u.rowid as userid";
  155. $sql .= " FROM ".MAIN_DB_PREFIX."paiement_facture as pf,";
  156. $sql .= " ".MAIN_DB_PREFIX."paiement as p";
  157. $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."user as u ON p.fk_user_creat = u.rowid";
  158. $sql .= " WHERE pf.fk_paiement = p.rowid";
  159. $sql .= " AND p.entity = ".$conf->entity;
  160. $sql .= " AND pf.fk_facture = ".((int) $fac->id);
  161. $sql .= " ORDER BY p.datep ASC, p.rowid ASC";
  162. $resqlp = $db->query($sql);
  163. if ($resqlp) {
  164. $nump = $db->num_rows($resqlp);
  165. $j = 0;
  166. while ($j < $nump) {
  167. $objp = $db->fetch_object($resqlp);
  168. $paymentstatic = new Paiement($db);
  169. $paymentstatic->id = $objp->rowid;
  170. $userstatic->id = $objp->userid;
  171. $userstatic->login = $objp->login;
  172. $values = array(
  173. 'fk_paiement' => $objp->rowid,
  174. 'date' => $db->jdate($objp->dp),
  175. 'datefieldforsort' => $db->jdate($objp->dp).'-'.$fac->ref,
  176. 'link' => $langs->trans("Payment").' '.$paymentstatic->getNomUrl(1),
  177. 'status' => '',
  178. 'amount' => -$objp->amount,
  179. 'author' => $userstatic->getLoginUrl(1)
  180. );
  181. $parameters = array('socid' => $id, 'values' => &$values, 'fac' => $fac, 'userstatic' => $userstatic, 'paymentstatic' => $paymentstatic);
  182. $reshook = $hookmanager->executeHooks('paydao', $parameters, $object); // Note that $parameters['values'] and $object may have been modified by some hooks
  183. if ($reshook < 0) {
  184. setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
  185. }
  186. $TData[] = $values;
  187. $j++;
  188. }
  189. $db->free($resqlp);
  190. } else {
  191. dol_print_error($db);
  192. }
  193. }
  194. } else {
  195. dol_print_error($db);
  196. }
  197. if (empty($TData)) {
  198. print '<tr class="oddeven"><td colspan="7">'.$langs->trans("NoInvoice").'</td></tr>';
  199. } else {
  200. // Sort array by date ASC to calucalte balance
  201. $TData = dol_sort_array($TData, 'datefieldforsort', 'ASC');
  202. // Balance calculation
  203. $balance = 0;
  204. foreach ($TData as &$data1) {
  205. $balance += $data1['amount'];
  206. $data1['balance'] += $balance;
  207. }
  208. // Resorte array to have elements on the required $sortorder
  209. $TData = dol_sort_array($TData, 'datefieldforsort', $sortorder);
  210. $totalDebit = 0;
  211. $totalCredit = 0;
  212. // Display array
  213. foreach ($TData as $data) {
  214. $html_class = '';
  215. if (!empty($data['fk_facture'])) {
  216. $html_class = 'facid-'.$data['fk_facture'];
  217. } elseif (!empty($data['fk_paiement'])) {
  218. $html_class = 'payid-'.$data['fk_paiement'];
  219. }
  220. print '<tr class="oddeven '.$html_class.'">';
  221. $datedetail = dol_print_date($data['date'], 'dayhour');
  222. if (!empty($data['fk_facture'])) {
  223. $datedetail = dol_print_date($data['date'], 'day');
  224. }
  225. print '<td class="center" title="'.dol_escape_htmltag($datedetail).'">';
  226. print dol_print_date($data['date'], 'day');
  227. print "</td>\n";
  228. print '<td>'.$data['link']."</td>\n";
  229. print '<td class="left">'.$data['status'].'</td>';
  230. print '<td class="right">'.(($data['amount'] > 0) ? price(abs($data['amount'])) : '')."</td>\n";
  231. $totalDebit += ($data['amount'] > 0) ? abs($data['amount']) : 0;
  232. print '<td class="right">'.(($data['amount'] > 0) ? '' : price(abs($data['amount'])))."</td>\n";
  233. $totalCredit += ($data['amount'] > 0) ? 0 : abs($data['amount']);
  234. // Balance
  235. print '<td class="right"><span class="amount">'.price($data['balance'])."</span></td>\n";
  236. // Author
  237. print '<td class="nowrap right">';
  238. print $data['author'];
  239. print '</td>';
  240. print "</tr>\n";
  241. }
  242. print '<tr class="liste_total">';
  243. print '<td colspan="3">&nbsp;</td>';
  244. print '<td class="right">'.price($totalDebit).'</td>';
  245. print '<td class="right">'.price($totalCredit).'</td>';
  246. print '<td class="right">'.price(price2num($totalDebit - $totalCredit, 'MT')).'</td>';
  247. print '<td></td>';
  248. print "</tr>\n";
  249. }
  250. print "</table>";
  251. }
  252. } else {
  253. dol_print_error($db);
  254. }
  255. llxFooter();
  256. $db->close();