<!-------------- CONTROLLO ACCESSO --------------->
<cfset liv="m6"><cfinclude template="controllo.cfm">
<!-------------- CONTROLLO ACCESSO --------------->

<cfparam name="session.filtra_fornitore" default="0">
<cfparam name="session.importo_da" default="0">
<cfparam name="session.importo_a" default="99999">


<cfif isdefined("form.IDSocieta")>
		<cfset session.filtra_fornitore = form.IDSocieta>
		<cfset session.importo_da = form.importo_da>
		<cfset session.importo_a = form.importo_a>
	<cflocation addtoken="no" url="index.cfm?ID=scadenza_pagamenti_fornitori_soc">
</cfif>

<CFQUERY NAME="elenco" DATASOURCE="#session.dsn#">
    SELECT fp.*, a.societa FROM anagrafica a INNER JOIN fatture_passivo fp ON a.IDSocieta = fp.IDSocieta
    Where ((importo >= #(session.importo_da)# and importo <= #(session.importo_a)#)
    or (importo >= #(session.importo_da/1.2)# and importo <= #(session.importo_a/1.2)#))
    <cfif session.filtra_fornitore gt 0> and fp.IDSocieta = #session.filtra_fornitore#</cfif>
    ORDER BY a.societa, Scadenza, data_emissione, Numero_fattura
</CFQUERY>

<CFQUERY NAME="Fornitori" DATASOURCE="#session.dsn#">
    SELECT distinct a.Societa, a.IDSocieta, a.eliminato, fp.importo, fp.iva, fp.cambio, fp.pagato, fp.valuta, fp.scadenza
    FROM anagrafica a INNER JOIN fatture_passivo fp ON a.IDSocieta = fp.IDSocieta
    Where ((fp.importo >= #(session.importo_da)# and fp.importo <= #(session.importo_a)#)
    or (fp.importo >= #(session.importo_da/1.2)# and fp.importo <= #(session.importo_a/1.2)#))
    order by a.Societa
</CFQUERY>

<br>
<form method="post">
<div align="center" class="testob2">
Scadenzario pagamento fatture 
<select name="IDSocieta" class="formb2">
<option value="0"> - Tutti i fornitori - </option>
<cfset old_forn = 0>
<cfoutput query="Fornitori">
<cfif valuta eq "USD"><cfset debito = (#importo# + #iva#) / #cambio#><cfelse><cfset debito = (#importo# + #iva#)></cfif>
<cfif <!--- #DateCompare(scadenza, now())# neq 1 and ---> fix(#debito# - #pagato#) neq 0><cfif old_forn neq IDSocieta><cfset 
old_forn = IDSocieta><option value="#IDSocieta#" <cfif session.filtra_fornitore eq Fornitori.IDSocieta>selected</cfif>
>#left(Societa, 40)#<cfif len(Societa) gt 40>...</cfif><cfif eliminato> (non attiva)</cfif></option></cfif></cfif></cfoutput>
</select> &nbsp;&nbsp;
Importo da: <input type="text" name="importo_da" value="<cfoutput>#session.importo_da#" size="5" class="formb2"> 
a: <input type="text" name="importo_a" value="#session.importo_a#</cfoutput>" size="5" class="formb2"> Euro
<input type="submit" value="Filtra" class="formb2">
</div>
</form>

<cfdirectory action="list" directory="#Expandpath("pdf\fatture")#" name="allegati" filter="*.pdf">
<cfset lista_allegati = valuelist(allegati.name)>
<cfset lista_fornitori = "Altri">
<cfset lista_importi = "0">
<cfset importo_totale = 0>
<CFOUTPUT query="elenco">
	<cfif valuta eq "USD"><cfset debito = (#importo# + #iva#) / #cambio#>
    <cfelse><cfset debito = (#importo# + #iva#)></cfif>
    <cfif fix(#debito# - #pagato#) neq 0>
	<cfif elenco.ndc eq "ndc">
        <cfset impor = -importo>
    <cfelse>
        <cfset impor = importo>
    </cfif>
    <cfset importo_totale = importo_totale + impor>
    </cfif>
</cfoutput>




<table class="testo1" width="95%" border="1" cellspacing="0" cellpadding="1" 
align="center" bordercolor="#CCCCCC">
<cfset fatturato = 0>
<cfset incassato = 0>
<cfset tot_iva = 0>
<cfoutput query="elenco" group="societa">
	<cfset subtotale = 0>
	<cfoutput>
		<cfif valuta eq "USD">
			<cfset debito = (importo+iva)/cambio>
        <cfelse>
			<cfset debito = (importo+iva)>
        </cfif>
        <cfif fix(debito-pagato) neq 0>
			<cfif elenco.ndc eq "ndc">
                <cfset impor = -debito>
            <cfelse>
                <cfset impor = debito>
            </cfif>
            <cfif valuta eq "USD">
                <cfset imp_tot = impor/cambio>	
            <cfelse>
                <cfset imp_tot = impor>	
            </cfif>
            <cfset subtotale = subtotale + imp_tot>
        </cfif>
	</cfoutput>
    <cfif subtotale gt 0>
	<cfif session.filtra_fornitore eq 0>
	<tr>
		<td colspan="20" bgcolor="##CCCCCC" class="testo2"><a href="index.cfm?ID=aziende_dettagli&Societa=#IDSocieta#" class="testob2">#Societa#</A>&nbsp;&nbsp;&nbsp;
		<strong>&euro;&nbsp;#LSEuroCurrencyFormat(subtotale, "none")#</strong>
        <cfif importo_totale neq 0>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(#round(1000*subtotale/importo_totale)/10#%)</cfif></td>
	</tr>
    <cfset subtotale = round(subtotale)>
    <cfif subtotale ge importo_totale/100>
		<cfset lista_fornitori = listappend(lista_fornitori, replace(societa, ",", " ", "all"))>
        <cfset lista_importi = listappend(lista_importi, subtotale)>
    <cfelse>
        <cfset lista_importi = listsetat(lista_importi, 1, subtotale+listgetat(lista_importi, 1))>
    </cfif>
	<tr align="center" bgcolor="##dddddd" class="testob1">
	<td>ID</td>
	<td colspan="3">&nbsp;</td>
	<td>N&deg;</td>
	<td>data</td>
	<td>Descrizione</td>
	<td>Destinazione</td>
	<td>Importo</td>
	<td>Tot&nbsp;+&nbsp;IVA</td>
	<td>Saldo</td>
	</tr>
	</cfif>
	<cfoutput>
		<cfif valuta eq "USD"><cfset debito = (#importo# + #iva#) / #cambio#>
        <cfelse><cfset debito = (#importo# + #iva#)></cfif>
        <cfif fix(#debito# - #pagato#) neq 0>
			<cfif elenco.ndc eq "ndc"><cfset sfondo = "##ffff00"><cfelse><cfset sfondo = "##ffffff"></cfif>
            <tr bgcolor="#sfondo#" onmouseover="javascript:style.backgroundColor='##95DEFF'" onmouseout="javascript:style.backgroundColor='#sfondo#'">
            <td>#IDDocumento#</td>
            <td><a href="JavaScript:Dettaglio('pagamenti_fornitori.cfm?IDDocumento=#IDDocumento#', 650, 700)" class="testo1">
            <font size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>&euro;</strong></font></a></td>
            <td><cfif listfindnocase(lista_allegati, "#IDDocumento#.pdf") gt 0><a href="JavaScript:Dettaglio2('pdf/fatture/#IDDocumento#.pdf', 780, 700)" class="testo1">
            <img src="../img/print.gif" border="0"></a><cfelse>&nbsp;</cfif></td>
            <td><cfif len(trim(note_)) gt 0><img src="../img/n.gif" hspace="1" vspace="1" border="0" alt="#trim(note_)#"><cfelse>&nbsp;</cfif></td>
            <td><a href="index.cfm?ID=fattura_fornitore_dettagli&IDDocumento=#elenco.IDDocumento#" class="testo1">#Numero_Fattura#</a></td>
            <td>#dateformat(data_emissione, "dd/mm/yy")#</td>
            <td>#Descrizione#</td>
            <td>#Classificazione#</td>
            <td align="right">
            <cfif valuta eq "Lira">
                #LSNumberFormat(Importo)#&nbsp;L.
            <cfelseif #valuta# eq "USD">
                <font color="##009900">#LSEuroCurrencyFormat(Importo, "none")#&nbsp;$</font>
            <cfelse>
                #LSEuroCurrencyFormat(Importo, "none")#&nbsp;&euro;
            </cfif>
            </td>
            <td align="right">
                <cfif valuta eq "USD">
                    <cfset saldo = round(100*((importo + iva)/cambio - pagato))/100>
                    <cfset imp_tot = round(100*(importo + iva)/cambio)/100>		
                <cfelse>
                    <cfset saldo = round(100*(importo + iva - pagato))/100>
                    <cfset imp_tot = round(100*(importo + iva))/100>	
                </cfif>
                <font face="Verdana, Arial, Helvetica, sans-serif" size="1"
                    color="##002863"><cfif valuta eq "Lira">
                #LSNumberFormat(imp_tot)#&nbsp;L.
                <cfelse>
                #LSEuroCurrencyFormat(imp_tot, "none")#&nbsp;&euro;
                </cfif></font>		
                </td>
            <td align="right">
                <cfif abs(saldo) gt .1>
                <font face="Verdana, Arial, Helvetica, sans-serif" size="1"
                    color="##ff0000"><cfif valuta eq "Lira">
                #LSNumberFormat(saldo)#&nbsp;L.
                <cfelse>
                #LSEuroCurrencyFormat(saldo, "none")#&nbsp;&euro;
                </cfif></font>
                <cfelse><strong>PAGATO</strong></cfif></td>
            </tr>
            <cfif elenco.ndc eq "ndc">
                <cfset impor = -importo>
                <cfset saldo_ = -saldo>
                <cfset iva_ = -iva>
            <cfelse>
                <cfset impor = importo>
                <cfset saldo_ = saldo>
                <cfset iva_ = iva>
            </cfif>
            <cfif valuta eq "Lira">
                <cfset fatturato = fatturato + impor/1936.27>
                <cfset incassato = incassato + saldo/1936.27>
                <cfset tot_iva = tot_iva + iva_/1936.27>
            <cfelse>
                <cfset fatturato = fatturato + impor>
                <cfset incassato = incassato + saldo_>
                <cfset tot_iva = tot_iva + iva_>
            </cfif>
		</cfif>
	</cfoutput>
    </cfif>
</CFOUTPUT>
<cfoutput>
<cfif session.filtra_fornitore eq 0>
	<!--- <cfset lista_fornitori = listsetat(lista_fornitori, 1, "Altri (meno di €#round(importo_totale/100)#)")> --->
    <tr><td colspan="13" bgcolor="##CCCCCC" class="testob2" style="vertical-align:middle; text-align:right">TOTALE DA PAGARE #LSEuroCurrencyFormat(incassato, "local")#<br />
        <cfchart format="png" chartheight="700" chartwidth="1000" showxgridlines="no" 
          showygridlines="yes" xaxistitle="" yaxistitle="" font="arial" fontsize="12" 
          showborder="no"  show3d="yes" rotated="no" sortxaxis="no" 
          showlegend="yes" showmarkers="no" backgroundcolor="##CCCCCC">
            <cfchartseries type="pie"> 
                <cfloop from="1" to="#listlen(lista_fornitori)#" index="i"> 
                    <cfchartdata item="#listgetat(lista_fornitori, i)#" value="#listgetat(lista_importi, i)#">
                </cfloop>
            </cfchartseries>
        
        </cfchart>   
    </td></tr>
<cfelse>
    <tr><td colspan="13" bgcolor="##CCCCCC" class="testob2" style="vertical-align:middle; text-align:right">TOTALE DA PAGARE #LSEuroCurrencyFormat(incassato, "local")#</td></cfif>
</CFOUTPUT>
</TABLE>

</div>
