Support Board

// enter a buy at noon, check if the GUI configured attached orders will exit.
// Even with "use attached orders" checked in the GUI, and
// with a 1 tick stop loss and a 1 tick take profit target,
// the SierraCharts automated trade management never kicks in.
#include "sierrachart.h"

SCDLLName("buy_at_noon")

SCSFExport scsf_buy_at_noon(SCStudyInterfaceRef sc)
{
SCSubgraphRef TakenBuy = sc.Subgraph[0];

if (sc.SetDefaults) {

sc.MaximumPositionAllowed = 60;
sc.AllowMultipleEntriesInSameDirection =1;

sc.GraphName = "buy_at_noon";
sc.StudyDescription = "buy 1 contract at noon.";
sc.GraphRegion = 0;

TakenBuy.Name = "TakenBuy";
TakenBuy.PrimaryColor = COLOR_YELLOW;
TakenBuy.DrawStyle = DRAWSTYLE_ARROWUP;
TakenBuy.LineWidth = 3;
TakenBuy.DrawZeros = false;
  
// Auto Looping On
sc.AutoLoop = 1;

// During development only set to 1
sc.FreeDLL = 1;

// want end times of bars too.
sc.MaintainAdditionalChartDataArrays = 1;

// Must return
return;
}

if(sc.GetBarHasClosedStatus(sc.Index) != BHCS_BAR_HAS_CLOSED) {
return;
}

int &LastBarIndexProcessed = sc.GetPersistentInt(0);
if (sc.Index == 0) {
LastBarIndexProcessed = -1;
}
if(sc.Index == LastBarIndexProcessed) {
return;
}
LastBarIndexProcessed = sc.Index;

int BarStartTime = sc.BaseDateTimeIn.TimeAt(sc.Index);
int minuteOfDay = BarStartTime / 60;

const int noonMinutes = 12 * 60;

if (minuteOfDay == noonMinutes) {
// time to buy

s_SCNewOrder NewOrder;
NewOrder.OrderQuantity = 1;
NewOrder.OrderType = SCT_ORDERTYPE_MARKET;
NewOrder.TimeInForce = SCT_TIF_GTC;
NewOrder.Price1 = 0;
NewOrder.Price2 = 0;

int Result = (int)sc.BuyEntry(NewOrder);
if (Result > 0) {//If there has been a successful order entry, then draw an arrow at the low of the bar.
TakenBuy[sc.Index] = sc.Low[sc.Index] - 2*sc.TickSize;

} else { //order error
SCString Msg;
Msg.Format("at simtm %02i:%02i failed to buy 1 contract, at BarStartTime=%i, Result=%i", minuteOfDay / 60, minuteOfDay % 60, BarStartTime, Result);
sc.AddMessageToLog(Msg, 1);  
sc.AddMessageToLog(sc.GetTradingErrorTextMessage(Result), 0);
}
}
}