{\rtf1\ansi\ansicpg1252\deff0\deflang1036{\fonttbl{\f0\fmodern\fprq1\fcharset0 Courier New;}{\f1\froman\fprq2\fcharset0 Times New Roman;}{\f2\fswiss\fprq2\fcharset0 Arial;}}
{\colortbl ;\red0\green128\blue0;\red102\green102\blue102;\red0\green0\blue0;}
{\*\generator Msftedit 5.41.15.1507;}\viewkind4\uc1\pard\cf1\f0\fs16 // DESCRIPTION Tous les films sans date d'acquitement seront remplies avec 'aujourd'hui'\cf2\par
\cf1 // AUTHOR JUIN J\'e9r\'f4me \par
// LANGUAGE FR\cf0\f1\par
HLitPremier(VIDEOTAP) \line TANTQUE PAS HEnDehors(VIDEOTAP) \line\cf3\tab If\cf1  (VIDEOTAP.date_acquis) = "" \cf3 Then\cf1  \~\cf0\par
\cf2\tab\cf1\tab\cf2 V\cf1 IDEOTAP.date_acquis = D\cf2 ateDujour ()\cf1\~\~\~\~ // = "20050101"\cf0\par
\cf1\f2\tab\tab HMODIFIE(VIDEOTAP)\cf2\f1\par
\cf1\tab\tab //Trace (VIDEOTAP.date_acquis)\cf2\par
\cf3\tab End\cf2\par
\cf0 HLitSuivant(VIDEOTAP) \line\cf3 End\par
\cf1\f0 // Si on veut mettre une date pr\'e9cise -> Date au format  - annee - jour - mois sans tiret ou slash = 20052012 (pour le 20 dec 2005)\cf0\f1\par
\f0\fs18\par
}