proc sql_lastinsertid {} {
    global var

    sql query $var(connexion) "select last_insert_id()"
    set lid [sql fetchrow $var(connexion)]
    sql endquery $var(connexion)

    return $lid
}