From: olivier <olivier@3bf09e05-f825-4182-b9bc-eedd7160adf0>
Date: Tue, 17 Jun 2008 14:22:55 +0000 (+0000)
Subject: moved 4d method file
X-Git-Url: https://git.parisson.com/?a=commitdiff_plain;h=9fba08ab10c454a38ff1c9bb969841d2ddfb69f7;p=telemeta-data.git

moved 4d method file

git-svn-id: http://svn.parisson.org/svn/crem@32 3bf09e05-f825-4182-b9bc-eedd7160adf0
---

diff --git a/docref/tools/export_formations_4d.txt b/docref/tools/export_formations_4d.txt
deleted file mode 100644
index a1e6659..0000000
--- a/docref/tools/export_formations_4d.txt
+++ /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 
-