~ReadersDef(Load,~GetParam($RdrId),RDR) ~RdrCodeDef(Load,~GetParam(RDR.CODE),RDC)
| Максимально допустимое количество выданных книг: | ~GetParam(RDC.MaxDocHand) |
| Количество выданных книг на текущий момент: | ~SqlGetInt(SELECT COUNT(*) FROM BOOKSTATES WHERE RDR_ID=~SQLT(~GetParam($RdrId)) AND (INV_ID IS NOT NULL OR INV_ID <> '') AND STATE IN(4,7,9)) |
| Максимально допустимое количество заказанных книг: | ~GetParam(RDC.MaxDocOrder) |
| Количество заказанных книг на текущий момент: | ~SqlGetInt(SELECT COUNT(*) FROM BOOKSTATES WHERE RDR_ID=~SQLT(~GetParam($RdrId)) AND (INV_ID IS NULL OR INV_ID = '') AND STATE IN(2,6,7,9)) |
| Количество просроченных книг: | ~SetParam(DeptCount,~SqlGetInt(SELECT COUNT(*) FROM BOOKSTATES WHERE RDR_ID=~SQLT(~GetParam($RdrId)) AND STATE=4 AND RETDATE < ~Today()))~GetParam(DeptCount) |
| Ближайшая дата возврата книг: | ~IntIf(~GetParam(DeptCount),=,0,~SetParam(rdate,~SqlGetString(SELECT MIN(RETDATE) FROM BOOKSTATES WHERE RDR_ID=~SQLT(~GetParam($RdrId)) AND STATE=4))) ~IntIf(~GetParam(DeptCount),>,0,~SetParam(rdate,~Today())) ~IntIf(~GetParam(rdate),>,0,~SetParam(retd,~GetDate(~GetParam(rdate))))~GetParam(retd) |