I could use some help. I have an application that has been working perfectly for more than 2 years. Last week, I finally installed my Alpha Anywhere upgrade (Developer and Application Server), so that I can start using all of the new features. I saved my application in Alpha Anywhere and published it to my server. Aside from other problems I'm having with the new Application Server, one of the biggest problems is that an important feature of my application stopped working.
In my application, my customer adds lots of records at once to the Detail View of the form that are in the same "Office," "County" and "State", so I programmed the system to retain those fields after you Save (submit) the record and add a New Record. As I said, it has worked flawlessly for more than 2 years. Now, when they add a new record, all 3 of those fields revert to "Null." I'm frustrated because when I test the Grid in "Working Preview," it works perfectly. In "Live Preview" and on the Application Server, the fields revert back to "Null". I've attached 2 files showing the system. In Image1, the record was entered and Saved (submitted). In Image2, you can see that when I clicked New Record, the fields were retained. That was done in "Working Preview" and worked perfectly. On the Application Server (and "Live Preview"), it doesn't work.
I'd appreciate any help. Here's the code I used:
AfterUpdateRecord
function AfterUpdateRecord as v (e as p)
e.rtc.State2 = e.datasubmitted.State
e.rtc.County2 = e.datasubmitted.County
e.rtc.Office2 = e.datasubmitted.Office
end function
OnInitialValueCalculate
function onInitialValueCalculate as v (e as p)
dim e.rtc.State2 as c
dim e.rtc.Office2 as c
dim e.rtc.County2 as c
'if e.rtc.mydata.State <> "" then
e.newvalues.State = e.rtc.State2
e.newvalues.County = e.rtc.County2
e.newvalues.Office = e.rtc.Office2
'end if
end function
Hopefully, someone can tell me why this isn't working. I'd appreciate it!
In my application, my customer adds lots of records at once to the Detail View of the form that are in the same "Office," "County" and "State", so I programmed the system to retain those fields after you Save (submit) the record and add a New Record. As I said, it has worked flawlessly for more than 2 years. Now, when they add a new record, all 3 of those fields revert to "Null." I'm frustrated because when I test the Grid in "Working Preview," it works perfectly. In "Live Preview" and on the Application Server, the fields revert back to "Null". I've attached 2 files showing the system. In Image1, the record was entered and Saved (submitted). In Image2, you can see that when I clicked New Record, the fields were retained. That was done in "Working Preview" and worked perfectly. On the Application Server (and "Live Preview"), it doesn't work.
I'd appreciate any help. Here's the code I used:
AfterUpdateRecord
function AfterUpdateRecord as v (e as p)
e.rtc.State2 = e.datasubmitted.State
e.rtc.County2 = e.datasubmitted.County
e.rtc.Office2 = e.datasubmitted.Office
end function
OnInitialValueCalculate
function onInitialValueCalculate as v (e as p)
dim e.rtc.State2 as c
dim e.rtc.Office2 as c
dim e.rtc.County2 as c
'if e.rtc.mydata.State <> "" then
e.newvalues.State = e.rtc.State2
e.newvalues.County = e.rtc.County2
e.newvalues.Office = e.rtc.Office2
'end if
end function
Hopefully, someone can tell me why this isn't working. I'd appreciate it!
Comment