dolibarr  9.0.0
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-2015 Alexandre Spangaro <aspangaro.dolibarr@gmail.com>
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 <http://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  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*03';
50 
51  // Dimension page for size A4
52  $this->type = 'html';
53  }
54 
55 
61  function isEnabled()
62  {
63  return true;
64  }
65 
66 
67  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.NotCamelCaps
76  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 requiredby 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  }
107  else
108  {
109  $donref = dol_sanitizeFileName($don->ref);
110  $dir = $conf->don->dir_output . "/" . $donref;
111  $file = $dir . "/" . $donref . ".html";
112  }
113 
114  if (! file_exists($dir))
115  {
116  if (dol_mkdir($dir) < 0)
117  {
118  $this->error=$langs->trans("ErrorCanNotCreateDir",$dir);
119  return -1;
120  }
121  }
122 
123  if (file_exists($dir))
124  {
125  $formclass = new Form($this->db);
126 
127  // This is not the proper way to do it but $formclass->form_modes_reglement
128  // prints the translation instead of returning it
129  if ($don->modepaiementid)
130  {
131  $formclass->load_cache_types_paiements();
132  $paymentmode = $formclass->cache_types_paiements[$don->modepaiementid]['label'];
133  }
134  else $paymentmode = '';
135 
136  if ($don->modepaymentcode=='CHQ'){
137  $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>';
138  }
139  else if ($don->modepaymentcode=='LIQ'){
140  $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>';
141  }
142  else if ($don->modepaymentcode=='VIR' || $don->modepaymentcode=='PRE' || $don->modepaymentcode=='CB'){
143  $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>';
144  }
145  else
146  {
147  $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>';
148  }
149 
150  /*
151  if (empty($don->societe))
152  {
153  $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" > 885-0 V bis A du CGI</td>';
154  }
155  else
156  {
157  $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" > 885-0 V bis A du CGI</td>';
158  }
159  */
160 
161  // Define contents
162  $donmodel=DOL_DOCUMENT_ROOT ."/core/modules/dons/html_cerfafr.html";
163  $form = implode('', file($donmodel));
164  $form = str_replace('__REF__',$don->id,$form);
165  $form = str_replace('__DATE__',dol_print_date($don->date,'day',false,$outputlangs),$form);
166  //$form = str_replace('__IP__',$user->ip,$form); // TODO $user->ip not exist
167  $form = str_replace('__AMOUNT__', price($don->amount), $form);
168  $form = str_replace('__AMOUNTLETTERS__', $this->amountToLetters($don->amount),$form);
169  $form = str_replace('__CURRENCY__',$outputlangs->transnoentitiesnoconv("Currency".$currency),$form);
170  $form = str_replace('__CURRENCYCODE__',$conf->currency,$form);
171  $form = str_replace('__MAIN_INFO_SOCIETE_NOM__',$mysoc->name,$form);
172  $form = str_replace('__MAIN_INFO_SOCIETE_ADDRESS__',$mysoc->address,$form);
173  $form = str_replace('__MAIN_INFO_SOCIETE_ZIP__',$mysoc->zip,$form);
174  $form = str_replace('__MAIN_INFO_SOCIETE_TOWN__',$mysoc->town,$form);
175  $form = str_replace('__MAIN_INFO_SOCIETE_OBJECT__',$mysoc->object,$form);
176  $form = str_replace('__DONATOR_FIRSTNAME__',$don->firstname,$form);
177  $form = str_replace('__DONATOR_LASTNAME__',$don->lastname,$form);
178  $form = str_replace('__DONATOR_SOCIETE__',$don->societe,$form);
179  $form = str_replace('__DONATOR_STATUT__',$don->statut,$form);
180  $form = str_replace('__DONATOR_ADDRESS__',$don->address,$form);
181  $form = str_replace('__DONATOR_ZIP__',$don->zip,$form);
182  $form = str_replace('__DONATOR_TOWN__',$don->town,$form);
183  $form = str_replace('__PAYMENTMODE_LIB__ ', $paymentmode,$form);
184  $form = str_replace('__NOW__',dol_print_date($now,'day',false,$outputlangs),$form);
185  $form = str_replace('__DonationRef__',$outputlangs->trans("DonationRef"),$form);
186  $form = str_replace('__DonationTitle__',$outputlangs->trans("DonationTitle"),$form);
187  $form = str_replace('__DonationReceipt__',$outputlangs->trans("DonationReceipt"),$form);
188  $form = str_replace('__DonationRecipient__',$outputlangs->trans("DonationRecipient"),$form);
189  $form = str_replace('__DonationDatePayment__',$outputlangs->trans("DonationDatePayment"),$form);
190  $form = str_replace('__PaymentMode__',$outputlangs->trans("PaymentMode"),$form);
191  // $form = str_replace('__CodeDon__',$CodeDon,$form);
192  $form = str_replace('__Name__',$outputlangs->trans("Name"),$form);
193  $form = str_replace('__Address__',$outputlangs->trans("Address"),$form);
194  $form = str_replace('__Zip__',$outputlangs->trans("Zip"),$form);
195  $form = str_replace('__Town__',$outputlangs->trans("Town"),$form);
196  $form = str_replace('__Object__',$outputlangs->trans("Object"),$form);
197  $form = str_replace('__Donor__',$outputlangs->trans("Donor"),$form);
198  $form = str_replace('__Date__',$outputlangs->trans("Date"),$form);
199  $form = str_replace('__Signature__',$outputlangs->trans("Signature"),$form);
200  $form = str_replace('__Message__',$outputlangs->trans("Message"),$form);
201  $form = str_replace('__IConfirmDonationReception__',$outputlangs->trans("IConfirmDonationReception"),$form);
202  $form = str_replace('__DonationMessage__',$conf->global->DONATION_MESSAGE,$form);
203 
204  $form = str_replace('__ModePaiement__', $ModePaiement,$form);
205 
206  $frencharticle='';
207  if (preg_match('/fr/i',$outputlangs->defaultlang)) $frencharticle='<font size="+1">Article 200, 238 bis et 885-0 V bis A du code général des impôts (CGI)</font>';
208  $form = str_replace('__FrenchArticle__',$frencharticle,$form);
209 
210  $frencheligibility='';
211  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 :';
212  $form = str_replace('__FrenchEligibility__',$frencheligibility,$form);
213 
214  $art200='';
215  if (preg_match('/fr/i',$outputlangs->defaultlang)) {
216  if ($conf->global->DONATION_ART200 >= 1)
217  {
218  $art200='<input type="checkbox" disabled="true" checked="checked" >200 du CGI';
219  }
220  else
221  {
222  $art200='<input type="checkbox" disabled="true">200 du CGI';
223  }
224  }
225  $form = str_replace('__ARTICLE200__',$art200,$form);
226 
227  $art238='';
228  if (preg_match('/fr/i',$outputlangs->defaultlang)) {
229  if ($conf->global->DONATION_ART238 >= 1)
230  {
231  $art238='<input type="checkbox" disabled="true" checked="checked" >238 bis du CGI';
232  }
233  else
234  {
235  $art238='<input type="checkbox" disabled="true">238 bis du CGI';
236  }
237  }
238  $form = str_replace('__ARTICLE238__',$art238,$form);
239 
240  $art885='';
241  if (preg_match('/fr/i',$outputlangs->defaultlang)) {
242  if ($conf->global->DONATION_ART885 >= 1)
243  {
244  $art885='<input type="checkbox" disabled="true" checked="checked" >885-0 V bis du CGI';
245  }
246  else
247  {
248  $art885='<input type="checkbox" disabled="true">885-0 V bis du CGI';
249  }
250  }
251  $form = str_replace('__ARTICLE885__',$art885,$form);
252 
253  // Save file on disk
254  dol_syslog("html_cerfafr::write_file $file");
255  $handle=fopen($file,"w");
256  fwrite($handle,$form);
257  fclose($handle);
258  if (! empty($conf->global->MAIN_UMASK))
259  @chmod($file, octdec($conf->global->MAIN_UMASK));
260 
261  $this->result = array('fullpath'=>$file);
262 
263  return 1;
264  }
265  else
266  {
267  $this->error=$langs->trans("ErrorCanNotCreateDir",$dir);
268  return 0;
269  }
270  }
271  else
272  {
273  $this->error=$langs->trans("ErrorConstantNotDefined","DON_OUTPUTDIR");
274  return 0;
275  }
276  }
277 
286  private function amountToLetters($montant, $devise1='', $devise2='')
287  {
288  $unite = array();
289  $dix = array();
290  $cent = array();
291  if(empty($devise1)) $dev1='euros';
292  else $dev1=$devise1;
293  if(empty($devise2)) $dev2='centimes';
294  else $dev2=$devise2;
295  $valeur_entiere=intval($montant);
296  $valeur_decimal=intval(round($montant-intval($montant), 2)*100);
297  $dix_c=intval($valeur_decimal%100/10);
298  $cent_c=intval($valeur_decimal%1000/100);
299  $unite[1]=$valeur_entiere%10;
300  $dix[1]=intval($valeur_entiere%100/10);
301  $cent[1]=intval($valeur_entiere%1000/100);
302  $unite[2]=intval($valeur_entiere%10000/1000);
303  $dix[2]=intval($valeur_entiere%100000/10000);
304  $cent[2]=intval($valeur_entiere%1000000/100000);
305  $unite[3]=intval($valeur_entiere%10000000/1000000);
306  $dix[3]=intval($valeur_entiere%100000000/10000000);
307  $cent[3]=intval($valeur_entiere%1000000000/100000000);
308  $chif=array('', 'un', 'deux', 'trois', 'quatre', 'cinq', 'six', 'sept', 'huit', 'neuf', 'dix', 'onze', 'douze', 'treize', 'quatorze', 'quinze', 'seize', 'dix sept', 'dix huit', 'dix neuf');
309  $secon_c='';
310  $trio_c='';
311  for($i=1; $i<=3; $i++){
312  $prim[$i]='';
313  $secon[$i]='';
314  $trio[$i]='';
315  if($dix[$i]==0){
316  $secon[$i]='';
317  $prim[$i]=$chif[$unite[$i]];
318  }
319  else if($dix[$i]==1){
320  $secon[$i]='';
321  $prim[$i]=$chif[($unite[$i]+10)];
322  }
323  else if($dix[$i]==2){
324  if($unite[$i]==1){
325  $secon[$i]='vingt et';
326  $prim[$i]=$chif[$unite[$i]];
327  }
328  else {
329  $secon[$i]='vingt';
330  $prim[$i]=$chif[$unite[$i]];
331  }
332  }
333  else if($dix[$i]==3){
334  if($unite[$i]==1){
335  $secon[$i]='trente et';
336  $prim[$i]=$chif[$unite[$i]];
337  }
338  else {
339  $secon[$i]='trente';
340  $prim[$i]=$chif[$unite[$i]];
341  }
342  }
343  else if($dix[$i]==4){
344  if($unite[$i]==1){
345  $secon[$i]='quarante et';
346  $prim[$i]=$chif[$unite[$i]];
347  }
348  else {
349  $secon[$i]='quarante';
350  $prim[$i]=$chif[$unite[$i]];
351  }
352  }
353  else if($dix[$i]==5){
354  if($unite[$i]==1){
355  $secon[$i]='cinquante et';
356  $prim[$i]=$chif[$unite[$i]];
357  }
358  else {
359  $secon[$i]='cinquante';
360  $prim[$i]=$chif[$unite[$i]];
361  }
362  }
363  else if($dix[$i]==6){
364  if($unite[$i]==1){
365  $secon[$i]='soixante et';
366  $prim[$i]=$chif[$unite[$i]];
367  }
368  else {
369  $secon[$i]='soixante';
370  $prim[$i]=$chif[$unite[$i]];
371  }
372  }
373  else if($dix[$i]==7){
374  if($unite[$i]==1){
375  $secon[$i]='soixante et';
376  $prim[$i]=$chif[$unite[$i]+10];
377  }
378  else {
379  $secon[$i]='soixante';
380  $prim[$i]=$chif[$unite[$i]+10];
381  }
382  }
383  else if($dix[$i]==8){
384  if($unite[$i]==1){
385  $secon[$i]='quatre-vingts et';
386  $prim[$i]=$chif[$unite[$i]];
387  }
388  else {
389  $secon[$i]='quatre-vingt';
390  $prim[$i]=$chif[$unite[$i]];
391  }
392  }
393  else if($dix[$i]==9){
394  if($unite[$i]==1){
395  $secon[$i]='quatre-vingts et';
396  $prim[$i]=$chif[$unite[$i]+10];
397  }
398  else {
399  $secon[$i]='quatre-vingts';
400  $prim[$i]=$chif[$unite[$i]+10];
401  }
402  }
403  if($cent[$i]==1) $trio[$i]='cent';
404  else if($cent[$i]!=0 || $cent[$i]!='') $trio[$i]=$chif[$cent[$i]] .' cents';
405  }
406 
407 
408  $chif2=array('', 'dix', 'vingt', 'trente', 'quarante', 'cinquante', 'soixante', 'soixante-dix', 'quatre-vingts', 'quatre-vingts dix');
409  $secon_c=$chif2[$dix_c];
410  if($cent_c==1) $trio_c='cent';
411  else if($cent_c!=0 || $cent_c!='') $trio_c=$chif[$cent_c] .' cents';
412 
413  if(($cent[3]==0 || $cent[3]=='') && ($dix[3]==0 || $dix[3]=='') && ($unite[3]==1))
414  $somme = $trio[3]. ' ' .$secon[3]. ' ' . $prim[3]. ' million ';
415  else if(($cent[3]!=0 && $cent[3]!='') || ($dix[3]!=0 && $dix[3]!='') || ($unite[3]!=0 && $unite[3]!=''))
416  $somme = $trio[3]. ' ' .$secon[3]. ' ' . $prim[3]. ' millions ';
417  else
418  $somme = $trio[3]. ' ' .$secon[3]. ' ' . $prim[3];
419 
420  if(($cent[2]==0 || $cent[2]=='') && ($dix[2]==0 || $dix[2]=='') && ($unite[2]==1))
421  $somme = $somme.' mille ';
422  else if(($cent[2]!=0 && $cent[2]!='') || ($dix[2]!=0 && $dix[2]!='') || ($unite[2]!=0 && $unite[2]!=''))
423  $somme = $somme. $trio[2]. ' ' .$secon[2]. ' ' . $prim[2]. ' milles ';
424  else
425  $somme = $somme. $trio[2]. ' ' .$secon[2]. ' ' . $prim[2];
426 
427  $somme = $somme. $trio[1]. ' ' .$secon[1]. ' ' . $prim[1];
428 
429  $somme = $somme. ' '. $dev1 .' ' ;
430 
431  if(($cent_c=='0' || $cent_c=='') && ($dix_c=='0' || $dix_c==''))
432  return $somme. ' et z&eacute;ro '. $dev2;
433  else
434  return $somme. $trio_c. ' ' .$secon_c. ' ' . $dev2;
435  }
436 }
amountToLetters($montant, $devise1='', $devise2='')
numbers to letters
</td >< td class="liste_titre" align="right"></td ></tr >< tr class="liste_titre">< input type="checkbox" onClick="toggle(this)"/> Ref p ref Label p label Duration p duration warehouseinternal SELECT description FROM product_lang WHERE qty< br > qty qty qty StockTooLow img yes disabled img no img no< tr class="oddeven">< td >< input type="checkbox" class="check" name="' . $i . '"' . $disabled . '></td >< td >< input type="checkbox" class="check" name="choose'.$i.'"></td >< td class="nowrap"></td >< td >< input type="hidden" name="desc' . $i . '" value="' . dol_escape_htmltag($objp-> description
Only used if Module[ID]Desc translation string is not found.
Definition: replenish.php:573
dol_sanitizeFileName($str, $newstr='_', $unaccent=1)
Clean a string to use it as a file name.
isEnabled()
Return if a module can be used or not.
$conf db name
Only used if Module[ID]Name translation string is not found.
Definition: repair.php:103
Class to manage generation of HTML components Only common components must be here.
dol_syslog($message, $level=LOG_INFO, $ident=0, $suffixinfilename='', $restricttologhandler='')
Write log message into outputs.
type
Definition: viewcat.php:284
write_file($don, $outputlangs, $currency='')
Write the object to document file to disk.
Class to generate document for subscriptions.
dol_now($mode='gmt')
Return date for now.
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...
dol_print_date($time, $format='', $tzoutput='tzserver', $outputlangs='', $encodetooutput=false)
Output date in a string format according to outputlangs (or langs if not defined).
Class to manage donations.
Definition: don.class.php:35
dol_mkdir($dir, $dataroot='', $newmask=null)
Creation of a directory (this can create recursive subdir)
Parent class of subscription templates.
Definition: modules_don.php:35
__construct($db)
Constructor.