/// Представительниц прекрасного пола больше по статистике
/// Больше ли их среди читателей библиотек - не уверен
 Property female as %Boolen [InitialExpression=1];

/// при внесении Экземпляра в список выдачи, отмечаем, что его выдали
/// а при возврате читателем восстанавливаем значение
Property Vydan as %Boolean [InitialExpression=0];

/// Статус 
Property Status as %Integer(MINVAL=1,MAXVAL=3) [InitialExpression=1,VALUELIST=",1,2,3",DISPLAYLIST=",ни разу,есть,выдан"];

Class Библиотека.СтатусЭкземпляра Extends %Integer {

///Минимальное значение
Parameter MINVAL As INTEGER=1;

/// Максимальное значение
Parameter MAXVAL As INTEGER=3;

/// В хранение
ClassMethod DisplayToLogical(%val As %String) As %Integer {
	Q:"ни разу не выдавался" 1
	Q:"есть" 2
	Q:"выдан" 3
}

/// Из хранения
ClassMethod LogicalToDisplay(%val As %Integer) As %String {
	Q:1 "ни разу не выдавался" 
	Q:2 "есть" 
	Q:3 "выдан" 
}
}

Property Статус As Библиотека.СтатусЭкземпляра [ InitialExpression = 1 ];

ClassMethod ВыдатьЭкземпляр(КодЭкземпляра As %String ) As %Status {
 s sc="", Экземпляр=##class(Библиотека.Экземпляр).%OpenId(КодЭкземпляра,,.sc) Q:'sc sc
 if (Экземпляр.Выдан) { k Экземпляр Q $$$ERROR($$$GeneralError,"Экземпляр уже выдан") }
 s Книга= Экземпляр.Книга, Выдано=Книга.Выдано
 s Книга.Выдано=Выдано-1, Экземпляр.Выдан=1
 Q Экземпляр.%Save()
}

Class Библиотека.Экземпляр Extends %Persistent {

ClassMethod Количество (КодКниги As %String) as %Integer [SqlProc] {
 s Количество="" 
 &sql(Select Count(*) Into :Количество From Библиотека.Экземпляр Where Книга=:КодКниги) 
 Q +Количество 
}

...
}

ClassMethod ВыдатьЭкземпляр(КодЭкземпляра As %String ) As %Status {
 s sc="", Экземпляр=##class(Библиотека.Экземпляр).%OpenId(КодЭкземпляра,,.sc) Q:'sc sc
 if (Экземпляр.Выдан) { k Экземпляр Q $$$ERROR($$$GeneralError,"Экземпляр уже выдан") }
 s Книга= Экземпляр.Книга, Выдано=Книга.Выдано
 s Книга.Выдано=Выдано+1, Экземпляр.Выдан=1
 Q Экземпляр.%Save()
}

 s ( aid, Kolvo )=""

 &sql( Select ID Into :aid From Avtor Where FIO=:FIO ) 

 w !,"Автор ", FIO, " = ", aid

 &sql( Select Count(*) Into :Kolvo From Kniga Where FIO=:aid ) 

 Q +Kolvo

/// Класс-метод ВыдатьЭкземпляр класса <class>Библиотека.Экземпляр</class><br/>
/// Уменьшает счетчик имеющихся экземпляров книги на единицу<br/>
/// <var>КодЭкземпляра</var> - идентификатор Экземпляра Книги<br/>
/// Возвращает результат типа <a href="http://docs.intersystems.com/cache20122/csp/documatic/%25CSP.Documatic.cls?PAGE=CLASS&LIBRARY=%25SYS&CLASSNAME=%25Library.Status">%Status</a>
ClassMethod ВыдатьЭкземпляр(КодЭкземпляра As %String ) As %Status {
 
 s sc="" //В переменную [s]tatus [c]ode запишем результат открытия объекта

 // Пытаемся открыть объект, используя значение concurrency по умолчанию
 // http://docs.intersystems.com/cache20122/csp/docbook/DocBook.UI.Page.cls?KEY=GOBJ_concurrency
 
 // Переменную sc передаем в метод по ссылке -> .sc
 s Экземпляр=##class(Библиотека.Экземпляр).%OpenId(КодЭкземпляра,,.sc) 
 
 // Проверяем результат открытия объекта с укзанным идентификтором
 // Если результат не равен 1, выходим передавая ошибку
 Q:'sc sc
 
 // Проверяем корректность действия к открытому объекту
 if (Экземпляр.Выдан) { //если в экземпляре выставлена отметка о том, что он уже выдан

   k Экземпляр // закрываем открытый объект
   // Выходим, создавая общую ошибку приложения с поясняющим текстом
   Q $$$ERROR($$$GeneralError,"Экземпляр уже выдан") 

 }
 
 /// Основная логика метода 
 s Книга= Экземпляр.Книга // Через связь Экземпляр-Книга получаем доступ к связанному объекту Книга
 , Выдано=Книга.Выдано // и получаем значение свойства Выдано (Экземпляров) объекта Книга

 s Книга.Выдано=Выдано+1 // Увеличиваем счетчик выданных экземпляров в Книге
 , Экземпляр.Выдан=1 // и выставляем отметку в экземпляре, что его больше не выдавали

 /// Возвращаем результат сохранения Экземпляр с новым значением свойства
 /// При сохранении Экземпляра, автоматически сохранится и связанный с ним объект Книга
 Q Экземпляр.%Save()

}