0)
$joinFornitore = " and O.IdFornitore = $idFornitore" ;
$orderByCol = "" ;
if ($dirToSort == "ASC")
$orderByDir = SORT_ASC ;
else
$orderByDir = SORT_DESC ;
$dbt = new FC_SQL ;
$totale = 0 ;
$totaleprov = 0 ;
$arrVal = array() ;
$query = "
select
*,
F.provvigione as ProvvigioneAgenzia,
C.Nome as NomeCliente,
F.Nome as NomeFornitore
from
ordini O
inner join clienti C on C.idclienti = O.idcliente
and C.idClienti = $idCliente
inner join pagamenti P on P.idpagamenti = O.idpagamento
inner join fornitori F on F.idfornitori = O.idfornitore
$joinFornitore
where
O.Anno = $anno
order by
O.IdOrdini
" ;
debug (0, $query) ;
list($n, $d) = $db->RecuperaDati($query) ;
for ($i=0; $i<$n; $i++)
{
$nomeCliente = $d['NomeCliente'][$i] ;
$nomeFornitore = $d['NomeFornitore'][$i] ;
$titolo = "Totale Venduto / Fatturato per il Cliente $nomeCliente" ;
if ($idFornitore > 0)
$titolo .= "
verso il Fornitore $nomeFornitore" ;
$idordine = $d['IdOrdini'][$i] ;
$numfatt = $d['NumFattura'][$i] ;
$importofattura = $d['ImportoFattura'][$i] ;
$importoNC = $d['ImportoNC'][$i] ;
if ($idordine > 0)
{
if ($importoNC > 0)
$valNC = ($importoNC / 1.2) ;
else
$valNC = 0 ;
if ($d['IdFornitori'][$i] != $idsarzi)
$qdett = "select
*
from
dettagli D,
prodotti P
where
D.Anno = $anno and
D.idordine = $idordine and
P.idprodotti = D.idprodotto" ;
else
$qdett = "select
*
from dettagli D, $tsarzi where $tdettagli.idordine = $idordine and $tdettagli.idprodotto = CONCAT('SA',idprodotti)" ;
$dbt->query($qdett) ;
$importo = 0 ;
while ($dbt->next_record())
{
$impparz = $dbt->f("NumCartoni") * $dbt->f("ConfezioniDa") * $dbt->f("PrezzoUnitario") ;
if ($dbt->f("ScontoPrd") != "")
$impparz = CalcolaScontoProdotto($impparz, $dbt->f("ScontoPrd")) ;
$importo += $impparz ;
}
$sconto1 = ($importo * $d['Sconto1'][$i] / 100) ;
$importo1 = $importo - $sconto1 ;
$sconto2 = ($importo1 * $d['Sconto2'][$i] / 100) ;
$importo2 = $importo1 - $sconto2 - $valNC ;
/*************************************************************
* L'importo della provvigione va calcolato a questo punto,
* non considerando lo sconto pagamento. Idem per il fatturato
**************************************************************/
$importoprov = ($importo2 * $d['ProvvigioneAgenzia'][$i] / 100) ;
$sconti = $sconto1 + $sconto2 ;
$importo = $importo - $sconti - $valNC;
if ($importofattura > 0)
{
$totalefatt += $importo ;
$totaleprovfatt += $importoprov ;
}
$totale += $importo ;
$totaleprov += $importoprov ;
$arrVal[$idordine] = array( 'NumeroFattura' => $d['NumFattura'][$i],
'Fornitore' => $d['NomeFornitore'][$i],
'DataOrdine' => $d['DataOrdine'][$i],
'Importo' => $importo,
'PercProvv' => $d['ProvvigioneAgenzia'][$i],
'ImpProvv' => $importoprov
) ;
}
}
foreach($arrVal as $idOrdine => $arrSingoloOrdine)
// while (list($idOrdine, $arrSingoloOrdine) = each($arrVal))
{
$arrNO[] = $idOrdine ;
$arrNF[] = $arrSingoloOrdine['NumeroFattura'] ;
$arrFO[] = $arrSingoloOrdine['Fornitore'] ;
$arrDO[] = $arrSingoloOrdine['DataOrdine'] ;
$arrIO[] = $arrSingoloOrdine['Importo'] ;
$arrPP[] = $arrSingoloOrdine['PercProvv'] ;
$arrIP[] = $arrSingoloOrdine['ImpProvv'] ;
}
switch($colToSort)
{
case 0: // Numero Ordine
array_multisort($arrNO, $orderByDir, $arrNF, $arrFO, $arrDO, $arrIO, $arrPP, $arrIP) ;
break ;
case 1: // Numero Fattura
array_multisort($arrNF, $orderByDir, $arrNO, $arrFO, $arrDO, $arrIO, $arrPP, $arrIP) ;
break ;
case 2: // Fornitore
array_multisort($arrFO, $orderByDir, $arrNO, $arrNF, $arrDO, $arrIO, $arrPP, $arrIP) ;
break ;
case 3: // Data Ordine
array_multisort($arrDO, $orderByDir, $arrNO, $arrNF, $arrFO , $arrIO, $arrPP, $arrIP) ;
break ;
case 4: // Importo
array_multisort($arrIO, $orderByDir, $arrNO, $arrNF, $arrFO , $arrDO, $arrPP, $arrIP) ;
break ;
case 5: // % Provvigionale
array_multisort($arrPP, $orderByDir, $arrNO, $arrNF, $arrFO , $arrDO, $arrIO, $arrIP) ;
break ;
case 6: // Importo Provvigione
array_multisort($arrIP, $orderByDir, $arrNO, $arrNF, $arrFO , $arrDO, $arrIO, $arrPP) ;
break ;
}
$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 ?>
|
| al |
| N.Ord. |
N.Fatt |
Fornitore |
Data Ordine |
Importo |
% Provv |
Imp.Provv |
|
|
|
|
|
|
|
|
| Totale Venduto |
|
|
|
| Totale Fatturato |
|
|
|
| Totale Venduto |
|
| Totale Fatturato |
|
