<cfflush interval="10">
<cfset lista_dns = "aud,aut,cor,dal,nsv,sof,web">
<cfloop list="#lista_dns#" index="i">
    <cfquery name="pagamenti" DATASOURCE="intranet_#i#">
        select * from movimenti where IDFattura > 0
    </cfquery>
    <cfquery name="fatture" DATASOURCE="intranet_#i#">
        select * from fatture_passivo
        order by IDdocumento
    </cfquery>
    <cfloop query="fatture">
		<cfif fatture.valuta eq "USD">
            <cfset importo_ = fatture.importo / fatture.cambio>
            <cfset iva_ = fatture.iva / fatture.cambio>	
        <cfelse>
            <cfset importo_ = fatture.importo>
            <cfset iva_ = fatture.iva>	
        </cfif>
        <cfset totale = importo_ + iva_>
    	<cfset pagato_ = fatture.pagato>
        <cfquery name="fattura" dbtype="query">
            select * from pagamenti where IDFattura = #IDdocumento#
            and 
            (tipologia = '<cfif ndc eq "ndc">IN_<cfelse>OUT</cfif>' or tipologia = '<cfif ndc eq "ndc">in_<cfelse>out</cfif>')
        </cfquery>
    	<cfset importo_pagato = 0>
        <cfloop query="fattura">
			<cfif valuta eq "Lira">
				<cfset pagamento = importo / 1936.27>
            <cfelse>
				<cfset pagamento = importo>
            </cfif>
			<cfset importo_pagato = importo_pagato + pagamento>
        </cfloop>
        <cfif abs(importo_pagato - pagato_) gt 0.1>
			<cfoutput>#i# #IDdocumento# #importo_pagato# neq #pagato_# <cfif abs(importo_pagato - totale) le 0.1>Chiusa</cfif></cfoutput><br />
            <!--- 
            <cfquery datasource="intranet_#i#">
                update fatture_passivo set
                pagato = #importo_pagato#
                Where IDdocumento = #IDdocumento#
            </cfquery>
             --->
        </cfif>
   </cfloop>

    <cfquery name="pagamenti2" DATASOURCE="intranet_#i#">
        select * from movimenti where IDspesa > 0
    </cfquery>
    <cfquery name="spese" DATASOURCE="intranet_#i#">
        select * from spese_generali
        order by IDdocumento
    </cfquery>
    <cfloop query="spese">
		<cfif spese.valuta eq "USD">
            <cfset importo_ = spese.importo / spese.cambio>
            <cfset iva_ = spese.iva / spese.cambio>	
        <cfelse>
            <cfset importo_ = spese.importo>
            <cfset iva_ = spese.iva>	
        </cfif>
        <cfset totale = importo_ + iva_>
    	<cfset pagato_ = spese.pagato>
        <cfquery name="spesa" dbtype="query">
            select * from pagamenti2 where IDspesa = #IDdocumento#
            and 
            (tipologia = '<cfif ndc eq "ndc">IN_<cfelse>OUT</cfif>' or tipologia = '<cfif ndc eq "ndc">in_<cfelse>out</cfif>')
        </cfquery>
    	<cfset importo_pagato = 0>
        <cfloop query="spesa">
			<cfif valuta eq "Lira">
				<cfset pagamento = importo / 1936.27>
            <cfelse>
				<cfset pagamento = importo>
            </cfif>
			<cfset importo_pagato = importo_pagato + pagamento>
        </cfloop>
        <cfif abs(importo_pagato - pagato_) gt 0.1>
			<cfoutput>#i# #IDdocumento# #importo_pagato# neq #pagato_# <cfif abs(importo_pagato - totale) le 0.1>Chiusa</cfif></cfoutput><br />
            <!--- 
            <cfquery datasource="intranet_#i#">
                update spese_generali set
                pagato = #importo_pagato#
                Where IDdocumento = #IDdocumento#
            </cfquery>
             --->
        </cfif>
   </cfloop>
</cfloop>
