robinbloke (
robinbloke) wrote2001-09-06 02:41 pm
![[personal profile]](https://www.dreamwidth.org/img/silk/identity/user.png)
Yes!
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.
no subject
At least in greek you can dictionaries and 'how to learn' manuals, no such thing for this hideous so-called language
Bleh