I have been having a problem for quite a while now and I've had no luck in getting it resolved. I'm afraid you are the last resort.

As I said, I've had this problem for a while. I just upgraded to OIS4W 3.6. I ran fixvol and SCAN_REP successfully. My problem still exists.

I've created a form and added 4 DBEditLine's. The first DBEditline is KEY. The second and third are FIRST_NAME and LAST_NAME. They are both set up with XREF columns. The fourth DBEditline is ACCT_GUAR. When the form is opened, the CREATE event in the window starts an IndexLookup. If I press Escape, I clear the IndexLookup window and a Read/Write Error Window opens. It says All key values are empty. I click on the OK button and the window clears. I then press the F8 key and the next SeqKey is entered in the Key DBEditline. The script for the CREATE event is:

Declare Subroutine Send_Event,Set_Property

Declare Function IndexLookup

Key=IndexLookup(CtrlEntID1,'F.','ACCT_GUAR_TEST','FIRST_NAME_XREF':@VM:'LAST_NAME_XREF','FIRST_NAME':@VM:'LAST_NAME','SINGLE',) v=Set_Property(CtrlEntID:'.KEY','TEXT',Key) Send_Event(CtrlEntID1,'.','READ') RETURN 0 I then enter the first name and the last name of the Person1. I tab into Acct Guar and the Account Guarantor window opens. The message is Who is the guarantor for this patient? There are three buttons: Self, Other and Cancel. For Person1 I click on Self. I save Person1 and enter Patient2. When I get to Acct Guar, I click on Other. The IndexLookup window pops up and I enter the first name and last name of Person1. This is where the problem starts. The Selection List pops up and is immediately followed by the Account Guarantor window. The Account Guarantor window should not pop up again and I can't figure out the problem. The following is the script from the Acct Guar GotFocus script: Declare Subroutine Get_Property,Set_Property,Send_Event Declare Function Repository,Send_Event,IndexLookup AG=Get_Property(CtrlEntID1,'F.':".ACCT_GUAR","TEXT") If AG=" Then RB=Repository("EXECUTE","DENT*MSG**ACCT_GUAR",@WINDOW,"") Begin Case Case RB=1" ; * Self Selected Set_Property(CtrlEntID1,'F.':".ACCT_GUAR","TEXT",@ID) AG=@ID Case RB=2" ; * Other Selected Retval=IndexLookup(CtrlEntID1,'F.','ACCT_GUAR_TEST','FIRST_NAME_XREF':@VM:'LAST_NAME_XREF','FIRST_NAME':@VM:'LAST_NAME','SINGLE',)

			Set_Property(CtrlEntID1,'F.':".ACCT_GUAR","TEXT",Retval)

			AG=Retval

		Case RB=3" ; * Cancel Button

			Send_Event(CtrlEntID,"GotFocus")

	End Case

End

RETURN 0

So the bottom line is how do I stop the second Account Guarantor window from popping up? I am desperate!

Thank you,

Richard Richter

Richard,

Andrew and Don both posted answers to your problem. Please let us know if it doesn't help. If not you might consider calling Technical Support.

John Revelation

View this thread on the Works forum...