' FUNCTION MaxFtgDate()
'   repaint off
'   vloadif(dpath|"appntmnt.vws")
'   order change physical
'   data query execute "job_reqn.dfq" index "job_reqn.idx"
' ' ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
' '   [Job_Nr] = jobnr
' '   and
' '   not(deleted)
' ' ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
'   if cerror
'     vloadif(dpath|"ordstat4.vw")
'     order change key "[Job_Nr]"
'     data find "[Job_Nr]" equal jobnr options ""
'     lock-record
'       [Fitting_Date]=blank
'     write-record
'     return (1)
'   else
'     maxdate=filemax([Date])            'message "1593/ Max Date:"&date2(maxdate)
'     vloadif(dpath|"ordstat4.vw")
'     order change key "[Job_Nr]"
'     data find "[Job_Nr]" equal jobnr options ""
'     lock-record
'       [Fitting_Date]=maxdate
'     write-record
'   end if
' END FUNCTION ' MaxFtgDate()