/// при внесении Экземпляра в список выдачи, отмечаем, что его выдали
/// а при возврате читателем восстанавливаем значение
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