ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/trunk/fbintf/testsuite/Test4.pas

Comparing ibx/trunk/fbintf/testsuite/Test4.pas (file contents):
Revision 58 by tony, Mon Mar 6 10:20:02 2017 UTC vs.
Revision 59 by tony, Mon Mar 13 09:51:56 2017 UTC

#	Line 116 | Line 116 | begin
116		ByName('EMP_NO').AsInteger := 151;
117		ByName('FIRST_NAME').AsString := 'Major';
118		ByName('PHONE_EXT').AsString := '';
119	<	ByName('HIRE_DATE').AsDateTime := EncodeDate(2015,4,1);;
119	>	ByName('HIRE_DATE').AsString :=  '2015-4-1';
120		ByName('DEPT_NO').AsString := '600';
121		ByName('JOB_CODE').AsString := 'Eng';
122		ByName('JOB_GRADE').AsInteger := 4;
123		ByName('JOB_COUNTRY').AsString := 'England';
124	<	ByName('SALARY').AsFloat := 40000.59;
124	>	ByName('SALARY').AsString := '40000.59';
125		end;
126		Statement.Execute;
127		WriteAffectedRows(Statement);

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines