<!-------------------------------------------------------->
Function GetRecField(ObHd:HANDLE;RecordName,FieldName:STRING):STRING;
VAR
	Q,CriteriaString:STRING;
BEGIN
	Q:=Chr(39);
	CriteriaString:=Concat('(',Q,RecordName,Q,'.',Q,FieldName,Q,')');
	GetRecField:=EvalStr(ObHd,CriteriaString);
END;
<!-------------------------------------------------------->
Function IsRecAttached(theObject:HANDLE;RecordName:STRING):BOOLEAN;
VAR
	Q,CriteriaString:STRING;
	AttachStatus:REAL;
BEGIN
	Q:=Chr(39);
	CriteriaString:=Concat('(R IN [',Q,RecordName,Q,'])');
	AttachStatus:=Eval(theObject,CriteriaString);
	IF AttachStatus = 1.0 THEN
		IsRecAttached:=True
	ELSE
		IsRecAttached:=False;
END;
<!-------------------------------------------------------->
Function BuildRecCrit(Record,Field:STRING;RecordOnly,UseEqual:BOOLEAN):STRING;
VAR
	Q,CriteriaString:STRING;
BEGIN
	Q:=Chr(39);
	
	IF RecordOnly THEN BEGIN
		CriteriaString:=Concat('(R IN[',Q,Record,Q,'])');
		IF UseEqual THEN
			CriteriaString:=Concat('=',CriteriaString);
	END
	ELSE BEGIN
		CriteriaString:=Concat('(',Q,Record,Q,'.',Q,Field,Q,')');
		IF UseEqual THEN
			CriteriaString:=Concat('=',CriteriaString);
	END;
	
	BuildRecCrit:=CriteriaString;
END;
