RequestTimedRefresh( 1 );
/////Parameters/////
ClientId = ParamStr("Client Id","000000");
TrdSymbol = ParamStr("Trading Symbol","NIFTY15MAYFUT");
Symbol = ParamStr("Symbol","NIFTY");
Strategy = ParamStr("Strategy","My AFL");
Qty = NumToStr(Lots,1.2);
Exch =ParamList("Select Exch", "NFO|BFO|NSE|BSE|CDS|MCX", 0 );
PType = ParamList("Product Type", "MIS|NRML|CNC", 0 );
OType = ParamList("Order Type", "L|MKT|SL|SL-M", 1 );
/////Prices/////
BuyP = NumToStr(LastValue(ValueWhen(Buy,C),1),1.5);
ShortP = NumToStr(LastValue(ValueWhen(Short,C),1),1.5);
SellP = NumToStr(LastValue(ValueWhen(Sell,C),1),1.5);
CoverP = NumToStr(LastValue(ValueWhen(Cover,C),1),1.5);
brd=Null;
if(IsNull(brd))
{
brd = CreateStaticObject("pibridge.Bridge");
if(!brd.GetConnectionStatus()) brd.Reconnect();
IIf(Buy,brd.PlaceOrder(Exch, TrdSymbol, Symbol, Strategy, 1, Qty, Qty, BuyP, BuyP,OType,PType, ClientId,"Day"),Null);
IIf(Sell,brd.PlaceOrder (Exch, TrdSymbol,Symbol,Strategy, 2,Qty,Qty, SellP, SellP, OType,PType, ClientId,"Day"),Null);
IIf(Cover,brd.PlaceOrder (Exch, TrdSymbol,Symbol,Strategy, 1,Qty,Qty, CoverP, CoverP, OType, PType, ClientId,"Day"),Null);
IIf(Short,brd.PlaceOrder (Exch, TrdSymbol,Symbol,Strategy, 2,Qty,Qty, ShortP, ShortP, OType,PType, ClientId,"Day"),Null);
}