Список заказанной литературы.
Читатель: ~ReadersDef(GetNameById,~GetParam($RdrId)) № ~GetParam($RdrId)
~ArrayFromString(a,~GetParam($Param))
№
Книга
ПК
Статус
~Repeat(cnt,~ArrayCount(a), ~StrDiv(~ArrayGet(a,~GetParam(cnt)),DocID,IDP,-) ~LoadDocById(~GetParam(DocID)) ~SetParam(IDBS,~DocDef(OrderBook,~GetParam(IDP),~GetParam($RdrId),IDST)) ~IntIf(~GetParam(IDBS),<,0,~SetParam(ErrNum,~SubString(~GetParam(IDBS),1)) ~SetParam(Status,
~CallScript(OrderErrMessage.scp))
) ~IntIf(~GetParam(IDBS),>=,0, ~SetParam(Status,~BSDef(GetStateName,~GetParam(IDST))))
~AddParam(nn,1)~GetParam(nn)
~GetBiblio()
~BPDef(GetName,~GetParam(IDP))
~GetParam(Status)
)
~CallScript(OrderTotal.html)