815846dada
========================= Add the CA in MISC, it must be tested, normally it is supposed to work even they are several boxes opened
821 lines
24 KiB
PHP
821 lines
24 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 deprecated_ShowOperationExpert($p_cn,$p_jr_id,$p_mode=1)
|
|
{
|
|
|
|
// 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 ;
|
|
}
|
|
// 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">%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 deprecated_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);
|
|
|
|
// 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>";
|
|
|
|
// for others lines
|
|
$own=new Own($p_cn);
|
|
// for purchase ledger
|
|
if ( $content['jrn_def_type'] == 'ACH' )
|
|
{
|
|
$r.='</table>';
|
|
$r.='<table width="100%">';
|
|
$client=new fiche($p_cn,$content['qp_supplier']);
|
|
$r.="Client : ".$client->getName();
|
|
|
|
/* 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' )
|
|
{
|
|
$client=new fiche($p_cn,$content['qs_client']);
|
|
$r.="Client : ".$client->getName();
|
|
|
|
/* 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 "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($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 deprecated_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);
|
|
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 deprecated_get_dataJrnJrIdUser ($p_cn,$p_jr_id) {
|
|
|
|
|
|
$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);
|
|
|
|
|
|
// 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[''];
|
|
$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 deprecated_display_table_ca($p_cn,$p_seq,$p_jid,$p_own,$p_mode,$p_amount) {
|
|
|
|
$op=new Anc_Operation($p_cn);
|
|
$array=$op->get_by_jid($p_jid) ;
|
|
if ( $array != null ) {
|
|
$request=$op->to_request($array,$p_seq);
|
|
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 "";
|
|
|
|
}
|
|
?>
|