Ridefinizione della lista di ricerca che si attiva con il tasto “Lista” della toolbar

' Il seguente frammento di codice mostra come ridefinire la lista di ricerca che si attiva con il tasto "Lista" della toolbar
' Nella fattispecie, viene ridefinito la lista dei progeti nella scheda PROGETTI.ASPX
' Va inserito nello "Script Creazione" di un qualsiasi oggetto della scheda, e, come si può vedere, ridefinisce la query di ricerca e richiama la procedura ListaArchivio per visualizzare la lista.
' Il valore di ritorno viene gestito nella procedura LISTAPROG_DialogClose di PROGETTI.ASPX che in questo caso non viene ridefinita.

dim QWSess as QWSession=this.page.GetSession()
Dim form As PROGETTIFORM = this.page
Dim c as QWWebControls.QWWebPushbutton = CType(this.page, QWWebControls.QWWebPage).FindControl2("LISTAPROG")
dim q as QWTable

removehandler c.Click, addressof form.LISTAPROG_Click

AddHandler c.Click,
Sub(ByVal sender As Object, ByVal arg As String)
   
   form.form_state.dmd_ref.PROGETTI_SEARCH.active = False

	dim sql as string 
	
	sql= "select p.CODICE,p.DENOMINAZIONE,p.CODCLI,p.RAGSOCCLI,c.DESCRIZION , "
	sql= sql + "case stato "
	sql= sql + "when 0 then 'Definizione commessa' "
	sql= sql + "when 1 then 'Proposta rifiutata' " 
	sql= sql + "when 10 then 'Piano in Redazione/Revisione - Attività avviata' "
	sql= sql + "when 11 then 'Sospesa' "
	sql= sql + "when 20 then 'Commessa chiusa' "
	sql= sql + "end as STATO_DECOD1 "
	sql= sql + "from PROGETTI p "
	sql= sql + "left join CAUSPAR c on c.codice=p.CAUSTIPO "
	sql= sql + "order by p.CODICE"

   form.form_state.dmd_ref.PROGETTI_SEARCH.sql=sql
   form.form_state.dmd_ref.PROGETTI_SEARCH.active = True
   
   ListaArchivio(this,"Lista Progetti",form.form_state.dmd_ref.PROGETTI_SEARCH,New DBArray( _
        New DBArray(form.form_state.dmd_ref.PROGETTI_SEARCH.Rowset.Fields("CODICE"), 80, "Cod. Progetto"), _
        New DBArray(form.form_state.dmd_ref.PROGETTI_SEARCH.Rowset.Fields("DENOMINAZIONE"), 250, "Descrizione"), _
        New DBArray(form.form_state.dmd_ref.PROGETTI_SEARCH.Rowset.Fields("CODCLI"), 80,"-"), _
        New DBArray(form.form_state.dmd_ref.PROGETTI_SEARCH.Rowset.Fields("RAGSOCCLI"), 250,"Cliente"), _
		New DBArray(form.form_state.dmd_ref.PROGETTI_SEARCH.Rowset.Fields("STATO_DECOD1"), 200,"Stato Progetto"), _
        New DBArray(form.form_state.dmd_ref.PROGETTI_SEARCH.Rowset.Fields("DESCRIZION"), 80, "Tipo") _ 
           ), 600,900, 20,True)   
   
End Sub