tbl.rules_get() problem

[Tim Kiebert]

Re: tbl.rules_get() problem

Ahh, now I remember. is it possible that there have no field rules been set for this table?

Just entering a default description in any field will set up the rules. I think on a new table there are no rules setup in the dictionary.

[Mike Wilson]

Re: tbl.rules_get() problem

Thanks Tim,
but it is not happening!

dim tablename as C = "company"
' show the field exists
? table.external_field_name_get(tablename,"N")
= CO_ID_NO
COMPANY
CO_TYPE
CO_PHONE
CO_PHONE2

dim fr as P
dim fld as c = "co_id_no"
t=table.open("company")
fr = t.rules_get()
?eval("fr."+fld+".data_type")
ERROR: Property not found
fr.co_id_no subelement not found.

t.close()

?eval("fr."+fld+".data_type")
ERROR: Property not found
fr.co_id_no subelement not found.

[Mike Wilson]

Re: tbl.rules_get() problem

Hi John,
I was working off the code from Stan Matthews in this thread.
http://msgboard.alphasoftware.com/al...ules_get%28%29

No go with your additions. Frustrating!

[Tim Kiebert]

Re: tbl.rules_get() problem

You need to leave the table open while working with the fr pointer since it is a pointer to the rules using the pointer to the open table.

dim fld as c = "accttype"

t=table.open("cust")

fr = t.rules_get()

?eval("fr."+fld+".data_type")
= "User"

t.close()

?eval("fr."+fld+".data_type")
ERROR: Property not found
fr.accttype subelement not found.

As John mentioned you can also get a pointer to the field but then the fr pointer is restricted to the rules of that field.

And as a rough guide use eval to get a value and evaluate template to perform an action.

[JohnZaleski]

Re: tbl.rules_get() problem

MIke,
I believe you have to establish a pointer to the field whose properties you seek first.
fld = tb1.field_get("field_name")
fr = fld.rules_get()
?fr.data_type
John

[Mike Wilson]

I don't quite know why this isn't working. What am I doing wrong?

Also, is there a way to use this so a variable holding the field name would work. Maybe like: eval("fr."+fieldvariable+".data_type), or would it be evaluate_template()? Or neither... it won't work. I am trying to get returned what the data_type for a field is for a larger function.

Thanks.

dim tablename as C = "cash"
' show the field exists
? table.external_field_name_get(tablename,"N")
= CASH_COMPANY
CASH_ACCOUNT
CASH_BALANCE
SUM_LINK
dim tbl as P
dim fr as P

tbl = table.open(tablename)
fr = tbl.rules_get()
tbl.close()

? tablename
= "cash"

? fr.cash_account.data_type
ERROR: Property not found
fr.cash_account subelement not found.