Hi again:
If I have understood correctly, I missed the join declarations on the
related classes ('cliente' and 'operario'). So I've done the
corresponding joins in the related classes and I've made some changes
in the view class 'actuacion', but the message is always the former
one.
---8<---8<---8<---8<---8<---8<---
(clsql:def-view-class actuacion ()
((cliente :accessor actuacion-cliente
:db-kind :join
:db-info (:join-class cliente
:home-key cliente-id
:foreign-key id
:set t))
(cliente-id
:type integer
:initarg :cliente-id)
(fecha-fin :accessor fecha-fin
:type universal-time
:initarg :fecha-fin)
(fecha-inicio :accessor fecha-inicio
:type universal-time
:initarg :fecha-inicio)
(id :accessor actuacion-id
:db-kind :key
:db-constraints (:not-null :unique)
:type integer
:initarg :id)
(operario :accessor actuacion-operario
:db-kind :join
:db-info (:join-class operario
:home-key operario-id
:foreign-key id
:set t))
(operario-id
:type integer
:initarg :operario-id))
(:base-table actuacion))
(clsql:def-view-class cliente ()
((actuacion :accessor cliente-actuacion
:db-kind :join
:db-info (:join-class actuacion
:home-key id
:foreign-key cliente-id
:set t))
(id :accessor cliente-id
:db-kind :key
:db-constraints (:not-null :unique)
:type integer
:initarg :id)
(nombre :accessor nombre
:type (string 128)
:initarg :nombre))
(:base-table cliente))
(clsql:def-view-class operario ()
((actuacion :accessor operario-actuacion
:db-kind :join
:db-info (:join-class actuacion
:home-key id
:foreign-key operario-id
:set t))
(apellidos :accessor apellidos
:type (string 128)
:initarg :apellidos)
(id :accessor operario-id
:db-kind :key
:db-constraints (:not-null :unique)
:type integer
:initarg :id)
(nombre :accessor nombre
:type (string 128)
:initarg :nombre))
(:base-table operario))
---8<---8<---8<---8<---8<---8<---
Many, many thanks for your time.