299 lines
7.5 KiB
PHP
299 lines
7.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
|
|
*/
|
|
/* $Revision$ */
|
|
// Copyright Author Dany De Bontridder ddebontridder@yahoo.fr
|
|
/*! \file
|
|
* \brief Function for managing the stock
|
|
*/
|
|
|
|
|
|
/*!
|
|
**************************************************
|
|
* \brief show the listing of all goods
|
|
*
|
|
*
|
|
*\param $cn database connection
|
|
* \param $p_year exercice
|
|
* -
|
|
* \return string containing the table
|
|
*/
|
|
function ViewStock($p_cn,$p_year) {
|
|
// build sql -- get the different merchandise sold or bought
|
|
// during the p_year
|
|
$sql=" select distinct sg_code
|
|
from stock_goods
|
|
left outer join jrnx on (stock_goods.j_id=jrnx.j_id)
|
|
right outer join parm_periode on (parm_periode.p_id=jrnx.j_tech_per)
|
|
where
|
|
p_exercice= '$p_year'
|
|
and sg_code is not null and sg_code != '' and sg_code!='null'";
|
|
|
|
|
|
// send the sql
|
|
$Res=ExecSql($p_cn,$sql);
|
|
|
|
|
|
if ( ( $M = pg_NumRows($Res)) == 0 ) return null;
|
|
// store it in a HTLM table
|
|
$result='<table style="width:100%;border:solid blue 2px ;border-style:outset;">';
|
|
$result.="<tr>";
|
|
$result.='<th>Code</th>';
|
|
$result.='<th>Noms</th>';
|
|
$result.='<th>Entrée</th>';
|
|
$result.='<th>Sortie</th>';
|
|
$result.='<th>Solde</th>';
|
|
$result.="</tr>";
|
|
|
|
// Sql result => table
|
|
for ($i = 0; $i < $M ; $i++ ) {
|
|
$r=pg_fetch_array($Res,$i);
|
|
$result.="<TR>";
|
|
|
|
// sg_code and link to details
|
|
$result.="<td>".'<a class="one"
|
|
HREF="?p_action=stock&action=detail&sg_code='.$r['sg_code'].'&year='.$p_year.'">'.
|
|
$r['sg_code']."</A></td>";
|
|
|
|
// name
|
|
$a_name=getFicheNameCode($p_cn,$r['sg_code']);
|
|
$name="";
|
|
if ( $a_name != null ) {
|
|
foreach ($a_name as $key=>$element) {
|
|
$name.=$element['av_text'].",";
|
|
}
|
|
}// if ( $a_name
|
|
$result.="<td> $name </td>";
|
|
|
|
// Debit (in)
|
|
$deb=GetQuantity($p_cn,$r['sg_code'],$p_year,'d');
|
|
$result.="<td>".$deb."</td>";
|
|
|
|
// Credit (out)
|
|
$cred=GetQuantity($p_cn,$r['sg_code'],$p_year,'c');
|
|
$result.="<td>".$cred."</td>";
|
|
|
|
|
|
// diff
|
|
$diff=$deb-$cred;
|
|
$result.="<td>".$diff."</td>";
|
|
$result.="</tr>";
|
|
|
|
}
|
|
$result.="</table>";
|
|
|
|
return $result;
|
|
}
|
|
/*!
|
|
************************************************************
|
|
* \brief return an array of f_id and f_name
|
|
*
|
|
*
|
|
* \param $p_cn database connection
|
|
* \param _sg_code stock_goods.sg_code
|
|
* \return
|
|
* - array (f_id, f_label) or null if nothing is found
|
|
*/
|
|
function getFicheNameCode ($p_cn,$p_sg_code) {
|
|
// Sql stmt
|
|
$sql="select distinct f_id,av_text
|
|
from stock_goods
|
|
join jnt_fic_att_value using (f_id )
|
|
join attr_value using (jft_id)
|
|
where
|
|
ad_id=".ATTR_DEF_NAME."
|
|
and sg_code='$p_sg_code'
|
|
";
|
|
// Execute
|
|
$Res=ExecSql($p_cn,$sql);
|
|
if ( ( $M=pg_NumRows($Res)) == 0 ) return null;
|
|
|
|
// Store in an array
|
|
for ( $i=0; $i<$M;$i++) {
|
|
$r=pg_fetch_array($Res,$i);
|
|
$a['f_id']=$r['f_id'];
|
|
$a['av_text']=$r['av_text'];
|
|
$result[$i]=$a;
|
|
|
|
}
|
|
|
|
return $result;
|
|
|
|
}
|
|
/*!
|
|
**************************************************
|
|
* \brief View the details of a stock
|
|
*
|
|
*
|
|
*\param $p_cn database connection
|
|
* \param$p_sg_code
|
|
* \param $p_year
|
|
* \return HTML code
|
|
*/
|
|
function ViewDetailStock($p_cn,$p_sg_code,$p_year) {
|
|
$sql="select sg_code,
|
|
j_montant,
|
|
coalesce(j_date,sg_date) as j_date,
|
|
sg_quantity,
|
|
sg_type,
|
|
jr_id,
|
|
coalesce(jr_comment,sg_comment) as comment,
|
|
coalesce(jr_internal,'Changement manuel') as jr_internal,
|
|
jr_id,
|
|
case when sg_date is not null then sg_date else j_date end as stock_date
|
|
from stock_goods
|
|
left outer join jrnx using (j_id)
|
|
left outer join jrn on jr_grpt_id=j_grpt
|
|
where
|
|
sg_code='$p_sg_code' and (
|
|
sg_exercice = '$p_year'
|
|
or j_tech_per in (select p_id from parm_periode where p_exercice='$p_year')
|
|
)
|
|
order by stock_date
|
|
" ;
|
|
// name
|
|
|
|
|
|
$r="";
|
|
$a_name=getFicheNameCode($p_cn,$p_sg_code);
|
|
$name="";
|
|
if ( $a_name != null ) {
|
|
foreach ($a_name as $key=>$element) {
|
|
$name.=$element['av_text'].",";
|
|
}
|
|
}// if ( $a_name
|
|
// Add java script for detail
|
|
|
|
|
|
$r.='<H2 class="info">'.$p_sg_code." Noms : ".$name.'</H2>';
|
|
|
|
$Res=ExecSql($p_cn,$sql);
|
|
if ( ($M=pg_NumRows($Res)) == 0 ) return "no rows";
|
|
$r.='<table style="width:100%;border:solid blue 2px ;border-style:outset;">';
|
|
$r.="<TR>";
|
|
$r.="<th>Date </th>";
|
|
$r.="<th>Entrée / Sortie </th>";
|
|
$r.="<th>Description</th>";
|
|
$r.="<th>Opération</th>";
|
|
$r.="<th>Montant</th>";
|
|
$r.="<th>Quantité</th>";
|
|
$r.="<th>Prix/Cout Unitaire</th>";
|
|
$r.="</TR>";
|
|
// compute sessid
|
|
$l_sessid=$_REQUEST['PHPSESSID'];
|
|
|
|
for ( $i=0; $i < $M;$i++) {
|
|
$l=pg_fetch_array($Res,$i);
|
|
$r.="<tR>";
|
|
|
|
// date
|
|
$r.="<TD>";
|
|
$r.=$l['j_date'];
|
|
$r.="</TD>";
|
|
|
|
//type (deb = out cred=in)
|
|
$r.="<TD>";
|
|
$r.=($l['sg_type']=='c')?'OUT':'IN';
|
|
$r.="</TD>";
|
|
|
|
|
|
// comment
|
|
$r.="<TD>";
|
|
$r.=$l['comment'];
|
|
$r.="</TD>";
|
|
|
|
// jr_internal
|
|
$r.="<TD>";
|
|
if ( $l['jr_id'] != "")
|
|
$r.= "<A class=\"detail\" HREF=\"javascript:modifyOperation('".$l['jr_id']."','".$_REQUEST['PHPSESSID']."')\" > ".$l['jr_internal']."</A>";
|
|
else
|
|
$r.=$l['jr_internal'];
|
|
|
|
$r.="</TD>";
|
|
|
|
|
|
|
|
//amount
|
|
$r.='<TD align="right">';
|
|
$r.=$l['j_montant'];
|
|
$r.="</TD>";
|
|
//quantity
|
|
$r.='<TD align="right">';
|
|
$r.=$l['sg_quantity'];
|
|
$r.="</TD>";
|
|
|
|
// Unit Price
|
|
$r.='<TD align="right">';
|
|
$up="";
|
|
if ( $l['sg_quantity'] != 0 )
|
|
$up=round($l['j_montant']/$l['sg_quantity'],4);
|
|
$r.=sprintf("%.4f",$up);
|
|
$r.="</TD>";
|
|
|
|
$r.="</TR>";
|
|
}// for ($i
|
|
$r.="</table>";
|
|
|
|
|
|
|
|
return $r;
|
|
|
|
}
|
|
/*!
|
|
**************************************************
|
|
* \brief
|
|
*
|
|
* parm :
|
|
* -
|
|
* gen :
|
|
* -
|
|
* return:
|
|
*/
|
|
function ChangeStock($p_sg_code,$p_year){
|
|
$sg_date=date("d.m.Y");
|
|
$r='
|
|
<input type="text" name="stock_change" value="0">
|
|
<input type="hidden" name="sg_code" value="'.$p_sg_code.'">
|
|
<input type="text" name="comment" value="">
|
|
<input type="text" name="sg_date" value="'.$sg_date.'">
|
|
<input type="hidden" name="year" value="'.$p_year.'">
|
|
<br>
|
|
';
|
|
return $r;
|
|
|
|
}
|
|
/*!
|
|
* \brief return the quantity of a sg_code for the period
|
|
*
|
|
* \return number or NULL
|
|
*/
|
|
function GetQuantity($p_cn,$p_sg_code,$p_year,$p_type) {
|
|
$sql="select sum(sg_quantity) as result
|
|
from stock_goods
|
|
left join jrnx on (stock_goods.j_id=jrnx.j_id)
|
|
left join parm_periode on (parm_periode.p_id=jrnx.j_tech_per)
|
|
where
|
|
sg_code='$p_sg_code' and
|
|
(p_exercice = '$p_year' or to_char(sg_date::timestamp,'YYYY')='$p_year') and
|
|
sg_type='$p_type'";
|
|
$Res=ExecSql($p_cn,$sql);
|
|
if ( pg_NumRows($Res)== 0) return null;
|
|
$value=pg_fetch_array($Res,0);
|
|
return $value['result'];
|
|
|
|
}
|