Artifact 328701b299370ff6502079b1f6855116c2ddeccd:


0000: 3c 3f 70 68 70 0a 6e 61 6d 65 73 70 61 63 65 20  <?php.namespace 
0010: 47 61 72 72 61 64 69 6e 3b 0a 0a 72 65 71 75 69  Garradin;..requi
0020: 72 65 5f 6f 6e 63 65 20 5f 5f 44 49 52 5f 5f 20  re_once __DIR__ 
0030: 2e 20 27 2f 2e 2e 2f 5f 69 6e 63 2e 70 68 70 27  . '/../_inc.php'
0040: 3b 0a 0a 24 73 65 73 73 69 6f 6e 2d 3e 72 65 71  ;..$session->req
0050: 75 69 72 65 41 63 63 65 73 73 28 27 63 6f 6d 70  uireAccess('comp
0060: 74 61 27 2c 20 4d 65 6d 62 72 65 73 3a 3a 44 52  ta', Membres::DR
0070: 4f 49 54 5f 45 43 52 49 54 55 52 45 29 3b 0a 0a  OIT_ECRITURE);..
0080: 24 62 61 6e 71 75 65 73 20 3d 20 6e 65 77 20 43  $banques = new C
0090: 6f 6d 70 74 61 5c 43 6f 6d 70 74 65 73 5f 42 61  ompta\Comptes_Ba
00a0: 6e 63 61 69 72 65 73 3b 0a 24 72 61 70 70 72 6f  ncaires;.$rappro
00b0: 63 68 65 6d 65 6e 74 20 3d 20 6e 65 77 20 43 6f  chement = new Co
00c0: 6d 70 74 61 5c 52 61 70 70 72 6f 63 68 65 6d 65  mpta\Rapprocheme
00d0: 6e 74 3b 0a 0a 24 63 6f 6d 70 74 65 20 3d 20 24  nt;..$compte = $
00e0: 62 61 6e 71 75 65 73 2d 3e 67 65 74 28 71 67 28  banques->get(qg(
00f0: 27 69 64 27 29 29 3b 0a 0a 69 66 20 28 21 24 63  'id'));..if (!$c
0100: 6f 6d 70 74 65 29 0a 7b 0a 20 20 20 20 74 68 72  ompte).{.    thr
0110: 6f 77 20 6e 65 77 20 55 73 65 72 45 78 63 65 70  ow new UserExcep
0120: 74 69 6f 6e 28 22 4c 65 20 63 6f 6d 70 74 65 20  tion("Le compte 
0130: 64 65 6d 61 6e 64 c3 a9 20 6e 27 65 78 69 73 74  demand.. n'exist
0140: 65 20 70 61 73 2e 22 29 3b 0a 7d 0a 0a 24 73 6f  e pas.");.}..$so
0150: 6c 64 65 5f 69 6e 69 74 69 61 6c 20 3d 20 24 73  lde_initial = $s
0160: 6f 6c 64 65 5f 66 69 6e 61 6c 20 3d 20 30 3b 0a  olde_final = 0;.
0170: 0a 24 64 65 62 75 74 20 3d 20 71 67 28 27 64 65  .$debut = qg('de
0180: 62 75 74 27 29 3b 0a 24 66 69 6e 20 3d 20 71 67  but');.$fin = qg
0190: 28 27 66 69 6e 27 29 3b 0a 0a 69 66 20 28 24 64  ('fin');..if ($d
01a0: 65 62 75 74 20 26 26 20 24 66 69 6e 29 0a 7b 0a  ebut && $fin).{.
01b0: 20 20 20 20 69 66 20 28 21 55 74 69 6c 73 3a 3a      if (!Utils::
01c0: 63 68 65 63 6b 44 61 74 65 28 24 64 65 62 75 74  checkDate($debut
01d0: 29 20 7c 7c 20 21 55 74 69 6c 73 3a 3a 63 68 65  ) || !Utils::che
01e0: 63 6b 44 61 74 65 28 24 66 69 6e 29 29 0a 20 20  ckDate($fin)).  
01f0: 20 20 7b 0a 20 20 20 20 20 20 20 20 24 66 6f 72    {.        $for
0200: 6d 2d 3e 61 64 64 45 72 72 6f 72 28 27 4c 61 20  m->addError('La 
0210: 64 61 74 65 20 64 6f 6e 6e c3 a9 65 20 65 73 74  date donn..e est
0220: 20 69 6e 76 61 6c 69 64 65 2e 27 29 3b 0a 20 20   invalide.');.  
0230: 20 20 20 20 20 20 24 64 65 62 75 74 20 3d 20 24        $debut = $
0240: 66 69 6e 20 3d 20 66 61 6c 73 65 3b 0a 20 20 20  fin = false;.   
0250: 20 7d 0a 7d 0a 0a 69 66 20 28 21 24 64 65 62 75   }.}..if (!$debu
0260: 74 20 7c 7c 20 21 24 66 69 6e 29 0a 7b 0a 20 20  t || !$fin).{.  
0270: 20 20 24 64 65 62 75 74 20 3d 20 64 61 74 65 28    $debut = date(
0280: 27 59 2d 6d 2d 30 31 27 29 3b 0a 20 20 20 20 24  'Y-m-01');.    $
0290: 66 69 6e 20 3d 20 64 61 74 65 28 27 59 2d 6d 2d  fin = date('Y-m-
02a0: 74 27 29 3b 0a 7d 0a 0a 24 6a 6f 75 72 6e 61 6c  t');.}..$journal
02b0: 20 3d 20 24 72 61 70 70 72 6f 63 68 65 6d 65 6e   = $rapprochemen
02c0: 74 2d 3e 67 65 74 4a 6f 75 72 6e 61 6c 28 24 63  t->getJournal($c
02d0: 6f 6d 70 74 65 2d 3e 69 64 2c 20 24 64 65 62 75  ompte->id, $debu
02e0: 74 2c 20 24 66 69 6e 2c 20 24 73 6f 6c 64 65 5f  t, $fin, $solde_
02f0: 69 6e 69 74 69 61 6c 2c 20 24 73 6f 6c 64 65 5f  initial, $solde_
0300: 66 69 6e 61 6c 2c 20 28 62 6f 6f 6c 29 20 71 67  final, (bool) qg
0310: 28 27 73 61 75 66 27 29 29 3b 0a 0a 2f 2f 20 45  ('sauf'));..// E
0320: 6e 72 65 67 69 73 74 72 65 6d 65 6e 74 20 64 65  nregistrement de
0330: 73 20 63 61 73 65 73 20 63 6f 63 68 c3 a9 65 73  s cases coch..es
0340: 0a 69 66 20 28 28 66 28 27 73 61 76 65 27 29 20  .if ((f('save') 
0350: 7c 7c 20 66 28 27 73 61 76 65 5f 6e 65 78 74 27  || f('save_next'
0360: 29 29 20 26 26 20 24 66 6f 72 6d 2d 3e 63 68 65  )) && $form->che
0370: 63 6b 28 27 63 6f 6d 70 74 61 5f 72 61 70 70 72  ck('compta_rappr
0380: 6f 63 68 65 72 5f 27 20 2e 20 24 63 6f 6d 70 74  ocher_' . $compt
0390: 65 2d 3e 69 64 29 29 0a 7b 0a 20 20 20 20 74 72  e->id)).{.    tr
03a0: 79 0a 20 20 20 20 7b 0a 20 20 20 20 20 20 20 20  y.    {.        
03b0: 24 72 61 70 70 72 6f 63 68 65 6d 65 6e 74 2d 3e  $rapprochement->
03c0: 72 65 63 6f 72 64 28 24 63 6f 6d 70 74 65 2d 3e  record($compte->
03d0: 69 64 2c 20 24 6a 6f 75 72 6e 61 6c 2c 20 66 28  id, $journal, f(
03e0: 27 72 61 70 70 72 6f 63 68 65 72 27 29 2c 20 24  'rapprocher'), $
03f0: 75 73 65 72 2d 3e 69 64 29 3b 0a 0a 20 20 20 20  user->id);..    
0400: 20 20 20 20 69 66 20 28 66 28 27 73 61 76 65 27      if (f('save'
0410: 29 29 0a 20 20 20 20 20 20 20 20 7b 0a 20 20 20  )).        {.   
0420: 20 20 20 20 20 20 20 20 20 55 74 69 6c 73 3a 3a           Utils::
0430: 72 65 64 69 72 65 63 74 28 55 74 69 6c 73 3a 3a  redirect(Utils::
0440: 67 65 74 53 65 6c 66 55 52 4c 28 29 29 3b 0a 20  getSelfURL());. 
0450: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20         }.       
0460: 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 7b 0a   else.        {.
0470: 20 20 20 20 20 20 20 20 20 20 20 20 24 6e 65 78              $nex
0480: 74 20 3d 20 55 74 69 6c 73 3a 3a 6d 6f 64 69 66  t = Utils::modif
0490: 79 44 61 74 65 28 24 64 65 62 75 74 2c 20 27 2b  yDate($debut, '+
04a0: 31 20 6d 6f 6e 74 68 27 2c 20 74 72 75 65 29 3b  1 month', true);
04b0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 55 74 69  .            Uti
04c0: 6c 73 3a 3a 72 65 64 69 72 65 63 74 28 73 70 72  ls::redirect(spr
04d0: 69 6e 74 66 28 27 25 73 63 6f 6d 70 74 61 2f 62  intf('%scompta/b
04e0: 61 6e 71 75 65 73 2f 72 61 70 70 72 6f 63 68 65  anques/rapproche
04f0: 72 2e 70 68 70 3f 69 64 3d 25 73 26 64 65 62 75  r.php?id=%s&debu
0500: 74 3d 25 73 26 66 69 6e 3d 25 73 26 73 61 75 66  t=%s&fin=%s&sauf
0510: 3d 25 73 27 2c 20 41 44 4d 49 4e 5f 55 52 4c 2c  =%s', ADMIN_URL,
0520: 20 24 63 6f 6d 70 74 65 2d 3e 69 64 2c 20 64 61   $compte->id, da
0530: 74 65 28 27 59 2d 6d 2d 30 31 27 2c 20 24 6e 65  te('Y-m-01', $ne
0540: 78 74 29 2c 20 64 61 74 65 28 27 59 2d 6d 2d 74  xt), date('Y-m-t
0550: 27 2c 20 24 6e 65 78 74 29 2c 20 28 69 6e 74 29  ', $next), (int)
0560: 20 71 67 28 27 73 61 75 66 27 29 29 29 3b 0a 20   qg('sauf')));. 
0570: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20         }.    }. 
0580: 20 20 20 63 61 74 63 68 20 28 55 73 65 72 45 78     catch (UserEx
0590: 63 65 70 74 69 6f 6e 20 24 65 29 0a 20 20 20 20  ception $e).    
05a0: 7b 0a 20 20 20 20 20 20 20 20 24 66 6f 72 6d 2d  {.        $form-
05b0: 3e 61 64 64 45 72 72 6f 72 28 24 65 2d 3e 67 65  >addError($e->ge
05c0: 74 4d 65 73 73 61 67 65 28 29 29 3b 0a 20 20 20  tMessage());.   
05d0: 20 7d 0a 7d 0a 0a 69 66 20 28 73 75 62 73 74 72   }.}..if (substr
05e0: 28 24 64 65 62 75 74 2c 20 30 2c 20 37 29 20 3d  ($debut, 0, 7) =
05f0: 3d 20 73 75 62 73 74 72 28 24 66 69 6e 2c 20 30  = substr($fin, 0
0600: 2c 20 37 29 29 0a 7b 0a 20 20 20 20 24 74 70 6c  , 7)).{.    $tpl
0610: 2d 3e 61 73 73 69 67 6e 28 27 70 72 65 76 27 2c  ->assign('prev',
0620: 20 55 74 69 6c 73 3a 3a 6d 6f 64 69 66 79 44 61   Utils::modifyDa
0630: 74 65 28 24 64 65 62 75 74 2c 20 27 2d 31 20 6d  te($debut, '-1 m
0640: 6f 6e 74 68 27 2c 20 74 72 75 65 29 29 3b 0a 20  onth', true));. 
0650: 20 20 20 24 74 70 6c 2d 3e 61 73 73 69 67 6e 28     $tpl->assign(
0660: 27 6e 65 78 74 27 2c 20 55 74 69 6c 73 3a 3a 6d  'next', Utils::m
0670: 6f 64 69 66 79 44 61 74 65 28 24 64 65 62 75 74  odifyDate($debut
0680: 2c 20 27 2b 31 20 6d 6f 6e 74 68 27 2c 20 74 72  , '+1 month', tr
0690: 75 65 29 29 3b 0a 7d 0a 0a 24 74 70 6c 2d 3e 61  ue));.}..$tpl->a
06a0: 73 73 69 67 6e 28 27 63 6f 6d 70 74 65 27 2c 20  ssign('compte', 
06b0: 24 63 6f 6d 70 74 65 29 3b 0a 24 74 70 6c 2d 3e  $compte);.$tpl->
06c0: 61 73 73 69 67 6e 28 27 64 65 62 75 74 27 2c 20  assign('debut', 
06d0: 24 64 65 62 75 74 29 3b 0a 24 74 70 6c 2d 3e 61  $debut);.$tpl->a
06e0: 73 73 69 67 6e 28 27 66 69 6e 27 2c 20 24 66 69  ssign('fin', $fi
06f0: 6e 29 3b 0a 0a 24 74 70 6c 2d 3e 61 73 73 69 67  n);..$tpl->assig
0700: 6e 28 27 6a 6f 75 72 6e 61 6c 27 2c 20 24 6a 6f  n('journal', $jo
0710: 75 72 6e 61 6c 29 3b 0a 0a 24 74 70 6c 2d 3e 61  urnal);..$tpl->a
0720: 73 73 69 67 6e 28 27 73 6f 6c 64 65 5f 69 6e 69  ssign('solde_ini
0730: 74 69 61 6c 27 2c 20 24 73 6f 6c 64 65 5f 69 6e  tial', $solde_in
0740: 69 74 69 61 6c 29 3b 0a 24 74 70 6c 2d 3e 61 73  itial);.$tpl->as
0750: 73 69 67 6e 28 27 73 6f 6c 64 65 5f 66 69 6e 61  sign('solde_fina
0760: 6c 27 2c 20 24 73 6f 6c 64 65 5f 66 69 6e 61 6c  l', $solde_final
0770: 29 3b 0a 0a 24 74 70 6c 2d 3e 64 69 73 70 6c 61  );..$tpl->displa
0780: 79 28 27 61 64 6d 69 6e 2f 63 6f 6d 70 74 61 2f  y('admin/compta/
0790: 62 61 6e 71 75 65 73 2f 72 61 70 70 72 6f 63 68  banques/rapproch
07a0: 65 72 2e 74 70 6c 27 29 3b 0a                    er.tpl');.