altocompta/include/compta_fin.inc.php

<?php
/*
 *   This file is part of PhpCompta.
 *
 *   PhpCompta is free software; you can redistribute it and/or modify
 *   it under the terms of the GNU General Public License as published by
 *   the Free Software Foundation; either version 2 of the License, or
 *   (at your option) any later version.
 *
 *   PhpCompta is distributed in the hope that it will be useful,
 *   but WITHOUT ANY WARRANTY; without even the implied warranty of
 *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *   GNU General Public License for more details.
 *
 *   You should have received a copy of the GNU General Public License
 *   along with PhpCompta; if not, write to the Free Software
 *   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
*/
/* $Revision$ */

// Copyright Author Dany De Bontridder ddebontridder@yahoo.fr

/*!\file
 * \brief this file is to be included to handle the financial ledger
 */
require_once ('class_acc_ledger_fin.php');
$gDossier=dossier::id();
$p_action=(isset ($_REQUEST['p_action']))?$_REQUEST['p_action']:'';

$cn=DbConnect(dossier::id());
$menu_action="?p_action=bank&".dossier::get();
$menu=array(
	    array($menu_action.'&sa=n','Nouvel extrait','Encodage d\'un nouvel extrait',1),
	    array($menu_action.'&sa=l','Liste','Liste opération bancaire',2),
	    array($menu_action.'&sa=s','Solde','Solde des comptes',3),
	    array('?p_action=impress&type=jrn&'.dossier::get(),'Impression','Impression')
	    );
$sa=(isset($_REQUEST['sa']))?$_REQUEST['sa']:-1;

switch ($sa) {
 case 'n':
   $def=1;
   break;
case 'l':
  $def=2;
  break;
case 's':
  $def=3;
  break;
default:
  $def=1;
}
echo '<div class="lmenu">';
echo ShowItem($menu,'H','mtitle','mtitle',$def);
echo '</div>';

$href=basename($_SERVER['PHP_SELF']);
$Ledger=new Acc_Ledger_Fin($cn,0);

//--------------------------------------------------------------------------------
// Encode a new financial operation
//--------------------------------------------------------------------------------
if ( $def == 1 ) {

  $href=basename($_SERVER['PHP_SELF']);

  if ( isset($_REQUEST['p_jrn']))
    $Ledger->id=$_REQUEST['p_jrn'];
  else {
    $def_ledger=$Ledger->get_first('fin');
    $Ledger->id=$def_ledger['jrn_def_id'];
  }
  $jrn_priv=$User->check_action($Ledger->id);
  // Check privilege
  if ( isset($_REQUEST['p_jrn']) && ( $jrn_priv == 'X')) {
       NoAccess();
       exit -1;
  }

  //----------------------------------------
  // Confirm the operations
  //----------------------------------------
  if ( isset($_POST['save'])) {
    try {
      $Ledger->verify($_POST);
    } catch (AcException $e) {
      echo '<script> alert("'.$e->getMessage().'");</script>';
      $correct=1;
    }
    if ( ! isset ($correct )) {
      echo '<div class="content">';
      echo '<form name="form_detail" enctype="multipart/form-data" ACTION="'.$href.'" METHOD="POST">';
      echo widget::hidden('p_action','bank');
      echo $Ledger->confirm($_POST);
      echo widget::submit('confirm','Confirmer');
      echo widget::submit('correct','Corriger');

      echo '</form>';
      echo '</div>';
      exit();
    }
  }
  //----------------------------------------
  // Confirm and save  the operations
  // into the database
  //----------------------------------------
  if ( isset($_POST['confirm'])) {
    try {
      $Ledger->verify($_POST);
    } catch (AcException $e) {
      echo '<script> alert("'.$e->getMessage().'");</script>';
      $correct=1;
    }
    if ( !isset($correct)) {
      echo '<div class="content">';
      $a= $Ledger->insert($_POST);
      echo '<h2 class="info">Opération  sauvée </h2>';      
      echo widget::button_href('Nouvelle extrait',$href.'?p_action=bank&sa=n&'.dossier::get());
      echo $a;
      echo '</div>';
      exit();
    }
  }    
  //----------------------------------------
  // Correct the operations
  //----------------------------------------
  if ( isset($_POST['correct'])) {
    $correct=1;
  }
  //----------------------------------------
  // Blank form
  //----------------------------------------
  echo JS_PROTOTYPE;
  echo '<div class="content">';

  
  echo '<form name="form_detail" enctype="multipart/form-data" ACTION="'.$href.'" METHOD="POST">';
  echo widget::hidden('p_action','bank');
  echo widget::hidden('sa','n');
  $array=( isset($correct))?$_POST:null;
  // show select ledger
  echo $Ledger->display_form($array);
  echo widget::button('add_item','Ajout article',   ' onClick="ledger_fin_add_row()"');
  echo widget::submit('save','Sauve');
  echo widget::reset('Effacer ');


  echo '</form>';
  echo JS_CALC_LINE;
  echo '</div>';
  exit();
}
//--------------------------------------------------------------------------------
// Show the listing
//--------------------------------------------------------------------------------
if ( $def == 2) {
  $Ledger->id=$_REQUEST['p_jrn'];
  $jrn_priv=$User->check_action($Ledger->id);

 // Check privilege
  if ( isset($_REQUEST['p_jrn']) && $jrn_priv=='X') {
       NoAccess();
       exit -1;
  }

  echo '<div class="content">';
  if ( isset($_REQUEST['p_jrn']))
    $Ledger->id=$_REQUEST['p_jrn'];
  else {
    $def_ledger=$Ledger->get_first('fin');
    $Ledger->id=$def_ledger['jrn_def_id'];
  }
  $Ledger->show_ledger();
  echo '</div>';
  exit();
}
//--------------------------------------------------------------------------------
// Show the saldo
//--------------------------------------------------------------------------------
if ( $def==3) {
  require_once("poste.php");
  require_once ('class_acc_parm_code.php');
  echo '<div class="content">';

  // find the bank account
  // NOTE : those values are in a table because
  // they are _national_ parameters
  $banque=new Acc_Parm_Code($cn,'BANQUE');
  $caisse=new Acc_Parm_Code($cn,'CAISSE');
  $vir_interne=new Acc_Parm_Code($cn,'VIREMENT_INTERNE');
  $accountSql="select distinct pcm_val::text,pcm_lib from 
            tmp_pcmn 
            where pcm_val::text like '".$banque->p_value."%' or pcm_val::text like '".$vir_interne->p_value."%' 
            or pcm_val::text like '".$caisse->p_value."%'
            order by pcm_val::text";
  $ResAccount=ExecSql($cn,$accountSql);
  echo '<div class="content">';

  echo "<table>";
  // Filter the saldo
  //  on the current year
  $filter_year=" and j_tech_per in (select p_id from parm_periode where  p_exercice='".$User->get_exercice()."')";

  // for each account
  for ( $i = 0; $i < pg_NumRows($ResAccount);$i++) {
    // get the saldo
    $l=pg_fetch_array($ResAccount,$i);
    $m=get_solde($cn,$l['pcm_val'],$filter_year);
    // print the result if the saldo is not equal to 0
    if ( $m != 0.0 ) {
      echo "<tr>";
      echo "<TD>".
	$l['pcm_val'].
	"</TD>".
	"<TD>".
	$l['pcm_lib'].
	"</TD>"."<TD>".
	$m.
	"</TD>"."</TR>";
    }
  }// for
  echo "</table>";
  echo "</div>";
  exit();
}