altocompta/html/modify_op.php
Dany De Bontridder 6ddf85aee2 Merged revisions 2939-2962 via svnmerge from
svn+ssh://danydb@svn/svn/phpcompta/branches/rel500

........
  r2940 | danydb | 2010-02-11 19:20:28 +0100 (Thu, 11 Feb 2010) | 1 line
  
  Acc_Payment : "paiement par" is getting simpler
........
  r2941 | danydb | 2010-02-11 19:41:39 +0100 (Thu, 11 Feb 2010) | 1 line
  
  Add a logout button to extension
........
  r2942 | danydb | 2010-02-11 20:49:25 +0100 (Thu, 11 Feb 2010) | 1 line
  
  Translation dutch
........
  r2943 | danydb | 2010-02-12 11:40:28 +0100 (Fri, 12 Feb 2010) | 1 line
  
  Add dutch translation
........
  r2944 | danydb | 2010-02-12 17:09:59 +0100 (Fri, 12 Feb 2010) | 1 line
  
   Fix Bug : in quick writing you have now access to the listing
........
  r2945 | danydb | 2010-02-13 14:11:36 +0100 (Sat, 13 Feb 2010) | 1 line
  
  Bug : it is not possible to change the limit of paiment : Fixed
........
  r2946 | danydb | 2010-02-13 14:12:05 +0100 (Sat, 13 Feb 2010) | 1 line
  
  remove debug
........
  r2947 | danydb | 2010-02-13 14:26:27 +0100 (Sat, 13 Feb 2010) | 2 lines
  
  Update Documentation
........
  r2948 | danydb | 2010-02-13 17:27:07 +0100 (Sat, 13 Feb 2010) | 1 line
  
  Correction bilan belge
........
  r2949 | danydb | 2010-02-13 18:07:46 +0100 (Sat, 13 Feb 2010) | 1 line
  
  Bug fixed : cannot type a middle of payment
........
  r2950 | danydb | 2010-02-13 18:12:49 +0100 (Sat, 13 Feb 2010) | 1 line
  
  Fixed Bug: the amount in quant_sold in not rounded
........
  r2951 | danydb | 2010-02-13 19:31:17 +0100 (Sat, 13 Feb 2010) | 1 line
  
  Add translation for payment
........
  r2952 | danydb | 2010-02-13 19:40:32 +0100 (Sat, 13 Feb 2010) | 1 line
  
  Fixed Bug cannot add a new account
........
  r2953 | danydb | 2010-02-21 20:31:52 +0100 (Sun, 21 Feb 2010) | 1 line
  
  Translation completed for english
........
  r2954 | danydb | 2010-02-22 23:06:47 +0100 (Mon, 22 Feb 2010) | 9 lines
  
  
  Fix bugs :
  * Security was not respected, user can write in Readonly ledgers
  * Cannot modify or delete accounting entry with more than 8 digits
  * Cannot record information when not VAT
  * VMSKeytrade failed with ExecSql
  * ledger creation : cannot save the card on deb side
........
  r2955 | danydb | 2010-02-22 23:17:33 +0100 (Mon, 22 Feb 2010) | 3 lines
  
  Improve
  Import bank must be able to import into CASH
........
  r2956 | danydb | 2010-02-23 18:16:01 +0100 (Tue, 23 Feb 2010) | 1 line
  
  Fix Bug = Feb has 28 days and every 4 years 29
........
  r2957 | danydb | 2010-02-24 21:57:04 +0100 (Wed, 24 Feb 2010) | 3 lines
  
  Fix bug : warning messages when phpcompta is installed on windows about the languages
........
  r2958 | danydb | 2010-02-25 23:37:40 +0100 (Thu, 25 Feb 2010) | 3 lines
  
  Update for windows
........
  r2959 | danydb | 2010-02-26 00:29:06 +0100 (Fri, 26 Feb 2010) | 2 lines
  
  Fix Bug : cannot give an account to a card
........
  r2960 | danydb | 2010-02-28 20:54:32 +0100 (Sun, 28 Feb 2010) | 1 line
  
  Bug Return button for IE 
........
  r2961 | danydb | 2010-02-28 20:54:51 +0100 (Sun, 28 Feb 2010) | 1 line
  
  Progress for Dutch translation
........
2010-03-01 20:43:11 +00:00

352 lines
10 KiB
PHP

<?php
/*
* This file is part of PhpCompta.
*
* PhpCompta is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* PhpCompta is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with PhpCompta; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*/
// Copyright Author Dany De Bontridder ddebontridder@yahoo.fr
/* $Revision*/
/*! \file
* \brief show a detailled operation in a popup window
* Update : add a document , change the comment, the concerned op....
*
*/
include_once ("ac_common.php");
include_once("central_inc.php");
include_once("user_common.php");
require_once('class_database.php');
include_once("jrn.php");
require_once ("constant.php");
require_once('class_acc_reconciliation.php');
require_once('class_acc_operation.php');
echo js_include('scripts.js');
echo js_include('prototype.js');
echo js_include('anc_script.js');
/* Admin. Dossier */
$gDossier=dossier::id();
$cn=new Database($gDossier);
include_once ("class_user.php");
$User=new User($cn);
$User->Check();
$User->check_dossier(dossier::id());
html_page_start($User->theme,"onLoad='window.focus();'");
require_once('class_dossier.php');
$acc=new Acc_Operation($cn);
if (isset($_REQUEST['line']))
$acc->jr_id=$_REQUEST ['line'];
else
$acc->jr_id=$_REQUEST ['jr_id'];
$p_jrn=$acc->get_ledger();
if ( isset ( $_GET['action'] ) ) {
$action=$_GET['action'];
}
$p_view=(isset($_REQUEST['p_view']))?$_REQUEST['p_view']:"error";
if ( isset ( $_REQUEST['action'] ) ) {
$action=$_REQUEST['action'];
}
if ( ! isset ( $action )) {
echo_error("modify_op.php No action asked ");
exit();
}
// Javascript
echo JS_LEDGER;
?>
<script language="javascript">
function show_div (p_div) {
// show the div
// hide the div
if ( document.getElementById(p_div) ) {
var a=document.getElementById(p_div);
a.style.display="block";
}
}
function hide_div (p_div) {
// hide the div
if ( document.getElementById(p_div) ) {
var a=document.getElementById(p_div);
a.style.display="none";
}
}
</script>
<?php
echo_debug(__FILE__,__LINE__,"action is $action");
//-----------------------------------------------------
if ( $action == 'update' ) {
if ( $User->check_jrn($p_jrn) =='X' ) {
echo ' <script> window.close();</script>';
NoAccess();
exit -1;
}
// p_id is jrn.jr_id
$p_id=$_GET["line"];
echo_debug('modify_op.php',__LINE__," action = update p_id = $p_id");
$view='<h2 class="error">Erreur vue inconnue</h2>';
// show the detailled operation
if ( $p_view == 'S' )
$view='<div id="simple">';
else
$view='<div id="simple" style="display:none">';
$view.='<h2 class="info">Vue simple</h2>';
$view.='<FORM METHOD="POST" enctype="multipart/form-data" ACTION="modify_op.php">';
$view.=dossier::hidden();
$readonly=($p_view=='E')?0:1;
$view.=ShowOperationUser($cn,$p_id,$readonly);
$view.='<hr>';
$view.='<input type="button" onclick="hide_div(\'simple\');show_div(\'expert\');" value="Vue expert">';
$view.='<INPUT TYPE="Hidden" name="action" value="update_record">';
$view.="<br>";
$view.="<br>";
$view.="<br>";
if ( $User->check_jrn($p_jrn) == 'W')
$view.=($p_view == 'S')?HtmlInput::submit('update_record','Enregistre'):'';
$view.="&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;";
$view.='<input type="button" value="Fermer" onClick="window.close(); self.opener.RefreshMe();">';
$view.='</FORM>';
$view.='</div>';
if ( $p_view == 'S' )
$view.='<div id="expert" style="display:none">';
else
$view.='<div id="expert" style="display:block">';
$view.='<h2 class="info">Vue expert</h2>';
$view.='<FORM METHOD="POST" enctype="multipart/form-data" ACTION="modify_op.php">';
$view.=dossier::hidden();
$readonly=($p_view=='S')?0:1;
$view.=ShowOperationExpert($cn,$p_id,$readonly);
$view.='<hr>';
$view.='<input type="button" onclick="hide_div(\'expert\');show_div(\'simple\')" value="Vue simple">';
$view.='<INPUT TYPE="Hidden" name="action" value="update_record">';
$view.="<br>";
$view.="<br>";
$view.="<br>";
if ( $User->check_jrn($p_jrn) == 'W')
$view.=($p_view == 'E') ?HtmlInput::submit('update_record','Enregistre'):'';
$view.="&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;";
$view.='<input type="button" value="Fermer" onClick="window.close(); self.opener.RefreshMe();">';
$view.='</div>';
echo $view;
}
//---------------------------------------------------------------------
// action = vue ca
//---------------------------------------------------------------------
if ( $action=="view_ca") {
/*!\todo add security here */
$p_id=$_GET["line"];
$view='<div id="simple">';
$view.='<h2 class="info">Vue simple</h2>';
$view.=ShowOperationUser($cn,$p_id,0);
$view.='<hr>';
$view.='<input type="button" onclick="hide_div(\'simple\');show_div(\'expert\');" value="Vue Expert">';
$view.='<input type="button" value="Fermer" onClick="window.close(); ">';
$view.='</div>';
$view.='<div id="expert" style="display:none">';
$view.='<h2 class="info">Vue expert</h2>';
$view.=ShowOperationExpert($cn,$p_id,0);
$view.='<hr>';
$view.='<input type="button" onclick="hide_div(\'expert\');show_div(\'simple\')" value="Vue Simple">';
$view.='<input type="button" value="Fermer" onClick="window.close(); ">';
$view.='</div>';
echo $view;
exit();
}
//----------------------------------------------------------------------
// update the record and upload files
//----------------------------------------------------------------------
if ( isset($_POST['update_record']) ) {
/* in what ledger are we working */
$acc=new Acc_Operation($cn);
$acc->jr_id=$_POST['jr_id'];
$l=$acc->get_ledger();
if ( $User->check_jrn($l) != 'W' ) {
echo ' <script> window.close();</script>';
NoAccess();
exit -1;
}
try {
// NO UPDATE except rapt & comment && upload pj && PJ Number
$cn->start();
$acc=new Acc_Operation($cn);
$acc->jr_id=$_POST['jr_id'];
/* set the pj */
$acc->pj=$_POST['pj']; $acc->set_pj();
$acc->operation_update_comment($_POST['comment']);
$acc->operation_update_date_limit($_POST['e_ech']);
/* insert now the grouping */
if ( trim($_POST['rapt']) != "" ) {
$rec=new Acc_Reconciliation ($cn);
$rec->set_jr_id($_POST['jr_id']);
if ( strpos($_POST['rapt'],',') != 0 )
{
$aRapt=explode(',',$_POST['rapt']);
/* reconcialition */
foreach ($aRapt as $rRapt) {
if ( isNumber($rRapt) == 1 )
{
// Add a "concerned operation to bound these op.together
//
$rec->insert($rRapt);
}
}
} else
if ( isNumber($_POST['rapt']) == 1 )
{
$rec->insert($_POST['rapt']);
}
}
if ( isset ($_FILES)) {
echo_debug("modify_op.php",__LINE__, "start upload doc.");
$cn->save_upload_document($_POST['jr_grpt_id']);
}
if ( isset ($_POST['is_paid'] ))
$Res=$cn->exec_sql("update jrn set jr_rapt='paid' where jr_id=$1",array($_POST['jr_id']));
if ( isset ($_POST['to_remove'] )) {
/*! \note we don't remove the document file if another
* operation needs it.
*/
$ret=$cn->exec_sql("select jr_pj from jrn where jr_id=$1",array($_POST['jr_id']));
if (Database::num_row($ret) != 0) {
$r=Database::fetch_array($ret,0);
$old_oid=$r['jr_pj'];
if (strlen($old_oid) != 0)
{
// check if this pj is used somewhere else
$c=$cn->count_sql("select * from jrn where jr_pj=".$old_oid);
if ( $c == 1 )
$cn->lo_unlink($old_oid);
}
$cn->exec_sql("update jrn set jr_pj=null, jr_pj_name=null, ".
"jr_pj_type=null where jr_id=$1",array($_POST['jr_id']));
}
}
//-------------------------------------
// CA
//------------------------------------
$own = new Own($cn);
if ( $own->MY_ANALYTIC != "nu" )
{
// Check the total only for mandatory
//
// if ( $own->MY_ANALYTIC == "ob") {
$tab=0; $row=1;
while (1) {
if ( !isset ($_POST['nb_t'.$tab]))
break;
$tot_tab=0;
for ($i_row=0;$i_row <= MAX_COMPTE;$i_row++) {
if ( ! isset($_POST['val'.$tab.'l'.$i_row]))
continue;
$tot_tab+=$_POST['val'.$tab.'l'.$i_row];
}
if ( $tot_tab != $_POST['amount_t'.$tab]) {
echo '<script>alert ("Erreur montant dans Comptabilite analytique\n Operation annulee")</script>';
redirect($_SERVER['HTTP_REFERER']);
return;
}
$tot_tab=0;
$tab++;
}
// }
// we need first old the j_id and j_poste
// so we fetch them all from the db
$sql="select j_id,j_poste,to_char(j_date,'DD.MM.YYYY') as j_date,j_debit ".
"from jrn join jrnx on (j_grpt=jr_grpt_id) ".
"where jr_id=$1";
$res=$cn->exec_sql($sql,array($_POST['jr_id']));
$array_jid=Database::fetch_all($res);
// if j_poste match 6 or 7 we insert them
$count=0;
$group=$cn->get_next_seq("s_oa_group");
foreach( $array_jid as $row_ca) {
echo_debug(__FILE__.':'.__LINE__,"array is ",$row_ca);
if ( ereg("^[6,7]+",$row_ca['j_poste'])) {
echo_debug(__FILE__.':'.__LINE__,"count is ",$count);
$op=new Anc_Operation($cn);
$op->delete_by_jid($row_ca['j_id']);
$op->j_id=$row_ca['j_id'];
$op->oa_debit=$row_ca['j_debit'];
$op->oa_date=$row_ca['j_date'];
$op->oa_group=$group;
$op->oa_description=$_POST['comment'];
$op->save_form_plan($_POST,$count);
$count++;
} //if ereg
}//foreach
}// if ( $own->MY_ANALYTIC != "nu" )
} catch (Exception $e) {
echo '<span class="error">'.
'Erreur dans l\'enregistrement '.
__FILE__.':'.__LINE__.' '.
$e->getMessage();
echo_debug(__FILE__,__LINE__,$e->getMessage());
$cn->rollback();
exit();
}
$cn->commit();
echo ' <script>
window.close();
self.opener.RefreshMe();
</script>';
} // if update_record
//-----------------------------------------------------
if ( $action == 'delete' ) {
$rec=new Acc_Reconciliation ($cn);
$rec->set_jr_id($_GET ['line']);
$rec->remove($_GET['line2']);
echo ' <script>
window.close();
self.opener.RefreshMe();
</script>';
}
html_page_stop();
?>