~SetParam(tab,~DocDef(GetItemAllocationTable,?)) ~IfExists(~GetParam(tab),,~Stop()) ~SetParam(tab,~Replace(~GetParam(tab),FORBIDORDER,Заказ запрещен)) ~ArrayFromString(aBPS,~GetParam(tab),|) ~Repeat(cntBP,~ArrayCount(aBPS), ~ArrayClear(aBP) ~ArrayFromString(aBP,~ArrayGet(aBPS,~GetParam(cntBP)),;) ~SetParam(IDP,~BPDef(GetIDP,~ArrayGet(aBP,1))) ~SetParam(BP,~ArrayGet(aBP,1)) ~SetParam(ErrNum,~ArrayGet(aBP,3)) ~IntIf(~GetParam(ErrNum),=,0,~SetParam(OP,Есть свободные экземпляры)) ~IntIf(~GetParam(ErrNum),>,0,~SetParam(OP,~CallScript(OrderErrMessage.scp))) )
Пункт книговыдачи
Сигла хранения Всего В наличии Заказано
Статус
,0, disabled )\ ~IntIf(~GetParam(CHECK)~GetParam(ErrNum),=,0, checked ~SetParam(CHECK,1))>~GetParam(BP) ~ArrayClear(aSGS) ~ArrayFromString(aSGS,~ArrayGet(aBP,2),:) ~Repeat(cntSG,~ArrayCount(aSGS), ~ArrayClear(aSG) ~ArrayFromString(aSG,~ArrayGet(aSGS,~GetParam(cntSG))) )
~ArrayGet(aSG,1) ~ArrayGet(aSG,2) ~ArrayGet(aSG,3) ~ArrayGet(aSG,4)
~GetParam(OP)