Want a checkbox to write this sentence (a very small portion of a much larger project) and it's not working... Any ideas??? Much longer (non-functioning) version here: MvtDscROUGH
Does anyone reading know PAXScript?
var FOXTROT,NOTES:String;
function LowerFirst( InStr: String ): String;
begin
result := LowerCase( Copy(Instr,1,1) ) + Copy(Instr,2,1000);
end;
begin
IF SF.GetFieldText('ExamMeasurement','ZZTRNSTYPE')='' THEN
FOXTROT:='' ELSE
FOXTROT:='Patient is able to perform '
+
LowerFirst(SF.GetFieldText('ExamMeasurement','ZZTRNSTYPE'));
SF.AssignFieldText('ExamMeasurement','ZZTRNSNOTE',FOXTROT+NOTES);
END;
END;
No comments:
Post a Comment