Xbasic - Switch to Design View

[forskare]

RE: Xbasic - Switch to Design View

Daniel,

Tried you suggestion and it worked, the first time. However, on further attempts, the form goes to new record entry mode. I'm experimenting with the names, parent.form vs browse2, etc.

Any further suggestions you have are more than welcome.

Thanks,

kenn

[forskare]

RE: Xbasic - Switch to Design View

Perhaps some progress:

When I use this script on the button, it filters the records but puts the browse into New Record mode. It correctly gives the total but then as soon as it goes to new record mode the total = $0.

BROWSE2.activate()
Browse2.quick_search()
Parentform.fetch_next()
Parentform.fetch_prev()

(I tried replacing Parentform with Browse2 but that didn't work)

Then, if I use this script, it filters OK but no total update. Rather than go to design mode, I only have to exit the browse and switch parent records and then back again and the total is updated. Getting xpasic to do this should be feasible but the above is quicker and cleaner if the new record mode could be disabled.

BROWSE2.activate()
Browse2.quick_search()

Thanks,

kenn

[forskare]

RE: Xbasic - Switch to Design View

HIP, HIP HORAY!!!!!!!!!!!!!!!!!!!!(:-)

Got it!! Works great! This is what I did (script on the button). I used Action Scripting.

Inline Xbasic
BROWSE2.activate()
Browse2.quick_search()
Activate BROWSE1
Fetch Next
Fetch Previous
Activate BROWSE2

The records are correctly filtered and the amount is correctly shown, even when I continue to filter the already filtered records. Now, I'm going to write that in Xbasic to learn a bit more.

Inline Xbasic
BROWSE2.activate()
Browse2.quick_search()
Activate BROWSE1
Fetch Next
Fetch Previous
Activate BROWSE2

The records are correctly filtered and the amount is correctly shown, even when I continue to filter the already filtered records. Now, I'm going to write that in Xbasic.

Everyone's suggestions contributed to this. Daniel Weiss' suggestion got me over the hump, just had to moidify it. It was a tough, time consuming climb (days) but, is the view ever great from the top! Reminds me of a song with part of the lyrics, "You wouldn't know the good times if it weren't for the bad times". How true that is in database design as well.

Oh, Stephen, I almost forgot, what was the word you used, Persist!!?

Thanks again to everyone!!

kenn (:-)

[JerryBrightbill]

RE: Xbasic - Switch to Design View

Ken,
This is a little long, put here is the process. The xbasic was cut and paste from working scripts.

In my app the main form is a tabbed form called GroupService. DialogReload is identical except there are no fields on the form, just a message "Please Wait � Processing". In my case, I use a button to add the records to the browse with xbasic and at the end of the button I have xbasic shown below. There are three global variables. I save the original tab so that the original form can reopen with the same tab active.

Variables defined in an autoexec script:

Dim global recno as n
Dim global tab as n
Dim global reload as l
**********************************************
On form Groupservice OnExit event: (this saves the record number and tab of the current record)

tbl = table.current(1)
tab = parentform:tabbed1.tab_get()
recno = tbl.recno()
-----------------------------------------------------------------
On button that closes form Groupservice to "fix" index (this also the tab of the current record, opens the dialog, ands sets the logical variable to T)

tbl = table.current()
tab = parentform:tabbed1.tab_get()
if is_object("DialogReload") then
else
:Form.view("DialogReload")
end if
:Groupservice.Close()
end
-----------------------------------------------------------------
On form Groupservice OnInit event: ( when the forms reloads, if reload = .T., then find the last record opened and set the tab to the original)

if reload = .T.
reload = .F.
Parentform:Tabbed1.Tab_set(tab)
tbl = table.current()
tbl.fetch_goto(recno)
Parentform.resynch()
end if
reload = .F.
-------------------------------------------------------------------
On form Groupservice OnActivate event: (close the dialog here)

if is_object("DialogReload")
DialogReload.close()
end if
****************************************************
On form DialogReload OnInit event (not needed, but looks good)

:DialogReload:Tabbed1.Tab_set(tab)
:DialogReload.Resynch()
-------------------------------------------------------------------------------
On form DialogReload OnTimer event (timer is set to .5 sec)

reload = .T.
if is_object("GroupService") then
GroupService.show()
GroupService.activate()
else
:Form.view("GroupService")
end if
end
***************

Hope this gives you some idea of a method to close and reopen a form to the same record. I am doing more than that, but in my case it was necessary.

Jerry

[forskare]

RE: Xbasic - Switch to Design View

Hi Jerry,

Thank you for your time and suggestion. I discovered that the form didn't really need to go to design view and back but could go to the parent browse, do a flip flop on the records there and then back to the original browse. Apparently, a child or grandchild browse has to simply loose focus and gain it again. Strange, but it works.

My method is posted at the end of this thread. Perhaps it may give you some insight to a shorter way in your situation.

Thanks again,

kenn