~SqlSetQuery(Q1,SELECT B.DOC_ID, S.STNAME, B.CHSDATE FROM BOOKSTATES B, STATES S \ WHERE B.RDR_ID=~SQLT(~GetParam($RdrId)) AND B.STATE <>~GetParam($HandId) AND S.IDST=B.STATE) ~SetParam(Counter, 0)
Номер
Автор/Заглавие
Состояние
Дата
~SqlForEveryRow(Q1,
~AddParam(Counter, 1) ~GetParam(Counter)
~LoadDocById(~SqlGetColumn(Q1, 1)) ~GetAuthor()/~GetTitle()
~SqlGetColumn(Q1, 2)
~GetDate(~SqlGetColumn(Q1, 3))
)