b2e485274b
add ./makedoc for creating automatically doc add doc/mod_function header for the functions New GetUserProperties to get the user profile -> replace the checkAdmin function
477 lines
14 KiB
PHP
477 lines
14 KiB
PHP
<?
|
||
/*
|
||
* This file is part of WCOMPTA.
|
||
*
|
||
* WCOMPTA 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.
|
||
*
|
||
* WCOMPTA 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 WCOMPTA; if not, write to the Free Software
|
||
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
||
*/
|
||
/* $Revision$ */
|
||
// Auteur Dany De Bontridder ddebontridder@yahoo.fr
|
||
/* $Revision$ */
|
||
include_once ("ac_common.php");
|
||
include_once("jrn.php");
|
||
include_once("preference.php");
|
||
include_once("poste.php");
|
||
html_page_start(0,"onLoad=\"CheckTotal();\"");
|
||
if ( ! isset ( $g_dossier ) ) {
|
||
echo "You must choose a Dossier ";
|
||
exit -2;
|
||
}
|
||
include_once ("postgres.php");
|
||
include_once ("check_priv.php");
|
||
/* Admin. Dossier */
|
||
CheckUser();
|
||
if ( isset( $p_jrn )) {
|
||
session_register("g_jrn");
|
||
$g_jrn=$p_jrn;
|
||
}
|
||
$l_Db=sprintf("dossier%d",$g_dossier);
|
||
$cn=DbConnect($l_Db);
|
||
|
||
echo '<SCRIPT LANGUAGE="javascript" SRC="compute.js"></SCRIPT>';
|
||
echo '<SCRIPT LANGUAGE="javascript" SRC="win_search_jrn.js"></SCRIPT>';
|
||
echo '<SCRIPT LANGUAGE="javascript" SRC="win_detail_jrn.js"></SCRIPT>';
|
||
/* Get MaxLine */
|
||
include_once("poste.php");
|
||
include_once ("top_menu_compta.php");
|
||
ShowMenuCompta($g_dossier);
|
||
ShowMenuComptaRight($g_dossier);
|
||
if ( $g_UserProperty['use_admin'] == 0 ) {
|
||
$r=CheckAction($g_dossier,$g_user,ENCJRN);
|
||
if ($r == 0 ){
|
||
/* Cannot Access */
|
||
NoAccess();
|
||
}
|
||
if ( isset ($g_jrn)) {
|
||
$right=CheckJrn($g_dossier,$g_user,$g_jrn);
|
||
if ($right == 0 ){
|
||
/* Cannot Access */
|
||
NoAccess();
|
||
exit -1;
|
||
}
|
||
} // if isset g_jrn
|
||
|
||
}
|
||
|
||
ShowMenuJrnUser($g_dossier,$g_user);
|
||
|
||
if ( isset ( $_GET["action"] )) {
|
||
if ( $_GET["action"] == "view" ) {
|
||
ShowMenuRecherche($g_dossier,$g_jrn);
|
||
|
||
echo '<DIV class="redcontent">';
|
||
ViewJrn($g_dossier,$g_user,$g_jrn);
|
||
echo '</DIV>';
|
||
}
|
||
if ( $_GET["action"] == "record" ) {
|
||
if ( CheckJrn($g_dossier,$g_user,$g_jrn) < 2 ) {
|
||
NoAccess();
|
||
exit -1;
|
||
|
||
}
|
||
echo_debug("record");
|
||
$max_deb=$_GET["max_deb"];
|
||
$max_cred=$_GET["max_cred"];
|
||
RecordJrn($g_dossier,$g_user,$g_jrn,$max_deb,$max_cred);
|
||
}
|
||
if ($_GET["action"]=="update" ) {
|
||
if ( CheckJrn($g_dossier,$g_user,$g_jrn) < 2 ) {
|
||
NoAccess();
|
||
exit -1;
|
||
|
||
}
|
||
|
||
$p_id=$_GET["line"];
|
||
list($l_array,$max_deb,$max_cred)=GetData($cn,$p_id);
|
||
foreach ($l_array as $key => $element) {
|
||
echo_debug("update $key $element");
|
||
}
|
||
|
||
UpdateJrn($g_dossier,$g_jrn,$max_deb,$max_cred,$l_array);
|
||
}
|
||
|
||
}
|
||
?>
|
||
|
||
<?
|
||
if ( isset ($_POST['add_line_deb']) ) {
|
||
echo '<DIV class="redcontent">';
|
||
foreach ( $HTTP_POST_VARS as $key=>$element) {
|
||
${"p_$key"}=$element;
|
||
}
|
||
$p_MaxDeb+=2;
|
||
echo "</DIV>";
|
||
CorrectRecord($g_dossier,$g_user,$g_jrn,$p_MaxDeb,$p_MaxCred,$HTTP_POST_VARS);
|
||
echo_debug("CorrectRecord($g_dossier,$g_user,$g_jrn,$p_MaxDeb,$p_MaxCred,$HTTP_POST_VARS);");
|
||
}
|
||
|
||
if ( isset ($_POST['add_line_cred']) ) {
|
||
echo '<DIV class="redcontent">';
|
||
foreach ( $HTTP_POST_VARS as $key=>$element) {
|
||
${"p_$key"}=$element;
|
||
}
|
||
$p_MaxCred+=2;
|
||
echo "</DIV>";
|
||
CorrectRecord($g_dossier,$g_user,$g_jrn,$p_MaxDeb,$p_MaxCred,$HTTP_POST_VARS);
|
||
echo_debug("CorrectRecord($g_dossier,$g_user,$g_jrn,$p_MaxDeb,$p_MaxCred+10,$HTTP_POST_VARS);");
|
||
}
|
||
if ( isset ($_POST['viewsearch']) ) {
|
||
reset($HTTP_POST_VARS);
|
||
ShowMenuRecherche($g_dossier,$g_jrn,$HTTP_POST_VARS);
|
||
|
||
echo '<DIV class="redcontent">';
|
||
ViewJrn($g_dossier,$g_user,$g_jrn,$HTTP_POST_VARS);
|
||
echo '</DIV>';
|
||
|
||
}
|
||
|
||
if ( isset($_POST['add_record']) ) {
|
||
echo '<DIV class="redcontent">';
|
||
foreach ( $HTTP_POST_VARS as $name=>$element ) {
|
||
echo_debug("element $name -> $element ");
|
||
// Sauve les donn<6E>es dans des variables
|
||
${"p_$name"}=$element;
|
||
}
|
||
|
||
|
||
$result=VerifData($cn,$HTTP_POST_VARS,$g_user);
|
||
|
||
switch( $result) {
|
||
case NOERROR:
|
||
break;
|
||
case BADPARM:
|
||
break;
|
||
case BADDATE:
|
||
echo "<SCRIPT> alert('Invalid Date'); </SCRIPT>";
|
||
break;
|
||
case NOTPERIODE:
|
||
echo "<SCRIPT> alert('Date n\'est pas dans la p<>riode par d<>faut, changez vos pr<70>f<EFBFBD>rences'); </SCRIPT>";
|
||
break;
|
||
case PERIODCLOSED:
|
||
echo "<SCRIPT> alert('La date est dans une p<>riode clotur<75>'); </SCRIPT>";
|
||
break;
|
||
case INVALID_ECH:
|
||
echo "<SCRIPT> alert('Invalid Echeance Date'); </SCRIPT>";
|
||
break;
|
||
case RAPPT_ALREADY_USED:
|
||
echo '<SCRIPT>alert("Ne peut enregister le rapprochement l\'op<6F>ration '.$p_rapt. " est d<>j<EFBFBD> utilis<69>e\")</SCRIPT>";
|
||
break;
|
||
case RAPPT_NOT_EXIST:
|
||
echo '<SCRIPT>alert("Ne peut enregister le rapprochement l\'op<6F>ration '.$p_rapt. " n\'existe pas \")</SCRIPT>";
|
||
break;
|
||
case DIFF_AMOUNT:
|
||
echo "<SCRIPT>alert(\"Le Montant au d<>bit n'est pas <20>gal au montant au cr<63>dit\"); </SCRIPT>";
|
||
break;
|
||
case RAPPT_NOMATCH_AMOUNT:
|
||
echo '<SCRIPT>alert("Ne peut enregister le rapprochement l\'op<6F>ration '.$p_rapt. " les montants ne correspondent pas \")</SCRIPT>";
|
||
break;
|
||
}
|
||
if ($result != NOERROR) {
|
||
echo "</DIV>";
|
||
CorrectRecord($g_dossier,$g_user,$g_jrn,$p_MaxDeb,$p_MaxCred,$HTTP_POST_VARS);
|
||
return;
|
||
}
|
||
|
||
$Res=StartSql($cn);
|
||
$userPref=GetUserPeriode($cn,$g_user);
|
||
$seq=GetNextId($cn,'j_grpt')+1;
|
||
$s_op=GetNextId($cn,'j_id')+1;
|
||
$tot_cred=0;
|
||
$tot_deb=0;
|
||
//debit
|
||
for ( $i = 0; $i < $p_MaxDeb; $i++) {
|
||
$montant=${"p_mont_deb$i"};
|
||
$l_class=${"p_class_deb$i"};
|
||
if ( strlen(trim($montant)) != 0 && $montant != 0) {
|
||
$p_text=(FormatString(${"p_text_deb$i"})==null)?FormatString(GetPosteLibelle($g_dossier,$l_class)):FormatString(${"p_text_deb$i"});
|
||
$Sql="insert into jrnx(j_id,j_date,j_montant,j_text,j_poste,j_grpt,
|
||
j_jrn_def,j_debit,j_tech_user,j_tech_per)
|
||
values ( $s_op,to_date('$p_op_date','DD.MM.YYYY'), ".$montant.",'$p_text',
|
||
$l_class,$seq,
|
||
$g_jrn,true,'$g_user',$userPref)";
|
||
echo_debug("sql $Sql");
|
||
$s_op++;
|
||
$tot_deb+=$montant;
|
||
$Res=ExecSql($cn,$Sql);
|
||
if ( $Res == false ) { Rollback($cn); EndSql($cn); return;}
|
||
}
|
||
}
|
||
for ( $i = 0; $i < $p_MaxCred; $i++) {
|
||
$montant=${"p_mont_cred$i"};
|
||
$l_class=${"p_class_cred$i"};
|
||
if ( strlen(trim($montant)) != 0 && $montant != 0) {
|
||
$p_text=(FormatString(${"p_text_cred$i"})==null)?FormatString(GetPosteLibelle($g_dossier,$l_class)):FormatString(${"p_text_cred$i"});
|
||
|
||
$Sql="insert into jrnx(j_id,j_date,j_montant,j_text,j_poste,j_grpt,
|
||
j_jrn_def,j_debit,j_tech_user,j_tech_per)
|
||
values ( $s_op,to_date('$p_op_date','DD.MM.YYYY'), $montant,'$p_text',
|
||
$l_class,$seq,
|
||
$g_jrn,false,'$g_user',$userPref)";
|
||
echo_debug("sql $Sql");
|
||
$s_op++;
|
||
$tot_cred+=$montant;
|
||
$Res=ExecSql($cn,$Sql);
|
||
if ( $Res == false ) { Rollback($cn); EndSql($cn); break;}
|
||
|
||
}
|
||
}
|
||
|
||
|
||
// si rappt
|
||
if ( ! isset ($p_rapt) )
|
||
$p_rapt="";
|
||
if ( trim($p_rapt) != '' ) {
|
||
$jrn_id=GetNextJrnId($cn,'jr_id')+1;
|
||
if ( ! isset ($p_ech) )
|
||
$p_ech="";
|
||
$l_date=isDate($p_ech);
|
||
if ( $l_date == null) {
|
||
$p_ech='null';
|
||
} else {
|
||
$p_ech="to_date('".$p_ech."','DD.MM.YYYY')";
|
||
}
|
||
$comment=FormatString($p_comment);
|
||
$Sql=sprintf("insert into jrn(jr_id,jr_def_id,jr_comment,jr_date,jr_grpt_id,
|
||
jr_rapt,jr_montant,jr_tech_per) values(%s,%s,'%s',%s,%d,'%s',%f,%d)",
|
||
$jrn_id,
|
||
$g_jrn,
|
||
$comment,
|
||
$p_ech,
|
||
$seq,
|
||
$p_rapt, $tot_deb,
|
||
$userPref);
|
||
echo_debug($Sql);
|
||
$Res=ExecSql($cn,$Sql);
|
||
// $l_dest=GetRaptDest($cn,$p_rapt);
|
||
if ($Res)
|
||
$internal=SetInternalCode($cn,$jrn_id,$g_jrn,$g_dossier);
|
||
|
||
$sql=sprintf("update jrn set jr_rapt='%s' where jr_internal='%s'",$internal,$p_rapt);
|
||
echo_debug("add $sql");
|
||
$Res=ExecSql($cn,$sql);
|
||
|
||
} else {
|
||
$jrn_id=GetNextJrnId($cn,'jr_id')+1;
|
||
if ( ! isset ($p_ech) ) $p_ech="";
|
||
$l_date=isDate($p_ech);
|
||
if ( $l_date == null) {
|
||
$p_ech='null';
|
||
} else {
|
||
$p_ech="to_char('".$l_date."','DD.MM.YYYY')";
|
||
}
|
||
$comment=FormatString($p_comment);
|
||
|
||
$Sql=sprintf("insert into jrn(jr_id,jr_def_id,jr_comment,jr_date,jr_grpt_id,
|
||
jr_montant,jr_tech_per) values(%s,%s,'%s',%s,%d,%f,%d)",
|
||
$jrn_id,
|
||
$g_jrn,
|
||
$comment,
|
||
$p_ech,
|
||
$seq,$tot_deb,$userPref);
|
||
echo_debug("Sql $Sql");
|
||
$Res=ExecSql($cn,$Sql);
|
||
if ($Res)
|
||
SetInternalCode($cn,$jrn_id,$g_jrn,$g_dossier);
|
||
|
||
}
|
||
|
||
if ( $Res) {
|
||
Commit($cn);
|
||
EndSql($cn);
|
||
|
||
// AlterSequence($cn,"s_grpt",$seq+1);
|
||
//AlterSequence($cn,"s_jrn_op",$s_op);
|
||
ViewRecord($g_dossier,$g_jrn,$seq,$p_MaxDeb,$p_MaxCred,$HTTP_POST_VARS);
|
||
echo_debug("ViewRecord($g_dossier,$g_jrn,$seq,$p_MaxDeb,$p_MaxCred,$HTTP_POST_VARS);");
|
||
|
||
} else
|
||
{
|
||
Rollback($cn);
|
||
EndSql($cn);
|
||
}
|
||
} // _POST['add_record']
|
||
|
||
if ( isset($_POST['update_record']) ) {
|
||
ShowMenuRecherche($g_dossier,$g_jrn);
|
||
|
||
// Montre ce qu'on a encod<6F> et demande v<>rif
|
||
echo_debug ("######## UPDATE ##############");
|
||
$l_Db=sprintf("dossier%d",$g_dossier);
|
||
$cn=DbConnect($l_Db);
|
||
echo '<DIV class="redcontent">';
|
||
foreach ( $HTTP_POST_VARS as $name=>$element ) {
|
||
echo_debug("element $name -> $element ");
|
||
// Sauve les donn<6E>es dans des variables
|
||
${"p_$name"}=$element;
|
||
}
|
||
reset($HTTP_POST_VARS);
|
||
$result=VerifData($cn,$HTTP_POST_VARS,$g_user);
|
||
|
||
switch( $result) {
|
||
case NOERROR:
|
||
break;
|
||
case BADPARM:
|
||
break;
|
||
case BADDATE:
|
||
echo "<SCRIPT> alert('Invalid Date'); </SCRIPT>";
|
||
break;
|
||
case NOTPERIODE:
|
||
echo "<SCRIPT> alert('Date n\'est pas dans la p<>riode par d<>faut, changez vos pr<70>f<EFBFBD>rences'); </SCRIPT>";
|
||
break;
|
||
case PERIODCLOSED:
|
||
echo "<SCRIPT> alert('La date est dans une p<>riode clotur<75>'); </SCRIPT>";
|
||
break;
|
||
case INVALID_ECH:
|
||
echo "<SCRIPT> alert('Invalid Echeance Date'); </SCRIPT>";
|
||
break;
|
||
case RAPPT_ALREADY_USED:
|
||
echo '<SCRIPT>alert("Ne peut enregister le rapprochement l\'op<6F>ration '.$p_rapt. " est d<>j<EFBFBD> utilis<69>e\")</SCRIPT>";
|
||
break;
|
||
case RAPPT_NOT_EXIST:
|
||
echo '<SCRIPT>alert("Ne peut enregister le rapprochement l\'op<6F>ration '.$p_rapt. " n\'existe pas \")</SCRIPT>";
|
||
break;
|
||
case DIFF_AMOUNT:
|
||
echo "<SCRIPT>alert(\"Le Montant au d<>bit n'est pas <20>gal au montant au cr<63>dit\"); </SCRIPT>";
|
||
break;
|
||
case RAPPT_NOMATCH_AMOUNT:
|
||
echo '<SCRIPT>alert("Ne peut enregister le rapprochement l\'op<6F>ration '.$p_rapt. " les montants ne correspondent pas \")</SCRIPT>";
|
||
break;
|
||
}
|
||
foreach ( $HTTP_POST_VARS as $name=>$element ) {
|
||
echo_debug("element $name -> $element ");
|
||
// Sauve les donn<6E>es dans des variables
|
||
${"p_$name"}=$element;
|
||
}
|
||
|
||
if ($result != NOERROR) {
|
||
echo "</DIV>";
|
||
UpdateJrn($g_dossier,$g_jrn,$p_MaxDeb,$p_MaxCred,$HTTP_POST_VARS);
|
||
return;
|
||
}
|
||
|
||
|
||
$Res=StartSql($cn);
|
||
|
||
foreach ( $HTTP_POST_VARS as $name=>$element ) {
|
||
// Sauve les donn<6E>es dans des variables
|
||
${"p_$name"}=$element;
|
||
echo_debug("p_name p_$name = $element");
|
||
}
|
||
$userPref=GetUserPeriode($cn,$g_user);
|
||
|
||
for ( $i = 0; $i < $p_MaxDeb; $i++) {
|
||
$j_id=${"p_op_deb$i"};
|
||
$montant=${"p_mont_deb$i"};
|
||
$l_class=${"p_class_deb$i"};
|
||
if ( strlen(trim($montant)) == 0) $montant=0;
|
||
$p_text=(FormatString(${"p_text_deb$i"})==null)?GetPosteLibelle($g_dossier,$l_class):FormatString(${"p_text_deb$i"});
|
||
|
||
$Sql=sprintf("update jrnx set j_montant=%f, j_poste=%d,j_tech_user='%s',j_date=to_date('%s','DD.MM.YYYY'),j_text='%s' where j_id=%d",
|
||
$montant,$l_class,$g_user,$p_op_date,$p_text,$j_id);
|
||
echo_debug("sql $Sql");
|
||
$Res=ExecSql($cn,$Sql);
|
||
if ( $Res == false ) { Rollback($cn); EndSql($cn); return;}
|
||
|
||
}
|
||
|
||
|
||
for ( $i = 0; $i < $p_MaxCred; $i++) {
|
||
$j_id=${"p_op_cred$i"};
|
||
$montant=${"p_mont_cred$i"};
|
||
$l_class=${"p_class_cred$i"};
|
||
if ( strlen(trim($montant)) == 0 ) $montant=0;
|
||
$p_text=(FormatString(${"p_text_cred$i"})==null)?GetPosteLibelle($g_dossier,$l_class):FormatString(${"p_text_cred$i"});
|
||
|
||
$Sql=sprintf("update jrnx set j_montant=%f,j_poste=%d,j_tech_user='%s', j_date=to_date('%s','DD.MM.YYYY'),j_text='%s' where j_id=%d",
|
||
$montant,$l_class,$g_user,$p_op_date,$p_text,$j_id);
|
||
echo_debug("sql $Sql");
|
||
// $s_op++;
|
||
$Res=ExecSql($cn,$Sql);
|
||
if ( $Res == false ) { Rollback($cn); EndSql($cn); return;}
|
||
|
||
}
|
||
|
||
|
||
$l_src=-1;
|
||
$l_dest=-1;
|
||
if ( strlen(trim($p_rapt)) != 0 ) {
|
||
$l_src=GetRapt($cn,$p_rapt);
|
||
$l_dest=GetRaptDest($cn,$p_rapt);
|
||
echo_debug("l_src = $l_src l_dest = $l_dest");
|
||
// if the operation match already => set rappt to null
|
||
if ( $l_src != -1 ) {
|
||
$Sql=sprintf("update jrn set jr_rapt=null where jr_internal='%s'",$l_src);
|
||
$Res=ExecSql($cn,$Sql);
|
||
}
|
||
}// strlen (trim (p_rapt
|
||
if ( !isset ($p_ech) ) $p_ech="";
|
||
$l_date=isDate($p_ech);
|
||
if ( $l_date == null ) {
|
||
$l_date="null";
|
||
}else {
|
||
$l_date="to_date('".$_POST["ech"]."','DD.MM.YYYY')";
|
||
}
|
||
if ( FormatString( $p_rapt ) != null ) {
|
||
$comment=FormatString($_POST["comment"]);
|
||
|
||
$Sql=sprintf("update jrn set jr_comment='%s',jr_date=%s,jr_rapt='%s',".
|
||
"jr_montant=%f j_tech_per=%d where
|
||
jr_id=%d",
|
||
$comment,
|
||
$l_date,
|
||
$p_rapt,
|
||
$p_sum_deb,
|
||
$userPref,
|
||
$p_jr_id
|
||
);
|
||
|
||
$Res=ExecSql($cn,$Sql);
|
||
$current_internal=GetInternal($cn,$p_jr_id);
|
||
$Sql=sprintf("update jrn set jr_rapt='%s' where jr_internal='%s'",
|
||
$current_internal,
|
||
$p_rapt);
|
||
$Res=ExecSql($cn,$Sql);
|
||
|
||
|
||
} else {
|
||
$comment=FormatString($_POST["comment"]);
|
||
$Sql=sprintf("update jrn set jr_comment='%s',
|
||
jr_date=%s,jr_rapt=null,jr_montant=%f,jr_tech_per=%d where jr_id=%d",
|
||
$comment,
|
||
$l_date,$p_sum_deb,$userPref,
|
||
$p_jr_id);
|
||
$Res=ExecSql($cn,$Sql);
|
||
|
||
|
||
}
|
||
if ($Res) {
|
||
Commit($cn);
|
||
EndSql($cn);
|
||
|
||
} else
|
||
{
|
||
Rollback($cn);
|
||
EndSql($cn);
|
||
}
|
||
ViewJrn($g_dossier,$g_user,$g_jrn);
|
||
|
||
} // if update_record
|
||
|
||
$l_Db=sprintf("dossier%d",$g_dossier);
|
||
$cn=DbConnect($l_Db);
|
||
?>
|
||
</DIV>
|
||
<?
|
||
html_page_stop();
|
||
?>
|