<?
  include ("../common/public.php") ;
    
	print_r($_GET + $_POST) ; // exit ;
  /***************************************************************************
  * where-list
  ***************************************************************************/    
  // list($idFornitore, $nomeFornitore) = explode("^", stripslashes($azienda)) ;
  list($idCliente, $nomeCliente) = explode("^", stripslashes($cliente)) ;
  
  $annoPrec = $anno -1 ;
  $dataOrdineAnnoInCorso = MySqlDate("$gime/$anno") ;
  $dataOrdineAnnoPrec    = MySqlDate("$gime/$annoPrec") ;
	
  $nomemese = Array("", "Gennaio", "Febbraio", "Marzo", "Aprile", "Maggio", "Giugno", "Luglio", "Agosto", "Settembre", "Ottobre", "Novembre", "Dicembre") ;
  
  list($giorno, $mese) = explode("/", $gime) ;
  $mesevis = $nomemese[ltrim($mese,"0")] ;

  $selAge    = $agente ;
  
  $selCli    = $idCliente ;
	$selFor    = $fornitore ;
	
  $selPro    = $prodotto ;
	  
  $ordinaper = $colToSort ;

	$where_cli   = "1=1" ;
	$where_age   = "1=1" ;
	$where_for   = "1=1" ;
	$where_pro   = "1=1" ;

	/*************************
  * filtro Agente
  **************************/  
  if (isset($selAge) and ($selAge != 'tutti'))
    $where_age = " A.IdAgenti = $selAge" ;
	
	/*************************
  * filtro Cliente
  **************************/  
  if (isset($selCli) and ($selCli != 'tutti'))
		$where_cli = " C.idclienti = '$selCli'" ;

	/*************************
  * filtro Fornitori
  **************************/  
  if (isset($selFor) and ($selFor != 'tutti'))
    $where_for = "F.IdFornitori  = $selFor" ;

	/*************************
  * filtro Prodotto
  **************************/  
  if (isset($selPro) and ($selPro != ''))
    $where_pro = " P.nome like '%$selPro%'" ;
	
	/***************************************
	* controllo la colonna da ordinare
	***************************************/
	switch($ordinaper)
	{
		case 0:			// agente
			$order_by = "NomeAgente $direction, NomeProdotto" ;
			break ;
		
		case 1:			// fornitore
			$order_by = "NomeFornitore $direction, NomeProdotto" ;
			break ;

		case 2:			// prodotto
			$order_by = "NomeProdotto $direction, NomeCliente" ;
			break ;

		case 3:			// numero bottiglie totali anno precedente
			$order_by = "TotBottAnnoPrec $direction, NomeProdotto" ;
			break ;

		case 4:			// numero bottiglie anno in corso
			$order_by = "TotBottAnnoInCorso $direction, NomeProdotto" ;
			break ;
		
	}
		
  /*
  $qclipro = "
          select
							TT.IdAgente,
							TT.NomeAgente,
							TT.IdCliente,
							TT.NomeCliente,
							TT.IdFornitore,
							TT.NomeProdotto,
							-- TT.IdProdotto,
							sum(TT.TotBottAnnoPrec)       as TotBottAnnoPrec,
							sum(TT.TotBottAnnoPrecSM)     as TotBottAnnoPrecSM,
							sum(TT.TotBottAnnoInCorso)    as TotBottAnnoInCorso,
							sum(TT.TotBottAnnoInCorsoSM)  as TotBottAnnoInCorsoSM
          from
						(	select
									A.idagenti                            as IdAgente,
									A.nome                                as NomeAgente,
									C.idclienti                           as IdCliente,
									C.nome                                as NomeCliente,
									$selfor                               as IdFornitore,
                  IF (D.DescDettaglio IS NULL OR D.DescDettaglio = '', 
                      P.nome, 
                      D.DescDettaglio)                  as NomeProdotto,
									-- P.nome                                as NomeProdotto,
									-- P.idprodotti                          as IdProdotto,
									0                                     as TotBottAnnoPrec,
									0                                     as TotBottAnnoPrecSM,
									sum((D.NumCartoni * D.ConfezioniDa))  as TotBottAnnoInCorso,
									0                                     as TotBottAnnoInCorsoSM
							from
                  dettagli D
                    inner join ordini O on O.idordini = D.idordine
												                    and O.Anno = $anno
                                            and O.idfornitore = $selfor
                                            and O.DataOrdine <= '$dataOrdineAnnoInCorso'
                    
                    inner join clienti C on C.IdClienti = O.IdCliente
                                              and $where_cli
                      inner join agenti A on A.IdAgenti = C.IdAgente
                                              and $where_age
		                
                    inner join prodotti P on P.idprodotti = D.idprodotto
                                               and $where_pro
              where
                P.Anno = $anno and
                D.Anno = $anno
              group by 
                P.Nome, C.Nome

						union all
							
						  select
									A.idagenti                            as IdAgente,
									A.nome                                as NomeAgente,
									C.idclienti                           as IdCliente,
									C.nome                                as NomeCliente,
									$selfor                               as IdFornitore,
                  IF (D.DescDettaglio IS NULL OR D.DescDettaglio = '', 
                      P.nome, 
                      D.DescDettaglio)                  as NomeProdotto,
									-- P.nome                                as NomeProdotto,
									-- P.idprodotti                          as IdProdotto,
									0                                     as TotBottAnnoPrec,
									0                                     as TotBottAnnoPrecSM,
									0                                     as TotBottAnnoInCorso,
									sum((D.NumCartoni * D.ConfezioniDa))  as TotBottAnnoInCorsoSM
							from
                  scontomerce D
                    inner join ordini O on O.idordini = D.idordine
												                    and O.Anno = $anno
                                            and O.idfornitore = $selfor
                                            and O.DataOrdine <= '$dataOrdineAnnoInCorso'
                    
                    inner join clienti C on C.IdClienti = O.IdCliente
                                              and $where_cli
                      inner join agenti A on A.IdAgenti = C.IdAgente
                                              and $where_age
		                
                    inner join prodotti P on P.idprodotti = D.idprodotto
                                               and $where_pro
              where
                P.Anno = $anno and
                D.Anno = $anno
              group by 
                P.Nome, C.Nome
              
              union all

              select
									A.idagenti                            as IdAgente,
									A.nome                                as NomeAgente,
									C.idclienti                           as IdCliente,
									C.nome                                as NomeCliente,
									$selfor                               as IdFornitore,
                  IF (D.DescDettaglio IS NULL OR D.DescDettaglio = '', 
                      P.nome, 
                      D.DescDettaglio)                  as NomeProdotto,
									-- P.nome                                as NomeProdotto,
									-- P.idprodotti                          as IdProdotto,
									sum((D.NumCartoni * D.ConfezioniDa))  as TotBottAnnoPrec,
									0                                     as TotBottAnnoPrecSM,
									0                                     as TotBottAnnoInCorso,
									0                                     as TotBottAnnoInCorsoSM
							from
                  dettagli D
                    inner join ordini O on O.idordini = D.idordine
                                            and O.Anno = $annoPrec
												                    and O.idfornitore = $selfor
                                            and O.DataOrdine <= '$dataOrdineAnnoPrec'
                    
                    inner join clienti C on C.IdClienti = O.IdCliente
                                              and $where_cli
                      inner join agenti A on A.IdAgenti = C.IdAgente
                                              and $where_age
		                
                    inner join prodotti P on P.idprodotti = D.idprodotto
                                               and $where_pro
              where
                P.Anno = $annoPrec and
                D.Anno = $annoPrec
              group by 
                P.Nome, C.Nome
              
              union all

              select
									A.idagenti                            as IdAgente,
									A.nome                                as NomeAgente,
									C.idclienti                           as IdCliente,
									C.nome                                as NomeCliente,
									$selfor                               as IdFornitore,
                  IF (D.DescDettaglio IS NULL OR D.DescDettaglio = '', 
                      P.nome, 
                      D.DescDettaglio)                  as NomeProdotto,
									-- P.nome                                as NomeProdotto,
									-- P.idprodotti                          as IdProdotto,
									0                                     as TotBottAnnoPrec,
									sum((D.NumCartoni * D.ConfezioniDa))  as TotBottAnnoPrecSM,
									0                                     as TotBottAnnoInCorso,
									0                                     as TotBottAnnoInCorsoSM
							from
                  scontomerce D
                    inner join ordini O on O.idordini = D.idordine
												                    and O.Anno = $annoPrec
                                            and O.idfornitore = $selfor
                                            and O.DataOrdine <= '$dataOrdineAnnoPrec'
                    
                    inner join clienti C on C.IdClienti = O.IdCliente
                                              and $where_cli
                      inner join agenti A on A.IdAgenti = C.IdAgente
                                              and $where_age
		                
                    inner join prodotti P on P.idprodotti = D.idprodotto
                                               and $where_pro
              where
                P.Anno = $annoPrec and
                D.Anno = $annoPrec
              group by 
                P.Nome, C.Nome
						) as TT
		group by
							TT.IdAgente,
							TT.NomeAgente,
							TT.IdCliente,
							TT.NomeCliente,
							TT.IdFornitore,
							TT.NomeProdotto
							-- TT.IdProdotto
		order by
			$order_by
						 " ;
  */
  $qclipro = "
          select
							TT.IdAgente,
							TT.NomeAgente,
							TT.IdFornitore,
							TT.NomeFornitore,
							TT.IdCliente,
							TT.NomeProdotto,
							sum(TT.TotBottAnnoPrec)       as TotBottAnnoPrec,
							sum(TT.TotBottAnnoPrecSM)     as TotBottAnnoPrecSM,
							sum(TT.TotBottAnnoInCorso)    as TotBottAnnoInCorso,
							sum(TT.TotBottAnnoInCorsoSM)  as TotBottAnnoInCorsoSM
          from
						(	select
									A.idagenti                            as IdAgente,
									A.nome                                as NomeAgente,
                  F.idfornitori                         as IdFornitore,
                  F.nome                                as NomeFornitore,
                  $selCli                               as IdCliente,
                  IF (D.DescDettaglio IS NULL OR D.DescDettaglio = '', 
                      P.nome, 
                      D.DescDettaglio)                  as NomeProdotto,
									0                                     as TotBottAnnoPrec,
									0                                     as TotBottAnnoPrecSM,
									sum((D.NumCartoni * D.ConfezioniDa))  as TotBottAnnoInCorso,
									0                                     as TotBottAnnoInCorsoSM
							from
                  dettagli D
                    inner join ordini O on O.idordini  = D.idordine and 
                                           O.Anno      = $anno      and 
                                           O.idcliente = $selCli    and 
                                           O.DataOrdine <= '$dataOrdineAnnoInCorso'
                    
                    inner join Fornitori F on F.IdFornitori = O.IdFornitore and 
                                              $where_for

                      inner join agenti A on A.IdAgenti = O.IdAgente
                                              and $where_age
		                
                    inner join prodotti P on P.idprodotti = D.idprodotto
                                               and $where_pro
              where
                P.Anno = $anno and
                D.Anno = $anno
              group by 
                P.Nome, F.Nome

						union all
							
						  select
									A.idagenti                            as IdAgente,
									A.nome                                as NomeAgente,
                  F.idfornitori                         as IdFornitore,
                  F.nome                                as NomeFornitore,
                  $selCli                               as IdCliente,
                  IF (D.DescDettaglio IS NULL OR D.DescDettaglio = '', 
                      P.nome, 
                      D.DescDettaglio)                  as NomeProdotto,
									0                                     as TotBottAnnoPrec,
									0                                     as TotBottAnnoPrecSM,
									0                                     as TotBottAnnoInCorso,
									sum((D.NumCartoni * D.ConfezioniDa))  as TotBottAnnoInCorsoSM
							from
                  scontomerce D
                    inner join ordini O on O.idordini  = D.idordine and 
                                           O.Anno      = $anno      and 
                                           O.idcliente = $selCli    and 
                                           O.DataOrdine <= '$dataOrdineAnnoInCorso'
                    
                    inner join Fornitori F on F.IdFornitori = O.IdFornitore and 
                                              $where_for

                      inner join agenti A on A.IdAgenti = O.IdAgente
                                              and $where_age
		                
                    inner join prodotti P on P.idprodotti = D.idprodotto
                                               and $where_pro
              where
                P.Anno = $anno and
                D.Anno = $anno
              group by 
                P.Nome, F.Nome
              
              union all

              select
									A.idagenti                            as IdAgente,
									A.nome                                as NomeAgente,
                  F.idfornitori                         as IdFornitore,
                  F.nome                                as NomeFornitore,
                  $selCli                               as IdCliente,
                  IF (D.DescDettaglio IS NULL OR D.DescDettaglio = '', 
                      P.nome, 
                      D.DescDettaglio)                  as NomeProdotto,
									sum((D.NumCartoni * D.ConfezioniDa))  as TotBottAnnoPrec,
									0                                     as TotBottAnnoPrecSM,
									0                                     as TotBottAnnoInCorso,
									0                                     as TotBottAnnoInCorsoSM
							from
                  dettagli D
                    inner join ordini O on O.idordini  = D.idordine and 
                                           O.Anno      = $annoPrec  and 
                                           O.idcliente = $selCli    and 
                                           O.DataOrdine <= '$dataOrdineAnnoPrec'
                    
                    inner join Fornitori F on F.IdFornitori = O.IdFornitore and 
                                              $where_for

                      inner join agenti A on A.IdAgenti = O.IdAgente
                                              and $where_age
		                
                    inner join prodotti P on P.idprodotti = D.idprodotto
                                               and $where_pro
              where
                P.Anno = $annoPrec and
                D.Anno = $annoPrec
              group by 
                P.Nome, F.Nome
              
              union all

              select
									A.idagenti                            as IdAgente,
									A.nome                                as NomeAgente,
                  F.idfornitori                         as IdFornitore,
                  F.nome                                as NomeFornitore,
                  $selCli                               as IdCliente,
                  IF (D.DescDettaglio IS NULL OR D.DescDettaglio = '', 
                      P.nome, 
                      D.DescDettaglio)                  as NomeProdotto,
									0                                     as TotBottAnnoPrec,
									sum((D.NumCartoni * D.ConfezioniDa))  as TotBottAnnoPrecSM,
									0                                     as TotBottAnnoInCorso,
									0                                     as TotBottAnnoInCorsoSM
							from
                  scontomerce D
                    inner join ordini O on O.idordini  = D.idordine and 
                                           O.Anno      = $annoPrec  and 
                                           O.idcliente = $selCli    and 
                                           O.DataOrdine <= '$dataOrdineAnnoPrec'
                    
                    inner join Fornitori F on F.IdFornitori = O.IdFornitore and 
                                              $where_for
                      inner join agenti A on A.IdAgenti = O.IdAgente and 
                                             $where_age
		                
                    inner join prodotti P on P.idprodotti = D.idprodotto
                                               and $where_pro
              where
                P.Anno = $annoPrec and
                D.Anno = $annoPrec
              group by 
                P.Nome, F.Nome
						) as TT
		group by
							TT.IdAgente,
							TT.NomeAgente,
							TT.IdFornitore,
							TT.NomeFornitore,
							TT.IdCliente,
							TT.NomeProdotto
		order by
			$order_by
						 " ;

	debug (0, $qclipro) ;
  list($nrowsdati, $dati)  = $db->RecuperaDati($qclipro) ;
  
  $arrParGen = array() ;
	$arrParGen = RecuperaParametriGenerali($arrParGen, $tparametri) ;
	
	$nome         = $arrParGen['NomeAgenzia'] ;
	$sede         = "Sede operativa: " . $arrParGen['IndirizzoAgenzia'] ;
  $datisede     = "Telefono: " . $arrParGen['TelefonoAgenzia'] . 
                  " Fax: " . $arrParGen['FaxAgenzia'] .
                  " -- P.I. " . $arrParGen['PartitaIvaAgenzia'] ;
  $emailsede    = "Email: " . $arrParGen['MailAgenzia'] ;
  
  $titolo = "Confronto Anno ". sprintf("%s", ($anno - 1)) . " - Anno $anno al <font color='red'>$giorno $mesevis</font> per i prodotti acquistati dal cliente <font color='red'>$nomeCliente</font>" ;
  // $titolo = "CoLista Clienti / Bottiglie Acquistate in data " . Date("d/m/Y") ;
?>
<html>
<head>
<title><? echo TITLE ?></title>
<meta name="ROBOTS" content="INDEX,NOFOLLOW">
<meta name="keywords" content="">
<meta name="description" content="DaliWine - Ordini Online">
<meta http-equiv="PICS-Label" content=''>
<meta http-equiv="expires" content="Fri, 5 Apr 1996 23:59:59 GMT">

</head>
<link rel="stylesheet" type="text/css" href="../common/mystyle.css" >
<body  topmargin="0" vlink="#336633" marginheight="0" bgcolor="#FFFFFF" leftmargin="0" link="#006600" marginwidth="0">

<table width="1000" border="0" cellpadding="2" cellspacing="1">
  <tr>
    <td width="40%"><IMG SRC="../images/Logo1.gif" WIDTH="200" HEIGHT="80" BORDER="0" ALT=""></td>
		<td width="60%" align="right"><font class="ordine8it"><? echo $sede ?><BR>
                                  <font class="ordine8it"><? echo $datisede ?><BR>
                                  <font class="ordine8it"><? echo $emailsede ?><BR></td>
  </tr>
  <tr>
    <td colspan="2"><hr color="black" size="1"></td> 
  </tr>
</table>
 
<table width="1000" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td align="center" colspan="2"><font class="ordine10"><? echo $titolo ?><BR></td>
  </tr>
  <tr>
    <td align="left" colspan="2"><font class="sit_econ_st8">(<I>Fra parentesi il numero delle bottiglie in sconto merce</I>)<BR></td>
  </tr>
</table>

<table width="1000" border="0" cellpadding="2" cellspacing="1">
	<tr bgcolor="black">
    <td class="etidettagl8in" align="center">Agente</td>
    <td class="etidettagl8in" align="center">Fornitore</td>
    <td class="etidettagl8in" align="center">Prodotto</td>
    <td class="etidettagl8in" align="center">Anno <? echo $annoPrec ?></td>
    <td class="etidettagl8in" align="center">Anno <? echo $anno ?></td>
    <td class="etidettagl8in" align="center">Differenza</td>
	</tr>
<?  
  for ($i = 0; $i < $nrowsdati ; $i++ )
  {
    if ($dati['TotBottAnnoPrecSM'][$i] > 0)
		  $totBottAnnoP   = nfl($dati['TotBottAnnoPrec'][$i]) . "  (" .  nfl($dati['TotBottAnnoPrecSM'][$i]) . ")";
    else
		  $totBottAnnoP   = nfl($dati['TotBottAnnoPrec'][$i]) ;
    
    if ($dati['TotBottAnnoInCorsoSM'][$i] > 0)
		  $totBottAnno   = nfl($dati['TotBottAnnoInCorso'][$i]) . "  (" .  nfl($dati['TotBottAnnoInCorsoSM'][$i]) . ")";
    else
		  $totBottAnno    = nfl($dati['TotBottAnnoInCorso'][$i]) ;

    if ($dati['TotBottAnnoInCorso'][$i] >= $dati['TotBottAnnoPrec'][$i])
    {
      $colorDiff = "green" ;
      $numDiff = nfl($dati['TotBottAnnoInCorso'][$i] - $dati['TotBottAnnoPrec'][$i]) ;
    }
    else
    {
      $colorDiff = "red" ;
      $numDiff = "- " . nfl($dati['TotBottAnnoPrec'][$i] - $dati['TotBottAnnoInCorso'][$i]) ;
    }

?>
  <tr>  
    <td class="sit_econ_st8"><? echo htmlspecialchars($dati['NomeAgente'][$i]) ?></td>
    <td class="sit_econ_st8"><? echo htmlspecialchars($dati['NomeFornitore'][$i]) ?></td>
    <td class="sit_econ_st8"><? echo htmlspecialchars($dati['NomeProdotto'][$i]) ?></td>
    <td class="sit_econ_st8" align="center"><? echo $totBottAnnoP ?></td>
    <td class="sit_econ_st8" align="center"><? echo $totBottAnno ?></td>
    <td class="sit_econ_st8_lastcell" align="center"><font color="<? echo $colorDiff ?>"><? echo $numDiff ?></td>
  </tr>
<?
  }
  
?>
	<tr bgcolor="black">
    <td class="etidettagl8in_R" colspan="3">Totali:&nbsp;</td>
    <td class="etidettagl8in_R"><? echo $TotoAnnoPrec ?></td>
    <td class="etidettagl8in_R"><? echo $TotoAnnoInCorso ?></td>
    <td class="etidettagl8in_R"><? echo $TotDifferenza ?></td>
	</tr>
</table>
</body>
</html>