verso il Cliente $nome_cliente" ; } else { $titolo = "Confronto Anno ". sprintf("%s", ($anno - 1)) . " - Anno $anno
verso il Cliente $nome_cliente" ; } } /***************************************************************************** * Devo calcolare qui quanti sono ifornitori ******************************************************************************/ for ($an = ($anno - 1) ; $an <= $anno; $an ++) { /************************************** * Mi ricavo gli id di tutti i fornitori ***************************************/ $db->query(" select F.* from fornitori F where $where_for order by nome ") ; while ($db->next_record()) $fn[$db->f('IdFornitori')] = $db->f('Nome') ; } asort($fn) ; /********************************************************************************************* * cerco di eseguire la query una sola volta e di ricavarmi tutti i valori che mi servono * A questo punto ho gią l'array dei fornitori *********************************************************************************************/ unset($valori) ; for ($an = ($anno - 1) ; $an <= $anno; $an ++) { $dataordine = MySqlDate("$gime/$an") ; $dbt = new FC_SQL ; $dbord = new FC_SQL ; @reset($fn) ; foreach($fn as $id_fn => $nome_fn) { $valori[$nome_fn]['ID_FOR'] = $id_fn ; $valori[$nome_fn]['NUMORD'][$an] = 0 ; $valori[$nome_fn]['VENDUTO'][$an] = 0 ; $valori[$nome_fn]['FATT'][$an] = 0 ; $totforn = 0 ; $totfatt = 0 ; $qord = " select O.*, (TO_DAYS('$dataordine') - TO_DAYS(O.DataSpedFattura)) as DIFFGG from ordini O where O.Anno = $an and O.idfornitore = $id_fn and O.dataordine <= '$dataordine' and $where_cli " ; debug (0, $qord) ; $dbord->query($qord) ; while ($dbord->next_record()) { $valori[$nome_fn]['NUMORD'][$an] += 1 ; $totordine = 0 ; $impfatt = $dbord->f("ImportoFattura") ; $datasf = $dbord->f("DataSpedFattura") ; $diffgg = $dbord->f("DIFFGG") ; $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 ($id_fn != $idsarzi) $query = " select * from dettagli D, prodotti P where P.Anno = $an and D.Anno = $an and D.idordine = $idordine and P.idprodotti = D.idprodotto " ; else $query = "select * from dettagli_$an, sarzi_$an where dettagli_$an.idordine = $idordine and dettagli_$an.idprodotto = CONCAT('SA', idprodotti)" ; debug (0, $query) ; $dbt->query($query) ; while ($dbt->next_record()) { if ($dbt->f('PrezzoForzato') > 0) $prezzoDaConsiderare = $dbt->f('PrezzoForzato') ; else $prezzoDaConsiderare = $dbt->f('PrezzoUnitario') ; $impparz = $dbt->f("NumCartoni") * $dbt->f("ConfezioniDa") * $prezzoDaConsiderare ; 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; $sconto = $sconto1 + $sconto2 ; $totordine = $totordine - $sconto - $valNC; $totforn += $totordine ; if ($impfatt > 0 and $diffgg >= 0 and $datasf != "0000-00-00") $totfatt += $totordine ; } $valori[$nome_fn]['VENDUTO'][$an] += $totforn ; if ($totfatt > 0) $valori[$nome_fn]['FATT'][$an] += $totfatt ; } } @reset($fn) ; $annop = ($anno - 1) ; $arrParGen = array() ; $arrParGen = RecuperaParametriGenerali($arrParGen, $tparametri) ; $nome = $arrParGen['NomeAgenzia'] ; $sede = "Sede operativa: " . $arrParGen['IndirizzoAgenzia'] ; $datisede = "Telefono: " . $arrParGen['TelefonoAgenzia'] . " Fax: " . $arrParGen['FaxAgenzia'] . " -- P.I. " . $arrParGen['PartitaIvaAgenzia'] ; $emailsede = "Email: " . $arrParGen['MailAgenzia'] ; ?> <? echo TITLE ?>



$arr_valori) { $id_for = $arr_valori['ID_FOR'] ; $annop = $anno - 1 ; $diffno = ($arr_valori['NUMORD'][$anno] - $arr_valori['NUMORD'][$annop]) ; if ($diffno != 0 and $arr_valori['NUMORD'][$annop] != 0) $diffnoper = @nfp(($diffno / $arr_valori['NUMORD'][$annop]) * 100) ; else $diffnoper = @nfp(0) ; $diffve = ($arr_valori['VENDUTO'][$anno] - $arr_valori['VENDUTO'][$annop]) ; if ($diffve != 0 and $arr_valori['VENDUTO'][$annop] != 0) $diffveper = @nfp(($diffve / $arr_valori['VENDUTO'][$annop]) * 100) ; else $diffveper = @nfp(0) ; $difffa = ($arr_valori['FATT'][$anno] - $arr_valori['FATT'][$annop]) ; if ($difffa != 0 and $arr_valori['FATT'][$annop] != 0) $difffaper = @nfp(($difffa / $arr_valori['FATT'][$annop]) * 100) ; else $difffaper = @nfp(0) ; if ($diffno < 0) $classno = "meno" ; elseif ($diffno > 0) { $classno = "piu" ; if ($diffnoper == 0) $diffnoper = "100,00" ; } else $classno = "" ; if ($diffve < 0) $classve = "meno" ; elseif ($diffve > 0) { $classve = "piu" ; if ($diffveper == 0) $diffveper = "100,00" ; } else $classve = "" ; if ($difffa < 0 ) $classfa = "meno" ; elseif ($difffa > 0) { $classfa = "piu" ; if ($difffaper == 0) $difffaper = "100,00" ; } else $classfa = "" ; if ($arr_valori['NUMORD'][$annop] > 0 or $arr_valori['NUMORD'][$anno] > 0) { ?>
al
Fornitore:
Numero Ordini Venduto Fatturato
Differenza Differenza Differenza
($diffnoper%)" ?> (" . nfp($diffveper) . "%)" ?> (" . nfp($difffaper) . "%)" ?>