<?
	/******************************************************************************************************************
	* confronto il venduto dell'azienda (collegata ad un fornitore) calcolando il prezzo medio con l'anno precedente:
	* Nella variabile $idAzienda ho l'id dell'azienda secondo l'anno in corso
	******************************************************************************************************************/
  include ("../common/public.php") ;
	// print_r($_GET + $_POST) ; // exit ;

	$nomemese = Array("", "Gennaio", "Febbraio", "Marzo", "Aprile", "Maggio", "Giugno", "Luglio", "Agosto", "Settembre", "Ottobre", "Novembre", "Dicembre") ;
  list($giorno, $mese) = split("/", $gime) ;
  $mesevis = $nomemese[ltrim($mese,"0")] ;

  $annoP = $anno - 1 ;
	$arrVal = array() ;
	$arrTot = array() ;
	$sQua = $sOrd = $sMed = "+" ;
	/****************************************************************************
	* dall'id del'azienda passato mi ricavo i dati per l'anno in corso
	*****************************************************************************/
	$dataOrdine = MySqlDate("$gime/$anno") ;
  $qAnno = "
			select
				PP.NomeAzienda,
				PP.NomeProdotto,
				PP.Categoria,
				sum(PP.Venduto) as Venduto,
				sum(PP.SM)      as ScontoMerce,
				PP.PrezzoUnitario
			from
			(
			select
				TT.NomeAzienda    as NomeAzienda,
				TT.NomeProdotto   as NomeProdotto,
				TT.Categoria      as Categoria,
				sum(TT.Venduto)   as Venduto,
				0                 as SM,
				TT.PrezzoUnitario as PrezzoUnitario
			from

			(select 
				Trim(A.nome)                    as NomeAzienda,
				Trim(P.Nome)                    as NomeProdotto,
				P.Categoria                     as Categoria,
				(D.NumCartoni * D.ConfezioniDa) as Venduto,
				P.prezzounitario                as PrezzoUnitario
			from 
				dettagli_$anno D
					inner join prodotti_$anno P on P.idprodotti = D.idprodotto
						inner join aziende_$anno A on A.idaziende = P.aziendacollegata 
          inner join ordini_$anno O on O.IdOrdini = D.IdOrdine
			where 
				A.idaziende = $idAzienda and
        O.DataOrdine <= '$dataOrdine') as TT

			group by 
				NomeAzienda,
				NomeProdotto,
				Categoria,
				SM,
				PrezzoUnitario

			union 
			select
				TT.NomeAzienda    as NomeAzienda,
				TT.NomeProdotto   as NomeProdotto,
				TT.Categoria      as Categoria,
				0                 as Venduto,
				sum(TT.Venduto)   as SM,
				TT.PrezzoUnitario as PrezzoUnitario
			from

			(select 
				Trim(A.nome)                    as NomeAzienda,
				Trim(P.Nome)                    as NomeProdotto,
				P.Categoria                     as Categoria,
				(D.NumCartoni * D.ConfezioniDa) as Venduto,
				P.prezzounitario                as PrezzoUnitario
			from 
				scontomerce_$anno D
					inner join prodotti_$anno P on P.idprodotti = D.idprodotto
						inner join aziende_$anno A on A.idaziende = P.aziendacollegata 
          inner join ordini_$anno O on O.IdOrdini = D.IdOrdine
			where 
				A.idaziende = $idAzienda and
        O.DataOrdine <= '$dataOrdine') as TT

			group by 
				NomeAzienda,
				NomeProdotto,
				Categoria,
				Venduto,
				PrezzoUnitario)as PP

			group by
				NomeAzienda,
				NomeProdotto,
				Categoria,
				PrezzoUnitario
				" ;
	debug (0, $qAnno) ;
	list($nAnno, $dAnno) = $db->RecuperaDati($qAnno) ;
	// print_r($dAnno) ; exit ;
	if ($nAnno > 0)
	{
		// Metto da parte il nome del fornitore
		$nomeAzienda = $dAnno['NomeAzienda'][0] ;
		
		for ($i=0; $i<$nAnno; $i++)
		{
			$nomeProdotto = addslashes($dAnno['NomeProdotto'][$i]) . "^" . $dAnno['Categoria'][$i];
			if (!array_key_exists($nomeProdotto, $arrVal))
				$arrVal[$nomeProdotto][$anno] = array() ;
			
			$arrVal[$nomeProdotto][$anno]['Venduto'] += $dAnno['Venduto'][$i] ;
			$arrTot[$anno]['Venduto'] += $dAnno['Venduto'][$i] ;

			$arrVal[$nomeProdotto][$anno]['ScontoMerce'] += $dAnno['ScontoMerce'][$i] ;
			$arrTot[$anno]['ScontoMerce'] += $dAnno['ScontoMerce'][$i] ;
			
			$arrVal[$nomeProdotto][$anno]['Ordinato'] += $dAnno['Venduto'][$i] * $dAnno['PrezzoUnitario'][$i] ;
			$arrTot[$anno]['Ordinato'] += $dAnno['Venduto'][$i] * $dAnno['PrezzoUnitario'][$i] ;

			$arrVal[$nomeProdotto][$anno]['Quantita'] += $dAnno['Venduto'][$i] + $dAnno['ScontoMerce'][$i] ;
			$arrTot[$anno]['Quantita'] += $dAnno['Venduto'][$i] + $dAnno['ScontoMerce'][$i] ;
		}

		$arrTot[$anno]['PrezzoMedio'] = $arrTot[$anno]['Ordinato'] / $arrTot[$anno]['Quantita'] ;
	}
	
	// print_r($arrVal) ;

	debug (0, "PM = $prezzoMedio" ) ;
	// print_r($dAnno) ;
	/****************************************************************************************
	* 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)
	{
		/******************************************************************************
		* dal nome dell'azienda, devo recuperare l'id che la stessa ha nella tabella
		* aziende_annoP, perchè non è detto che abbia lo stesso id dell'anno che ho
		* considerato nella query precedente
		*******************************************************************************/
		$qid = "
				select
						*
				from
						aziende_$annoP
				where
						Nome = '$nomeAzienda'
		       " ;
		list($nid, $did) = $db->RecuperaDati($qid) ;
		if ($nid > 0)
		{
			$idAziendaP = $did['IdAziende'][0] ;
	    $dataOrdine = MySqlDate("$gime/$annoP") ;
			/*******************************************************************************
			* la tabella ordini dell'anno precedente esiste quindi posso fare il confronto.
			* Per il confronto devo considerare: il nome, la tipologia e il produttore
			*******************************************************************************/
			$qAnnoP = "
					select
						PP.NomeAzienda,
						PP.NomeProdotto,
						PP.Categoria,
						sum(PP.Venduto) as Venduto,
						sum(PP.SM)      as ScontoMerce,
						PP.PrezzoUnitario
					from
					(
					select
						TT.NomeAzienda    as NomeAzienda,
						TT.NomeProdotto   as NomeProdotto,
						TT.Categoria      as Categoria,
						sum(TT.Venduto)   as Venduto,
						0                 as SM,
						TT.PrezzoUnitario as PrezzoUnitario
					from

					(select 
						Trim(A.nome)                    as NomeAzienda,
						Trim(P.Nome)                    as NomeProdotto,
						P.Categoria                     as Categoria,
						(D.NumCartoni * D.ConfezioniDa) as Venduto,
						P.prezzounitario                as PrezzoUnitario
					from 
						dettagli_$annoP D
							inner join prodotti_$annoP P on P.idprodotti = D.idprodotto
								inner join aziende_$annoP A on A.idaziende = P.aziendacollegata 
              inner join ordini_$annoP O on O.IdOrdini = D.IdOrdine
					where 
						A.idaziende = $idAziendaP  and
            O.DataOrdine <= '$dataOrdine') as TT

					group by 
						NomeAzienda,
						NomeProdotto,
						Categoria,
						SM,
						PrezzoUnitario

					union 
					select
						TT.NomeAzienda    as NomeAzienda,
						TT.NomeProdotto   as NomeProdotto,
						TT.Categoria      as Categoria,
						0                 as Venduto,
						sum(TT.Venduto)   as SM,
						TT.PrezzoUnitario as PrezzoUnitario
					from

					(select 
						Trim(A.nome)                    as NomeAzienda,
						Trim(P.Nome)                    as NomeProdotto,
						P.Categoria                     as Categoria,
						(D.NumCartoni * D.ConfezioniDa) as Venduto,
						P.prezzounitario                as PrezzoUnitario
					from 
						scontomerce_$annoP D
							inner join prodotti_$annoP P on P.idprodotti = D.idprodotto
								inner join aziende_$annoP A on A.idaziende = P.aziendacollegata 
              inner join ordini_$annoP O on O.IdOrdini = D.IdOrdine
					where 
						A.idaziende = $idAziendaP  and
            O.DataOrdine <= '$dataOrdine') as TT

					group by 
						NomeAzienda,
						NomeProdotto,
						Categoria,
						Venduto,
						PrezzoUnitario)as PP

					group by
						NomeAzienda,
						NomeProdotto,
						Categoria,
						PrezzoUnitario
								" ;
			debug (0, $qAnnoP) ;
			list($nAnnoP, $dAnnoP) = $db->RecuperaDati($qAnnoP) ;
			// print_r($dAnnoP) ; exit ;
			for ($i=0; $i<$nAnnoP; $i++)
			{
				$nomeProdotto = addslashes($dAnnoP['NomeProdotto'][$i]) . "^" . $dAnnoP['Categoria'][$i];
				if (array_key_exists($nomeProdotto, $arrVal))
				{
					$arrVal[$nomeProdotto][$annoP]['Venduto']     += $dAnnoP['Venduto'][$i] ;
					$arrVal[$nomeProdotto][$annoP]['ScontoMerce'] += $dAnnoP['ScontoMerce'][$i] ;			
					$arrVal[$nomeProdotto][$annoP]['Ordinato']    += $dAnnoP['Venduto'][$i] * $dAnnoP['PrezzoUnitario'][$i] ;
					$arrVal[$nomeProdotto][$annoP]['Quantita']    += $dAnnoP['Venduto'][$i] + $dAnnoP['ScontoMerce'][$i] ;
				}

				/*****************************************************************************************
				* In ogni caso devo inserire i valori di questo prodotto nell'array che calcola il totale
				******************************************************************************************/
				$arrTot[$annoP]['Venduto']     += $dAnnoP['Venduto'][$i] ;
				$arrTot[$annoP]['ScontoMerce'] += $dAnnoP['ScontoMerce'][$i] ;
				$arrTot[$annoP]['Ordinato']    += $dAnnoP['Venduto'][$i] * $dAnnoP['PrezzoUnitario'][$i] ;
				$arrTot[$annoP]['Quantita']    += $dAnnoP['Venduto'][$i] + $dAnnoP['ScontoMerce'][$i] ;
			}
			
			@$arrTot[$annoP]['PrezzoMedio'] = $arrTot[$annoP]['Ordinato'] / $arrTot[$annoP]['Quantita'] ;

		}
	}

	$str = "<rows>" ;
	@reset($arrVal) ;
	while(list($nProdotto, $arrAnni) = each($arrVal))
	{
		$sQua = $sOrd = $sMed = "+" ;
		$qua0 = $qua1 = 0 ;
		if (! array_key_exists($annoP, $arrAnni))
			$bAnnoP = false ;
		else
			$bAnnoP = true ;

		$arrNP = explode("^", $nProdotto) ;
		$str .= "<row>" ;
		$str .= "<cell colspan='6'>" . htmlspecialchars("<b>" . stripslashes($arrNP[0]) . "</b>") . "</cell><cell/><cell/><cell/><cell/><cell/>" ;
		$str .= "</row>" ;
		
		while (list($an, $arrSingAnno) = each($arrAnni))
		{
			$pListino = $arrSingAnno['Ordinato'] / $arrSingAnno['Venduto'] ;
			$pMedio = $arrSingAnno['Ordinato'] / $arrSingAnno['Quantita'] ;
			
			$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>" ;
			$str .= "<cell></cell>" ;
			$str .= "<cell>$an</cell>" ;
			$str .= "<cell>" . $arrSingAnno['Quantita'] . "</cell>" ;
			$str .= "<cell>" . nfe($arrSingAnno['Ordinato']) . "</cell>" ;
			$str .= "<cell>" . nfe($pMedio) . "</cell>" ;
			$str .= "<cell>" . nfp($incSM) . " %</cell>" ;
			$str .= "</row>" ;
			
			if (! $bAnnoP)
			{
				$qua1 = $ord1 = $pm1 = 0 ;
				
				$str .= "<row>" ;
				$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>" ;
		$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 PRODOTTO,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']) . "-" ;

	$strSort     = "na,na,na,na,na,na" ;
  $iniWP       = "30,10,10,10,13,13" ;
  $setColType  = "ro,ro,ro,ro,ro,ro" ;
  $setColAlign = "right,center,right,right,right,right" ;

	$titolo = "Confronto con periodo precedente l'Azienda: <font class='modclienti'>$nomeAzienda</font> al <font color='red'>$giorno $mesevis</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 ?>" ;

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.init();
	
	mygrid.loadXMLString(str);

}

function doOnRowSelected(id)
{
  id_prodotto = id ;
  return ;
}

function TornaIndietro()
{
	history.back() ;
	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="TornaIndietro()" value="Torna Indietro">
</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="Stampa()" value="Formato Stampa">
	<input type="button" class="input" onclick="TornaIndietro()" value="Torna Indietro">
</div>

<center>
<span align="center" class="newclienti"><? echo $titolo ?><BR><BR>
</center>

<? endif ?>

<div id="gridbox"></div>

<FORM METHOD=POST name="stampa" ACTION="./StampaConfrontaConPrezzoMedioDettaglioAzienda.php"  target="_blank">
	<INPUT TYPE="hidden" NAME="idAzienda" value="<? echo $idAzienda ?>">	
	<INPUT TYPE="hidden" NAME="gime"      value="<? echo $gime ?>">	
</form>

</BODY>
</HTML>