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 = nfp($dord['ImportoFattura'][0]) ;
$numero_nc = $dord['NumNC'][0] ;
$data_nc = ItaDate($dord['DataNC'][0]) ;
$importo_nc = nfp($dord['ImportoNC'][0]) ;
$banca = $dord['BancaOrdini'][0] ;
$numero_assegna = $dord['NumAssegno'][0] ;
$importo_assegno = nfp($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
P.Anno = $anno and
D.Anno = $anno and
IdOrdine = $id and
IdProdotto = IdProdotti and
P.idivaprd = I.idiva
order by
P.nome
" ;
else
$qdett = "
select
*
from
dettagli_$an D,
sarzi_$an S,
iva_$an I
where
IdOrdine = $id and
IdProdotto = CONCAT('SA',IdProdotti) and
S.idivaprd = I.idiva
order by
S.nome
" ;
debug (0, $qdett) ;
list($ndett,$ddett) = $dbtmp->RecuperaDati($qdett) ;
$subsconti = 0 ;
$subtot = 0 ;
$subtotiva = 0 ;
$nettoMerce = 0 ;
$totTassaAlcol = 0 ;
for($j=0; $j<$ndett; $j++)
{
$accisa = $ddett['Accisa'][$j] ;
$totAccisa = $ddett['NumCartoni'][$j] * $ddett['ConfezioniDa'][$j] * $accisa ;
$prezzoForzato = $ddett['PrezzoForzato'][$j] ;
$prezzoUnitario = $ddett['PrezzoUnitario'][$j] ;
$totTassaAlcol += $totAccisa ;
$id_prodotto = $ddett['IdProdotto'][$j] ;
if ($ddett['ScontoPrd'][$j] != "")
$sconto_prd = $ddett['ScontoPrd'][$j] . " %" ;
else
$sconto_prd = "" ;
if ($prezzoForzato != '' && $prezzoForzato != '0.00')
$totp = $ddett['NumCartoni'][$j] * $ddett['ConfezioniDa'][$j] * $prezzoForzato ;
else
$totp = $ddett['NumCartoni'][$j] * $ddett['ConfezioniDa'][$j] * $prezzoUnitario ;
/*****************************************************************************************************************************
* 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 ;
$nettoMerce += $totp ;
/****************************************************************************
* Considero l'eventuale accisa
****************************************************************************/
if ($prezzoForzato != '' && $prezzoForzato != '0.00')
$prezzoNetto = ($prezzoForzato + $accisa) ;
else
$prezzoNetto = ($prezzoUnitario + $accisa) ;
$totp += $totAccisa ;
$impprod = $totp - $sconti ;
$totiva = ($impprod * $ddett['Aliquota'][$j] / 100) ;
$subsconti += $sconti ;
$subtot += $totp ;
$subtotiva += $totiva ;
$totp_vis = nfp($totp) ;
$str .= "" ;
if ($ddett['CodiceProdotto'][$j] != "")
$str .= "| " . $ddett['CodiceProdotto'][$j] . " - " . htmlspecialchars($ddett['Nome'][$j]) ." | ";
else
$str .= "" . htmlspecialchars($ddett['Nome'][$j]) ." | ";
$str .= "" . $ddett['Annata'][$j] ." | ";
$str .= "" . $ddett['NumCartoni'][$j] ." | ";
$str .= "" . $ddett['ConfezioniDa'][$j] ." | ";
$str .= "" . $sconto_prd ." | ";
$str .= "" . nfp($prezzoNetto) ." | ";
$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,
iva I
where
P.Anno = $an and
SM.Anno = $an and
IdOrdine = $id and
IdProdotto = IdProdotti and
P.idivaprd = I.idiva
order by
P.nome
" ;
else
$qmerce = "
select
*
from
scontomerce_$an SM,
sarzi_$an S
where
IdOrdine = $id and
IdProdotto = CONCAT('SA',IdProdotti)
order by
S.nome
" ;
list($nmerce, $dmerce) = $dbmerce->RecuperaDati($qmerce) ;
if ($nmerce > 0)
{
for ($x=0; $x<$nmerce; $x++)
{
$accisa = $dmerce['Accisa'][$x] ;
if ($accisa != 0)
{
/***********************************************************
* vuol dire che questo prodotto č in sconto merce perņ
* in ogni caso paga la tassa
***********************************************************/
$sm = "Sconto Merce*" ;
$tassaAlcol = $dmerce['NumCartoni'][$x] * $dmerce['ConfezioniDa'][$x] * $accisa ;
$totTassaAlcol += $tassaAlcol ;
$tassaAlcolVis = "(accisa) " . nfp($tassaAlcol) ;
$totiva = ($tassaAlcol * $dmerce['Aliquota'][$x] / 100) ;
$subtot += $tassaAlcol ;
$subtotiva += $totiva ;
}
else
{
$tassaAlcolVis = "" ;
$sm = "Sconto Merce" ;
}
$id_prodotto = $dmerce['IdProdotto'][$x] . "_sm" ;
$str .= "" ;
if ($dmerce['CodiceProdotto'][$x] != "")
$str .= "| " . $dmerce['CodiceProdotto'][$x] . " - " . htmlspecialchars($dmerce['Nome'][$x]) ." | ";
else
$str .= "" . htmlspecialchars($dmerce['Nome'][$x]) ." | ";
$str .= "" . $dmerce['Annata'][$x] ." | ";
$str .= "" . $dmerce['NumCartoni'][$x] ." | ";
$str .= "" . $dmerce['ConfezioniDa'][$x] ." | ";
$str .= "" . $sm ." | ";
$str .= " | ";
$str .= "$tassaAlcolVis | ";
$str .= "
" ;
}
}
}
$str .= "" ;
$header = "Prodotto,Annata,N.Cart,Conf Da,Sconto Prd,Prezzo Netto,Totale Parziale" ;
$footer_1 = "Netto Merce:^" . nfp($nettoMerce) . "^" . "Accisa:^" . nfp($totTassaAlcol) . "^Totale Imponibile:^#cspan^" . nfp($subtot) ;
$footer_2 = "Ammontare Sconti:^#cspan^#cspan^#cspan^#cspan^#cspan^" . nfp($subsconti) ;
$footer_3 = "SubTotale - Sconti:^#cspan^#cspan^#cspan^#cspan^#cspan^" . nfp($subtot - $subsconti) ;
$footer_4 = "IVA:^#cspan^#cspan^#cspan^#cspan^#cspan^" . nfp($subtotiva) ;
$footer_5 = "TOTALE FATTURA:^#cspan^#cspan^#cspan^#cspan^#cspan^" . nfp(($subtot - $subsconti) + $subtotiva) ;
$strSort = "str,int,int,int,str,euro,euro" ;
$iniWP = "40,6,10,10,10,10,13" ;
$setColType = "ro,ro,ro,ro,ro,ro,ro" ;
$setColAlign = "left,center,center,center,center,center,right" ;
?>
<? echo TITLE ?>