Procedure AddNewTask(LOCAL bMilestone is boolean = False)

NewTask is a GanttTask
stATask is STGanttChartInfo


//Defines the task
NewTask..Progress = 0
NewTask..ProgressColor = (bMilestone ? COLOR_MILESTONE ELSE COLOR_PROGRESS)
NewTask..BackgroundColor = (bMilestone ? COLOR_MILESTONE ELSE COLOR_BACKGROUND)
NewTask..Cumulative = False
NewTask..StartDate = Today()// + "080000"
IF bMilestone = False THEN NewTask..DurationInDay = 1
NewTask..ID = GetGUID()
NewTask..Milestone = bMilestone
NewTask..Title = (bMilestone ? "New Milestone" ELSE "New task ")+""+GetIdentifier()


//Stores the task
stATask.sTaskID = NewTask..ID
stATask.Task = NewTask
stATask.nParentSubscript = 0

//Adds the "task" row
nSubscript is int = TableAddLine(TABLE_Gantt, NewTask..ID, NewTask..Title, gnNalozi+1, NewTask..StartDate, (bMilestone ? "" ELSE NewTask..DurationInDay), (bMilestone ? "" ELSE NewTask..Progress), NewTask)
//TableInsertColumn(TABLE_Gantt, 3, QRY_PrikazPodataka.Auftrag)
//Forces the style and the information
IF bMilestone THEN SwitchTaskToMilestone(nSubscript) ELSE SwitchTaskToStandard(nSubscript)

//Updates the values of parent tasks
CalculateParentTasks(nSubscript)

//Updates the information of the Gantt chart
DisplayGeneralInfo()

//Modifies the status of the buttons
AdaptButtons()

//Positions on the row
TableSelectPlus(TABLE_Gantt, nSubscript)
//Switches to input to modify the title
ReturnToCapture(TABLE_Gantt.COL_Strojevi)