Re: Same form, but one system GPFs...?

I haven't finished the whole thread but it seems you are violating all 
sorts of best practices. Ones I've noticed so far:

Seems you have no record object containing your fields (MRO or TF) but a 
box instead. BAD IDEA.

You are using long names

You are using characters that should not be used in names (only use a to 
z, A to Z and 0-9, no spaces, dashes, underlines or odd characters)

You are using cFunctions on a network.

I strongly suggest you check out my Database Basics paper (link in my 
signature) for common pitfalls and best practices. It can save you a lot 
of grief.

Kenneth wrote:
> On Fri, 15 Feb 2008 10:46:42 -0700, "Tony McGuire"
> <png.paradoxcommunity@[EMAIL PROTECTED]
> wrote:
> 
>>> For the first five entries, all was well, but then, she got
>>> the GPF as before.
>> At this point, you need to show the code used on the form. 
>> (action/arrive/depart/open/etc)
>>
>> Is the form opened/closed for each 'entry'?
> 
> Hi Tony (and all),
> 
> I rebuilt the form from scratch (new form, re-drew all
> objects, cut & pasted code from old form to new) and put the
> new form on our server.
> 
> Just as before, when opened from all but one machine, it
> works fine, but when the brand new form is opened on one
> machine, it causes GPFs as did the old form.
> 
> The new form has one page. On that page is a box that
> contains all the form's fields (about a dozen of 'em).
> 
> Here is all the code:
> 
> On the form:
> 
> method close(var eventInfo Event)
> if eventInfo.isPreFilter() then
>       ;// This code executes for each object on the form
>    else
>       ;// This code executes only for the form
> endEdit()      
>    endIf
> endMethod
> 
> 
> 
> On the Page:
> 
> method action(var eventInfo ActionEvent)
> var
>    TC TCursor
> endVar
> if eventInfo.id()=dataInsertRecord then
>    edit()
>    doDefault
>    tc.open(":DATA:$KSA08.DB")
>    Entry=tc.cmax("Entry")+1
> endif
> if eventInfo.id()=dataEndEdit then
> self.end()
> endIf
> endMethod
> 
> 
> 
> On the box:
> 
> method open(var eventInfo Event)
> self.end()
> endMethod
> 
> 
> 
> On a field called Balance:
> 
> sum([:MONEY:INVOICES.DUE])  + Sum([:WORK:$KSA08.Amount])
> 
> 
> 
> On a field called Category:
> 
> method newValue(var eventInfo Event)
> if self.value=33 then
>       Dep_On.moveTo()
> endIf
> EndMethod
> 
> 
> 
> On a field called Check:
> 
> method keyPhysical(var eventInfo KeyEvent)
>    var tc tcursor endvar
>    if EventInfo.isControlKeyDown() and eventInfo.vChar()="N"
> then
>    edit()
>    delayScreenUpdates(yes)
>    active.action(EditEnterFieldView)
>    if(self.isblank()) then
>    edit()
>    doDefault
>    tc.open(":DATA:$KSA08.DB")
>    check=tc.cmax("check")+1
>    else
>    Amount.moveto()
>    endif
>    endIf
> endMethod
> 
> 
> 
> On a field called Amount:
> 
> method changeValue(var eventInfo ValueEvent)
> var 
>   userChoice String 
> endVar
> doDefault
> if amount1.value < 7000 then
>    msgInfo("OOOOPS!","Balance Kinda Low...")
> endIf
> if self.value>0 then
>    userChoice = msgQuestion("Question...?", "Is this a
> CREDIT?")
> switch
>    case userChoice = "Yes" :
>      Category.moveTo()
>    case userChoice = "No"  :
>      msgInfo("OOOOPS!","Please add that MINUS SIGN!")
>      amount.moveTo()
> endSwitch
>    EndIf
> endMethod
> 
> 
> 
> On a field called Entry:
> 
> method open(var eventInfo Event)
> self.end()
> endMethod
> 
> method changeValue(var eventInfo ValueEvent)
> doDefault
> action(dataPostRecord)
> endMethod
> 
> method newValue(var eventInfo Event)
> amount.moveTo()
> endMethod
> 
> 
> 
> Of course, I would be most appreciative of any help you
> could provide.
> 
> All the best, and sincere thanks,