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($gDossier,$_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('annulation.php',__LINE__,"e_$key =$element"); } // cancel an operation if ( isset ($_POST['annul']) ) { /* Confirm it first */ if ( ! isset ( $_POST['confirm'])) { ?>

Confirmation


Attention: l'effacement d'une opération peut rompre la séquence de la numérotation des factures surtout celles générées automatiquement, soyez très prudent quand vous effacez. La pièce jointe sera elle aussi effacée. Si vous utilisez la comptabilité analytique les opérations liées seront effacées.

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 préférences"; 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' ) { try { // 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,false); // Check return code if ( $Res == false) throw (new Exception(__FILE__.__LINE__."sql a echoue [ $sql ]")); // 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,j_qcode ) select now(),j_montant,j_poste,$grp_new, j_jrn_def,not (j_debit),j_text,'$p_internal','".$User->id."', $userPref,j_qcode from jrnx where j_grpt=".$_POST['p_id']; $Res=ExecSql($cn,$sql,false); // Check return code if ( $Res == false) throw (new Exception(__FILE__.__LINE__."sql a echoue [ $sql ]")); // 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,false); // Check return code if ( $Res == false) throw (new Exception(__FILE__.__LINE__."sql a echoue [ $sql ]")); // Set the record to A (annulate) in quant_sold and quand_purchase $Res=ExecSql($cn,"update quant_sold set ". " qs_valid='A' where qs_internal='".$l_array['jr_internal']."'", false); if ( $Res == false) throw (new Exception(__FILE__.__LINE__."sql a echoue [ $sql ]")); $Res=ExecSql($cn,"update quant_purchase set ". " qp_valid='A' where qp_internal='".$l_array['jr_internal']."'", false); if ( $Res == false) throw (new Exception(__FILE__.__LINE__."sql a echoue [ $sql ]")); // Add a "concerned operation to bound these op.together // $Res=InsertRapt($cn,$seq,$l_array['jr_id']); // Check return code if ( $Res == false ) { throw (new Exception(__FILE__.__LINE__."sql a echoue [ $sql ]"));} // 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,false); // Check return code if ( $Res == false) throw (new Exception(__FILE__.__LINE__."sql a echoue [ $sql ]")); } catch (Exception $e) { Rollback($cn); $msg="Désolé mais il n a pas été possible d'annuler ". "cette opération"; echo ""; echo ''. 'Erreur : '. __FILE__.':'.__LINE__.' '. $e->getMessage(); echo '

'; echo 'Postez ce message sur '. ''. 'le forum de www.phpcompta.org '. '

'; $p_id=-1; exit(-1); } Commit($cn); // close the window echo '

Opération Annulée

'; ?> alert('$msg');"; echo ''. 'Erreur : '. __FILE__.':'.__LINE__.' '. $e->getMessage(); echo '

'; echo 'Postez ce message sur '. ''. 'le forum de www.phpcompta.org '. '

'; $p_id=-1; exit(-1); } Commit($cn); echo '

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($gDossier,${"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($gDossier,${"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 dossier::hidden(). '
'; html_page_stop(); ?>