/*
* 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
/* function ViewStock ($p_cn)
**************************************************
* Purpose : show the listing of all goods
*
* parm :
* - database connection
* gen :
* -
* return: string containing the table
*/
function ViewStock($p_cn,$p_year) {
// build sql
$sql=" select e.sg_code,sum(deb_sum) as deb_sum,sum(cred_sum) as cred_sum
from ( select C.sg_code,sum(deb) as deb_sum,sum(cred) as cred_sum
from stock_goods
join jrnx using (j_id)
join
( select sg_code,j_id,
case when sg_type='d' then sg_quantity else 0 end as deb,
case when sg_type='c' then sg_quantity else 0 end as cred
from stock_goods
where sg_code is not null
and sg_code != 'null'
) as C on (C.j_id=jrnx.j_id)
where
( to_char(j_date,'YYYY') = '$p_year'
or to_char(sg_date,'YYYY') = '$p_year'
)
group by c.sg_code
union
select D.sg_code,sum(deb) as deb_sum,sum(cred) as cred_sum
from stock_goods
left outer join
( select sg_code,j_id,
case when sg_type='d' then sg_quantity else 0 end as deb,
case when sg_type='c' then sg_quantity else 0 end as cred
from stock_goods
where f_id=0
) as D using (sg_code)
where
to_char(sg_date,'YYYY') = '2003'
group by d.sg_code ) as E
group by e.sg_code
";
// send the sql
$Res=ExecSql($p_cn,$sql);
if ( ( $M = pg_NumRows($Res)) == 0 ) return null;
// store it in a HTLM table
$result="
";
$result.="
";
$result.='
Code
';
$result.='
Noms
';
$result.='
Entrée
';
$result.='
Sortie
';
$result.='
Solde
';
$result.="
";
// Sql result => table
for ($i = 0; $i < $M ; $i++ ) {
$r=pg_fetch_array($Res,$i);
$result.="
";
return $result;
}
/* function getFicheNameCode ($p_cn,$p_sg_code)
************************************************************
* Purpose : return an array of f_id and f_name
*
* parm :
* - p_cn database connection
* - stock_goods.sg_code
* gen :
* - none
* return:
* - array (f_id, f_label) or null if nothing is found
*/
function getFicheNameCode ($p_cn,$p_sg_code) {
// Sql stmt
$sql="select 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;
}
/* function ViewDetailStock($cn,$sg_code,$year)
**************************************************
* Purpose :
*
* parm :
* - cn database connection
* - sg_code
* - year
* gen :
* -
* return: HTML code
*/
function ViewDetailStock($p_cn,$p_sg_code,$p_year) {
$sql="select sg_code,
j_montant,
j_date,
sg_quantity,
sg_type,
jr_comment,
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 (
to_char(sg_date,'YYYY') = '$p_year'
or to_char(j_date,'YYYY') = '$p_year'
)
order by stock_date
" ;
// $r.=sprintf('',
// $row['jr_id'],$l_sessid,$row['jr_internal']);
// 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.=JS_VIEW_JRN_DETAIL;
$r.='
'.$p_sg_code." Noms : ".$name.'
';
$Res=ExecSql($p_cn,$sql);
if ( ($M=pg_NumRows($Res)) == 0 ) return "no rows";
$r.="