Help with Conditional Dialogue Box

[Themis Skiathitis]

Gusy I'm really sorry for taking up your time, but I'm stuck on what should be a simple pop-up dialogue box.

I want to have an conditional dialogue box if the client has outstanding amounts. I've tried a number of things that have been added as an on depart action that runs a script.

If I use what is shown below absolutely nothing happens. If on the other hand I remove the tbl commands and just put the if-then statement I get a box telling me there is an error on either the tbl1 portion, which when removed gives an error about the amountowed field. What am I missing here?

tbl1 = table.open("clients.dbf") 'open tbl
tbl1.index_primary_put("ClientID") 'set index
If tbl1.amountowed > 0 then
ui_msg_box("There are fees owed on this account!!")
end if
tbl1.close()

I just want to make sure that the operator knows there are outstanding amounts. Any help would be appreciated and as usual thanks in advance.

[Themis Skiathitis]

RE: Help with Conditional Dialogue Box

Err. that was supposed to be guys not gusy, I don't know anyone on the list named Gus :( oh dear

[JerryBrightbill]

RE: Help with Conditional Dialogue Box

I appears that you are not fetching any records. The code you have is ok, but you need to find a record to evaluate the field value "amountowed" Since you appear to be looking for a specific clientID, you have to fetch a record with that clientID. Here is typical code to doe this, using what you already have

'------ Example of typicazl code to add -----

' create a variable to store the id to search

dim client_ID as c ' assuming the ID field is character

client_ID = "some value id value" ' set the ID to a valid ID

'------------ Now use your code ------

tbl1 = table.open("clients.dbf") 'open tbl
tbl1.index_primary_put("ClientID") 'set index

'------- Fetch the record with a matching ID
if tbl.fetch_find(client_ID) 0 then
ui_msg_box("There are fees owed on this account!!")
end if
tbl1.close()

'------ End code

Your ui_msg_box also has a syntax error. You need a title and a message. You have only specified the title part, and I think you want that to be the message. Add one or the other

ui_msg_box("Fees","There are fees owed on this account!!")

Another little enhancement would be to include the balance in the message. Since you have the record and have checked the balance, you could do this:

dim amt_owed as n
amt_owed = tbl1.amountowed

If amt_owed > 0 then
ui_msg_box("Balance = $"+alltrim(str(amt_owed,10,2)),"There are fees owed on this account!!")
end if
tbl1.close()

This will put the amount owed in the title. You have to convert the numeric value to character first, which is the purpose of the

alltrim(str(amt_owed,10,2))

Jerry

[JerryBrightbill]

RE: Help with Conditional Dialogue Box

doe this = do this. Lack of spel check gets us agin.

Jerry

[Themis Skiathitis]

RE: Help with Conditional Dialogue Box

Hi jerry and thanks for that it helped a lot. The thing is that the record is already found. The script is run as an "on depart" action action when the operator has found the correct client. I want the pop up box to display when he leaves that field to begin doing the clients next transaction.

I'm currently scouring the xbasic manual to see if I can find a tbl.fetch_current command which I hope would then do the trick.

Thanks again :)

[JerryBrightbill]

RE: Help with Conditional Dialogue Box

When you use table.open(), you open the table in a new session. This session has no link to any session already open, so even if you have found a record, the new session is unique and unrelated. If this is occuring in a form environment, then you can use

tbl1 = table.current()

to get a pointer, rather than opening a new session. If this is in a set, you may need to get the slot number of the table in the set to get the correct table. The parent table is slot 1 (the default). This first child is slot 2, etc. The slot number is optional.

table.Current() is the same as table.current(1)

If you are putting the code on the OnDepart event for a field there is no reason to open another instance of the table. This is all you need:

tbl1 = table.current()

dim amt_owed as n
amt_owed = tbl1.amountowed

If amt_owed > 0 then
ui_msg_box("Balance = $"+alltrim(str(amt_owed,10,2)),"There are fees owed on this account!!")
end if
tbl1.close()

Jerry

[Themis Skiathitis]

RE: Help with Conditional Dialogue Box

Hi Jerry and thanks again. Well I've used the following;

tbl1 = table.current() 'open tbl
dim amt_owed as n
amt_owed = tbl1.lateowed

If amt_owed > 0 then
ui_msg_box("Balance = $"+alltrim(str(amt_owed,10,2)),"There are fees owed on this account!!")
end if
tbl1.close()

When the cursor exits the field i get an error saying;

cannot close the main table for the session

When I click abort the pop up box appears with everything where it sould be.

When I try to close I get the same error and when I hit abort it completes and closes the pop up.

Any idea what could be causing this?

[Themis Skiathitis]

RE: Help with Conditional Dialogue Box

ok final update.... removed the tbl1.close() and everything works flawlessly now :)

[JerryBrightbill]

RE: Help with Conditional Dialogue Box

Sorry about the error. When I did a cut and paste, I picked up the tbl1.close() in error. Your interpretation of the error message was correct.

Jerry

[Themis Skiathitis]

RE: Help with Conditional Dialogue Box

No worries Jerry, if it wasn't for you I'd have lost what little hair I had left :)

[Ken L Herrold]

RE: Help with Conditional Dialogue Box

Themis:

Have you tried lookupN()?

Ken

[Themis Skiathitis]

RE: Help with Conditional Dialogue Box

Hi Ken, hane't really had a chance to fully come to grips with the way I would use that command. Have been testing various things with it and it does look as if I'll be bale to integrate into what I'm doing but of course I really need to get a really good undertsanding of how it works.

I'll keep you posted as I go along :)