altocompta/include/param_pcmn.inc.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

205 lines
5.5 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 concerns the management of the "Plan Comptable"
*/
require_once ('class_acc_account.php');
include_once ("ac_common.php");
require_once("constant.php");
require_once('class_dossier.php');
$gDossier=dossier::id();
require_once('class_database.php');
/* Admin. Dossier */
$cn=new Database($gDossier);
include_once ("class_user.php");
$User=new User($cn);
$User->Check();
$User->check_dossier($gDossier);
include_once ("user_menu.php");
echo JS_ACCOUNTING_ITEM;
/* Store the p_start parameter */
if ( ! isset ( $_SESSION['g_start']) ) {
$_SESSION['g_start']="";
}
if ( isset ($_GET['p_start'])) {
$g_start=$_GET['p_start'];
$_SESSION["g_start"]=$g_start;
}
echo '<div class="u_subtmenu">';
echo '</div>';
$User->can_request(PARPCMN);
echo '<div class="lmenu">';
ShowMenuPcmn($_SESSION['g_start']);
echo '</div>';
echo '<DIV CLASS="u_redcontent">';
/* Analyse ce qui est demandé */
/* Effacement d'une ligne */
if (isset ($_GET['action'])) {
//-----------------------------------------------------
// Action == remove a line
if ( $_GET['action']=="del" ) {
if ( isset ($_GET['l']) ) {
/* Ligne a enfant*/
$R=$cn->exec_sql("select pcm_val from tmp_pcmn where pcm_val_parent=$1",array($_GET['l']));
if ( Database::num_row($R) != 0 ) {
alert("Ne peut pas effacer le poste: d'autres postes en dépendent");
} else {
/* Vérifier que le poste n'est pas utilisé qq part dans les journaux */
$Res=$cn->exec_sql("select * from jrnx where j_poste=$1",array($_GET['l']));
if ( Database::num_row($Res) != 0 ) {
alert("Ne peut pas effacer le poste: il est utilisé dans les journaux");
}
else {
$Del=$cn->exec_sql("delete from tmp_pcmn where pcm_val=$1",array($_GET['l']));
} // if Database::num_row
} // if Database::num_row
} // isset ($l)
} //$action == del
} // isset action
//-----------------------------------------------------
/* Ajout d'une ligne */
if ( isset ( $_POST["Ajout"] ) ) {
extract ($_POST);
$p_val=trim($p_val);
$p_parent=trim($p_parent);
if ( isset ( $p_val) && isset ( $p_lib ) && isNumber($p_val) && isNumber($p_parent) ) {
$p_val=trim($p_val);
$p_lib=FormatString(trim($p_lib));
$p_parent=$_POST["p_parent"];
if ( strlen ($p_val) != 0 && strlen ($p_lib) != 0 ) {
if (strlen ($p_val) == 1 ) {
$p_parent=0;
} else {
if ( strlen(trim($p_parent))==0 &&
(string) $p_parent != (string)(int) $p_parent) {
$p_parent=substr($p_val,0,strlen($p_val)-1);
}
echo_debug('pcmn_update.php',__LINE__,"Ajout valeur = $p_val parent = $p_parent");
}
/* Parent existe */
$Ret=$cn->exec_sql("select pcm_val from tmp_pcmn where pcm_val=$1",array($p_parent));
if ( $p_parent != 0 && Database::num_row($Ret) == 0 ) {
alert(" Ne peut pas modifier; aucun poste parent");
} else {
// Check if the account already exists
$Count=$cn->count_sql("select * from tmp_pcmn where pcm_val='".$p_val."'");
if ( $Count != 0 )
{
// Alert message account already exists
alert(" Ce poste existe déjà ");
} else
{
$Ret=$cn->exec_sql("insert into tmp_pcmn (pcm_val,pcm_lib,pcm_val_parent,pcm_type) values ($1,$2,$3,$4)",array($p_val,$p_lib,$p_parent,$p_type));
}
}
} else {
echo '<H2 class="error"> Valeurs invalides </H3>';
}
}
}
$Ret=$cn->exec_sql("select pcm_val,pcm_lib,pcm_val_parent,pcm_type from tmp_pcmn where substr(pcm_val::text,1,1)='".$_SESSION['g_start']."' order by pcm_val::text");
$MaxRow=Database::num_row($Ret);
?>
<FORM METHOD="POST">
<?php
echo HtmlInput::hidden('p_action','pcmn');
//echo HtmlInput::hidden('sa','detail');
echo dossier::hidden();
?>
<TABLE ALIGN="center" BORDER=0 CELLPADDING=0 CELLSPACING=0>
<TR>
<TH> Classe </TH>
<TH> Libellé </TH>
<TH> Parent </TH>
<TH> Type </TH>
</TR>
<?php
$line=new Acc_Account($cn);
echo $line->form(false);
?>
<TD>
<INPUT TYPE="SUBMIT" Value="Ajout" Name="Ajout">
</TD>
</TR>
<?php
$str_dossier=dossier::get();
for ($i=0; $i <$MaxRow; $i++) {
$A=Database::fetch_array($Ret,$i);
if ( $i%2 == 0 ) {
$td ='<TD class="odd">';
} else {
$td='<TD class="even">';
}
echo "<TR> ";
echo "$td";
echo $A['pcm_val'];
echo '</td>';
echo "$td";
printf ("<A HREF=\"javascript:PcmnUpdate('%s','%s','%s','%s','%s',%d)\">",
$A['pcm_val'],
FormatString($A['pcm_lib']),
$A['pcm_val_parent'],
$A['pcm_type'],
$_REQUEST['PHPSESSID'],
dossier::id());
echo h($A['pcm_lib']);
echo $td;
echo $A['pcm_val_parent'];
echo '</TD>';
echo "</td>$td";
echo $A['pcm_type'];
echo "</TD>";
echo $td;
printf ('<A href="?p_action=pcmn&l=%s&action=del&%s">Delete</A>',$A['pcm_val'],$str_dossier);
echo "</TD>";
echo "</TR>";
}
echo "</TABLE>";
echo "</FORM>";
echo "</DIV>";
html_page_stop();
?>