Dim Language
Language = HmiRuntime.Language
LookupText SmartTags("TagInternal\Obj_Name"), Object_Number, Language, "ObjectName"
LookupText SmartTags("TagInternal\PType_no"), Object_Number, Language, "PType"
SmartTags("TagInternal\ObjectNumber") = Object_Number
SmartTags("PC_Direct_Interface\Object_No") = Object_Number
LookupText SmartTags("TagInternal\Obj_Des cription"), Object_Number, Language, "ObjectDes cription"
Call s criptStatus (SmartTags("TagInternal\ObjectNumber"))
Call CallFaceplate(SmartTags("TagInternal\ObjectNumber"))