Angel Broking, Aliceblue, Firstock, Fyers, Tradejini, Upstox, Zebu<\/p>\n\n\n\n <\/p>\n\n\n\n Smart order execution looks into the position book before taking any trading decisions. <\/p>\n\n\n\n AFL Code provided for the brokers : Angel Broking, Aliceblue, Tradejini, Zebu<\/p>\n\n\n\n How to use the smart order module?<\/strong><\/p>\n\n\n\n 1)Apply your trading system on a new blank chart<\/p>\n\n\n\n 2)Save the Smart Order Module to any folder of your choice<\/p>\n\n\n\n 3)drag and drop the Smart order Module on top of the trading system<\/p>\n\n\n\n 4)Configure Smart order Module parameters <\/p>\n\n\n\n 5)Enable the Algo Mode and Start 100% Smart Automation.<\/p>\n\n\n\n Smart Order Module for Angel Broking Users (Parameter Controls)<\/strong><\/p>\n\n\n\n Smart Order Module – Amibroker AFL Code for AngelOne users<\/strong><\/p>\n\n\n\n SmartOrder Module for Aliceblue, Tradejini, Zebu users<\/strong><\/p>\n\n\n\n SmartOrder Module for Firstock, Tradejini(Cube)<\/strong><\/p>\n\n\n\n SmartOrder Module for Fyers Users<\/strong><\/p>\n\n\n\n SmartOrder Module for Upstox Users<\/strong><\/p>\n\n\n\n Smart Order Module brings a 100% end-to-end automated trading solution for Amibroker users to automate their trading ideas with a simple plug-and-play module. Traders have to connect their trading system along with smart order execution to make their system trading life easier.<\/p>\n","protected":false},"author":5,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"site-sidebar-layout":"default","site-content-layout":"default","ast-global-header-display":"","ast-main-header-display":"","ast-hfb-above-header-display":"","ast-hfb-below-header-display":"","ast-hfb-mobile-header-display":"","site-post-title":"","ast-breadcrumbs-content":"","ast-featured-img":"","footer-sml-layout":"","theme-transparent-header-meta":"","adv-header-id-meta":"","stick-header-meta":"","header-above-stick-meta":"","header-main-stick-meta":"","header-below-stick-meta":""},"categories":[6,15],"tags":[13,7,143,46],"_links":{"self":[{"href":"https:\/\/algomojo.com\/blog\/wp-json\/wp\/v2\/posts\/321"}],"collection":[{"href":"https:\/\/algomojo.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/algomojo.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/algomojo.com\/blog\/wp-json\/wp\/v2\/users\/5"}],"replies":[{"embeddable":true,"href":"https:\/\/algomojo.com\/blog\/wp-json\/wp\/v2\/comments?post=321"}],"version-history":[{"count":11,"href":"https:\/\/algomojo.com\/blog\/wp-json\/wp\/v2\/posts\/321\/revisions"}],"predecessor-version":[{"id":1602,"href":"https:\/\/algomojo.com\/blog\/wp-json\/wp\/v2\/posts\/321\/revisions\/1602"}],"wp:attachment":[{"href":"https:\/\/algomojo.com\/blog\/wp-json\/wp\/v2\/media?parent=321"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/algomojo.com\/blog\/wp-json\/wp\/v2\/categories?post=321"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/algomojo.com\/blog\/wp-json\/wp\/v2\/tags?post=321"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}![\"\"](\"https:\/\/www.marketcalls.in\/wp-content\/uploads\/2021\/10\/Algomojo-Tutorial-1-1024x576.png\")
<\/figure>\n\n\n\nSignal and Position<\/strong><\/td> Interpretation<\/strong><\/td><\/tr> Buy Signal (Long Entry) and No Open Position<\/td> Buy x1 times of Quantity<\/td><\/tr> Sell Signal (Long Exit) and No Open Position <\/td> Do Nothing <\/td><\/tr> Sell Signal (Long Exit) and Positive Open Position (Prev Long Signal Continues)<\/td> Sell x1 times of Quantity <\/td><\/tr> Short Signal (Short Entry) and No Open Position<\/td> Sell x1 times of Quantity <\/td><\/tr> Cover Signal (Short Exit) and No Open Position<\/td> Do Nothing <\/td><\/tr> Cover Signal (Short Exit) and Negative Open Position (Prev Short Signal Continues)<\/td> Buy x1 times of Quantity <\/td><\/tr> Buy and Cover Signal and No Open Position<\/td> Buy x1 times of Quantity <\/td><\/tr> Buy and Cover Signal and Negative Open Position (Prev Short Signal Continues) <\/td> Buy x2 times of Quantity<\/td><\/tr> Short and Sell Signal and No Open Position<\/td> Sell x1 times of Quantity <\/td><\/tr> Short and Sell Signal and Positive Open Position (Prev Long Signal Continues) <\/td> Sell x2 times of Quantity<\/td><\/tr><\/tbody><\/table><\/figure>\n\n\n\n ![\"\"](\"https:\/\/www.marketcalls.in\/wp-content\/uploads\/2021\/10\/image.png\")
<\/figure>\n\n\n\n\/\/ Developer: Algomojo\n\/\/ Date: 24-Dec-2021\n\/\/ Website: algomojo.com\n\n_SECTION_BEGIN("Angel Broking - Broker Controls");\n\nRequestTimedRefresh(1, False); \n\nbroker =ParamStr("Broker","an"); \/\/Broker Short Code - an- angel broking\nver = ParamStr("API Version ","1.0");\nclnt_id = ParamStr("Client ID","xxxx"); \/\/Enter your trading client ID\nuser_apikey = ParamStr("apikey","xxxxxxxxxxxxxxxxxxxxx"); \/\/Enter your API key here\napi_secretkey = ParamStr("secretkey","xxxxxxxxxxxxxxxxxxxxx"); \/\/Enter your API secret key here\n\n_SECTION_END();\n\n_SECTION_BEGIN("Angel Broking - Order Controls");\n\nstgy_name = ParamStr("Strategy Name", "Test Strategy");\nvariety = ParamList("Variety","NORMAL|STOPLOSS|AMO",0); \ntradingsymbol = ParamStr("Trading Symbol","RELIANCE-EQ");\n\n\nexchange = ParamList("Exchange","NSE|NFO|BSE|MCX",0); \nordertype = ParamList("Order Type","MARKET|LIMIT|STOPLOSS_LIMIT|STOPLOSS_MARKET",0);\nproducttype = ParamList("Product Type","DELIVERY|CARRYFORWARD|MARGIN|INTRADAY|AMO_MARGIN|AMO_DELIVERY|AMO_CARRYFORWARD",3);\n\nprice = "0"; \ntriggerprice = "0"; \nquantity = Param("quanity",1,0,10000);\n\nsquareoff = "0"; \nstoploss = "0"; \ntrailingStopLoss = "0"; \ndisclosedquantity = "0"; \nduration = "DAY";\nEntrydelay = Param("Entry Delay",0,0,1,1);\nExitdelay = Param("Exit Delay",0,0,1,1);\nEnableAlgo = ParamList("AlgoStatus","Disable|Enable|LongOnly|ShortOnly",0);\nresp = "";\n\n\nstatic_name_ = Name()+GetChartID()+interval(2)+stgy_name;\nstatic_name_algo = Name()+GetChartID()+interval(2)+stgy_name+"algostatus";\n\nAlgoBuy = lastvalue(Ref(Buy,-Entrydelay));\nAlgoSell = lastvalue(Ref(Sell,-Exitdelay));\nAlgoShort = lastvalue(Ref(Short,-Entrydelay));\nAlgoCover = lastvalue(Ref(Cover,-Exitdelay));\n\n\n\nGfxSelectFont( "BOOK ANTIQUA", 14, 100 );\nGfxSetBkMode( 1 );\nif(EnableAlgo == "Enable")\n{\nAlgoStatus = "Algo Enabled";\nGfxSetTextColor( colorGreen ); \nGfxTextOut( "Algostatus : "+AlgoStatus , 20, 40); \nif(Nz(StaticVarGet(static_name_algo),0)!=1)\n{\n_TRACE("Algo Status : Enabled");\nStaticVarSet(static_name_algo, 1);\n}\n}\nif(EnableAlgo == "Disable")\n{\nAlgoStatus = "Algo Disabled";\nGfxSetTextColor( colorRed ); \nGfxTextOut( "Algostatus : "+AlgoStatus , 20, 40); \nif(Nz(StaticVarGet(static_name_algo),0)!=0)\n{\n_TRACE("Algo Status : Disabled");\nStaticVarSet(static_name_algo, 0);\n}\n}\nif(EnableAlgo == "LongOnly")\n{\nAlgoStatus = "Long Only";\nGfxSetTextColor( colorYellow ); \nGfxTextOut( "Algostatus : "+AlgoStatus , 20, 40); \nif(Nz(StaticVarGet(static_name_algo),0)!=2)\n{\n_TRACE("Algo Status : Long Only");\nStaticVarSet(static_name_algo, 2);\n}\n}\nif(EnableAlgo == "ShortOnly")\n{\nAlgoStatus = "Short Only";\nGfxSetTextColor( colorYellow ); \nGfxTextOut( "Algostatus : "+AlgoStatus , 20, 40); \nif(Nz(StaticVarGet(static_name_algo),0)!=3)\n{\n_TRACE("Algo Status : Short Only");\nStaticVarSet(static_name_algo, 3);\n}\n}\n\n\n\nfunction GetPositionsBook()\n{\n\/\/Creating the Trading Bridge\nalgomojo=CreateObject("AMAMIBRIDGE.Main");\n\napi_data = "{ }";\n_TRACE("PositionBook API Request"+api_data);\n\n\/\/Sending The Broker Request for NetOpenPositions\nresp=algomojo.AMDispatcher(user_apikey,api_secretkey,"Positions",api_data,broker,ver);\n_TRACE("PositionBook API Response : "+resp);\n\nreturn resp;\n\n}\n\nfunction NetOpenPositions()\n{\nflag = 0;\n\nresp = GetPositionsBook();\n\nposNetqty =0;\n\nfor( item = 1; ( sym = StrExtract( resp, item,'{' )) != ""; item++ )\n{\n\n\n\nif(Strfind(sym,tradingsymbol) AND StrFind(sym,productType)) \/\/Matches the symbol and \/\/Matches the Order Type\n{\n\nflag = 1; \/\/turn on the flag\n\nfor( jitem = 0; ( posdetails = StrExtract( sym, jitem,',' )) != ""; jitem++ )\n{\n\n if(Strfind(posdetails,"tradingsymbol"))\n {\n posdetails = StrExtract(posdetails,1,':');\n possym = StrTrim(posdetails,"\\"");\n _TRACE("\\nTrading Symbol : "+possym);\n }\n\n if(Strfind(posdetails,"netqty"))\n {\n posdetails = StrExtract(posdetails,1,':');\n posNetqty = StrToNum(StrTrim(posdetails,"\\""));\n _TRACE("\\nNetQty : "+posNetqty);\n }\n \n\n} \/\/end of for loop\n}\n\n}\/\/end of for loop\n\n\nif(flag==0)\n{\n_TRACE("\\nTrading Symbol Not Found");\n posNetqty =0;\n_TRACE("\\nNetQty : "+posNetqty);\n}\n\nreturn posNetqty;\n\n}\n\/\/Buy and Sell Order Functions\nfunction Placeorder(TransType,orderqty)\n{\n\t\n algomojo=CreateObject("AMAMIBRIDGE.Main");\n symboltoken = "";\n api_data ="{\\"stgy_name\\": \\""+stgy_name+"\\", \\"variety\\":\\""+variety+"\\", \\"tradingsymbol\\":\\""+tradingsymbol+"\\", \\"symboltoken\\":\\""+symboltoken+"\\", \\"transactiontype\\":\\""+TransType+"\\", \\"exchange\\":\\""+exchange+"\\", \\"ordertype\\":\\""+ordertype+"\\", \\"producttype\\":\\""+producttype+"\\", \\"duration\\":\\""+duration+"\\", \\"price\\":\\""+price+"\\", \\"squareoff\\":\\""+squareoff+"\\", \\"stoploss\\":\\""+stoploss+"\\", \\"quantity\\":\\""+orderqty+"\\", \\"triggerprice\\": \\""+triggerprice+"\\", \\"trailingStopLoss\\": \\""+trailingStopLoss+"\\", \\"disclosedquantity\\":\\""+disclosedquantity+"\\" }";\n \n _TRACE("API Request"+api_data);\n resp=algomojo.AMDispatcher(user_apikey, api_secretkey,"PlaceOrder",api_data,broker,ver);\n _TRACE("API Response : "+resp);\n _TRACE("Strategy Name : "+stgy_name+" AlgoStatus : "+ EnableAlgo);\n _TRACE("Chart Symbol : "+ Name() +" Trading Symbol : "+ tradingsymbol +" qty : "+ orderqty +" Signal : Buy Signal TimeFrame : "+ Interval(2)+" ChardId : "+ GetChartID() + " LTP : "+LastValue(C));\n\tSay( "Order Placed" ); \n}\n\n\n\nNewquantity = Null;\n\t\/\/Execution Module\n\nif(EnableAlgo != "Disable")\n {\n lasttime = StrFormat("%0.f",LastValue(BarIndex()));\n \n SetChartBkColor(colorDarkGrey);\n if(EnableAlgo == "Enable")\n { \n if (AlgoBuy==True AND AlgoCover == True AND StaticVarGet(static_name_+"buyCoverAlgo")==0 AND StaticVarGetText(static_name_+"buyCoverAlgo_barvalue") != lasttime )\n {\n \/\/ reverse Long Entry \n\t\t\t\tOpenPos = NetOpenPositions();\n if(OpenPos==0)\n {\n \/\/If no open position send only x1 times of quantity\n Newquantity = quantity;\n _TRACE("No Open Positions Exist and Hence x1 times quantity will be punched");\n }\n else if(OpenPos == -quantity)\n {\n \/\/if already short positions are running send x2 times of quantity\n Newquantity = 2*quantity;\n _TRACE("Open Positions Exist and Hence x2 times quantity will be punched");\n }\n else\n {\n Newquantity = 2*quantity;\n _TRACE("Warning Mismatch in Trading Positions and Check Manually and Take necessary Action");\n _TRACE("Open Positions Exist and Hence x2 times quantity will be punched");\n \n }\n \n PlaceOrder("BUY",Newquantity);\n StaticVarSetText(static_name_+"buyCoverAlgo_barvalue",lasttime); \n StaticVarSet(static_name_+"buyCoverAlgo",1); \/\/Algo Order was triggered, no more order on this bar\n \n \n }\n else if ((AlgoBuy != True OR AlgoCover != True))\n { \n StaticVarSet(static_name_+"buyCoverAlgo",0);\n StaticVarSetText(static_name_+"buyCoverAlgo_barvalue","");\n }\n \n if (AlgoBuy==True AND AlgoCover != True AND StaticVarGet(static_name_+"buyAlgo")==0 AND StaticVarGetText(static_name_+"buyAlgo_barvalue") != lasttime)\n {\n \/\/ Long Entry \n PlaceOrder("BUY",quantity);\n StaticVarSetText(static_name_+"buyAlgo_barvalue",lasttime); \n StaticVarSet(static_name_+"buyAlgo",1); \/\/Algo Order was triggered, no more order on this bar\n \n }\n else if (AlgoBuy != True)\n { \n StaticVarSet(static_name_+"buyAlgo",0);\n StaticVarSetText(static_name_+"buyAlgo_barvalue","");\n \n }\n if (AlgoSell==true AND AlgoShort != True AND StaticVarGet(static_name_+"sellAlgo")==0 AND StaticVarGetText(static_name_+"sellAlgo_barvalue") != lasttime)\n { \n \/\/ Long Exit \n\t\t\t\tOpenPos = NetOpenPositions();\n\t\t\t\tif(OpenPos == quantity)\n {\n \/\/If positive open positions are there only then exit the longs \n PlaceOrder("SELL",quantity);\n }\n else if(OpenPos != 0 AND OpenPos != quantity)\n {\n PlaceOrder("SELL",quantity);\n _TRACE("Mismatch in quantity : Exit Order is Placed. Kindly check the positions and take necssary action");\n }\n else\n {\n _TRACE("Warning : No Open Long Positions Exits and Hence No Sell Order is Placed to Exit the Long Position");\n _TRACE("Kindly check the positions and take necssary action");\n }\n \n StaticVarSetText(static_name_+"sellAlgo_barvalue",lasttime);\n StaticVarSet(static_name_+"sellAlgo",1); \/\/Algo Order was triggered, no more order on this bar\n \n }\n else if (AlgoSell != True )\n { \n StaticVarSet(static_name_+"sellAlgo",0);\n StaticVarSetText(static_name_+"sellAlgo_barvalue","");\n }\n if (AlgoShort==True AND AlgoSell==True AND StaticVarGet(static_name_+"ShortSellAlgo")==0 AND StaticVarGetText(static_name_+"ShortSellAlgo_barvalue") != lasttime)\n {\n \/\/ reverse Short Entry \n\t\t\t\tOpenPos = NetOpenPositions();\n\t\t\t\tif(OpenPos==0)\n {\n \/\/If no open position send only x1 times of quantity\n Newquantity = quantity;\n _TRACE("No Open Positions Exist and Hence x1 times quantity will be punched");\n }\n else if(OpenPos == quantity)\n {\n \/\/if already short positions are running send x2 times of quantity\n Newquantity = 2*quantity;\n _TRACE("Open Positions Exist and Hence x2 times quantity will be punched");\n }\n else\n {\n Newquantity = 2*quantity;\n _TRACE("Warning Mismatch in Trading Positions and Check Manually and Take necessary Action");\n _TRACE("Open Positions Exist and Hence x2 times quantity will be punched");\n \n }\n PlaceOrder("SELL",Newquantity);\n StaticVarSetText(static_name_+"ShortsellAlgo_barvalue",lasttime);\n StaticVarSet(static_name_+"ShortSellAlgo",1); \/\/Algo Order was triggered, no more order on this bar\n \n }\n else if ((AlgoShort != True OR AlgoSell != True))\n { \n StaticVarSet(static_name_+"ShortSellAlgo",0);\n StaticVarSetText(static_name_+"ShortsellAlgo_barvalue","");\n }\n \n if (AlgoShort==True AND AlgoSell != True AND StaticVarGet(static_name_+"ShortAlgo")==0 AND StaticVarGetText(static_name_+"ShortAlgo_barvalue") != lasttime)\n {\n \/\/ Short Entry\n PlaceOrder("SELL",quantity);\n StaticVarSetText(static_name_+"ShortAlgo_barvalue",lasttime); \n StaticVarSet(static_name_+"ShortAlgo",1); \/\/Algo Order was triggered, no more order on this bar\n \n }\n else if (AlgoShort != True )\n { \n StaticVarSet(static_name_+"ShortAlgo",0);\n StaticVarSetText(static_name_+"ShortAlgo_barvalue","");\n }\n if (AlgoCover==true AND AlgoBuy != True AND StaticVarGet(static_name_+"CoverAlgo")==0 AND StaticVarGetText(static_name_+"CoverAlgo_barvalue") != lasttime)\n {\n \/\/ Short Exit\n\t\t\t\tOpenPos = NetOpenPositions();\n\t\t\t\tif(OpenPos == -quantity)\n {\n \/\/If negative open positions are there only then exit the shorts \n PlaceOrder("BUY",quantity);\n }\n else if(OpenPos != 0 AND OpenPos != -quantity)\n {\n PlaceOrder("BUY",quantity);\n _TRACE("Mismatch in quantity : Exit Order is Placed. Kindly check the positions and take necssary action");\n }\n else\n {\n _TRACE("Warning : No Open Long Positions Exits and Hence No Cover Order is Placed to Exit the Short Position");\n _TRACE("Kindly check the positions and take necssary action");\n }\n \n StaticVarSetText(static_name_+"CoverAlgo_barvalue",lasttime); \n StaticVarSet(static_name_+"CoverAlgo",1); \/\/Algo Order was triggered, no more order on this bar\n \n }\n else if (AlgoCover != True )\n { \n StaticVarSet(static_name_+"CoverAlgo",0);\n StaticVarSetText(static_name_+"CoverAlgo_barvalue","");\n }\n }\n \n else if(EnableAlgo == "LongOnly")\n {\n \n if (AlgoBuy==True AND StaticVarGet(static_name_+"buyAlgo")==0 AND StaticVarGetText(static_name_+"buyAlgo_barvalue") != lasttime)\n { \n \/\/ Long Entry\n PlaceOrder("BUY",quantity);\n StaticVarSetText(static_name_+"buyAlgo_barvalue",lasttime);\n StaticVarSet(static_name_+"buyAlgo",1); \/\/Algo Order was triggered, no more order on this bar\n \n }\n else if (AlgoBuy != True)\n { \n StaticVarSet(static_name_+"buyAlgo",0);\n StaticVarSetText(static_name_+"buyAlgo_barvalue","");\n }\n if (AlgoSell==true AND StaticVarGet(static_name_+"sellAlgo")==0 AND StaticVarGetText(static_name_+"sellAlgo_barvalue") != lasttime)\n { \n \/\/ Long Exit\n OpenPos = NetOpenPositions();\n\t\t\t\tif(OpenPos == quantity)\n {\n \/\/If positive open positions are there only then exit the longs \n PlaceOrder("SELL",quantity);\n }\n else if(OpenPos != 0 AND OpenPos != quantity)\n {\n PlaceOrder("SELL",quantity);\n _TRACE("Mismatch in quantity : Exit Order is Placed. Kindly check the positions and take necssary action");\n }\n else\n {\n _TRACE("Warning : No Open Long Positions Exits and Hence No Sell Order is Placed to Exit the Long Position");\n _TRACE("Kindly check the positions and take necssary action");\n }\n StaticVarSetText(static_name_+"sellAlgo_barvalue",lasttime);\n StaticVarSet(static_name_+"sellAlgo",1); \/\/Algo Order was triggered, no more order on this bar\n \n }\n else if (AlgoSell != True )\n { \n StaticVarSet(static_name_+"sellAlgo",0);\n StaticVarSetText(static_name_+"sellAlgo_barvalue","");\n }\n }\n else if(EnableAlgo == "ShortOnly")\n {\n if (AlgoShort==True AND StaticVarGet(static_name_+"ShortAlgo")==0 AND StaticVarGetText(static_name_+"ShortAlgo_barvalue") != lasttime)\n {\n \/\/ Short Entry\n PlaceOrder("SELL",quantity);\n StaticVarSetText(static_name_+"ShortAlgo_barvalue",lasttime); \n StaticVarSet(static_name_+"ShortAlgo",1); \/\/Algo Order was triggered, no more order on this bar\n \n }\n else if (AlgoShort != True )\n { \n StaticVarSet(static_name_+"ShortAlgo",0);\n StaticVarSetText(static_name_+"ShortAlgo_barvalue","");\n }\n if (AlgoCover==true AND StaticVarGet(static_name_+"CoverAlgo")==0 AND StaticVarGetText(static_name_+"CoverAlgo_barvalue") != lasttime)\n {\n \/\/ Short Exit\n OpenPos = NetOpenPositions();\n\t\t\t\tif(OpenPos == -quantity)\n {\n \/\/If negative open positions are there only then exit the shorts \n PlaceOrder("BUY",quantity);\n }\n else if(OpenPos != 0 AND OpenPos != -quantity)\n {\n PlaceOrder("BUY",quantity);\n _TRACE("Mismatch in quantity : Exit Order is Placed. Kindly check the positions and take necssary action");\n }\n else\n {\n _TRACE("Warning : No Open Long Positions Exits and Hence No Cover Order is Placed to Exit the Short Position");\n _TRACE("Kindly check the positions and take necssary action");\n }\n \n StaticVarSetText(static_name_+"CoverAlgo_barvalue",lasttime); \n StaticVarSet(static_name_+"CoverAlgo",1); \/\/Algo Order was triggered, no more order on this bar\n \n }\n else if (AlgoCover != True)\n { \n StaticVarSet(static_name_+"CoverAlgo",0);\n StaticVarSetText(static_name_+"CoverAlgo_barvalue","");\n }\n }\n \n }\n \n \n<\/code><\/pre>\n\n\n\n\/\/ Developer: Algomojo\n\/\/ Date: 24-Dec-2021\n\/\/ Website: algomojo.com \/ marketcalls.in\n\n_SECTION_BEGIN("Nest Broker - Broker Controls");\n\nRequestTimedRefresh(1, False); \/\/ Send orders even if Amibroker is minimized or Chart is not active\n\nbroker = Paramlist("Broker","ab|tj|zb"); \/\/ab - aliceblue, tj - tradejini, zb - zebu\nver = ParamStr("API Version ","1.0");\nclnt_id = ParamStr("Client ID","xxxxxx"); \/\/Enter your trading client ID\nuser_apikey = ParamStr("user_apikey","xxxxxx"); \/\/Enter your API key here\napi_secretkey = ParamStr("api_secretkey","xxxxxx"); \/\/Enter your API secret key here\n\n_SECTION_END();\n\n_SECTION_BEGIN("Nest Broker - Order Controls");\n\ns_prdt_ali = "BO:BO|CNC:CNC|CO:CO|MIS:MIS|NRML:NRML"; \/\/Product Alias\nTsym = ParamStr("Trading Symbol","RELIANCE-EQ"); \/\/Symbol Name\nexch = ParamList("Exchange","NFO|NSE|BSE|CDS|MCX|NCDEX|BFO|MCXSXFO|MCXSX",1); \/\/Exchange\nRet = "DAY"; \/\/Retention\nprctyp = ParamList("prctyp","MKT|L|SL|SL-M",0); \/\/ Pricetype\nPcode = ParamList("Product code","NRML|BO|CNC|CO|MIS",4); \/\/ Product Code\nqty = Param("Quantity",1,0,100000,1); \/\/ Quantity\nAMO = "NO"; \/\/AMO Order\n\n\nEntrydelay = Param("Entry Delay",0,0,1); \/\/ 0 - Execution with No Delay after a signal, 1- Execution at the end of the candle\nExitdelay = Param("Exit Delay",0,0,1);\n\nstrg_name = ParamStr("Strategy Name","Test Strategy Chart"); \/\/ Strategy Name\nEnableAlgo = ParamList("Algo Mode","Disable|Enable|LongOnly|ShortOnly",0); \/\/ Algo Mode\nresp = "";\n\n\nstatic_name_ = Name()+GetChartID()+interval(2)+strg_name;\nstatic_name_algo = Name()+GetChartID()+interval(2)+strg_name+"algostatus";\n\n\/\/Configure Trade Execution Delay\n\n\nAlgoBuy = lastvalue(Ref(Buy,-Entrydelay));\nAlgoSell = lastvalue(Ref(Sell,-Exitdelay));\nAlgoShort = lastvalue(Ref(Short,-Entrydelay));\nAlgoCover = lastvalue(Ref(Cover,-Exitdelay));\n\n\n\n\nGfxSelectFont( "BOOK ANTIQUA", 14, 100 );\nGfxSetBkMode( 1 );\nif(EnableAlgo == "Enable")\n{\nAlgoStatus = "Algo Enabled";\nGfxSetTextColor( colorGreen ); \nGfxTextOut( "Algostatus : "+AlgoStatus , 20, 40); \nif(Nz(StaticVarGet(static_name_algo),0)!=1)\n{\n_TRACE("Algo Status : Enabled");\nStaticVarSet(static_name_algo, 1);\n}\n}\nif(EnableAlgo == "Disable")\n{\nAlgoStatus = "Algo Disabled";\nGfxSetTextColor( colorRed ); \nGfxTextOut( "Algostatus : "+AlgoStatus , 20, 40); \nif(Nz(StaticVarGet(static_name_algo),0)!=0)\n{\n_TRACE("Algo Status : Disabled");\nStaticVarSet(static_name_algo, 0);\n}\n}\nif(EnableAlgo == "LongOnly")\n{\nAlgoStatus = "Long Only";\nGfxSetTextColor( colorYellow ); \nGfxTextOut( "Algostatus : "+AlgoStatus , 20, 40); \nif(Nz(StaticVarGet(static_name_algo),0)!=2)\n{\n_TRACE("Algo Status : Long Only");\nStaticVarSet(static_name_algo, 2);\n}\n}\nif(EnableAlgo == "ShortOnly")\n{\nAlgoStatus = "Short Only";\nGfxSetTextColor( colorYellow ); \nGfxTextOut( "Algostatus : "+AlgoStatus , 20, 40); \nif(Nz(StaticVarGet(static_name_algo),0)!=3)\n{\n_TRACE("Algo Status : Short Only");\nStaticVarSet(static_name_algo, 3);\n}\n}\n\n\nfunction GetPositionsBook()\n{\nalgomojo=CreateObject("AMAMIBRIDGE.Main");\napi_data ="{\\"uid\\":\\""+clnt_id+"\\",\\"actid\\":\\""+clnt_id+"\\",\\"type\\":\\""+"NET"+"\\",\\"s_prdt_ali\\":\\""+s_prdt_ali+"\\"}";\nresp=algomojo.AMDispatcher(user_apikey, api_secretkey,"PositionBook",api_data,broker,ver);\n_TRACE("Position Book Response : " +resp);\nreturn resp;\n}\n\nfunction NetOpenPositions()\n{\nflag = 0;\n\nresp = GetPositionsBook();\nposNetqty =0;\n\nfor( item = 0; ( sym = StrExtract( resp, item,'{' )) != ""; item++ )\n{\n\n\nif(Strfind(sym,Tsym) AND StrFind(sym,Pcode)) \/\/Matches the symbol and \/\/Matches the Order Type\n{\n\nflag = 1; \/\/turn on the flag\n\nfor( jitem = 0; ( posdetails = StrExtract( sym, jitem,',' )) != ""; jitem++ )\n{\n\n if(Strfind(posdetails,"Tsym"))\n {\n posdetails = StrExtract(posdetails,1,':');\n possym = StrTrim(posdetails,"\\"");\n _TRACE("\\nSymbol : "+possym);\n }\n\n if(Strfind(posdetails,"Netqty"))\n {\n posdetails = StrExtract(posdetails,1,':');\n posNetqty = StrToNum(StrTrim(posdetails,"\\""));\n _TRACE("\\nNetQty : "+posNetqty);\n }\n \n\n} \/\/end of for loop\n}\n\n}\/\/end of for loop\n\n\nif(flag==0)\n{\n_TRACE("\\nTrading Symbol Not Found");\n\/\/posNetqty =0;\n_TRACE("\\nNetQty : "+posNetqty);\n}\n\nreturn posNetqty;\n\n\n}\/\/end of Net Open Positions\n\nfunction PlaceOrder(TransType,orderqty) {\n\n\/\/Creating the Trading Bridge\nalgomojo=CreateObject("AMAMIBRIDGE.Main");\n\/\/Preparing the API data\napi_data ="{\\"strg_name\\":\\""+strg_name+"\\",\\"s_prdt_ali\\":\\""+s_prdt_ali+"\\",\\"Tsym\\":\\""+Tsym+"\\",\\"exch\\":\\""+exch+"\\",\\"Ttranstype\\":\\""+""+TransType+""+"\\",\\"Ret\\":\\""+Ret+"\\",\\"prctyp\\":\\""+"MKT"+"\\",\\"qty\\":\\""+orderqty+"\\",\\"discqty\\":\\""+"0"+"\\",\\"MktPro\\":\\""+"NA"+"\\",\\"Price\\":\\""+"0"+"\\",\\"TrigPrice\\":\\""+"0"+"\\",\\"Pcode\\":\\""+Pcode+"\\",\\"AMO\\":\\""+AMO+"\\"}";\n\n_TRACE("Broker API Request"+api_data);\nresp=algomojo.AMDispatcher(user_apikey, api_secretkey,"PlaceOrder",api_data,broker,ver);\n\n_TRACE("API Response : "+resp);\n\n_TRACE("Strategy Name : "+strg_name+" AlgoStatus : "+ EnableAlgo);\n_TRACE("Chart Symbol : "+ Name() +" Trading Symbol : "+ Tsym +"Trading Interval : "+Interval(2)+" Chard Id : "+ GetChartID());\n\nSay( "Order Placed" ); \n\nreturn resp;\n\n}\n\nNewQty = Null;\n\t\/\/Execution Module\n\nif(EnableAlgo != "Disable")\n {\n lasttime = StrFormat("%0.f",LastValue(BarIndex()));\n \n SetChartBkColor(colorDarkGrey);\n if(EnableAlgo == "Enable")\n { \n if (AlgoBuy==True AND AlgoCover == True AND StaticVarGet(static_name_+"buyCoverAlgo")==0 AND StaticVarGetText(static_name_+"buyCoverAlgo_barvalue") != lasttime )\n {\n \/\/ reverse Long Entry \n\t\t\t\tOpenPos = NetOpenPositions();\n if(OpenPos==0)\n {\n \/\/If no open position send only x1 times of qty\n NewQty = qty;\n _TRACE("No Open Positions Exist and Hence x1 times qty will be punched");\n }\n else if(OpenPos == -qty)\n {\n \/\/if already short positions are running send x2 times of qty\n NewQty = 2*qty;\n _TRACE("Open Positions Exist and Hence x2 times qty will be punched");\n }\n else\n {\n NewQty = 2*qty;\n _TRACE("Warning Mismatch in Trading Positions and Check Manually and Take necessary Action");\n _TRACE("Open Positions Exist and Hence x2 times qty will be punched");\n \n }\n \n PlaceOrder("B",NewQty);\n StaticVarSetText(static_name_+"buyCoverAlgo_barvalue",lasttime); \n StaticVarSet(static_name_+"buyCoverAlgo",1); \/\/Algo Order was triggered, no more order on this bar\n \n \n }\n else if ((AlgoBuy != True OR AlgoCover != True))\n { \n StaticVarSet(static_name_+"buyCoverAlgo",0);\n StaticVarSetText(static_name_+"buyCoverAlgo_barvalue","");\n }\n \n if (AlgoBuy==True AND AlgoCover != True AND StaticVarGet(static_name_+"buyAlgo")==0 AND StaticVarGetText(static_name_+"buyAlgo_barvalue") != lasttime)\n {\n \/\/ Long Entry \n PlaceOrder("B",qty);\n StaticVarSetText(static_name_+"buyAlgo_barvalue",lasttime); \n StaticVarSet(static_name_+"buyAlgo",1); \/\/Algo Order was triggered, no more order on this bar\n \n }\n else if (AlgoBuy != True)\n { \n StaticVarSet(static_name_+"buyAlgo",0);\n StaticVarSetText(static_name_+"buyAlgo_barvalue","");\n \n }\n if (AlgoSell==true AND AlgoShort != True AND StaticVarGet(static_name_+"sellAlgo")==0 AND StaticVarGetText(static_name_+"sellAlgo_barvalue") != lasttime)\n { \n \/\/ Long Exit \n\t\t\t\tOpenPos = NetOpenPositions();\n\t\t\t\tif(OpenPos == qty)\n {\n \/\/If positive open positions are there only then exit the longs \n PlaceOrder("S",qty);\n }\n else if(OpenPos != 0 AND OpenPos != qty)\n {\n PlaceOrder("S",qty);\n _TRACE("Mismatch in Qty : Exit Order is Placed. Kindly check the positions and take necssary action");\n }\n else\n {\n _TRACE("Warning : No Open Long Positions Exits and Hence No Sell Order is Placed to Exit the Long Position");\n _TRACE("Kindly check the positions and take necssary action");\n }\n \n StaticVarSetText(static_name_+"sellAlgo_barvalue",lasttime);\n StaticVarSet(static_name_+"sellAlgo",1); \/\/Algo Order was triggered, no more order on this bar\n \n }\n else if (AlgoSell != True )\n { \n StaticVarSet(static_name_+"sellAlgo",0);\n StaticVarSetText(static_name_+"sellAlgo_barvalue","");\n }\n if (AlgoShort==True AND AlgoSell==True AND StaticVarGet(static_name_+"ShortSellAlgo")==0 AND StaticVarGetText(static_name_+"ShortSellAlgo_barvalue") != lasttime)\n {\n \/\/ reverse Short Entry \n\t\t\t\tOpenPos = NetOpenPositions();\n\t\t\t\tif(OpenPos==0)\n {\n \/\/If no open position send only x1 times of qty\n NewQty = qty;\n _TRACE("No Open Positions Exist and Hence x1 times qty will be punched");\n }\n else if(OpenPos == qty)\n {\n \/\/if already short positions are running send x2 times of qty\n NewQty = 2*qty;\n _TRACE("Open Positions Exist and Hence x2 times qty will be punched");\n }\n else\n {\n NewQty = 2*qty;\n _TRACE("Warning Mismatch in Trading Positions and Check Manually and Take necessary Action");\n _TRACE("Open Positions Exist and Hence x2 times qty will be punched");\n \n }\n PlaceOrder("S",NewQty);\n StaticVarSetText(static_name_+"ShortsellAlgo_barvalue",lasttime);\n StaticVarSet(static_name_+"ShortSellAlgo",1); \/\/Algo Order was triggered, no more order on this bar\n \n }\n else if ((AlgoShort != True OR AlgoSell != True))\n { \n StaticVarSet(static_name_+"ShortSellAlgo",0);\n StaticVarSetText(static_name_+"ShortsellAlgo_barvalue","");\n }\n \n if (AlgoShort==True AND AlgoSell != True AND StaticVarGet(static_name_+"ShortAlgo")==0 AND StaticVarGetText(static_name_+"ShortAlgo_barvalue") != lasttime)\n {\n \/\/ Short Entry\n PlaceOrder("S",qty);\n StaticVarSetText(static_name_+"ShortAlgo_barvalue",lasttime); \n StaticVarSet(static_name_+"ShortAlgo",1); \/\/Algo Order was triggered, no more order on this bar\n \n }\n else if (AlgoShort != True )\n { \n StaticVarSet(static_name_+"ShortAlgo",0);\n StaticVarSetText(static_name_+"ShortAlgo_barvalue","");\n }\n if (AlgoCover==true AND AlgoBuy != True AND StaticVarGet(static_name_+"CoverAlgo")==0 AND StaticVarGetText(static_name_+"CoverAlgo_barvalue") != lasttime)\n {\n \/\/ Short Exit\n\t\t\t\tOpenPos = NetOpenPositions();\n\t\t\t\tif(OpenPos == -qty)\n {\n \/\/If negative open positions are there only then exit the shorts \n PlaceOrder("B",qty);\n }\n else if(OpenPos != 0 AND OpenPos != -qty)\n {\n PlaceOrder("B",qty);\n _TRACE("Mismatch in Qty : Exit Order is Placed. Kindly check the positions and take necssary action");\n }\n else\n {\n _TRACE("Warning : No Open Long Positions Exits and Hence No Cover Order is Placed to Exit the Short Position");\n _TRACE("Kindly check the positions and take necssary action");\n }\n \n StaticVarSetText(static_name_+"CoverAlgo_barvalue",lasttime); \n StaticVarSet(static_name_+"CoverAlgo",1); \/\/Algo Order was triggered, no more order on this bar\n \n }\n else if (AlgoCover != True )\n { \n StaticVarSet(static_name_+"CoverAlgo",0);\n StaticVarSetText(static_name_+"CoverAlgo_barvalue","");\n }\n }\n \n else if(EnableAlgo == "LongOnly")\n {\n \n if (AlgoBuy==True AND StaticVarGet(static_name_+"buyAlgo")==0 AND StaticVarGetText(static_name_+"buyAlgo_barvalue") != lasttime)\n { \n \/\/ Long Entry\n PlaceOrder("B",qty);\n StaticVarSetText(static_name_+"buyAlgo_barvalue",lasttime);\n StaticVarSet(static_name_+"buyAlgo",1); \/\/Algo Order was triggered, no more order on this bar\n \n }\n else if (AlgoBuy != True)\n { \n StaticVarSet(static_name_+"buyAlgo",0);\n StaticVarSetText(static_name_+"buyAlgo_barvalue","");\n }\n if (AlgoSell==true AND StaticVarGet(static_name_+"sellAlgo")==0 AND StaticVarGetText(static_name_+"sellAlgo_barvalue") != lasttime)\n { \n \/\/ Long Exit\n OpenPos = NetOpenPositions();\n\t\t\t\tif(OpenPos == qty)\n {\n \/\/If positive open positions are there only then exit the longs \n PlaceOrder("S",qty);\n }\n else if(OpenPos != 0 AND OpenPos != qty)\n {\n PlaceOrder("S",qty);\n _TRACE("Mismatch in Qty : Exit Order is Placed. Kindly check the positions and take necssary action");\n }\n else\n {\n _TRACE("Warning : No Open Long Positions Exits and Hence No Sell Order is Placed to Exit the Long Position");\n _TRACE("Kindly check the positions and take necssary action");\n }\n StaticVarSetText(static_name_+"sellAlgo_barvalue",lasttime);\n StaticVarSet(static_name_+"sellAlgo",1); \/\/Algo Order was triggered, no more order on this bar\n \n }\n else if (AlgoSell != True )\n { \n StaticVarSet(static_name_+"sellAlgo",0);\n StaticVarSetText(static_name_+"sellAlgo_barvalue","");\n }\n }\n else if(EnableAlgo == "ShortOnly")\n {\n if (AlgoShort==True AND StaticVarGet(static_name_+"ShortAlgo")==0 AND StaticVarGetText(static_name_+"ShortAlgo_barvalue") != lasttime)\n {\n \/\/ Short Entry\n PlaceOrder("S",qty);\n StaticVarSetText(static_name_+"ShortAlgo_barvalue",lasttime); \n StaticVarSet(static_name_+"ShortAlgo",1); \/\/Algo Order was triggered, no more order on this bar\n \n }\n else if (AlgoShort != True )\n { \n StaticVarSet(static_name_+"ShortAlgo",0);\n StaticVarSetText(static_name_+"ShortAlgo_barvalue","");\n }\n if (AlgoCover==true AND StaticVarGet(static_name_+"CoverAlgo")==0 AND StaticVarGetText(static_name_+"CoverAlgo_barvalue") != lasttime)\n {\n \/\/ Short Exit\n OpenPos = NetOpenPositions();\n\t\t\t\tif(OpenPos == -qty)\n {\n \/\/If negative open positions are there only then exit the shorts \n PlaceOrder("B",qty);\n }\n else if(OpenPos != 0 AND OpenPos != -qty)\n {\n PlaceOrder("B",qty);\n _TRACE("Mismatch in Qty : Exit Order is Placed. Kindly check the positions and take necssary action");\n }\n else\n {\n _TRACE("Warning : No Open Long Positions Exits and Hence No Cover Order is Placed to Exit the Short Position");\n _TRACE("Kindly check the positions and take necssary action");\n }\n \n StaticVarSetText(static_name_+"CoverAlgo_barvalue",lasttime); \n StaticVarSet(static_name_+"CoverAlgo",1); \/\/Algo Order was triggered, no more order on this bar\n \n }\n else if (AlgoCover != True)\n { \n StaticVarSet(static_name_+"CoverAlgo",0);\n StaticVarSetText(static_name_+"CoverAlgo_barvalue","");\n }\n }\n \n }\n \n \n\n\n_SECTION_END();<\/code><\/pre>\n\n\n\n\n\n\/\/ Developer: Algomojo\n\/\/ Date: 24-Dec-2021\n\/\/ Website: algomojo.com \/ marketcalls.in\n\n_SECTION_BEGIN("Kambala - Broker Controls");\n\nRequestTimedRefresh(1, False); \/\/ Send orders even if Amibroker is minimized or Chart is not active\n\nuid = ParamStr("uid","xxxx"); \/\/Enter your API key here\nbroker = Paramlist("Broker","fs|tc"); \/\/Broker Short Code - fs - firstock , tc - Tradejini (Cube)\nver = ParamStr("API Version","1.0");\napi_key = ParamStr("user_apikey","xxxxxxxxx"); \/\/Enter your API key here\napi_secret = ParamStr("api_secret","xxxxxxxxx"); \/\/Enter your API secret key here\n\n\n_SECTION_END();\n\n_SECTION_BEGIN("Kambala - Order Controls");\n\ntsym = ParamStr("Trading Symbol","RELIANCE-EQ");\nexch = ParamList("Exchange","NSE|NFO|BSE|MCX",0); \nqty = Param("Quatity",1,1,100000,1);\n\nprc = "0";\nprd = Paramlist("Product","C|M|I",1); \/\/Enter your API key here\nprctyp = ParamList("Product Type","MKT|MKT|SL-LMT|SL-MKT|DS|2L|3L",0);\nret = "Day";\nremarks = "Algomojo";\nordersource ="API";\nstrg_name = ParamStr("Strategy Name", "Firstock Strategy");\n\n\nEntrydelay = Param("Entry Delay",0,0,1); \/\/ 0 - Execution with No Delay after a signal, 1- Execution at the end of the candle\nExitdelay = Param("Exit Delay",0,0,1);\n\nEnableAlgo = ParamList("Algo Mode","Disable|Enable|LongOnly|ShortOnly",0); \/\/ Algo Mode\n\nresp="";\n\n\nstatic_name_ = Name()+GetChartID()+interval(2)+strg_name;\nstatic_name_algo = Name()+GetChartID()+interval(2)+strg_name+"algostatus";\n\n\/\/Configure Trade Execution Delay\n\n\nAlgoBuy = lastvalue(Ref(Buy,-Entrydelay));\nAlgoSell = lastvalue(Ref(Sell,-Exitdelay));\nAlgoShort = lastvalue(Ref(Short,-Entrydelay));\nAlgoCover = lastvalue(Ref(Cover,-Exitdelay));\n\n\n\nGfxSelectFont( "BOOK ANTIQUA", 14, 100 );\nGfxSetBkMode( 1 );\nif(EnableAlgo == "Enable")\n{\nAlgoStatus = "Algo Enabled";\nGfxSetTextColor( colorGreen ); \nGfxTextOut( "Algostatus : "+AlgoStatus , 20, 40); \nif(Nz(StaticVarGet(static_name_algo),0)!=1)\n{\n_TRACE("Algo Status : Enabled");\nStaticVarSet(static_name_algo, 1);\n}\n}\nif(EnableAlgo == "Disable")\n{\nAlgoStatus = "Algo Disabled";\nGfxSetTextColor( colorRed ); \nGfxTextOut( "Algostatus : "+AlgoStatus , 20, 40); \nif(Nz(StaticVarGet(static_name_algo),0)!=0)\n{\n_TRACE("Algo Status : Disabled");\nStaticVarSet(static_name_algo, 0);\n}\n}\nif(EnableAlgo == "LongOnly")\n{\nAlgoStatus = "Long Only";\nGfxSetTextColor( colorYellow ); \nGfxTextOut( "Algostatus : "+AlgoStatus , 20, 40); \nif(Nz(StaticVarGet(static_name_algo),0)!=2)\n{\n_TRACE("Algo Status : Long Only");\nStaticVarSet(static_name_algo, 2);\n}\n}\nif(EnableAlgo == "ShortOnly")\n{\nAlgoStatus = "Short Only";\nGfxSetTextColor( colorYellow ); \nGfxTextOut( "Algostatus : "+AlgoStatus , 20, 40); \nif(Nz(StaticVarGet(static_name_algo),0)!=3)\n{\n_TRACE("Algo Status : Short Only");\nStaticVarSet(static_name_algo, 3);\n}\n}\n\nfunction PlaceOrder(Action,orderqty)\n{\n\t\n algomojo=CreateObject("AMAMIBRIDGE.Main");\n api_data ="{\\"strg_name\\":\\""+strg_name+"\\",\\"uid\\":\\""+uid+"\\",\\"actid\\":\\""+uid+"\\",\\"exch\\":\\""+exch+"\\",\\"tsym\\":\\""+tsym+"\\",\\"qty\\":\\""+orderqty+"\\",\\"prc\\":\\""+prc+"\\",\\"prd\\":\\""+prd+"\\",\\"trantype\\":\\""+Action+"\\",\\"prctyp\\":\\""+prctyp+"\\",\\"ret\\":\\""+ret+"\\",\\"remarks\\":\\""+remarks+"\\",\\"ordersource\\":\\""+ordersource+"\\"}";\n \n _TRACE("API Request"+api_data);\n resp=algomojo.AMDispatcher(api_key, api_secret,"PlaceOrder",api_data,broker,ver);\n _TRACE("API Response : "+resp);\n _TRACE("Strategy Name : "+strg_name+" AlgoStatus : "+ EnableAlgo);\n _TRACE("Chart Symbol : "+ Name() +" Trading Symbol : "+ tsym +" qty : "+ orderqty +" Signal : Buy Signal TimeFrame : "+ Interval(2)+" ChardId : "+ GetChartID() + " LTP : "+LastValue(C));\n\tSay( "Order Placed" ); \n}\n\nfunction GetPositionsBook()\n{\nalgomojo=CreateObject("AMAMIBRIDGE.Main");\napi_data ="{\\"uid\\":\\""+uid+"\\",\\"actid\\":\\""+uid+"\\"}";\n_TRACE("PositionBook Request :"+api_data);\nresp=algomojo.AMDispatcher(api_key, api_secret,"PositionBook",api_data,broker,ver);\n_TRACE("PositionBook Response :"+resp);\nreturn resp;\n}\n\nfunction NetOpenPositions()\n{\n\n\n\/\/Initialization\nflag = 0;\n\nresp = GetPositionsBook();\n\npossym = "";\nposNetqty =0;\n\n\nfor( item = 1; ( sym = StrExtract( resp, item,'{' )) != ""; item++ )\n{\n\nsym = StrTrim(sym," ");\nTsym = StrTrim(Tsym," ");\n\nif(Strfind(sym,Tsym) AND StrFind(sym,"\\"prd\\":\\""+prd+"\\"")) \/\/Matches the symbol and \/\/Matches the Order Type\n{\n\nflag = 1; \/\/turn on the flag\n\ndata = sym;\n\n_TRACE(" Position Book : " +data);\n\nfor( jitem = 0; ( posdetails = StrExtract( data, jitem,',' )) != ""; jitem++ )\n{\n\n if(Strfind(posdetails,"netqty"))\n {\n posdetails = StrExtract(posdetails,1,':');\n posNetqty = StrToNum(StrTrim(posdetails,"\\""));\n _TRACE("\\nNetQty : "+posNetqty);\n }\n \n\n} \/\/end of for loop\n}\n\n}\/\/end of for loop\n\nif(flag==0)\n{\n_TRACE("\\nTrading Symbol Not Found");\n}\n\nreturn posNetqty;\n\n}\n\nNewQty = Null;\n\nif(EnableAlgo != "Disable")\n {\n lasttime = StrFormat("%0.f",LastValue(BarIndex()));\n \n SetChartBkColor(colorDarkGrey);\n if(EnableAlgo == "Enable")\n { \n if (AlgoBuy==True AND AlgoCover == True AND StaticVarGet(static_name_+"buyCoverAlgo")==0 AND StaticVarGetText(static_name_+"buyCoverAlgo_barvalue") != lasttime )\n {\n \/\/ reverse Long Entry \n\t\t\t\tOpenPos = NetOpenPositions();\n if(OpenPos==0)\n {\n \/\/If no open position send only x1 times of qty\n NewQty = qty;\n _TRACE("No Open Positions Exist and Hence x1 times qty will be punched");\n }\n else if(OpenPos == -qty)\n {\n \/\/if already short positions are running send x2 times of qty\n NewQty = 2*qty;\n _TRACE("Open Positions Exist and Hence x2 times qty will be punched");\n }\n else\n {\n NewQty = 2*qty;\n _TRACE("Warning Mismatch in Trading Positions and Check Manually and Take necessary Action");\n _TRACE("Open Positions Exist and Hence x2 times qty will be punched");\n \n }\n \n PlaceOrder("B",NewQty);\n StaticVarSetText(static_name_+"buyCoverAlgo_barvalue",lasttime); \n StaticVarSet(static_name_+"buyCoverAlgo",1); \/\/Algo Order was triggered, no more order on this bar\n \n \n }\n else if ((AlgoBuy != True OR AlgoCover != True))\n { \n StaticVarSet(static_name_+"buyCoverAlgo",0);\n StaticVarSetText(static_name_+"buyCoverAlgo_barvalue","");\n }\n \n if (AlgoBuy==True AND AlgoCover != True AND StaticVarGet(static_name_+"buyAlgo")==0 AND StaticVarGetText(static_name_+"buyAlgo_barvalue") != lasttime)\n {\n \/\/ Long Entry \n PlaceOrder("B",qty);\n StaticVarSetText(static_name_+"buyAlgo_barvalue",lasttime); \n StaticVarSet(static_name_+"buyAlgo",1); \/\/Algo Order was triggered, no more order on this bar\n \n }\n else if (AlgoBuy != True)\n { \n StaticVarSet(static_name_+"buyAlgo",0);\n StaticVarSetText(static_name_+"buyAlgo_barvalue","");\n \n }\n if (AlgoSell==true AND AlgoShort != True AND StaticVarGet(static_name_+"sellAlgo")==0 AND StaticVarGetText(static_name_+"sellAlgo_barvalue") != lasttime)\n { \n \/\/ Long Exit \n\t\t\t\tOpenPos = NetOpenPositions();\n\t\t\t\tif(OpenPos == qty)\n {\n \/\/If positive open positions are there only then exit the longs \n PlaceOrder("S",qty);\n }\n else if(OpenPos != 0 AND OpenPos != qty)\n {\n PlaceOrder("S",qty);\n _TRACE("Mismatch in Qty : Exit Order is Placed. Kindly check the positions and take necssary action");\n }\n else\n {\n _TRACE("Warning : No Open Long Positions Exits and Hence No Sell Order is Placed to Exit the Long Position");\n _TRACE("Kindly check the positions and take necssary action");\n }\n \n StaticVarSetText(static_name_+"sellAlgo_barvalue",lasttime);\n StaticVarSet(static_name_+"sellAlgo",1); \/\/Algo Order was triggered, no more order on this bar\n \n }\n else if (AlgoSell != True )\n { \n StaticVarSet(static_name_+"sellAlgo",0);\n StaticVarSetText(static_name_+"sellAlgo_barvalue","");\n }\n if (AlgoShort==True AND AlgoSell==True AND StaticVarGet(static_name_+"ShortSellAlgo")==0 AND StaticVarGetText(static_name_+"ShortSellAlgo_barvalue") != lasttime)\n {\n \/\/ reverse Short Entry \n\t\t\t\tOpenPos = NetOpenPositions();\n\t\t\t\tif(OpenPos==0)\n {\n \/\/If no open position send only x1 times of qty\n NewQty = qty;\n _TRACE("No Open Positions Exist and Hence x1 times qty will be punched");\n }\n else if(OpenPos == qty)\n {\n \/\/if already short positions are running send x2 times of qty\n NewQty = 2*qty;\n _TRACE("Open Positions Exist and Hence x2 times qty will be punched");\n }\n else\n {\n NewQty = 2*qty;\n _TRACE("Warning Mismatch in Trading Positions and Check Manually and Take necessary Action");\n _TRACE("Open Positions Exist and Hence x2 times qty will be punched");\n \n }\n PlaceOrder("S",NewQty);\n StaticVarSetText(static_name_+"ShortsellAlgo_barvalue",lasttime);\n StaticVarSet(static_name_+"ShortSellAlgo",1); \/\/Algo Order was triggered, no more order on this bar\n \n }\n else if ((AlgoShort != True OR AlgoSell != True))\n { \n StaticVarSet(static_name_+"ShortSellAlgo",0);\n StaticVarSetText(static_name_+"ShortsellAlgo_barvalue","");\n }\n \n if (AlgoShort==True AND AlgoSell != True AND StaticVarGet(static_name_+"ShortAlgo")==0 AND StaticVarGetText(static_name_+"ShortAlgo_barvalue") != lasttime)\n {\n \/\/ Short Entry\n PlaceOrder("S",qty);\n StaticVarSetText(static_name_+"ShortAlgo_barvalue",lasttime); \n StaticVarSet(static_name_+"ShortAlgo",1); \/\/Algo Order was triggered, no more order on this bar\n \n }\n else if (AlgoShort != True )\n { \n StaticVarSet(static_name_+"ShortAlgo",0);\n StaticVarSetText(static_name_+"ShortAlgo_barvalue","");\n }\n if (AlgoCover==true AND AlgoBuy != True AND StaticVarGet(static_name_+"CoverAlgo")==0 AND StaticVarGetText(static_name_+"CoverAlgo_barvalue") != lasttime)\n {\n \/\/ Short Exit\n\t\t\t\tOpenPos = NetOpenPositions();\n\t\t\t\tif(OpenPos == -qty)\n {\n \/\/If negative open positions are there only then exit the shorts \n PlaceOrder("B",qty);\n }\n else if(OpenPos != 0 AND OpenPos != -qty)\n {\n PlaceOrder("B",qty);\n _TRACE("Mismatch in Qty : Exit Order is Placed. Kindly check the positions and take necssary action");\n }\n else\n {\n _TRACE("Warning : No Open Long Positions Exits and Hence No Cover Order is Placed to Exit the Short Position");\n _TRACE("Kindly check the positions and take necssary action");\n }\n \n StaticVarSetText(static_name_+"CoverAlgo_barvalue",lasttime); \n StaticVarSet(static_name_+"CoverAlgo",1); \/\/Algo Order was triggered, no more order on this bar\n \n }\n else if (AlgoCover != True )\n { \n StaticVarSet(static_name_+"CoverAlgo",0);\n StaticVarSetText(static_name_+"CoverAlgo_barvalue","");\n }\n }\n \n else if(EnableAlgo == "LongOnly")\n {\n \n if (AlgoBuy==True AND StaticVarGet(static_name_+"buyAlgo")==0 AND StaticVarGetText(static_name_+"buyAlgo_barvalue") != lasttime)\n { \n \/\/ Long Entry\n PlaceOrder("B",qty);\n StaticVarSetText(static_name_+"buyAlgo_barvalue",lasttime);\n StaticVarSet(static_name_+"buyAlgo",1); \/\/Algo Order was triggered, no more order on this bar\n \n }\n else if (AlgoBuy != True)\n { \n StaticVarSet(static_name_+"buyAlgo",0);\n StaticVarSetText(static_name_+"buyAlgo_barvalue","");\n }\n if (AlgoSell==true AND StaticVarGet(static_name_+"sellAlgo")==0 AND StaticVarGetText(static_name_+"sellAlgo_barvalue") != lasttime)\n { \n \/\/ Long Exit\n OpenPos = NetOpenPositions();\n\t\t\t\tif(OpenPos == qty)\n {\n \/\/If positive open positions are there only then exit the longs \n PlaceOrder("S",qty);\n }\n else if(OpenPos != 0 AND OpenPos != qty)\n {\n PlaceOrder("S",qty);\n _TRACE("Mismatch in Qty : Exit Order is Placed. Kindly check the positions and take necssary action");\n }\n else\n {\n _TRACE("Warning : No Open Long Positions Exits and Hence No Sell Order is Placed to Exit the Long Position");\n _TRACE("Kindly check the positions and take necssary action");\n }\n StaticVarSetText(static_name_+"sellAlgo_barvalue",lasttime);\n StaticVarSet(static_name_+"sellAlgo",1); \/\/Algo Order was triggered, no more order on this bar\n \n }\n else if (AlgoSell != True )\n { \n StaticVarSet(static_name_+"sellAlgo",0);\n StaticVarSetText(static_name_+"sellAlgo_barvalue","");\n }\n }\n else if(EnableAlgo == "ShortOnly")\n {\n if (AlgoShort==True AND StaticVarGet(static_name_+"ShortAlgo")==0 AND StaticVarGetText(static_name_+"ShortAlgo_barvalue") != lasttime)\n {\n \/\/ Short Entry\n PlaceOrder("S",qty);\n StaticVarSetText(static_name_+"ShortAlgo_barvalue",lasttime); \n StaticVarSet(static_name_+"ShortAlgo",1); \/\/Algo Order was triggered, no more order on this bar\n \n }\n else if (AlgoShort != True )\n { \n StaticVarSet(static_name_+"ShortAlgo",0);\n StaticVarSetText(static_name_+"ShortAlgo_barvalue","");\n }\n if (AlgoCover==true AND StaticVarGet(static_name_+"CoverAlgo")==0 AND StaticVarGetText(static_name_+"CoverAlgo_barvalue") != lasttime)\n {\n \/\/ Short Exit\n OpenPos = NetOpenPositions();\n\t\t\t\tif(OpenPos == -qty)\n {\n \/\/If negative open positions are there only then exit the shorts \n PlaceOrder("B",qty);\n }\n else if(OpenPos != 0 AND OpenPos != -qty)\n {\n PlaceOrder("B",qty);\n _TRACE("Mismatch in Qty : Exit Order is Placed. Kindly check the positions and take necssary action");\n }\n else\n {\n _TRACE("Warning : No Open Long Positions Exits and Hence No Cover Order is Placed to Exit the Short Position");\n _TRACE("Kindly check the positions and take necssary action");\n }\n \n StaticVarSetText(static_name_+"CoverAlgo_barvalue",lasttime); \n StaticVarSet(static_name_+"CoverAlgo",1); \/\/Algo Order was triggered, no more order on this bar\n \n }\n else if (AlgoCover != True)\n { \n StaticVarSet(static_name_+"CoverAlgo",0);\n StaticVarSetText(static_name_+"CoverAlgo_barvalue","");\n }\n }\n \n }\n \n \n_SECTION_END();\n<\/code><\/pre>\n\n\n\n\/\/ Developer: Algomojo\n\/\/ Date: 24-Dec-2021\n\/\/ Website: algomojo.com \/ marketcalls.in\n\n_SECTION_BEGIN("Fyers - Broker Controls");\n\n\n\/\/ Send orders even if Amibroker is minimized or Chart is not active\nRequestTimedRefresh(1, False); \n\n\/\/Creating Input Controls for Setting Order Related Information\n\nbroker = ParamStr("Broker","fy");\nver = ParamStr("API Version","1.0");\napikey = ParamStr("APIKey","xxxxxxxxxxxxxx");\napisecret = ParamStr("APIsecret","xxxxxxxxxxxxx");\nclient_id = ParamStr("Client ID","xxxxxxxxx");\n\n_SECTION_END();\n\n_SECTION_BEGIN("Fyers - Order Controls");\n\nstrg_name = ParamStr("Strategy Name","Amibroker Strategy");\n\nexchange = ParamList("Exchange","NSE|BSE|MCX|CDS");\nsymbol = ParamStr("Symbol Name","RELIANCE-EQ"); \nqty = Param("Quantity",1,1,10000,1);\n\ntype = ParamList("Order Type","MKT|LMT|SL-MKT|SL-LMT");\n\nif(type=="MKT")\n{\n\ttype = 2;\n\t}\nelse if(type=="LMT")\n{\n\ttype = 1;\n\t}\nelse if(type=="SL-MKT")\n{\n\ttype = 3;\n\t}\nelse if(type=="SL-LMT")\n{\n\ttype = 4;\n\t}\n\t\n\t\t\t\nsymbol = exchange+":"+symbol;\n\nproductType = ParamList("Product Type","INTRADAY|CNC|MARGIN|BO|CO",0);\nlimitPrice = "0";\nstopPrice = "0";\nvalidity = "DAY";\ndisclosedQty = "0";\nofflineOrder = "False";\nstopLoss = "0";\ntakeProfit = "0";\n\n\nEntrydelay = Param("Entry Delay",0,0,1); \/\/ 0 - Execution with No Delay after a signal, 1- Execution at the end of the candle\nExitdelay = Param("Exit Delay",0,0,1);\nEnableAlgo = ParamList("Algo Mode","Disable|Enable|LongOnly|ShortOnly",0); \/\/ Algo Mode\n\n\n\/\/Configure Trade Execution Delay\n\n\nAlgoBuy = lastvalue(Ref(Buy,-Entrydelay));\nAlgoSell = lastvalue(Ref(Sell,-Exitdelay));\nAlgoShort = lastvalue(Ref(Short,-Entrydelay));\nAlgoCover = lastvalue(Ref(Cover,-Exitdelay));\n\n\n\nstatic_name_ = Name()+GetChartID()+interval(2)+strg_name;\nstatic_name_algo = Name()+GetChartID()+interval(2)+strg_name+"algostatus";\n\n\nGfxSelectFont( "BOOK ANTIQUA", 14, 100 );\nGfxSetBkMode( 1 );\nif(EnableAlgo == "Enable")\n{\nAlgoStatus = "Algo Enabled";\nGfxSetTextColor( colorGreen ); \nGfxTextOut( "Algostatus : "+AlgoStatus , 20, 40); \nif(Nz(StaticVarGet(static_name_algo),0)!=1)\n{\n_TRACE("Algo Status : Enabled");\nStaticVarSet(static_name_algo, 1);\n}\n}\nif(EnableAlgo == "Disable")\n{\nAlgoStatus = "Algo Disabled";\nGfxSetTextColor( colorRed ); \nGfxTextOut( "Algostatus : "+AlgoStatus , 20, 40); \nif(Nz(StaticVarGet(static_name_algo),0)!=0)\n{\n_TRACE("Algo Status : Disabled");\nStaticVarSet(static_name_algo, 0);\n}\n}\nif(EnableAlgo == "LongOnly")\n{\nAlgoStatus = "Long Only";\nGfxSetTextColor( colorYellow ); \nGfxTextOut( "Algostatus : "+AlgoStatus , 20, 40); \nif(Nz(StaticVarGet(static_name_algo),0)!=2)\n{\n_TRACE("Algo Status : Long Only");\nStaticVarSet(static_name_algo, 2);\n}\n}\nif(EnableAlgo == "ShortOnly")\n{\nAlgoStatus = "Short Only";\nGfxSetTextColor( colorYellow ); \nGfxTextOut( "Algostatus : "+AlgoStatus , 20, 40); \nif(Nz(StaticVarGet(static_name_algo),0)!=3)\n{\n_TRACE("Algo Status : Short Only");\nStaticVarSet(static_name_algo, 3);\n}\n}\n\n\/\/PlaceOrder Sends Market Order Returns response on Succesful PlaceOrder\n\nfunction PlaceOrder(TransType,orderqty) {\n\n\/\/Creating the Trading Bridge\nalgomojo=CreateObject("AMAMIBRIDGE.Main");\n\/\/Preparing the API data\n\nif(TransType=="B")\n\tTransType = "1";\nif(TransType=="S")\n\tTransType = "-1";\n\napi_data = "{\n \\"strg_name\\": \\""+strg_name+"\\",\n \\"symbol\\":\\""+symbol+"\\",\n \\"qty\\":\\""+orderqty+"\\",\n \\"type\\":\\""+type+"\\",\n \\"side\\":\\""+TransType+"\\",\n \\"productType\\":\\""+productType+"\\",\n \\"limitPrice\\":\\"0\\",\n \\"stopPrice\\":\\"0\\",\n \\"validity\\": \\"DAY\\",\n \\"disclosedQty\\":\\"0\\",\n \\"offlineOrder\\": \\"False\\",\n \\"stopLoss\\":\\"0\\",\n \\"takeProfit\\":\\"0\\"\n }"; \n\n_TRACE("Broker API Request"+api_data);\nresp=algomojo.AMDispatcher(apikey, apisecret,"PlaceOrder",api_data,broker,ver);\n\n_TRACE("API Response : "+resp);\n\n_TRACE("Strategy Name : "+strg_name+" AlgoStatus : "+ EnableAlgo);\n_TRACE("Chart Symbol : "+ Name() +" Trading Symbol : "+ symbol +"Trading Interval : "+Interval(2)+" Chard Id : "+ GetChartID());\n\nSay( "Order Placed" ); \n\nreturn resp;\n\n}\n\nfunction GetPositionsBook()\n{\n\/\/Creating the Trading Bridge\nalgomojo=CreateObject("AMAMIBRIDGE.Main");\n\napi_data = "{ }";\n_TRACE("PositionBook API Request"+api_data);\n\n\/\/Sending The Broker Request for NetOpenPositions\nresp=algomojo.AMDispatcher(apikey, apisecret,"positions",api_data,broker,ver);\n_TRACE("PositionBook API Response : "+resp);\n\nreturn resp;\n\n}\n\n\n\nfunction NetOpenPositions()\n{\nflag = 0;\n\n\nresp = GetPositionsBook();\n\n\nposNetqty =0;\n\nfor( item = 1; ( sym = StrExtract( resp, item,'{' )) != ""; item++ )\n{\n\n\nif(Strfind(sym,symbol) AND StrFind(sym,productType)) \/\/Matches the symbol and \/\/Matches the Order Type\n{\n\nflag = 1; \/\/turn on the flag\n\nfor( jitem = 0; ( posdetails = StrExtract( sym, jitem,',' )) != ""; jitem++ )\n{\n\n if(Strfind(posdetails,"netQty"))\n {\n posdetails = StrExtract(posdetails,1,':');\n posNetqty = StrTrim(posdetails,"\\""); \/\/Trim if any extra white space\n posNetqty = StrToNum(posNetqty);\n _TRACE("\\nNetqty : "+posNetqty);\n }\n \n\n} \/\/end of for loop\n}\n\n}\/\/end of for loop\n\n\nif(flag==0)\n{\n_TRACE("\\nTrading Symbol Not Found");\n\/\/posNetqty =0;\n_TRACE("\\nNetQty : "+posNetqty);\n}\n\nreturn posNetqty;\n\n\n}\/\/end of Net Open Positions\n\n\n\n_SECTION_END();\n\n\n_SECTION_BEGIN("Live Algo Execution Module");\n\n\nif(EnableAlgo != "Disable")\n {\n lasttime = StrFormat("%0.f",LastValue(BarIndex()));\n \n SetChartBkColor(colorDarkGrey);\n if(EnableAlgo == "Enable")\n { \n if (AlgoBuy==True AND AlgoCover == True AND StaticVarGet(static_name_+"buyCoverAlgo")==0 AND StaticVarGetText(static_name_+"buyCoverAlgo_barvalue") != lasttime )\n {\n \/\/ reverse Long Entry \n\t\t\t\tOpenPos = NetOpenPositions();\n if(OpenPos==0)\n {\n \/\/If no open position send only x1 times of qty\n NewQty = qty;\n _TRACE("No Open Positions Exist and Hence x1 times qty will be punched");\n }\n else if(OpenPos == -qty)\n {\n \/\/if already short positions are running send x2 times of qty\n NewQty = 2*qty;\n _TRACE("Open Positions Exist and Hence x2 times qty will be punched");\n }\n else\n {\n NewQty = 2*qty;\n _TRACE("Warning Mismatch in Trading Positions and Check Manually and Take necessary Action");\n _TRACE("Open Positions Exist and Hence x2 times qty will be punched");\n \n }\n \n PlaceOrder("B",NewQty);\n StaticVarSetText(static_name_+"buyCoverAlgo_barvalue",lasttime); \n StaticVarSet(static_name_+"buyCoverAlgo",1); \/\/Algo Order was triggered, no more order on this bar\n \n \n }\n else if ((AlgoBuy != True OR AlgoCover != True))\n { \n StaticVarSet(static_name_+"buyCoverAlgo",0);\n StaticVarSetText(static_name_+"buyCoverAlgo_barvalue","");\n }\n \n if (AlgoBuy==True AND AlgoCover != True AND StaticVarGet(static_name_+"buyAlgo")==0 AND StaticVarGetText(static_name_+"buyAlgo_barvalue") != lasttime)\n {\n \/\/ Long Entry \n PlaceOrder("B",qty);\n StaticVarSetText(static_name_+"buyAlgo_barvalue",lasttime); \n StaticVarSet(static_name_+"buyAlgo",1); \/\/Algo Order was triggered, no more order on this bar\n \n }\n else if (AlgoBuy != True)\n { \n StaticVarSet(static_name_+"buyAlgo",0);\n StaticVarSetText(static_name_+"buyAlgo_barvalue","");\n \n }\n if (AlgoSell==true AND AlgoShort != True AND StaticVarGet(static_name_+"sellAlgo")==0 AND StaticVarGetText(static_name_+"sellAlgo_barvalue") != lasttime)\n { \n \/\/ Long Exit \n\t\t\t\tOpenPos = NetOpenPositions();\n\t\t\t\tif(OpenPos == qty)\n {\n \/\/If positive open positions are there only then exit the longs \n PlaceOrder("S",qty);\n }\n else if(OpenPos != 0 AND OpenPos != qty)\n {\n PlaceOrder("S",qty);\n _TRACE("Mismatch in Qty : Exit Order is Placed. Kindly check the positions and take necssary action");\n }\n else\n {\n _TRACE("Warning : No Open Long Positions Exits and Hence No Sell Order is Placed to Exit the Long Position");\n _TRACE("Kindly check the positions and take necssary action");\n }\n \n StaticVarSetText(static_name_+"sellAlgo_barvalue",lasttime);\n StaticVarSet(static_name_+"sellAlgo",1); \/\/Algo Order was triggered, no more order on this bar\n \n }\n else if (AlgoSell != True )\n { \n StaticVarSet(static_name_+"sellAlgo",0);\n StaticVarSetText(static_name_+"sellAlgo_barvalue","");\n }\n if (AlgoShort==True AND AlgoSell==True AND StaticVarGet(static_name_+"ShortSellAlgo")==0 AND StaticVarGetText(static_name_+"ShortSellAlgo_barvalue") != lasttime)\n {\n \/\/ reverse Short Entry \n\t\t\t\tOpenPos = NetOpenPositions();\n\t\t\t\tif(OpenPos==0)\n {\n \/\/If no open position send only x1 times of qty\n NewQty = qty;\n _TRACE("No Open Positions Exist and Hence x1 times qty will be punched");\n }\n else if(OpenPos == qty)\n {\n \/\/if already short positions are running send x2 times of qty\n NewQty = 2*qty;\n _TRACE("Open Positions Exist and Hence x2 times qty will be punched");\n }\n else\n {\n NewQty = 2*qty;\n _TRACE("Warning Mismatch in Trading Positions and Check Manually and Take necessary Action");\n _TRACE("Open Positions Exist and Hence x2 times qty will be punched");\n \n }\n PlaceOrder("S",NewQty);\n StaticVarSetText(static_name_+"ShortsellAlgo_barvalue",lasttime);\n StaticVarSet(static_name_+"ShortSellAlgo",1); \/\/Algo Order was triggered, no more order on this bar\n \n }\n else if ((AlgoShort != True OR AlgoSell != True))\n { \n StaticVarSet(static_name_+"ShortSellAlgo",0);\n StaticVarSetText(static_name_+"ShortsellAlgo_barvalue","");\n }\n \n if (AlgoShort==True AND AlgoSell != True AND StaticVarGet(static_name_+"ShortAlgo")==0 AND StaticVarGetText(static_name_+"ShortAlgo_barvalue") != lasttime)\n {\n \/\/ Short Entry\n PlaceOrder("S",qty);\n StaticVarSetText(static_name_+"ShortAlgo_barvalue",lasttime); \n StaticVarSet(static_name_+"ShortAlgo",1); \/\/Algo Order was triggered, no more order on this bar\n \n }\n else if (AlgoShort != True )\n { \n StaticVarSet(static_name_+"ShortAlgo",0);\n StaticVarSetText(static_name_+"ShortAlgo_barvalue","");\n }\n if (AlgoCover==true AND AlgoBuy != True AND StaticVarGet(static_name_+"CoverAlgo")==0 AND StaticVarGetText(static_name_+"CoverAlgo_barvalue") != lasttime)\n {\n \/\/ Short Exit\n\t\t\t\tOpenPos = NetOpenPositions();\n\t\t\t\tif(OpenPos == -qty)\n {\n \/\/If negative open positions are there only then exit the shorts \n PlaceOrder("B",qty);\n }\n else if(OpenPos != 0 AND OpenPos != -qty)\n {\n PlaceOrder("B",qty);\n _TRACE("Mismatch in Qty : Exit Order is Placed. Kindly check the positions and take necssary action");\n }\n else\n {\n _TRACE("Warning : No Open Long Positions Exits and Hence No Cover Order is Placed to Exit the Short Position");\n _TRACE("Kindly check the positions and take necssary action");\n }\n \n StaticVarSetText(static_name_+"CoverAlgo_barvalue",lasttime); \n StaticVarSet(static_name_+"CoverAlgo",1); \/\/Algo Order was triggered, no more order on this bar\n \n }\n else if (AlgoCover != True )\n { \n StaticVarSet(static_name_+"CoverAlgo",0);\n StaticVarSetText(static_name_+"CoverAlgo_barvalue","");\n }\n }\n \n else if(EnableAlgo == "LongOnly")\n {\n \n if (AlgoBuy==True AND StaticVarGet(static_name_+"buyAlgo")==0 AND StaticVarGetText(static_name_+"buyAlgo_barvalue") != lasttime)\n { \n \/\/ Long Entry\n PlaceOrder("B",qty);\n StaticVarSetText(static_name_+"buyAlgo_barvalue",lasttime);\n StaticVarSet(static_name_+"buyAlgo",1); \/\/Algo Order was triggered, no more order on this bar\n \n }\n else if (AlgoBuy != True)\n { \n StaticVarSet(static_name_+"buyAlgo",0);\n StaticVarSetText(static_name_+"buyAlgo_barvalue","");\n }\n if (AlgoSell==true AND StaticVarGet(static_name_+"sellAlgo")==0 AND StaticVarGetText(static_name_+"sellAlgo_barvalue") != lasttime)\n { \n \/\/ Long Exit\n OpenPos = NetOpenPositions();\n\t\t\t\tif(OpenPos == qty)\n {\n \/\/If positive open positions are there only then exit the longs \n PlaceOrder("S",qty);\n }\n else if(OpenPos != 0 AND OpenPos != qty)\n {\n PlaceOrder("S",qty);\n _TRACE("Mismatch in Qty : Exit Order is Placed. Kindly check the positions and take necssary action");\n }\n else\n {\n _TRACE("Warning : No Open Long Positions Exits and Hence No Sell Order is Placed to Exit the Long Position");\n _TRACE("Kindly check the positions and take necssary action");\n }\n StaticVarSetText(static_name_+"sellAlgo_barvalue",lasttime);\n StaticVarSet(static_name_+"sellAlgo",1); \/\/Algo Order was triggered, no more order on this bar\n \n }\n else if (AlgoSell != True )\n { \n StaticVarSet(static_name_+"sellAlgo",0);\n StaticVarSetText(static_name_+"sellAlgo_barvalue","");\n }\n }\n else if(EnableAlgo == "ShortOnly")\n {\n if (AlgoShort==True AND StaticVarGet(static_name_+"ShortAlgo")==0 AND StaticVarGetText(static_name_+"ShortAlgo_barvalue") != lasttime)\n {\n \/\/ Short Entry\n PlaceOrder("S",qty);\n StaticVarSetText(static_name_+"ShortAlgo_barvalue",lasttime); \n StaticVarSet(static_name_+"ShortAlgo",1); \/\/Algo Order was triggered, no more order on this bar\n \n }\n else if (AlgoShort != True )\n { \n StaticVarSet(static_name_+"ShortAlgo",0);\n StaticVarSetText(static_name_+"ShortAlgo_barvalue","");\n }\n if (AlgoCover==true AND StaticVarGet(static_name_+"CoverAlgo")==0 AND StaticVarGetText(static_name_+"CoverAlgo_barvalue") != lasttime)\n {\n \/\/ Short Exit\n OpenPos = NetOpenPositions();\n\t\t\t\tif(OpenPos == -qty)\n {\n \/\/If negative open positions are there only then exit the shorts \n PlaceOrder("B",qty);\n }\n else if(OpenPos != 0 AND OpenPos != -qty)\n {\n PlaceOrder("B",qty);\n _TRACE("Mismatch in Qty : Exit Order is Placed. Kindly check the positions and take necssary action");\n }\n else\n {\n _TRACE("Warning : No Open Long Positions Exits and Hence No Cover Order is Placed to Exit the Short Position");\n _TRACE("Kindly check the positions and take necssary action");\n }\n \n StaticVarSetText(static_name_+"CoverAlgo_barvalue",lasttime); \n StaticVarSet(static_name_+"CoverAlgo",1); \/\/Algo Order was triggered, no more order on this bar\n \n }\n else if (AlgoCover != True)\n { \n StaticVarSet(static_name_+"CoverAlgo",0);\n StaticVarSetText(static_name_+"CoverAlgo_barvalue","");\n }\n }\n \n }\n \n\n\n\n_SECTION_END();\n<\/code><\/pre>\n\n\n\n\/\/ Developer: Algomojo\n\/\/ Date: 24-Dec-2021\n\/\/ Website: algomojo.com \/ marketcalls.in\n\n_SECTION_BEGIN("Upstox - Broker Controls");\n\n\n\/\/ Send orders even if Amibroker is minimized or Chart is not active\nRequestTimedRefresh(1, False); \n\n\/\/Creating Input Controls for Setting Order Related Information\n\nbroker = ParamStr("Broker","up");\nver = ParamStr("API Version","1.0");\nclient_id = ParamStr("Client ID","xxxxx");\napikey = ParamStr("APIKey","xxxxxxxxxxxxxx");\napisecret = ParamStr("APIsecret","xxxxxxxxxxxxx");\n\n_SECTION_END();\n\n_SECTION_BEGIN("Upstox - Order Controls");\n\nstgy_name = ParamStr("Strategy Name","Amibroker Strategy");\nsymbol = ParamStr("Symbol Name","RELIANCE"); \nexchange = ParamList("Exchange","NSE_EQ|NSE_FO|NCD_FO|MCX_FO|BCD_FO|BSE_EQ");\n \nquantity = Param("Quantity",1,1,10000,1);\n\norder_type = ParamList("Order Type","MKT|LMT|SL-MKT|SL-LMT");\n\n\nproductType = ParamList("Product Type","MIS|CNC|NRML",0);\nduration = "DAY";\nMktPro = "NA";\nprice = "0";\ndisclosed_quantity = "0";\ntrigger_price = "0";\nis_amo = "NO";\n\nif(productType=="MIS")\n{\nproduct = "I";\n}\nif(productType=="CNC" OR productType=="NRML")\n{\nproduct = "D";\n}\n\n\nEntrydelay = Param("Entry Delay",0,0,1); \/\/ 0 - Execution with No Delay after a signal, 1- Execution at the end of the candle\nExitdelay = Param("Exit Delay",0,0,1);\nEnableAlgo = ParamList("Algo Mode","Disable|Enable|LongOnly|ShortOnly",0); \/\/ Algo Mode\n\n\n\/\/Configure Trade Execution Delay\n\n\nAlgoBuy = lastvalue(Ref(Buy,-Entrydelay));\nAlgoSell = lastvalue(Ref(Sell,-Exitdelay));\nAlgoShort = lastvalue(Ref(Short,-Entrydelay));\nAlgoCover = lastvalue(Ref(Cover,-Exitdelay));\n\n\n\nstatic_name_ = Name()+GetChartID()+interval(2)+stgy_name;\nstatic_name_algo = Name()+GetChartID()+interval(2)+stgy_name+"algostatus";\n\n\nGfxSelectFont( "BOOK ANTIQUA", 14, 100 );\nGfxSetBkMode( 1 );\nif(EnableAlgo == "Enable")\n{\nAlgoStatus = "Algo Enabled";\nGfxSetTextColor( colorGreen ); \nGfxTextOut( "Algostatus : "+AlgoStatus , 20, 40); \nif(Nz(StaticVarGet(static_name_algo),0)!=1)\n{\n_TRACE("Algo Status : Enabled");\nStaticVarSet(static_name_algo, 1);\n}\n}\nif(EnableAlgo == "Disable")\n{\nAlgoStatus = "Algo Disabled";\nGfxSetTextColor( colorRed ); \nGfxTextOut( "Algostatus : "+AlgoStatus , 20, 40); \nif(Nz(StaticVarGet(static_name_algo),0)!=0)\n{\n_TRACE("Algo Status : Disabled");\nStaticVarSet(static_name_algo, 0);\n}\n}\nif(EnableAlgo == "LongOnly")\n{\nAlgoStatus = "Long Only";\nGfxSetTextColor( colorYellow ); \nGfxTextOut( "Algostatus : "+AlgoStatus , 20, 40); \nif(Nz(StaticVarGet(static_name_algo),0)!=2)\n{\n_TRACE("Algo Status : Long Only");\nStaticVarSet(static_name_algo, 2);\n}\n}\nif(EnableAlgo == "ShortOnly")\n{\nAlgoStatus = "Short Only";\nGfxSetTextColor( colorYellow ); \nGfxTextOut( "Algostatus : "+AlgoStatus , 20, 40); \nif(Nz(StaticVarGet(static_name_algo),0)!=3)\n{\n_TRACE("Algo Status : Short Only");\nStaticVarSet(static_name_algo, 3);\n}\n}\n\n\/\/PlaceOrder Sends Market Order Returns response on Succesful PlaceOrder\n\nfunction PlaceOrder(TransType,orderqty) {\n\n\/\/Creating the Trading Bridge\nalgomojo=CreateObject("AMAMIBRIDGE.Main");\n\/\/Preparing the API data\n\n\n\napi_data = "{\n \\"stgy_name\\": \\""+stgy_name+"\\",\n \\"symbol\\":\\""+symbol+"\\",\n \\"exchange\\":\\""+exchange+"\\",\n \\"transaction_type\\":\\""+TransType+"\\",\n \\"duration\\":\\""+duration+"\\",\n \\"order_type\\":\\""+order_type+"\\",\n \\"quantity\\":\\""+orderqty+"\\",\n \\"disclosed_quantity\\":\\""+disclosed_quantity+"\\",\n \\"MktPro\\":\\""+MktPro+"\\",\n \\"price\\":\\""+price+"\\",\n \\"trigger_price\\":\\""+trigger_price+"\\",\n \\"product\\":\\""+productType+"\\",\n \\"is_amo\\":\\""+is_amo+"\\"\n }"; \n\n_TRACE("Broker API Request"+api_data);\nresp=algomojo.AMDispatcher(apikey, apisecret,"PlaceOrder",api_data,broker,ver);\n\n_TRACE("API Response : "+resp);\n\n_TRACE("Strategy Name : "+stgy_name+" AlgoStatus : "+ EnableAlgo);\n_TRACE("Chart Symbol : "+ Name() +" Trading Symbol : "+ symbol +"Trading Interval : "+Interval(2)+" Chard Id : "+ GetChartID());\nSay( "Order Placed" ); \nreturn resp;\n\n\n\n}\n\nfunction GetPositionsBook()\n{\n\/\/Creating the Trading Bridge\nalgomojo=CreateObject("AMAMIBRIDGE.Main");\n\napi_data = "{ }";\n_TRACE("PositionBook API Request"+api_data);\n\n\/\/Sending The Broker Request for NetOpenPositions\nresp=algomojo.AMDispatcher(apikey, apisecret,"Positions",api_data,broker,ver);\n_TRACE("PositionBook API Response : "+resp);\n\nreturn resp;\n\n}\n\n\n\nfunction NetOpenPositions()\n{\nflag = 0;\n\n\nresp = GetPositionsBook();\n\n\nposNetqty =0;\nproductmsg="";\nfor( item = 1; ( sym = StrExtract( resp, item,'{' )) != ""; item++ )\n{\n\n\nif(Strfind(sym,symbol) AND StrFind(sym,product)) \/\/Matches the symbol and \/\/Matches the Order Type\n{\n\nflag = 1; \/\/turn on the flag\n\nfor( jitem = 0; ( posdetails = StrExtract( sym, jitem,',' )) != ""; jitem++ )\n{\n\nif(Strfind(posdetails,"product"))\n {\n productmsg = StrExtract(posdetails,1,':');\n productmsg = StrTrim(productmsg,"\\""); \/\/Trim if any extra white space\n }\n \n\n if(productmsg == product AND Strfind(posdetails,"net_quantity"))\n {\n posNetqty = StrExtract(posdetails,1,':');\n posNetqty = StrTrim(posNetqty,"\\""); \/\/Trim if any extra white space\n posNetqty = StrToNum(posNetqty);\n _TRACE("\\nNetqty : "+posNetqty);\n }\n \n \n\n} \/\/end of for loop\n}\n\n}\/\/end of for loop\n\n\nif(flag==0)\n{\n_TRACE("\\nTrading Symbol Not Found");\n\/\/posNetqty =0;\n_TRACE("\\nNetQty : "+posNetqty);\n}\n\nreturn posNetqty;\n\n\n}\/\/end of Net Open Positions\n\n\n\n\n\n_SECTION_BEGIN("Live Algo Execution Module");\n\n\nif(EnableAlgo != "Disable")\n {\n lasttime = StrFormat("%0.f",LastValue(BarIndex()));\n \n SetChartBkColor(colorDarkGrey);\n if(EnableAlgo == "Enable")\n { \n if (AlgoBuy==True AND AlgoCover == True AND StaticVarGet(static_name_+"buyCoverAlgo")==0 AND StaticVarGetText(static_name_+"buyCoverAlgo_barvalue") != lasttime )\n {\n \/\/ reverse Long Entry \n\t\t\t\tOpenPos = NetOpenPositions();\n if(OpenPos==0)\n {\n \/\/If no open position send only x1 times of quantity\n Newquantity = quantity;\n _TRACE("No Open Positions Exist and Hence x1 times quantity will be punched");\n }\n else if(OpenPos == -quantity)\n {\n \/\/if already short positions are running send x2 times of quantity\n Newquantity = 2*quantity;\n _TRACE("Open Positions Exist and Hence x2 times quantity will be punched");\n }\n else\n {\n Newquantity = 2*quantity;\n _TRACE("Warning Mismatch in Trading Positions and Check Manually and Take necessary Action");\n _TRACE("Open Positions Exist and Hence x2 times quantity will be punched");\n \n }\n \n PlaceOrder("B",Newquantity);\n StaticVarSetText(static_name_+"buyCoverAlgo_barvalue",lasttime); \n StaticVarSet(static_name_+"buyCoverAlgo",1); \/\/Algo Order was triggered, no more order on this bar\n \n \n }\n else if ((AlgoBuy != True OR AlgoCover != True))\n { \n StaticVarSet(static_name_+"buyCoverAlgo",0);\n StaticVarSetText(static_name_+"buyCoverAlgo_barvalue","");\n }\n \n if (AlgoBuy==True AND AlgoCover != True AND StaticVarGet(static_name_+"buyAlgo")==0 AND StaticVarGetText(static_name_+"buyAlgo_barvalue") != lasttime)\n {\n \/\/ Long Entry \n PlaceOrder("B",quantity);\n StaticVarSetText(static_name_+"buyAlgo_barvalue",lasttime); \n StaticVarSet(static_name_+"buyAlgo",1); \/\/Algo Order was triggered, no more order on this bar\n \n }\n else if (AlgoBuy != True)\n { \n StaticVarSet(static_name_+"buyAlgo",0);\n StaticVarSetText(static_name_+"buyAlgo_barvalue","");\n \n }\n if (AlgoSell==true AND AlgoShort != True AND StaticVarGet(static_name_+"sellAlgo")==0 AND StaticVarGetText(static_name_+"sellAlgo_barvalue") != lasttime)\n { \n \/\/ Long Exit \n\t\t\t\tOpenPos = NetOpenPositions();\n\t\t\t\tif(OpenPos == quantity)\n {\n \/\/If positive open positions are there only then exit the longs \n PlaceOrder("S",quantity);\n }\n else if(OpenPos != 0 AND OpenPos != quantity)\n {\n PlaceOrder("S",quantity);\n _TRACE("Mismatch in quantity : Exit Order is Placed. Kindly check the positions and take necssary action");\n }\n else\n {\n _TRACE("Warning : No Open Long Positions Exits and Hence No Sell Order is Placed to Exit the Long Position");\n _TRACE("Kindly check the positions and take necssary action");\n }\n \n StaticVarSetText(static_name_+"sellAlgo_barvalue",lasttime);\n StaticVarSet(static_name_+"sellAlgo",1); \/\/Algo Order was triggered, no more order on this bar\n \n }\n else if (AlgoSell != True )\n { \n StaticVarSet(static_name_+"sellAlgo",0);\n StaticVarSetText(static_name_+"sellAlgo_barvalue","");\n }\n if (AlgoShort==True AND AlgoSell==True AND StaticVarGet(static_name_+"ShortSellAlgo")==0 AND StaticVarGetText(static_name_+"ShortSellAlgo_barvalue") != lasttime)\n {\n \/\/ reverse Short Entry \n\t\t\t\tOpenPos = NetOpenPositions();\n\t\t\t\tif(OpenPos==0)\n {\n \/\/If no open position send only x1 times of quantity\n Newquantity = quantity;\n _TRACE("No Open Positions Exist and Hence x1 times quantity will be punched");\n }\n else if(OpenPos == quantity)\n {\n \/\/if already short positions are running send x2 times of quantity\n Newquantity = 2*quantity;\n _TRACE("Open Positions Exist and Hence x2 times quantity will be punched");\n }\n else\n {\n Newquantity = 2*quantity;\n _TRACE("Warning Mismatch in Trading Positions and Check Manually and Take necessary Action");\n _TRACE("Open Positions Exist and Hence x2 times quantity will be punched");\n \n }\n PlaceOrder("S",Newquantity);\n StaticVarSetText(static_name_+"ShortsellAlgo_barvalue",lasttime);\n StaticVarSet(static_name_+"ShortSellAlgo",1); \/\/Algo Order was triggered, no more order on this bar\n \n }\n else if ((AlgoShort != True OR AlgoSell != True))\n { \n StaticVarSet(static_name_+"ShortSellAlgo",0);\n StaticVarSetText(static_name_+"ShortsellAlgo_barvalue","");\n }\n \n if (AlgoShort==True AND AlgoSell != True AND StaticVarGet(static_name_+"ShortAlgo")==0 AND StaticVarGetText(static_name_+"ShortAlgo_barvalue") != lasttime)\n {\n \/\/ Short Entry\n PlaceOrder("S",quantity);\n StaticVarSetText(static_name_+"ShortAlgo_barvalue",lasttime); \n StaticVarSet(static_name_+"ShortAlgo",1); \/\/Algo Order was triggered, no more order on this bar\n \n }\n else if (AlgoShort != True )\n { \n StaticVarSet(static_name_+"ShortAlgo",0);\n StaticVarSetText(static_name_+"ShortAlgo_barvalue","");\n }\n if (AlgoCover==true AND AlgoBuy != True AND StaticVarGet(static_name_+"CoverAlgo")==0 AND StaticVarGetText(static_name_+"CoverAlgo_barvalue") != lasttime)\n {\n \/\/ Short Exit\n\t\t\t\tOpenPos = NetOpenPositions();\n\t\t\t\tif(OpenPos == -quantity)\n {\n \/\/If negative open positions are there only then exit the shorts \n PlaceOrder("B",quantity);\n }\n else if(OpenPos != 0 AND OpenPos != -quantity)\n {\n PlaceOrder("B",quantity);\n _TRACE("Mismatch in quantity : Exit Order is Placed. Kindly check the positions and take necssary action");\n }\n else\n {\n _TRACE("Warning : No Open Long Positions Exits and Hence No Cover Order is Placed to Exit the Short Position");\n _TRACE("Kindly check the positions and take necssary action");\n }\n \n StaticVarSetText(static_name_+"CoverAlgo_barvalue",lasttime); \n StaticVarSet(static_name_+"CoverAlgo",1); \/\/Algo Order was triggered, no more order on this bar\n \n }\n else if (AlgoCover != True )\n { \n StaticVarSet(static_name_+"CoverAlgo",0);\n StaticVarSetText(static_name_+"CoverAlgo_barvalue","");\n }\n }\n \n else if(EnableAlgo == "LongOnly")\n {\n \n if (AlgoBuy==True AND StaticVarGet(static_name_+"buyAlgo")==0 AND StaticVarGetText(static_name_+"buyAlgo_barvalue") != lasttime)\n { \n \/\/ Long Entry\n PlaceOrder("B",quantity);\n StaticVarSetText(static_name_+"buyAlgo_barvalue",lasttime);\n StaticVarSet(static_name_+"buyAlgo",1); \/\/Algo Order was triggered, no more order on this bar\n \n }\n else if (AlgoBuy != True)\n { \n StaticVarSet(static_name_+"buyAlgo",0);\n StaticVarSetText(static_name_+"buyAlgo_barvalue","");\n }\n if (AlgoSell==true AND StaticVarGet(static_name_+"sellAlgo")==0 AND StaticVarGetText(static_name_+"sellAlgo_barvalue") != lasttime)\n { \n \/\/ Long Exit\n OpenPos = NetOpenPositions();\n\t\t\t\tif(OpenPos == quantity)\n {\n \/\/If positive open positions are there only then exit the longs \n PlaceOrder("S",quantity);\n }\n else if(OpenPos != 0 AND OpenPos != quantity)\n {\n PlaceOrder("S",quantity);\n _TRACE("Mismatch in quantity : Exit Order is Placed. Kindly check the positions and take necssary action");\n }\n else\n {\n _TRACE("Warning : No Open Long Positions Exits and Hence No Sell Order is Placed to Exit the Long Position");\n _TRACE("Kindly check the positions and take necssary action");\n }\n StaticVarSetText(static_name_+"sellAlgo_barvalue",lasttime);\n StaticVarSet(static_name_+"sellAlgo",1); \/\/Algo Order was triggered, no more order on this bar\n \n }\n else if (AlgoSell != True )\n { \n StaticVarSet(static_name_+"sellAlgo",0);\n StaticVarSetText(static_name_+"sellAlgo_barvalue","");\n }\n }\n else if(EnableAlgo == "ShortOnly")\n {\n if (AlgoShort==True AND StaticVarGet(static_name_+"ShortAlgo")==0 AND StaticVarGetText(static_name_+"ShortAlgo_barvalue") != lasttime)\n {\n \/\/ Short Entry\n PlaceOrder("S",quantity);\n StaticVarSetText(static_name_+"ShortAlgo_barvalue",lasttime); \n StaticVarSet(static_name_+"ShortAlgo",1); \/\/Algo Order was triggered, no more order on this bar\n \n }\n else if (AlgoShort != True )\n { \n StaticVarSet(static_name_+"ShortAlgo",0);\n StaticVarSetText(static_name_+"ShortAlgo_barvalue","");\n }\n if (AlgoCover==true AND StaticVarGet(static_name_+"CoverAlgo")==0 AND StaticVarGetText(static_name_+"CoverAlgo_barvalue") != lasttime)\n {\n \/\/ Short Exit\n OpenPos = NetOpenPositions();\n\t\t\t\tif(OpenPos == -quantity)\n {\n \/\/If negative open positions are there only then exit the shorts \n PlaceOrder("B",quantity);\n }\n else if(OpenPos != 0 AND OpenPos != -quantity)\n {\n PlaceOrder("B",quantity);\n _TRACE("Mismatch in quantity : Exit Order is Placed. Kindly check the positions and take necssary action");\n }\n else\n {\n _TRACE("Warning : No Open Long Positions Exits and Hence No Cover Order is Placed to Exit the Short Position");\n _TRACE("Kindly check the positions and take necssary action");\n }\n \n StaticVarSetText(static_name_+"CoverAlgo_barvalue",lasttime); \n StaticVarSet(static_name_+"CoverAlgo",1); \/\/Algo Order was triggered, no more order on this bar\n \n }\n else if (AlgoCover != True)\n { \n StaticVarSet(static_name_+"CoverAlgo",0);\n StaticVarSetText(static_name_+"CoverAlgo_barvalue","");\n }\n }\n \n }\n \n\n\n\n_SECTION_END();\n\n<\/code><\/pre>\n","protected":false},"excerpt":{"rendered":"