~SetParam(BP,~ArrayGet(aBP,1))
~SetParam(ErrNum,~ArrayGet(aBP,3))
,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) |
)
|
~IntIf(~GetParam(ErrNum),=,0,~SetParam(OP,Есть свободные экземпляры))
~IntIf(~GetParam(ErrNum),>,0,~SetParam(OP,~CallScript(OrderErrMessage.scp)))
~GetParam(OP) |
)