Check(); html_page_start($User->theme,"onLoad='window.focus();'"); if ( isset( $_GET['p_jrn'] )) { $p_jrn=$_GET['p_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'],$_GET['p_jrn']) != 2 ) { NoAccess(); exit -1; } list ($l_array,$max_deb,$max_cred)=GetData($cn,$_GET['jrn_op']); foreach ($l_array as $key=>$element) { ${"e_$key"}=$element; echo_debug(__FILE__,__LINE__,"e_$key =$element"); } // cancel an operation if ( isset ($_POST['annul']) ) { /* Confirm it first */ if ( ! isset ( $_POST['confirm'])) { ?>

Confirmation

Voulez-vous vraiment annuler cette information soit par une remise à zéro des montants soit par son écriture inverse ?

alert('$msg');"; // set an incorrect pid to get out from here $p_id=-1; } if ($p_id != -1 ) { // A // userPref contient la periode par default $userPref=$User->GetPeriode($cn); list ($l_date_start,$l_date_end)=GetPeriode($cn,$userPref); // Periode fermée if ( PeriodeClosed ($cn,$userPref)=='t' ) { $msg="Votre periode par defaut est fermee, changez vos preferences"; echo_error($msg); echo ""; // set an incorrect pid to get out from here $p_id=-1; } if ( $p_id != -1 ) { //B // Test whether date of the operation is in a closed periode // get the period_id $period_id=getPeriodeFromDate($cn,$e_op_date); // Check the period_id if ( PeriodeClosed($cn,$period_id) == 't' ){ // if the operation is in a closed or centralized period // the operation is voided thanks the opposite operation StartSql($cn); $grp_new=NextSequence($cn,'s_grpt'); $seq=NextSequence($cn,"s_jrn"); $p_internal=SetInternalCode($cn,$seq,$l_array['jr_def_id']); $sql= "insert into jrn ( jr_id,jr_def_id,jr_montant,jr_comment, jr_date,jr_grpt_id,jr_internal ,jr_tech_per, jr_valid ) select $seq,jr_def_id,jr_montant,'Annulation '||jr_comment, now(),$grp_new,'$p_internal', $userPref, true from jrn where jr_grpt_id=".$_POST['p_id']; $Res=ExecSql($cn,$sql); // Check return code if ( $Res == false ) { Rollback($cn);exit(-1);} // Make also the change into 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 now(),j_montant,j_poste,$grp_new, j_jrn_def,not (j_debit),j_text,'$p_internal','".$User->id."', $userPref from jrnx where j_grpt=".$_POST['p_id']; $Res=ExecSql($cn,$sql); // Check return code if ( $Res == false ) { Rollback($cn);exit(-1);} // Mark the operation invalid into the ledger // to avoid to nullify twice the same op. $sql="update jrn set jr_comment='Annule : '||jr_comment where jr_grpt_id=".$_POST['p_id']; $Res=ExecSql($cn,$sql); // Check return code if ( $Res == false ) { Rollback($cn);exit(-1);} // Add a "concerned operation to bound these op.together // $Res=InsertRapt($cn,$seq,$l_array['jr_id']); // Check return code if ( $Res == false ) { Rollback($cn);exit(-1);} // the table stock must updated // 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); // Check return code if ( $Res == false ) { Rollback($cn);exit(-1);} Commit($cn); // close the window echo '

Opération Annulée

'; ?> Opération Annulée'; ?> Opération '.$l_array['jr_internal'].'

'; $a=new widget("text"); // $a=InputType("Date","text", "op_date",$e_op_date,false); //echo 'Date : '.$e_op_date; $a->SetReadOnly(false); echo $a->IOValue("op_date",$e_op_date,"Date"); echo '

'; //$a=InputType("Description:","text_big","comment",$e_comment,false); $a->size=80; echo $a->IOValue("comment",$e_comment,"Description"); echo '

'; if ( isset ($e_ech) ) { echo "

Echeance $e_ech

"; } for ( $i = 0; $i < $max_deb;$i++) { $lib=GetPosteLibelle($_SESSION['g_dossier'],${"e_class_deb$i"}); echo '

'; echo ${"e_class_deb$i"}." $lib "."".${"e_mont_deb$i"}.""; echo "

"; } for ( $i = 0; $i < $max_cred;$i++) { $lib=GetPosteLibelle($_SESSION['g_dossier'],${"e_class_cred$i"}); echo '

'; echo ${"e_class_cred$i"}." $lib "."".${"e_mont_cred$i"}.""; echo '

'; } //echo "operation concernée $e_rapt

//"; $a=GetConcerned($cn,$e_jr_id); if ( $a != null ) { foreach ($a as $key => $element) { echo "operation concernée
"; echo " ".GetInternal($cn,$element)."
"; }//for }// if ( $a != null ) { echo '

'; html_page_stop(); ?>