$IdProvvigione" ;
debug (0, $titolo) ;
$str = "" ;
$qSel = "
select
R.*
from
relProvvigioneOrdini R
where
R.IdProvvigione like '$IdProvvigione'
order by
R.AnnoOrdine, R.IdOrdine
" ;
debug (1, $qSel) ;
list($nSel, $dSel) = $db->RecuperaDati($qSel) ;
debug (1, "NumOrdine = $nSel") ;
print_r($dSel) ; // exit ;
for ($j=0; $j<$nSel; $j++)
{
/******************************************************
* per ogni ordine collegato, mi vado a
* recuperare i dati dell'ordine, in base
* anche all'anno riferito nel record
* in quanto ci possono essere fatture provvigionale
* che riferiscono ordine dell'anno prima
******************************************************/
$idOrdine = $dSel['IDORDINE'][$j] ;
$annoOrdine = $dSel['ANNOORDINE'][$j] ;
debug (1, "TABELLA ORDINI = $tOrdini -- $idOrdine") ;
$qOrd = "
select
*,
F.provvigione as ProvvigioneAgenzia,
C.Nome as NomeCliente,
F.Nome as NomeFornitore
from
Ordini O,
Pagamenti P,
Clienti C,
Fornitori F
where
O.Anno = $annoOrdine and
O.IdOrdini = $idOrdine and
O.IdCliente = C.IdClienti and
O.IdFornitore = F.IdFornitori and
O.IdPagamento = P.IdPagamenti" ;
debug (1, $qOrd) ;
$dbO = new FC_SQL ;
$dbt = new FC_SQL ;
list($n, $d) = $dbO->RecuperaDati($qOrd) ;
// print_r($d) ;
for ($i=0; $i<$n; $i++)
{
$idordine = $d['IdOrdini'][$i] ;
$numfattura = $d['NumFattura'][$i] ;
$importoNC = $d['ImportoNC'][$i] ;
if ($importoNC > 0)
$valNC = ($importoNC / 1.2) ;
else
$valNC = 0 ;
if ($fornitore == $idsarzi)
$dbt->query("select * from $tDettagli, $tSarzi where $tDettagli.idordine = $idordine and $tDettagli.idprodotto = CONCAT('SA',idprodotti)") ;
else
{
$qq = "
select
*
from
Dettagli D,
Prodotti P
where
P.Anno = $annoOrdine and
D.Anno = $annoOrdine and
D.idordine = $idordine and
P.idprodotti = D.idprodotto
" ;
debug (1, $qq) ;
$dbt->query($qq) ;
}
$importo = 0 ;
while ($dbt->next_record())
{
/***************************************************************
* 9.5.2012: controllo se il prodotto ha un prezzo forzato
***************************************************************/
if ($dbt->f("PrezzoForzato") > 0.00)
$prezzoProdotto = $dbt->f("PrezzoForzato") ;
else
$prezzoProdotto = $dbt->f("PrezzoUnitario") ;
debug (0, "ID ORDINE = " . $idordine . " ; PREZZO UNITARIO = " . $dbt->f("PrezzoUnitario") . " ; PREZZO FORZATO = " . $dbt->f("PrezzoForzato")) ;
$impparz = $dbt->f("NumCartoni") * $dbt->f("ConfezioniDa") * $prezzoProdotto ;
if ($dbt->f("ScontoPrd") != "" )
$impparz = CalcolaScontoProdotto($impparz, $dbt->f("ScontoPrd")) ;
$importo += $impparz ;
}
$sconto1 = ($importo * $d['Sconto1'][$i] / 100) ;
$subimporto1 = $importo - $sconto1 ;
$sconto2 = ($subimporto1 * $d['Sconto2'][$i] / 100) ;
$sconti = $sconto1 + $sconto2 ;
$importo = $importo - $sconti - $valNC;
$importoprov = ($importo * $d['ProvvigioneAgenzia'][$i] / 100) ;
$totale += $importo ;
$totaleprov += $importoprov ;
$str .= "" ;
$str .= "| $idordine | " ;
$str .= "$numfattura/$annoOrdine | " ;
$str .= "" . SiNo($d['SaldoFattura'][$i]) . " | " ;
$str .= "" . htmlspecialchars($d['NomeCliente'][$i]) . " | " ;
$str .= "" . ItaDate($d['DataSpedFattura'][$i]) . " | " ;
$str .= "" . nfp($importo) . " | " ;
$str .= "" . nfp($d['ProvvigioneAgenzia'][$i]) . " | " ;
$str .= "" . nfp($importoprov) . " | " ;
$str .= "
" ;
}
}
$str .= "" ;
$header = "N. ORD,N. FATT,FATT SALD?,CLIENTE,DATA FATT.,IMPONIBILE,% PROVV,PROVV" ;
$footer = "TOTALE:-#cspan-#cspan-#cspan-#cspan-" . nfe($totale) . "--" . nfe($totaleprov) ;
$strSort = "int,int,str,str,date,euro,int,euro" ;
$iniWP = "6,7,10,35,10,10,10,10" ;
$setColType = "ro,ro,ro,ro,ro,ro,ro,ro" ;
$setColAlign = "center,center,center,left,center,right,center,right" ;
?>
<? echo TITLE ?>
Numero Ordini: