$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 "";
// 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é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 ) {
// 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 '