Azione F3

Audit amministrativo indipendente

Si prevede di attivare un servizio di gestione e controllo contabile del progetto, per garantire la corretta e trasparente conduzione di tutta la parte finanziaria e amministrativa. Un ente indipendente di revisione, nominato dal beneficiario coordinatore UNIPR, procederà alla verifica delle dichiarazioni finanziarie fornite alla Commissione con il rapporto finale. L’audit sarà finalizzato alla verifica del rispetto della legislazione vigente e delle indicazioni riportate nelle ‘LIFE+ Common Provisions’.

Il revisore contabile indipendente acquisirà tutta la documentazione relativa agli aspetti economici del progetto, e la analizzerà nel dettaglio per verificare l’effettiva corrispondenza fra quanto riportato nei documenti contabili e quanto effettivamente osservato. Verificherà la congruità dei costi di ciascuna azione, la rispondenza negli acquisti dei materiali (durevoli e non durevoli) e della ripartizione di costi e spese fra i vari partner del progetto.

Avanzamento Stato: In Corso - Avvio: 01-01-2018 Conclusione: 30-06-2018
2014 2015 2016 2017 2018
I II III IV I II III IV I II III IV I II III IV I II III IV
F3 CronoprogrammaOOOOOOOOOOOOOOOOAAOO
AvanzamentoOOOOOOOOOPPPPPPPAAXX

In data 07/06/2016 è stata incaricata da UNPR la ditta Demetra - Società di revisione Srl per la revisione contabile-amministrativa del progetto.

*** UNPR untrusted the company Demetra - Società di revisione Srl for the project audit. 

class "Login" already exists
    while executing
"::itcl::class Login {
        inherit Barbie

        private variable loginmenu
        private variable logoutmenu

        public method willHandle..."
    (in namespace eval "::rwdatas" script line 3)
    invoked from within
"namespace eval ::rwdatas {

    ::itcl::class Login {
        inherit Barbie

        private variable loginmenu
        private variable logoutmenu

..."


OUTPUT BUFFER:

source [file join $rweb_root tcl before.tcl]
package require Barbie

namespace eval ::rwdatas {

    ::itcl::class Login {
        inherit Barbie

        private variable loginmenu
        private variable logoutmenu

        public method willHandle {arglist keyvar} 
        public method fetchData {key reassigned_key} 
        public method init {args} 
        public method menu_list {page}
        #public proc to_url {lm} { return [Barbie::to_url $lm] }
    }

    ::itcl::body Login::init {args} {

        $this register_class ::rwpage::UserLogin

        set mm $::rivetweb::menumodel
        set lm $::rivetweb::linkmodel
        set loginmenu [$mm create_menu loginmenu root normal]
        $loginmenu assign title "Login" $::rivetweb::language
        
        $loginmenu add_link [$lm create Login "" { it "Login" en "Login" }  \
                                                 [dict create login 1]      \
                                                 [dict create it "Login Sito" \
                                                              en "Site Login"]]

        set logoutmenu [$mm create_menu logoutmenu root normal]
        $logoutmenu assign title "Logout" $::rivetweb::language
        $logoutmenu add_link [$lm create Login "" { it "Logout" en "Logout" }  \
                                                 [dict create logout 1]       \
                                                 [dict create it "Logout dal Sito" \
                                                              en "Site Logout"]]
        

    }

    ::itcl::body Login::willHandle {arglist keyvar} {
        upvar $keyvar key 

        #puts "
######### [::SESSION fetch status logged] ########
"

        $this check_class ::rwpage::UserLogin
        set current_login_status [::SESSION fetch status logged]

        ::rivet::apache_log_error debug \
            "current_login_status: $current_login_status (logout: [::rivet::var exists logout])"

        if {[::rivet::var exists login] && ($current_login_status == 0)} {

            set key user_login
            return -code break -errorcode rw_ok

        } elseif {[::rivet::var exists logout] && ($current_login_status > 0)} {

            set key user_logout
            return -code break -errorcode rw_ok

        }
        ::rivet::apache_log_error debug "::rwdatas::Login not handling request for args $arglist"
        return -code continue -errorcode rw_continue
    }

    ::itcl::body Login::fetchData {key reassigned_key} {
        upvar $reassigned_key rkey

        set rkey $key
        
        if {($key == "user_login") || ($key == "user_logout")} {
			return [::rwpage::UserLogin ::#auto $key]
		} else {
			return ""
		}
		
    }

    ::itcl::body Login::menu_list {page} {
        if {[::SESSION fetch status logged] == 0} {
            return [list site_management $loginmenu]
        } else {
            $logoutmenu assign title \
                        "Logout [::SESSION fetch status username]" $::rivetweb::language 

            return [list site_management $logoutmenu]
        }
    }
}

package provide Login 1.0
source [file join $rweb_root tcl after.tcl]