Check();
html_page_start($User->theme);
if ( ! isset ( $_SESSION['g_dossier'] ) ) {
echo "You must choose a Dossier ";
exit -2;
}
if ( isset( $p_jrn )) {
$g_jrn=$p_jrn;
$_SESSION["g_jrn"]=$g_jrn;
}
// Check privilege
// CheckJrn verify that the user is not an admin
// an admin has all right
if ( CheckJrn($_SESSION['g_dossier'],$_SESSION['g_user'],$_SESSION['g_jrn']) != 2 ) {
NoAccess();
exit -1;
}
$cn=DbConnect($g_dossier);
list ($l_array,$max_deb,$max_cred)=GetData($cn,$jrn_op);
foreach ($l_array as $key=>$element) {
${"e_$key"}=$element;
echo_debug(__FILE__,__LINE__,"e_$key =$element");
}
// annulate a operation
if ( isset ($annul) ) {
if ( isset ($_POST['p_id'])) {
// Get the current periode
$period=GetUserPeriode($cn,$User->id);
$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 "";
// set an incorrect pid to get out from here
$p_id=-1;
}
// userPref contient la periode par default
$userPref=GetUserPeriode($cn,$User->id);
list ($l_date_start,$l_date_end)=GetPeriode($cn,$userPref);
// Date dans la periode active
echo_debug(__FILE__,__LINE__,"date start periode $l_date_start date fin periode $l_date_end date demandé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 "";
// set an incorrect pid to get out from here
$p_id=-1;
}
// Periode fermée
if ( PeriodeClosed ($cn,$userPref)=='t' )
{
$msg="This periode is closed please change your preference";
echo_error($msg); echo_error($msg);
echo "";
// 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 ) {
// delete from 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);
// delete from jrnx & jrn
$sql="update jrnx set j_montant = 0 where j_grpt=".$_POST['p_id'];
// $Res=ExecSql($cn,$sql);
// build the sql stmt for jrn
$sql= "update jrn set jr_montant=0,jr_valid='f',jr_comment='Erreur:'||jr_comment where jr_grpt_id=".$_POST['p_id'];
$Res=ExecSql($cn,$sql);
echo '