altocompta/html/annulation.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$ */
include_once ("ac_common.php");
include_once ("poste.php");
include_once("preference.php");
include_once("central_inc.php");
include_once("user_common.php");
include_Once("form_input.php");

html_page_start($g_UserProperty['use_theme']);
if ( ! isset ( $g_dossier ) ) {
  echo "You must choose a Dossier ";
  exit -2;
}
include_once ("postgres.php");
include_once("jrn.php");
/* Admin. Dossier */
CheckUser();

if ( isset( $p_jrn )) {
  session_register("g_jrn");
  $g_jrn=$p_jrn;
}

/* TODO Security check if the user can access and write here */
/*************************************************************/
$l_Db=sprintf("dossier%d",$g_dossier);
$cn=DbConnect($l_Db);

list ($l_array,$max_deb,$max_cred)=GetData($cn,$jrn_op);
foreach ($l_array as $key=>$element) {
  ${"e_$key"}=$element;
  echo_debug("e_$key =$element");
}

// annulate a operation
if ( isset ($annul) ) {
  if ( isset ($_POST['p_id'])) {
    // Get the current periode
    $period=GetUserPeriode($cn,$g_user);
    $p_id=$_POST['p_id'];
   // Get the date
   $e_op_date=$_POST['op_date'];


   // Test if date is valid
   if ( isDate ($e_op_date) == null ) {
     $msg='Invalid Date';
     echo "<script> alert('$msg');</script>";
     // set an incorrect pid to get out from here
     $p_id=-1;
   }
   // userPref contient la periode par default
    $userPref=GetUserPeriode($cn,$g_user);
    list ($l_date_start,$l_date_end)=GetPeriode($cn,$userPref);

    // Date dans la periode active
    echo_debug ("date start periode $l_date_start date fin periode $l_date_end date demand<6E>e $e_op_date");
    if ( cmpDate($e_op_date,$l_date_start)<0 || 
	 cmpDate($e_op_date,$l_date_end)>0 )
      {
		  $msg="Not in the active periode please change your preference";
			echo_error($msg); echo_error($msg);	
			echo "<SCRIPT>alert('$msg');</SCRIPT>";

			// set an incorrect pid to get out from here
			$p_id=-1;

      }
    // Periode ferm<72>e 
    if ( PeriodeClosed ($cn,$userPref)=='t' )
      {
		$msg="This periode is closed please change your preference";
		echo_error($msg); echo_error($msg);	
		echo "<SCRIPT>alert('$msg');</SCRIPT>";
		// set an incorrect pid to get out from here
		$p_id=-1;
      }

   // Test is date is not in a closed periode

 // Check if it a centralize operation
 if ( isValid($cn,$p_id) ==  1 ) {


 // get the next op id
  $seq=GetNextId($cn,'j_grpt')+1;

  // build the sql stmt for jrnx
  $sql="insert into jrnx  (
 j_date, 
 j_montant, j_poste,j_grpt,j_jrn_def, j_debit,
 j_text,j_internal,j_tech_user,j_tech_per
 )
 select 
 to_date('$e_op_date','DD.MM.YYYY'),
 j_montant, j_poste, $seq, j_jrn_def, case when j_debit=false then true else false end, 
 j_text,'ANNULE','$g_user',$period
 from jrnx where j_grpt=".$_POST['p_id'];
  $Res=ExecSql($cn,$sql);
 

  // build the sql stmt for jrn
  $sql= "insert into jrn (
 jr_def_id,jr_montant,jr_comment,               jr_date,jr_grpt_id,jr_internal                 ,jr_tech_per,
 jr_valid
 ) select 
 jr_def_id,jr_montant,'Annulation '||jr_comment,to_date('$e_op_date','DD.MM.YYYY'),$seq       ,'ANNULE',               $period,
  false 
 from 
 jrn
 where   jr_grpt_id=".$_POST['p_id'];
  $Res=ExecSql($cn,$sql);

  // also in the stock table
  $sql="delete from stock_goods where sg_id = any ( select sg_id
 from stock_goods natural join jrnx  where j_grpt=".$_POST['p_id'].")";
  $Res=ExecSql($cn,$sql);
  // Update jr_valid 
  $Res=ExecSql($cn,"update jrn set jr_valid=false where jr_grpt_id=$p_id");
  echo '<h2 class="info"> Op<4F>ration annul<75>e</h2>';
?>
<script>
 window.close();
 self.opener.RefreshMe();
</script>
<?

    }// if isValid

    } // if Post['p_id']
}// if annul
echo '<div align="center"> Op<4F>ration '.$l_array['jr_internal'].'</div> 
<div>
<form action="'.$_SERVER['REQUEST_URI'].'" method="post" >';

$a=InputType("Date","text", "op_date",$e_op_date,false);
//echo 'Date : '.$e_op_date;
echo $a;
echo '<div style="border-style:solid;border-width:1pt;">';
$a=InputType("Description:","text","comment",$e_comment,false);
echo $a;
echo '</DIV>';

if ( isset ($e_ech) ) {
  echo "<DIV> Echeance $e_ech </DIV>";
}
for ( $i = 0; $i < $max_deb;$i++) {
  $lib=GetPosteLibelle($g_dossier,${"e_class_deb$i"}); 
  echo '<div style="background-color:#BFC2D5;">';
  echo ${"e_class_deb$i"}." $lib    "."<B>".${"e_mont_deb$i"}."</B>";
  echo "</div>";
}
for ( $i = 0; $i < $max_cred;$i++) {
  $lib=GetPosteLibelle($g_dossier,${"e_class_cred$i"});
  echo '<div style="background-color:#E8F4FF;">';
  echo ${"e_class_cred$i"}."  $lib   "."<B>".${"e_mont_cred$i"}."</B>";
  echo '</div>';
}
//echo "operation concern<72>e $e_rapt<br><br>
//";
$a=GetConcerned($cn,$e_jr_id);

if ( $a != null ) {
  foreach ($a as $key => $element) {
    echo "operation concern<72>e <br>";

    echo "<A HREF=\"jrn_op_detail.php?jrn_op=".GetGrpt($cn,$element)."\"> ".GetInternal($cn,$element)."</A><br>";
  }//for
}// if ( $a != null ) {

echo '

<input type="hidden" name="p_id" value="'.$_GET['jrn_op'].'">
<input type="submit" name="annul"  value="Effacer">
<input type="button" name="cancel" value="Escape" onClick="window.close();">
</form>';

html_page_stop();
?>