 |
2002)
{
?>
query($query) ;
$i = 0 ;
while ($db->next_record())
{
$tot = $db->f("tot") ;
$nordini[] = $tot ;
${"tot_$an"} = $tot ;
${"wid_$an"} = ($tot * 748) / 4000 ;
}
}
$diff = $nordini[1] - $nordini[0] ;
if ($diff == 0)
$diff_per = 0 ;
elseif ($nordini[0] > 0)
$diff_per = ($diff / $nordini[0]) * 100 ;
else
$diff_per = 100 ;
debug (0, "nordini[0] = $nordini[0] -- nordii[1] = $nordini[1]") ;
$bgcolor_0 = "red" ;
$bgcolor_1 = "red" ;
/**************************************************************
* casi particolari in cui uno o entrambi i valori sono a zero
**************************************************************/
if ($nordini[0] == 0 and $nordini[1] == 0)
{
$wid_0 = 1 ;
$wid_1 = 1 ;
$bgcolor_0 = "" ;
$bgcolor_1 = "" ;
}
elseif ($nordini[0] == 0 and $nordini[1] > 0)
{
$wid_0 = 1 ;
$bgcolor_0 = "" ;
}
elseif ($nordini[0] > 0 and $nordini[1] == 0)
{
$wid_1 = 1 ;
$bgcolor_1 = "" ;
}
else
{
$massimo = max ($nordini[0], $nordini[1]) ;
if ($massimo == $nordini[0])
{
$wid_0 = 80 ;
$wid_1 = ((100/$nordini[0]) * $nordini[1]) - 20 ;
}
else
{
$wid_0 = ((100/$nordini[1]) * $nordini[0]) - 20 ;
$wid_1 = 80 ;
}
}
?>
query("select * from fornitori_$an order by Nome") ;
while ($db->next_record())
{
$totfornitori ++ ;
$totforn = 0 ;
$totproforn = 0 ;
$nomefornitore = $db->f("Nome") ;
$idfor = $db->f("IdFornitori") ;
$provvigione = $db->f("Provvigione") ;
$qord = "
select
*
from
ordini_$an
where
idfornitore = $idfor and
dataordine <= '$dataordine' and
idagente = $id_agente and
idcliente = $id_cliente
" ;
debug (0, $qord) ;
$dbord->query($qord) ;
while ($dbord->next_record())
{
$totordine = 0 ;
$sco1 = $dbord->f("Sconto1") ;
$sco2 = $dbord->f("Sconto2") ;
$sco3 = $dbord->f("Sconto3") ;
$idordine = $dbord->f("IdOrdini") ;
$importoNC = $dbord->f("ImportoNC") ;
if ($importoNC > 0)
$valNC = ($importoNC / 1.2) ;
else
$valNC = 0 ;
if ($idfor != $idsarzi)
$query = "select * from dettagli_$an, prodotti_$an where dettagli_$an.idordine = $idordine and prodotti_$an.idprodotti = dettagli_$an.idprodotto " ;
else
$query = "select * from dettagli_$an, sarzi_$an where dettagli_$an.idordine = $idordine and dettagli_$an.idprodotto = CONCAT('SA', idprodotti)" ;
$dbt->query($query) ;
while ($dbt->next_record())
{
$impparz = $dbt->f("NumCartoni") * $dbt->f("ConfezioniDa") * $dbt->f("PrezzoUnitario") ;
if ($dbt->f("ScontoPrd") != "")
$impparz = CalcolaScontoProdotto($impparz, $dbt->f("ScontoPrd")) ;
$totordine += $impparz ;
}
$sconto1 = ($totordine * $sco1 / 100) ;
$ammpro1 = $totordine - $sconto1 ;
$sconto2 = ($ammpro1 * $sco2 / 100) ;
$ammpro2 = $ammpro1 - $sconto2 - $valNC;
/***********************************************************
* Calcolo a questo punto l'ammontare delle provvigioni per
* questo ordine dopo aver sottratto dall'imponibile gli
* eventuali 2 sconti forniti dal fornitore e l'eventuale
* ammontare della nota di credito. Idem per il
* fatturato
*************************************************************/
$totproordine = ($ammpro2 * $provvigione / 100) ;
$sconto = $sconto1 + $sconto2 ;
$totordine = $totordine - $sconto - $valNC;
$totforn += $totordine ;
$totproforn += $totproordine ;
debug (0, "ORDINE = $idordine -- TOTORDINE = $totordine") ;
}
$gtotal_tmp += $totforn ;
$wid = ($gtotal_tmp * 748) / 4000000 ;
$i ++ ;
}
$gtotal[] = $gtotal_tmp ;
}
$diff = $gtotal[1] - $gtotal[0] ;
if ($diff == 0)
$diff_per = 0 ;
elseif ($gtotal[0] > 0)
$diff_per = ($diff / $gtotal[0]) * 100 ;
else
$diff_per = 100 ;
$bgcolor_0 = "red" ;
$bgcolor_1 = "red" ;
/**************************************************************
* casi particolari in cui uno o entrambi i valori sono a zero
**************************************************************/
if ($gtotal[0] == 0 and $gtotal[1] == 0)
{
$wid_0 = 1 ;
$wid_1 = 1 ;
$bgcolor_0 = "" ;
$bgcolor_1 = "" ;
}
elseif ($gtotal[0] == 0 and $gtotal[1] > 0)
{
$wid_0 = 1 ;
$bgcolor_0 = "" ;
}
elseif ($gtotal[0] > 0 and $gtotal[1] == 0)
{
$wid_1 = 1 ;
$bgcolor_1 = "" ;
}
else
{
$massimo = max ($gtotal[0], $gtotal[1]) ;
if ($massimo == $gtotal[0])
{
$wid_0 = 80 ;
$wid_1 = ((100/$gtotal[0]) * $gtotal[1]) - 20 ;
}
else
{
$wid_0 = ((100/$gtotal[1]) * $gtotal[0]) - 20 ;
$wid_1 = 80 ;
}
}
?>
query("select * from fornitori_$an order by Nome") ;
while ($db->next_record())
{
$totfornitori ++ ;
$totforn = 0 ;
$totproforn = 0 ;
$nomefornitore = $db->f("Nome") ;
$idfor = $db->f("IdFornitori") ;
$provvigione = $db->f("Provvigione") ;
$qord = "
select
*
from
ordini_$an
where
idfornitore = $idfor and
ordini_$an.importofattura > 0 and
dataspedfattura <= '$dataordine' and
idagente = $id_agente and
idcliente = $id_cliente
" ;
debug (0, $qord) ;
$dbord->query($qord) ;
while ($dbord->next_record())
{
$totordine = 0 ;
$sco1 = $dbord->f("Sconto1") ;
$sco2 = $dbord->f("Sconto2") ;
$sco3 = $dbord->f("Sconto3") ;
$idordine = $dbord->f("IdOrdini") ;
$importoNC = $dbord->f("ImportoNC") ;
if ($importoNC > 0)
$valNC = ($importoNC / 1.2) ;
else
$valNC = 0 ;
if ($idfor != $idsarzi)
$query = "select * from dettagli_$an, prodotti_$an where dettagli_$an.idordine = $idordine and prodotti_$an.idprodotti = dettagli_$an.idprodotto " ;
else
$query = "select * from dettagli_$an, sarzi_$an where dettagli_$an.idordine = $idordine and dettagli_$an.idprodotto = CONCAT('SA', idprodotti)" ;
$dbt->query($query) ;
while ($dbt->next_record())
{
$impparz = $dbt->f("NumCartoni") * $dbt->f("ConfezioniDa") * $dbt->f("PrezzoUnitario") ;
if ($dbt->f("ScontoPrd") != "")
$impparz = CalcolaScontoProdotto($impparz, $dbt->f("ScontoPrd")) ;
$totordine += $impparz ;
}
$sconto1 = ($totordine * $sco1 / 100) ;
$ammpro1 = $totordine - $sconto1 ;
$sconto2 = ($ammpro1 * $sco2 / 100) ;
$ammpro2 = $ammpro1 - $sconto2 - $valNC;
/***********************************************************
* Calcolo a questo punto l'ammontare delle provvigioni per
* questo ordine dopo aver sottratto dall'imponibile gli
* eventuali 2 sconti forniti dal fornitore e l'eventuale
* ammontare della nota di credito. Idem per il
* fatturato
*************************************************************/
$totproordine = ($ammpro2 * $provvigione / 100) ;
$sconto = $sconto1 + $sconto2 ;
$totordine = $totordine - $sconto - $valNC;
$totforn += $totordine ;
$totproforn += $totproordine ;
debug (0, "ORDINE = $idordine -- TOTORDINE = $totordine") ;
}
$gtotalf_tmp += $totforn ;
$wid = ($gtotalf_tmp * 748) / 2000000 ;
$i ++ ;
}
$gtotalf[] = $gtotalf_tmp ;
debug (0, "ANNO = $an -- GTOTAL = $gtotal") ;
}
$diff = $gtotalf[1] - $gtotalf[0] ;
if ($diff == 0)
$diff_per = 0 ;
elseif ($gtotalf[0] > 0)
$diff_per = ($diff / $gtotalf[0]) * 100 ;
else
$diff_per = 100 ;
$bgcolor_0 = "red" ;
$bgcolor_1 = "red" ;
/**************************************************************
* casi particolari in cui uno o entrambi i valori sono a zero
**************************************************************/
if ($gtotalf[0] == 0 and $gtotalf[1] == 0)
{
$wid_0 = 1 ;
$wid_1 = 1 ;
$bgcolor_0 = "" ;
$bgcolor_1 = "" ;
}
elseif ($gtotalf[0] == 0 and $gtotalf[1] > 0)
{
$wid_0 = 1 ;
$bgcolor_0 = "" ;
}
elseif ($gtotalf[0] > 0 and $gtotalf[1] == 0)
{
$wid_1 = 1 ;
$bgcolor_1 = "" ;
}
else
{
$massimo = max ($gtotalf[0], $gtotalf[1]) ;
if ($massimo == $gtotalf[0])
{
$wid_0 = 80 ;
$wid_1 = ((100/$gtotalf[0]) * $gtotalf[1]) - 20 ;
}
else
{
$wid_0 = ((100/$gtotalf[1]) * $gtotalf[0]) - 20 ;
$wid_1 = 80 ;
}
}
?>
Il confronto fra due anni puņ essere effettuato solo a partire dal 2003.
|
|