RecuperaDati($qord) ;
if ($nord > 0)
{
$idfornitore = $dord['IdFornitori'][0] ;
$cliente = $dord['NomeCliente'][0] ;
$tipologia = $dord['Tipologia'][0] ;
$agente = $dord['NomeAgente'][0] ;
$fornitore = $dord['NomeFornitore'][0] ;
$data_ordine = ItaDate($dord['DataOrdine'][0]) ;
$data_richiesta = ItaDate($dord['DataRichiesta'][0]) ;
$data_spedizione = ItaDate($dord['DataSpedizione'][0]) ;
$numero_fattura = $dord['NumFattura'][0] ;
$data_spedizione_fattura = ItaDate($dord['DataSpedFattura'][0]) ;
$importo_fattura = nfe($dord['ImportoFattura'][0]) ;
$numero_nc = $dord['NumNC'][0] ;
$data_nc = ItaDate($dord['DataNC'][0]) ;
$importo_nc = nfe($dord['ImportoNC'][0]) ;
$banca = $dord['BancaOrdini'][0] ;
$numero_assegna = $dord['NumAssegno'][0] ;
$importo_assegno = nfe($dord['ImpAssegno'][0]) ;
$assegno_spedito = ($dord['DaSpedire'][0] ? 'No' : 'Si') ;
$data_invio_assegno = ItaDate($dord['DataInvAss'][0]) ;
$fattura_saldata = SiNo($dord['SaldoFattura'][0]) ;
$saldo_provvigione = SiNo($dord['SaldoProvvigione'][0]) ;
$saldo_provvigione_agente = SiNo($dord['SaldoProvvigioneAgente'][0]) ;
$modalita_pagamento = $dord['ModalitaPagamenti'][0] ;
$epoca_consegna = $dord['EpocaDiConsegna'][0] ;
$ordina_da_inviare = SiNo($dord['DaInviare'][0]) ;
$sconto_1 = nfp($dord['Sconto1'][0]) ;
$sconto_2 = nfp($dord['Sconto2'][0]) ;
$sconto_3 = nfp($dord['Sconto3'][0]) ;
$note = stripslashes($dord['NoteOrdini'][0]) ;
$str = "" ;
$dbtmp = new FC_SQL ;
if ($idfornitore != $idsarzi)
$qdett = "
select
*
from
dettagli D,
prodotti P,
iva I
where
Anno = $annop and
IdOrdine = $id and
IdProdotto = IdProdotti and
P.idivaprd = I.idiva
order by
P.nome
" ;
else
$qdett = "
select
*
from
dettagli_$annop D,
sarzi_$annop S,
iva_$annop I
where
IdOrdine = $id and
IdProdotto = CONCAT('SA',IdProdotti) and
S.idivaprd = I.idiva
order by
S.nome
" ;
list($ndett,$ddett) = $dbtmp->RecuperaDati($qdett) ;
$subsconti = 0 ;
$subtot = 0 ;
$subtotiva = 0 ;
for($j=0; $j<$ndett; $j++)
{
$id_prodotto = $ddett['IdProdotto'][$j] ;
if ($ddett['ScontoPrd'][$j] != "")
$sconto_prd = $ddett['ScontoPrd'][$j] . " %" ;
else
$sconto_prd = "" ;
$totp = $ddett['NumCartoni'][$j] * $ddett['ConfezioniDa'][$j] * $ddett['PrezzoUnitario'][$j] ;
/*****************************************************************************************************************************
* Su questo totale devo andare a considerare se applicare o meno degli sconti in base ai valori di sconto (1, 2 e 3) presenti
* nell'ordine.
*****************************************************************************************************************************/
/*******************************************************************
* Nuovo modo di calocolare lo sconto sul singolo prodotto
*******************************************************************/
if ($sconto_prd != "" )
$totp = CalcolaScontoProdotto($totp, $sconto_prd) ;
$sconto1 = ($totp * $dord['Sconto1'][0] / 100) ;
$subtotp1 = $totp - $sconto1 ;
$sconto2 = ($subtotp1 * $dord['Sconto2'][0] / 100) ;
$subtotp2 = $subtotp1 - $sconto2 ;
$sconto3 = ($subtotp2 * $dord['Sconto3'][0] / 100) ;
$subtotp3 = $subtotp2 - $sconto3 ;
$sconti = $sconto1 + $sconto2 + $sconto3 ;
$impprod = $totp - $sconti ;
$totiva = ($impprod * $ddett['Aliquota'][$j] / 100) ;
$subsconti += $sconti ;
$subtot += $totp ;
$subtotiva += $totiva ;
$totp_vis = nfe($totp) ;
$str .= "" ;
$str .= "| " . htmlspecialchars($ddett['Nome'][$j]) ." | ";
$str .= "" . $ddett['Annata'][$j] ." | ";
$str .= "" . $ddett['NumCartoni'][$j] ." | ";
$str .= "" . $ddett['ConfezioniDa'][$j] ." | ";
$str .= "" . $sconto_prd ." | ";
$str .= "" . $ddett['PrezzoUnitario'][$j] ." | ";
$str .= "" . $totp_vis ." | ";
$str .= "
" ;
}
/**********************************************
* controllo se ci sono prodotti in sconto merce
**********************************************/
$dbmerce = new FC_SQL ;
if ($idfornitore != $idsarzi)
$qmerce = "
select
*
from
scontomerce SM,
prodotti P
where
Anno = $annop and
IdOrdine = $id and
IdProdotto = IdProdotti
order by
P.nome
" ;
else
$qmerce = "
select
*
from
scontomerce_$annop SM,
sarzi_$annop S
where
IdOrdine = $id and
IdProdotto = CONCAT('SA',IdProdotti)
order by
S.nome
" ;
debug (0, $qmerce) ;
list($nmerce, $dmerce) = $dbmerce->RecuperaDati($qmerce) ;
if ($nmerce > 0)
{
for ($x=0; $x<$nmerce; $x++)
{
$id_prodotto = $dmerce['IdProdotto'][$x] . "_sm" ;
$str .= "" ;
$str .= "| " . htmlspecialchars($dmerce['Nome'][$x]) ." | ";
$str .= "" . $dmerce['Annata'][$x] ." | ";
$str .= "" . $dmerce['NumCartoni'][$x] ." | ";
$str .= "" . $dmerce['ConfezioniDa'][$x] ." | ";
$str .= "" . "Sconto Merce" ." | ";
$str .= " | ";
$str .= " | ";
$str .= "
" ;
}
}
}
$str .= "" ;
$header = "Prodotto,Annata,N.Cart,Conf Da,Sconto Prd,Pre. Uni.,Totale Parziale" ;
$footer_1 = "SubTotale Ordine:^#cspan^#cspan^#cspan^#cspan^#cspan^" . nfe($subtot) ;
$footer_2 = "Ammontare Sconti:^#cspan^#cspan^#cspan^#cspan^#cspan^" . nfe($subsconti) ;
$footer_3 = "SubTotale - Sconti:^#cspan^#cspan^#cspan^#cspan^#cspan^" . nfe($subtot - $subsconti) ;
$footer_4 = "IVA:^#cspan^#cspan^#cspan^#cspan^#cspan^" . nfe($subtotiva) ;
$footer_5 = "TOTALE FATTURA:^#cspan^#cspan^#cspan^#cspan^#cspan^" . nfe(($subtot - $subsconti) + $subtotiva) ;
$strSort = "str,int,int,int,str,euro,euro" ;
$iniWP = "30,10,10,10,10,10,10" ;
$setColType = "ro,ro,ro,ro,ro,ro,ro" ;
$setColAlign = "center,center,center,center,center,center,right" ;
?>
<? echo TITLE ?>