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

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,
-- 
Kenneth

If you email... Please remove the "SPAMLESS."