Список проголосовавших за комментарий "<blockquote><p>slip=5<br/> <br/> ' Получаем шаг цены и проскальзывание<br/> NEW_GLOBAL(«STEP»,0)<br/> IF STEP=0<br/> STEP =0+GET_PARAM(ClassCode, SecCode, «SEC_PRICE_STEP») 'получаем шаг цены<br/> END IF<br/> STEPslip=STEP*Slip</p><p><br/> <br/> Функция продажи<br/> FUNC SELL(ClassCode, SecCode, Quantity)<br/> PriceBid =0 + GET_PARAM (ClassCode,SecCode,«BID») 'получаем лучшую цену спроса<br/> PriceSell = PriceBid-STEPSlip 'рассчитываем цену продажи с учетом заданного проскальзывания<br/> IF PriceBid>0<br/> SEND_ORDER («S», PriceSell, «M», SecCode, ClassCode, Quantity)<br/> WRITELN (test, DATE &" "& curtime&" Заявка на продажу, цена: "&PriceSell&" Количество: "&Quantity &" Бид: " &PriceBid)<br/> END IF<br/> Return<br/> END FUNC</p></blockquote>"