BeginForm(BeforeItemInsert)
    Set(@WMSDATA.Name,@WMSDATA.Name+" BeforeItemInsert")
    Set(@WMSDATA.TrackingType,1)
EndForm()