Post() method in caninsertrecord in grid

[EricN]

So far I have this in my grid's caninsertrecord event connected to "posts" table

If (DataSubmitted.Site_name = "") then
Result.Cancel = .t.
Result.ErrorHTML = "Please enter your site name and information."
exit function
end if

dim tbl as p
dim Ads_allowed as n

tbl = table.open("[PathAlias.ADB_Name]\users.dbf")
' subtract 1 from Ads_allowed
post.t_db = "[PathAlias.ADB_Name]\users\Ads_allowed"
post.m_key = "userid"
post.t_key = "userid"
post.m_filter = " "
post.m_count = 1
post.m_field1 = "ads_allowed"
post.m_exp1 = "ads_allowed" - 1
post.t_count = 0
tbl.post()
ui_msg_box("Your job has been posted.")
Result.Cancel = .f.
Result.ErrorHTML = ""
end with
end function

I want to subtract 1 from the Ads_allowed field in the users table each time the user presses the submit button and successfully enters a new record.

I'm getting this error.
500 Internal Server Error
"Script Error
Error:command: post.m_exp1 = "ads_allowed" - 1
Argument is incorrect data type"

[EricN]

Re: Post() method in caninsertrecord in grid

Wish I could edit my original post above...

I have this in my grid's caninsertrecord event connected to "posts" table

dim tbl as p
dim Ads_allowed as n
dim Ad_count as n
dim Post_limits as n

' subtract 1 from users table's (Post_limits field) using posts table's (ad_count field) which is set to 1
tbl = table.open("[PathAlias.ADB_Name]\posts.dbf")
post.t_db = "[PathAlias.ADB_Name]\users"
post.m_key = "userid"
post.t_key = "userid"
post.m_count = 1
post.m_field1 = "Ad_count"
post.m.exp1 = "Ad_count - @Post_limits"
'post.m_exp1 = "Post_limits - @Ad_count"
post.t_count = 0
tbl.post()
ui_msg_box("Your job has been posted.")


I want to subtract 1 from the Ads_allowed field in the users table each time the user presses the submit button and successfully enters a new record.

I'm now getting this error
500 Internal Server Error
"Script Error
Error:command: tbl.post()
Required variable post.m_exp1 was not defined."

If I do this
'post.m.exp1 = "Ad_count - @Post_limits"
post.m_exp1 = "Post_limits - @Ad_count"

I get this error
500 Internal Server Error
"Script Error
Error:command: tbl.post()
Variable post.m_exp1 references a non-existent field POST_LIMITS - @AD_COUNT."

[EricN]

Re: Post() method in caninsertrecord in grid

I'm getting closer. This is what I now have in caninsertrecord for my grid


dim dbl as p
tbl = table.open("[PathAlias.ADB_Name]\users.dbf")
post.t_db = "[PathAlias.ADB_Name]\posts.DBF"
post.m_key = "USERID"
post.t_key = "USERID"
post.m_filter = ""
post.t_filter = ""
post.m_count = 1
post.m_field1 = "Post_Limits"
post.m_exp1 = "Post_Limits-@Posts->Ad_Count"
post.t_count = 0
tbl.post()

I don't get any errors on the screen but:
1) It updates all the records in my users table regardless of userid during a transaction.
2) It subtracts more 1 for each post. It is adding all the previous posts with same userid and subtracting the total from the users field.

Filter?

[MikeC]

Re: Post() method in caninsertrecord in grid

Eric,

Either a filter or how you are determining the Ad_Count. You stated that Ad_Count is a field when I would think that it should be just a Calculated field. If it really is a Calc field then this is the first place I would look to see if your calc script is correct or needs to be modified.

Note: Web side is the Dark side to me yet! But this question is sort of cross platform so put my 2 cents in!

[EricN]

Re: Post() method in caninsertrecord in grid

Thank you for responding Mike.
I think I will take Pat and Doug's suggestion to me in this thread http://msgboard.alphasoftware.com/al...ad.php?t=71282 using the dbcount()

After reading up on it, it does seem to make much more sense to me.