~SqlSetQuery(Q1,SELECT bs.CHSDATE,bs.RETDATE,d.DOC_ID,bp.SHORTNAME, i.T090f FROM BOOKSTATES bs,DOC d,INV i, BOOKPOINTS bp \ WHERE RDR_ID=~SQLT(~GetParam($RdrId)) AND bs.STATE =~GetParam($HandId) AND i.DOC_ID=d.DOC_ID AND \ bs.INV_ID=i.INV_ID AND bs.IDP=bp.IDP) ~SetParam(Counter, 0) ~SqlForEveryRow(Q1, )
   Номер Библиография Пункт книговыдачи(Сигла) Дата выдачи Дата возврата
~SetParam(ChsDate, ~SqlGetColumn(Q1, 1)) ~SetParam(RetDate, ~SqlGetColumn(Q1, 2)) ~IntIf(~Today(),>,~GetParam(RetDate), !) ~IntIf(~Today(),<=,~GetParam(RetDate), ) ~AddParam(Counter, 1) ~GetParam(Counter) ~LoadDocById(~SqlGetColumn(Q1, 3)) ~GetTitle() ~SqlGetColumn(Q1, 4)(~SqlGetColumn(Q1, 5)) ~GetDate(~GetParam(ChsDate)) ~GetDate(~GetParam(RetDate))