Ha! Finally cracked the swine, see the awesome power of my code... ahem, well actually it's a total mishmash of comments and left over variables as I've only just got it working, but it works dammit!
~
bool SetLink(string ModuleName, string LinkModule)
{
bool Okay = false
AttrDef Attribute
Object Ob
Module Mod
Module m
Object Field
Object Current
m = read("/Test Database Only/Robin/Development/Problem Log", false)
Current = current m
string FieldContents = Current."ECO"
// Step one, obtain the 'module' object from the module name
Mod = read(ModuleName, false)
// Step two, obtain an object for the specified field name in the module
//Attribute = find(Mod, FieldName)
// Step three, locate the object that has the field with the contents of
for Ob in Mod do
{
// Check the attribute in the object...
string Temp = Ob."ECO Number"
if (Temp == FieldContents)
{
ack "Found It " Temp
// Now set the link
Current -> LinkModule -> Ob
break;
}
}
return Okay
}
m = read("/Test Database Only/Robin/Development/Problem Log", false)
Current = current m
SetLink("/Test Database Only/Robin/Development/ECO", "/Test Database Only/Robin/Development/ECO to Problem" )
ack "Link OK"
~
Isn't that just fascinating?
No?
I'm so glad you said that.
~
bool SetLink(string ModuleName, string LinkModule)
{
bool Okay = false
AttrDef Attribute
Object Ob
Module Mod
Module m
Object Field
Object Current
m = read("/Test Database Only/Robin/Development/Problem Log", false)
Current = current m
string FieldContents = Current."ECO"
// Step one, obtain the 'module' object from the module name
Mod = read(ModuleName, false)
// Step two, obtain an object for the specified field name in the module
//Attribute = find(Mod, FieldName)
// Step three, locate the object that has the field
for Ob in Mod do
{
// Check the attribute in the object...
string Temp = Ob."ECO Number"
if (Temp == FieldContents)
{
ack "Found It " Temp
// Now set the link
Current -> LinkModule -> Ob
break;
}
}
return Okay
}
m = read("/Test Database Only/Robin/Development/Problem Log", false)
Current = current m
SetLink("/Test Database Only/Robin/Development/ECO", "/Test Database Only/Robin/Development/ECO to Problem" )
ack "Link OK"
~
Isn't that just fascinating?
No?
I'm so glad you said that.