2059ddb70e
a flag in .htaccess must be set php_flag session.use_only_cookies on php_flag session.use_cookies 1
840 lines
25 KiB
PHP
840 lines
25 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 work with the ledger
|
|
*/
|
|
require_once("class_itext.php");
|
|
require_once("class_ifile.php");
|
|
require_once("class_ihidden.php");
|
|
require_once('class_fiche.php');
|
|
require_once ('class_gestion_sold.php');
|
|
require_once ('class_gestion_purchase.php');
|
|
require_once ('class_anc_plan.php');
|
|
require_once ('class_anc_operation.php');
|
|
require_once ('class_acc_ledger.php');
|
|
require_once ('class_acc_operation.php');
|
|
require_once ('class_acc_ledger_info.php');
|
|
require_once('class_acc_reconciliation.php');
|
|
require_once('class_own.php');
|
|
|
|
/*!
|
|
* \brief Display the form to UPDATE account operation in the expert view
|
|
*
|
|
* \param $p_cn database connection
|
|
* \param $jr_id pk of jrn
|
|
* \param mode 1 editable, 0 for CA
|
|
*
|
|
* \return none
|
|
*
|
|
*
|
|
*/
|
|
function ShowOperationExpert($p_cn,$p_jr_id,$p_mode=1)
|
|
{
|
|
|
|
echo_debug('jrn.php',__LINE__,"function UpdateJrn");
|
|
// own
|
|
$own=new own($p_cn);
|
|
$gDossier=dossier::id();
|
|
$l_array=get_dataJrnJrId($p_cn,$p_jr_id);
|
|
if ( $l_array == null ) {
|
|
echo_error ("Not data found for UpdateJrn p_jr_id = $p_jr_id");
|
|
return ;
|
|
}
|
|
echo_debug('jrn.php',__LINE__,$l_array);
|
|
// Javascript
|
|
$r=JS_LEDGER;
|
|
|
|
// Build the form
|
|
$col_vide="<TD></TD>";
|
|
$disable=($p_mode==0)?"disabled":"";
|
|
$str_dossier=dossier::get();
|
|
$count=0;
|
|
for ( $i =0 ; $i < sizeof($l_array); $i++) {
|
|
$content=$l_array[$i] ;
|
|
|
|
// for the first line
|
|
if ( $i == 0 ) {
|
|
$r.="<TABLE>";
|
|
$r.="<TR>";
|
|
// Date
|
|
$r.="<TD><h3>";
|
|
$r.=$content['jr_date'];
|
|
$r.="</h3></TD>";
|
|
// Internal
|
|
$r.="<TD><h3>";
|
|
$r.=$content['jr_internal'];
|
|
$r.="</h3></TD>";
|
|
$r.='</tr>';
|
|
// for upload document we need the grpt_id
|
|
$r.='<Input type="hidden" name="jr_grpt_id" value="'.$content['jr_grpt_id'].'">';
|
|
|
|
// comment can be changed
|
|
$r.="<TD>";
|
|
$comment=new IText();
|
|
$comment->table=0;
|
|
$comment->name="comment";
|
|
$comment->readonly=($p_mode==0)?true:false;
|
|
$comment->value=$content['jr_comment'];
|
|
$comment->size=40;
|
|
$r.=$comment->input();
|
|
$r.="</TD>";
|
|
|
|
// pj can be changed
|
|
$r.="<TD> PJ Num. ";
|
|
$comment=new IText();
|
|
$comment->table=0;
|
|
$comment->name="pj";
|
|
$comment->readonly=($p_mode==0)?true:false;
|
|
$comment->value=$content['jr_pj_number'];
|
|
$comment->size=10;
|
|
$r.=$comment->input();
|
|
$r.="</TD>";
|
|
|
|
|
|
if ( $content['jrn_def_type'] == 'ACH' or
|
|
$content['jrn_def_type'] == 'VEN' )
|
|
{
|
|
// Is Paid
|
|
$r.="<TD>";
|
|
$check=( $content['jr_rapt'] != null )?"CHECKED":"UNCHECKED";
|
|
$r.='<TD>Payé <INPUT TYPE="CHECKBOX"'.$disable.' name="is_paid" '.$check.'></TD>';
|
|
}
|
|
$r.="</TR>";
|
|
$r.="</TABLE>";
|
|
$r.="<TABLE>";
|
|
$r.="<tr>";
|
|
$r.='<th colspan="2">Postes</th>';
|
|
$r.='<th>Description</th>';
|
|
$r.='<th>Débit</th>';
|
|
$r.='<th>Crédit</th>';
|
|
|
|
$own = new Own($p_cn);
|
|
$r.="</tr>";
|
|
}
|
|
$r.="<TR>";
|
|
if ( $content['j_debit'] == 'f' ) $r.=$col_vide;
|
|
// $r.="<TD>".$content['j_debit']."</td>";
|
|
|
|
$r.="<TD>".$content['j_poste']."</td>";
|
|
if ( $content['j_debit'] == 't' ) $r.=$col_vide;
|
|
$qc=($content['j_qcode'] != "")?" [".$content['j_qcode']."]":"";
|
|
if ( $content['j_text'] == '')
|
|
$r.="<TD>".$qc.h($content['vw_name'])."</td>";
|
|
else
|
|
$r.="<TD>".$qc.h($content['j_text'])."</td>";
|
|
if ( $content['j_debit'] == 'f' ) $r.=$col_vide;
|
|
$r.="<TD>".$content['j_montant']."</td>";
|
|
if ( $content['j_debit'] == 't' ) $r.=$col_vide;
|
|
//-- add ca
|
|
//
|
|
if ( $own->MY_ANALYTIC != "nu" && myereg("^[6,7]+",$content['j_poste']))
|
|
{
|
|
|
|
$r.=display_table_ca($p_cn,$count,$content['j_id'],$own,$p_mode,$content['j_montant']);
|
|
$count++;
|
|
}
|
|
|
|
$r.="</TR>";
|
|
|
|
// }// foreach ($l_array[$i] as $value=>$content)
|
|
}// for ( $i =0 ; $i < sizeof($l_array); $i++)
|
|
if ( $p_mode == 1) {
|
|
$file=new IFile();
|
|
$file->table=1;
|
|
//doc
|
|
if ( $content['jr_pj_name'] != "")
|
|
$r.='<TD>Effacer PJ <INPUT TYPE="CHECKBOX" name="to_remove" ></TD>';
|
|
}
|
|
$r.="<TD>".sprintf('<A class="detail" HREF="show_pj.php?jrn=%s&jr_grpt_id=%s">%s</A>',
|
|
$content['jr_id'],
|
|
$content['jr_grpt_id'],
|
|
$str_dossier,
|
|
$content['jr_pj_name']
|
|
|
|
)."</TD>";
|
|
$r.="</TR></TABLE>";
|
|
|
|
if ( $p_mode == 1 ) {
|
|
$r.="<hr>";
|
|
$r.='<h2 class="info2">Document</h2>';
|
|
$r.= "<table>";
|
|
$r.=tr("<TD>Document</td>".$file->input("pj","","Pièce justificative"));
|
|
$r.="</table>";
|
|
}
|
|
$r.="<hr>";
|
|
|
|
$r.="</table>";
|
|
$r.="Total ".$content['jr_montant']."<br>";
|
|
|
|
/* count the number of additionnal info */
|
|
$acc_jrn_info=new Acc_Ledger_Info($p_cn);
|
|
$acc_jrn_info->set_jrn_id($p_jr_id);
|
|
|
|
/* if additional info > 0 show them */
|
|
if ( $acc_jrn_info->count() > 0 ) {
|
|
$array=$acc_jrn_info->load_all();
|
|
foreach ($array as $row) {
|
|
if ( strpos($row->id_type,'BON_COMMANDE') ===0) {
|
|
$r.="Num bon de commande : ".$row->ji_value.'<br>';
|
|
}
|
|
if ( strpos($row->id_type,'OTHER') ===0) {
|
|
$r.="Autre info : ".$row->ji_value.'<br>';
|
|
}
|
|
|
|
}
|
|
}
|
|
|
|
if ( $p_mode==1) {
|
|
// show all the related operation
|
|
$rec=new Acc_Reconciliation($p_cn);
|
|
$rec->set_jr_id($content['jr_id']);
|
|
$a=$rec->get();
|
|
|
|
if ( $a != null ) {
|
|
$r.="<h2 class=\"info2\">Operation concernée</h2> <br>";
|
|
|
|
$r.= '<div style="margin-left:30px;">';
|
|
foreach ($a as $key => $element) {
|
|
$operation=new Acc_operation($p_cn);
|
|
$operation->jr_id=$element;
|
|
$r.=sprintf ('%s <INPUT class="button" TYPE="BUTTON" VALUE="Détail" onClick="modifyOperation(\'%s\',%d)">',
|
|
$operation->get_internal($p_cn,$element),
|
|
$element,
|
|
$gDossier);
|
|
$r.=sprintf('<INPUT class="button" TYPE="button" value="Efface" onClick="dropLink(\'%s\',\'%s\',%d)"><BR>',
|
|
$content['jr_id'],$element,$gDossier);
|
|
}//for
|
|
$r.= "</div>";
|
|
}// if ( $a != null )
|
|
|
|
$search='<INPUT TYPE="BUTTON" class="button" VALUE="Cherche" OnClick="SearchJrn('.$gDossier.",'rapt','".$content['jr_montant']."')\">";
|
|
|
|
$r.= 'Autre rapprochement :
|
|
<INPUT TYPE="TEXT" id="rapt" name="rapt" value="">'.$search;
|
|
|
|
} // if mode == 1
|
|
|
|
$r.='<input type="hidden" name="jr_id" value="'.$content['jr_id'].'">';
|
|
return $r;
|
|
}
|
|
|
|
/*!
|
|
* \brief Display the form to UPDATE account operation in the user view
|
|
*
|
|
* \param $p_cn database connection
|
|
* \param $jr_id pk of jrn
|
|
* \param mode 1 editable, 0 for CA
|
|
*/
|
|
function ShowOperationUser($p_cn,$p_jr_id,$p_mode=1)
|
|
{
|
|
|
|
$gDossier=dossier::id();
|
|
$l_array=get_dataJrnJrIdUser($p_cn,$p_jr_id);
|
|
$str_dossier=dossier::get();
|
|
/* if the operation doesn't exist in the quant_xxx table then we
|
|
* show the expert view
|
|
*/
|
|
|
|
if ( $l_array == null || empty($l_array) == true) {
|
|
// If the operation is not in quant_sold or quant_purchase
|
|
// because those tables comes later
|
|
$r=ShowOperationExpert($p_cn,$p_jr_id,$p_mode);
|
|
return $r;
|
|
}
|
|
|
|
// own
|
|
$own=new own($p_cn);
|
|
|
|
echo_debug('jrn.php',__LINE__,$l_array);
|
|
// Javascript
|
|
$r=JS_LEDGER;
|
|
|
|
// Build the form
|
|
$col_vide="<TD></TD>";
|
|
|
|
|
|
$content=$l_array[0] ;
|
|
// for the first line
|
|
$internal=$content['jr_internal'];
|
|
|
|
$r.='<TABLE width="100%">';
|
|
$r.="<TR>";
|
|
// Date
|
|
$r.='<TD ><h3>';
|
|
$r.=$content['jr_date'];
|
|
$disable=($p_mode==0)?"disabled":"";
|
|
$r.='</h3></td>';
|
|
// Limit Date
|
|
$ech=new IDate('e_ech');
|
|
$ech->value=$content['ech_fmt'];
|
|
$r.=td(_('Echéance ').$ech->input());
|
|
|
|
// Internal
|
|
// --
|
|
$r.='<td><h3>';
|
|
$r.=$content['jr_internal'];
|
|
$r.="</h3></TD>";
|
|
|
|
// for upload document we need the grpt_id
|
|
$r.='<Input type="hidden" name="jr_grpt_id" value="'.$content['jr_grpt_id'].'">';
|
|
$r.='</tr><tr>';
|
|
// comment can be changed
|
|
$comment=new IText();
|
|
$comment->table=0;
|
|
$comment->name="comment";
|
|
$comment->readonly=($p_mode==0)?true:false;
|
|
$comment->value=$content['jr_comment'];
|
|
$comment->size=40;
|
|
$r.='<td>'.$comment->input().'</td>';
|
|
|
|
// pj can be changed
|
|
$r.="<TD> PJ Num. ";
|
|
$comment=new IText();
|
|
$comment->table=0;
|
|
$comment->name="pj";
|
|
$comment->readonly=($p_mode==0)?true:false;
|
|
$comment->value=$content['jr_pj_number'];
|
|
$comment->size=10;
|
|
$r.=$comment->input();
|
|
$r.="</TD>";
|
|
|
|
// Is Paid
|
|
$r.="<TD>";
|
|
$check=( $content['jr_rapt'] != null )?"CHECKED":"UNCHECKED";
|
|
$r.='<TD>Payé <INPUT TYPE="CHECKBOX" '.$disable.' name="is_paid" '.$check.'></TD>';
|
|
|
|
$r.="</TR>";
|
|
|
|
echo_debug(__FILE__.":".__LINE__."jrn_Def_type = ".$content['jrn_def_type']);
|
|
// for others lines
|
|
$own=new Own($p_cn);
|
|
// for purchase ledger
|
|
if ( $content['jrn_def_type'] == 'ACH' )
|
|
{
|
|
$r.='</table>';
|
|
$r.='<table width="100%">';
|
|
echo_debug(__FILE__.":".__LINE__." content['qp_supplier'] ".$content['qp_supplier']);
|
|
$client=new fiche($p_cn,$content['qp_supplier']);
|
|
$r.="Client : ".$client->getName();
|
|
echo_debug(__FILE__,__LINE__,$content);
|
|
|
|
/* now we get the different lines for this operation thanks */
|
|
/* the qp_internal == jr_internal */
|
|
$r.='<tr>';
|
|
$r.='<th>Nom</th>';
|
|
$r.='<th>PU</th>';
|
|
$r.='<th>Quantité</th>';
|
|
$r.='<th> Dep. priv. </th>';
|
|
if ( $own->MY_TVA_USE=='Y') {
|
|
$r.='<th>tva</th>';
|
|
$r.='<th>tva</th>';
|
|
$r.='<th>non ded.</th>';
|
|
$r.='<th>tva nd</th>';
|
|
$r.='<th>tva d impot</th>';
|
|
$r.='<th>total htva</th>';
|
|
$r.='<th>total tvac</th>';
|
|
} else
|
|
$r.='<th>total</th>';
|
|
|
|
$r.='</tr>';
|
|
$object=new gestion_purchase($p_cn);
|
|
$object->qp_internal=$internal;
|
|
$array=$object->get_list();
|
|
$tot_tva=0.0;
|
|
$tot_amount=0.0;
|
|
$tot_nd=0.0;
|
|
$tot_tva_nd=0.0;
|
|
$tot_tva_nd_recup=0.0;
|
|
$tot_dep_priv=0.0;
|
|
$i=0;
|
|
$i_march=0;
|
|
foreach ($array as $row) {
|
|
|
|
$fiche=new fiche($p_cn,$row->qp_fiche);
|
|
// compute sum
|
|
$tot_tva+=$row->qp_vat;
|
|
$tot_nd+=$row->qp_nd_amount;
|
|
$tot_tva_nd+=$row->qp_nd_tva;
|
|
$tot_tva_nd_recup+=$row->qp_nd_tva_recup;
|
|
$tot_amount+=$row->qp_price;
|
|
$tot_dep_priv+=$row->qp_dep_priv;
|
|
|
|
// $hid_jid=new IHidden("","p_jid_".$row->j_id,$row->j_id);
|
|
$r.=($i%2==0)?"<tr class=\"odd\">":'<tr>'; $i++;
|
|
$pu=0.0;
|
|
if ( $row->qp_price != 0.0 && $row->qp_price != 0 )
|
|
$pu=round(($row->qp_nd_amount+$row->qp_price)/$row->qp_quantite,2);
|
|
$r.='<td> '.$fiche->strAttribut(ATTR_DEF_NAME).'</td>';
|
|
$r.='<tD>'.$pu.'</td>';
|
|
$r.='<td align="right">'.$row->qp_quantite.'</td>';
|
|
$r.='<td align="right">'.$row->qp_dep_priv.'</td>';
|
|
// do not show TVA field if we don't use them
|
|
if ($own->MY_TVA_USE == 'Y' ) {
|
|
$r.='<td align="right">'.$row->qp_vat.'</td>';
|
|
$r.='<td>'.$row->tva_label.'</td>';
|
|
$r.='<td>'.$row->qp_nd_amount.'</td>';
|
|
$r.='<td>'.$row->qp_nd_tva.'</td>';
|
|
$r.='<td>'.$row->qp_nd_tva_recup.'</td>';
|
|
}
|
|
$r.='<td align="right">'.sprintf("% 12.2f",$row->qp_price).'</td>';
|
|
$r.='<td align="right">'.sprintf("% 12.2f",$row->qp_vat+$row->qp_nd_amount+$row->qp_nd_tva+$row->qp_nd_tva_recup+$row->qp_price).'</td>';
|
|
//-- add ca
|
|
//
|
|
|
|
$content['j_poste']=$fiche->strAttribut(ATTR_DEF_ACCOUNT);
|
|
// echo "j_poste= ".$content['j_poste'];
|
|
if ( $own->MY_ANALYTIC != "nu" && myereg("^[6,7]+",$content['j_poste']))
|
|
{
|
|
$r.=display_table_ca($p_cn,$i_march,$row->j_id,$own,$p_mode,round($tot_amount,2));
|
|
$i_march++;
|
|
}
|
|
|
|
|
|
}
|
|
// display sum
|
|
$r.='<tr><td colspan="8"><hr style="color:blue;"></td></tr>';
|
|
$r.='<tr style="font-size:13px;color:green;">'.
|
|
'<td colspan="7">Total HTVA</td>'.
|
|
'<td style="text-align:right">'.sprintf('% 12.2f',$tot_amount)."</td>".
|
|
"</tr>";
|
|
if ( $tot_tva != 0 )
|
|
$r.='<tr style="font-size:13px;color:green;">'.
|
|
'<td colspan="7">Total TVA</td>'.
|
|
'<td style="text-align:right;">'.sprintf('%12.2f',$tot_tva)
|
|
."</td>".
|
|
"</tr>";
|
|
if ( $tot_nd !=0 )
|
|
$r.='<tr style="font-size:13px;color:green;">'.
|
|
'<td colspan="7">Total nd </td>'.
|
|
'<td style="font-size:13px;text-align:right;color:green;">'.sprintf('%12.2f',$tot_nd)."</td>".
|
|
"</tr>";
|
|
if ( $tot_tva_nd !=0 )
|
|
$r.='<tr style="font-size:13px;color:green;">'.
|
|
'<td colspan="7">Total tva nd</td>'.
|
|
'<td style="font-size:13px;text-align:right;color:green;">'.sprintf('%12.2f',$tot_tva_nd)."</td>".
|
|
"</tr>";
|
|
if ( $tot_tva_nd_recup !=0 )
|
|
$r.='<tr style="font-size:13px;color:green;">'.
|
|
'<td colspan="7">Total tva nd recup. par impot</td>'.
|
|
'<td style="font-size:13px;text-align:right;color:green;">'.sprintf('%12.2f',$tot_tva_nd_recup)."</td>".
|
|
"</tr>";
|
|
if ( $tot_dep_priv !=0 )
|
|
$r.='<tr style="font-size:13px;color:green;">'.
|
|
'<td colspan="7">Total tva nd recup. par impot</td>'.
|
|
'<td style="font-size:13px;text-align:right;color:green;">'.sprintf('%12.2f',$tot_dep_priv)."</td>".
|
|
"</tr>";
|
|
|
|
$r.='<tr style="font-size:13px;color:green;">'.
|
|
'<td colspan="7">Total </td>'.
|
|
'<td style="font-size:13px;text-align:right;color:green;">'.sprintf('%12.2f',$tot_dep_priv+$tot_amount+$tot_tva+$tot_tva_nd_recup+$tot_nd+$tot_tva_nd)."</td>".
|
|
"</tr>";
|
|
|
|
|
|
|
|
}
|
|
|
|
// for selling ledger
|
|
if ( $content['jrn_def_type'] == 'VEN' )
|
|
{
|
|
echo_debug(__FILE__.":".__LINE__." content['qs_client'] ".$content['qs_client']);
|
|
$client=new fiche($p_cn,$content['qs_client']);
|
|
$r.="Client : ".$client->getName();
|
|
echo_debug(__FILE__,__LINE__,$content);
|
|
|
|
/* now we get the different lines for this operation thanks */
|
|
/* the qs_internal == jr_internal */
|
|
$r.'</table>';
|
|
$r.='<table width="100%">';
|
|
$r.='<tr>';
|
|
$r.='<th>Nom</th>';
|
|
$r.='<th>PU</th>';
|
|
$r.='<th>Quantité</th>';
|
|
if ($own->MY_TVA_USE == 'Y' ) {
|
|
$r.='<th>tva</th>';
|
|
$r.='<th>code tva</th>';
|
|
}
|
|
$r.='<th>prix</th>';
|
|
|
|
$own = new Own($p_cn);
|
|
|
|
$r.='</tr>';
|
|
$object=new gestion_sold($p_cn);
|
|
$object->qs_internal=$internal;
|
|
$array=$object->get_list();
|
|
$tot_tva=0.0;
|
|
$tot_amount=0.0;
|
|
$i=0;
|
|
$i_march=0;
|
|
foreach ($array as $row) {
|
|
$fiche=new fiche($p_cn,$row->qs_fiche);
|
|
$tot_tva+=$row->qs_vat;
|
|
$tot_amount+=$row->qs_price;
|
|
$r.=($i%2==0)?"<tr class=\"odd\">":'<tr>'; $i++;
|
|
$pu=0.0;
|
|
if ( $row->qs_price != 0.0 && $row->qs_price != 0 ) $pu=round($row->qs_price/$row->qs_quantite,2);
|
|
$r.=($i%2==0)?"<tr class=\"odd\">":'<tr>'; $i++;
|
|
$r.='<td> '.$fiche->strAttribut(ATTR_DEF_NAME).'</td>';
|
|
$r.='<td align="right">'.$pu.'</td>';
|
|
$r.='<td align="right">'.$row->qs_quantite.'</td>';
|
|
if ($own->MY_TVA_USE == 'Y' ) {
|
|
$r.='<td align="right">'.$row->qs_vat.'</td>';
|
|
$r.='<td align="center">'.$row->tva_label.'</td>';
|
|
}
|
|
$r.='<td align="right">'.$row->qs_price.'</td>';
|
|
//-- add ca
|
|
//
|
|
|
|
$content['j_poste']=$fiche->strAttribut(ATTR_DEF_ACCOUNT);
|
|
echo_debug(__FILE__.':'.__LINE__,'$content["j_poste"]',$content['j_poste']);
|
|
|
|
// echo "j_poste= ".$content['j_poste'];
|
|
if ( $own->MY_ANALYTIC != "nu" && myereg("^[6,7]+",$content['j_poste']))
|
|
{
|
|
echo_debug(__FILE__.':'.__LINE__,'showUser VEN $content',$content);
|
|
echo_debug(__FILE__.':'.__LINE__,'showUser VEN $row ',$row);
|
|
$r.=display_table_ca($p_cn,$i_march,$row->j_id,$own,$p_mode,round($row->qs_price,2));
|
|
}
|
|
$i_march++;
|
|
|
|
|
|
}
|
|
$r.='</table>';
|
|
$r.='<hr>';
|
|
if ($own->MY_TVA_USE == 'Y' ) {
|
|
$r.='<table>';
|
|
$r.="<tr>".
|
|
"<td>"."</td>".
|
|
"<td>"."</td>".
|
|
"<td>"."</td>".
|
|
"<td>Total HTVA</td>".
|
|
'<td style="text-align:right;font-size:13px;color:green;">'.sprintf('% 12.2f',$tot_amount)."</td>".
|
|
"</tr>";
|
|
$r.="<tr>".
|
|
"<td>"."</td>".
|
|
"<td>"."</td>".
|
|
"<td>"."</td>".
|
|
"<td>Total TVA</td>".
|
|
'<td style="text-align:right;font-size:13px;color:green;">'.sprintf('%12.2f',$tot_tva)
|
|
."</td>".
|
|
"</tr>";
|
|
|
|
$r.="<tr>".
|
|
"<td>"."</td>".
|
|
"<td>"."</td>".
|
|
"<td>"."</td>".
|
|
"<td>Total </td>".
|
|
'<td style="font-size:13px;color:green;">'.sprintf('%12.2f',$tot_amount+$tot_tva)."</td>".
|
|
"</tr>";
|
|
} else {
|
|
$r.='<table>';
|
|
$r.="<tr>".
|
|
"<td>"."</td>".
|
|
"<td>Total </td>".
|
|
'<td style="font-size:13px;color:green;">'.sprintf('%12.2f',$tot_amount+$tot_tva)."</td>".
|
|
"</tr>";
|
|
}
|
|
}
|
|
|
|
$r.="</TABLE>";
|
|
|
|
$file=new IFile();
|
|
$file->table=1;
|
|
//doc
|
|
if ( $p_mode ==1 && $content['jr_pj_name'] != "")
|
|
$r.='<tr><TD>Effacer Pj <INPUT TYPE="CHECKBOX" name="to_remove" ></TD>';
|
|
$r.="<TD>".sprintf('<A class="detail" HREF="show_pj.php?jrn=%s&jr_grpt_id=%s&'.$str_dossier.'">%s</A>',
|
|
$content['jr_id'],
|
|
$content['jr_grpt_id'],
|
|
$content['jr_pj_name'])."</TD>";
|
|
$r.="</TR></TABLE>";
|
|
|
|
/* count the number of additionnal info */
|
|
$acc_jrn_info=new Acc_Ledger_Info($p_cn);
|
|
$acc_jrn_info->set_jrn_id($p_jr_id);
|
|
|
|
/* if additional info > 0 show them */
|
|
if ( $acc_jrn_info->count() > 0 ) {
|
|
$array=$acc_jrn_info->load_all();
|
|
foreach ($array as $row) {
|
|
if ( strpos($row->id_type,'BON_COMMANDE') ===0) {
|
|
$r.="Num bon de commande : ".$row->ji_value.'<br>';
|
|
}
|
|
if ( strpos($row->id_type,'OTHER') ===0) {
|
|
$r.="Autre info : ".$row->ji_value.'<br>';
|
|
}
|
|
|
|
}
|
|
}
|
|
|
|
$r.="<hr>";
|
|
if ( $p_mode == 1 ) {
|
|
$r.='<h2 class="info2">Document</h2>';
|
|
$r.= "<table>";
|
|
|
|
$r.=tr($file->input("pj","","Pièce justificative"));
|
|
$r.="</table>";
|
|
$r.="<hr>";
|
|
|
|
$r.="</table>";
|
|
$r.="Total ".$content['jr_montant']."<br>";
|
|
// show all the related operation
|
|
$rec=new Acc_Reconciliation($p_cn);
|
|
$rec->set_jr_id($content['jr_id']);
|
|
$a=$rec->get();
|
|
|
|
|
|
|
|
if ( $a != null ) {
|
|
$r.="<h2 class=\"info2\">Operation concernée</h2> <br>";
|
|
|
|
$r.= '<div style="margin-left:30px;">';
|
|
foreach ($a as $key => $element) {
|
|
$operation=new Acc_operation($p_cn);
|
|
$operation->jr_id=$element;
|
|
$r.=sprintf ('%s <INPUT TYPE="BUTTON" class="button" VALUE="Détail" onClick="modifyOperation(\'%s\',%d)">',
|
|
$operation->get_internal(),
|
|
$element,
|
|
$gDossier);
|
|
$r.=sprintf('<INPUT TYPE="button" class="button" value="Efface" onClick="dropLink(\'%s\',\'%s\',%d)"><BR>',
|
|
$content['jr_id'],$element,$gDossier);
|
|
}//for
|
|
$r.= "</div>";
|
|
}// if ( $a != null )
|
|
|
|
$search='<INPUT TYPE="BUTTON" class="button" VALUE="Cherche" OnClick="SearchJrn('.$gDossier.",'rapt','".$content['jr_montant']."')\">";
|
|
|
|
$r.= 'Autre rapprochement :
|
|
<INPUT TYPE="TEXT" id="rapt" name="rapt" value="">'.$search;
|
|
} // if p_mode==1
|
|
$r.='<input type="hidden" name="jr_id" value="'.$content['jr_id'].'">';
|
|
// echo $r;
|
|
return $r;
|
|
}
|
|
|
|
|
|
/*!
|
|
* \brief Get data from jrn and jrnx thanks the jr_id
|
|
*
|
|
*
|
|
* \param connection
|
|
* \param p_jr_id (jrn.jr_id)
|
|
*
|
|
*
|
|
* \return array
|
|
*
|
|
*/
|
|
function get_dataJrnJrId ($p_cn,$p_jr_id) {
|
|
|
|
$Res=$p_cn->exec_sql("select
|
|
j_text,
|
|
j_debit,
|
|
j_poste,
|
|
pcm_lib,
|
|
j_montant,
|
|
jr_montant,
|
|
j_id,
|
|
jr_pj_name,
|
|
jr_grpt_id,
|
|
jr_comment,
|
|
to_char(jr_ech,'DD.MM.YYYY') as jr_ech,
|
|
to_char(jr_date,'DD.MM.YYYY') as jr_date,
|
|
jr_id,jr_internal, jr_rapt,jrn_def_type,
|
|
j_qcode,
|
|
jr_pj_number
|
|
from
|
|
jrnx
|
|
inner join jrn on j_grpt=jr_grpt_id
|
|
inner join jrn_def on jrn_def.jrn_def_id=jrn.jr_def_id
|
|
left outer join tmp_pcmn on j_poste=pcm_val
|
|
where
|
|
jr_id=$p_jr_id
|
|
order by j_debit desc,j_id asc");
|
|
$MaxLine=Database::num_row($Res);
|
|
echo_debug('jrn.php',__LINE__,"Found $MaxLine lines");
|
|
if ( $MaxLine == 0 ) return null;
|
|
|
|
for ( $i=0; $i < $MaxLine; $i++) {
|
|
$line=Database::fetch_array($Res,$i);
|
|
$array['j_debit']=$line['j_debit'];
|
|
// is there a name from this j_qcode
|
|
//
|
|
if ( strlen( $line['j_qcode']) != 0 )
|
|
{
|
|
$fiche=new fiche($p_cn);
|
|
$fiche->get_by_qcode($line['j_qcode']);
|
|
|
|
$array['vw_name']=$fiche->getName();
|
|
}
|
|
else
|
|
{
|
|
$array['vw_name']=$line['pcm_lib'];
|
|
}
|
|
$array['j_text']=$line['j_text'];
|
|
$array['jr_comment']=$line['jr_comment'];
|
|
$array['j_montant']=$line['j_montant'];
|
|
$array['jr_id']=$line['jr_id'];
|
|
$array['j_id']=$line['j_id'];
|
|
$array['jr_date']=$line['jr_date'];
|
|
$array['jr_internal']=$line['jr_internal'];
|
|
$array['j_poste']=$line['j_poste'];
|
|
$array['jr_montant']=$line['jr_montant'];
|
|
$array['jr_rapt']=$line['jr_rapt'];
|
|
$array['jrn_def_type']=$line['jrn_def_type'];
|
|
$array['jr_grpt_id']=$line['jr_grpt_id'];
|
|
$array['jr_pj_name']=$line['jr_pj_name'];
|
|
$array['j_qcode']=$line['j_qcode'];
|
|
$array['jr_pj_number']=$line['jr_pj_number'];
|
|
// $array['']=$line[''];
|
|
|
|
$ret_array[$i]=$array;
|
|
}
|
|
return $ret_array;
|
|
}
|
|
/*!
|
|
* \brief Get data from quant_sold or quand_purchase for the user
|
|
* view mode
|
|
*
|
|
*
|
|
* \param connection
|
|
* \param p_jr_id (jrn.jr_id)
|
|
*
|
|
*
|
|
* \return array or null if there is no value
|
|
*
|
|
*/
|
|
function get_dataJrnJrIdUser ($p_cn,$p_jr_id) {
|
|
|
|
echo_debug(__FILE__.":".__LINE__."get_dataJrnJrIdUser");
|
|
|
|
$Res=$p_cn->exec_sql("select ".
|
|
"*,to_char(jr_ech,'DD-MM-YYYY') as ech_fmt".
|
|
" from quant_sold join jrn on (qs_internal=jr_internal) ".
|
|
" join jrn_def on (jr_def_id=jrn_def_id) ".
|
|
" inner join jrnx on (j_grpt=jr_grpt_id )".
|
|
" join tmp_pcmn on (pcm_val=j_poste)".
|
|
" where jr_id=$p_jr_id order by jrnx.j_id");
|
|
|
|
|
|
$MaxLine=Database::num_row($Res);
|
|
echo_debug('jrn.php',__LINE__,"Found $MaxLine lines");
|
|
|
|
|
|
// if no info found in quant_sold try in quant_purchase
|
|
if ( $MaxLine == 0 )
|
|
{
|
|
$Res=$p_cn->exec_sql("select ".
|
|
"*,to_char(jr_ech,'DD-MM-YYYY') as ech_fmt".
|
|
" from quant_purchase join jrn on (qp_internal=jr_internal)".
|
|
" join jrn_def on (jr_def_id=jrn_def_id) ".
|
|
" inner join jrnx on (j_grpt=jr_grpt_id) ".
|
|
" join tmp_pcmn on (pcm_val=j_poste)".
|
|
" where jr_id=$p_jr_id");
|
|
$MaxLine=Database::num_row($Res);
|
|
if ( $MaxLine == 0 ) return null;
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
for ( $i=0; $i < $MaxLine; $i++) {
|
|
$line=Database::fetch_array($Res,$i);
|
|
|
|
|
|
$array['j_debit']=$line['j_debit'];
|
|
// is there a name from this j_qcode
|
|
//
|
|
if ( strlen( $line['j_qcode']) != 0 )
|
|
{
|
|
$fiche=new fiche($p_cn);
|
|
$fiche->get_by_qcode($line['j_qcode']);
|
|
|
|
$array['vw_name']=$fiche->getName();
|
|
}
|
|
else
|
|
{
|
|
$array['vw_name']=$line['pcm_lib'];
|
|
}
|
|
|
|
if ( isset ($line['qs_client']))
|
|
{
|
|
/* It is an invoice */
|
|
$array['qs_client']=$line['qs_client'];
|
|
}
|
|
else
|
|
{
|
|
/* it a purchase */
|
|
$array['qp_supplier']=$line['qp_supplier'];
|
|
|
|
}
|
|
|
|
$array['jr_comment']=$line['jr_comment'];
|
|
$array['j_montant']=$line['j_montant'];
|
|
$array['jr_id']=$line['jr_id'];
|
|
$array['j_id']=$line['j_id'];
|
|
$array['jr_date']=$line['jr_date'];
|
|
$array['jr_internal']=$line['jr_internal'];
|
|
$array['j_poste']=$line['j_poste'];
|
|
$array['jr_montant']=$line['jr_montant'];
|
|
$array['jr_rapt']=$line['jr_rapt'];
|
|
$array['jrn_def_type']=$line['jrn_def_type'];
|
|
$array['jr_grpt_id']=$line['jr_grpt_id'];
|
|
$array['jr_pj_name']=$line['jr_pj_name'];
|
|
$array['jr_pj_number']=$line['jr_pj_number'];
|
|
$array['jrn_ech']=$line['jrn_ech'];
|
|
$array['ech_fmt']=$line['ech_fmt'];
|
|
|
|
// $array['']=$line[''];
|
|
echo_debug(__FILE__.':'.__LINE__," get_dataJrnjrIdUser ",$array);
|
|
$ret_array[$i]=$array;
|
|
}
|
|
return $ret_array;
|
|
}
|
|
/*\brief Display a table with analytic accounting in modify_op.php
|
|
* (detail of operation )
|
|
*\param $p_cn database cnx
|
|
*\param $p_seq sequence (nb item)
|
|
*\param $p_jid the concerned j_id
|
|
*\param $p_own object own
|
|
*\param $p_mode readonly or writable
|
|
*\param $p_amount amount
|
|
*\return string to display
|
|
*/
|
|
function display_table_ca($p_cn,$p_seq,$p_jid,$p_own,$p_mode,$p_amount) {
|
|
echo_debug(__FILE__.':'.__LINE__,'parameter $p_cn,$p_seq,$p_jid,$p_own,$p_mode',"$p_cn,$p_seq,$p_jid,p_own,$p_mode");
|
|
|
|
$op=new Anc_Operation($p_cn);
|
|
$array=$op->get_by_jid($p_jid) ;
|
|
echo_debug(__FILE__.':'.__LINE__,"display_table_ca \$p_jid",$p_jid);
|
|
echo_debug(__FILE__.':'.__LINE__,"display_table_ca \$array",$array);
|
|
if ( $array != null ) {
|
|
$request=$op->to_request($array,$p_seq);
|
|
echo_debug(__FILE__.':'.__LINE__,"request =",$request);
|
|
return "<td>".$op->display_form_plan($request,1,$p_mode,$p_seq,$p_amount)."</td>";
|
|
} else {
|
|
return '<td>'.$op->display_form_plan(null,1,$p_mode,$p_seq,$p_amount)."</TD>";
|
|
}
|
|
return "";
|
|
|
|
}
|
|
?>
|