Functions
Name: AnsweringTime
tAnswer : REAL;
GotTech : STRING;
GotTech := Entity.TechType;
IF Entity.Name = "TypeA"
IF GotTech = "TechX"
tAnswer := DrawRealSample(Model.sAnsTimeAX);
ELSIF GotTech = "TechY"
tAnswer := DrawRealSample(Model.sAnsTimeAY);
ELSIF GotTech = "TechZ"
tAnswer := DrawRealSample(Model.sAnsTimeAZ);
ELSE
Beep(MasterEditor);
Alert(MasterEditor, "Error: Unknown or wrong technician type "+GotTech+" in AnsweringTime function.");
tAnswer := -1.0;
END IF;
ELSIF Entity.Name = "TypeB"
IF GotTech = "TechY"
tAnswer := DrawRealSample(Model.sAnsTimeBY);
ELSIF GotTech = "TechZ"
tAnswer := DrawRealSample(Model.sAnsTimeBZ);
ELSE
Beep(MasterEditor);
Alert(MasterEditor, "Error: Unknown or wrong technician type "+GotTech+" in AnsweringTime function.");
tAnswer := -1.0;
END IF;
ELSIF Entity.Name = "TypeC"
IF GotTech = "TechZ"
tAnswer := DrawRealSample(Model.sAnsTimeCZ);
ELSE
Beep(MasterEditor);
Alert(MasterEditor, "Error: Unknown or wrong technician type "+GotTech+" in AnsweringTime function.");
tAnswer := -1.0;
END IF;
ELSE
Beep(MasterEditor);
Alert(MasterEditor, "Error: Unknown entity type "+Entity.Name+" in AnsweringTime function.");
tAnswer := -1.0;
END IF;
RETURN tAnswer;