Не полное закрытие ордера...

void _OrderCloseByTrend(int _OrderCloseType){
int _closeType=-1,
i,
_ticket=-1,
_points=0;
double _summ=0.0,
_closePrice=0,
_loss=0.0,
_lots=0.0;

if (_OrderCloseType==OP_BUY){
_closeType=OP_SELL;
_closePrice=Ask;
} // End of if (_OrderCloseTyp==OP_BUY)
if (_OrderCloseType==OP_SELL){
_closeType=OP_BUY;
_closePrice=Bid;
} // End of if (_OrderCloseType==OP_SELL)
Alert("Закрывае прибыльные "+_TypeToStr(_closeType)+" ордера!");
if (OrdersTotal()>0){
for (i=OrdersTotal()-1; i>=0; i--){
if (OrderSelect(i,SELECT_BY_POS,MODE_TRADES)){
if (OrderType()==_closeType && OrderProfit()>0){
_summ=_summ+OrderProfit();
while (!OrderClose(OrderTicket(),OrderLots(),_closePrice,0,0)){
RefreshRates();
if (_closeType==OP_BUY) _closePrice=Bid;
if (_closeType==OP_SELL) _closePrice=Ask;
}// End of while
}// End of if (OrderType()==_closeType && OrderProfit()>0)
}// End of if (OrderSelect(i,SELECT_BY_POS,MODE_TRADES)
}// End of for
}// End of if (OrdersTotal()>0)
Alert("Закрывае убыточные "+_TypeToStr(_closeType)+" ордера!");
while (OrdersTotal()>0 && _summ>0){
_ticket=-1;
for (i=OrdersTotal()-1; i>=0; i--){ // Ищем самый убыточный ордер
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)){
if(OrderType()==_closeType && OrderProfit()<=_loss){
_loss=OrderProfit();
_ticket=OrderTicket();
} // End of if (OrderType()==_closeType && OrderProfit()<=_loss)
}// End of if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)
} // End of for
if (_ticket==-1) _summ=0;
if (OrderSelect(_ticket, SELECT_BY_TICKET)){
if ((_summ+OrderProfit())<0){
_points=MathAbs(_closePrice-OrderOpenPrice())/Point;
_lots=MathRound((_summ/_points)/MarketInfo(Symbol(), MODE_LOTSTEP))*MarketInfo(Symbol(), MODE_LOTSTEP);
if (_lots<MarketInfo(Symbol(),MODE_MINLOT)){
_summ=0;//return;
break;
} // End of if (_lots<MarketInfo(Symbol(),MODE_MINLOT))
} // End of if ((_summ+OrderProfit())>0)
else{
_lots=OrderLots();
} // End of else
_summ=_summ+OrderProfit();
Alert("Пытаемся закрыть ордер - ",_ticket,", Объемом - ",_lots);
while (!OrderClose(_ticket,_lots,_closePrice,0,0)){
RefreshRates();
if (_closeType==OP_BUY) _closePrice=Bid;
if (_closeType==OP_SELL) _closePrice=Ask;
} // End of while
} // End of if (OrderSelect(_ticket, SELECT_BY_TICKET)
}//End of while
return;
}