ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/branches/udr/udr/source/FBUDRUtils.pas
(Generate patch)

Comparing ibx/branches/udr/udr/source/FBUDRUtils.pas (file contents):
Revision 380 by tony, Mon Jan 10 10:08:03 2022 UTC vs.
Revision 381 by tony, Sat Jan 15 00:06:22 2022 UTC

# Line 280 | Line 280 | function TFBUDRMessageMetadata.AsText: A
280  
281   var i: integer;
282   begin
283 <  Result := Format('Field Count = %d' + NewLineTAB,[getCount]) +
284 <            Format('Alignment = %d' + NewLineTAB,[getAlignment]) +
285 <            Format('Aligned Length = %d' + NewLineTAB,[getAlignedLength]);
283 >  Result := Format('Field Count = %d' + NewLineTAB,[getCount]);
284 >  if FMetadata.vTable.version >= 4 then
285 >  begin
286 >    Result := Result + Format('Alignment = %d' + NewLineTAB,[getAlignment]) +
287 >                Format('Aligned Length = %d' + NewLineTAB,[getAlignedLength]);
288 >  end;
289    for i := 0 to getCount - 1 do
290    begin
291      Result := Result +
# Line 291 | Line 294 | begin
294              Format('Relation Name = %s' + NewLineTAB,[getRelation(i)]) +
295              Format('Alias Name = %s' + NewLineTAB,[getAlias(i)]) +
296              Format('SQLType = %s' + NewLineTAB,[TSQLDataItem.GetSQLTypeName(getType(i))]) +
297 <            Format('IsNullable = %s' + NewLineTAB,[BoolToStr(isNullable(i){$ifdef FPC},'yes','no'{$endif})]) +
297 >            Format('IsNullable = %s' + NewLineTAB,[BooleanToStr(isNullable(i),'yes','no')]) +
298              Format('SubType = %d' + NewLineTAB,[getSubType(i)]) +
299              Format('Length = %d' + NewLineTAB,[getLength(i)]) +
300              Format('Scale = %d' + NewLineTAB,[getScale(i)]) +
# Line 769 | Line 772 | begin
772    Result := Format('Package Name = %s' + NewLineTAB,[getPackage]) +
773              Format('Name = %s' + NewLineTAB,[getName]) +
774              Format('Entry Point = %s (%s,%s,%s)' + NewLineTAB,[getEntryPoint,getModuleName,getRoutineName,getInfo]) +
775 <            Format('Body = %s' + NewLineTAB,[getBody]) +
776 <            Format('Input Metadata:' + NewLineTAB + '%s',[MetadataToText(FInputMetaData)]) + LineEnding +
777 <            Format('Output Metadata:' + NewLineTAB + '%s',[MetadataToText(FOutputMetaData)]);
775 >            Format('Body = %s' + NewLineTAB,[getBody]);
776 >  if HasInputMetaData then
777 >    Result := Result + Format('Input Metadata:' + NewLineTAB + '%s',[MetadataToText(FInputMetaData)]) + LineEnding;
778 >  if HasOutputMetaData then
779 >    Result := Result + Format('Output Metadata:' + NewLineTAB + '%s',[MetadataToText(FOutputMetaData)]);
780    if FRoutineMetadata.getTriggerType(FStatus) > 0 then
781    begin
782 +    if HasTriggerMetaData then
783 +      Result := Result + Format('Trigger Metadata:' + NewLineTAB + '%s',[MetadataToText(FTriggerMetaData)]);
784      Result := Result +
778 –    Format('Trigger Metadata:' + NewLineTAB + '%s',[MetadataToText(FTriggerMetaData)]) +
785      Format('Trigger Table = %s' + NewLineTAB,[getTriggerTable]) +
786      Format('Trigger Type = %s' + NewLineTAB,[TriggerTypeToText(getTriggerType)]);
787    end;

Diff Legend

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