altocompta/include/modele.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 concerne only the template
 *
 */
require_once ('class_widget.php');
$sa=(isset ( $_REQUEST['sa']))?$_REQUEST['sa']:'list';
if ( isset ($_POST['upd']) &&
     isset($_POST['m'])){
  if (  isset($_POST['name']) && isset($_POST['desc'])) {
    extract($_POST);
    $cn=DbConnect();
    if ( strlen(trim($name)) !=0 
	 && getDbValue($cn,'select count(*) from modeledef where '.
		       'mod_name=$1 and mod_id !=$2',
		       array(trim($name),$m)) == 0
	 )
      {

	ExecSqlParam($cn,"update modeledef set mod_name=$1, ".
		     " mod_desc=$2 where mod_id=$3 ",
		     array(trim($name),trim($desc),$m));
	
	
      }
  }
  $sa="list";
 }
echo  JS_CONFIRM;

$cn=DbConnect();



// IF FMOD_NAME is posted then must add a template
if ( isset ($_POST["FMOD_NAME"]) ) {
  $encoding=getDbValue($cn,"select encoding from pg_database  where ".
		       " datname='".domaine.'dossier'.FormatString($_POST["FMOD_DBID"])."'");

  if ( $encoding != 6 ) {
    echo "<script> alert('Désolé vous devez migrer ce modèle en unicode')</script>";
    echo '<span class="error">la base de donnée '.
      domaine.'mod'.$_POST["FMOD_DBID"]." doit être migrée en unicode</span>";
    echo '<span class="error"> Pour le passer en unicode, faites-en un backup puis restaurez le fichier reçu</span>';

    echo widget::button_href('Retour','admin_repo.php?action=dossier_mgt');
    exit();
  }

  $mod_name=FormatString($_POST["FMOD_NAME"]);
  $mod_desc=FormatString($_POST["FMOD_DESC"]);
  if ( $mod_name != null) {
    $Res=ExecSql($cn,"insert into modeledef(mod_name,mod_desc)
                        values ('".$mod_name."',".
		 "'".$mod_desc."')");
    
    // get the mod_id
    $l_id=GetSequence($cn,'s_modid');
    if ( $l_id != 0 ) {
      $Sql=sprintf("CREATE DATABASE %sMOD%d encoding='UTF8' TEMPLATE %sDOSSIER%s",domaine,$l_id,domaine,$_POST["FMOD_DBID"]);
      ob_start();
      if ( pg_query($cn,$Sql)==false) {
	ob_end_clean();
	echo "<h2 class=\"error\"> Base de donn&eacute;e ".domaine."dossier".$_POST['FMOD_DBID']."  est accèd&eacute;e, d&eacute;connectez-vous en d'abord</h2>";
	$Res=ExecSql($cn,"delete from modeledef where mod_id=".$l_id);

	exit;
      }
    }
  }// if $mod_name != null
  
  $cn_mod=dbconnect($l_id,'mod');
  
  // Clean some tables 

  $Res=ExecSql($cn_mod,"select distinct jr_pj from jrn where jr_pj is not null ");
  if ( pg_NumRows($Res) != 0 )
    {
      $a_lob=pg_fetch_all($Res);
      foreach ($a_lob as $lob) 
	@pg_lo_unlink($cn_mod,$lob['loid']);
    }
  
  $Res=ExecSql($cn_mod,"truncate table quant_sold");
  $Res=ExecSql($cn_mod,"truncate table quant_purchase");
  $Res=ExecSql($cn_mod,"truncate table centralized");
  $Res=ExecSql($cn_mod,"truncate table stock_goods");
  $Res=ExecSql($cn_mod,"truncate jrn cascade");
  $Res=ExecSql($cn_mod,"delete from jrnx");
  $Res=ExecSql($cn_mod,"delete from del_jrn");
  $Res=ExecSql($cn_mod,"delete from del_jrnx");
  $Res=ExecSql($cn_mod,"delete from del_action");

  $Res=ExecSql($cn_mod,'delete from operation_analytique');

  // TODO 
  // Nettoyage table quant_*
  $Res=ExecSql($cn_mod,"truncate table jrn_rapt");
  $Res=ExecSql($cn_mod,"truncate table import_tmp");
  //	Reset the closed periode
  $Res=ExecSql($cn_mod,"update parm_periode set p_closed='f'");
  $Res=ExecSql($cn_mod,'delete from jrn_periode');
  $Res=ExecSql($cn_mod,' insert into jrn_periode(p_id,jrn_def_id,status) '.
	    ' select p_id,jrn_def_id,\'OP\' '.
	    ' from '.
	    ' parm_periode cross join jrn_def');

  // Reset Sequence
  $a_seq=array('s_jrn','s_jrn_op','s_centralized','s_stock_goods','s_internal');
  foreach ($a_seq as $seq ) {
    $sql=sprintf("select setval('%s',1,false)",$seq);
    $Res=ExecSql($cn_mod,$sql);
  }
  $sql="select jrn_def_id from jrn_def ";
  $Res=ExecSql($cn_mod,$sql);
  $Max=pg_NumRows($Res);
  for ($seq=0;$seq<$Max;$seq++) {
    $row=pg_fetch_array($Res,$seq);
    /* if seq doesn't exist create it */
    if ( exist_sequence($cn_mod,'s_jrn_'.$row['jrn_def_id']) == false ) {
      create_sequence($cn_mod,'s_jrn_'.$row['jrn_def_id']);
    }

    
    $sql=sprintf ("select setval('s_jrn_%d',1,false)",$row['jrn_def_id']);
    $sql=sprintf ("select setval('s_jrn_pj%d',1,false)",$row['jrn_def_id']);
    ExecSql($cn_mod,$sql);
  }
  //---
  // Cleaning Action
  //-- 
  if ( isset($_POST['DOC'] ))
    {
      $Res=ExecSql($cn_mod,"delete from action_gestion");
      $Res=ExecSql($cn_mod,"delete from document");
      // Remove lob file
      $Res=ExecSql($cn_mod,"select distinct loid from pg_largeobject");
      if ( pg_NumRows($Res) != 0 )
	{
	  $a_lob=pg_fetch_all($Res);
	  //var_dump($a_lob);
	  foreach ($a_lob as $lob) {
	    pg_lo_unlink($cn_mod,$lob['loid']);
	  }
	}
    }
  if ( isset($_POST['CARD'])) 
    {
      $Res=ExecSql($cn_mod,"delete from  attr_value");
      $Res=ExecSql($cn_mod,"delete from  jnt_fic_att_value");
      $Res=ExecSql($cn_mod,"delete from   fiche");
      $Res=ExecSql($cn_mod,"delete from action_gestion");
      $Res=ExecSql($cn_mod,"delete from document");
      $Res=ExecSql($cn_mod,"delete from op_predef");

      // Remove lob file
      $Res=ExecSql($cn_mod,"select distinct loid from pg_largeobject");
      if ( pg_NumRows($Res) != 0 )
			  {
			    $a_lob=pg_fetch_all($Res);
			    foreach ($a_lob as $lob) 
			      pg_lo_unlink($cn_mod,$lob['loid']);
			  }
      
      
    }
  if ( isset($_POST['CANAL'])) {
    $Res=ExecSql($cn_mod,'delete from poste_analytique');
    $Res=ExecSql($cn_mod,'delete from plan_analytique');
  }  
  
 }
// Show all available templates

$Res=ExecSql($cn,"select mod_id,mod_name,mod_desc from 
                      modeledef order by mod_name");
$count=pg_NumRows($Res);
echo '<div class="content">';
echo "<H2>Modèles</H2>";
if ( $sa=='list') {
  if ( $count == 0 ) {
    echo "No template available";
  } else {
    

    echo widget::button_href('Rafra&icirc;chir','admin_repo.php?action=modele_mgt');
    echo widget::button_href('Ajouter','admin_repo.php?action=modele_mgt&sa=add');

    echo '<table width="100%" >';
    echo "<TR><TH>Nom</TH>".
      "<TH>Description</TH>".
      "<th></th>".
      "</TR>";
  
    for ($i=0;$i<$count;$i++) {
      $mod=pg_fetch_array($Res,$i);
      printf('<TR>'.
	     '<TD>%d <b> %s</b> </TD>'.
	     '<TD><I> %s </I></TD>'.
	     '<td> '.
	     widget::button_href('Effacer','?action=modele_mgt&sa=del&m='.$mod['mod_id']).'</td>'.
	     '</td>'.
	     '<td>'.widget::button_href('Modifie','?action=modele_mgt&sa=mod&m='.$mod['mod_id']).'</td>'.
	     '</td>'.
	     '<td>'.widget::button_href('Backup','backup.php?action=backup&sa=b&t=m&d='
				      .$mod['mod_id']).'</td>'.
	     '</TR>',
	     $mod['mod_id'],
	     $mod['mod_name'],
	     $mod['mod_desc']);
    
  }// for
  echo "</table>";
 }// if count = 0
echo "Si vous voulez r&eacute;cup&eacute;rer toutes les adaptations d'un dossier ".
" dans un autre dossier, vous pouvez en faire un modèle.".
" Seules les fiches, la structure des journaux, les p&eacute;riodes,... seront reprises ".
"et aucune donn&eacute;e du dossier sur lequel le dossier est bas&eacute;.";
 }
//---------------------------------------------------------------------------
// Add a template
//---------------------------------------------------------------------------
if ( $sa == 'add') {
// Show All available folder
$Res=ExecSql($cn,"select dos_id, dos_name,dos_description from ac_dossier
                      order by dos_name");
$count=pg_NumRows($Res);
$available="";
if ( $count != 0 ) {
  $available='<SELECT NAME="FMOD_DBID">';
  for ($i=0;$i<$count;$i++) {
    $db=pg_fetch_array($Res,$i);
    $available.='<OPTION VALUE="'.$db['dos_id'].'">'.$db['dos_name'].':'.$db['dos_description'];
  }//for i
  $available.='</SELECT>';
 }//if count !=0
?>
<form action="admin_repo.php?action=modele_mgt" METHOD="post">
<TABLE>
<tr>
    <td>Nom </TD>
    <TD><INPUT TYPE="TEXT" VALUE="" NAME="FMOD_NAME"></TD>
</TR>
<TR>
    <TD>Description</TD>
    <TD><TEXTAREA ROWS="2" COLS="60" NAME="FMOD_DESC"></Textarea></TD>
</TR>
<TR>
    <TD> Bas&eacute; sur </TD>
    <TD> <?php   echo $available ?></TD>
</TR>
<TR><TD>Nettoyage des Documents et courriers (ce qui  n'effacera pas les modèles de documents)</TD><TD> <input type="checkbox" name="DOC"></TD></TR>
<TR><TD>Nettoyage de toutes les fiches (ce qui effacera client, op&eacute;rations pr&eacute;d&eacute;finies fournisseurs et documents)</TD><TD> <input type="checkbox" name="CARD"></TD></TR>

<TR><TD>Nettoyage de la comptabilit&eacute; analytique : effacement des plans et des postes, les op&eacute;rations sont de toute fa&ccedil;on effac&eacute;es </TD><TD> <input type="checkbox" name="CANAL"></TD></TR>
</TABLE>
    
'

<INPUT TYPE="SUBMIT" VALUE="Ajout d'un modele">
<?php
echo widget::button_href('Retour','?action=modele_mgt');
?>

</form>
<?php
}
//---------------------------------------------------------------------------
// Modify
 if ( $sa == 'mod' && isset($_GET['m']) ){
   $cn=DbConnect();

   echo '<form method="post">';
   $name=getDbValue($cn,
		    "select mod_name from modeledef where ".
		    " mod_id=$1",
		    array($_GET['m']));

   $desc=getDbValue($cn,
		    "select mod_desc from modeledef where ".
		    " mod_id=$1",
		    array($_GET['m']));
   $wText=new widget('text');
   echo 'Nom : '.$wText->IOValue('name',$name);
   $wDesc=new widget('textarea');
   $wDesc->heigh=5;
   echo '<br>Description :<br>';
   echo $wDesc->IOValue('desc',$desc);
   echo widget::hidden('m',$_GET['m']);
   echo widget::hidden('action','modele_mgt');
   echo '<br>';
   echo widget::button_href('Retour','?action=modele_mgt');
   echo widget::submit('upd','Modifie');
   echo '</form>';
 }

//---------------------------------------------------------------------------
// action = del
//---------------------------------------------------------------------------
if ( $sa == 'del' ) {
  $cn=DbConnect();
  $name=getDbValue($cn,'select mod_name from modeledef where mod_id=$1',array($_REQUEST['m']));
  echo '<form method="post">';
  echo widget::hidden('d',$_REQUEST['m']);
  echo widget::hidden('sa','remove');
  echo '<h2 class="error">Etes vous sure et certain de vouloir effacer '.$name.' ???</h2>';
  $confirm=new widget('checkbox');
  $confirm->name="p_confirm";
  echo 'Cochez la case si vous êtes sûr de vouloir effacer ce modèle';
  echo $confirm->IOValue();
  echo widget::submit('remove','Effacer');
  echo widget::button_href('Retour','?action=modele_mgt');
  echo '</form>';
 }
//---------------------------------------------------------------------------
// action = del
//---------------------------------------------------------------------------
if ( $sa == 'remove' ) {
  if ( ! isset ($_REQUEST['p_confirm'])) {
    echo('Désolé, vous n\'avez pas coché la case');  
    echo widget::button_href('Retour','?action=modele_mgt');
    exit();
  }

  $cn=DbConnect();
   $msg="dossier";
   $name=getDbValue($cn,"select mod_name from modeledef where mod_id=$1",array($_REQUEST['m']));
   if ( strlen(trim($name)) == 0 )
     {
       echo "<h2 class=\"error\"> $msg inexistant</h2>";
       exit();
     }
   $sql="drop database ".domaine."mod".FormatString($_REQUEST['m']);
   ob_start();
   if ( pg_query($cn,$sql)==false) {
     ob_end_clean();
     
     echo "<h2 class=\"error\"> 
         Base de donnée ".domaine."mod".$_REQUEST['m']."  est accèdée, déconnectez-vous d'abord</h2>";
     exit;
   }
   ob_flush();
   $sql="delete from modeledef where mod_id=$1";
   ExecSqlParam($cn,$sql,array($_REQUEST['m']));
   print '<h2 class="info">';
   print "Voilà le modèle $name est effacé</H2>";
   echo widget::button_href('Retour','?action=modele_mgt');
 }
 echo '</div>';
?>