<?
	/****************************************************************************************
	* Siamo nel caso in cui un fornitore ha delle aziende collegate. Allora in questa pagina 
	* si visualizzano soltanto i totali delle singole aziende e poi il totale finale per 
	* tutto il fornitore	
	************************************************************************************/
  include ("../common/public.php") ;
	print_r($_GET + $_POST) ; // exit ;

	$annoP          = $anno - 1 ;
	$arrNomiAziende = array() ;
	$arrIdAziende   = array() ;
	$arrVal         = array() ;
	$arrTot         = array() ;
	$sQua = $sOrd = $sMed = "+" ;
	$sTQua = $sTOrd = $sTMed = "+" ;
	/*********************************************************************************
	* dall'id del fornitore passato mi ricavo gli id delle aziende a lui collegate
	**********************************************************************************/
	$query = " 
			select 
					Trim(F.Nome) as NomeFornitore,
					A.*
			from 
					fornitori_$anno F
						left join relfornitoriaziende RFA on RFA.idfornitore = F.idfornitori
							left join aziende_$anno A on A.idaziende = RFA.idazienda
			where
					F.idfornitori = $fornitore and
					RFA.Anno      = '$anno'
			order by
					A.Nome
					" ;
	list($n, $d) = $db->RecuperaDati($query) ;

	/***************************************************************
	* Mi salvo alcuni dati che mi servono
	****************************************************************/
	$nomeFornitore  = $d['NomeFornitore'][0] ;
	$arrIdAziende   = $d['IdAziende'] ;
	$arrNomiAziende = $d['Nome'] ;
	
	/***************************************************************
	* Per ogni azienda vado a calcolare il totale per l'anno $anno
	****************************************************************/
	@reset($arrIdAziende) ;
	foreach($arrIdAziende as $idAzienda)
	{
		$qAnno = "
				select
					PP.NomeAzienda,
					sum(PP.Quantita) as QuantitaVend,
					sum(PP.Ordinato) as OrdinatoVend,
					sum(PP.SM) as QuantitaSM,
					sum(PP.OrdinatoSM) as OrdinatoSM,
					sum(PP.Quantita) + sum(PP.SM) as QuantitaTot,
					sum(PP.Ordinato) / (sum(PP.Quantita) + sum(PP.SM)) as PrezzoMedio
				from
				(
				select
					TT.NomeAzienda as NomeAzienda,
					sum(TT.Venduto) as Quantita,
					sum(TT.Ordinato) as Ordinato,
					0 as SM,
					0 as OrdinatoSM
				from

				(select 
					Trim(A.nome) as NomeAzienda,
					(D.NumCartoni * D.ConfezioniDa) as Venduto,
					(D.NumCartoni * D.ConfezioniDa * P.prezzounitario) as Ordinato
				from 
					dettagli_$anno D
						inner join prodotti_$anno P on P.idprodotti = D.idprodotto
							inner join aziende_$anno A on A.idAziende = P.AziendaCollegata 
				where 
					P.AziendaCollegata = $idAzienda) as TT

				group by 
					NomeAzienda,
					SM,
					OrdinatoSM

				union
				select
					TT.NomeAzienda as NomeAzienda,
					0 as Quantita,
					0 as Ordinato,
					sum(TT.Venduto) as SM,
					sum(TT.Ordinato) as OrdinatoSM
				from

				(select 
					Trim(A.nome) as NomeAzienda,
					(D.NumCartoni * D.ConfezioniDa ) as Venduto,
					(D.NumCartoni * D.ConfezioniDa * P.prezzounitario) as Ordinato
				from 
					scontomerce_$anno D
						inner join prodotti_$anno P on P.idprodotti = D.idprodotto
							inner join aziende_$anno A on A.idAziende = P.AziendaCollegata 
				where 
					P.AziendaCollegata = $idAzienda) as TT
				group by 
					NomeAzienda,
					Quantita,
					Ordinato) as PP
				
				group by
					NomeAzienda
					" ;
		debug (0, $qAnno) ;
		list($nAnno, $dAnno) = $db->RecuperaDati($qAnno) ;	
		if ($nAnno > 0)
		{
			// L'array arrNId contiene la corrispondenza fra Nome Azienda e Id per il primo anno scelto

			$arrNId[$dAnno['NomeAzienda'][0]] = $idAzienda ;
			$arrVal[$dAnno['NomeAzienda'][0]][$anno] = array('Ordinato'    => $dAnno['OrdinatoVend'][0],
																											 'PrezzoMedio' => $dAnno['PrezzoMedio'][0],
																											 'Quantita'    => $dAnno['QuantitaTot'][0],
																											 'QuantitaV'   => $dAnno['QuantitaVend'][0]
																											 ) ;
		
			$arrTot[$anno]['Ordinato']    += $dAnno['OrdinatoVend'][0] ;
			$arrTot[$anno]['PrezzoMedio'] += $dAnno['PrezzoMedio'][0] ;
			$arrTot[$anno]['Quantita']    += $dAnno['QuantitaTot'][0] ;
			$arrTot[$anno]['QuantitaV']   += $dAnno['QuantitaVend'][0] ;
		
		}
	}
	
	/****************************************************************************************
	* se esiste la tabella dell'anno precedente, allora mi ricavo i dati dell'anno precedente.
	* In questo caso faccio una ricerca generica e poi in base ai risultati ottenuti, carico
	* i valori trovati nell'array di visualizzazione. Da ricordare che due prodotti vengono 
	* ritenuti uguali se hanno uguale nome e uguale categoria (per consentire la distinzione
	* fra due o più prodotti che hanno o stesso nome ma appartengono a due categoria diverse)
	*****************************************************************************************/
	$table = "ordini_$annoP" ;
	$ret = $db->checkTable($table) ;
	debug (0, "RET = $ret ; $nomeProdotto = $nomeProdotto ; For = $nomeFornitore ; Cat = $categoria") ;
	if ($ret)
	{
		/********************************************************************************************
		* la tabella ordini dell'anno precedente esiste quindi posso fare il confronto.
		* Per il confronto devo controllare il nome del fornitore e i nomi delle eventuali
		* aziende collegate
		********************************************************************************************/
		$query = " 
				select 
						Trim(F.Nome) as NomeFornitore,
						A.*
				from 
						fornitori_$annoP F
							left join relfornitoriaziende RFA on RFA.idfornitore = F.idfornitori
								left join aziende_$annoP A on A.idaziende = RFA.idazienda
				where
						F.Nome   = '$nomeFornitore' and
						RFA.Anno = '$annoP'
				order by
						A.Nome
						" ;
		list($n, $d) = $db->RecuperaDati($query) ;
    // print_r($d) ; exit ;
		$arrNomiAziendeAnnoP = $d['Nome'] ;
		$arrIdAziendeAnnoP   = $d['IdAziende'] ;
		foreach($arrIdAziendeAnnoP as $idAzienda)
		{
			$qAnnoP = "
					select
						PP.NomeAzienda,
						sum(PP.Quantita) as QuantitaVend,
						sum(PP.Ordinato) as OrdinatoVend,
						sum(PP.SM) as QuantitaSM,
						sum(PP.OrdinatoSM) as OrdinatoSM,
						sum(PP.Quantita) + sum(PP.SM) as QuantitaTot,
						sum(PP.Ordinato) / (sum(PP.Quantita) + sum(PP.SM)) as PrezzoMedio
					from
					(
					select
						TT.NomeAzienda as NomeAzienda,
						sum(TT.Venduto) as Quantita,
						sum(TT.Ordinato) as Ordinato,
						0 as SM,
						0 as OrdinatoSM
					from

					(select 
						Trim(A.nome) as NomeAzienda,
						(D.NumCartoni * D.ConfezioniDa) as Venduto,
						(D.NumCartoni * D.ConfezioniDa * P.prezzounitario) as Ordinato
					from 
						dettagli_$annoP D
							inner join prodotti_$annoP P on P.idprodotti = D.idprodotto
								inner join aziende_$annoP A on A.idAziende = P.AziendaCollegata 
					where 
						P.AziendaCollegata = $idAzienda) as TT

					group by 
						NomeAzienda,
						SM,
						OrdinatoSM

					union
					select
						TT.NomeAzienda as NomeAzienda,
						0 as Quantita,
						0 as Ordinato,
						sum(TT.Venduto) as SM,
						sum(TT.Ordinato) as OrdinatoSM
					from

					(select 
						Trim(A.nome) as NomeAzienda,
						(D.NumCartoni * D.ConfezioniDa ) as Venduto,
						(D.NumCartoni * D.ConfezioniDa * P.prezzounitario) as Ordinato
					from 
						scontomerce_$annoP D
							inner join prodotti_$annoP P on P.idprodotti = D.idprodotto
								inner join aziende_$annoP A on A.idAziende = P.AziendaCollegata 
					where 
						P.AziendaCollegata = $idAzienda) as TT
					group by 
						NomeAzienda,
						Quantita,
						Ordinato) as PP
					
					group by
						NomeAzienda
						" ;
      debug (1, $qAnnoP) ;
			list($nAnnoP, $dAnnoP) = $db->RecuperaDati($qAnnoP) ;
      print_r ($dAnnoP) ;
			if ($nAnnoP > 0)
			{
				if (array_key_exists($dAnnoP['NomeAzienda'][0], $arrVal))
				{
					$arrVal[$dAnnoP['NomeAzienda'][0]][$annoP] = array('Ordinato'   => $dAnnoP['OrdinatoVend'][0],
																														'PrezzoMedio' => $dAnnoP['PrezzoMedio'][0],
																														'Quantita'    => $dAnnoP['QuantitaTot'][0],
																											      'QuantitaV'   => $dAnnoP['QuantitaVend'][0]
																														) ;
					$arrTot[$annoP]['Ordinato']    += $dAnnoP['OrdinatoVend'][0] ;
					$arrTot[$annoP]['PrezzoMedio'] += $dAnnoP['PrezzoMedio'][0] ;
					$arrTot[$annoP]['Quantita']    += $dAnnoP['QuantitaTot'][0] ;
					$arrTot[$annoP]['QuantitaV']   += $dAnnoP['QuantitaVend'][0] ;
				}
			}

		}
		
		/*
		print_r($arrNId) ;
		print_r($arrVal) ;

		exit ;
		*/

	}		// Fine if se esiste la tabella degli ordini dell'anno precedente 
  exit ;
	// print_r($arrVal) ; print_r($arrTot) ; exit ;

	$str = "<rows>" ;
	@reset($arrVal) ;
	while(list($nAzienda, $arrAnni) = each($arrVal))
	{
		$idRow = $arrNId[$nAzienda] ;

		$sQua = $sOrd = $sMed = "+" ;
		$qua0 = $qua1 = 0 ;
		if (! array_key_exists($annoP, $arrAnni))
			$bAnnoP = false ;
		else
			$bAnnoP = true ;

		$str .= "<row id='$idRow'>" ;
		$str .= "<cell colspan='6'>" . htmlspecialchars("<b>" . stripslashes($nAzienda) . "</b>") . "</cell><cell/><cell/><cell/><cell/><cell/>" ;
		$str .= "</row>" ;
		
		while (list($an, $arrSingAnno) = each($arrAnni))
		{			
			$pListino = $arrSingAnno['Ordinato'] / $arrSingAnno['QuantitaV'] ;
			$pMedio   = $arrSingAnno['PrezzoMedio'] ;
			
			$incSM = 100 - (($pMedio * 100) / $pListino) ;
			
			if ($an == $anno)
			{
				$qua0 = $arrSingAnno['Quantita'] ;
				$ord0 = $arrSingAnno['Ordinato'] ;
				$pm0  = $pMedio ;
			}
			else
			{
				$qua1 = $arrSingAnno['Quantita'] ;
				$ord1 = $arrSingAnno['Ordinato'] ;
				$pm1  = $pMedio ;
			}
			

			$str .= "<row id='$idRow'>" ;
			$str .= "<cell></cell>" ;
			$str .= "<cell>$an</cell>" ;
			$str .= "<cell>" . nfl($arrSingAnno['Quantita']) . "</cell>" ;
			$str .= "<cell>" . nfe($arrSingAnno['Ordinato']) . "</cell>" ;
			$str .= "<cell>" . nfe($arrSingAnno['PrezzoMedio']) . "</cell>" ;
			$str .= "<cell>" . nfp($incSM) . " %</cell>" ;
			$str .= "</row>" ;
			
			if (! $bAnnoP)
			{
				$qua1 = $ord1 = $pm1 = 0 ;
				
				$str .= "<row id='$idRow'>" ;
				$str .= "<cell></cell>" ;
				$str .= "<cell>$annoP</cell>" ;
				$str .= "<cell>ND</cell>" ;
				$str .= "<cell>ND</cell>" ;
				$str .= "<cell>ND</cell>" ;
				$str .= "<cell>ND</cell>" ;
				$str .= "</row>" ;
			}
		}
		
		if ($qua1 > 0)
		{
			$pQua = (($qua0 - $qua1) * 100) / $qua1 ;
			if ($pQua <= 0)
				$sQua = "" ;
		}
		else
			$pQua = 100 ;

		if ($ord1 > 0)
		{
			$pOrd = (($ord0 - $ord1) * 100) / $ord1 ;
			if ($pOrd <= 0)
				$sOrd = "" ;
		}
		else
			$pOrd = 100 ;

		if ($pm1 > 0)
		{
			$pMed = (($pm0 - $pm1) * 100) / $pm1 ;
			if ($pMed <= 0)
				$sMed = "" ;
		}
		else
			$pMed = 100 ;

		$str .= "<row id='$idRow'>" ;
		$str .= "<cell></cell>" ;
		$str .= "<cell></cell>" ;
		$str .= "<cell>" . $sQua . nfp($pQua) . " %</cell>" ;
		$str .= "<cell>" . $sOrd . nfp($pOrd) . " %</cell>" ;
		$str .= "<cell>" . $sMed . nfp($pMed) . " %</cell>" ;
		$str .= "<cell></cell>" ;
		$str .= "</row>" ;

		$str .= "<row>" ;
		$str .= "<cell>" . htmlspecialchars("<hr color='red' size='1'>") . "</cell>" ;
		$str .= "<cell>" . htmlspecialchars("<hr color='red' size='1'>") . "</cell>" ;
		$str .= "<cell>" . htmlspecialchars("<hr color='red' size='1'>") . "</cell>" ;
		$str .= "<cell>" . htmlspecialchars("<hr color='red' size='1'>") . "</cell>" ;
		$str .= "<cell>" . htmlspecialchars("<hr color='red' size='1'>") . "</cell>" ;
		$str .= "<cell>" . htmlspecialchars("<hr color='red' size='1'>") . "</cell>" ;
		$str .= "</row>" ;
	}

	$str .= "</rows>" ;
	$header  = "NOME AZIENDA,Anno,Quantità,Ordinato,Prezzo Medio,incidenza % SM" ;

 	$footer      = "TOTALI $anno:^#cspan^" . nfl($arrTot[$anno]['Quantita']) . "^" . nfe($arrTot[$anno]['Ordinato']) . "^" . nfe($arrTot[$anno]['PrezzoMedio']) . "^" ;
 	$footer1     = "TOTALI $annoP:^#cspan^" . nfl($arrTot[$annoP]['Quantita']) . "^" . nfe($arrTot[$annoP]['Ordinato']) . "^" . nfe($arrTot[$annoP]['PrezzoMedio']) . "^" ;
 	
	if ($arrTot[$annoP]['Quantita'] > 0)
	{
		$pTQua = (($arrTot[$anno]['Quantita'] - $arrTot[$annoP]['Quantita']) * 100) / $arrTot[$annoP]['Quantita'] ;
		if ($pTQua <= 0)
			$sTQua = "" ;
	}
	else
		$pTQua = 100 ;
	
	if ($arrTot[$annoP]['Ordinato'] > 0)
	{
		$pTOrd = (($arrTot[$anno]['Ordinato'] - $arrTot[$annoP]['Ordinato']) * 100) / $arrTot[$annoP]['Ordinato'] ;
		if ($pTOrd < 0)
			$sTOrd = "" ;
	}
	else
		$pTOrd = 100 ;

	if ($arrTot[$annoP]['PrezzoMedio'] > 0)
	{
		$pTMed = (($arrTot[$anno]['PrezzoMedio'] - $arrTot[$annoP]['PrezzoMedio']) * 100) / $arrTot[$annoP]['PrezzoMedio'] ;
		if ($pTMed < 0)
			$sTMed = "" ;
	}
	else
		$pTMed = 100 ;

	$footer2     = "Differenza %:^#cspan^" . $sTQua . nfp($pTQua) . " %^" . $sTOrd . nfp($pTOrd) . " %^" . $sTMed . nfp($pTMed) . " %^" ;

	$strSort     = "na,na,na,na,na,na" ;
  $iniWP       = "30,10,10,10,10,10" ;
  $setColType  = "ro,ro,ro,ro,ro,ro" ;
  $setColAlign = "right,center,right,right,right,right" ;

	$titolo = "Confronto con periodo precedente il Fornitore: <font class='modclienti'>$nomeFornitore</font>" ;
?>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
 <HEAD>
  <TITLE> New Document </TITLE>
  <META NAME="Generator" CONTENT="EditPlus">
  <META NAME="Author" CONTENT="">
  <META NAME="Keywords" CONTENT="">
  <META NAME="Description" CONTENT="">
 </HEAD>
<link rel="stylesheet" type="text/css" href="../common/mystyle.css" >
<link rel="stylesheet" type="text/css" href="../common/stili.css">
<link rel="stylesheet" type="text/css" href="../common/stilisv.css">
<link rel="stylesheet" type="text/css" href="../common/need_in_Grid.css">

<script language="JavaScript" src="../common/func_javascript.js"></script>
<script  src="../js/dhtmlXCommon.js"></script>
<script  src="../js/dhtmlXGrid.js"></script>  
<script  src="../js/dhtmlXGridCell.js"></script>
<script  src="../js/dhtmlXGridObject.js"></script>  

<script language="JavaScript">
<!--
parent.sei_in.innerHTML = "Sei in: FORNITORI >> Confronta con Anno Precedente" ;

var str = "<? echo $str ?>" ;
var id_azienda = 0 ;

function doOnLoad() 
{
	mygrid = new dhtmlXGridObject('gridbox') ;
	mygrid.selMultiRows = true ;
	mygrid.imgURL = "../imgs/" ;
	mygrid.setHeader("<? echo $header ?>") ;
  mygrid.setInitWidthsP("<? echo $iniWP ?>") ;
	mygrid.setColSorting("<? echo $strSort ?>") ;
	mygrid.setColTypes("<? echo $setColType ?>");
	mygrid.setColAlign("<? echo $setColAlign ?>");
  
  mygrid.setOnRowSelectHandler(doOnRowSelected) ;

	mygrid.enableColumnAutoSize(true) ;
 
	mygrid.setDelimiter("^") ;
  mygrid.attachFooter("<? echo $footer ?>") ;
  mygrid.attachFooter("<? echo $footer1 ?>") ;
  mygrid.attachFooter("<? echo $footer2 ?>") ;
  mygrid.init();
	
	mygrid.loadXMLString(str);

}

function doOnRowSelected(id)
{
  id_azienda = id ;
  return ;
}

function DettagliAzienda()
{
	if (id_azienda == 0)
	{
		alert ('Nessuna Azienda selezionata') ;
		return false ;
	}
	var f=document.forms.dettaglioAzienda ;
	f.idAzienda.value = id_azienda ;
	f.submit() ;
	return true ;

}
function TornaAllaLista()
{
	document.forms.torna_alla_lista.submit() ;
	return true ;
}

function Stampa()
{
	var f=document.forms.stampa ;
	f.submit() ;
	return true ;
}
//-->
</script>
<? if ($nAnno == 0) : ?>
<body  topmargin="0" vlink="#336633" marginheight="0" bgcolor="#FFFFAA" leftmargin="0" link="#006600" marginwidth="0">

<div id="actions">
	<input type="button" class="input" onclick="Stampa()" value="Formato Stampa">
	<input type="button" class="input" onclick="TornaAllaLista()" value="Torna alla Lista">
</div>

<div class="par_space">
	<span class="lbl8l dx_spaz">Non ci sono attualmente prodotti inseriti per questo fornitore</span>
</div>

<? else : ?>

<body  topmargin="0" vlink="#336633" marginheight="0" bgcolor="#FFFFAA" leftmargin="0" link="#006600" marginwidth="0" onload="doOnLoad(); CalcolaAltezzaDiv('gridbox')">

<div id="actions">
	<input type="button" class="input" onclick="DettagliAzienda()" value="Dettagli Azienda">
	<input type="button" class="input" onclick="Stampa()" value="Formato Stampa">
	<input type="button" class="input" onclick="TornaAllaLista()" value="Torna alla Lista">
</div>

<center>
<span align="center" class="newclienti"><? echo $titolo ?>
</center>

<div class="par_space">
	<span class="lbl8l dx_spaz"><I>(Per selezionare una azienda clicca sulla riga corrispondente)</I></span> 
</div>
<? endif ?>

<div id="gridbox"></div>

<form name="torna_alla_lista" method="post" action="./lista_fornitori.php" style="display: none;">
  <input type="hidden" name="cur_id" value="<? echo $fornitore ?>">
</form>

<FORM METHOD=POST ACTION="./confrontaAP_aziendeCollegate_stampa.php" name="stampa" target="_blank">
	<INPUT TYPE="hidden" NAME="fornitore"  value="<? echo $fornitore ?>">	
</form>

<FORM METHOD=POST ACTION="./confrontaAP_dettaglioazienda.php" name="dettaglioAzienda" style="display: none;">
	<INPUT TYPE="hidden" NAME="idAzienda"  value="">	
</form>

</BODY>
</HTML>