<cfif isdefined("url.vs") or isdefined("form.vs")>
	<cfif isdefined("url.vs")>
        <cfset vs_ = url.vs>
	<cfelseif isdefined("form.vs")>
        <cfset vs_ = form.vs>
	<cfelse>
        <cfset vs_ = "">
    </cfif>
	<cfset vs_ = replace(vs_, ";;", "; ;", "all")>
	<cfif listlen(vs_, ";") ge 6>
        <cfif listlen(vs_, ";") lt 7>
            <cfset vs_ = listappend(vs_, 0 & "|" & year(now())  & "|" & year(now()) & "|" & 25, ";")>
        </cfif>
		<cfif listlen(vs_, ";") lt 8>
            <cfset vs_ = listappend(vs_, "0|0|0|25", ";")>
        </cfif>
		<cfif listlen(vs_, ";") lt 9>
            <cfset vs_ = listappend(vs_, "0|0|0|0|0|0|25", ";")>
        </cfif>
        <cfset IDsessione = listgetat(vs_, 1, ";")>
        <cfset IDutente = listgetat(vs_, 2, ";")>
        <cfset soc = listgetat(vs_, 3, ";")>
        <cfset lista_aziende = listgetat(vs_, 4, ";")>
        <cfset larghezza = listgetat(vs_, 5, ";")>
        <cfset altezza = listgetat(vs_, 6, ";")>
        <cfquery name="dati_az" datasource="intranet">
            select * from aziende where logo = '#soc#'
        </cfquery>


		<cfif isdefined("form.IDSocieta")>
        	<cfif len(trim(form.IDSocieta)) gt 0><cfset form_IDSocieta = trim(form.IDSocieta)><cfelse><cfset form_IDSocieta = 0></cfif>
        	<cfif len(trim(form.data_da)) gt 0><cfset form_data_da = trim(form.data_da)><cfelse><cfset form_data_da = 0></cfif>
        	<cfif len(trim(form.data_aa)) gt 0><cfset form_data_aa = trim(form.data_aa)><cfelse><cfset form_data_aa = 0></cfif>
        	<cfif len(trim(form.num_prot)) gt 0><cfset form_num_prot = trim(form.num_prot)><cfelse><cfset form_num_prot = 0></cfif>
        	<cfif len(trim(form.id_doc_tipo)) gt 0><cfset form_id_doc_tipo = trim(form.id_doc_tipo)><cfelse><cfset form_id_doc_tipo = 0></cfif>
        	<cfif len(trim(form.titolo)) gt 0><cfset form_titolo = trim(form.titolo)><cfelse><cfset form_titolo = 0></cfif>
        	<cfif isnumeric(form.num_protocolli) and form.num_protocolli gt 0><cfset form_num_protocolli = form.num_protocolli><cfelse><cfset form_num_protocolli = 0></cfif>
			<cfset vs_ = listsetat(vs_, 9, form_IDSocieta & "|"  & form_data_da & "|"  & form_data_aa & "|"  & form_num_prot & "|"  & form_id_doc_tipo & "|"  & form_titolo & "|"  & form_num_protocolli, ";")>
            <cflocation url="app_protocolli.cfm?vs=#vs_#" addtoken="no">
        </cfif>

		<cfset IDSocieta_data_da_data_aa_num_prot_id_doc_tipo_titolo_num_protocolli = listgetat(vs_, 9, ";")>
        <cfset IDSocieta = listgetat(IDSocieta_data_da_data_aa_num_prot_id_doc_tipo_titolo_num_protocolli, 1, "|")>
        <cfset data_da = listgetat(IDSocieta_data_da_data_aa_num_prot_id_doc_tipo_titolo_num_protocolli, 2, "|")>
        <cfset data_aa = listgetat(IDSocieta_data_da_data_aa_num_prot_id_doc_tipo_titolo_num_protocolli, 3, "|")>
        <cfset num_prot = listgetat(IDSocieta_data_da_data_aa_num_prot_id_doc_tipo_titolo_num_protocolli, 4, "|")>
        <cfset id_doc_tipo = listgetat(IDSocieta_data_da_data_aa_num_prot_id_doc_tipo_titolo_num_protocolli, 5, "|")>
        <cfset titolo = listgetat(IDSocieta_data_da_data_aa_num_prot_id_doc_tipo_titolo_num_protocolli, 6, "|")>
        <cfset num_protocolli = listgetat(IDSocieta_data_da_data_aa_num_prot_id_doc_tipo_titolo_num_protocolli, 7, "|")>

        <cfif listlen(data_da, "/") is 3><cfset data_da_ = createODBCdate(dateformat(data_da, "dd/mm/yyyy"))><cfelse><cfset data_da_ = 0></cfif>
        <cfif listlen(data_aa, "/") is 3><cfset data_aa_ = createODBCdate(dateformat(data_aa, "dd/mm/yyyy"))><cfelse><cfset data_aa_ = 0></cfif>
        <cfif isdate(data_da_) and isdate(data_aa_) and datediff("d", data_da_, data_aa_) lt 0><cfset data_aa_ = data_da_></cfif>

        <cfif len(trim(num_prot)) eq 8>
            <cfset num_prot_ = right(num_prot,2)>
            <cfset anno_prot = left(num_prot, 2)>
            <cfset mese_prot = right(left(num_prot, 4), 2)>
            <cfset giorno_prot = right(left(num_prot, 6), 2)>
            <cfset data_prot_ = createdate(anno_prot, mese_prot, giorno_prot)>
		<cfelse>
			<cfset num_prot_ = 0>
        </cfif>

		
        <CFQUERY NAME="Tutte_aziende" DATASOURCE="#dati_az.dsn#">
            SELECT a.IDSocieta, a.Societa, a.eliminato FROM anagrafica A inner join 
            protocollo p ON p.IDSocieta_mitt = a.IDSocieta
            UNION
            SELECT a.IDSocieta, a.Societa, a.eliminato FROM anagrafica A inner join 
            protocollo p ON p.IDSocieta_dest = a.IDSocieta
        </CFQUERY>
        <CFQUERY NAME="aziende" dbtype="query">
            SELECT distinct IDsocieta, Societa, eliminato FROM Tutte_aziende order by societa, eliminato
        </CFQUERY>
        <CFQUERY NAME="doc_tipo" DATASOURCE="#dati_az.dsn#">
            SELECT * FROM doc_tipo order by doc_tipo
        </CFQUERY>

		<cfif num_protocolli gt 0>
        	<cfset limite = num_protocolli>
        <cfelse>
        	<cfset limite = 1000>
        </cfif>
        
        <CFQUERY NAME="elenco" DATASOURCE="#dati_az.dsn#" maxrows="#limite#">
            SELECT p.*, dp.*, dt.*, df.*
            from (((protocollo p INNER JOIN doc_pertinenza dp ON dp.ID_doc_pertinenza = p.ID_doc_pertinenza)
                                  INNER JOIN doc_formato df ON df.ID_doc_formato = p.ID_doc_formato)
                                  INNER JOIN doc_tipo dt ON dt.ID_doc_tipo = p.ID_doc_tipo)
            where p.IDprotocollo > 0
            <cfif num_prot_ gt 0>
                and p.protocollo = #num_prot_#
                and p.data = #createODBCdate(data_prot_)#
            <cfelse>
                <cfif titolo neq 0>
                	and (p.titolo like '%#titolo#%' or p.Descrizione like '%#titolo#%' or p.keyword like '%#titolo#%')
                </cfif>
                <cfif data_da_ neq 0>and p.data >= #data_da_#</cfif>
                <cfif data_aa_ neq 0>and p.data <= #data_aa_#</cfif>
                <cfif id_doc_tipo gt 0>and p.id_doc_tipo = #id_doc_tipo#</cfif>
                <cfif IDSocieta gt 0>and (p.IDSocieta_mitt = #IDSocieta# or p.IDSocieta_dest = #IDSocieta#)</cfif>
            </cfif>
            ORDER BY p.data desc, p.Protocollo desc
        </CFQUERY>

        <html>
            <head>
                <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
                <title>INTRANET</title>
                <link rel="stylesheet" type="text/css" href="../css/style.css">
                <link rel="stylesheet" type="text/css" href="../css/bordi.css" />
                <script language="javascript" src="../java/common.js"></script>
                <script language="javascript" src="../java/show_hide.js"></script>
            </head>
            
            <body bgcolor="#DDDDDD" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
                <form method="post" id="pulsantiera" action="">
                    <div style="display:table; width:100%;">
                    <div style="display:table-row; width:100%;">
                        <cfoutput>
                            <input type="hidden" name="vs" value="#vs_#">	
                            <div style="display:table-cell; text-align:left; background-color:##DDDDDD; padding:5px; width:100px;"><a href="javascript:void();" 
                                onClick="document.getElementById('pulsantiera').action='app_home.cfm?#cgi.QUERY_STRING#';document.getElementById('pulsantiera').submit();"><img src="http://app.autoroute.it/images/back_64.png" border="0"></a></div>
                            <div style="display:table-cell; text-align:center; vertical-align:middle; background-color:##DDDDDD; padding:5px;" class="testob4">INTRANET :: #dati_az.nome_az#</div>
                            <div style="display:table-cell; text-align:right; background-color:##DDDDDD; padding:5px; width:100px;"><a href="javascript:void();" 
                                onClick="document.getElementById('pulsantiera').action='app_protocolli.cfm?#cgi.QUERY_STRING#';document.getElementById('pulsantiera').submit();"><img src="http://app.autoroute.it/images/update64.png" border="0"></a></div>
                        </cfoutput>
                    </div>
                    </div>
                </form> 
                <div align="center" class="testob4">
                    <style type="text/css">
                        <!--
                        :focus:invalid {  background-color:#FF0000;}
                        :valid {  background-color:#00FF00;}
                        /*
                        :required { background-color:#FFFFFF;}
                        */
                        :optional { background-color:#FFFFFF;}
                        -->
                    </style>

                    <form method="post" action="app_protocolli.cfm">
                        <cfoutput>
                        <input type="hidden" name="vs" value="#vs_#">	
                        <table border="0" cellpadding="5" cellspacing="0" bordercolor="##999999" background="../img/fondino2.jpg" class="testo4" width="100%">
                            <tr class="testobiancob4" align="center">
                                <td>Elenco documenti - Dal:<input name="data_da" class="formb4" formnovalidate value="<cfif data_da neq 0>#data_da#</cfif>" type="date" style="width:120px; height:30px;">
                                                         Al:<input name="data_aa" class="formb4" formnovalidate value="<cfif data_aa neq 0>#data_aa#</cfif>" type="date" style="width:120px; height:30px;">
                                </td>
                            </tr>
                            <tr class="testobiancob4" align="center">
                                <td>Mitt/Dest:<select name="IDSocieta" class="formb4" style="width:250px; height:30px;">
                                        <option value="0"> - Tutti - </option>
										<cfset IDSocieta_ = IDSocieta>
                                        <cfloop query="aziende">
                                            <option value="#IDSocieta#" <cfif IDSocieta_ eq IDSocieta>selected</cfif>>#Societa# <cfif eliminato>(non attiva)</cfif></option>
                                        </cfloop>
                                    </select>
                                </td>
                            </tr>
                            <tr class="testobiancob4" align="center">
                                <td>Tipo doc.to:<select name="id_doc_tipo" class="formb4" style="width:250px; height:30px;">
                                        <option value="0"> - Tutti - </option>
										<cfset id_doc_tipo_ = id_doc_tipo>
                                        <cfloop query="doc_tipo">
                                            <option value="#id_doc_tipo#" <cfif id_doc_tipo_ eq id_doc_tipo>selected</cfif>>#doc_tipo#</option>
                                        </cfloop>
                                    </select>
                                </td>
                            </tr>
                            <tr class="testobiancob4" align="center">
                                <td>Keyword:<input type="text" name="titolo" class="formb4" style="width:250px; height:30px;" value="<cfif titolo neq 0>#titolo#</cfif>"></td>
                                </td>
                            </tr>
                            <tr class="testobiancob4" align="center">
                                <td>Visualizza max: <input type="text" name="num_protocolli" formnovalidate type="number" class="formb4" 
                                		style="width:50px; height:30px; text-align:right;" value="<cfif num_protocolli gt 0>#num_protocolli#</cfif>"> documenti 
                                        <input type="submit" value="   &raquo;&raquo;   " class="formb4" style="width:100px; height:30px;"></td>
                            <tr>
                            <tr class="testobiancob4" align="center">
                                <td>Numero protocollo:<input type="text" name="num_prot" class="formb4" style="width:150px; height:30px;" value="<cfif num_prot neq 0>#num_prot#</cfif>">
                                		<input type="submit" value="   &raquo;&raquo;   " class="formb4" style="width:100px; height:30px;"></td>
                            <tr>
                        </table>
                        </cfoutput>
                    </form>
                    <table class="testo1" width="100%" border="1" cellspacing="0" cellpadding="1" background="../img/fondino2.jpg">
                        <tr align="center" class="testobiancob3">
                            <td>N&deg;</td>
                            <td>data</td>
                            <td>Titolo</td>
                            <td>Mitt</td>
                            <td>Dest</td>
                            <td>Tipo</td>
                        </tr>
                        <cfset sfondo = "cccccc">
                        <cfoutput query="elenco">
							<cfset num_protocollo = dateformat(data, "yymmdd")>
                            <cfif protocollo lt 10><cfset num_protocollo = num_protocollo & "0"></cfif>
                            <cfset num_protocollo = num_protocollo & protocollo>
							<CFQUERY NAME="mitt" dbtype="query">
								SELECT Societa FROM aziende WHere IDSocieta = #IDSocieta_mitt#
							</CFQUERY>
							<CFQUERY NAME="dest" dbtype="query">
								SELECT Societa FROM aziende WHere IDSocieta = #IDSocieta_dest#
							</CFQUERY>
							<cfif sfondo eq "ffffff"><cfset sfondo = "cccccc"><cfelse><cfset sfondo = "ffffff"></cfif>
                            <tr bgcolor="###sfondo#" onClick="location.href='app_protocollo.cfm?vs=#vs_#&IDprotocollo=#elenco.IDprotocollo#'">
                                <td class="testob2">#num_protocollo##Doc_pert_settore#</td>
                                <td class="testob2">#dateformat(data, "dd/mm/yy")#</td>
                                <td>#titolo#</td>
                                <td><cfif len(trim(mitt.societa)) gt 25>#left(mitt.societa, 25)#...<cfelse>#mitt.societa#</cfif></td>
                                <td><cfif len(trim(dest.societa)) gt 25>#left(dest.societa, 25)#...<cfelse>#dest.societa#</cfif></td>
                                <td>#doc_tipo#</td>
                            </tr>
                        </cfoutput>
                    </TABLE>
                </div>
            </body>
        </html>
	</cfif>
</cfif>



