How should this be coded in NTWS?
alh:actiontaken = Choose(ThisWindow.Request,'Add','Change','Delete')
I get these errors when trying to run "normal" code in NTWS
Unknown identifier: THISWINDOW -
Field not found: REQUEST -
Too few parameters -
Must specify identifier -
Unknown identifier: HISTORY::BRA:RECORD -
Too few parameters -
Must specify identifier -
Unknown identifier: HISTORY::BRA:RECORD -
PostUpdate Routine
! Start of "On Update : Form ends : following disk write"
! [Priority 4000]
Access:auditlogheader.PrimeRecord()
alh:logtimestamp_DATE = Today()
alh:logtimestamp_TIME = Clock()
!alh:username = GLO:Username
alh:tablename = 'brandnames'
alh:keyname = 'bra:brandnames_pkey'
alh:keyvalue = bra:brandnamesysid
alh:procedurename = GlobalErrors.GetProcedureName()
alh:actiontaken = Choose(ThisWindow.Request,'Add','Change','Delete')
Access:auditlogheader.Insert()
Stream(auditlogdetail)
Loop i# = 1 to brandnames{Prop:Fields}
If Clip(What(History::bra:Record,i#)) <> Clip(What(bra:Record,i#))
Access:auditlogdetail.PrimeRecord()
ald:auditlogheadersysid = alh:auditlogheadersysid
ald:columnname = Sub(Who(bra:Record,i#),7,Len(Clip(Who(bra:Record,i#))))
ald:oldvalue = What(History::bra:Record,i#)
ald:newvalue = What(bra:Record,i#)
Access:auditlogdetail.Insert()
End
End
! End of "On Update : Form ends : following disk write"