]> git.parisson.com Git - telemeta-data.git/commitdiff
moved 4d method file
authorolivier <olivier@3bf09e05-f825-4182-b9bc-eedd7160adf0>
Tue, 17 Jun 2008 14:22:55 +0000 (14:22 +0000)
committerolivier <olivier@3bf09e05-f825-4182-b9bc-eedd7160adf0>
Tue, 17 Jun 2008 14:22:55 +0000 (14:22 +0000)
git-svn-id: http://svn.parisson.org/svn/crem@32 3bf09e05-f825-4182-b9bc-eedd7160adf0

docref/tools/export_formations_4d.txt [deleted file]

diff --git a/docref/tools/export_formations_4d.txt b/docref/tools/export_formations_4d.txt
deleted file mode 100644 (file)
index a1e6659..0000000
+++ /dev/null
@@ -1,22 +0,0 @@
-
-$doc:=Creer document("c:\formations.txt";"TXT")
-Si (ok=1)
-  $tab:=Caractere(9)
-  $fin:=Caractere(13)
-  TOUT SELECTIONNER([Phono])
-  Boucle ($i;1;Enregistrements trouves([Phono]))
-    $cote:=[Phono]Cote_Phono
-    TOUS LES SOUS ENREGISTREMENTS([Phono]Formation)
-    Boucle ($j;1;Sous enregistrements trouves([Phono]Formation)
-      $texte:=$cote+$tab+[Phono]Formation'Instr_Scientif+$tab+[Phono]Formation'Instr_Vernacul+$tab+[Phono]Formation'Interpr?te+$tab+[Phono]Formation'Total_Instrum+$fin
-      ENVOYER PAQUET($doc;Mac vers Windows($texte))
-      SOUS ENREGISTREMENT SUIVANT([Phono]Formation)
-    Fin de boucle 
-    LIBERER ENREGISTREMENT([Phono])
-    ENREGISTREMENT SUIVANT([Phono])
-  Fin de boucle 
-  
-  FERMER DOCUMENT($doc)
-  
-Fin de si 
-