Artifact cb187e76c821bb15423eb7e02b9dd9d5aeeb7277:


0000: 3c 3f 70 68 70 0a 0a 6e 61 6d 65 73 70 61 63 65  <?php..namespace
0010: 20 47 61 72 72 61 64 69 6e 5c 43 6f 6d 70 74 61   Garradin\Compta
0020: 3b 0a 0a 75 73 65 20 5c 47 61 72 72 61 64 69 6e  ;..use \Garradin
0030: 5c 44 42 3b 0a 75 73 65 20 5c 47 61 72 72 61 64  \DB;.use \Garrad
0040: 69 6e 5c 55 74 69 6c 73 3b 0a 75 73 65 20 5c 47  in\Utils;.use \G
0050: 61 72 72 61 64 69 6e 5c 55 73 65 72 45 78 63 65  arradin\UserExce
0060: 70 74 69 6f 6e 3b 0a 0a 63 6c 61 73 73 20 45 78  ption;..class Ex
0070: 65 72 63 69 63 65 73 0a 7b 0a 20 20 20 20 70 75  ercices.{.    pu
0080: 62 6c 69 63 20 66 75 6e 63 74 69 6f 6e 20 61 64  blic function ad
0090: 64 28 24 64 61 74 61 29 0a 20 20 20 20 7b 0a 20  d($data).    {. 
00a0: 20 20 20 20 20 20 20 24 74 68 69 73 2d 3e 5f 63         $this->_c
00b0: 68 65 63 6b 46 69 65 6c 64 73 28 24 64 61 74 61  heckFields($data
00c0: 29 3b 0a 0a 20 20 20 20 20 20 20 20 24 64 62 20  );..        $db 
00d0: 3d 20 44 42 3a 3a 67 65 74 49 6e 73 74 61 6e 63  = DB::getInstanc
00e0: 65 28 29 3b 0a 0a 20 20 20 20 20 20 20 20 69 66  e();..        if
00f0: 20 28 24 64 62 2d 3e 66 69 72 73 74 43 6f 6c 75   ($db->firstColu
0100: 6d 6e 28 27 53 45 4c 45 43 54 20 31 20 46 52 4f  mn('SELECT 1 FRO
0110: 4d 20 63 6f 6d 70 74 61 5f 65 78 65 72 63 69 63  M compta_exercic
0120: 65 73 20 57 48 45 52 45 0a 20 20 20 20 20 20 20  es WHERE.       
0130: 20 20 20 20 20 28 64 65 62 75 74 20 3c 3d 20 3a       (debut <= :
0140: 64 65 62 75 74 20 41 4e 44 20 66 69 6e 20 3e 3d  debut AND fin >=
0150: 20 3a 64 65 62 75 74 29 20 4f 52 20 28 64 65 62   :debut) OR (deb
0160: 75 74 20 3c 3d 20 3a 66 69 6e 20 41 4e 44 20 66  ut <= :fin AND f
0170: 69 6e 20 3e 3d 20 3a 66 69 6e 29 3b 27 2c 0a 20  in >= :fin);',. 
0180: 20 20 20 20 20 20 20 20 20 20 20 5b 27 64 65 62             ['deb
0190: 75 74 27 20 3d 3e 20 24 64 61 74 61 5b 27 64 65  ut' => $data['de
01a0: 62 75 74 27 5d 2c 20 27 66 69 6e 27 20 3d 3e 20  but'], 'fin' => 
01b0: 24 64 61 74 61 5b 27 66 69 6e 27 5d 5d 29 29 0a  $data['fin']])).
01c0: 20 20 20 20 20 20 20 20 7b 0a 20 20 20 20 20 20          {.      
01d0: 20 20 20 20 20 20 74 68 72 6f 77 20 6e 65 77 20        throw new 
01e0: 55 73 65 72 45 78 63 65 70 74 69 6f 6e 28 27 4c  UserException('L
01f0: 61 20 64 61 74 65 20 64 65 20 64 c3 a9 62 75 74  a date de d..but
0200: 20 6f 75 20 64 65 20 66 69 6e 20 73 65 20 72 65   ou de fin se re
0210: 63 6f 75 70 65 20 61 76 65 63 20 75 6e 20 61 75  coupe avec un au
0220: 74 72 65 20 65 78 65 72 63 69 63 65 2e 27 29 3b  tre exercice.');
0230: 0a 20 20 20 20 20 20 20 20 7d 0a 0a 20 20 20 20  .        }..    
0240: 20 20 20 20 69 66 20 28 24 64 62 2d 3e 66 69 72      if ($db->fir
0250: 73 74 43 6f 6c 75 6d 6e 28 27 53 45 4c 45 43 54  stColumn('SELECT
0260: 20 31 20 46 52 4f 4d 20 63 6f 6d 70 74 61 5f 65   1 FROM compta_e
0270: 78 65 72 63 69 63 65 73 20 57 48 45 52 45 20 63  xercices WHERE c
0280: 6c 6f 74 75 72 65 20 3d 20 30 3b 27 29 29 0a 20  loture = 0;')). 
0290: 20 20 20 20 20 20 20 7b 0a 20 20 20 20 20 20 20         {.       
02a0: 20 20 20 20 20 74 68 72 6f 77 20 6e 65 77 20 55       throw new U
02b0: 73 65 72 45 78 63 65 70 74 69 6f 6e 28 27 49 6c  serException('Il
02c0: 20 6e 5c 27 65 73 74 20 70 61 73 20 70 6f 73 73   n\'est pas poss
02d0: 69 62 6c 65 20 64 65 20 63 72 c3 a9 65 72 20 75  ible de cr..er u
02e0: 6e 20 6e 6f 75 76 65 6c 20 65 78 65 72 63 69 63  n nouvel exercic
02f0: 65 20 74 61 6e 74 20 71 75 5c 27 69 6c 20 65 78  e tant qu\'il ex
0300: 69 73 74 65 20 75 6e 20 65 78 65 72 63 69 63 65  iste un exercice
0310: 20 6e 6f 6e 2d 63 6c c3 b4 74 75 72 c3 a9 2e 27   non-cl..tur...'
0320: 29 3b 0a 20 20 20 20 20 20 20 20 7d 0a 0a 20 20  );.        }..  
0330: 20 20 20 20 20 20 24 64 62 2d 3e 69 6e 73 65 72        $db->inser
0340: 74 28 27 63 6f 6d 70 74 61 5f 65 78 65 72 63 69  t('compta_exerci
0350: 63 65 73 27 2c 20 5b 0a 20 20 20 20 20 20 20 20  ces', [.        
0360: 20 20 20 20 27 6c 69 62 65 6c 6c 65 27 20 20 20      'libelle'   
0370: 3d 3e 20 20 74 72 69 6d 28 24 64 61 74 61 5b 27  =>  trim($data['
0380: 6c 69 62 65 6c 6c 65 27 5d 29 2c 0a 20 20 20 20  libelle']),.    
0390: 20 20 20 20 20 20 20 20 27 64 65 62 75 74 27 20          'debut' 
03a0: 20 20 20 20 3d 3e 20 20 24 64 61 74 61 5b 27 64      =>  $data['d
03b0: 65 62 75 74 27 5d 2c 0a 20 20 20 20 20 20 20 20  ebut'],.        
03c0: 20 20 20 20 27 66 69 6e 27 20 20 20 20 20 20 20      'fin'       
03d0: 3d 3e 20 20 24 64 61 74 61 5b 27 66 69 6e 27 5d  =>  $data['fin']
03e0: 2c 0a 20 20 20 20 20 20 20 20 5d 29 3b 0a 0a 20  ,.        ]);.. 
03f0: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 24 64         return $d
0400: 62 2d 3e 6c 61 73 74 49 6e 73 65 72 74 52 6f 77  b->lastInsertRow
0410: 49 64 28 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20  Id();.    }..   
0420: 20 70 75 62 6c 69 63 20 66 75 6e 63 74 69 6f 6e   public function
0430: 20 65 64 69 74 28 24 69 64 2c 20 24 64 61 74 61   edit($id, $data
0440: 29 0a 20 20 20 20 7b 0a 20 20 20 20 20 20 20 20  ).    {.        
0450: 24 64 62 20 3d 20 44 42 3a 3a 67 65 74 49 6e 73  $db = DB::getIns
0460: 74 61 6e 63 65 28 29 3b 0a 0a 20 20 20 20 20 20  tance();..      
0470: 20 20 24 74 68 69 73 2d 3e 5f 63 68 65 63 6b 46    $this->_checkF
0480: 69 65 6c 64 73 28 24 64 61 74 61 29 3b 0a 0a 20  ields($data);.. 
0490: 20 20 20 20 20 20 20 2f 2f 20 45 76 69 74 6f 6e         // Eviton
04a0: 73 20 71 75 65 20 6c 65 73 20 65 78 65 72 63 69  s que les exerci
04b0: 63 65 73 20 73 65 20 63 72 6f 69 73 65 6e 74 0a  ces se croisent.
04c0: 20 20 20 20 20 20 20 20 69 66 20 28 24 64 62 2d          if ($db-
04d0: 3e 66 69 72 73 74 43 6f 6c 75 6d 6e 28 27 53 45  >firstColumn('SE
04e0: 4c 45 43 54 20 31 20 46 52 4f 4d 20 63 6f 6d 70  LECT 1 FROM comp
04f0: 74 61 5f 65 78 65 72 63 69 63 65 73 20 57 48 45  ta_exercices WHE
0500: 52 45 20 69 64 20 21 3d 20 3a 69 64 20 41 4e 44  RE id != :id AND
0510: 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 28 64  .            ((d
0520: 65 62 75 74 20 3c 3d 20 3a 64 65 62 75 74 20 41  ebut <= :debut A
0530: 4e 44 20 66 69 6e 20 3e 3d 20 3a 64 65 62 75 74  ND fin >= :debut
0540: 29 20 4f 52 20 28 64 65 62 75 74 20 3c 3d 20 3a  ) OR (debut <= :
0550: 66 69 6e 20 41 4e 44 20 66 69 6e 20 3e 3d 20 3a  fin AND fin >= :
0560: 66 69 6e 29 29 3b 27 2c 0a 20 20 20 20 20 20 20  fin));',.       
0570: 20 20 20 20 20 5b 27 64 65 62 75 74 27 20 3d 3e       ['debut' =>
0580: 20 24 64 61 74 61 5b 27 64 65 62 75 74 27 5d 2c   $data['debut'],
0590: 20 27 66 69 6e 27 20 3d 3e 20 24 64 61 74 61 5b   'fin' => $data[
05a0: 27 66 69 6e 27 5d 2c 20 27 69 64 27 20 3d 3e 20  'fin'], 'id' => 
05b0: 28 69 6e 74 29 20 24 69 64 5d 29 29 0a 20 20 20  (int) $id])).   
05c0: 20 20 20 20 20 7b 0a 20 20 20 20 20 20 20 20 20       {.         
05d0: 20 20 20 74 68 72 6f 77 20 6e 65 77 20 55 73 65     throw new Use
05e0: 72 45 78 63 65 70 74 69 6f 6e 28 27 4c 61 20 64  rException('La d
05f0: 61 74 65 20 64 65 20 64 c3 a9 62 75 74 20 6f 75  ate de d..but ou
0600: 20 64 65 20 66 69 6e 20 73 65 20 72 65 63 6f 75   de fin se recou
0610: 70 65 20 61 76 65 63 20 75 6e 20 61 75 74 72 65  pe avec un autre
0620: 20 65 78 65 72 63 69 63 65 2e 27 29 3b 0a 20 20   exercice.');.  
0630: 20 20 20 20 20 20 7d 0a 0a 20 20 20 20 20 20 20        }..       
0640: 20 2f 2f 20 4f 6e 20 76 c3 a9 72 69 66 69 65 20   // On v..rifie 
0650: 71 75 27 6f 6e 20 6e 65 20 76 61 20 70 61 73 20  qu'on ne va pas 
0660: 6d 65 74 74 72 65 20 64 65 73 20 6f 70 c3 a9 72  mettre des op..r
0670: 61 74 69 6f 6e 73 20 65 6e 20 64 65 68 6f 72 73  ations en dehors
0680: 20 64 65 20 74 6f 75 74 20 65 78 65 72 63 69 63   de tout exercic
0690: 65 0a 20 20 20 20 20 20 20 20 69 66 20 28 24 64  e.        if ($d
06a0: 62 2d 3e 66 69 72 73 74 43 6f 6c 75 6d 6e 28 27  b->firstColumn('
06b0: 53 45 4c 45 43 54 20 31 20 46 52 4f 4d 20 63 6f  SELECT 1 FROM co
06c0: 6d 70 74 61 5f 6a 6f 75 72 6e 61 6c 20 57 48 45  mpta_journal WHE
06d0: 52 45 20 69 64 5f 65 78 65 72 63 69 63 65 20 3d  RE id_exercice =
06e0: 20 3f 0a 20 20 20 20 20 20 20 20 20 20 20 20 41   ?.            A
06f0: 4e 44 20 64 61 74 65 20 3c 20 3f 20 4c 49 4d 49  ND date < ? LIMI
0700: 54 20 31 3b 27 2c 20 28 69 6e 74 29 24 69 64 2c  T 1;', (int)$id,
0710: 20 24 64 61 74 61 5b 27 64 65 62 75 74 27 5d 29   $data['debut'])
0720: 29 0a 20 20 20 20 20 20 20 20 7b 0a 20 20 20 20  ).        {.    
0730: 20 20 20 20 20 20 20 20 74 68 72 6f 77 20 6e 65          throw ne
0740: 77 20 55 73 65 72 45 78 63 65 70 74 69 6f 6e 28  w UserException(
0750: 27 44 65 73 20 6f 70 c3 a9 72 61 74 69 6f 6e 73  'Des op..rations
0760: 20 64 65 20 63 65 74 20 65 78 65 72 63 69 63 65   de cet exercice
0770: 20 6f 6e 74 20 75 6e 65 20 64 61 74 65 20 61 6e   ont une date an
0780: 74 c3 a9 72 69 65 75 72 65 20 c3 a0 20 6c 61 20  t..rieure .. la 
0790: 64 61 74 65 20 64 65 20 64 c3 a9 62 75 74 20 64  date de d..but d
07a0: 65 20 6c 5c 27 65 78 65 72 63 69 63 65 2e 27 29  e l\'exercice.')
07b0: 3b 0a 20 20 20 20 20 20 20 20 7d 0a 0a 20 20 20  ;.        }..   
07c0: 20 20 20 20 20 69 66 20 28 24 64 62 2d 3e 66 69       if ($db->fi
07d0: 72 73 74 43 6f 6c 75 6d 6e 28 27 53 45 4c 45 43  rstColumn('SELEC
07e0: 54 20 31 20 46 52 4f 4d 20 63 6f 6d 70 74 61 5f  T 1 FROM compta_
07f0: 6a 6f 75 72 6e 61 6c 20 57 48 45 52 45 20 69 64  journal WHERE id
0800: 5f 65 78 65 72 63 69 63 65 20 3d 20 3f 0a 20 20  _exercice = ?.  
0810: 20 20 20 20 20 20 20 20 20 20 41 4e 44 20 64 61            AND da
0820: 74 65 20 3e 20 3f 20 4c 49 4d 49 54 20 31 3b 27  te > ? LIMIT 1;'
0830: 2c 20 28 69 6e 74 29 24 69 64 2c 20 24 64 61 74  , (int)$id, $dat
0840: 61 5b 27 66 69 6e 27 5d 29 29 0a 20 20 20 20 20  a['fin'])).     
0850: 20 20 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20     {.           
0860: 20 74 68 72 6f 77 20 6e 65 77 20 55 73 65 72 45   throw new UserE
0870: 78 63 65 70 74 69 6f 6e 28 27 44 65 73 20 6f 70  xception('Des op
0880: c3 a9 72 61 74 69 6f 6e 73 20 64 65 20 63 65 74  ..rations de cet
0890: 20 65 78 65 72 63 69 63 65 20 6f 6e 74 20 75 6e   exercice ont un
08a0: 65 20 64 61 74 65 20 70 6f 73 74 c3 a9 72 69 65  e date post..rie
08b0: 75 72 65 20 c3 a0 20 6c 61 20 64 61 74 65 20 64  ure .. la date d
08c0: 65 20 66 69 6e 20 64 65 20 6c 5c 27 65 78 65 72  e fin de l\'exer
08d0: 63 69 63 65 2e 27 29 3b 0a 20 20 20 20 20 20 20  cice.');.       
08e0: 20 7d 0a 0a 20 20 20 20 20 20 20 20 24 64 62 2d   }..        $db-
08f0: 3e 75 70 64 61 74 65 28 27 63 6f 6d 70 74 61 5f  >update('compta_
0900: 65 78 65 72 63 69 63 65 73 27 2c 20 5b 0a 20 20  exercices', [.  
0910: 20 20 20 20 20 20 20 20 20 20 27 6c 69 62 65 6c            'libel
0920: 6c 65 27 20 20 20 3d 3e 20 20 74 72 69 6d 28 24  le'   =>  trim($
0930: 64 61 74 61 5b 27 6c 69 62 65 6c 6c 65 27 5d 29  data['libelle'])
0940: 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 27 64  ,.            'd
0950: 65 62 75 74 27 20 20 20 20 20 3d 3e 20 20 24 64  ebut'     =>  $d
0960: 61 74 61 5b 27 64 65 62 75 74 27 5d 2c 0a 20 20  ata['debut'],.  
0970: 20 20 20 20 20 20 20 20 20 20 27 66 69 6e 27 20            'fin' 
0980: 20 20 20 20 20 20 3d 3e 20 20 24 64 61 74 61 5b        =>  $data[
0990: 27 66 69 6e 27 5d 2c 0a 20 20 20 20 20 20 20 20  'fin'],.        
09a0: 5d 2c 20 27 69 64 20 3d 20 3a 69 64 27 2c 20 5b  ], 'id = :id', [
09b0: 27 69 64 27 20 3d 3e 20 28 69 6e 74 29 24 69 64  'id' => (int)$id
09c0: 5d 29 3b 0a 0a 20 20 20 20 20 20 20 20 72 65 74  ]);..        ret
09d0: 75 72 6e 20 74 72 75 65 3b 0a 20 20 20 20 7d 0a  urn true;.    }.
09e0: 0a 20 20 20 20 2f 2a 2a 0a 20 20 20 20 20 2a 20  .    /**.     * 
09f0: 43 6c c3 b4 74 75 72 65 72 20 75 6e 20 65 78 65  Cl..turer un exe
0a00: 72 63 69 63 65 20 65 74 20 65 6e 20 6f 75 76 72  rcice et en ouvr
0a10: 69 72 20 75 6e 20 6e 6f 75 76 65 61 75 0a 20 20  ir un nouveau.  
0a20: 20 20 20 2a 20 4c 65 20 72 65 70 6f 72 74 20 c3     * Le report .
0a30: a0 20 6e 6f 75 76 65 61 75 20 6e 27 65 73 74 20  . nouveau n'est 
0a40: 70 61 73 20 65 66 66 65 63 74 75 c3 a9 20 61 75  pas effectu.. au
0a50: 74 6f 6d 61 74 69 71 75 65 6d 65 6e 74 20 70 61  tomatiquement pa
0a60: 72 20 63 65 74 74 65 20 66 6f 6e 63 74 69 6f 6e  r cette fonction
0a70: 2c 20 76 6f 69 72 20 64 6f 52 65 70 6f 72 74 73  , voir doReports
0a80: 20 70 6f 75 72 20 c3 a7 61 2e 0a 20 20 20 20 20   pour ..a..     
0a90: 2a 20 40 70 61 72 61 6d 20 20 69 6e 74 65 67 65  * @param  intege
0aa0: 72 20 20 24 69 64 20 20 20 20 20 49 44 20 64 65  r  $id     ID de
0ab0: 20 6c 27 65 78 65 72 63 69 63 65 20 c3 a0 20 63   l'exercice .. c
0ac0: 6c c3 b4 74 75 72 65 72 0a 20 20 20 20 20 2a 20  l..turer.     * 
0ad0: 40 70 61 72 61 6d 20 20 73 74 72 69 6e 67 20 20  @param  string  
0ae0: 20 24 65 6e 64 20 20 20 20 44 61 74 65 20 64 65   $end    Date de
0af0: 20 63 6c c3 b4 74 75 72 65 20 64 65 20 6c 27 65   cl..ture de l'e
0b00: 78 65 72 63 69 63 65 20 61 75 20 66 6f 72 6d 61  xercice au forma
0b10: 74 20 59 2d 6d 2d 64 0a 20 20 20 20 20 2a 20 40  t Y-m-d.     * @
0b20: 72 65 74 75 72 6e 20 69 6e 74 65 67 65 72 20 20  return integer  
0b30: 20 20 20 20 20 20 20 20 4c 27 49 44 20 64 75 20          L'ID du 
0b40: 6e 6f 75 76 65 6c 20 65 78 65 72 63 69 63 65 20  nouvel exercice 
0b50: 63 72 c3 a9 c3 a9 0a 20 20 20 20 20 2a 2f 0a 20  cr.....     */. 
0b60: 20 20 20 70 75 62 6c 69 63 20 66 75 6e 63 74 69     public functi
0b70: 6f 6e 20 63 6c 6f 73 65 28 24 69 64 2c 20 24 65  on close($id, $e
0b80: 6e 64 29 0a 20 20 20 20 7b 0a 20 20 20 20 20 20  nd).    {.      
0b90: 20 20 24 64 62 20 3d 20 44 42 3a 3a 67 65 74 49    $db = DB::getI
0ba0: 6e 73 74 61 6e 63 65 28 29 3b 0a 0a 20 20 20 20  nstance();..    
0bb0: 20 20 20 20 69 66 20 28 21 55 74 69 6c 73 3a 3a      if (!Utils::
0bc0: 63 68 65 63 6b 44 61 74 65 28 24 65 6e 64 29 29  checkDate($end))
0bd0: 0a 20 20 20 20 20 20 20 20 7b 0a 20 20 20 20 20  .        {.     
0be0: 20 20 20 20 20 20 20 74 68 72 6f 77 20 6e 65 77         throw new
0bf0: 20 55 73 65 72 45 78 63 65 70 74 69 6f 6e 28 27   UserException('
0c00: 44 61 74 65 20 64 65 20 66 69 6e 20 76 69 64 65  Date de fin vide
0c10: 20 6f 75 20 69 6e 76 61 6c 69 64 65 2e 27 29 3b   ou invalide.');
0c20: 0a 20 20 20 20 20 20 20 20 7d 0a 0a 20 20 20 20  .        }..    
0c30: 20 20 20 20 24 64 62 2d 3e 62 65 67 69 6e 28 29      $db->begin()
0c40: 3b 0a 0a 20 20 20 20 20 20 20 20 2f 2f 20 43 6c  ;..        // Cl
0c50: c3 b4 74 75 72 65 20 64 65 20 6c 27 65 78 65 72  ..ture de l'exer
0c60: 63 69 63 65 0a 20 20 20 20 20 20 20 20 24 64 62  cice.        $db
0c70: 2d 3e 75 70 64 61 74 65 28 27 63 6f 6d 70 74 61  ->update('compta
0c80: 5f 65 78 65 72 63 69 63 65 73 27 2c 20 5b 0a 20  _exercices', [. 
0c90: 20 20 20 20 20 20 20 20 20 20 20 27 63 6c 6f 74             'clot
0ca0: 75 72 65 27 20 20 20 3d 3e 20 20 31 2c 0a 20 20  ure'   =>  1,.  
0cb0: 20 20 20 20 20 20 20 20 20 20 27 66 69 6e 27 20            'fin' 
0cc0: 20 20 20 20 20 20 3d 3e 20 20 24 65 6e 64 2c 0a        =>  $end,.
0cd0: 20 20 20 20 20 20 20 20 5d 2c 20 27 69 64 20 3d          ], 'id =
0ce0: 20 3a 69 64 27 2c 20 5b 27 69 64 27 20 3d 3e 20   :id', ['id' => 
0cf0: 28 69 6e 74 29 24 69 64 5d 29 3b 0a 0a 20 20 20  (int)$id]);..   
0d00: 20 20 20 20 20 2f 2f 20 44 61 74 65 20 64 65 20       // Date de 
0d10: 64 c3 a9 62 75 74 20 64 75 20 6e 6f 75 76 65 6c  d..but du nouvel
0d20: 20 65 78 65 72 63 69 63 65 20 3a 20 6c 65 6e 64   exercice : lend
0d30: 65 6d 61 69 6e 20 64 65 20 6c 61 20 63 6c c3 b4  emain de la cl..
0d40: 74 75 72 65 20 64 75 20 70 72 c3 a9 63 c3 a9 64  ture du pr..c..d
0d50: 65 6e 74 20 65 78 65 72 63 69 63 65 0a 20 20 20  ent exercice.   
0d60: 20 20 20 20 20 24 6e 65 77 5f 62 65 67 69 6e 20       $new_begin 
0d70: 3d 20 55 74 69 6c 73 3a 3a 6d 6f 64 69 66 79 44  = Utils::modifyD
0d80: 61 74 65 28 24 65 6e 64 2c 20 27 2b 31 20 64 61  ate($end, '+1 da
0d90: 79 27 29 3b 0a 0a 20 20 20 20 20 20 20 20 2f 2f  y');..        //
0da0: 20 44 61 74 65 20 64 65 20 66 69 6e 20 64 75 20   Date de fin du 
0db0: 6e 6f 75 76 65 6c 20 65 78 65 72 63 69 63 65 20  nouvel exercice 
0dc0: 3a 20 75 6e 20 61 6e 20 6d 6f 69 6e 73 20 75 6e  : un an moins un
0dd0: 20 6a 6f 75 72 20 61 70 72 c3 a8 73 20 6c 27 6f   jour apr..s l'o
0de0: 75 76 65 72 74 75 72 65 0a 20 20 20 20 20 20 20  uverture.       
0df0: 20 24 6e 65 77 5f 65 6e 64 20 3d 20 55 74 69 6c   $new_end = Util
0e00: 73 3a 3a 6d 6f 64 69 66 79 44 61 74 65 28 24 6e  s::modifyDate($n
0e10: 65 77 5f 62 65 67 69 6e 2c 20 27 2b 31 20 79 65  ew_begin, '+1 ye
0e20: 61 72 20 2d 31 20 64 61 79 27 29 3b 0a 0a 20 20  ar -1 day');..  
0e30: 20 20 20 20 20 20 2f 2f 20 45 6e 66 69 6e 20 73        // Enfin s
0e40: 61 75 66 20 73 27 69 6c 20 65 78 69 73 74 65 20  auf s'il existe 
0e50: 64 c3 a9 6a c3 a0 20 64 65 73 20 6f 70 c3 a9 72  d..j.. des op..r
0e60: 61 74 69 6f 6e 73 20 61 70 72 c3 a8 73 20 63 65  ations apr..s ce
0e70: 74 74 65 20 64 61 74 65 2c 20 61 75 71 75 65 6c  tte date, auquel
0e80: 20 63 61 73 20 6c 61 20 64 61 74 65 20 64 65 20   cas la date de 
0e90: 66 69 6e 0a 20 20 20 20 20 20 20 20 2f 2f 20 65  fin.        // e
0ea0: 73 74 20 66 69 78 c3 a9 65 20 c3 a0 20 6c 61 20  st fix..e .. la 
0eb0: 64 61 74 65 20 64 65 20 6c 61 20 64 65 72 6e 69  date de la derni
0ec0: c3 a8 72 65 20 6f 70 c3 a9 72 61 74 69 6f 6e 2c  ..re op..ration,
0ed0: 20 63 65 63 69 20 70 6f 75 72 20 6e 65 20 70 61   ceci pour ne pa
0ee0: 73 20 61 76 6f 69 72 20 64 27 6f 70 c3 a9 72 61  s avoir d'op..ra
0ef0: 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 2f 2f 20  tion.        // 
0f00: 6f 72 70 68 65 6c 69 6e 65 20 64 27 65 78 65 72  orpheline d'exer
0f10: 63 69 63 65 0a 20 20 20 20 20 20 20 20 24 6c 61  cice.        $la
0f20: 73 74 20 3d 20 24 64 62 2d 3e 66 69 72 73 74 43  st = $db->firstC
0f30: 6f 6c 75 6d 6e 28 27 53 45 4c 45 43 54 20 64 61  olumn('SELECT da
0f40: 74 65 20 46 52 4f 4d 20 63 6f 6d 70 74 61 5f 6a  te FROM compta_j
0f50: 6f 75 72 6e 61 6c 20 57 48 45 52 45 20 69 64 5f  ournal WHERE id_
0f60: 65 78 65 72 63 69 63 65 20 3d 20 3f 20 41 4e 44  exercice = ? AND
0f70: 20 64 61 74 65 20 3e 3d 20 3f 20 4f 52 44 45 52   date >= ? ORDER
0f80: 20 42 59 20 64 61 74 65 20 44 45 53 43 20 4c 49   BY date DESC LI
0f90: 4d 49 54 20 31 3b 27 2c 20 24 69 64 2c 20 24 6e  MIT 1;', $id, $n
0fa0: 65 77 5f 65 6e 64 29 3b 0a 20 20 20 20 20 20 20  ew_end);.       
0fb0: 20 24 6e 65 77 5f 65 6e 64 20 3d 20 24 6c 61 73   $new_end = $las
0fc0: 74 20 3f 3a 20 24 6e 65 77 5f 65 6e 64 3b 0a 0a  t ?: $new_end;..
0fd0: 20 20 20 20 20 20 20 20 2f 2f 20 43 72 c3 a9 61          // Cr..a
0fe0: 74 69 6f 6e 20 64 75 20 6e 6f 75 76 65 6c 20 65  tion du nouvel e
0ff0: 78 65 72 63 69 63 65 0a 20 20 20 20 20 20 20 20  xercice.        
1000: 24 6e 65 77 5f 69 64 20 3d 20 24 74 68 69 73 2d  $new_id = $this-
1010: 3e 61 64 64 28 5b 0a 20 20 20 20 20 20 20 20 20  >add([.         
1020: 20 20 20 27 64 65 62 75 74 27 20 20 20 20 20 3d     'debut'     =
1030: 3e 20 20 24 6e 65 77 5f 62 65 67 69 6e 2c 0a 20  >  $new_begin,. 
1040: 20 20 20 20 20 20 20 20 20 20 20 27 66 69 6e 27             'fin'
1050: 20 20 20 20 20 20 20 3d 3e 20 20 24 6e 65 77 5f         =>  $new_
1060: 65 6e 64 2c 0a 20 20 20 20 20 20 20 20 20 20 20  end,.           
1070: 20 27 6c 69 62 65 6c 6c 65 27 20 20 20 3d 3e 20   'libelle'   => 
1080: 20 27 4e 6f 75 76 65 6c 20 65 78 65 72 63 69 63   'Nouvel exercic
1090: 65 27 0a 20 20 20 20 20 20 20 20 5d 29 3b 0a 0a  e'.        ]);..
10a0: 20 20 20 20 20 20 20 20 2f 2f 20 52 c3 a9 2d 61          // R..-a
10b0: 74 74 72 69 62 75 74 69 6f 6e 20 64 65 73 20 6f  ttribution des o
10c0: 70 c3 a9 72 61 74 69 6f 6e 73 20 64 65 20 6c 27  p..rations de l'
10d0: 65 78 65 72 63 69 63 65 20 c3 a0 20 63 6c c3 b4  exercice .. cl..
10e0: 74 75 72 65 72 20 71 75 69 20 6e 65 20 73 6f 6e  turer qui ne son
10f0: 74 20 70 61 73 20 64 61 6e 73 20 73 6f 6e 0a 20  t pas dans son. 
1100: 20 20 20 20 20 20 20 2f 2f 20 69 6e 74 65 72 76         // interv
1110: 61 6c 65 20 61 75 20 6e 6f 75 76 65 6c 20 65 78  ale au nouvel ex
1120: 65 72 63 69 63 65 0a 20 20 20 20 20 20 20 20 24  ercice.        $
1130: 64 62 2d 3e 75 70 64 61 74 65 28 27 63 6f 6d 70  db->update('comp
1140: 74 61 5f 6a 6f 75 72 6e 61 6c 27 2c 20 5b 27 69  ta_journal', ['i
1150: 64 5f 65 78 65 72 63 69 63 65 27 20 3d 3e 20 24  d_exercice' => $
1160: 6e 65 77 5f 69 64 5d 2c 20 27 69 64 5f 65 78 65  new_id], 'id_exe
1170: 72 63 69 63 65 20 3d 20 3a 69 64 20 41 4e 44 20  rcice = :id AND 
1180: 64 61 74 65 20 3e 3d 20 3a 64 61 74 65 27 2c 20  date >= :date', 
1190: 5b 0a 20 20 20 20 20 20 20 20 20 20 20 20 27 69  [.            'i
11a0: 64 27 20 20 20 3d 3e 20 24 69 64 2c 0a 20 20 20  d'   => $id,.   
11b0: 20 20 20 20 20 20 20 20 20 27 64 61 74 65 27 20           'date' 
11c0: 3d 3e 20 24 6e 65 77 5f 62 65 67 69 6e 2c 0a 20  => $new_begin,. 
11d0: 20 20 20 20 20 20 20 5d 29 3b 0a 0a 20 20 20 20         ]);..    
11e0: 20 20 20 20 24 64 62 2d 3e 63 6f 6d 6d 69 74 28      $db->commit(
11f0: 29 3b 0a 0a 20 20 20 20 20 20 20 20 72 65 74 75  );..        retu
1200: 72 6e 20 24 6e 65 77 5f 69 64 3b 0a 20 20 20 20  rn $new_id;.    
1210: 7d 0a 0a 20 20 20 20 2f 2a 2a 0a 20 20 20 20 20  }..    /**.     
1220: 2a 20 43 72 c3 a9 65 72 20 6c 65 73 20 72 65 70  * Cr..er les rep
1230: 6f 72 74 73 20 c3 a0 20 6e 6f 75 76 65 61 75 20  orts .. nouveau 
1240: 69 73 73 75 73 20 64 65 20 6c 27 65 78 65 72 63  issus de l'exerc
1250: 69 63 65 20 24 6f 6c 64 5f 69 64 20 64 61 6e 73  ice $old_id dans
1260: 20 6c 65 20 6e 6f 75 76 65 6c 20 65 78 65 72 63   le nouvel exerc
1270: 69 63 65 20 63 6f 75 72 61 6e 74 0a 20 20 20 20  ice courant.    
1280: 20 2a 20 40 70 61 72 61 6d 20 20 69 6e 74 65 67   * @param  integ
1290: 65 72 20 24 6f 6c 64 5f 69 64 20 20 49 44 20 64  er $old_id  ID d
12a0: 65 20 6c 27 61 6e 63 69 65 6e 20 65 78 65 72 63  e l'ancien exerc
12b0: 69 63 65 0a 20 20 20 20 20 2a 20 40 70 61 72 61  ice.     * @para
12c0: 6d 20 20 69 6e 74 65 67 65 72 20 24 6e 65 77 5f  m  integer $new_
12d0: 69 64 20 20 49 44 20 64 75 20 6e 6f 75 76 65 6c  id  ID du nouvel
12e0: 20 65 78 65 72 63 69 63 65 0a 20 20 20 20 20 2a   exercice.     *
12f0: 20 40 70 61 72 61 6d 20 20 73 74 72 69 6e 67 20   @param  string 
1300: 20 24 64 61 74 65 20 20 20 20 44 61 74 65 20 59   $date    Date Y
1310: 2d 6d 2d 64 20 64 6f 6e 6e c3 a9 65 20 61 75 78  -m-d donn..e aux
1320: 20 6f 70 c3 a9 72 61 74 69 6f 6e 73 20 63 72 c3   op..rations cr.
1330: a9 c3 a9 65 73 0a 20 20 20 20 20 2a 20 40 72 65  ...es.     * @re
1340: 74 75 72 6e 20 62 6f 6f 6c 65 61 6e 20 20 20 20  turn boolean    
1350: 20 20 20 20 20 20 74 72 75 65 20 73 69 20 73 75        true si su
1360: 63 63 c3 a8 73 0a 20 20 20 20 20 2a 2f 0a 20 20  cc..s.     */.  
1370: 20 20 70 75 62 6c 69 63 20 66 75 6e 63 74 69 6f    public functio
1380: 6e 20 64 6f 52 65 70 6f 72 74 73 28 24 6f 6c 64  n doReports($old
1390: 5f 69 64 2c 20 24 64 61 74 65 29 0a 20 20 20 20  _id, $date).    
13a0: 7b 0a 20 20 20 20 20 20 20 20 24 64 62 20 3d 20  {.        $db = 
13b0: 44 42 3a 3a 67 65 74 49 6e 73 74 61 6e 63 65 28  DB::getInstance(
13c0: 29 3b 0a 0a 20 20 20 20 20 20 20 20 24 64 62 2d  );..        $db-
13d0: 3e 62 65 67 69 6e 28 29 3b 0a 0a 20 20 20 20 20  >begin();..     
13e0: 20 20 20 24 72 65 70 6f 72 74 5f 63 72 65 64 69     $report_credi
13f0: 74 65 75 72 20 3d 20 31 31 30 3b 0a 20 20 20 20  teur = 110;.    
1400: 20 20 20 20 24 72 65 70 6f 72 74 5f 64 65 62 69      $report_debi
1410: 74 65 75 72 20 20 3d 20 31 31 39 3b 0a 0a 20 20  teur  = 119;..  
1420: 20 20 20 20 20 20 24 63 6f 6d 70 74 65 73 20 3d        $comptes =
1430: 20 6e 65 77 20 43 6f 6d 70 74 65 73 3b 0a 0a 20   new Comptes;.. 
1440: 20 20 20 20 20 20 20 69 66 20 28 21 24 63 6f 6d         if (!$com
1450: 70 74 65 73 2d 3e 69 73 41 63 74 69 76 65 28 24  ptes->isActive($
1460: 72 65 70 6f 72 74 5f 63 72 65 64 69 74 65 75 72  report_crediteur
1470: 29 29 0a 20 20 20 20 20 20 20 20 7b 0a 20 20 20  )).        {.   
1480: 20 20 20 20 20 20 20 20 20 74 68 72 6f 77 20 6e           throw n
1490: 65 77 20 55 73 65 72 45 78 63 65 70 74 69 6f 6e  ew UserException
14a0: 28 27 49 6d 70 6f 73 73 69 62 6c 65 20 64 65 20  ('Impossible de 
14b0: 66 61 69 72 65 20 6c 65 20 72 65 70 6f 72 74 20  faire le report 
14c0: c3 a0 20 6e 6f 75 76 65 61 75 20 3a 20 6c 65 20  .. nouveau : le 
14d0: 63 6f 6d 70 74 65 20 64 65 20 72 65 70 6f 72 74  compte de report
14e0: 20 63 72 c3 a9 64 69 74 65 75 72 20 27 20 2e 20   cr..diteur ' . 
14f0: 24 72 65 70 6f 72 74 5f 63 72 65 64 69 74 65 75  $report_crediteu
1500: 72 20 2e 20 27 20 6e 5c 27 65 78 69 73 74 65 20  r . ' n\'existe 
1510: 70 61 73 20 6f 75 20 65 73 74 20 64 c3 a9 73 61  pas ou est d..sa
1520: 63 74 69 76 c3 a9 2e 27 29 3b 0a 20 20 20 20 20  ctiv...');.     
1530: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 65 6c 73     }.        els
1540: 65 20 69 66 20 28 21 24 63 6f 6d 70 74 65 73 2d  e if (!$comptes-
1550: 3e 69 73 41 63 74 69 76 65 28 24 72 65 70 6f 72  >isActive($repor
1560: 74 5f 64 65 62 69 74 65 75 72 29 29 0a 20 20 20  t_debiteur)).   
1570: 20 20 20 20 20 7b 0a 20 20 20 20 20 20 20 20 20       {.         
1580: 20 20 20 74 68 72 6f 77 20 6e 65 77 20 55 73 65     throw new Use
1590: 72 45 78 63 65 70 74 69 6f 6e 28 27 49 6d 70 6f  rException('Impo
15a0: 73 73 69 62 6c 65 20 64 65 20 66 61 69 72 65 20  ssible de faire 
15b0: 6c 65 20 72 65 70 6f 72 74 20 c3 a0 20 6e 6f 75  le report .. nou
15c0: 76 65 61 75 20 3a 20 6c 65 20 63 6f 6d 70 74 65  veau : le compte
15d0: 20 64 65 20 72 65 70 6f 72 74 20 64 c3 a9 62 69   de report d..bi
15e0: 74 65 75 72 20 27 20 2e 20 24 72 65 70 6f 72 74  teur ' . $report
15f0: 5f 64 65 62 69 74 65 75 72 20 2e 20 27 20 6e 5c  _debiteur . ' n\
1600: 27 65 78 69 73 74 65 20 70 61 73 20 6f 75 20 65  'existe pas ou e
1610: 73 74 20 64 c3 a9 73 61 63 74 69 76 c3 a9 2e 27  st d..sactiv...'
1620: 29 3b 0a 20 20 20 20 20 20 20 20 7d 0a 0a 20 20  );.        }..  
1630: 20 20 20 20 20 20 75 6e 73 65 74 28 24 63 6f 6d        unset($com
1640: 70 74 65 73 29 3b 0a 0a 20 20 20 20 20 20 20 20  ptes);..        
1650: 24 74 68 69 73 2d 3e 73 6f 6c 64 65 72 52 65 73  $this->solderRes
1660: 75 6c 74 61 74 28 24 6f 6c 64 5f 69 64 2c 20 24  ultat($old_id, $
1670: 64 61 74 65 29 3b 0a 0a 20 20 20 20 20 20 20 20  date);..        
1680: 2f 2f 20 52 c3 a9 63 75 70 c3 a9 72 65 72 20 63  // R..cup..rer c
1690: 68 61 63 75 6e 20 64 65 73 20 63 6f 6d 70 74 65  hacun des compte
16a0: 73 20 64 65 20 62 69 6c 61 6e 20 65 74 20 6c 65  s de bilan et le
16b0: 75 72 73 20 73 6f 6c 64 65 73 20 28 75 6e 69 71  urs soldes (uniq
16c0: 75 65 6d 65 6e 74 20 6c 65 73 20 63 6c 61 73 73  uement les class
16d0: 65 73 20 31 20 c3 a0 20 35 29 0a 20 20 20 20 20  es 1 .. 5).     
16e0: 20 20 20 24 73 74 61 74 65 6d 65 6e 74 20 3d 20     $statement = 
16f0: 24 64 62 2d 3e 70 72 65 70 61 72 65 64 51 75 65  $db->preparedQue
1700: 72 79 28 27 53 45 4c 45 43 54 20 63 6f 6d 70 74  ry('SELECT compt
1710: 61 5f 63 6f 6d 70 74 65 73 2e 69 64 20 41 53 20  a_comptes.id AS 
1720: 63 6f 6d 70 74 65 2c 20 63 6f 6d 70 74 61 5f 63  compte, compta_c
1730: 6f 6d 70 74 65 73 2e 70 6f 73 69 74 69 6f 6e 20  omptes.position 
1740: 41 53 20 70 6f 73 69 74 69 6f 6e 2c 0a 20 20 20  AS position,.   
1750: 20 20 20 20 20 20 20 20 20 52 4f 55 4e 44 28 43           ROUND(C
1760: 4f 41 4c 45 53 43 45 28 28 53 45 4c 45 43 54 20  OALESCE((SELECT 
1770: 53 55 4d 28 6d 6f 6e 74 61 6e 74 29 20 46 52 4f  SUM(montant) FRO
1780: 4d 20 63 6f 6d 70 74 61 5f 6a 6f 75 72 6e 61 6c  M compta_journal
1790: 20 57 48 45 52 45 20 63 6f 6d 70 74 65 5f 64 65   WHERE compte_de
17a0: 62 69 74 20 3d 20 63 6f 6d 70 74 61 5f 63 6f 6d  bit = compta_com
17b0: 70 74 65 73 2e 69 64 20 41 4e 44 20 69 64 5f 65  ptes.id AND id_e
17c0: 78 65 72 63 69 63 65 20 3d 20 3a 69 64 29 2c 20  xercice = :id), 
17d0: 30 29 2c 20 32 29 0a 20 20 20 20 20 20 20 20 20  0), 2).         
17e0: 20 20 20 2d 20 52 4f 55 4e 44 28 43 4f 41 4c 45     - ROUND(COALE
17f0: 53 43 45 28 28 53 45 4c 45 43 54 20 53 55 4d 28  SCE((SELECT SUM(
1800: 6d 6f 6e 74 61 6e 74 29 20 46 52 4f 4d 20 63 6f  montant) FROM co
1810: 6d 70 74 61 5f 6a 6f 75 72 6e 61 6c 20 57 48 45  mpta_journal WHE
1820: 52 45 20 63 6f 6d 70 74 65 5f 63 72 65 64 69 74  RE compte_credit
1830: 20 3d 20 63 6f 6d 70 74 61 5f 63 6f 6d 70 74 65   = compta_compte
1840: 73 2e 69 64 20 41 4e 44 20 69 64 5f 65 78 65 72  s.id AND id_exer
1850: 63 69 63 65 20 3d 20 3a 69 64 29 2c 20 30 29 2c  cice = :id), 0),
1860: 20 32 29 20 41 53 20 73 6f 6c 64 65 0a 20 20 20   2) AS solde.   
1870: 20 20 20 20 20 20 20 20 20 46 52 4f 4d 20 63 6f           FROM co
1880: 6d 70 74 61 5f 63 6f 6d 70 74 65 73 20 0a 20 20  mpta_comptes .  
1890: 20 20 20 20 20 20 20 20 20 20 49 4e 4e 45 52 20            INNER 
18a0: 4a 4f 49 4e 20 63 6f 6d 70 74 61 5f 6a 6f 75 72  JOIN compta_jour
18b0: 6e 61 6c 20 4f 4e 20 63 6f 6d 70 74 61 5f 63 6f  nal ON compta_co
18c0: 6d 70 74 65 73 2e 69 64 20 3d 20 63 6f 6d 70 74  mptes.id = compt
18d0: 61 5f 6a 6f 75 72 6e 61 6c 2e 63 6f 6d 70 74 65  a_journal.compte
18e0: 5f 64 65 62 69 74 20 0a 20 20 20 20 20 20 20 20  _debit .        
18f0: 20 20 20 20 20 20 20 20 4f 52 20 63 6f 6d 70 74          OR compt
1900: 61 5f 63 6f 6d 70 74 65 73 2e 69 64 20 3d 20 63  a_comptes.id = c
1910: 6f 6d 70 74 61 5f 6a 6f 75 72 6e 61 6c 2e 63 6f  ompta_journal.co
1920: 6d 70 74 65 5f 63 72 65 64 69 74 0a 20 20 20 20  mpte_credit.    
1930: 20 20 20 20 20 20 20 20 57 48 45 52 45 20 69 64          WHERE id
1940: 5f 65 78 65 72 63 69 63 65 20 3d 20 3a 69 64 20  _exercice = :id 
1950: 41 4e 44 20 73 6f 6c 64 65 20 21 3d 20 30 20 41  AND solde != 0 A
1960: 4e 44 20 43 41 53 54 28 73 75 62 73 74 72 28 63  ND CAST(substr(c
1970: 6f 6d 70 74 61 5f 63 6f 6d 70 74 65 73 2e 69 64  ompta_comptes.id
1980: 2c 20 31 2c 20 31 29 20 41 53 20 49 4e 54 45 47  , 1, 1) AS INTEG
1990: 45 52 29 20 3c 3d 20 35 0a 20 20 20 20 20 20 20  ER) <= 5.       
19a0: 20 20 20 20 20 47 52 4f 55 50 20 42 59 20 63 6f       GROUP BY co
19b0: 6d 70 74 61 5f 63 6f 6d 70 74 65 73 2e 69 64 3b  mpta_comptes.id;
19c0: 27 2c 20 5b 27 69 64 27 20 3d 3e 20 24 6f 6c 64  ', ['id' => $old
19d0: 5f 69 64 5d 29 3b 0a 0a 20 20 20 20 20 20 20 20  _id]);..        
19e0: 24 64 69 66 66 20 3d 20 30 3b 0a 20 20 20 20 20  $diff = 0;.     
19f0: 20 20 20 24 6a 6f 75 72 6e 61 6c 20 3d 20 6e 65     $journal = ne
1a00: 77 20 4a 6f 75 72 6e 61 6c 3b 0a 0a 20 20 20 20  w Journal;..    
1a10: 20 20 20 20 77 68 69 6c 65 20 28 24 72 6f 77 20      while ($row 
1a20: 3d 20 24 73 74 61 74 65 6d 65 6e 74 2d 3e 66 65  = $statement->fe
1a30: 74 63 68 41 72 72 61 79 28 53 51 4c 49 54 45 33  tchArray(SQLITE3
1a40: 5f 41 53 53 4f 43 29 29 0a 20 20 20 20 20 20 20  _ASSOC)).       
1a50: 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 24   {.            $
1a60: 73 6f 6c 64 65 20 3d 20 24 72 6f 77 5b 27 73 6f  solde = $row['so
1a70: 6c 64 65 27 5d 3b 0a 0a 20 20 20 20 20 20 20 20  lde'];..        
1a80: 20 20 20 20 2f 2f 20 53 6f 6c 64 65 20 64 75 20      // Solde du 
1a90: 63 6f 6d 70 74 65 20 c3 a0 20 7a c3 a9 72 6f 20  compte .. z..ro 
1aa0: 3a 20 61 75 63 75 6e 20 72 65 70 6f 72 74 20 c3  : aucun report .
1ab0: a0 20 66 61 69 72 65 0a 20 20 20 20 20 20 20 20  . faire.        
1ac0: 20 20 20 20 69 66 20 28 65 6d 70 74 79 28 24 73      if (empty($s
1ad0: 6f 6c 64 65 29 29 0a 20 20 20 20 20 20 20 20 20  olde)).         
1ae0: 20 20 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20     {.           
1af0: 20 20 20 20 20 63 6f 6e 74 69 6e 75 65 3b 0a 20       continue;. 
1b00: 20 20 20 20 20 20 20 20 20 20 20 7d 0a 0a 20 20             }..  
1b10: 20 20 20 20 20 20 20 20 20 20 24 63 6f 6d 70 74            $compt
1b20: 65 5f 64 65 62 69 74 20 3d 20 24 73 6f 6c 64 65  e_debit = $solde
1b30: 20 3c 20 30 20 3f 20 4e 55 4c 4c 20 3a 20 24 72   < 0 ? NULL : $r
1b40: 6f 77 5b 27 63 6f 6d 70 74 65 27 5d 3b 0a 20 20  ow['compte'];.  
1b50: 20 20 20 20 20 20 20 20 20 20 24 63 6f 6d 70 74            $compt
1b60: 65 5f 63 72 65 64 69 74 20 3d 20 24 73 6f 6c 64  e_credit = $sold
1b70: 65 20 3e 20 30 20 3f 20 4e 55 4c 4c 20 3a 20 24  e > 0 ? NULL : $
1b80: 72 6f 77 5b 27 63 6f 6d 70 74 65 27 5d 3b 0a 0a  row['compte'];..
1b90: 20 20 20 20 20 20 20 20 20 20 20 20 24 64 69 66              $dif
1ba0: 66 20 2b 3d 20 24 73 6f 6c 64 65 3b 0a 20 20 20  f += $solde;.   
1bb0: 20 20 20 20 20 20 20 20 20 24 73 6f 6c 64 65 20           $solde 
1bc0: 3d 20 72 6f 75 6e 64 28 61 62 73 28 24 73 6f 6c  = round(abs($sol
1bd0: 64 65 29 2c 20 32 29 3b 0a 0a 20 20 20 20 20 20  de), 2);..      
1be0: 20 20 20 20 20 20 2f 2f 20 43 68 61 71 75 65 20        // Chaque 
1bf0: 73 6f 6c 64 65 20 64 65 20 63 6f 6d 70 74 65 20  solde de compte 
1c00: 65 73 74 20 72 65 70 6f 72 74 c3 a9 20 64 61 6e  est report.. dan
1c10: 73 20 6c 65 20 6e 6f 75 76 65 6c 20 65 78 65 72  s le nouvel exer
1c20: 63 69 63 65 0a 20 20 20 20 20 20 20 20 20 20 20  cice.           
1c30: 20 24 6a 6f 75 72 6e 61 6c 2d 3e 61 64 64 28 5b   $journal->add([
1c40: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
1c50: 20 27 6c 69 62 65 6c 6c 65 27 20 20 20 20 20 20   'libelle'      
1c60: 20 3d 3e 20 20 27 52 65 70 6f 72 74 20 c3 a0 20   =>  'Report .. 
1c70: 6e 6f 75 76 65 61 75 27 2c 0a 20 20 20 20 20 20  nouveau',.      
1c80: 20 20 20 20 20 20 20 20 20 20 27 64 61 74 65 27            'date'
1c90: 20 20 20 20 20 20 20 20 20 20 3d 3e 20 20 24 64            =>  $d
1ca0: 61 74 65 2c 0a 20 20 20 20 20 20 20 20 20 20 20  ate,.           
1cb0: 20 20 20 20 20 27 6d 6f 6e 74 61 6e 74 27 20 20       'montant'  
1cc0: 20 20 20 20 20 3d 3e 20 20 24 73 6f 6c 64 65 2c       =>  $solde,
1cd0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
1ce0: 20 27 63 6f 6d 70 74 65 5f 64 65 62 69 74 27 20   'compte_debit' 
1cf0: 20 3d 3e 20 20 24 63 6f 6d 70 74 65 5f 64 65 62   =>  $compte_deb
1d00: 69 74 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20  it,.            
1d10: 20 20 20 20 27 63 6f 6d 70 74 65 5f 63 72 65 64      'compte_cred
1d20: 69 74 27 20 3d 3e 20 20 24 63 6f 6d 70 74 65 5f  it' =>  $compte_
1d30: 63 72 65 64 69 74 2c 0a 20 20 20 20 20 20 20 20  credit,.        
1d40: 20 20 20 20 20 20 20 20 27 72 65 6d 61 72 71 75          'remarqu
1d50: 65 73 27 20 20 20 20 20 3d 3e 20 20 27 52 65 70  es'     =>  'Rep
1d60: 6f 72 74 20 64 65 20 73 6f 6c 64 65 20 63 72 c3  ort de solde cr.
1d70: a9 c3 a9 20 61 75 74 6f 6d 61 74 69 71 75 65 6d  ... automatiquem
1d80: 65 6e 74 20 c3 a0 20 6c 61 20 63 6c c3 b4 74 75  ent .. la cl..tu
1d90: 72 65 20 64 65 20 6c 5c 27 65 78 65 72 63 69 63  re de l\'exercic
1da0: 65 20 70 72 c3 a9 63 c3 a9 64 65 6e 74 27 2c 0a  e pr..c..dent',.
1db0: 20 20 20 20 20 20 20 20 20 20 20 20 5d 29 3b 0a              ]);.
1dc0: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20          }.      
1dd0: 20 20 0a 20 20 20 20 20 20 20 20 2f 2f 20 46 49    .        // FI
1de0: 58 4d 45 20 75 74 69 6c 69 73 65 72 20 24 64 69  XME utiliser $di
1df0: 66 66 20 70 6f 75 72 20 c3 a9 71 75 69 6c 69 62  ff pour ..quilib
1e00: 72 65 72 0a 0a 20 20 20 20 20 20 20 20 24 64 62  rer..        $db
1e10: 2d 3e 63 6f 6d 6d 69 74 28 29 3b 0a 0a 20 20 20  ->commit();..   
1e20: 20 20 20 20 20 72 65 74 75 72 6e 20 74 72 75 65       return true
1e30: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 2a  ;.    }..    /**
1e40: 0a 20 20 20 20 20 2a 20 53 6f 6c 64 65 72 20 6c  .     * Solder l
1e50: 65 73 20 63 6f 6d 70 74 65 73 20 64 65 20 63 68  es comptes de ch
1e60: 61 72 67 65 20 65 74 20 64 65 20 70 72 6f 64 75  arge et de produ
1e70: 69 74 73 20 64 65 20 6c 27 65 78 65 72 63 69 63  its de l'exercic
1e80: 65 20 4e 20 0a 20 20 20 20 20 2a 20 65 74 20 6c  e N .     * et l
1e90: 65 73 20 69 6e 73 63 72 69 72 65 20 61 75 20 72  es inscrire au r
1ea0: c3 a9 73 75 6c 74 61 74 20 64 65 20 6c 27 65 78  ..sultat de l'ex
1eb0: 65 72 63 69 63 65 20 4e 2b 31 0a 20 20 20 20 20  ercice N+1.     
1ec0: 2a 20 40 70 61 72 61 6d 20 20 69 6e 74 65 67 65  * @param  intege
1ed0: 72 20 20 24 65 78 65 72 63 69 63 65 20 20 20 49  r  $exercice   I
1ee0: 44 20 64 65 20 6c 27 65 78 65 72 63 69 63 65 20  D de l'exercice 
1ef0: c3 a0 20 73 6f 6c 64 65 72 0a 20 20 20 20 20 2a  .. solder.     *
1f00: 20 40 70 61 72 61 6d 20 20 73 74 72 69 6e 67 20   @param  string 
1f10: 20 20 24 64 61 74 65 20 20 20 20 20 20 20 44 61    $date       Da
1f20: 74 65 20 64 65 20 64 c3 a9 62 75 74 20 64 65 20  te de d..but de 
1f30: 6c 27 65 78 65 72 63 69 63 65 20 59 2d 6d 2d 64  l'exercice Y-m-d
1f40: 0a 20 20 20 20 20 2a 20 40 72 65 74 75 72 6e 20  .     * @return 
1f50: 62 6f 6f 6c 65 61 6e 20 20 20 20 20 20 20 20 20  boolean         
1f60: 20 20 20 20 20 74 72 75 65 20 65 6e 20 63 61 73       true en cas
1f70: 20 64 65 20 73 75 63 63 c3 a8 73 0a 20 20 20 20   de succ..s.    
1f80: 20 2a 2f 0a 20 20 20 20 70 75 62 6c 69 63 20 66   */.    public f
1f90: 75 6e 63 74 69 6f 6e 20 73 6f 6c 64 65 72 52 65  unction solderRe
1fa0: 73 75 6c 74 61 74 28 24 65 78 65 72 63 69 63 65  sultat($exercice
1fb0: 2c 20 24 64 61 74 65 29 0a 20 20 20 20 7b 0a 20  , $date).    {. 
1fc0: 20 20 20 20 20 20 20 24 64 62 20 3d 20 44 42 3a         $db = DB:
1fd0: 3a 67 65 74 49 6e 73 74 61 6e 63 65 28 29 3b 0a  :getInstance();.
1fe0: 0a 20 20 20 20 20 20 20 20 24 72 65 73 75 6c 74  .        $result
1ff0: 61 74 5f 65 78 63 65 64 65 6e 74 20 3d 20 31 32  at_excedent = 12
2000: 30 3b 0a 20 20 20 20 20 20 20 20 24 72 65 73 75  0;.        $resu
2010: 6c 74 61 74 5f 64 65 62 69 74 65 75 72 20 3d 20  ltat_debiteur = 
2020: 31 32 39 3b 0a 0a 20 20 20 20 20 20 20 20 24 63  129;..        $c
2030: 6f 6d 70 74 65 73 20 3d 20 6e 65 77 20 43 6f 6d  omptes = new Com
2040: 70 74 65 73 3b 0a 0a 20 20 20 20 20 20 20 20 69  ptes;..        i
2050: 66 20 28 21 24 63 6f 6d 70 74 65 73 2d 3e 69 73  f (!$comptes->is
2060: 41 63 74 69 76 65 28 24 72 65 73 75 6c 74 61 74  Active($resultat
2070: 5f 65 78 63 65 64 65 6e 74 29 29 0a 20 20 20 20  _excedent)).    
2080: 20 20 20 20 7b 0a 20 20 20 20 20 20 20 20 20 20      {.          
2090: 20 20 74 68 72 6f 77 20 6e 65 77 20 55 73 65 72    throw new User
20a0: 45 78 63 65 70 74 69 6f 6e 28 27 49 6d 70 6f 73  Exception('Impos
20b0: 73 69 62 6c 65 20 64 65 20 73 6f 6c 64 65 72 20  sible de solder 
20c0: 6c 5c 27 65 78 65 72 63 69 63 65 20 3a 20 6c 65  l\'exercice : le
20d0: 20 63 6f 6d 70 74 65 20 64 65 20 72 c3 a9 73 75   compte de r..su
20e0: 6c 74 61 74 20 65 78 63 c3 a9 64 65 6e 74 20 27  ltat exc..dent '
20f0: 20 2e 20 24 72 65 73 75 6c 74 61 74 5f 65 78 63   . $resultat_exc
2100: 65 64 65 6e 74 20 2e 20 27 20 6e 5c 27 65 78 69  edent . ' n\'exi
2110: 73 74 65 20 70 61 73 20 6f 75 20 65 73 74 20 64  ste pas ou est d
2120: c3 a9 73 61 63 74 69 76 c3 a9 2e 27 29 3b 0a 20  ..sactiv...');. 
2130: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20         }.       
2140: 20 65 6c 73 65 20 69 66 20 28 21 24 63 6f 6d 70   else if (!$comp
2150: 74 65 73 2d 3e 69 73 41 63 74 69 76 65 28 24 72  tes->isActive($r
2160: 65 73 75 6c 74 61 74 5f 64 65 62 69 74 65 75 72  esultat_debiteur
2170: 29 29 0a 20 20 20 20 20 20 20 20 7b 0a 20 20 20  )).        {.   
2180: 20 20 20 20 20 20 20 20 20 74 68 72 6f 77 20 6e           throw n
2190: 65 77 20 55 73 65 72 45 78 63 65 70 74 69 6f 6e  ew UserException
21a0: 28 27 49 6d 70 6f 73 73 69 62 6c 65 20 64 65 20  ('Impossible de 
21b0: 73 6f 6c 64 65 72 20 6c 5c 27 65 78 65 72 63 69  solder l\'exerci
21c0: 63 65 20 3a 20 6c 65 20 63 6f 6d 70 74 65 20 64  ce : le compte d
21d0: 65 20 72 c3 a9 73 75 6c 74 61 74 20 64 c3 a9 62  e r..sultat d..b
21e0: 69 74 65 75 72 20 27 20 2e 20 24 72 65 73 75 6c  iteur ' . $resul
21f0: 74 61 74 5f 64 65 62 69 74 65 75 72 20 2e 20 27  tat_debiteur . '
2200: 20 6e 5c 27 65 78 69 73 74 65 20 70 61 73 20 6f   n\'existe pas o
2210: 75 20 65 73 74 20 64 c3 a9 73 61 63 74 69 76 c3  u est d..sactiv.
2220: a9 2e 27 29 3b 0a 20 20 20 20 20 20 20 20 7d 0a  ..');.        }.
2230: 0a 20 20 20 20 20 20 20 20 75 6e 73 65 74 28 24  .        unset($
2240: 63 6f 6d 70 74 65 73 29 3b 0a 0a 20 20 20 20 20  comptes);..     
2250: 20 20 20 24 72 61 70 70 6f 72 74 73 20 3d 20 6e     $rapports = n
2260: 65 77 20 52 61 70 70 6f 72 74 73 3b 0a 20 20 20  ew Rapports;.   
2270: 20 20 20 20 20 24 72 65 73 75 6c 74 61 74 20 3d       $resultat =
2280: 20 24 72 61 70 70 6f 72 74 73 2d 3e 63 6f 6d 70   $rapports->comp
2290: 74 65 52 65 73 75 6c 74 61 74 28 24 65 78 65 72  teResultat($exer
22a0: 63 69 63 65 29 3b 0a 20 20 20 20 20 20 20 20 24  cice);.        $
22b0: 72 65 73 75 6c 74 61 74 20 3d 20 24 72 65 73 75  resultat = $resu
22c0: 6c 74 61 74 5b 27 72 65 73 75 6c 74 61 74 27 5d  ltat['resultat']
22d0: 3b 0a 0a 20 20 20 20 20 20 20 20 69 66 20 28 24  ;..        if ($
22e0: 72 65 73 75 6c 74 61 74 20 21 3d 20 30 29 0a 20  resultat != 0). 
22f0: 20 20 20 20 20 20 20 7b 0a 20 20 20 20 20 20 20         {.       
2300: 20 20 20 20 20 24 6a 6f 75 72 6e 61 6c 20 3d 20       $journal = 
2310: 6e 65 77 20 4a 6f 75 72 6e 61 6c 3b 0a 20 20 20  new Journal;.   
2320: 20 20 20 20 20 20 20 20 20 24 6a 6f 75 72 6e 61           $journa
2330: 6c 2d 3e 61 64 64 28 5b 0a 20 20 20 20 20 20 20  l->add([.       
2340: 20 20 20 20 20 20 20 20 20 27 6c 69 62 65 6c 6c           'libell
2350: 65 27 20 20 20 3d 3e 20 20 27 52 c3 a9 73 75 6c  e'   =>  'R..sul
2360: 74 61 74 20 64 65 20 6c 5c 27 65 78 65 72 63 69  tat de l\'exerci
2370: 63 65 20 70 72 c3 a9 63 c3 a9 64 65 6e 74 27 2c  ce pr..c..dent',
2380: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
2390: 20 27 64 61 74 65 27 20 20 20 20 20 20 3d 3e 20   'date'      => 
23a0: 20 24 64 61 74 65 2c 0a 20 20 20 20 20 20 20 20   $date,.        
23b0: 20 20 20 20 20 20 20 20 27 6d 6f 6e 74 61 6e 74          'montant
23c0: 27 20 20 20 3d 3e 20 20 61 62 73 28 24 72 65 73  '   =>  abs($res
23d0: 75 6c 74 61 74 29 2c 0a 20 20 20 20 20 20 20 20  ultat),.        
23e0: 20 20 20 20 20 20 20 20 27 63 6f 6d 70 74 65 5f          'compte_
23f0: 64 65 62 69 74 27 20 20 3d 3e 20 20 24 72 65 73  debit'  =>  $res
2400: 75 6c 74 61 74 20 3c 20 30 20 3f 20 24 72 65 73  ultat < 0 ? $res
2410: 75 6c 74 61 74 5f 64 65 62 69 74 65 75 72 20 3a  ultat_debiteur :
2420: 20 4e 55 4c 4c 2c 0a 20 20 20 20 20 20 20 20 20   NULL,.         
2430: 20 20 20 20 20 20 20 27 63 6f 6d 70 74 65 5f 63         'compte_c
2440: 72 65 64 69 74 27 20 3d 3e 20 20 24 72 65 73 75  redit' =>  $resu
2450: 6c 74 61 74 20 3e 20 30 20 3f 20 24 72 65 73 75  ltat > 0 ? $resu
2460: 6c 74 61 74 5f 65 78 63 65 64 65 6e 74 20 3a 20  ltat_excedent : 
2470: 4e 55 4c 4c 2c 0a 20 20 20 20 20 20 20 20 20 20  NULL,.          
2480: 20 20 5d 29 3b 0a 20 20 20 20 20 20 20 20 7d 0a    ]);.        }.
2490: 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20  .        return 
24a0: 74 72 75 65 3b 0a 20 20 20 20 7d 0a 20 20 20 20  true;.    }.    
24b0: 0a 20 20 20 20 70 75 62 6c 69 63 20 66 75 6e 63  .    public func
24c0: 74 69 6f 6e 20 64 65 6c 65 74 65 28 24 69 64 29  tion delete($id)
24d0: 0a 20 20 20 20 7b 0a 20 20 20 20 20 20 20 20 24  .    {.        $
24e0: 64 62 20 3d 20 44 42 3a 3a 67 65 74 49 6e 73 74  db = DB::getInst
24f0: 61 6e 63 65 28 29 3b 0a 0a 20 20 20 20 20 20 20  ance();..       
2500: 20 2f 2f 20 4e 65 20 70 61 73 20 73 75 70 70 72   // Ne pas suppr
2510: 69 6d 65 72 20 75 6e 20 63 6f 6d 70 74 65 20 71  imer un compte q
2520: 75 69 20 65 73 74 20 75 74 69 6c 69 73 c3 a9 20  ui est utilis.. 
2530: 21 0a 20 20 20 20 20 20 20 20 69 66 20 28 24 64  !.        if ($d
2540: 62 2d 3e 74 65 73 74 28 27 63 6f 6d 70 74 61 5f  b->test('compta_
2550: 6a 6f 75 72 6e 61 6c 27 2c 20 24 64 62 2d 3e 77  journal', $db->w
2560: 68 65 72 65 28 27 69 64 5f 65 78 65 72 63 69 63  here('id_exercic
2570: 65 27 2c 20 24 69 64 29 29 29 0a 20 20 20 20 20  e', $id))).     
2580: 20 20 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20     {.           
2590: 20 74 68 72 6f 77 20 6e 65 77 20 55 73 65 72 45   throw new UserE
25a0: 78 63 65 70 74 69 6f 6e 28 27 43 65 74 20 65 78  xception('Cet ex
25b0: 65 72 63 69 63 65 20 6e 65 20 70 65 75 74 20 c3  ercice ne peut .
25c0: aa 74 72 65 20 73 75 70 70 72 69 6d c3 a9 20 63  .tre supprim.. c
25d0: 61 72 20 64 65 73 20 6f 70 c3 a9 72 61 74 69 6f  ar des op..ratio
25e0: 6e 73 20 63 6f 6d 70 74 61 62 6c 65 73 20 79 20  ns comptables y 
25f0: 73 6f 6e 74 20 6c 69 c3 a9 65 73 2e 27 29 3b 0a  sont li..es.');.
2600: 20 20 20 20 20 20 20 20 7d 0a 0a 20 20 20 20 20          }..     
2610: 20 20 20 24 64 62 2d 3e 64 65 6c 65 74 65 28 27     $db->delete('
2620: 63 6f 6d 70 74 61 5f 65 78 65 72 63 69 63 65 73  compta_exercices
2630: 27 2c 20 27 69 64 20 3d 20 3f 27 2c 20 28 69 6e  ', 'id = ?', (in
2640: 74 29 24 69 64 29 3b 0a 0a 20 20 20 20 20 20 20  t)$id);..       
2650: 20 72 65 74 75 72 6e 20 74 72 75 65 3b 0a 20 20   return true;.  
2660: 20 20 7d 0a 0a 20 20 20 20 70 75 62 6c 69 63 20    }..    public 
2670: 66 75 6e 63 74 69 6f 6e 20 67 65 74 28 24 69 64  function get($id
2680: 2c 20 24 77 69 74 68 5f 63 6f 75 6e 74 20 3d 20  , $with_count = 
2690: 66 61 6c 73 65 29 0a 20 20 20 20 7b 0a 20 20 20  false).    {.   
26a0: 20 20 20 20 20 24 77 69 74 68 5f 63 6f 75 6e 74       $with_count
26b0: 20 3d 20 24 77 69 74 68 5f 63 6f 75 6e 74 0a 20   = $with_count. 
26c0: 20 20 20 20 20 20 20 20 20 20 20 3f 20 27 2c 20             ? ', 
26d0: 28 53 45 4c 45 43 54 20 43 4f 55 4e 54 28 2a 29  (SELECT COUNT(*)
26e0: 20 46 52 4f 4d 20 63 6f 6d 70 74 61 5f 6a 6f 75   FROM compta_jou
26f0: 72 6e 61 6c 20 57 48 45 52 45 20 69 64 5f 65 78  rnal WHERE id_ex
2700: 65 72 63 69 63 65 20 3d 20 63 6f 6d 70 74 61 5f  ercice = compta_
2710: 65 78 65 72 63 69 63 65 73 2e 69 64 29 20 41 53  exercices.id) AS
2720: 20 6e 62 5f 6f 70 65 72 61 74 69 6f 6e 73 27 0a   nb_operations'.
2730: 20 20 20 20 20 20 20 20 20 20 20 20 3a 20 27 27              : ''
2740: 3b 0a 0a 20 20 20 20 20 20 20 20 24 64 62 20 3d  ;..        $db =
2750: 20 44 42 3a 3a 67 65 74 49 6e 73 74 61 6e 63 65   DB::getInstance
2760: 28 29 3b 0a 20 20 20 20 20 20 20 20 72 65 74 75  ();.        retu
2770: 72 6e 20 24 64 62 2d 3e 66 69 72 73 74 28 27 53  rn $db->first('S
2780: 45 4c 45 43 54 20 2a 2c 20 73 74 72 66 74 69 6d  ELECT *, strftim
2790: 65 28 5c 27 25 73 5c 27 2c 20 64 65 62 75 74 29  e(\'%s\', debut)
27a0: 20 41 53 20 64 65 62 75 74 2c 0a 20 20 20 20 20   AS debut,.     
27b0: 20 20 20 20 20 20 20 73 74 72 66 74 69 6d 65 28         strftime(
27c0: 5c 27 25 73 5c 27 2c 20 66 69 6e 29 20 41 53 20  \'%s\', fin) AS 
27d0: 66 69 6e 20 27 20 2e 20 24 77 69 74 68 5f 63 6f  fin ' . $with_co
27e0: 75 6e 74 20 2e 20 27 0a 20 20 20 20 20 20 20 20  unt . '.        
27f0: 20 20 20 20 46 52 4f 4d 20 63 6f 6d 70 74 61 5f      FROM compta_
2800: 65 78 65 72 63 69 63 65 73 20 57 48 45 52 45 20  exercices WHERE 
2810: 69 64 20 3d 20 3f 3b 27 2c 20 28 69 6e 74 29 24  id = ?;', (int)$
2820: 69 64 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20  id);.    }..    
2830: 70 75 62 6c 69 63 20 66 75 6e 63 74 69 6f 6e 20  public function 
2840: 67 65 74 43 75 72 72 65 6e 74 28 29 0a 20 20 20  getCurrent().   
2850: 20 7b 0a 20 20 20 20 20 20 20 20 24 64 62 20 3d   {.        $db =
2860: 20 44 42 3a 3a 67 65 74 49 6e 73 74 61 6e 63 65   DB::getInstance
2870: 28 29 3b 0a 20 20 20 20 20 20 20 20 72 65 74 75  ();.        retu
2880: 72 6e 20 24 64 62 2d 3e 66 69 72 73 74 28 27 53  rn $db->first('S
2890: 45 4c 45 43 54 20 2a 2c 20 73 74 72 66 74 69 6d  ELECT *, strftim
28a0: 65 28 5c 27 25 73 5c 27 2c 20 64 65 62 75 74 29  e(\'%s\', debut)
28b0: 20 41 53 20 64 65 62 75 74 2c 20 73 74 72 66 74   AS debut, strft
28c0: 69 6d 65 28 5c 27 25 73 5c 27 2c 20 66 69 6e 29  ime(\'%s\', fin)
28d0: 20 41 53 20 66 69 6e 20 46 52 4f 4d 20 63 6f 6d   AS fin FROM com
28e0: 70 74 61 5f 65 78 65 72 63 69 63 65 73 0a 20 20  pta_exercices.  
28f0: 20 20 20 20 20 20 20 20 20 20 57 48 45 52 45 20            WHERE 
2900: 63 6c 6f 74 75 72 65 20 3d 20 30 20 4c 49 4d 49  cloture = 0 LIMI
2910: 54 20 31 3b 27 29 3b 0a 20 20 20 20 7d 0a 0a 20  T 1;');.    }.. 
2920: 20 20 20 70 75 62 6c 69 63 20 66 75 6e 63 74 69     public functi
2930: 6f 6e 20 67 65 74 43 75 72 72 65 6e 74 49 64 28  on getCurrentId(
2940: 29 0a 20 20 20 20 7b 0a 20 20 20 20 20 20 20 20  ).    {.        
2950: 24 64 62 20 3d 20 44 42 3a 3a 67 65 74 49 6e 73  $db = DB::getIns
2960: 74 61 6e 63 65 28 29 3b 0a 20 20 20 20 20 20 20  tance();.       
2970: 20 72 65 74 75 72 6e 20 24 64 62 2d 3e 66 69 72   return $db->fir
2980: 73 74 43 6f 6c 75 6d 6e 28 27 53 45 4c 45 43 54  stColumn('SELECT
2990: 20 69 64 20 46 52 4f 4d 20 63 6f 6d 70 74 61 5f   id FROM compta_
29a0: 65 78 65 72 63 69 63 65 73 20 57 48 45 52 45 20  exercices WHERE 
29b0: 63 6c 6f 74 75 72 65 20 3d 20 30 20 4c 49 4d 49  cloture = 0 LIMI
29c0: 54 20 31 3b 27 29 3b 0a 20 20 20 20 7d 0a 0a 20  T 1;');.    }.. 
29d0: 20 20 20 70 75 62 6c 69 63 20 66 75 6e 63 74 69     public functi
29e0: 6f 6e 20 67 65 74 4c 69 73 74 28 29 0a 20 20 20  on getList().   
29f0: 20 7b 0a 20 20 20 20 20 20 20 20 24 64 62 20 3d   {.        $db =
2a00: 20 44 42 3a 3a 67 65 74 49 6e 73 74 61 6e 63 65   DB::getInstance
2a10: 28 29 3b 0a 20 20 20 20 20 20 20 20 72 65 74 75  ();.        retu
2a20: 72 6e 20 24 64 62 2d 3e 67 65 74 47 72 6f 75 70  rn $db->getGroup
2a30: 65 64 28 27 53 45 4c 45 43 54 20 69 64 2c 20 2a  ed('SELECT id, *
2a40: 2c 20 73 74 72 66 74 69 6d 65 28 5c 27 25 73 5c  , strftime(\'%s\
2a50: 27 2c 20 64 65 62 75 74 29 20 41 53 20 64 65 62  ', debut) AS deb
2a60: 75 74 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20  ut,.            
2a70: 73 74 72 66 74 69 6d 65 28 5c 27 25 73 5c 27 2c  strftime(\'%s\',
2a80: 20 66 69 6e 29 20 41 53 20 66 69 6e 2c 0a 20 20   fin) AS fin,.  
2a90: 20 20 20 20 20 20 20 20 20 20 28 53 45 4c 45 43            (SELEC
2aa0: 54 20 43 4f 55 4e 54 28 2a 29 20 46 52 4f 4d 20  T COUNT(*) FROM 
2ab0: 63 6f 6d 70 74 61 5f 6a 6f 75 72 6e 61 6c 20 57  compta_journal W
2ac0: 48 45 52 45 20 69 64 5f 65 78 65 72 63 69 63 65  HERE id_exercice
2ad0: 20 3d 20 63 6f 6d 70 74 61 5f 65 78 65 72 63 69   = compta_exerci
2ae0: 63 65 73 2e 69 64 29 20 41 53 20 6e 62 5f 6f 70  ces.id) AS nb_op
2af0: 65 72 61 74 69 6f 6e 73 0a 20 20 20 20 20 20 20  erations.       
2b00: 20 20 20 20 20 46 52 4f 4d 20 63 6f 6d 70 74 61       FROM compta
2b10: 5f 65 78 65 72 63 69 63 65 73 20 4f 52 44 45 52  _exercices ORDER
2b20: 20 42 59 20 66 69 6e 20 44 45 53 43 3b 27 29 3b   BY fin DESC;');
2b30: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 70 72 6f 74  .    }..    prot
2b40: 65 63 74 65 64 20 66 75 6e 63 74 69 6f 6e 20 5f  ected function _
2b50: 63 68 65 63 6b 46 69 65 6c 64 73 28 26 24 64 61  checkFields(&$da
2b60: 74 61 29 0a 20 20 20 20 7b 0a 20 20 20 20 20 20  ta).    {.      
2b70: 20 20 69 66 20 28 65 6d 70 74 79 28 24 64 61 74    if (empty($dat
2b80: 61 5b 27 6c 69 62 65 6c 6c 65 27 5d 29 20 7c 7c  a['libelle']) ||
2b90: 20 21 74 72 69 6d 28 24 64 61 74 61 5b 27 6c 69   !trim($data['li
2ba0: 62 65 6c 6c 65 27 5d 29 29 0a 20 20 20 20 20 20  belle'])).      
2bb0: 20 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20    {.            
2bc0: 74 68 72 6f 77 20 6e 65 77 20 55 73 65 72 45 78  throw new UserEx
2bd0: 63 65 70 74 69 6f 6e 28 27 4c 65 20 6c 69 62 65  ception('Le libe
2be0: 6c 6c c3 a9 20 6e 65 20 70 65 75 74 20 72 65 73  ll.. ne peut res
2bf0: 74 65 72 20 76 69 64 65 2e 27 29 3b 0a 20 20 20  ter vide.');.   
2c00: 20 20 20 20 20 7d 0a 0a 20 20 20 20 20 20 20 20       }..        
2c10: 24 64 61 74 61 5b 27 6c 69 62 65 6c 6c 65 27 5d  $data['libelle']
2c20: 20 3d 20 74 72 69 6d 28 24 64 61 74 61 5b 27 6c   = trim($data['l
2c30: 69 62 65 6c 6c 65 27 5d 29 3b 0a 0a 20 20 20 20  ibelle']);..    
2c40: 20 20 20 20 69 66 20 28 65 6d 70 74 79 28 24 64      if (empty($d
2c50: 61 74 61 5b 27 64 65 62 75 74 27 5d 29 20 7c 7c  ata['debut']) ||
2c60: 20 21 63 68 65 63 6b 64 61 74 65 28 73 75 62 73   !checkdate(subs
2c70: 74 72 28 24 64 61 74 61 5b 27 64 65 62 75 74 27  tr($data['debut'
2c80: 5d 2c 20 35 2c 20 32 29 2c 20 73 75 62 73 74 72  ], 5, 2), substr
2c90: 28 24 64 61 74 61 5b 27 64 65 62 75 74 27 5d 2c  ($data['debut'],
2ca0: 20 38 2c 20 32 29 2c 20 73 75 62 73 74 72 28 24   8, 2), substr($
2cb0: 64 61 74 61 5b 27 64 65 62 75 74 27 5d 2c 20 30  data['debut'], 0
2cc0: 2c 20 34 29 29 29 0a 20 20 20 20 20 20 20 20 7b  , 4))).        {
2cd0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 68 72  .            thr
2ce0: 6f 77 20 6e 65 77 20 55 73 65 72 45 78 63 65 70  ow new UserExcep
2cf0: 74 69 6f 6e 28 27 44 61 74 65 20 64 65 20 64 c3  tion('Date de d.
2d00: a9 62 75 74 20 76 69 64 65 20 6f 75 20 69 6e 76  .but vide ou inv
2d10: 61 6c 69 64 65 2e 27 29 3b 0a 20 20 20 20 20 20  alide.');.      
2d20: 20 20 7d 0a 0a 20 20 20 20 20 20 20 20 69 66 20    }..        if 
2d30: 28 65 6d 70 74 79 28 24 64 61 74 61 5b 27 66 69  (empty($data['fi
2d40: 6e 27 5d 29 20 7c 7c 20 21 63 68 65 63 6b 64 61  n']) || !checkda
2d50: 74 65 28 73 75 62 73 74 72 28 24 64 61 74 61 5b  te(substr($data[
2d60: 27 66 69 6e 27 5d 2c 20 35 2c 20 32 29 2c 20 73  'fin'], 5, 2), s
2d70: 75 62 73 74 72 28 24 64 61 74 61 5b 27 66 69 6e  ubstr($data['fin
2d80: 27 5d 2c 20 38 2c 20 32 29 2c 20 73 75 62 73 74  '], 8, 2), subst
2d90: 72 28 24 64 61 74 61 5b 27 66 69 6e 27 5d 2c 20  r($data['fin'], 
2da0: 30 2c 20 34 29 29 29 0a 20 20 20 20 20 20 20 20  0, 4))).        
2db0: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 68  {.            th
2dc0: 72 6f 77 20 6e 65 77 20 55 73 65 72 45 78 63 65  row new UserExce
2dd0: 70 74 69 6f 6e 28 27 44 61 74 65 20 64 65 20 66  ption('Date de f
2de0: 69 6e 20 76 69 64 65 20 6f 75 20 69 6e 76 61 6c  in vide ou inval
2df0: 69 64 65 2e 27 29 3b 0a 20 20 20 20 20 20 20 20  ide.');.        
2e00: 7d 0a 0a 20 20 20 20 20 20 20 20 72 65 74 75 72  }..        retur
2e10: 6e 20 74 72 75 65 3b 0a 20 20 20 20 7d 0a 7d 0a  n true;.    }.}.