From: olivier <olivier@3bf09e05-f825-4182-b9bc-eedd7160adf0>
Date: Sat, 3 May 2008 15:29:36 +0000 (+0000)
Subject: add 4d item performances (formations) export script
X-Git-Url: https://git.parisson.com/?a=commitdiff_plain;h=6c7bc116f7e32ba22ac6e13e279c6a9cb834a7e7;p=telemeta-data.git

add 4d item performances (formations) export script

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

diff --git a/docref/tools/export_formations_4d.txt b/docref/tools/export_formations_4d.txt
new file mode 100644
index 0000000..a1e6659
--- /dev/null
+++ b/docref/tools/export_formations_4d.txt
@@ -0,0 +1,22 @@
+
+$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 
+