Check(); $User->check_dossier(dossier::id()); if ($User->check_action(GEOP,0) == 0 ) { alert("Cette action n'est pas autorisée"); echo ''; exit -1; } $operation=new Acc_Operation($cn); list ($l_array,$max_deb,$max_cred)=$operation->get_data($_GET['jrn_op']); extract ($l_array,EXTR_PREFIX_ALL,'e_'); foreach ($l_array as $key=>$element) { ${"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 ainsi que celle des pièces justificatives, 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 ?

Date pour l'écriture inverse input(); ?> Une écriture inverse sera faite si vous utilisez le mode strict ou si vous êtes dans une période fermée
exec_sql("select jr_tech_per from jrn where jr_grpt_id=$1",array($_REQUEST['jrn_op'])); $period_id=Database::fetch_result($p,0,0); // thanks jrn_op (jrn.jr_id) we find out the concerned ledger $sql="select jr_def_id from jrn where jr_grpt_id=".$_REQUEST['jrn_op']; $r=$cn->exec_sql($sql); $nJrn=Database::fetch_result($r,0,0); $per=new Periode($cn); $per->set_jrn($nJrn); $per->set_periode($period_id); $own=new Own($cn); // Check the period_id if ( $per->is_open() == 0 || $own->MY_STRICT=='Y') { if ( isDate($_POST['idate'])== 0 ) { alert(_('Date invalide')); echo create_Script('window.close()'); exit(); } // Find the periode of idate try { $periode=new Periode($cn); $periode->find_periode($_POST['idate']); } catch (Exception $e){ alert(_('Période ou date incorrecte')); echo create_Script('window.close()'); exit(); } // if this periode is closed => end if ($periode->is_open()==0) { alert(_('Cette période est fermée')); echo create_Script('window.close()'); exit(); } try { // if the operation is in a closed or centralized period // the operation is voided thanks the opposite operation $cn->start(); $grp_new=$cn->get_next_seq('s_grpt'); $seq=$cn->get_next_seq("s_jrn"); $oJrn=new Acc_Ledger($cn,$l_array['jr_def_id']); $p_internal=$oJrn->compute_internal_code($seq); $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, to_date($1,'DD.MM.YYYY'),$grp_new,'$p_internal', ".$periode->p_id.", true from jrn where jr_grpt_id=$2"; $Res=$cn->exec_sql($sql,array($_POST['idate'],$_POST['p_id'])); // 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."', ".$periode->p_id.",j_qcode from jrnx where j_grpt=".$_POST['p_id']; $Res=$cn->exec_sql($sql); // 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=$cn->exec_sql($sql); // 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=$cn->exec_sql("update quant_sold set ". " qs_valid='A' where qs_internal='".$l_array['jr_internal']."'" ); if ( $Res == false) throw (new Exception(__FILE__.__LINE__."sql a echoue [ $sql ]")); $Res=$cn->exec_sql("update quant_purchase set ". " qp_valid='A' where qp_internal='".$l_array['jr_internal']."'" ); if ( $Res == false) throw (new Exception(__FILE__.__LINE__."sql a echoue [ $sql ]")); // Add a "concerned operation to bound these op.together // $rec=new Acc_Reconciliation ($cn); $rec->set_jr_id($seq); $rec->insert($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=$cn->exec_sql($sql); // Check return code if ( $Res == false) throw (new Exception(__FILE__.__LINE__."sql a echoue [ $sql ]")); } catch (Exception $e) { $cn->rollback(); $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); } $cn->commit(); // close the window echo '

Opération Annulée

'; ?> start(); $sql="insert into del_action(del_name,del_time) values ($1,now());"; $cn->exec_sql($sql,array($_SESSION['g_user'])); // Set the record to A (annulate) in quant_sold and quand_purchase // delete from the rapt table $sql="delete from jrn_rapt where jr_id = any (select jr_id from jrn ". " where jr_grpt_id = ".$_POST['p_id'].")"; $Res=$cn->exec_sql($sql); if ( $Res == false) throw (new Exception(__FILE__.__LINE__."sql a echoue [ $sql ]")); $Res=$cn->exec_sql("delete from quant_sold ". " where qs_internal='".$l_array['jr_internal']."'" ); if ( $Res == false) throw (new Exception(__FILE__.__LINE__."sql a echoue [ $sql ]")); $Res=$cn->exec_sql("delete from quant_purchase ". " where qp_internal='".$l_array['jr_internal']."'" ); if ( $Res == false) throw (new Exception(__FILE__.__LINE__."sql a echoue [ $sql ]")); if ( isset($l_array['jr_pj']) && $l_array['jr_pj'] != "") { $Res=$cn->lo_unlink($l_array['jr_pj']); if ( $Res == false) throw (new Exception(__FILE__.__LINE__. "Echec Effacement lob [ $sql ]")); } // 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=$cn->exec_sql($sql); if ( $Res == false) throw (new Exception(__FILE__.__LINE__."sql a echoue [ $sql ]")); // delete from CA $sql="delete from operation_analytique where j_id in (select j_id from"; $sql.=" jrnx where j_grpt=".$_POST['p_id'].")"; $Res=$cn->exec_sql($sql); if ( $Res == false) throw (new Exception(__FILE__.__LINE__."sql a echoue [ $sql ]")); // delete from jrnx & jrn $sql="delete from jrnx where j_grpt=".$_POST['p_id']; $Res=$cn->exec_sql($sql); if ( $Res == false) throw (new Exception(__FILE__.__LINE__."sql a echoue [ $sql ]")); // build the sql stmt for jrn $sql= "delete from jrn where jr_grpt_id=".$_POST['p_id']; $Res=$cn->exec_sql($sql); if ( $Res == false) throw (new Exception(__FILE__.__LINE__." sql a echoue [ $sql ]")); } catch (Exception $e) { $cn->rollback(); $msg="Desole mais il n a pas ete possible d'annuler ". "cette operation"; echo ""; echo ''. 'Erreur : '. __FILE__.':'.__LINE__.' '. $e->getMessage(); echo '

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

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

Opération Annulée

'; ?> Opération '.$l_array['jr_internal'].'
'; $a=new IText(); $a->setReadOnly(false); echo '
'; $a->size=40; echo 'Description :'.$a->input("comment",$e_comment); echo '
'; if ( isset ($e_ech) ) { echo "
Echeance $e_ech
"; } echo ''; for ( $i = 0; $i < $max_deb;$i++) { echo ''; if ( ${"e_qcode_deb".$i} == "-" ) { $poste=new Acc_Account($cn,${"e_class_deb$i"}); $lib=$poste->get_lib(); } else { $fiche=new Fiche($cn); $fiche->get_by_qcode(${"e_qcode_deb".$i},false); $lib=$fiche->getName(); } echo td(${"e_class_deb$i"}).td(${"e_qcode_deb".$i}).td($lib).td("".${"e_mont_deb$i"}."").td(_('Débit')); echo ''; } for ( $i = 0; $i < $max_cred;$i++) { if ( ${"e_qcode_cred".$i} == "-" ) { $poste=new Acc_Account($cn,${"e_class_cred$i"}); $lib=$poste->get_lib(); } else { $fiche=new Fiche($cn); $fiche->get_by_qcode(${"e_qcode_cred".$i},false); $lib=$fiche->getName(); } echo ''; echo td(${"e_class_cred$i"}).td(${"e_qcode_cred".$i}).td($lib).td("".${"e_mont_cred$i"}."").td(_('Crédit')); echo ''; } echo '
'; /* concerned operation */ $rec=new Acc_Reconciliation($cn); $rec->set_jr_id($e_jr_id); $a=$rec->get(); if ( $a != null ) { foreach ($a as $key => $element) { echo "operation concernée
"; $operation=new Acc_Operation($cn); $operation->jr_id=$element; $w=new IButton(); $w->label=$operation->get_internal(); $w->javascript="modifyOperation('".$element."','".$_REQUEST['PHPSESSID']."',".dossier::id(). ','.$_REQUEST['p_jrn'].",'S')"; echo $w->input().'
'; }//for }// if ( $a != null ) { echo dossier::hidden(). '
'; html_page_stop(); ?>