" ;
/***
* mi ricavo l'agente (eventualmente tutti) e il fornitore (eventualmente tutti) interessati
***/
list($idAgente, $nomeAgente) = explode("^", $agente) ;
list($idFornitore, $nomeFornitore) = explode("^", $fornitore) ;
$dataordine = MySqlDate("$gime/$annoInEsame") ;
if ($idFornitore == 0)
{
$wFor = " 1" ;
$tFor = "
verso Tutti i clienti" ;
}
else
{
$wFor = " F.idFornitore = $idFornitore" ;
$tFor .= "
verso il Fornitore $nomeFornitore" ;
}
$query = "
select
*,
F.Provvigione as ProvvigioneAgenzia,
A.Nome as NomeAgente,
F.Nome as NomeFornitore,
C.Nome as NomeCliente
from
agenti A
inner join ordini O on O.IdAgente = A.IdAgenti and
O.Anno = $annoInEsame
inner join pagamenti P on P.idpagamenti = O.idpagamento
inner join fornitori F on F.idfornitori = O.idfornitore
inner join clienti C on C.idclienti = O.idcliente
where
O.dataordine <= '$dataordine' and
A.idagenti = $idAgente and
$wFor
order by
O.dataordine
" ;
debug (0, $query) ;
list($n, $d) = $db->RecuperaDati($query) ;
for ($i=0; $i<$n; $i++)
{
$nome = $d['NomeAgente'][$i] ;
$titolo = "Lista ordini per l'Agente: $nome" ;
$titolo .= "
verso il Fornitore $nomeFornitore" ;
$titolo .= " al " . ItaDate($dataordine) . "";
$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
P.Anno = $annoInEsame and
D.Anno = $annoInEsame and
D.idordine = $idordine and
P.idprodotti = D.idprodotto" ;
else
$qdett = "
select
*
from
dettagli_$annoInEsame D,
sarzi_$annoInEsame P
where
D.idordine = $idordine and
D.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 ;
$nord = $idordine ;
$nfatt = $numfatt ;
$fornitore = htmlspecialchars($d['NomeFornitore'][$i]) ;
$cliente = htmlspecialchars($d['NomeCliente'][$i]) ;
$data_ordine = ItaDate($d['DataOrdine'][$i]) ;
$importo = nfe($importo) ;
$perc_provv = nfp($d['ProvvigioneAgenzia'][$i]) ;
$imp_provv = nfe($importoprov) ;
if ($profilo > 1)
$str .= "| $nord | $nfatt | $fornitore | $cliente | $data_ordine | $importo |
" ;
else
$str .= "| $nord | $nfatt | $fornitore | $cliente | $data_ordine | $importo | $perc_provv | $imp_provv |
" ;
}
}
$str .= "" ;
if ($profilo > 1)
{
$header = "N.ORD,N.FATT,FORNITORE,CLIENTE,DATA ORDINE,IMPORTO" ;
$footer_ven = "TOTALE VENDUTO:-#cspan-#cspan-#cspan-#cspan-" . nfe($totale) ;
$footer_fatt = "TOTALE FATTURATO:-#cspan-#cspan-#cspan-#cspan-" . nfe($totalefatt) ;
}
else
{
$header = "N.ORD,N.FATT,FORNITORE,CLIENTE,DATA ORDINE,IMPORTO,% PROV,IMPORTO PROV" ;
$footer_ven = "TOTALE VENDUTO:-#cspan-#cspan-#cspan-#cspan-" . nfe($totale) . "--" . nfe($totaleprov) ;
$footer_fatt = "TOTALE FATTURATO:-#cspan-#cspan-#cspan-#cspan-" . nfe($totalefatt) . "--" . nfe($totaleprovfatt) ;
}
$strSort = "int,int,str,str,date,euro,int,euro" ;
$iniWP = "6,6,20,20,12,10,10,12" ;
$setColType = "ro,ro,ro,ro,ro,ro,ro,ro" ;
$setColAlign = "center,center,left,left,center,center,center,right" ;
?>
<? echo TITLE ?>