altocompta/include/param_pcmn.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
*/
// Copyright Author Dany De Bontridder ddebontridder@yahoo.fr
/* $Revision$ */
/*! \file
 * \brief concerns the management of the "Plan Comptable"
 */
require_once ('class_acc_account.php');
include_once ("ac_common.php");
require_once("constant.php");
require_once('class_dossier.php');
require_once('function_javascript.php');

$gDossier=dossier::id();
echo js_include('infobulle.js');
require_once('class_database.php');

/* Admin. Dossier */
$cn=new Database($gDossier);

include_once ("class_user.php");
$User=new User($cn);
$User->Check();
$User->check_dossier($gDossier);

include_once ("user_menu.php");

echo '<div id="acc_update" style="border:1px solid blue;width:40%;display:none;background-color:lightgrey;padding:3;position:absolute;text-align:left;line-height:3em;z-index:1">';
echo '<form method="post">';
$val=new IText('p_valu');
$parent=new IText('p_parentu');
$lib=new IText('p_libu');
$lib->size=50;
$type=new ISelect('p_typeu');
$type->value=Acc_Account::$type;
echo '<table>';
$r= td(_('Poste comptable')).td($val->input());
echo tr($r);
$r= td(_('Description')).td($lib->input());
echo tr($r);
$r= td(_('Parent')).td($parent->input());
echo tr($r);
$r= td(_('Type ')).td($type->input());
echo tr($r);
echo '</table>';
echo HtmlInput::hidden('p_oldu','');
echo dossier::hidden();
echo HtmlInput::submit('update',_('Sauve'));
echo HtmlInput::button('hide',_('Annuler'),'onClick="$(\'acc_update\').hide();return true;"');
echo '</form>';
echo '</div>';



echo JS_ACCOUNTING_ITEM;
/* Store the p_start parameter */
if ( ! isset ( $_SESSION['g_start']) ) {
  $_SESSION['g_start']="";

}
if ( isset ($_GET['p_start'])) { 
  $g_start=$_GET['p_start'];
  $_SESSION["g_start"]=$g_start; 

}

echo '<div class="u_subtmenu">';

echo '</div>';
$User->can_request(PARPCMN);


echo '<div class="lmenu">';
ShowMenuPcmn($_SESSION['g_start']);
echo '</div>';
echo '<DIV CLASS="u_redcontent">';
/* Analyse ce qui est demandé */
/* Effacement d'une ligne */
if (isset ($_GET['action'])) {
//-----------------------------------------------------
// Action == remove a line
  if ( $_GET['action']=="del" ) {
    if ( isset ($_GET['l']) ) {
      /* Ligne a enfant*/
      $R=$cn->exec_sql("select pcm_val from tmp_pcmn where pcm_val_parent=$1",array($_GET['l']));
      if ( Database::num_row($R) != 0 ) {
		alert("Ne peut pas effacer le poste: d'autres postes en dépendent");
      } else {
	/* Vérifier que le poste n'est pas utilisé qq part dans les journaux */
	$Res=$cn->exec_sql("select * from jrnx where j_poste=$1",array($_GET['l']));
	if ( Database::num_row($Res) != 0 ) {
	  alert("Ne peut pas effacer le poste: il est utilisé dans les journaux");
	}
	else {
	  $Del=$cn->exec_sql("delete from tmp_pcmn where pcm_val=$1",array($_GET['l']));
	} // if Database::num_row
      } // if Database::num_row
    } // isset ($l)
  } //$action == del
} // isset action
//----------------------------------------------------------------------
// Modification
//----------------------------------------------------------------------
if ( isset ($_POST['update'])) {
    $p_val=trim($_POST["p_valu"]);
    $p_lib=trim($_POST["p_libu"]);
    $p_parent=trim($_POST["p_parentu"]);
    $old_line=trim($_POST["p_oldu"]);
    $p_type=htmlentities($_POST['p_typeu']);
    $acc=new Acc_Account($cn);
    $acc->set_parameter('libelle',$p_lib);
    $acc->set_parameter('value',$p_val);
    $acc->set_parameter('parent',$p_parent);
    $acc->set_parameter('type',$p_type);
    // Check if the data are correct 
    try {
      $acc->check() ; 
    }catch (Exception $e) {
      $message="Valeurs invalides, pas de changement \n ".
	$e->getMessage();
      echo '<script> alert(\''.$message.'\'); 
           </script>';
    }
    if ( strlen ($p_val) != 0 && strlen ($p_lib) != 0 && strlen($old_line)!=0 ) {
      if (strlen ($p_val) == 1 ) {
	$p_parent=0;
      } else {
	if ( strlen($p_parent)==0 ) {
	  $p_parent=substr($p_val,0,strlen($p_val)-1);
	}
      }
      /* Parent existe */
      $Ret=$cn->exec_sql("select pcm_val from tmp_pcmn where pcm_val=$1",array($p_parent));
      if ( ($p_parent != 0 && Database::num_row($Ret) == 0) || $p_parent==$old_line ) {
	echo '<SCRIPT> alert(" Ne peut pas modifier; aucun poste parent"); </SCRIPT>';
      } else {
	try {
	  $acc->update($old_line);	
	} catch(Exception $e) {
	  alert($e->getMessage());
	}
      }
    } else {
      echo '<script> alert(\'Update Valeurs invalides\'); </script>';
    }
}
//-----------------------------------------------------
/* Ajout d'une ligne */
if ( isset ( $_POST["Ajout"] ) ) {
	extract ($_POST);
	$p_val=trim($p_val);
	$p_parent=trim($p_parent);

  if ( isset ( $p_val) && isset ( $p_lib ) && isNumber($p_val) && isNumber($p_parent) ) {
    $p_val=trim($p_val);
    $p_parent=$_POST["p_parent"];
    if ( strlen ($p_val) != 0 && strlen ($p_lib) != 0 ) {
      if (strlen ($p_val) == 1 ) {
	$p_parent=0;
      } else {
	if ( strlen(trim($p_parent))==0 && 
	     (string) $p_parent != (string)(int) $p_parent) {
	  $p_parent=substr($p_val,0,strlen($p_val)-1);
	}
      }
      /* Parent existe */
      $Ret=$cn->exec_sql("select pcm_val from tmp_pcmn where pcm_val=$1",array($p_parent));
      if ( $p_parent != 0 && Database::num_row($Ret) == 0 ) {
		alert(" Ne peut pas modifier; aucun poste parent");
      } else {
	// Check if the account already exists
	
	$Count=$cn->get_value("select count(*) from tmp_pcmn where pcm_val=$1",array($p_val));
	if ( $Count != 0 ) 
	  {
	    // Alert message account already exists
	     alert(" Ce poste existe déjà ");
	    
	  } else 
	    {
	      $Ret=$cn->exec_sql("insert into tmp_pcmn (pcm_val,pcm_lib,pcm_val_parent,pcm_type) values ($1,$2,$3,$4)",array($p_val,$p_lib,$p_parent,$p_type));
	    }
      }
    } else {
      echo '<H2 class="error"> Valeurs invalides </H3>';
    }
  }
}

$Ret=$cn->exec_sql("select pcm_val,pcm_lib,pcm_val_parent,pcm_type from tmp_pcmn where substr(pcm_val::text,1,1)='".$_SESSION['g_start']."' order by pcm_val::text");
$MaxRow=Database::num_row($Ret);

?>

<FORM METHOD="POST">
<?php
echo HtmlInput::hidden('p_action','pcmn');
//echo HtmlInput::hidden('sa','detail');
echo dossier::hidden();
?>
<TABLE ALIGN="center" BORDER=0 CELLPADDING=0 CELLSPACING=0> 
<TR>
<TH> Classe </TH>
<TH> Libellé </TH>
<TH> Parent </TH>
<TH> Type </TH>
</TR>
<?php
  $line=new Acc_Account($cn);
  echo $line->form(false); 
?>
<TD>
<INPUT TYPE="SUBMIT" class="button" Value="Ajout" Name="Ajout">
</TD>
</TR>
<?php
  $str_dossier=dossier::get();
for ($i=0; $i <$MaxRow; $i++) {
  $A=Database::fetch_array($Ret,$i);

  if ( $i%2 == 0 ) {
    $td ='<TD class="odd">';
  } else {
    $td='<TD class="even">';
  }
  echo "<TR> ";
  echo "$td";
  echo $A['pcm_val'];
  echo '</td>';
  echo "$td";
  printf ("<A HREF=\"javascript:PcmnUpdate('%s','%s','%s','%s',%d)\">",
	  $A['pcm_val'],
	  FormatString($A['pcm_lib']),
	  $A['pcm_val_parent'],
	  $A['pcm_type'],
	  dossier::id());
  echo h($A['pcm_lib']);

  echo $td;
  echo $A['pcm_val_parent'];
  echo '</TD>';
  echo "</td>$td";
  echo $A['pcm_type'];
  echo "</TD>";


  echo $td;
  printf ('<A href="?p_action=pcmn&l=%s&action=del&%s">Delete</A>',$A['pcm_val'],$str_dossier);
  echo "</TD>";

  
  echo "</TR>";
}
echo "</TABLE>";
echo "</FORM>";
echo "</DIV>";
html_page_stop();
?>