ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/branches/journaling/fbintf/testsuite/Test1.pas
(Generate patch)
# Line 176 | Line 176
176      Exit;
177    end;
178    WriteDBInfo(Attachment.GetDBInformation([isc_info_db_id,isc_info_ods_version,isc_info_ods_minor_version]));
179 +  writeln(OutFile,'Attachment ID = ',Attachment.GetAttachmentID);
180    WriteAttachmentInfo(Attachment);
181  
182    {Querying Database}
# Line 197 | Line 198
198        Exit;
199      end;
200      WriteDBInfo(Attachment.GetDBInformation([isc_info_db_id,isc_info_ods_version,isc_info_ods_minor_version]));
201 +    writeln(OutFile,'Attachment ID = ',Attachment.GetAttachmentID);
202      WriteAttachmentInfo(Attachment);
203  
204      {Querying Database}

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines