create new record based on current record 1

[DanNorris2000]

I have a form that shows claim information. I have a command button on that form that by clicking will(should) create a new record based on the information in the current record.

* CMDADDSUBCLAIMA.CLICK
*
* Add a new Sub Claim
* Get next sub number for this claim

Select claims2
Store 0 to nNextSub
Locate for claims2.claim = thisform.claim.value
Do while found()
nNextSub = nNextSub + 1
Continue
Enddo
thisformset.newclaimA.clmsub.value = nNextSub
* Go to newclaim screen
thisformset.newclaimA.visible=.T.
thisformset.newclaimA.show

When run, newclaimA form never shows, it stays on the original claims screen. Any thoughts?

Object newclaimA has the following for its activate procedure:

thisformset.newclaima.uw.value = thisformset.form1.pageframe1.page1.uw.value
thisformset.newclaima.uw.refresh()
thisformset.newclaima.ctrprefix.value = thisformset.form1.pageframe1.page1.ctrprefix.value
thisformset.newclaima.ctrprefix.refresh()
THISFORMSET.Visible= .T.

 

[DSummZZZ]

If you step through it, is it reaching this code?:

thisformset.newclaimA.clmsub.value = nNextSub
* Go to newclaim screen
thisformset.newclaimA.visible=.T.
thisformset.newclaimA.show

Maybe it's getting caught in the do while loop.
Try changing it to:

SCAN FOR claims2.claim = thisform.claim.value
    nNextSub = nNextSub + 1
ENDSCAN

and see if it helps.



-Dave Summers-

Even more Fox stuff at:

http://www.davesummers.net/foxprolinks.htm

 

[DanNorris2000]

thanks!
That helped with the exception that my newclaimA form is stuck under my main claim form.

 

[DSummZZZ]

What are your ShowWindow properties on those forms?
You may need to adjust them to have the forms show up right.


-Dave Summers-

Even more Fox stuff at:

http://www.davesummers.net/foxprolinks.htm

 

[DanNorris2000]

On click:
* Go to newclaim screen
thisformset.newclaimA.visible=.T.
thisformset.newClaimA.WindowState= 0
thisformset.newclaimA.show

Form has
showwindow 2-As toplevel form
windowtype modeless

 

[DSummZZZ]

Try changing it to windowtype modal, and maybe even set showwindow to 1.
If the current top form is 2 and/or modal, it will still take precedence.


-Dave Summers-

Even more Fox stuff at:

http://www.davesummers.net/foxprolinks.htm

 

[DanNorris2000]

With that the sub form never shows

 

[DanNorris2000]

current top form has modeless and as toplevel form

 

[DanNorris2000]

Always on top = .T. did the trick. Thanks for the help

 

[DSummZZZ]

Glad you got it under control.


-Dave Summers-

Even more Fox stuff at:

http://www.davesummers.net/foxprolinks.htm