RecuperaDati($qiva) ;
$alitmp = $diva['Aliquota'][0] ;
$ali = "1.$alitmp" ;
debug (0, "ALI = $ali") ;
$q = "
SELECT
$an as Anno,
SUM(O.ImportoFattura)/ $ali as ImpFatt
FROM
$tabOrd O
inner join Dali2022Test.fornitori F on F.idfornitori = O.idfornitore
where
F.idfornitori = $fornitore
" ;
debug (0, $q) ;
list($n, $d) = $db->RecuperaDati($q) ;
$arrVal[$d['Anno'][0]] = $d['ImpFatt'][0] ;
}
$q = "
SELECT
O.Anno as Anno,
Sum(O.ImportoFattura) / 1.22 as ImpFatt,
F.Nome as NomeFornitore
FROM
ordini O
inner join Fornitori F on F.idfornitori = O.idfornitore
WHERE
IdFornitore = $fornitore
group by O.Anno
order by O.Anno ASC
" ;
list($n, $d) = $db->RecuperaDati($q) ;
for ($i=0; $i<$n; $i++)
{
$nomeFor = $d['NomeFornitore'][$i] ;
$arrVal[$d['Anno'][$i]] = $d['ImpFatt'][$i] ;
}
/************************************
* Mi calcolo le eventali percentuali
*************************************/
$ii = 0 ;
foreach ($arrVal as $Anno => $fattAnno)
{
if ($ii == 0)
{
$arrPerc[$Anno] = "" ;
$ii ++ ;
}
else
{
$aa = $Anno - 1 ;
if ($arrVal[$aa] != 0.00 && $arrVal[$Anno] != 0.00)
{
$diffFatt = $arrVal[$Anno] - $arrVal[$aa] ;
if ($arrVal[$Anno] > 0)
$arrPerc[$Anno] = nfp(($diffFatt / $arrVal[$Anno]) * 100) ;
else
$arrPerc[$Anno] = nfp(-100) ;
}
else if ($arrVal[$aa] > 0 && $arrVal[$Anno] == 0)
{
$arrPerc[$Anno] = nfp(-100) ;
}
else
$arrPerc[$Anno] = "" ;
}
}
//print_r($arrPerc) ;
// exit ;
?>
New Document
Storico Fatturato per il Fornitore
Dati calcolati in base al valore inserito nel campo Importo Fattura dei dati dell'ordine
| |
ANNO
-differenza % con anno precedente- |
|
| \n" ;
for ($aa=$annoIn; $aa<=$anno; $aa++)
{
if (($aa <= $anno) && ($nAn < 10))
{
$diffPerc = 0 ;
if (array_key_exists($aa, $arrVal))
$fatt = nfp($arrVal[$aa]) ;
else
$fatt = " " ;
if ($arrPerc[$aa] != "")
$fattPerc = "(" . $arrPerc[$aa] . "%)" ;
else
$fattPerc = " " ;
if ($arrPerc[$aa] >= 0)
$col = "green" ;
else
$col = "red" ;
echo "
| \n" ;
$annIn ++ ;
$nAn ++ ;
}
else
{
debug (0, "QQ = $aa ; $nAn") ;
if ($nAn == 10)
{
echo " | \n" ;
echo "\n
| | \n
\n" ;
echo "\n" ;
echo "
| \n" ;
$nAn = 0 ;
$aa -- ;
}
else
{
$nAn = 11 ;
$aa = $anno + 1 ;
$na = 4 ;
}
}
if ($aa == $anno)
{
debug (0, "PP = $aa") ;
$na = 4 ;
}
}
}
?>