input bool ea_on=true;
// Live-Handel erlaubt
//  Mehr als 20 geschlossene Trades=> berechne EMA(Kontostand);
// Wenn Kontostand der abgeschlossenen Trades kleiner EMA(Kontostand)
ea_on=false;
// Sobald Kontostand abgeschlossene Trade größer EMA(Kontostand)
ea_on=true;

if( PR > -1.0 && PR <  1.0 ){

  PR_mt=PR;
  mt=-1;
  while( PR_mt > -1.0 && PR_mt < 1.0 ){
  
    PR_t = PR_mt * 10.0;
    
    PR_mt = PR_t;
    
    mt++;}

OPZ_PR = 1.0 / PR_mt;

  void GlobalSet() {
   for(int pos=0;pos<HistoryOrdersTotal();pos++)
   if(OrderSelect(pos,SELECT_BY_POS,MODE_HISTORY))
   if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic) {
    if(OrderType()==OP_BUY && OrderProfit()<0) {
     GlobalVariableSet(Symbol()+"-LastBuyLots",OrderLots());
     GlobalVariableSet(Symbol()+"-LastBuyProfit",OrderProfit());
     GlobalVariableSet(Symbol()+"-LastSellLots",0);
     GlobalVariableSet(Symbol()+"-LastSellProfit",0);
     } 
    if(OrderType()==OP_SELL && OrderProfit()<0) {
     GlobalVariableSet(Symbol()+"-LastSellLots",OrderLots());
     GlobalVariableSet(Symbol()+"-LastSellProfit",OrderProfit());
     GlobalVariableSet(Symbol()+"-LastBuyLots",0); 
     GlobalVariableSet(Symbol()+"-LastBuyProfit",0);
     }
   }
  }

  void GlobalSet() {
   ulong total=HistoryOrdersTotal();
   ulong ticket;
   for(uint i=0;i<total;i++) {
    if((ticket=HistoryOrderGetTicket(i))>0) {
     if(PositionGetString(POSITION_SYMBOL)==Symbol() && PositionGetInteger(POSITION_MAGIC)==Magic) {
     
      if(ENUM_POSITION_TYPE(ORDER_TYPE_BUY) && ENUM_ORDER_PROPERTY_DOUBLE(POSITION_PROFIT)<0) {
      GlobalVariableSet(Symbol()+"-LastBuyLots",ENUM_ORDER_PROPERTY_DOUBLE(ORDER_VOLUME_INITIAL));
      GlobalVariableSet(Symbol()+"-LastBuyProfit",ENUM_ORDER_PROPERTY_DOUBLE(POSITION_PROFIT));
      GlobalVariableSet(Symbol()+"-LastSellLots",0);
      GlobalVariableSet(Symbol()+"-LastSellProfit",0); }
     
      if(ENUM_POSITION_TYPE(ORDER_TYPE_SELL) && ENUM_ORDER_PROPERTY_DOUBLE(POSITION_PROFIT)<0) {
      GlobalVariableSet(Symbol()+"-LastSellLots",ENUM_ORDER_PROPERTY_DOUBLE(ORDER_VOLUME_INITIAL));
      GlobalVariableSet(Symbol()+"-LastSellProfit",ENUM_ORDER_PROPERTY_DOUBLE(POSITION_PROFIT));
      GlobalVariableSet(Symbol()+"-LastBuyLots",0);
      GlobalVariableSet(Symbol()+"-LastBuyProfit",0); } 
         }
       }
     }
   }

Code:
      if(op_tkt>0)                                                     //OrderSendSuccess
      {
         rq_open=OrderOpenPrice();
         
         if(OrderSelect(op_tkt,SELECT_BY_TICKET,MODE_TRADES) )         //SelectTicket
         {
                             rq_sl=_Norm(rq_open-StopLoss);            //AbsoluteSL
            if(TakeProfit>0) rq_tp=_Norm(rq_open+TakeProfit);          //AbsoluteTP
            Print(__FUNCTION__,
                  " rq_open=",DoubleToStr(rq_open,_Digits),
                  " StopLoss=",DoubleToStr(StopLoss,_Digits),
                  " rq_sl=",DoubleToStr(rq_sl,_Digits)
                 );
// Print Ausgabe:
// _OpenOrderMkt: rq_open=13561.60 StopLoss=15.00 rq_sl=13546.60
// Die Zahlen stimmen also.
            // ========================================================== add SL
            if(StopLoss>0)
            {
               if(!OrderModify(op_tkt,OrderOpenPrice(),                //CurrentTicket
                               rq_sl,                                  //ChangeSL
                               OrderTakeProfit(),0,ARROWREDCOLOR) )    //UseRed
               {
                  Print(__FUNCTION__," failed Buy SL =",_LastError);   //SLError
                  Play(WavErr);
                  return(false);
               }//SLvisible
            }//SLwanted

void CalcSeries(int rat_tot=-1)
{
   int limit=rat_tot;                     //CalledFromOnCalculate
   if(rat_tot==-1) limit=Bars;            //CalledFromAllOthers:MaxIs1LessThanAvailable
   if(LOOKBACKBARS>0) limit=LOOKBACKBARS; //ObeyUserInput
   if(limit>Bars) limit=Bars;             //IfLessThanAvailableBars
   
   for(int i=0; i<limit; i++) 
   {
      //if(i==0 || i==limit) Print(__FUNCTION__," i=",(int)i);
      SeriesBuff[i]=i;
   }
}