www.ancestrologie.com

pthierry

Pour les médias sur événements individuels
Le problème est du à
MP_POINTE_SUR
car une fois MP_POINTE_SUR c'est le NIP (photo identité) mise à jour par la stored proc
PROC_FIXE_UNIQUE_PHOTO_IDENTITE
l'autre fois MP_POINTE_SUR c'est un événement EV_IND_CLEF
(le problème pourrait être compliqué à cause des codes Integer qui par le fait du hasard
pourraient donner un code identique sur les 2 clés)
dans la requete actuelle on a MP_POINTE_SUR = MP_CLE_INDIVIDU
ce qui donne des médias sur des événements mal attribués
normal car on filtre avec des NIP et des clés événement
exemple: photo identité
MP_CLE_INDIVIDU = 4
MP_POINTE_SUR = 4
la photo est bien attribuée sur le NIP 4 mais mais elle est aussi
sur l événement EV_IND_CLEF = 4 qui n'a rien à voir
il manque donc un test
dans ma solution
MP_POINTE_SUR = EV_IND_KLE_FICHE donne pour le NIP 4 (par exemple)
des médias pour tous les événements du NIP4 ce qui n'est guère mieux
Conclusion :
Il faut lier les 2 dans les requetes
MP_POINTE_SUR = EV_IND_CLEF and MP_CLE_INDIVIDU = EV_IND_KLE_FICHE

on peut ajouter pour se protéger d'éventuelles modifs ajouter
MP_TYPE_IMAGE = A et MP_IDENTITE = 0

il faut donc modifier les requetes SQL et le code
1)dans l'unité u_form_individu_identite
la requete IBMultimedia
SELECT MULTI_CLEF,
MULTI_MEDIA
FROM MULTIMEDIA,
MEDIA_POINTEURS
WHERE MP_MEDIA = MULTI_CLEF AND
MP_KLE_DOSSIER = :DOSSIER AND
MP_POINTE_SUR = :ACTE AND
MP_TABLE = :TABLE AND
MP_CLE_INDIVIDU = :KLE_FICHE AND
MP_TYPE_IMAGE = 'A'
MP_IDENTITE = 0
(ne pas oublier le param KLE_FICHE)
dans la proc IBQEveCalcFields (ligne 1849) ajouter
IBMultimedia.Params[3].AsInteger := IBQEveEV_IND_KLE_FICHE.AsInteger;
(je préfère le ParamByName , mais bon)
2) dans l'unité u_form_individu_edit_event_life
la requete IBMultimedia
SELECT MULTI_CLEF,
MULTI_MEDIA
FROM MULTIMEDIA,
MEDIA_POINTEURS
WHERE MP_MEDIA = MULTI_CLEF AND
MP_KLE_DOSSIER = :DOSSIER AND
MP_POINTE_SUR = :ACTE AND
MP_TABLE = :TABLE AND
MP_CLE_INDIVIDU = :KLE_FICHE AND
MP_TYPE_IMAGE = 'A'
MP_IDENTITE = 0
(ne pas oublier le param KLE_FICHE)

dans la proc btnActeClick (ligne 1122) ajouter
IBMultimedia.Params[3].AsInteger := DataSource.DataSet.FieldByName('EV_IND_KLE_FICHE').AsInteger;

A++
Pierre

danielos · Posté le: 16 Mar 2004 10:19 Sujet du message:

Bonjour,

Je suppose que ceci est l'explication à ma constatation suivante :
Dans un évènement d'une personne, en validant ensuite l'acte dans la feuille ad-hoc avec la case en bout de ligne. Cet évènement se voit attribué un média d'office qui n'a rien à voir avec lui... il est impossible ensuite de le lui retirer sauf en supprimant le média ce qui impacte la réelle personne concernée par le média ou en faisant un RAZ dans le feuillet acte, ce qui revient à reconnaître que l'acte n'est toujours pas trouvé.

La remarque de pthierry est-elle prise en compte et le bug corrigé dans les MAJ ?

Cordialement,

Daniel

pthierry · Posté le: 16 Mar 2004 13:29 Sujet du message:

Ceci a été corrigé depuis longtemps
qu'elle est la version d'Ancestro ?
_________________
N'oubliez pas la fonction Rechercher...
Cordialement Pierre

danielos · Posté le: 16 Mar 2004 14:52 Sujet du message:

La version d'ancestrologie est 1.7.0.5

Lau · Pro, Modérateur Inscrit le: 01 Avr 2003 Messages: 1541

Ta version date du 06/04/2003 ! Une petite mise à jour s'impose. La version en ligne est toutefois payante (cf. forum pour plus d'infos), mais d'autres versions gratuites ont eu lieu entre temps.