{\rtf1\ansi\ansicpg1252\deff0\deflang1036\deflangfe1036{\fonttbl{\f0\froman\fprq2\fcharset0 Times New Roman;}{\f1\froman\fcharset0 Times New Roman;}}
{\colortbl ;\red0\green128\blue0;\red102\green102\blue102;\red0\green0\blue0;\red255\green0\blue0;}
{\*\generator Msftedit 5.41.15.1507;}\viewkind4\uc1\pard\nowidctlpar\cf1\f0\fs20 // DESCRIPTION Suppression des artistes non utilis\'e9s\cf0\lang2057\par
\cf1 // AUTHOR JUIN J\'e9r\'f4me \cf0\par
\cf1 // LANGUAGE All\cf0\par
\cf1\par
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////\cf0\par
\cf1 // \tab\tab\tab\tab\tab\tab DEBUT PROGRAMME\tab\tab\tab\tab           //\cf0\par
\cf1\lang1036 //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////\cf0\par
\par
HLitPremier(A\cf2 RTISTE\cf0 , "\cf2 ARCLEUNIK\cf0 ") \line TANTQUE PAS HEnDehors(A\cf2 RTISTE\cf0 ) \par
\lang2057\tab HL\cf2 itRecherche\cf0  (T\cf2 YPE_ACT\cf0 , "A\cf2 RCLEUNIK\cf0 " , A\cf2 RTISTE.ARCLEUNIK\cf0 )\par
\cf2\tab\cf3 If\cf2   \cf3 Not\cf2  HTrouve () \cf3 Then\cf2\par
\tab\tab\cf1 // Suppression de l'artiste dans TYPE_ACT.fic\par
\cf2\tab\tab\cf4 H\cf2 Supprime (ARTISTE , HNumEnrEnCours)\par
\tab\cf3 End\par
\cf0 HLitSuivant(A\cf2 RTISTE\cf0 ) \line\cf3 End\cf0\lang1036\f1\fs24\par
\f0\fs20\par
\cf2\par
\cf1\lang2057 // Suppression des filmographies FILMOGRAPHIE.fic\par
\lang1036 HLitPremier(FILMOGRAPHIE, "ARCLEUNIK") \lang2057\par
TANTQUE  PAS HEndehors ()\par
\tab HLitRecherche (A\cf2 RTISTE\cf1 , "ARCLEUNIK" , \cf2 FILMOGRAPHIE\cf1 .ARCLEUNIK)\par
\tab\cf3 If\cf1  \cf3 Not\cf2  \cf1 HTrouve() \cf3 Then\cf1\par
\tab\tab // Suppression des lignes si elles le numero d'artiste n'existe pas dans ARTISTE.fic\par
\tab\tab HSupprime (FILMOGRAPHIE , HNumEnrEnCours)\par
\tab\cf3 End\cf1\par
\tab HLitSuivant(FILMOGRAPHIE)\par
\cf3 End\par
\cf2\lang1036\par
\cf1\lang2057 // Suppression des biographies NotEART.fic\par
\lang1036 HLitPremier(\cf3 NOT\cf2 EART\cf1 , "ARCLEUNIK") \lang2057\par
TANTQUE  PAS HEndehors ()\par
\tab HLitRecherche (A\cf2 RTISTE\cf1 , "ARCLEUNIK" , \cf3 NOT\cf2 EART\cf1 .ARCLEUNIK)\par
\tab\cf3 If\cf1  \cf3 Not\cf2  \cf1 HTrouve() \cf3 Then\cf1\par
\tab\tab // Suppression des lignes si elles le numero d'artiste n'existe pas dans ARTISTE.fic\par
\tab\tab HSupprime (\cf3 NOT\cf2 EART\cf1  , HNumEnrEnCours)\par
\tab\cf3 End\cf1\par
\tab HLitSuivant(\cf3 NOT\cf2 EART\cf1 )\par
\cf3 End\par
\cf2\lang1036\par
\cf1 // Suppression des liens inutiles dans la galerie multimedia\par
HLitPremier(\cf3 G\cf2 ALERIE\cf1 , "C\cf2 LE_MAITRE"\cf1 ) \lang2057\par
TANTQUE  PAS HEndehors ()\par
\tab HLitRecherche (V\cf2 IDEOTAP\cf1 , "\cf2 VICLEUNIK\cf1 " , \cf3 G\cf2 ALERIE.CLE_MAITRE\cf1 )\cf2\par
\cf1\tab\cf3 If\cf1  \cf3 Not\cf2  \cf1 HTrouve() \cf3 Then\cf1\par
\tab\tab // Suppression des lignes si elles le numero d'artiste n'existe pas dans ARTISTE.fic\par
\tab\tab HSupprime (\cf3 G\cf2 ALERIE\cf1  , HNumEnrEnCours)\par
\tab\cf3 End\cf1\par
\tab HLitSuivant(\cf3 G\cf2 ALERIE\cf1 )\par
\cf3 End\par
\cf2\lang1036\par
\cf0\par
}