is_dirty=This.Dirty
	if is_dirty<>0 then
		st_msg="¿Desea guardar los cambios?"
		ok=appdata.UserInterface.MsgBox (st_msg,"ATENCION!",4)
		if ok=6 Then
			This.save
		end if
	end if