5 ######################################################
6 # Exception on attemp to save a document that contains empty TDataStd_Name
7 ######################################################
8 # Crash on NT during document saving (SAM1344-#2153)
9 ######################################################
13 NewDocument D MDTV-Standard
16 # Add an attribute to a data framework
20 SetName D ${aLabel} ${aSetAttr1}
22 # Close/Open the transaction
26 set aFile ${imagedir}/OCC425.std
27 catch {file delete ${aFile}}
29 if { ![file exists ${aFile}] } {
30 puts "There is not ${aFile} file; SaveAs command: Error"
33 catch {exec chmod 777 ${aFile}}
35 # Restore the document
39 # Get a value of the attribute
41 set IsDone [catch {set aGetAttr3 [GetName DD ${aLabel}]} aResult]
42 if { ${IsDone} != 0 } {
46 if { ${aSetAttr1}!=${aGetAttr3} } {
47 puts "aSetAttr1=${aSetAttr1} aGetAttr3=${aGetAttr3}"
48 puts "Get a value of TDataStd_Name attribute from restoring document: Error"
52 if { ${IsGood} != 1 } {