Page History

The configuration guide for the Rovalant (A6, A16) Apollo integration module is available only in the Russian documentation for ACFA PSIM. This script can be modified for any other integration module that supports user entry into the controller.

function SetPersons(srcDepartment, destTable, destTableSize, msg)
{
	var users = CreateMsg();
	users.StringToMsg(GetObjectIds("PERSON"));
	var userCount = users.GetParam("id.count");
	var i;
	var index;
	for(i = 0, index = 1; (index <= destTableSize) && (i < userCount); ++i)
	{
		var user = users.GetParam("id." + i);
		if(GetObjectParentId("PERSON", user, "DEPARTMENT") == srcDepartment)
		{
			msg.SetParam("USERS.user_id." + AxxonSoft_var("counter"), user);
			msg.SetParam("USERS.number." + AxxonSoft_var("counter"), index);
			msg.SetParam("USERS.key_type." + AxxonSoft_var("counter"), destTable);
			index++;
			Lock();
			AxxonSoft_var("counter")++;
			Unlock();
		}
	}
}
if(Event.SourceType == "VIDEOSRV_C" && Event.Action == "SPR_DATA_UPDATED")
{
	var ROVALANTAPOLLO_TYPE = "ROVALANTAPOLLO_DEVICE";
	var ROVALANTAPOLLO_ID = "1.1";
	var WRITE_CONFIG_REACT = "WRITE_CONFIG";
	AxxonSoft_var("counter") = 0;
	var msg = CreateMsg();
	msg.SourceType = "CORE";
	msg.SourceId = "";
	msg.Action = "UPDATE_OBJECT";
	msg.SetParam("objtype", ROVALANTAPOLLO_TYPE);
	msg.SetParam("objid", ROVALANTAPOLLO_ID);
	var type = GetObjectParam(ROVALANTAPOLLO_TYPE, ROVALANTAPOLLO_ID, "type");
	if(type == "A66")
	{
		SetPersons("1", "USER", 79, msg);
	}
	else
	{
		SetPersons("1", "USER", 255, msg);
	}
	SetPersons("2", "POLICE", 15, msg);
	SetPersons("3", "ELECTRIC", 15, msg);

	msg.SetParam("USERS.user_id.count", AxxonSoft_var("counter"));
	msg.SetParam("USERS.number.count",  AxxonSoft_var("counter"));
	msg.SetParam("USERS.key_type.count",  AxxonSoft_var("counter"));
	NotifyEvent(msg);
	NotifyEventStr(ROVALANTAPOLLO_TYPE, ROVALANTAPOLLO_ID, WRITE_CONFIG_REACT, "");
}