#3421 template_creaPatientsSystem

[creaMiniTools.git] / appli / template_creaPatientsSystem / scripts / 00100_InsertDataA.bbs

diff --git a/appli/template_creaPatientsSystem/scripts/00100_InsertDataA.bbs b/appli/template_creaPatientsSystem/scripts/00100_InsertDataA.bbs
index f205219ba1dc88743803b8912a12d8a642efb4ba..58f7adb0d8c89326ae26bbb28775e264a28a0a18 100644 (file)
--- a/appli/template_creaPatientsSystem/scripts/00100_InsertDataA.bbs
+++ b/appli/template_creaPatientsSystem/scripts/00100_InsertDataA.bbs
@@ -1,6 +1,6 @@
 # ----------------------------------
 # - BBTKGEditor v 1.4 BBS BlackBox Script
-# - /Users/davila/CreatisWork/tmpCharly/creaBrainGrayMatter/appli/Appli_creaGM/scripts/00100_InsertDataA.bbs
+# - /Users/davila/Creatis/C11/creatools_source/creaMiniTools/appli/template_creaPatientsSystem/scripts/00100_InsertDataA.bbs
 # ----------------------------------
 
 # BBTK GEditor Script
@@ -14,6 +14,7 @@ include creaVtk
 include creaImageIO
 include std
 include vtk
+include creaMiniTools
 
 author "Author ??"
 description "Description ??"
@@ -48,7 +49,7 @@ new wx:InputText Box14
   set Box14.Title "Id"
 
 new wx:CommandButton Box15
-  set Box15.Label "Save & Exit"
+  set Box15.Label "Save and Close"
 
 new std:ConcatStrings Box16
 
@@ -113,6 +114,14 @@ new std:ConcatStrings Box38
 new std:ConcatStrings Box40
   set Box40.In2 "/Parameters.txt"
 
+new std:MagicBox Box41
+
+new creaMiniTools:WriteStatePatientSystem Box42
+  set Box42.State "Finish"
+
+new std:ConcatStrings Box43
+  set Box43.In2 "/Step01_Insert_Data.txt"
+
 
 connect Box00.Widget Box04.Widget2
 
@@ -185,8 +194,6 @@ connect Box24.BoxChange Box33.In1
 
 connect Box22.BoxChange Box33.In3
 
-connect Box29.BoxChange Box33.In5
-
 connect Box34.Widget Box02.Widget3
 
 connect Box09.Out Box34.In
@@ -208,8 +215,20 @@ connect Box40.Out Box37.FileName
 connect Box36.Out Box38.In3
 
 
+connect Box42.boxChange Box33.In4
+
+connect Box29.BoxChange Box33.In9
+
+connect Box17.Out Box43.In1
+
+connect Box43.Out Box42.FileState
+
+connect Box41.Out Box42.User
+
+
 
 # Complex input ports
 input ProjectDir Box16.In1 " "
+input creaUser Box41.In " "
 exec Box03
 exec Box11