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.
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google Groups
"weblocks" group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/weblocks?hl=en
-~----------~----~----~----~------~----~------~--~---
