svn+ssh://danydb@svn/svn/phpcompta/branches/rel430 ........ r2258 | danydb | 2008-12-18 23:21:00 +0100 (Thu, 18 Dec 2008) | 1 line Add debug ........ r2262 | danydb | 2008-12-19 22:38:25 +0100 (Fri, 19 Dec 2008) | 1 line Add a local admin ........ r2270 | danydb | 2008-12-21 20:11:26 +0100 (Sun, 21 Dec 2008) | 1 line Doc. remove the useless todo list ........ r2271 | danydb | 2008-12-22 21:18:46 +0100 (Mon, 22 Dec 2008) | 3 lines Remove obsolete functions insertRapt, deleteRapt and getconcerned Remove obsolete file user_update ........ r2272 | danydb | 2008-12-22 21:21:46 +0100 (Mon, 22 Dec 2008) | 2 lines Remove obsolete function isFicheOfJrn ........ r2273 | danydb | 2008-12-22 21:44:28 +0100 (Mon, 22 Dec 2008) | 1 line Improve Invoice : add the username ........ r2287 | danydb | 2009-01-13 21:37:07 +0100 (Tue, 13 Jan 2009) | 1 line Code cleaning replace GetConcerned by Acc_Reconciliation ........ r2288 | danydb | 2009-01-13 21:38:40 +0100 (Tue, 13 Jan 2009) | 1 line Add a comment on jrn operation ........ r2289 | danydb | 2009-01-13 21:40:13 +0100 (Tue, 13 Jan 2009) | 1 line Code cleaning : add comments to the code ........ r2290 | danydb | 2009-01-13 21:40:46 +0100 (Tue, 13 Jan 2009) | 1 line Code cleaning replace GetConcerned by Acc_Reconciliation ........ r2291 | danydb | 2009-01-13 21:41:35 +0100 (Tue, 13 Jan 2009) | 1 line Code cleaning replace GetConcerned by Acc_Reconciliation ........ r2292 | danydb | 2009-01-13 21:42:15 +0100 (Tue, 13 Jan 2009) | 1 line Add documentation about new tags ........ r2293 | danydb | 2009-01-13 21:43:22 +0100 (Tue, 13 Jan 2009) | 1 line Code cleaning start rewriting of the security part ........ r2294 | danydb | 2009-01-14 20:09:18 +0100 (Wed, 14 Jan 2009) | 1 line Improve : template of security + security code ........ r2295 | danydb | 2009-01-14 20:21:51 +0100 (Wed, 14 Jan 2009) | 1 line Improve security : add new variable ........ r2296 | danydb | 2009-01-14 20:39:58 +0100 (Wed, 14 Jan 2009) | 1 line Improve security : modify layout ........ r2297 | danydb | 2009-01-15 19:21:47 +0100 (Thu, 15 Jan 2009) | 1 line Improve security : user setting ........ r2299 | danydb | 2009-01-15 19:28:56 +0100 (Thu, 15 Jan 2009) | 2 lines Clean code : can_request doens't have a connx parameter ........ r2300 | danydb | 2009-01-16 19:12:47 +0100 (Fri, 16 Jan 2009) | 1 line Improve Ecriture directe libelle : new widget js_search_card_control ........ r2301 | danydb | 2009-01-16 22:29:39 +0100 (Fri, 16 Jan 2009) | 1 line Improve Quick Writing : remove span, and update the comment field ........ r2302 | danydb | 2009-01-16 23:01:24 +0100 (Fri, 16 Jan 2009) | 1 line Improve cosmetic : GL + remove the select topmenu ........ r2303 | danydb | 2009-01-19 08:41:09 +0100 (Mon, 19 Jan 2009) | 1 line Cosmetic : a inline ........ r2304 | danydb | 2009-01-20 23:03:59 +0100 (Tue, 20 Jan 2009) | 6 lines Code Cleaning Security : remove obsolete files & function Class_user : add new functions for the security Only the menu in text mode with a break line ........ r2305 | danydb | 2009-01-20 23:05:01 +0100 (Tue, 20 Jan 2009) | 1 line code cleaning rewriting of Security ........ r2306 | danydb | 2009-01-21 21:13:15 +0100 (Wed, 21 Jan 2009) | 1 line Security printing unicode and fix some bugs ........ r2309 | danydb | 2009-01-26 19:56:28 +0100 (Mon, 26 Jan 2009) | 1 line ADD : company without VAT ........ r2310 | danydb | 2009-01-26 23:33:14 +0100 (Mon, 26 Jan 2009) | 1 line Add : no vat for Purchase ledger ........ r2312 | danydb | 2009-01-28 19:57:30 +0100 (Wed, 28 Jan 2009) | 1 line Integration ........ r2313 | danydb | 2009-01-28 22:46:27 +0100 (Wed, 28 Jan 2009) | 1 line Work with or without VAT ........ r2314 | danydb | 2009-01-29 22:18:57 +0100 (Thu, 29 Jan 2009) | 2 lines Remove debug info ........ r2315 | danydb | 2009-01-29 23:23:14 +0100 (Thu, 29 Jan 2009) | 1 line ADD the possibility to enter a piece number ........ r2316 | danydb | 2009-01-31 23:20:00 +0100 (Sat, 31 Jan 2009) | 1 line Documentation ........ r2317 | danydb | 2009-02-04 20:14:54 +0100 (Wed, 04 Feb 2009) | 1 line Template for ledger ........ r2318 | danydb | 2009-02-05 15:52:58 +0100 (Thu, 05 Feb 2009) | 1 line Add PJ setting + default in Ledger, fix bug in listJrn ........ r2319 | danydb | 2009-02-05 17:09:56 +0100 (Thu, 05 Feb 2009) | 2 lines Search by PJ ........ r2320 | danydb | 2009-02-05 17:23:24 +0100 (Thu, 05 Feb 2009) | 1 line Finished with pj ........ r2321 | danydb | 2009-02-05 18:11:35 +0100 (Thu, 05 Feb 2009) | 1 line PJ is readonly ........ r2322 | danydb | 2009-02-05 20:10:34 +0100 (Thu, 05 Feb 2009) | 1 line Saldo : write the first saldo (ajax) ........ r2324 | danydb | 2009-02-06 00:07:50 +0100 (Fri, 06 Feb 2009) | 5 lines Add database script Cosmetic (menu) Fix Bug ........ r2325 | danydb | 2009-02-06 14:07:07 +0100 (Fri, 06 Feb 2009) | 1 line Improve Pj seq ........ r2326 | danydb | 2009-02-09 22:47:23 +0100 (Mon, 09 Feb 2009) | 6 lines Fix Bug privilege (compta_ven) Fix if the pj is empty do not increment the sequence (class_acc_operation) Fix remove PJ if pj is empty (modify_op.php) Cosmetic do not print PJ if pj is null or empty (listing) ........ r2327 | danydb | 2009-02-10 21:04:48 +0100 (Tue, 10 Feb 2009) | 5 lines Fix bug in PJ seq Fix bug in export jrn csv Improve avoid the removal of vat rate Add security for card ........ r2328 | danydb | 2009-02-12 20:26:36 +0100 (Thu, 12 Feb 2009) | 4 lines Cosmetic menu_tool Impression add tag PJ Cosmetic menu administration ........ r2329 | danydb | 2009-02-12 21:43:19 +0100 (Thu, 12 Feb 2009) | 5 lines filter the folder the local admin can access add a function check_dossier which must be implemented everywhere Printing with PJ NoAccess default = javascript ........ r2330 | danydb | 2009-02-14 18:11:49 +0100 (Sat, 14 Feb 2009) | 2 lines improve add libelle for balance csv ........ r2331 | danydb | 2009-02-14 19:10:56 +0100 (Sat, 14 Feb 2009) | 7 lines Balance csv add label Bug Financial ledger list BUG period access BUG stock access IMPROVE list ledger with PJ ........ r2332 | danydb | 2009-02-15 18:21:59 +0100 (Sun, 15 Feb 2009) | 1 line Bug order was not saved for report ........ r2333 | danydb | 2009-02-15 18:22:17 +0100 (Sun, 15 Feb 2009) | 1 line Add security for normal user ........ r2334 | danydb | 2009-02-15 18:23:24 +0100 (Sun, 15 Feb 2009) | 3 lines Bug forget to import class ........ r2335 | danydb | 2009-02-17 21:33:17 +0100 (Tue, 17 Feb 2009) | 5 lines Fix quick writing let write Fix card priv Remove button if no priv to add card or cancel an op ........ r2336 | danydb | 2009-02-19 21:01:36 +0100 (Thu, 19 Feb 2009) | 4 lines Check for CA common Bug with the repository ........ r2337 | danydb | 2009-02-19 21:50:35 +0100 (Thu, 19 Feb 2009) | 2 lines Test the parameter security part ........
259 lines
No EOL
7.1 KiB
PHP
259 lines
No EOL
7.1 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
|
|
*/
|
|
/* $Revision$ */
|
|
|
|
// Copyright Author Dany De Bontridder ddebontridder@yahoo.fr
|
|
|
|
/*!\file
|
|
*
|
|
*
|
|
* \brief to write directly into the ledgers,the stock and the tables
|
|
* quant_purchase and quant_sold are not changed by this
|
|
*
|
|
*/
|
|
require_once ('class_acc_ledger.php');
|
|
require_once ('class_acc_reconciliation.php');
|
|
|
|
require_once('check_priv.php');
|
|
|
|
|
|
$cn=DbConnect(dossier::id());
|
|
$id=(isset ($_REQUEST['p_jrn']))?$_REQUEST['p_jrn']:-1;
|
|
/*!\brief show a form for quick_writing */
|
|
function show_qw_menu($def=0) {
|
|
echo '<div class="lmenu">';
|
|
$id=(isset ($_REQUEST['p_jrn']))?$_REQUEST['p_jrn']:-1;
|
|
echo ShowItem(
|
|
array(
|
|
array('?p_action='.$_REQUEST['p_action'].'&'.dossier::get().'&p_jrn='.$id.'&show_form','Encoder une Operation',
|
|
' Encoder une operation dans ce journal',0),
|
|
array('?p_action='.$_REQUEST['p_action'].'&'.dossier::get().'&p_jrn='.$id.'&sa=l','Voir Operation',
|
|
' Voir les operations de ce journal',1),
|
|
array('?p_action='.$_REQUEST['p_action'].'&'.dossier::get(),
|
|
'Autre journal',
|
|
'Choisir un autre journal')
|
|
),
|
|
'H',"mtitle","mtitle",$def,' width="100%"'
|
|
);
|
|
|
|
echo '</div>';
|
|
}
|
|
|
|
/*!\brief show a form for quick_writing */
|
|
function show_direct_form($cn,$ledger,$p_array) {
|
|
echo '<div class="content">';
|
|
|
|
$id=(isset ($_REQUEST['p_jrn']))?$_REQUEST['p_jrn']:-1;
|
|
echo JS_COMPUTE_DIRECT;
|
|
echo Acc_Reconciliation::$javascript;
|
|
|
|
// Show the predef operation
|
|
// Don't forget the p_jrn
|
|
echo '<form method="get">';
|
|
echo widget::hidden('p_action',$_REQUEST['p_action']);
|
|
echo dossier::hidden();
|
|
echo widget::hidden('p_jrn',$_REQUEST['p_jrn']);
|
|
$op=new Pre_operation($cn);
|
|
$op->p_jrn=$_REQUEST['p_jrn'];
|
|
$op->od_direct='t';
|
|
if ( $op->count() > 0 ) {
|
|
echo "Utilisez une operation ";
|
|
echo $op->show_button();
|
|
echo widget::submit('use_opd','Utilisez une operation');
|
|
}
|
|
echo '</form>';
|
|
|
|
|
|
|
|
echo '<form method="post" action="?">';
|
|
echo dossier::hidden();
|
|
echo widget::hidden('p_action',$_REQUEST['p_action']);
|
|
|
|
echo $ledger->show_form($p_array);
|
|
|
|
|
|
echo widget::button('add','Ajout d\'une ligne','onClick="quick_writing_add_row()"');
|
|
|
|
echo widget::submit('summary','Sauvez');
|
|
echo '<div class="info">
|
|
Débit = <span id="totalDeb"></span>
|
|
Crédit = <span id="totalCred"></span>
|
|
Difference = <span id="totalDiff"></span>
|
|
</div>
|
|
';
|
|
|
|
|
|
echo '</form>';
|
|
echo "<script>checkTotalDirect();</script>";
|
|
|
|
echo "<div>".JS_CALC_LINE."</div>";
|
|
|
|
echo '</div>';
|
|
}
|
|
|
|
$ledger=new Acc_Ledger($cn,$id);
|
|
|
|
$ledger->with_concerned=true;
|
|
// no ledger selected, propose one
|
|
if ($id == -1 )
|
|
{
|
|
echo '<div class="content">';
|
|
|
|
// Vide
|
|
echo '<FORM method="get" action="?">';
|
|
echo dossier::hidden();
|
|
echo widget::hidden('p_action',$_REQUEST['p_action']);
|
|
echo $ledger->select_ledger()->IOValue();
|
|
echo widget::submit('show_form','Choix du journal');
|
|
echo '</form>';
|
|
echo '</div>';
|
|
exit();
|
|
}
|
|
if ( $User->check_jrn($id) == 'X' ) {
|
|
echo "
|
|
<script> alert(\"L'acces a ce journal est interdit, contactez votre responsable\");</script>";
|
|
exit();
|
|
}
|
|
echo '<div class="content">';
|
|
echo '<h2 class="info"> Journal : '.$ledger->get_name().'</h2>';
|
|
$sa=( isset ($_REQUEST['sa']))?$_REQUEST['sa']:'';
|
|
//======================================================================
|
|
// See the ledger listing
|
|
if ($sa == 'l' && $id != -1) {
|
|
// Check privilege
|
|
|
|
if ( $User->check_jrn($id) == 'X') {
|
|
NoAccess();
|
|
exit -1;
|
|
}
|
|
show_qw_menu(1);
|
|
echo '<div class="content">';
|
|
$Ledger=new Acc_Ledger($cn,$id);
|
|
$href=basename($_SERVER['PHP_SELF']);
|
|
|
|
echo '<form method="GET" action="'.$href.'">';
|
|
echo widget::hidden("sa","l");
|
|
echo widget::hidden("p_jrn",$id);
|
|
echo widget::hidden("p_action","quick_writing");
|
|
echo dossier::hidden();
|
|
$Ledger->show_ledger();
|
|
echo '</form>';
|
|
|
|
echo '</div>';
|
|
exit();
|
|
|
|
exit(0);
|
|
}
|
|
|
|
//======================================================================
|
|
// User can write ?
|
|
// Write into the ledger
|
|
|
|
if ( $User->check_jrn($id) == 'X' ) {
|
|
echo "
|
|
<script> alert(\"Vous ne pouvez pas accéder à ce journal, contactez votre responsable\");</script>";
|
|
exit -1;
|
|
}
|
|
|
|
if ( $User->check_jrn($id)=='W' ) {
|
|
if ( isset($_GET['show_form']) || isset($_POST['correct_it']) ) {
|
|
$array=$_POST;
|
|
$default_periode=$User->get_periode();
|
|
/* check if the ledger is closed */
|
|
if ( $ledger->is_closed($default_periode)==1) {
|
|
echo '<h2 class="error"> Desole mais cette periode est fermee pour ce journal</h2>';
|
|
exit();
|
|
}
|
|
list($date,$devnull)=get_periode($cn,$default_periode);
|
|
$array['date']=$date;
|
|
show_qw_menu();
|
|
show_direct_form($cn,$ledger,$array);
|
|
exit();
|
|
}
|
|
|
|
// reload with a predefined operation
|
|
//
|
|
if ( isset ($_GET['use_opd'])) {
|
|
$op=new Pre_op_advanced($cn);
|
|
$p_post=null;
|
|
if ( isset($_REQUEST['pre_def']) && $_REQUEST['pre_def'] != ''){
|
|
$op->set_od_id($_REQUEST['pre_def']);
|
|
//$op->p_jrn=$id;
|
|
|
|
$p_post=$op->compute_array();
|
|
}
|
|
show_qw_menu();
|
|
show_direct_form($cn,$ledger,$p_post);
|
|
|
|
exit();
|
|
|
|
}
|
|
if ( isset($_POST['summary'])) {
|
|
try {
|
|
$ledger->verify($_POST );
|
|
} catch (AcException $e) {
|
|
echo '<script>alert (\''.$e->getMessage()."'); </script>";
|
|
show_qw_menu();
|
|
show_direct_form($cn,$ledger,$_POST);
|
|
exit();
|
|
}
|
|
|
|
echo '<form method="post" action="?">';
|
|
echo $ledger->show_form($_POST,1);
|
|
echo dossier::hidden();
|
|
echo widget::hidden('p_action',$_REQUEST['p_action']);
|
|
|
|
echo widget::submit('save_it',"Sauver");
|
|
echo widget::submit('correct_it','Corriger');
|
|
|
|
$chk=new widget('checkbox');
|
|
$chk->selected=false;
|
|
echo "Sauvez l'opération ?";
|
|
echo $chk->IOValue('save_opd');
|
|
echo '</form>';
|
|
exit();
|
|
|
|
}
|
|
if ( isset($_POST['save_it' ])) {
|
|
$array=$_POST;
|
|
|
|
try {
|
|
$ledger->save($array);
|
|
echo '<h2> Opération enregistrée '.$ledger->jr_internal.' Piece '.h($ledger->pj).'</h2>';
|
|
if ( strcmp($ledger->pj,$_POST['e_pj']) != 0 ) {
|
|
echo '<h3 class="notice"> Attention numéro pièce existante, elle a du être adaptée</h3>';
|
|
}
|
|
|
|
echo widget::button_href('Autre opération dans ce journal',
|
|
"?".dossier::get().
|
|
'&show_form'.
|
|
'&p_action=quick_writing&p_jrn='.
|
|
$_REQUEST['p_jrn']);
|
|
|
|
} catch (AcException $e) {
|
|
echo '<script>alert (\''.$e->getMessage()."'); </script>";
|
|
show_qw_menu();
|
|
show_direct_form($cn,$ledger,$_POST);
|
|
}
|
|
exit();
|
|
}
|
|
} // if check_jrn=='W'
|
|
else {
|
|
show_qw_menu();
|
|
} |