Set initial ids

Author: jginternational

kratos.gid/apps/MdpaGenerator/start.tcl

@@ -18,4 +18,8 @@ proc ::MdpaGenerator::Init { app } {
 
     ::MdpaGenerator::xml::Init
     ::MdpaGenerator::write::Init
+}
+
+proc ::MdpaGenerator::BreakRunCalculation {} {
+    return true
 }

kratos.gid/apps/MdpaGenerator/write/write.tcl

@@ -41,7 +41,14 @@ proc ::MdpaGenerator::write::writeModelPartEvent { } {
 
     # Custom SubmodelParts
     variable last_condition_iterator
-    write::writeBasicSubmodelPartsByUniqueId  $MdpaGenerator::write::ConditionMap $last_condition_iterator
+    set conditions_mode [write::getValue SMP_write_options condition_write_mode]
+    switch $conditions_mode {
+        "unique" {}
+        "repeat" {}
+        "gid-id" {}
+        default {}
+    }
+    write::writeBasicSubmodelPartsByUniqueId $MdpaGenerator::write::ConditionMap $last_condition_iterator
 
     # Clean
     unset ::MdpaGenerator::write::ConditionMap

kratos.gid/apps/MdpaGenerator/xml/Main.spd

@@ -1,8 +1,15 @@
 <?xml version="1.0" encoding="utf-8"?>
 <container n="MdpaGenerator" pn="MdpaGenerator" icon="app" prefix="MDPAGen_" tree_state="open" open_window="0">
-  <container n="WriteOptions" pn="Write options" tree_state="open">
+  <container n="WriteOptions" pn="Write options" tree_state="open" un="SMP_write_options">
     <value n="condition_write_mode" pn="Condition mode" v='unique' values="unique,repeat,gid-id" dict="unique,Unique ids,repeat,Repeat,gid-id,GiD ids"
-    help="Ids policy for conditions applied over the same entity more than one time."/>
+    help="Ids policy for conditions applied over the same entity more than one time.">
+    <dependencies value='unique' node="../value[@n='conditions_start_id']" att1='state' v1='normal' />
+    <dependencies value='repeat' node="../value[@n='conditions_start_id']" att1='state' v1='normal' />
+    <dependencies value='gid-id' node="../value[@n='conditions_start_id']" att1='state' v1='hidden' />
+    </value>
+    <value n="nodes_start_id" pn="Nodes start id" v="1" state="disabled"/>
+    <value n="elements_start_id" pn="Elements start id" v="1" state="disabled"/>
+    <value n="conditions_start_id" pn="Conditions start id" v="1"/>
   </container>
   <include n="GenericSubModelPart" active="1" path="apps/Common/xml/GenericSubModelPart.spd"/>
 </container>

kratos.gid/kratos.tcl

@@ -471,8 +471,8 @@ proc Kratos::Event_BeforeRunCalculation { batfilename basename dir problemtypedi
     if {!$run} {
         return [list "-cancel-" [= "You have selected MPI parallelism system.\nInput files have been written.\nRun the MPILauncher.sh script" ]]
     }
-    set app_run_brake [apps::ExecuteOnCurrentApp BeforeRunCalculation]
-    if {$app_run_brake}
+    set app_run_brake [apps::ExecuteOnCurrentApp BreakRunCalculation]
+    if {[write::isBooleanTrue $app_run_brake]} {return "-cancel-"}
 }
 
 proc Kratos::Event_AfterWriteCalculationFile { filename errorflag } {