dolibarr  13.0.2
html_cerfafr.modules.php
Go to the documentation of this file.
1 <?php
2 /* Copyright (C) 2003 Rodolphe Quiedeville <rodolphe@quiedeville.org>
3  * Copyright (C) 2005-2006 Laurent Destailleur <eldy@users.sourceforge.net>
4  * Copyright (C) 2012 Regis Houssin <regis.houssin@inodbox.com>
5  * Copyright (C) 2012 Marcos García <marcosgdf@gmail.com>
6  * Copyright (C) 2014-2020 Alexandre Spangaro <aspangaro@open-dsi.fr>
7  * Copyright (C) 2015 Benoit Bruchard <benoitb21@gmail.com>
8  *
9  * This program is free software; you can redistribute it and/or modify
10  * it under the terms of the GNU General Public License as published by
11  * the Free Software Foundation; either version 3 of the License, or
12  * (at your option) any later version.
13  *
14  * This program is distributed in the hope that it will be useful,
15  * but WITHOUT ANY WARRANTY; without even the implied warranty of
16  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17  * GNU General Public License for more details.
18  *
19  * You should have received a copy of the GNU General Public License
20  * along with this program. If not, see <https://www.gnu.org/licenses/>.
21  */
22 
28 require_once DOL_DOCUMENT_ROOT.'/core/modules/dons/modules_don.php';
29 require_once DOL_DOCUMENT_ROOT.'/don/class/don.class.php';
30 require_once DOL_DOCUMENT_ROOT.'/core/lib/company.lib.php';
31 
32 
36 class html_cerfafr extends ModeleDon
37 {
43  public function __construct($db)
44  {
45  global $conf, $langs;
46 
47  $this->db = $db;
48  $this->name = "cerfafr";
49  $this->description = $langs->trans('DonationsReceiptModel').' - fr_FR - Cerfa 11580*04';
50 
51  // Dimension page for size A4
52  $this->type = 'html';
53  }
54 
55 
61  public function isEnabled()
62  {
63  return true;
64  }
65 
66 
67  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
76  public function write_file($don, $outputlangs, $currency = '')
77  {
78  // phpcs:enable
79  global $user, $conf, $langs, $mysoc;
80 
81  $now = dol_now();
82  $id = (!is_object($don) ? $don : '');
83 
84  if (!is_object($outputlangs)) $outputlangs = $langs;
85 
86  // Load traductions files required by page
87  $outputlangs->loadLangs(array("main", "dict", "companies", "bills", "products", "donations"));
88 
89  $currency = !empty($currency) ? $currency : $conf->currency;
90 
91  if (!empty($conf->don->dir_output))
92  {
93  // Definition of the object don (for upward compatibility)
94  if (!is_object($don))
95  {
96  $don = new Don($this->db);
97  $ret = $don->fetch($id);
98  $id = $don->id;
99  }
100 
101  // Definition of $dir and $file
102  if (!empty($don->specimen))
103  {
104  $dir = $conf->don->dir_output;
105  $file = $dir."/SPECIMEN.html";
106  } else {
107  $donref = dol_sanitizeFileName($don->ref);
108  $dir = $conf->don->dir_output."/".$donref;
109  $file = $dir."/".$donref.".html";
110  }
111 
112  if (!file_exists($dir))
113  {
114  if (dol_mkdir($dir) < 0)
115  {
116  $this->error = $langs->trans("ErrorCanNotCreateDir", $dir);
117  return -1;
118  }
119  }
120 
121  if (file_exists($dir))
122  {
123  $formclass = new Form($this->db);
124 
125  // This is not the proper way to do it but $formclass->form_modes_reglement
126  // prints the translation instead of returning it
127  if ($don->modepaiementid)
128  {
129  $formclass->load_cache_types_paiements();
130  $paymentmode = $formclass->cache_types_paiements[$don->modepaiementid]['label'];
131  } else $paymentmode = '';
132 
133  if ($don->modepaymentcode == 'CHQ') {
134  $ModePaiement = '<td width="25%"><input type="checkbox"> Remise d\'espèces</td><td width="25%"><input type="checkbox" disabled="true" checked="checked"> Chèque</td><td width="50%"><input type="checkbox"> Virement, prélèvement, carte bancaire</td>';
135  } elseif ($don->modepaymentcode == 'LIQ') {
136  $ModePaiement = '<td width="25%"><input type="checkbox" checked="checked"> Remise d\'espèces</td><td width="25%"><input type="checkbox"> Chèque</td><td width="50%"><input type="checkbox"> Virement, prélèvement, carte bancaire</td>';
137  } elseif ($don->modepaymentcode == 'VIR' || $don->modepaymentcode == 'PRE' || $don->modepaymentcode == 'CB') {
138  $ModePaiement = '<td width="25%"><input type="checkbox"> Remise d\'espèces</td><td width="25%"><input type="checkbox"> Chèque</td><td width="50%"><input type="checkbox" checked="checked"> Virement, prélèvement, carte bancaire</td>';
139  } else {
140  $ModePaiement = '<td width="25%"><input type="checkbox"> Remise d\'espèces</td><td width="25%"><input type="checkbox"> Chèque</td><td width="50%"><input type="checkbox"> Virement, prélèvement, carte bancaire</td>';
141  }
142 
143  /*
144  if (empty($don->societe))
145  {
146  $CodeDon = '<td width="33%"><input type="checkbox" disabled="true" checked="checked" > 200 du CGI</td><td width="33%"><input type="checkbox" disabled="true" > 238 bis du CGI</td><td width="33%"><input type="checkbox" disabled="true" > 978 du CGI</td>';
147  }
148  else
149  {
150  $CodeDon = '<td width="33%"><input type="checkbox" disabled="true" > 200 du CGI</td><td width="33%"><input type="checkbox" disabled="true" checked="checked" > 238 bis du CGI</td><td width="33%"><input type="checkbox" disabled="true" > 978 du CGI</td>';
151  }
152  */
153 
154  // Define contents
155  $donmodel = DOL_DOCUMENT_ROOT."/core/modules/dons/html_cerfafr.html";
156  $form = implode('', file($donmodel));
157  $form = str_replace('__REF__', $don->id, $form);
158  $form = str_replace('__DATE__', dol_print_date($don->date, 'day', false, $outputlangs), $form);
159  //$form = str_replace('__IP__',$user->ip,$form); // TODO $user->ip not exist
160  $form = str_replace('__AMOUNT__', price($don->amount), $form);
161  $form = str_replace('__AMOUNTLETTERS__', $this->amountToLetters($don->amount), $form);
162  $form = str_replace('__CURRENCY__', $outputlangs->transnoentitiesnoconv("Currency".$currency), $form);
163  $form = str_replace('__CURRENCYCODE__', $conf->currency, $form);
164  $form = str_replace('__MAIN_INFO_SOCIETE_NOM__', $mysoc->name, $form);
165  $form = str_replace('__MAIN_INFO_SOCIETE_ADDRESS__', $mysoc->address, $form);
166  $form = str_replace('__MAIN_INFO_SOCIETE_ZIP__', $mysoc->zip, $form);
167  $form = str_replace('__MAIN_INFO_SOCIETE_TOWN__', $mysoc->town, $form);
168  $form = str_replace('__MAIN_INFO_SOCIETE_OBJECT__', $mysoc->object, $form);
169  $form = str_replace('__DONATOR_FIRSTNAME__', $don->firstname, $form);
170  $form = str_replace('__DONATOR_LASTNAME__', $don->lastname, $form);
171  $form = str_replace('__DONATOR_SOCIETE__', $don->societe, $form);
172  $form = str_replace('__DONATOR_STATUT__', $don->statut, $form);
173  $form = str_replace('__DONATOR_ADDRESS__', $don->address, $form);
174  $form = str_replace('__DONATOR_ZIP__', $don->zip, $form);
175  $form = str_replace('__DONATOR_TOWN__', $don->town, $form);
176  $form = str_replace('__PAYMENTMODE_LIB__ ', $paymentmode, $form);
177  $form = str_replace('__NOW__', dol_print_date($now, 'day', false, $outputlangs), $form);
178  $form = str_replace('__DonationRef__', $outputlangs->trans("DonationRef"), $form);
179  $form = str_replace('__DonationTitle__', $outputlangs->trans("DonationTitle"), $form);
180  $form = str_replace('__DonationReceipt__', $outputlangs->trans("DonationReceipt"), $form);
181  $form = str_replace('__DonationRecipient__', $outputlangs->trans("DonationRecipient"), $form);
182  $form = str_replace('__DonationDatePayment__', $outputlangs->trans("DonationDatePayment"), $form);
183  $form = str_replace('__PaymentMode__', $outputlangs->trans("PaymentMode"), $form);
184  // $form = str_replace('__CodeDon__',$CodeDon,$form);
185  $form = str_replace('__Name__', $outputlangs->trans("Name"), $form);
186  $form = str_replace('__Address__', $outputlangs->trans("Address"), $form);
187  $form = str_replace('__Zip__', $outputlangs->trans("Zip"), $form);
188  $form = str_replace('__Town__', $outputlangs->trans("Town"), $form);
189  $form = str_replace('__Object__', $outputlangs->trans("Object"), $form);
190  $form = str_replace('__Donor__', $outputlangs->trans("Donor"), $form);
191  $form = str_replace('__Date__', $outputlangs->trans("Date"), $form);
192  $form = str_replace('__Signature__', $outputlangs->trans("Signature"), $form);
193  $form = str_replace('__Message__', $outputlangs->trans("Message"), $form);
194  $form = str_replace('__IConfirmDonationReception__', $outputlangs->trans("IConfirmDonationReception"), $form);
195  $form = str_replace('__DonationMessage__', $conf->global->DONATION_MESSAGE, $form);
196 
197  $form = str_replace('__ModePaiement__', $ModePaiement, $form);
198 
199  $frencharticle = '';
200  if (preg_match('/fr/i', $outputlangs->defaultlang)) $frencharticle = '<font size="+1">Article 200, 238 bis et 978 du code général des impôts (CGI)</font>';
201  $form = str_replace('__FrenchArticle__', $frencharticle, $form);
202 
203  $frencheligibility = '';
204  if (preg_match('/fr/i', $outputlangs->defaultlang)) $frencheligibility = 'Le bénéficiaire certifie sur l\'honneur que les dons et versements qu\'il reçoit ouvrent droit à la réduction d\'impôt prévue à l\'article :';
205  $form = str_replace('__FrenchEligibility__', $frencheligibility, $form);
206 
207  $art200 = '';
208  if ($mysoc->country_code == 'FR') {
209  if ($conf->global->DONATION_ART200 >= 1)
210  {
211  $art200 = '<input type="checkbox" disabled="true" checked="checked" >200 du CGI';
212  } else {
213  $art200 = '<input type="checkbox" disabled="true">200 du CGI';
214  }
215  }
216  $form = str_replace('__ARTICLE200__', $art200, $form);
217 
218  $art238 = '';
219  if ($mysoc->country_code == 'FR') {
220  if ($conf->global->DONATION_ART238 >= 1)
221  {
222  $art238 = '<input type="checkbox" disabled="true" checked="checked" >238 bis du CGI';
223  } else {
224  $art238 = '<input type="checkbox" disabled="true">238 bis du CGI';
225  }
226  }
227  $form = str_replace('__ARTICLE238__', $art238, $form);
228 
229  $art978 = '';
230  if ($mysoc->country_code == 'FR') {
231  if ($conf->global->DONATION_ART978 >= 1)
232  {
233  $art978 = '<input type="checkbox" disabled="true" checked="checked" >978 du CGI';
234  } else {
235  $art978 = '<input type="checkbox" disabled="true">978 du CGI';
236  }
237  }
238  $form = str_replace('__ARTICLE978__', $art978, $form);
239 
240  // Save file on disk
241  dol_syslog("html_cerfafr::write_file $file");
242  $handle = fopen($file, "w");
243  fwrite($handle, $form);
244  fclose($handle);
245  if (!empty($conf->global->MAIN_UMASK))
246  @chmod($file, octdec($conf->global->MAIN_UMASK));
247 
248  $this->result = array('fullpath'=>$file);
249 
250  return 1;
251  } else {
252  $this->error = $langs->trans("ErrorCanNotCreateDir", $dir);
253  return 0;
254  }
255  } else {
256  $this->error = $langs->trans("ErrorConstantNotDefined", "DON_OUTPUTDIR");
257  return 0;
258  }
259  }
260 
269  private function amountToLetters($montant, $devise1 = '', $devise2 = '')
270  {
271  $unite = array();
272  $dix = array();
273  $cent = array();
274  if (empty($devise1)) $dev1 = 'euros';
275  else $dev1 = $devise1;
276  if (empty($devise2)) $dev2 = 'centimes';
277  else $dev2 = $devise2;
278  $valeur_entiere = intval($montant);
279  $valeur_decimal = intval(round($montant - intval($montant), 2) * 100);
280  $dix_c = intval($valeur_decimal % 100 / 10);
281  $cent_c = intval($valeur_decimal % 1000 / 100);
282  $unite[1] = $valeur_entiere % 10;
283  $dix[1] = intval($valeur_entiere % 100 / 10);
284  $cent[1] = intval($valeur_entiere % 1000 / 100);
285  $unite[2] = intval($valeur_entiere % 10000 / 1000);
286  $dix[2] = intval($valeur_entiere % 100000 / 10000);
287  $cent[2] = intval($valeur_entiere % 1000000 / 100000);
288  $unite[3] = intval($valeur_entiere % 10000000 / 1000000);
289  $dix[3] = intval($valeur_entiere % 100000000 / 10000000);
290  $cent[3] = intval($valeur_entiere % 1000000000 / 100000000);
291  $chif = array('', 'un', 'deux', 'trois', 'quatre', 'cinq', 'six', 'sept', 'huit', 'neuf', 'dix', 'onze', 'douze', 'treize', 'quatorze', 'quinze', 'seize', 'dix sept', 'dix huit', 'dix neuf');
292  $secon_c = '';
293  $trio_c = '';
294  for ($i = 1; $i <= 3; $i++) {
295  $prim[$i] = '';
296  $secon[$i] = '';
297  $trio[$i] = '';
298  if ($dix[$i] == 0) {
299  $secon[$i] = '';
300  $prim[$i] = $chif[$unite[$i]];
301  } elseif ($dix[$i] == 1) {
302  $secon[$i] = '';
303  $prim[$i] = $chif[($unite[$i] + 10)];
304  } elseif ($dix[$i] == 2) {
305  if ($unite[$i] == 1) {
306  $secon[$i] = 'vingt et';
307  $prim[$i] = $chif[$unite[$i]];
308  } else {
309  $secon[$i] = 'vingt';
310  $prim[$i] = $chif[$unite[$i]];
311  }
312  } elseif ($dix[$i] == 3) {
313  if ($unite[$i] == 1) {
314  $secon[$i] = 'trente et';
315  $prim[$i] = $chif[$unite[$i]];
316  } else {
317  $secon[$i] = 'trente';
318  $prim[$i] = $chif[$unite[$i]];
319  }
320  } elseif ($dix[$i] == 4) {
321  if ($unite[$i] == 1) {
322  $secon[$i] = 'quarante et';
323  $prim[$i] = $chif[$unite[$i]];
324  } else {
325  $secon[$i] = 'quarante';
326  $prim[$i] = $chif[$unite[$i]];
327  }
328  } elseif ($dix[$i] == 5) {
329  if ($unite[$i] == 1) {
330  $secon[$i] = 'cinquante et';
331  $prim[$i] = $chif[$unite[$i]];
332  } else {
333  $secon[$i] = 'cinquante';
334  $prim[$i] = $chif[$unite[$i]];
335  }
336  } elseif ($dix[$i] == 6) {
337  if ($unite[$i] == 1) {
338  $secon[$i] = 'soixante et';
339  $prim[$i] = $chif[$unite[$i]];
340  } else {
341  $secon[$i] = 'soixante';
342  $prim[$i] = $chif[$unite[$i]];
343  }
344  } elseif ($dix[$i] == 7) {
345  if ($unite[$i] == 1) {
346  $secon[$i] = 'soixante et';
347  $prim[$i] = $chif[$unite[$i] + 10];
348  } else {
349  $secon[$i] = 'soixante';
350  $prim[$i] = $chif[$unite[$i] + 10];
351  }
352  } elseif ($dix[$i] == 8) {
353  if ($unite[$i] == 1) {
354  $secon[$i] = 'quatre-vingts et';
355  $prim[$i] = $chif[$unite[$i]];
356  } else {
357  $secon[$i] = 'quatre-vingt';
358  $prim[$i] = $chif[$unite[$i]];
359  }
360  } elseif ($dix[$i] == 9) {
361  if ($unite[$i] == 1) {
362  $secon[$i] = 'quatre-vingts et';
363  $prim[$i] = $chif[$unite[$i] + 10];
364  } else {
365  $secon[$i] = 'quatre-vingts';
366  $prim[$i] = $chif[$unite[$i] + 10];
367  }
368  }
369  if ($cent[$i] == 1) $trio[$i] = 'cent';
370  elseif ($cent[$i] != 0 || $cent[$i] != '') $trio[$i] = $chif[$cent[$i]].' cents';
371  }
372 
373 
374  $chif2 = array('', 'dix', 'vingt', 'trente', 'quarante', 'cinquante', 'soixante', 'soixante-dix', 'quatre-vingts', 'quatre-vingts dix');
375  $secon_c = $chif2[$dix_c];
376  if ($cent_c == 1) $trio_c = 'cent';
377  elseif ($cent_c != 0 || $cent_c != '') $trio_c = $chif[$cent_c].' cents';
378 
379  if (($cent[3] == 0 || $cent[3] == '') && ($dix[3] == 0 || $dix[3] == '') && ($unite[3] == 1))
380  $somme = $trio[3].' '.$secon[3].' '.$prim[3].' million ';
381  elseif (($cent[3] != 0 && $cent[3] != '') || ($dix[3] != 0 && $dix[3] != '') || ($unite[3] != 0 && $unite[3] != ''))
382  $somme = $trio[3].' '.$secon[3].' '.$prim[3].' millions ';
383  else $somme = $trio[3].' '.$secon[3].' '.$prim[3];
384 
385  if (($cent[2] == 0 || $cent[2] == '') && ($dix[2] == 0 || $dix[2] == '') && ($unite[2] == 1))
386  $somme = $somme.' mille ';
387  elseif (($cent[2] != 0 && $cent[2] != '') || ($dix[2] != 0 && $dix[2] != '') || ($unite[2] != 0 && $unite[2] != ''))
388  $somme = $somme.$trio[2].' '.$secon[2].' '.$prim[2].' milles ';
389  else $somme = $somme.$trio[2].' '.$secon[2].' '.$prim[2];
390 
391  $somme = $somme.$trio[1].' '.$secon[1].' '.$prim[1];
392 
393  $somme = $somme.' '.$dev1.' ';
394 
395  if (($cent_c == '0' || $cent_c == '') && ($dix_c == '0' || $dix_c == ''))
396  return $somme.' et z&eacute;ro '.$dev2;
397  else return $somme.$trio_c.' '.$secon_c.' '.$dev2;
398  }
399 }
html_cerfafr\amountToLetters
amountToLetters($montant, $devise1= '', $devise2= '')
numbers to letters
Definition: html_cerfafr.modules.php:269
description
</td > param sortfield sortorder printFieldListOption< tdclass="liste_titremaxwidthsearchright"></td ></tr >< trclass="liste_titre">< inputtype="checkbox"onClick="toggle(this)"/> Ref p ref Label p label Duration p duration center DesiredStock p desiredstock right StockLimitShort p seuil_stock_alerte right stock_physique right stock_real_warehouse right Ordered right StockToBuy right SupplierRef right param sortfield sortorder printFieldListTitle warehouseinternal SELECT description FROM product_lang WHERE qty< br > qty qty qty StockTooLow StockTooLow help help help< trclass="oddeven">< td >< inputtype="checkbox"class="check"name="choose'.$i.'"></td >< tdclass="nowrap"> stock</td >< td >< inputtype="hidden"name="desc'.$i.'"value="'.dol_escape_htmltag($objp-> description
Only used if Module[ID]Desc translation string is not found.
Definition: replenish.php:750
dol_now
dol_now($mode= 'auto')
Return date for now.
Definition: functions.lib.php:2288
html_cerfafr\isEnabled
isEnabled()
Return if a module can be used or not.
Definition: html_cerfafr.modules.php:61
name
$conf db name
Only used if Module[ID]Name translation string is not found.
Definition: repair.php:108
db
$conf db
API class for accounts.
Definition: inc.php:54
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:4757
Form
Class to manage generation of HTML components Only common components must be here.
Definition: html.form.class.php:52
dol_syslog
dol_syslog($message, $level=LOG_INFO, $ident=0, $suffixinfilename= '', $restricttologhandler= '', $logcontext=null)
Write log message into outputs.
Definition: functions.lib.php:1208
html_cerfafr
Class to generate document for subscriptions.
Definition: html_cerfafr.modules.php:36
dol_sanitizeFileName
dol_sanitizeFileName($str, $newstr= '_', $unaccent=1)
Clean a string to use it as a file name.
Definition: functions.lib.php:938
Don
Class to manage donations.
Definition: don.class.php:37
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:1983
ModeleDon
Parent class of subscription templates.
Definition: modules_don.php:35
html_cerfafr\write_file
write_file($don, $outputlangs, $currency= '')
Write the object to document file to disk.
Definition: html_cerfafr.modules.php:76
html_cerfafr\__construct
__construct($db)
Constructor.
Definition: html_cerfafr.modules.php:43
type
if(preg_match('/crypted:/i', $dolibarr_main_db_pass)||!empty($dolibarr_main_db_encrypted_pass)) $conf db type
Definition: repair.php:105
dol_mkdir
dol_mkdir($dir, $dataroot= '', $newmask=null)
Creation of a directory (this can create recursive subdir)
Definition: functions.lib.php:5689
Generated on Sat Aug 23 2025 13:17:22 for dolibarr by Doxygen 1.8.5