>if rsSeatMaps.SeatMapID = 0 > .cmdAdd.enabled = .f. > .cmdDelete.Enabled = .f. > .cmdSeatCoordinates.Enabled = .f. > endif > > .RunActivate = .f. > if not isnull(rsSeatMaps.SeatMap) > try > .imgMap.pictureval = rsSeatMaps.SeatMap > catch to loException > =messagebox('There is a problem with the selected picture: ' + loException.message + ; > chr(13) + 'Please, re-try with a different picture...', 48, 'Problem with image') > endtry > endif > lnTemplateID = rsSeatMaps.TemplateId > > if m.lnTemplateID > 0 and seek(m.lnTemplateID, 'rsTemplates', 'TemplateID') > thisform.TemplateDescription = alltrim(rsTemplates.descrip) > endif > .refresh()>