<?
  /************************
  * VERSIONE 3.0 READY
  ************************/
  include ("../common/public.php") ;
  // error_reporting(0) ;
  // print_r($_GET + $_POST) ;

  $gime     = date("d/m") ;
  
  $anno1 = $anno - 1 ;
  $anno2 = $anno - 2 ;
  $anno3 = $anno - 3 ;

	$arrAgenti  = array() ;
	$arrClienti = array() ;
	$arrVal     = array() ;

	$qf = "
        select 
            * 
        from 
            fornitori
        where
            (attivo = '1') or
            (attivo = '0' and AnnoDisattivazione > $anno)
        order by 
            Nome
				" ;
  list($nf, $df) = $db->RecuperaDati($qf) ;
	for ($i=0; $i<$nf; $i++)
  {
    $forid[]   = $df['IdFornitori'][$i] ;
    $fornome[] = $df['Nome'][$i] ;
  }
  // print_r($df) ;
  /*************************************************************************
  * Per ogni fornitore, calcolo quanli sono i clienti attivi nell'anno
  * in corso e nei tre anni precedenti
  *************************************************************************/
  for ($i=0; $i<count($forid); $i++)
  {
    $IdFor = $forid[$i] ;
    debug (0, $fornome[$i]) ;
    $qCl = "
        select 
          PP.*
        from
          (
  				  select
              C.IdClienti         as IdCliente,     
							C.Nome              as NomeCliente,
              YEAR(O.dataOrdine)  as Anno
						from 
							ordini O
								inner join clienti C on C.idclienti = O.idcliente
						where 
              O.Anno        = $anno3 and
							O.idfornitore = $IdFor 
						group by
							C.nome
          
          Union

						select
              C.IdClienti         as IdCliente,     
							C.Nome              as NomeCliente,
              YEAR(O.dataOrdine)  as Anno
            from 
							ordini O
								inner join clienti C on C.idclienti = O.idcliente
						where 
              O.Anno        = $anno2 and
							O.idFornitore = $IdFor 
						group by
							C.nome
              
          Union

						select
              C.IdClienti         as IdCliente,     
							C.Nome              as NomeCliente,
              YEAR(O.dataOrdine)  as Anno
            from 
							ordini O
								inner join clienti C on C.idclienti = O.idcliente
						where
              O.Anno        = $anno1 and
							O.idFornitore = $IdFor 
						group by
							C.nome
              
           Union

						select
              C.IdClienti         as IdCliente,     
							C.Nome              as NomeCliente,
              YEAR(O.dataOrdine)  as Anno
            from 
							ordini O
								inner join clienti C on C.idclienti = O.idcliente
						where 
              O.Anno        = $anno and
							O.idFornitore = $IdFor 
						group by
							C.nome
           
           )  as PP
        order by
          PP.NomeCliente  
           
           " ;
        
        debug(0, $qCl) ;
        list($nCl, $dCl) = $db->RecuperaDati($qCl) ;
        // print_r($dCl) ;
        for ($y=0; $y<$nCl; $y++)
        {
			    $an = $dCl['Anno'][$y] ;

          if (!array_key_exists($dCl['IdCliente'][$y], $arrClienti))
            $arrClienti[$dCl['IdCliente'][$y]] = $dCl['NomeCliente'][$y] ;

          $idcli = $dCl['IdCliente'][$y] ;
          $ncli  = $dCl['NomeCliente'][$y] ;

          if (!isset($arrVal[$IdFor][$idcli]))
          {
            $arrVal[$IdFor][$idcli] = array() ;
            $arrVal[$IdFor][$idcli]['Anni'] = array() ;
          }
          
          if (!array_key_exists($IdFor, $arrVal))
            $arrVal[$IdFor] = array() ;

          if (! array_key_exists('NomeCliente', $arrVal[$IdFor][$idcli]))
            $arrVal[$IdFor][$idcli]['NomeCliente'] = $ncli . " ( ";
          
          if (! in_array($an, $arrVal[$IdFor][$idcli]['Anni']))
          {
            $arrVal[$IdFor][$idcli]['Anni'][] = $an ;
            $arrVal[$IdFor][$idcli]['NomeCliente'] .= $an. " " ;
          }
        }
  }

  @reset($arrVal) ;
	foreach ($arrVal as $idFor => &$arrDati)
	{
    foreach ($arrDati as $idCl => &$arrDat2)
    {
      $arrDat2['NomeCliente'] .= ")" ; 
   }
  }

  // print_r($arrVal) ; 
  
  // exit ;
?>
<html>
<head>
<title><? echo TITLE ?></title>
<meta http-equiv="expires" content="Fri, 5 Apr 1996 23:59:59 GMT">
</head>
<link rel="stylesheet" href="../common/mystyle.css" type="text/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">
<!--
parent.sei_in.innerHTML = "Sei in: FORNITORI >> Venduto Anni Precedenti" ;
parent.solo_azioni.style.display = 'none' ; 
parent.solo_azioni.innerHTML = '' ;

function ReportProdotti()
{
	var arrIdFor = new Array() ;
	var f = document.forms.confronti ;

  if (f.cliente.selectedIndex == -1)
  {
    alert ('Nessun cliente selezionato') ;
    return false ;
  }

  f.hidforni.value = "" ;
  for (i=0; i<f.idforni.length; i++)
  {
    if (f.idforni.options[i].selected)
      f.hidforni.value += f.idforni.options[i].value + "," ;
  }
	f.action = "./reportProdotti.php" ;
	f.submit() ;
	return true ;
}

function CambioFornitore()
{
	var f = document.forms.confronti ;
	var sChoices = '';
	var dtNow    = new Date();
	var cb = document.forms.confronti.cliente ;
	
	idfornitore = f.idforni.value ;
	cb.length = 0 ; // cancella la lista
	// cb.options[0] = new Option("Tutti", '0^Tutti', false, true) ;
	
	switch(idfornitore)
	{
		case '0':
<?
	$x = 0 ;
	@reset($arrClienti) ;
	foreach ($arrClienti as $idcli => $ncli)
	{
?>
	    cb.options[<? echo $x ?>] = new Option("<? echo addslashes($ncli) ?>", '<? echo $idcli ?>^<? echo addslashes($ncli) ?>') ;
<?
		$x++ ;
	}

?>
			break ;
<?
	@reset($arrVal) ;
	foreach ($arrVal as $idfor => $arrCli)
	{
		$x = 0 ;
?>
		case '<? echo $idfor ?>':
<?
		foreach($arrCli as $idcli => $ncli)
		{
?>
	    cb.options[<? echo $x ?>] = new Option("<? echo addslashes($ncli['NomeCliente']) ?>", '<? echo $idcli ?>^<? echo addslashes($ncli['NomeCliente']) ?>') ;
<?
			$x++ ;
		}
?>
			break ;
<?
	}
?>	
	}
		
	return true ;	
}

//-->
</script>

<body  topmargin="0" vlink="#336633" marginheight="0" bgcolor="#FFFFAA" leftmargin="0" link="#006600" marginwidth="0" onLoad="CambioFornitore()">

<!--************************** bottoni azione ***************************************-->
<div id="actions">
  <input type="button" class="input" onclick="ReportProdotti()" value="Report Prodotti">
</div>

<div id="modulo">
<table class="campi_modulo" width="100%" cellspacing="1">
	<FORM METHOD="POST" ACTION="" name="confronti">
	<INPUT TYPE="hidden" NAME="from" value="scelta">
	<INPUT TYPE="hidden" name="hidforni">	
	<tr>
		<td colspan="4" class="formato">(N.B: attualmente ci sono <font color="red"><? echo $nf ?></font> fornitori presenti in archivio)</td>
	</tr>
	<tr>
		<td class='lbl8r' width="10%" valign="top">Fornitore:</td>
		<td class='boxdati'><select name="idforni" class="input" size="20" style="width:370px" OnChange="CambioFornitore()">
<?
        reset ($forid) ;
        reset ($fornome) ;
				$sel = "selected" ;
        $idx = 0 ;
        foreach($forid as $val)
        {
          printf ("               <option value=\"%d\" $sel>%s\n", $val, $fornome[$idx]) ;
					$sel = "" ;
          $idx ++ ;
        }
?>
        </select></td>
    <td class="lbl8r" valign="top">Al Cliente:</td>
    <td class="boxdati" valign="top"><select name="cliente" class="input" size="20" style="width:600px">
                    </select></td>
  </tr>
</form>
</table>
</body>
</html>