Home End User
New Blog Posts: Merging Reports - Part 1 and Part 2

ConvertBinaryTemplateToASCII and dataview

edited April 2004 in End User
Hi

Some time ago I had a problem after an upgrade that I couldn't access tables
within my existing reports in the end user designer. This was cured slowly
by going into the data tab, and making any change(usually add all fields),
then resaving the template. It was suggested to make that I use the
ConvertBinaryTemplateToASCII program to compare the differences between a
working report and one that wasn't working. I have just made some changes
to one app and am having the same problem.
I used the ConvertBinaryTemplateToASCII program but it doesn't give you the
data settings, it just tells you the name of the dataview which will of
course be the same. Is there a similar program that accesses the data
settings from a template ?

Thanks

Andy Dyble

Comments

  • edited April 2004
    Here's an example :

    object ppReport1: TppReport
    AutoStop = False
    DataPipeline = daADSQueryDataView1.Insclaim
    PrinterSetup.BinName = 'Default'
    PrinterSetup.DocumentName = 'Report'
    PrinterSetup.PaperName = 'Letter'
    PrinterSetup.PrinterName = 'Default'
    PrinterSetup.mmMarginBottom = 6350
    PrinterSetup.mmMarginLeft = 6350
    PrinterSetup.mmMarginRight = 6350
    PrinterSetup.mmMarginTop = 6350
    PrinterSetup.mmPaperHeight = 279401
    PrinterSetup.mmPaperWidth = 215900
    PrinterSetup.PaperSize = 1
    Template.FileName = 'C:\Winapps\WinIDA\reports\claim\Cause of damage.rtm'
    DeviceType = 'Screen'
    Left = 184
    Top = 80
    Version = '6.02'
    mmColumnWidth = 0
    DataPipelineName = 'Insclaim'
  • edited April 2004

    Perhaps you are not reading the entire report template contents from the
    datbase. If you are using the BDE, try increasing the settings for
    MaxBlobSize and BlobsToCache.

    The DataView is defined in the template as well. There should be additional
    objects in your template that look like this.....

    object daDataModule1: TdaDataModule
    object daBDEQueryDataView1: TdaBDEQueryDataView
    UserName = 'Query_customer'
    Height = 313
    Left = 10
    NameColumnWidth = 105
    SizeColumnWidth = 35
    SortMode = 0
    Top = 10
    TypeColumnWidth = 52
    Width = 200
    AutoSearchTabOrder = 0

    And this...

    object daSQL1: TdaSQL
    DatabaseName = 'DBDEMOS'
    DatabaseType = dtParadox
    DataPipelineName = 'customer'




    --
    Nard Moseley
    Digital Metaphors
    http://www.digital-metaphors.com

    Best regards,

    Nard Moseley
    Digital Metaphors
    www.digital-metaphors.com
  • edited April 2004
    Thanks Nard,

    2 things, 1. I am using Advantage, 2. where do I make these changes ?
    This is the code I run :

    procedure TForm1.Button1Click(Sender: TObject);
    var
    lsFileName: String;
    lFileStream: TFileStream;
    lTextStream: TMemoryStream;
    begin

    Button1.Enabled := False;
    Button2.Enabled := True;

    OpenDialog1.Execute ;
    lsFileName := OpenDialog1.FileName ;
    //lsFileName := ExtractFilePath(ParamStr(0)) + 'example.rtm';
    lFileStream := TFileStream.Create(lsFileName, fmOpenRead);
    lTextStream := TMemoryStream.Create;
    try
    lFileStream.Position := 0;
    ObjectBinaryToText(lFileStream, lTextStream);
    lTextStream.Position := 0;
    Memo1.Lines.LoadFromStream(lTextStream);
    finally
    lFileStream.Free;
    lTextStream.Free;
    end;

    Cheers

    Andy


  • edited April 2004
    Nard

    This is the entire text :

    object ppReport1: TppReport
    AutoStop = False
    DataPipeline = daADSQueryDataView1.Insclaim
    PrinterSetup.BinName = 'Default'
    PrinterSetup.DocumentName = 'Report'
    PrinterSetup.PaperName = 'Letter'
    PrinterSetup.PrinterName = 'Default'
    PrinterSetup.mmMarginBottom = 6350
    PrinterSetup.mmMarginLeft = 6350
    PrinterSetup.mmMarginRight = 6350
    PrinterSetup.mmMarginTop = 6350
    PrinterSetup.mmPaperHeight = 279401
    PrinterSetup.mmPaperWidth = 215900
    PrinterSetup.PaperSize = 1
    Template.FileName = 'C:\Winapps\WinIDA\reports\claim\Cause of damage.rtm'
    DeviceType = 'Screen'
    Left = 184
    Top = 80
    Version = '6.02'
    mmColumnWidth = 0
    DataPipelineName = 'Insclaim'
    object ppHeaderBand1: TppHeaderBand
    mmBottomOffset = 0
    mmHeight = 20108
    mmPrintPosition = 0
    object ppLabel1: TppLabel
    UserName = 'Label1'
    Caption = 'Cause of Damage'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Name = 'Arial'
    Font.Size = 12
    Font.Style = [fsBold]
    Transparent = True
    mmHeight = 4995
    mmLeft = 3175
    mmTop = 3704
    mmWidth = 35602
    BandType = 0
    end
    object ppSystemVariable2: TppSystemVariable
    UserName = 'SystemVariable2'
    DisplayFormat = 'dd/mm/yyyy'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Name = 'Arial'
    Font.Size = 10
    Font.Style = [fsItalic]
    Transparent = True
    mmHeight = 4233
    mmLeft = 164307
    mmTop = 4763
    mmWidth = 23019
    BandType = 0
    end
    object ppLine3: TppLine
    UserName = 'Line3'
    Weight = 0.75
    mmHeight = 1323
    mmLeft = 6350
    mmTop = 10054
    mmWidth = 179917
    BandType = 0
    end
    object ppLabel2: TppLabel
    UserName = 'Label2'
    Caption = 'Claim No.'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Name = 'Arial'
    Font.Size = 10
    Font.Style = []
    Transparent = True
    mmHeight = 4064
    mmLeft = 3440
    mmTop = 14023
    mmWidth = 15748
    BandType = 0
    end
    object ppLabel3: TppLabel
    UserName = 'Label3'
    Caption = 'Name'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Name = 'Arial'
    Font.Size = 10
    Font.Style = []
    Transparent = True
    mmHeight = 4233
    mmLeft = 32279
    mmTop = 13758
    mmWidth = 9356
    BandType = 0
    end
    object ppLabel5: TppLabel
    UserName = 'Label5'
    Caption = 'Cause of damage'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Name = 'Arial'
    Font.Size = 10
    Font.Style = []
    Transparent = True
    mmHeight = 4022
    mmLeft = 78846
    mmTop = 13758
    mmWidth = 27813
    BandType = 0
    end
    object ppLine4: TppLine
    UserName = 'Line4'
    Weight = 0.75
    mmHeight = 1323
    mmLeft = 3440
    mmTop = 18521
    mmWidth = 179917
    BandType = 0
    end
    end
    object ppDetailBand1: TppDetailBand
    mmBottomOffset = 0
    mmHeight = 5556
    mmPrintPosition = 0
    object ppDBText3: TppDBText
    UserName = 'DBText3'
    DataField = 'CLAMNO'
    DataPipeline = daADSQueryDataView1.Insclaim
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Name = 'Courier New'
    Font.Size = 10
    Font.Style = []
    Transparent = True
    DataPipelineName = 'Insclaim'
    mmHeight = 3704
    mmLeft = 3704
    mmTop = 529
    mmWidth = 27252
    BandType = 4
    end
    object ppDBText6: TppDBText
    UserName = 'DBText6'
    DataField = 'CLAMPH'
    DataPipeline = daADSQueryDataView1.Insclaim
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Name = 'Courier New'
    Font.Size = 10
    Font.Style = []
    Transparent = True
    DataPipelineName = 'Insclaim'
    mmHeight = 3704
    mmLeft = 31485
    mmTop = 529
    mmWidth = 46302
    BandType = 4
    end
    object ppDBText8: TppDBText
    UserName = 'DBText8'
    DataField = 'ACTDAM'
    DataPipeline = daADSQueryDataView1.Insclaim
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Name = 'Courier New'
    Font.Size = 10
    Font.Style = []
    Transparent = True
    DataPipelineName = 'Insclaim'
    mmHeight = 3704
    mmLeft = 80433
    mmTop = 529
    mmWidth = 22754
    BandType = 4
    end
    end
    object ppFooterBand1: TppFooterBand
    mmBottomOffset = 0
    mmHeight = 8202
    mmPrintPosition = 0
    object ppSystemVariable1: TppSystemVariable
    UserName = 'SystemVariable1'
    VarType = vtPageNo
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Name = 'Arial'
    Font.Size = 10
    Font.Style = [fsBold]
    Transparent = True
    mmHeight = 4233
    mmLeft = 9260
    mmTop = 1852
    mmWidth = 1947
    BandType = 8
    end
    end
    object ppSummaryBand1: TppSummaryBand
    PrintHeight = phDynamic
    mmBottomOffset = 0
    mmHeight = 10054
    mmPrintPosition = 0
    object ppVariable2: TppVariable
    UserName = 'Variable2'
    CalcOrder = 0
    DataType = dtInteger
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Name = 'Arial'
    Font.Size = 10
    Font.Style = []
    TextAlignment = taRightJustified
    Transparent = True
    mmHeight = 3969
    mmLeft = 68792
    mmTop = 1852
    mmWidth = 15081
    BandType = 7
    end
    object ppLabel8: TppLabel
    UserName = 'Label8'
    Caption = 'Total Number of Claims for report :'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Name = 'Arial'
    Font.Size = 10
    Font.Style = [fsBold]
    Transparent = True
    mmHeight = 4233
    mmLeft = 7938
    mmTop = 1852
    mmWidth = 59267
    BandType = 7
    end
    object ppLine5: TppLine
    UserName = 'Line5'
    Weight = 0.75
    mmHeight = 2381
    mmLeft = 8202
    mmTop = 6879
    mmWidth = 75671
    BandType = 7
    end
    end
    object daDataModule1: TdaDataModule
    object daADSQueryDataView1: TdaADSQueryDataView
    Report = ppReport1
    UserName = 'Query_Insclaim'
    Height = 611
    Left = 10
    NameColumnWidth = 105
    SizeColumnWidth = 35
    SortMode = 0
    Top = 10
    TypeColumnWidth = 52
    Width = 200
    AutoSearchTabOrder = 0
    object Insclaim: TppChildDBPipeline
    AutoCreateFields = False
    UserName = 'Insclaim'
    object ppField1: TppField
    FieldAlias = 'Clamno'
    FieldName = 'CLAMNO'
    FieldLength = 30
    DisplayWidth = 30
    Position = 0
    TableName = 'insclaim'
    end
    object ppField2: TppField
    FieldAlias = 'Dat'
    FieldName = 'DAT'
    FieldLength = 20
    DisplayWidth = 20
    Position = 1
    TableName = 'insclaim'
    end
    object ppField3: TppField
    FieldAlias = 'Crt'
    FieldName = 'CRT'
    FieldLength = 14
    DisplayWidth = 14
    Position = 2
    TableName = 'insclaim'
    end
    object ppField4: TppField
    FieldAlias = 'Own'
    FieldName = 'OWN'
    FieldLength = 14
    DisplayWidth = 14
    Position = 3
    TableName = 'insclaim'
    end
    object ppField5: TppField
    FieldAlias = 'Cnslt'
    FieldName = 'CNSLT'
    FieldLength = 14
    DisplayWidth = 14
    Position = 4
    TableName = 'insclaim'
    end
    object ppField6: TppField
    FieldAlias = 'Hrdc'
    FieldName = 'HRDC'
    FieldLength = 60
    DisplayWidth = 60
    Position = 5
    TableName = 'insclaim'
    end
    object ppField7: TppField
    FieldAlias = 'Inser'
    FieldName = 'INSER'
    FieldLength = 10
    DisplayWidth = 10
    Position = 6
    TableName = 'insclaim'
    end
    object ppField8: TppField
    FieldAlias = 'Inser Cont'
    FieldName = 'INSER_CONT'
    FieldLength = 60
    DisplayWidth = 60
    Position = 7
    TableName = 'insclaim'
    end
    object ppField9: TppField
    FieldAlias = 'Ins Ref'
    FieldName = 'INS_REF'
    FieldLength = 60
    DisplayWidth = 60
    Position = 8
    TableName = 'insclaim'
    end
    object ppField10: TppField
    FieldAlias = 'Ins Refoth'
    FieldName = 'INS_REFOTH'
    FieldLength = 60
    DisplayWidth = 60
    Position = 9
    TableName = 'insclaim'
    end
    object ppField11: TppField
    FieldAlias = 'Log'
    FieldName = 'LOG'
    FieldLength = 10
    DisplayWidth = 10
    Position = 10
    TableName = 'insclaim'
    end
    object ppField12: TppField
    FieldAlias = 'Polstr'
    FieldName = 'POLSTR'
    FieldLength = 0
    DataType = dtDate
    DisplayWidth = 10
    Position = 11
    TableName = 'insclaim'
    end
    object ppField13: TppField
    FieldAlias = 'Shrd'
    FieldName = 'SHRD'
    FieldLength = 0
    DataType = dtBoolean
    DisplayWidth = 5
    Position = 12
    TableName = 'insclaim'
    end
    object ppField14: TppField
    FieldAlias = 'Det'
    FieldName = 'DET'
    FieldLength = 60
    DisplayWidth = 60
    Position = 13
    TableName = 'insclaim'
    end
    object ppField15: TppField
    FieldAlias = 'Exces'
    FieldName = 'EXCES'
    FieldLength = 0
    DataType = dtDouble
    DisplayWidth = 10
    Position = 14
    TableName = 'insclaim'
    end
    object ppField16: TppField
    FieldAlias = 'Repdam'
    FieldName = 'REPDAM'
    FieldLength = 60
    DisplayWidth = 60
    Position = 15
    TableName = 'insclaim'
    end
    object ppField17: TppField
    FieldAlias = 'Repcos'
    FieldName = 'REPCOS'
    FieldLength = 0
    DataType = dtDouble
    DisplayWidth = 10
    Position = 16
    TableName = 'insclaim'
    end
    object ppField18: TppField
    FieldAlias = 'Covtyp'
    FieldName = 'COVTYP'
    FieldLength = 40
    DisplayWidth = 40
    Position = 17
    TableName = 'insclaim'
    end
    object ppField19: TppField
    FieldAlias = 'Actdam'
    FieldName = 'ACTDAM'
    FieldLength = 20
    DisplayWidth = 20
    Position = 18
    TableName = 'insclaim'
    end
    object ppField20: TppField
    FieldAlias = 'Repud Yn'
    FieldName = 'REPUD_YN'
    FieldLength = 1
    DisplayWidth = 1
    Position = 19
    TableName = 'insclaim'
    end
    object ppField21: TppField
    FieldAlias = 'React'
    FieldName = 'REACT'
    FieldLength = 0
    DataType = dtBoolean
    DisplayWidth = 5
    Position = 20
    TableName = 'insclaim'
    end
    object ppField22: TppField
    FieldAlias = 'Clamph'
    FieldName = 'CLAMPH'
    FieldLength = 60
    DisplayWidth = 60
    Position = 21
    TableName = 'insclaim'
    end
    object ppField23: TppField
    FieldAlias = 'Ph Add1'
    FieldName = 'PH_ADD1'
    FieldLength = 60
    DisplayWidth = 60
    Position = 22
    TableName = 'insclaim'
    end
    object ppField24: TppField
    FieldAlias = 'Ph Add2'
    FieldName = 'PH_ADD2'
    FieldLength = 60
    DisplayWidth = 60
    Position = 23
    TableName = 'insclaim'
    end
    object ppField25: TppField
    FieldAlias = 'Ph Add3'
    FieldName = 'PH_ADD3'
    FieldLength = 60
    DisplayWidth = 60
    Position = 24
    TableName = 'insclaim'
    end
    object ppField26: TppField
    FieldAlias = 'Ph Add4'
    FieldName = 'PH_ADD4'
    FieldLength = 60
    DisplayWidth = 60
    Position = 25
    TableName = 'insclaim'
    end
    object ppField27: TppField
    FieldAlias = 'Ph Add5'
    FieldName = 'PH_ADD5'
    FieldLength = 60
    DisplayWidth = 60
    Position = 26
    TableName = 'insclaim'
    end
    object ppField28: TppField
    FieldAlias = 'Ph Pc'
    FieldName = 'PH_PC'
    FieldLength = 16
    DisplayWidth = 16
    Position = 27
    TableName = 'insclaim'
    end
    object ppField29: TppField
    FieldAlias = 'Ph Tel'
    FieldName = 'PH_TEL'
    FieldLength = 30
    DisplayWidth = 30
    Position = 28
    TableName = 'insclaim'
    end
    object ppField30: TppField
    FieldAlias = 'Ph Wrk'
    FieldName = 'PH_WRK'
    FieldLength = 30
    DisplayWidth = 30
    Position = 29
    TableName = 'insclaim'
    end
    object ppField31: TppField
    FieldAlias = 'Ph Mob'
    FieldName = 'PH_MOB'
    FieldLength = 30
    DisplayWidth = 30
    Position = 30
    TableName = 'insclaim'
    end
    object ppField32: TppField
    FieldAlias = 'Ph Reg'
    FieldName = 'PH_REG'
    FieldLength = 60
    DisplayWidth = 60
    Position = 31
    TableName = 'insclaim'
    end
    object ppField33: TppField
    FieldAlias = 'Cmcl'
    FieldName = 'CMCL'
    FieldLength = 20
    DisplayWidth = 20
    Position = 32
    TableName = 'insclaim'
    end
    object ppField34: TppField
    FieldAlias = 'Comm'
    FieldName = 'COMM'
    FieldLength = 254
    DisplayWidth = 254
    Position = 33
    TableName = 'insclaim'
    end
    object ppField35: TppField
    FieldAlias = 'Repcomp'
    FieldName = 'REPCOMP'
    FieldLength = 0
    DataType = dtBoolean
    DisplayWidth = 5
    Position = 34
    TableName = 'insclaim'
    end
    object ppField36: TppField
    FieldAlias = 'Repcdat'
    FieldName = 'REPCDAT'
    FieldLength = 20
    DisplayWidth = 20
    Position = 35
    TableName = 'insclaim'
    end
    object ppField37: TppField
    FieldAlias = 'Closed'
    FieldName = 'CLOSED'
    FieldLength = 1
    DisplayWidth = 1
    Position = 36
    TableName = 'insclaim'
    end
    object ppField38: TppField
    FieldAlias = 'Close Date'
    FieldName = 'CLOSE_DATE'
    FieldLength = 0
    DataType = dtDate
    DisplayWidth = 10
    Position = 37
    TableName = 'insclaim'
    end
    object ppField39: TppField
    FieldAlias = 'Reactd'
    FieldName = 'REACTD'
    FieldLength = 0
    DataType = dtBoolean
    DisplayWidth = 5
    Position = 38
    TableName = 'insclaim'
    end
    object ppField40: TppField
    FieldAlias = 'Readat'
    FieldName = 'READAT'
    FieldLength = 20
    DisplayWidth = 20
    Position = 39
    TableName = 'insclaim'
    end
    object ppField41: TppField
    FieldAlias = 'Stat'
    FieldName = 'STAT'
    FieldLength = 40
    DisplayWidth = 40
    Position = 40
    TableName = 'insclaim'
    end
    object ppField42: TppField
    FieldAlias = 'Shrs'
    FieldName = 'SHRS'
    FieldLength = 0
    DataType = dtDouble
    DisplayWidth = 10
    Position = 41
    TableName = 'insclaim'
    end
    object ppField43: TppField
    FieldAlias = 'Sfcnt'
    FieldName = 'SFCNT'
    FieldLength = 0
    DataType = dtDouble
    DisplayWidth = 10
    Position = 42
    TableName = 'insclaim'
    end
    object ppField44: TppField
    FieldAlias = 'Swcnt'
    FieldName = 'SWCNT'
    FieldLength = 0
    DataType = dtDouble
    DisplayWidth = 10
    Position = 43
    TableName = 'insclaim'
    end
    object ppField45: TppField
    FieldAlias = 'Rqcnt'
    FieldName = 'RQCNT'
    FieldLength = 0
    DataType = dtDouble
    DisplayWidth = 10
    Position = 44
    TableName = 'insclaim'
    end
    object ppField46: TppField
    FieldAlias = 'Qrcnt'
    FieldName = 'QRCNT'
    FieldLength = 0
    DataType = dtDouble
    DisplayWidth = 10
    Position = 45
    TableName = 'insclaim'
    end
    object ppField47: TppField
    FieldAlias = 'Qtcnt'
    FieldName = 'QTCNT'
    FieldLength = 0
    DataType = dtDouble
    DisplayWidth = 10
    Position = 46
    TableName = 'insclaim'
    end
    object ppField48: TppField
    FieldAlias = 'Itcnt'
    FieldName = 'ITCNT'
    FieldLength = 0
    DataType = dtDouble
    DisplayWidth = 10
    Position = 47
    TableName = 'insclaim'
    end
    object ppField49: TppField
    FieldAlias = 'Ticnt'
    FieldName = 'TICNT'
    FieldLength = 0
    DataType = dtDouble
    DisplayWidth = 10
    Position = 48
    TableName = 'insclaim'
    end
    object ppField50: TppField
    FieldAlias = 'Ricnt'
    FieldName = 'RICNT'
    FieldLength = 0
    DataType = dtDouble
    DisplayWidth = 10
    Position = 49
    TableName = 'insclaim'
    end
    object ppField51: TppField
    FieldAlias = 'Ipcnt'
    FieldName = 'IPCNT'
    FieldLength = 0
    DataType = dtDouble
    DisplayWidth = 10
    Position = 50
    TableName = 'insclaim'
    end
    object ppField52: TppField
    FieldAlias = 'Fpcnt'
    FieldName = 'FPCNT'
    FieldLength = 0
    DataType = dtDouble
    DisplayWidth = 10
    Position = 51
    TableName = 'insclaim'
    end
    object ppField53: TppField
    FieldAlias = 'Cpcnt'
    FieldName = 'CPCNT'
    FieldLength = 0
    DataType = dtDouble
    DisplayWidth = 10
    Position = 52
    TableName = 'insclaim'
    end
    object ppField54: TppField
    FieldAlias = 'Docnt'
    FieldName = 'DOCNT'
    FieldLength = 0
    DataType = dtDouble
    DisplayWidth = 10
    Position = 53
    TableName = 'insclaim'
    end
    object ppField55: TppField
    FieldAlias = 'Insur Name'
    FieldName = 'INSUR_NAME'
    FieldLength = 30
    DisplayWidth = 30
    Position = 54
    TableName = 'insclaim'
    end
    object ppField56: TppField
    FieldAlias = 'Dat D'
    FieldName = 'DAT_D'
    FieldLength = 0
    DataType = dtDate
    DisplayWidth = 10
    Position = 55
    TableName = 'insclaim'
    end
    object ppField57: TppField
    FieldAlias = 'Dat T'
    FieldName = 'DAT_T'
    FieldLength = 5
    DisplayWidth = 5
    Position = 56
    TableName = 'insclaim'
    end
    object ppField58: TppField
    FieldAlias = 'Repcdat D'
    FieldName = 'REPCDAT_D'
    FieldLength = 0
    DataType = dtDate
    DisplayWidth = 10
    Position = 57
    TableName = 'insclaim'
    end
    object ppField59: TppField
    FieldAlias = 'Repcdat T'
    FieldName = 'REPCDAT_T'
    FieldLength = 5
    DisplayWidth = 5
    Position = 58
    TableName = 'insclaim'
    end
    object ppField60: TppField
    FieldAlias = 'Closdat D'
    FieldName = 'CLOSDAT_D'
    FieldLength = 0
    DataType = dtDate
    DisplayWidth = 10
    Position = 59
    TableName = 'insclaim'
    end
    object ppField61: TppField
    FieldAlias = 'Closdat T'
    FieldName = 'CLOSDAT_T'
    FieldLength = 5
    DisplayWidth = 5
    Position = 60
    TableName = 'insclaim'
    end
    object ppField62: TppField
    FieldAlias = 'Sv Proptyp'
    FieldName = 'SV_PROPTYP'
    FieldLength = 30
    DisplayWidth = 30
    Position = 61
    TableName = 'insclaim'
    end
    object ppField63: TppField
    FieldAlias = 'Sv Propage'
    FieldName = 'SV_PROPAGE'
    FieldLength = 30
    DisplayWidth = 30
    Position = 62
    TableName = 'insclaim'
    end
    object ppField64: TppField
    FieldAlias = 'Sv Propown'
    FieldName = 'SV_PROPOWN'
    FieldLength = 30
    DisplayWidth = 30
    Position = 63
    TableName = 'insclaim'
    end
    object ppField65: TppField
    FieldAlias = 'Sv Proppli'
    FieldName = 'SV_PROPPLI'
    FieldLength = 30
    DisplayWidth = 30
    Position = 64
    TableName = 'insclaim'
    end
    object ppField66: TppField
    FieldAlias = 'Sv Propshd'
    FieldName = 'SV_PROPSHD'
    FieldLength = 30
    DisplayWidth = 30
    Position = 65
    TableName = 'insclaim'
    end
    object ppField67: TppField
    FieldAlias = 'Sv Actdam'
    FieldName = 'SV_ACTDAM'
    FieldLength = 30
    DisplayWidth = 30
    Position = 66
    TableName = 'insclaim'
    end
    object ppField68: TppField
    FieldAlias = 'Sv Reploc'
    FieldName = 'SV_REPLOC'
    FieldLength = 30
    DisplayWidth = 30
    Position = 67
    TableName = 'insclaim'
    end
    object ppField69: TppField
    FieldAlias = 'Sv Mattyp'
    FieldName = 'SV_MATTYP'
    FieldLength = 30
    DisplayWidth = 30
    Position = 68
    TableName = 'insclaim'
    end
    object ppField70: TppField
    FieldAlias = 'Sv Surfm'
    FieldName = 'SV_SURFM'
    FieldLength = 30
    DisplayWidth = 30
    Position = 69
    TableName = 'insclaim'
    end
    object ppField71: TppField
    FieldAlias = 'Sv Reptyp'
    FieldName = 'SV_REPTYP'
    FieldLength = 30
    DisplayWidth = 30
    Position = 70
    TableName = 'insclaim'
    end
    object ppField72: TppField
    FieldAlias = 'Prop Notes'
    FieldName = 'PROP_NOTES'
    FieldLength = 254
    DisplayWidth = 254
    Position = 71
    TableName = 'insclaim'
    end
    object ppField73: TppField
    FieldAlias = 'Title'
    FieldName = 'TITLE'
    FieldLength = 10
    DisplayWidth = 10
    Position = 72
    TableName = 'insclaim'
    end
    object ppField74: TppField
    FieldAlias = 'Surname'
    FieldName = 'SURNAME'
    FieldLength = 30
    DisplayWidth = 30
    Position = 73
    TableName = 'insclaim'
    end
    object ppField75: TppField
    FieldAlias = 'Firstname'
    FieldName = 'FIRSTNAME'
    FieldLength = 30
    DisplayWidth = 30
    Position = 74
    TableName = 'insclaim'
    end
    object ppField76: TppField
    FieldAlias = 'Ph Contact'
    FieldName = 'PH_CONTACT'
    FieldLength = 1
    DisplayWidth = 1
    Position = 75
    TableName = 'insclaim'
    end
    object ppField77: TppField
    FieldAlias = 'Phcontdate'
    FieldName = 'PHCONTDATE'
    FieldLength = 0
    DataType = dtDate
    DisplayWidth = 10
    Position = 76
    TableName = 'insclaim'
    end
    object ppField78: TppField
    FieldAlias = 'Phconttime'
    FieldName = 'PHCONTTIME'
    FieldLength = 5
    DisplayWidth = 5
    Position = 77
    TableName = 'insclaim'
    end
    object ppField79: TppField
    FieldAlias = 'Daysphcont'
    FieldName = 'DAYSPHCONT'
    FieldLength = 0
    DataType = dtDouble
    DisplayWidth = 10
    Position = 78
    TableName = 'insclaim'
    end
    object ppField80: TppField
    FieldAlias = 'Fee Total'
    FieldName = 'FEE_TOTAL'
    FieldLength = 0
    DataType = dtDouble
    DisplayWidth = 10
    Position = 79
    TableName = 'insclaim'
    end
    object ppField81: TppField
    FieldAlias = 'Invoice Yn'
    FieldName = 'INVOICE_YN'
    FieldLength = 1
    DisplayWidth = 1
    Position = 80
    TableName = 'insclaim'
    end
    object ppField82: TppField
    FieldAlias = 'Excess Yn'
    FieldName = 'EXCESS_YN'
    FieldLength = 1
    DisplayWidth = 1
    Position = 81
    TableName = 'insclaim'
    end
    object ppField83: TppField
    FieldAlias = 'Excess Ok'
    FieldName = 'EXCESS_OK'
    FieldLength = 1
    DisplayWidth = 1
    Position = 82
    TableName = 'insclaim'
    end
    object ppField84: TppField
    FieldAlias = 'Exc Col Am'
    FieldName = 'EXC_COL_AM'
    FieldLength = 0
    DataType = dtDouble
    DisplayWidth = 10
    Position = 83
    TableName = 'insclaim'
    end
    object ppField85: TppField
    FieldAlias = 'Excessdate'
    FieldName = 'EXCESSDATE'
    FieldLength = 0
    DataType = dtDate
    DisplayWidth = 10
    Position = 84
    TableName = 'insclaim'
    end
    object ppField86: TppField
    FieldAlias = 'Repud Reas'
    FieldName = 'REPUD_REAS'
    FieldLength = 20
    DisplayWidth = 20
    Position = 85
    TableName = 'insclaim'
    end
    object ppField87: TppField
    FieldAlias = 'Risk Add1'
    FieldName = 'RISK_ADD1'
    FieldLength = 30
    DisplayWidth = 30
    Position = 86
    TableName = 'insclaim'
    end
    object ppField88: TppField
    FieldAlias = 'Risk Add2'
    FieldName = 'RISK_ADD2'
    FieldLength = 30
    DisplayWidth = 30
    Position = 87
    TableName = 'insclaim'
    end
    object ppField89: TppField
    FieldAlias = 'Risk Add3'
    FieldName = 'RISK_ADD3'
    FieldLength = 30
    DisplayWidth = 30
    Position = 88
    TableName = 'insclaim'
    end
    object ppField90: TppField
    FieldAlias = 'Risk Add4'
    FieldName = 'RISK_ADD4'
    FieldLength = 30
    DisplayWidth = 30
    Position = 89
    TableName = 'insclaim'
    end
    object ppField91: TppField
    FieldAlias = 'Risk Add5'
    FieldName = 'RISK_ADD5'
    FieldLength = 30
    DisplayWidth = 30
    Position = 90
    TableName = 'insclaim'
    end
    object ppField92: TppField
    FieldAlias = 'Risk Pc'
    FieldName = 'RISK_PC'
    FieldLength = 30
    DisplayWidth = 30
    Position = 91
    TableName = 'insclaim'
    end
    object ppField93: TppField
    FieldAlias = 'Contr Cont'
    FieldName = 'CONTR_CONT'
    FieldLength = 1
    DisplayWidth = 1
    Position = 92
    TableName = 'insclaim'
    end
    object ppField94: TppField
    FieldAlias = 'Contr Date'
    FieldName = 'CONTR_DATE'
    FieldLength = 0
    DataType = dtDate
    DisplayWidth = 10
    Position = 93
    TableName = 'insclaim'
    end
    object ppField95: TppField
    FieldAlias = 'Ida Cont'
    FieldName = 'IDA_CONT'
    FieldLength = 20
    DisplayWidth = 20
    Position = 94
    TableName = 'insclaim'
    end
    object ppField96: TppField
    FieldAlias = 'Cust Phone'
    FieldName = 'CUST_PHONE'
    FieldLength = 20
    DisplayWidth = 20
    Position = 95
    TableName = 'insclaim'
    end
    object ppField97: TppField
    FieldAlias = 'Ins Add1'
    FieldName = 'INS_ADD1'
    FieldLength = 35
    DisplayWidth = 35
    Position = 96
    TableName = 'insclaim'
    end
    object ppField98: TppField
    FieldAlias = 'Ins Add2'
    FieldName = 'INS_ADD2'
    FieldLength = 35
    DisplayWidth = 35
    Position = 97
    TableName = 'insclaim'
    end
    object ppField99: TppField
    FieldAlias = 'Ins Add3'
    FieldName = 'INS_ADD3'
    FieldLength = 35
    DisplayWidth = 35
    Position = 98
    TableName = 'insclaim'
    end
    object ppField100: TppField
    FieldAlias = 'Ins Add4'
    FieldName = 'INS_ADD4'
    FieldLength = 35
    DisplayWidth = 35
    Position = 99
    TableName = 'insclaim'
    end
    object ppField101: TppField
    FieldAlias = 'Ins Add5'
    FieldName = 'INS_ADD5'
    FieldLength = 35
    DisplayWidth = 35
    Position = 100
    TableName = 'insclaim'
    end
    object ppField102: TppField
    FieldAlias = 'Ins Pc'
    FieldName = 'INS_PC'
    FieldLength = 10
    DisplayWidth = 10
    Position = 101
    TableName = 'insclaim'
    end
    object ppField103: TppField
    FieldAlias = 'Ins Phone'
    FieldName = 'INS_PHONE'
    FieldLength = 20
    DisplayWidth = 20
    Position = 102
    TableName = 'insclaim'
    end
    object ppField104: TppField
    FieldAlias = 'Ins Fax'
    FieldName = 'INS_FAX'
    FieldLength = 20
    DisplayWidth = 20
    Position = 103
    TableName = 'insclaim'
    end
    object ppField105: TppField
    FieldAlias = 'Ins Email'
    FieldName = 'INS_EMAIL'
    FieldLength = 50
    DisplayWidth = 50
    Position = 104
    TableName = 'insclaim'
    end
    object ppField106: TppField
    FieldAlias = 'Ins Code'
    FieldName = 'INS_CODE'
    FieldLength = 10
    DisplayWidth = 10
    Position = 105
    TableName = 'insclaim'
    end
    object ppField107: TppField
    FieldAlias = 'Ins Name'
    FieldName = 'INS_NAME'
    FieldLength = 35
    DisplayWidth = 35
    Position = 106
    TableName = 'insclaim'
    end
    object ppField108: TppField
    FieldAlias = 'Dam Cause'
    FieldName = 'DAM_CAUSE'
    FieldLength = 35
    DisplayWidth = 35
    Position = 107
    TableName = 'insclaim'
    end
    object ppField109: TppField
    FieldAlias = 'Act Repair'
    FieldName = 'ACT_REPAIR'
    FieldLength = 35
    DisplayWidth = 35
    Position = 108
    TableName = 'insclaim'
    end
    object ppField110: TppField
    FieldAlias = 'Deleg Auth'
    FieldName = 'DELEG_AUTH'
    FieldLength = 1
    DisplayWidth = 1
    Position = 109
    TableName = 'insclaim'
    end
    object ppField111: TppField
    FieldAlias = 'Claim Auth'
    FieldName = 'CLAIM_AUTH'
    FieldLength = 1
    DisplayWidth = 1
    Position = 110
    TableName = 'insclaim'
    end
    object ppField112: TppField
    FieldAlias = 'Share Cont'
    FieldName = 'SHARE_CONT'
    FieldLength = 1
    DisplayWidth = 1
    Position = 111
    TableName = 'insclaim'
    end
    object ppField113: TppField
    FieldAlias = 'Share List'
    FieldName = 'SHARE_LIST'
    FieldLength = 1
    DisplayWidth = 1
    Position = 112
    TableName = 'insclaim'
    end
    object ppField114: TppField
    FieldAlias = 'Cctv Rec'
    FieldName = 'CCTV_REC'
    FieldLength = 1
    DisplayWidth = 1
    Position = 113
    TableName = 'insclaim'
    end
    object ppField115: TppField
    FieldAlias = 'Surv Inv'
    FieldName = 'SURV_INV'
    FieldLength = 1
    DisplayWidth = 1
    Position = 114
    TableName = 'insclaim'
    end
    object ppField116: TppField
    FieldAlias = 'Est Cost'
    FieldName = 'EST_COST'
    FieldLength = 0
    DataType = dtDouble
    DisplayWidth = 10
    Position = 115
    TableName = 'insclaim'
    end
    object ppField117: TppField
    FieldAlias = 'Wait Quote'
    FieldName = 'WAIT_QUOTE'
    FieldLength = 1
    DisplayWidth = 1
    Position = 116
    TableName = 'insclaim'
    end
    object ppField118: TppField
    FieldAlias = 'Recov'
    FieldName = 'RECOV'
    FieldLength = 1
    DisplayWidth = 1
    Position = 117
    TableName = 'insclaim'
    end
    object ppField119: TppField
    FieldAlias = 'Recov Src'
    FieldName = 'RECOV_SRC'
    FieldLength = 1
    DisplayWidth = 1
    Position = 118
    TableName = 'insclaim'
    end
    object ppField120: TppField
    FieldAlias = 'Ipr Notes'
    FieldName = 'IPR_NOTES'
    FieldLength = 254
    DisplayWidth = 254
    Position = 119
    TableName = 'insclaim'
    end
    object ppField121: TppField
    FieldAlias = 'Vip'
    FieldName = 'VIP'
    FieldLength = 1
    DisplayWidth = 1
    Position = 120
    TableName = 'insclaim'
    end
    object ppField122: TppField
    FieldAlias = 'Await Rol'
    FieldName = 'AWAIT_ROL'
    FieldLength = 1
    DisplayWidth = 1
    Position = 121
    TableName = 'insclaim'
    end
    object ppField123: TppField
    FieldAlias = 'Recov Am'
    FieldName = 'RECOV_AM'
    FieldLength = 0
    DataType = dtDouble
    DisplayWidth = 10
    Position = 122
    TableName = 'insclaim'
    end
    object ppField124: TppField
    FieldAlias = 'Other Inv'
    FieldName = 'OTHER_INV'
    FieldLength = 1
    DisplayWidth = 1
    Position = 123
    TableName = 'insclaim'
    end
    object ppField125: TppField
    FieldAlias = 'Ex Coll'
    FieldName = 'EX_COLL'
    FieldLength = 1
    DisplayWidth = 1
    Position = 124
    TableName = 'insclaim'
    end
    object ppField126: TppField
    FieldAlias = 'Oss Notes'
    FieldName = 'OSS_NOTES'
    FieldLength = 1
    Linkable = False
    DataType = dtMemo
    DisplayWidth = 10
    Position = 125
    TableName = 'insclaim'
    end
    object ppField127: TppField
    FieldAlias = 'Pass Group'
    FieldName = 'PASS_GROUP'
    FieldLength = 30
    DisplayWidth = 30
    Position = 126
    TableName = 'insclaim'
    end
    object ppField128: TppField
    FieldAlias = 'Pass User'
    FieldName = 'PASS_USER'
    FieldLength = 30
    DisplayWidth = 30
    Position = 127
    TableName = 'insclaim'
    end
    object ppField129: TppField
    FieldAlias = 'Pass Prty'
    FieldName = 'PASS_PRTY'
    FieldLength = 4
    DisplayWidth = 4
    Position = 128
    TableName = 'insclaim'
    end
    object ppField130: TppField
    FieldAlias = 'Deleg Sent'
    FieldName = 'DELEG_SENT'
    FieldLength = 1
    DisplayWidth = 1
    Position = 129
    TableName = 'insclaim'
    end
    object ppField131: TppField
    FieldAlias = 'Deleg Date'
    FieldName = 'DELEG_DATE'
    FieldLength = 0
    DataType = dtDate
    DisplayWidth = 10
    Position = 130
    TableName = 'insclaim'
    end
    object ppField132: TppField
    FieldAlias = 'Succ Cont'
    FieldName = 'SUCC_CONT'
    FieldLength = 1
    DisplayWidth = 1
    Position = 131
    TableName = 'insclaim'
    end
    object ppField133: TppField
    FieldAlias = 'Wrk Comp'
    FieldName = 'WRK_COMP'
    FieldLength = 1
    DisplayWidth = 1
    Position = 132
    TableName = 'insclaim'
    end
    object ppField134: TppField
    FieldAlias = 'Wrk C Date'
    FieldName = 'WRK_C_DATE'
    FieldLength = 0
    DataType = dtDate
    DisplayWidth = 10
    Position = 133
    TableName = 'insclaim'
    end
    object ppField135: TppField
    FieldAlias = 'Wrk S Date'
    FieldName = 'WRK_S_DATE'
    FieldLength = 0
    DataType = dtDate
    DisplayWidth = 10
    Position = 134
    TableName = 'insclaim'
    end
    object ppField136: TppField
    FieldAlias = 'Pass Date'
    FieldName = 'PASS_DATE'
    FieldLength = 0
    DataType = dtDate
    DisplayWidth = 10
    Position = 135
    TableName = 'insclaim'
    end
    object ppField137: TppField
    FieldAlias = 'Pass Notes'
    FieldName = 'PASS_NOTES'
    FieldLength = 254
    DisplayWidth = 254
    Position = 136
    TableName = 'insclaim'
    end
    end
    object daSQL1: TdaSQL
    CollationType = ctASCII
    DatabaseName = 'winida'
    DatabaseType = dtAdvantage
    DataPipelineName = 'Insclaim'
    LinkColor = clMaroon
    MaxSQLFieldAliasLength = 25
    SQLText.Strings = (
    'SELECT insclaim.CLAMNO, insclaim.DAT, '
    ' insclaim.CRT, insclaim.OWN, '
    ' insclaim.CNSLT, insclaim.HRDC, '
    ' insclaim.INSER, insclaim.INSER_CONT, '
    ' insclaim.INS_REF, insclaim.INS_REFOTH, '
    ' insclaim.LOG, insclaim.POLSTR, '
    ' insclaim.SHRD, insclaim.DET, '
    ' insclaim.EXCES, insclaim.REPDAM, '
    ' insclaim.REPCOS, insclaim.COVTYP, '
    ' insclaim.ACTDAM, insclaim.REPUD_YN, '
    ' insclaim.REACT, insclaim.CLAMPH, '
    ' insclaim.PH_ADD1, insclaim.PH_ADD2, '
    ' insclaim.PH_ADD3, insclaim.PH_ADD4, '
    ' insclaim.PH_ADD5, insclaim.PH_PC, '
    ' insclaim.PH_TEL, insclaim.PH_WRK, '
    ' insclaim.PH_MOB, insclaim.PH_REG, '
    ' insclaim.CMCL, insclaim.COMM, '
    ' insclaim.REPCOMP, insclaim.REPCDAT, '
    ' insclaim.CLOSED, insclaim.CLOSE_DATE, '
    ' insclaim.REACTD, insclaim.READAT, '
    ' insclaim.STAT, insclaim.SHRS, '
    ' insclaim.SFCNT, insclaim.SWCNT, '
    ' insclaim.RQCNT, insclaim.QRCNT, '
    ' insclaim.QTCNT, insclaim.ITCNT, '
    ' insclaim.TICNT, insclaim.RICNT, '
    ' insclaim.IPCNT, insclaim.FPCNT, '
    ' insclaim.CPCNT, insclaim.DOCNT, '
    ' insclaim.INSUR_NAME, insclaim.DAT_D, '
    ' insclaim.DAT_T, insclaim.REPCDAT_D, '
    ' insclaim.REPCDAT_T, insclaim.CLOSDAT_D, '
    ' insclaim.CLOSDAT_T, insclaim.SV_PROPTYP, '
    ' insclaim.SV_PROPAGE, insclaim.SV_PROPOWN, '
    ' insclaim.SV_PROPPLI, insclaim.SV_PROPSHD, '
    ' insclaim.SV_ACTDAM, insclaim.SV_REPLOC, '
    ' insclaim.SV_MATTYP, insclaim.SV_SURFM, '
    ' insclaim.SV_REPTYP, insclaim.PROP_NOTES, '
    ' insclaim.TITLE, insclaim.SURNAME, '
    ' insclaim.FIRSTNAME, insclaim.PH_CONTACT, '
    ' insclaim.PHCONTDATE, insclaim.PHCONTTIME, '
    ' insclaim.DAYSPHCONT, insclaim.FEE_TOTAL, '
    ' insclaim.INVOICE_YN, insclaim.EXCESS_YN, '
    ' insclaim.EXCESS_OK, insclaim.EXC_COL_AM, '
    ' insclaim.EXCESSDATE, insclaim.REPUD_REAS, '
    ' insclaim.RISK_ADD1, insclaim.RISK_ADD2, '
    ' insclaim.RISK_ADD3, insclaim.RISK_ADD4, '
    ' insclaim.RISK_ADD5, insclaim.RISK_PC, '
    ' insclaim.CONTR_CONT, insclaim.CONTR_DATE, '
    ' insclaim.IDA_CONT, insclaim.CUST_PHONE, '
    ' insclaim.INS_ADD1, insclaim.INS_ADD2, '
    ' insclaim.INS_ADD3, insclaim.INS_ADD4, '
    ' insclaim.INS_ADD5, insclaim.INS_PC, '
    ' insclaim.INS_PHONE, insclaim.INS_FAX, '
    ' insclaim.INS_EMAIL, insclaim.INS_CODE, '
    ' insclaim.INS_NAME, insclaim.DAM_CAUSE, '
    ' insclaim.ACT_REPAIR, insclaim.DELEG_AUTH, '
    ' insclaim.CLAIM_AUTH, insclaim.SHARE_CONT, '
    ' insclaim.SHARE_LIST, insclaim.CCTV_REC, '
    ' insclaim.SURV_INV, insclaim.EST_COST, '
    ' insclaim.WAIT_QUOTE, insclaim.RECOV, '
    ' insclaim.RECOV_SRC, insclaim.IPR_NOTES, '
    ' insclaim.VIP, insclaim.AWAIT_ROL, '
    ' insclaim.RECOV_AM, insclaim.OTHER_INV, '
    ' insclaim.EX_COLL, insclaim.OSS_NOTES, '
    ' insclaim.PASS_GROUP, insclaim.PASS_USER, '
    ' insclaim.PASS_PRTY, insclaim.DELEG_SENT, '
    ' insclaim.DELEG_DATE, insclaim.SUCC_CONT, '
    ' insclaim.WRK_COMP, insclaim.WRK_C_DATE, '
    ' insclaim.WRK_S_DATE, insclaim.PASS_DATE, '
    ' insclaim.PASS_NOTES'
    'FROM insclaim insclaim'
    'ORDER BY insclaim.INSER')
    SQLType = sqSQL2
    object daField1: TdaField
    Alias = 'Clamno'
    DisplayWidth = 30
    FieldAlias = 'Clamno'
    FieldLength = 30
    FieldName = 'CLAMNO'
    SQLFieldName = 'CLAMNO'
    TableAlias = 'Insclaim'
    TableName = 'insclaim'
    TableSQLAlias = 'insclaim'
    end
    object daField2: TdaField
    Alias = 'Dat'
    DisplayWidth = 20
    FieldAlias = 'Dat'
    FieldLength = 20
    FieldName = 'DAT'
    SQLFieldName = 'DAT'
    TableAlias = 'Insclaim'
    TableName = 'insclaim'
    TableSQLAlias = 'insclaim'
    end
    object daField3: TdaField
    Alias = 'Crt'
    DisplayWidth = 14
    FieldAlias = 'Crt'
    FieldLength = 14
    FieldName = 'CRT'
    SQLFieldName = 'CRT'
    TableAlias = 'Insclaim'
    TableName = 'insclaim'
    TableSQLAlias = 'insclaim'
    end
    object daField4: TdaField
    Alias = 'Own'
    DisplayWidth = 14
    FieldAlias = 'Own'
    FieldLength = 14
    FieldName = 'OWN'
    SQLFieldName = 'OWN'
    TableAlias = 'Insclaim'
    TableName = 'insclaim'
    TableSQLAlias = 'insclaim'
    end
    object daField5: TdaField
    Alias = 'Cnslt'
    DisplayWidth = 14
    FieldAlias = 'Cnslt'
    FieldLength = 14
    FieldName = 'CNSLT'
    SQLFieldName = 'CNSLT'
    TableAlias = 'Insclaim'
    TableName = 'insclaim'
    TableSQLAlias = 'insclaim'
    end
    object daField6: TdaField
    Alias = 'Hrdc'
    DisplayWidth = 60
    FieldAlias = 'Hrdc'
    FieldLength = 60
    FieldName = 'HRDC'
    SQLFieldName = 'HRDC'
    TableAlias = 'Insclaim'
    TableName = 'insclaim'
    TableSQLAlias = 'insclaim'
    end
    object daField7: TdaField
    Alias = 'Inser'
    DisplayWidth = 10
    FieldAlias = 'Inser'
    FieldLength = 10
    FieldName = 'INSER'
    SQLFieldName = 'INSER'
    TableAlias = 'Insclaim'
    TableName = 'insclaim'
    TableSQLAlias = 'insclaim'
    end
    object daField8: TdaField
    Alias = 'Inser Cont'
    DisplayWidth = 60
    FieldAlias = 'Inser Cont'
    FieldLength = 60
    FieldName = 'INSER_CONT'
    SQLFieldName = 'INSER_CONT'
    TableAlias = 'Insclaim'
    TableName = 'insclaim'
    TableSQLAlias = 'insclaim'
    end
    object daField9: TdaField
    Alias = 'Ins Ref'
    DisplayWidth = 60
    FieldAlias = 'Ins Ref'
    FieldLength = 60
    FieldName = 'INS_REF'
    SQLFieldName = 'INS_REF'
    TableAlias = 'Insclaim'
    TableName = 'insclaim'
    TableSQLAlias = 'insclaim'
    end
    object daField10: TdaField
    Alias = 'Ins Refoth'
    DisplayWidth = 60
    FieldAlias = 'Ins Refoth'
    FieldLength = 60
    FieldName = 'INS_REFOTH'
    SQLFieldName = 'INS_REFOTH'
    TableAlias = 'Insclaim'
    TableName = 'insclaim'
    TableSQLAlias = 'insclaim'
    end
    object daField11: TdaField
    Alias = 'Log'
    DisplayWidth = 10
    FieldAlias = 'Log'
    FieldLength = 10
    FieldName = 'LOG'
    SQLFieldName = 'LOG'
    TableAlias = 'Insclaim'
    TableName = 'insclaim'
    TableSQLAlias = 'insclaim'
    end
    object daField12: TdaField
    Alias = 'Polstr'
    DataType = dtDate
    DisplayWidth = 10
    FieldAlias = 'Polstr'
    FieldLength = 0
    FieldName = 'POLSTR'
    SQLFieldName = 'POLSTR'
    TableAlias = 'Insclaim'
    TableName = 'insclaim'
    TableSQLAlias = 'insclaim'
    end
    object daField13: TdaField
    Alias = 'Shrd'
    DataType = dtBoolean
    DisplayWidth = 5
    FieldAlias = 'Shrd'
    FieldLength = 0
    FieldName = 'SHRD'
    SQLFieldName = 'SHRD'
    TableAlias = 'Insclaim'
    TableName = 'insclaim'
    TableSQLAlias = 'insclaim'
    end
    object daField14: TdaField
    Alias = 'Det'
    DisplayWidth = 60
    FieldAlias = 'Det'
    FieldLength = 60
    FieldName = 'DET'
    SQLFieldName = 'DET'
    TableAlias = 'Insclaim'
    TableName = 'insclaim'
    TableSQLAlias = 'insclaim'
    end
    object daField15: TdaField
    Alias = 'Exces'
    DataType = dtDouble
    DisplayWidth = 10
    FieldAlias = 'Exces'
    FieldLength = 0
    FieldName = 'EXCES'
    SQLFieldName = 'EXCES'
    TableAlias = 'Insclaim'
    TableName = 'insclaim'
    TableSQLAlias = 'insclaim'
    end
    object daField16: TdaField
    Alias = 'Repdam'
    DisplayWidth = 60
    FieldAlias = 'Repdam'
    FieldLength = 60
    FieldName = 'REPDAM'
    SQLFieldName = 'REPDAM'
    TableAlias = 'Insclaim'
    TableName = 'insclaim'
    TableSQLAlias = 'insclaim'
    end
    object daField17: TdaField
    Alias = 'Repcos'
    DataType = dtDouble
    DisplayWidth = 10
    FieldAlias = 'Repcos'
    FieldLength = 0
    FieldName = 'REPCOS'
    SQLFieldName = 'REPCOS'
    TableAlias = 'Insclaim'
    TableName = 'insclaim'
    TableSQLAlias = 'insclaim'
    end
    object daField18: TdaField
    Alias = 'Covtyp'
    DisplayWidth = 40
    FieldAlias = 'Covtyp'
    FieldLength = 40
    FieldName = 'COVTYP'
    SQLFieldName = 'COVTYP'
    TableAlias = 'Insclaim'
    TableName = 'insclaim'
    TableSQLAlias = 'insclaim'
    end
    object daField19: TdaField
    Alias = 'Actdam'
    DisplayWidth = 20
    FieldAlias = 'Actdam'
    FieldLength = 20
    FieldName = 'ACTDAM'
    SQLFieldName = 'ACTDAM'
    TableAlias = 'Insclaim'
    TableName = 'insclaim'
    TableSQLAlias = 'insclaim'
    end
    object daField20: TdaField
    Alias = 'Repud Yn'
    DisplayWidth = 1
    FieldAlias = 'Repud Yn'
    FieldLength = 1
    FieldName = 'REPUD_YN'
    SQLFieldName = 'REPUD_YN'
    TableAlias = 'Insclaim'
    TableName = 'insclaim'
    TableSQLAlias = 'insclaim'
    end
    object daField21: TdaField
    Alias = 'React'
    DataType = dtBoolean
    DisplayWidth = 5
    FieldAlias = 'React'
    FieldLength = 0
    FieldName = 'REACT'
    SQLFieldName = 'REACT'
    TableAlias = 'Insclaim'
    TableName = 'insclaim'
    TableSQLAlias = 'insclaim'
    end
    object daField22: TdaField
    Alias = 'Clamph'
    DisplayWidth = 60
    FieldAlias = 'Clamph'
    FieldLength = 60
    FieldName = 'CLAMPH'
    SQLFieldName = 'CLAMPH'
    TableAlias = 'Insclaim'
    TableName = 'insclaim'
    TableSQLAlias = 'insclaim'
    end
    object daField23: TdaField
    Alias = 'Ph Add1'
    DisplayWidth = 60
    FieldAlias = 'Ph Add1'
    FieldLength = 60
    FieldName = 'PH_ADD1'
    SQLFieldName = 'PH_ADD1'
    TableAlias = 'Insclaim'
    TableName = 'insclaim'
    TableSQLAlias = 'insclaim'
    end
    object daField24: TdaField
    Alias = 'Ph Add2'
    DisplayWidth = 60
    FieldAlias = 'Ph Add2'
    FieldLength = 60
    FieldName = 'PH_ADD2'
    SQLFieldName = 'PH_ADD2'
    TableAlias = 'Insclaim'
    TableName = 'insclaim'
    TableSQLAlias = 'insclaim'
    end
    object daField25: TdaField
    Alias = 'Ph Add3'
    DisplayWidth = 60
    FieldAlias = 'Ph Add3'
    FieldLength = 60
    FieldName = 'PH_ADD3'
    SQLFieldName = 'PH_ADD3'
    TableAlias = 'Insclaim'
    TableName = 'insclaim'
    TableSQLAlias = 'insclaim'
    end
    object daField26: TdaField
    Alias = 'Ph Add4'
    DisplayWidth = 60
    FieldAlias = 'Ph Add4'
    FieldLength = 60
    FieldName = 'PH_ADD4'
    SQLFieldName = 'PH_ADD4'
    TableAlias = 'Insclaim'
    TableName = 'insclaim'
    TableSQLAlias = 'insclaim'
    end
    object daField27: TdaField
    Alias = 'Ph Add5'
    DisplayWidth = 60
    FieldAlias = 'Ph Add5'
    FieldLength = 60
    FieldName = 'PH_ADD5'
    SQLFieldName = 'PH_ADD5'
    TableAlias = 'Insclaim'
    TableName = 'insclaim'
    TableSQLAlias = 'insclaim'
    end
    object daField28: TdaField
    Alias = 'Ph Pc'
    DisplayWidth = 16
    FieldAlias = 'Ph Pc'
    FieldLength = 16
    FieldName = 'PH_PC'
    SQLFieldName = 'PH_PC'
    TableAlias = 'Insclaim'
    TableName = 'insclaim'
    TableSQLAlias = 'insclaim'
    end
    object daField29: TdaField
    Alias = 'Ph Tel'
    DisplayWidth = 30
    FieldAlias = 'Ph Tel'
    FieldLength = 30
    FieldName = 'PH_TEL'
    SQLFieldName = 'PH_TEL'
    TableAlias = 'Insclaim'
    TableName = 'insclaim'
    TableSQLAlias = 'insclaim'
    end
    object daField30: TdaField
    Alias = 'Ph Wrk'
    DisplayWidth = 30
    FieldAlias = 'Ph Wrk'
    FieldLength = 30
    FieldName = 'PH_WRK'
    SQLFieldName = 'PH_WRK'
    TableAlias = 'Insclaim'
    TableName = 'insclaim'
    TableSQLAlias = 'insclaim'
    end
    object daField31: TdaField
    Alias = 'Ph Mob'
    DisplayWidth = 30
    FieldAlias = 'Ph Mob'
    FieldLength = 30
    FieldName = 'PH_MOB'
    SQLFieldName = 'PH_MOB'
    TableAlias = 'Insclaim'
    TableName = 'insclaim'
    TableSQLAlias = 'insclaim'
    end
    object daField32: TdaField
    Alias = 'Ph Reg'
    DisplayWidth = 60
    FieldAlias = 'Ph Reg'
    FieldLength = 60
    FieldName = 'PH_REG'
    SQLFieldName = 'PH_REG'
    TableAlias = 'Insclaim'
    TableName = 'insclaim'
    TableSQLAlias = 'insclaim'
    end
    object daField33: TdaField
    Alias = 'Cmcl'
    DisplayWidth = 20
    FieldAlias = 'Cmcl'
    FieldLength = 20
    FieldName = 'CMCL'
    SQLFieldName = 'CMCL'
    TableAlias = 'Insclaim'
    TableName = 'insclaim'
    TableSQLAlias = 'insclaim'
    end
    object daField34: TdaField
    Alias = 'Comm'
    DisplayWidth = 254
    FieldAlias = 'Comm'
    FieldLength = 254
    FieldName = 'COMM'
    SQLFieldName = 'COMM'
    TableAlias = 'Insclaim'
    TableName = 'insclaim'
    TableSQLAlias = 'insclaim'
    end
    object daField35: TdaField
    Alias = 'Repcomp'
    DataType = dtBoolean
    DisplayWidth = 5
    FieldAlias = 'Repcomp'
    FieldLength = 0
    FieldName = 'REPCOMP'
    SQLFieldName = 'REPCOMP'
    TableAlias = 'Insclaim'
    TableName = 'insclaim'
    TableSQLAlias = 'insclaim'
    end
    object daField36: TdaField
    Alias = 'Repcdat'
    DisplayWidth = 20
    FieldAlias = 'Repcdat'
    FieldLength = 20
    FieldName = 'REPCDAT'
    SQLFieldName = 'REPCDAT'
    TableAlias = 'Insclaim'
    TableName = 'insclaim'
    TableSQLAlias = 'insclaim'
    end
    object daField37: TdaField
    Alias = 'Closed'
    DisplayWidth = 1
    FieldAlias = 'Closed'
    FieldLength = 1
    FieldName = 'CLOSED'
    SQLFieldName = 'CLOSED'
    TableAlias = 'Insclaim'
    TableName = 'insclaim'
    TableSQLAlias = 'insclaim'
    end
    object daField38: TdaField
    Alias = 'Close Date'
    DataType = dtDate
    DisplayWidth = 10
    FieldAlias = 'Close Date'
    FieldLength = 0
    FieldName = 'CLOSE_DATE'
    SQLFieldName = 'CLOSE_DATE'
    TableAlias = 'Insclaim'
    TableName = 'insclaim'
    TableSQLAlias = 'insclaim'
    end
    object daField39: TdaField
    Alias = 'Reactd'
    DataType = dtBoolean
    DisplayWidth = 5
    FieldAlias = 'Reactd'
    FieldLength = 0
    FieldName = 'REACTD'
    SQLFieldName = 'REACTD'
    TableAlias = 'Insclaim'
    TableName = 'insclaim'
    TableSQLAlias = 'insclaim'
    end
    object daField40: TdaField
    Alias = 'Readat'
    DisplayWidth = 20
    FieldAlias = 'Readat'
    FieldLength = 20
    FieldName = 'READAT'
    SQLFieldName = 'READAT'
    TableAlias = 'Insclaim'
    TableName = 'insclaim'
    TableSQLAlias = 'insclaim'
    end
    object daField41: TdaField
    Alias = 'Stat'
    DisplayWidth = 40
    FieldAlias = 'Stat'
    FieldLength = 40
    FieldName = 'STAT'
    SQLFieldName = 'STAT'
    TableAlias = 'Insclaim'
    TableName = 'insclaim'
    TableSQLAlias = 'insclaim'
    end
    object daField42: TdaField
    Alias = 'Shrs'
    DataType = dtDouble
    DisplayWidth = 10
    FieldAlias = 'Shrs'
    FieldLength = 0
    FieldName = 'SHRS'
    SQLFieldName = 'SHRS'
    TableAlias = 'Insclaim'
    TableName = 'insclaim'
    TableSQLAlias = 'insclaim'
    end
    object daField43: TdaField
    Alias = 'Sfcnt'
    DataType = dtDouble
    DisplayWidth = 10
    FieldAlias = 'Sfcnt'
    FieldLength = 0
    FieldName = 'SFCNT'
    SQLFieldName = 'SFCNT'
    TableAlias = 'Insclaim'
    TableName = 'insclaim'
    TableSQLAlias = 'insclaim'
    end
    object daField44: TdaField
    Alias = 'Swcnt'
    DataType = dtDouble
    DisplayWidth = 10
    FieldAlias = 'Swcnt'
    FieldLength = 0
    FieldName = 'SWCNT'
    SQLFieldName = 'SWCNT'
    TableAlias = 'Insclaim'
    TableName = 'insclaim'
    TableSQLAlias = 'insclaim'
    end
    object daField45: TdaField
    Alias = 'Rqcnt'
    DataType = dtDouble
    DisplayWidth = 10
    FieldAlias = 'Rqcnt'
    FieldLength = 0
    FieldName = 'RQCNT'
    SQLFieldName = 'RQCNT'
    TableAlias = 'Insclaim'
    TableName = 'insclaim'
    TableSQLAlias = 'insclaim'
    end
    object daField46: TdaField
    Alias = 'Qrcnt'
    DataType = dtDouble
    DisplayWidth = 10
    FieldAlias = 'Qrcnt'
    FieldLength = 0
    FieldName = 'QRCNT'
    SQLFieldName = 'QRCNT'
    TableAlias = 'Insclaim'
    TableName = 'insclaim'
    TableSQLAlias = 'insclaim'
    end
    object daField47: TdaField
    Alias = 'Qtcnt'
    DataType = dtDouble
    DisplayWidth = 10
    FieldAlias = 'Qtcnt'
    FieldLength = 0
    FieldName = 'QTCNT'
    SQLFieldName = 'QTCNT'
    TableAlias = 'Insclaim'
    TableName = 'insclaim'
    TableSQLAlias = 'insclaim'
    end
    object daField48: TdaField
    Alias = 'Itcnt'
    DataType = dtDouble
    DisplayWidth = 10
    FieldAlias = 'Itcnt'
    FieldLength = 0
    FieldName = 'ITCNT'
    SQLFieldName = 'ITCNT'
    TableAlias = 'Insclaim'
    TableName = 'insclaim'
    TableSQLAlias = 'insclaim'
    end
    object daField49: TdaField
    Alias = 'Ticnt'
    DataType = dtDouble
    DisplayWidth = 10
    FieldAlias = 'Ticnt'
    FieldLength = 0
    FieldName = 'TICNT'
    SQLFieldName = 'TICNT'
    TableAlias = 'Insclaim'
    TableName = 'insclaim'
    TableSQLAlias = 'insclaim'
    end
    object daField50: TdaField
    Alias = 'Ricnt'
    DataType = dtDouble
    DisplayWidth = 10
    FieldAlias = 'Ricnt'
    FieldLength = 0
    FieldName = 'RICNT'
    SQLFieldName = 'RICNT'
    TableAlias = 'Insclaim'
    TableName = 'insclaim'
    TableSQLAlias = 'insclaim'
    end
    object daField51: TdaField
    Alias = 'Ipcnt'
    DataType = dtDouble
    DisplayWidth = 10
    FieldAlias = 'Ipcnt'
    FieldLength = 0
    FieldName = 'IPCNT'
    SQLFieldName = 'IPCNT'
    TableAlias = 'Insclaim'
    TableName = 'insclaim'
    TableSQLAlias = 'insclaim'
    end
    object daField52: TdaField
    Alias = 'Fpcnt'
    DataType = dtDouble
    DisplayWidth = 10
    FieldAlias = 'Fpcnt'
    FieldLength = 0
    FieldName = 'FPCNT'
    SQLFieldName = 'FPCNT'
    TableAlias = 'Insclaim'
    TableName = 'insclaim'
    TableSQLAlias = 'insclaim'
    end
    object daField53: TdaField
    Alias = 'Cpcnt'
    DataType = dtDouble
    DisplayWidth = 10
    FieldAlias = 'Cpcnt'
    FieldLength = 0
    FieldName = 'CPCNT'
    SQLFieldName = 'CPCNT'
    TableAlias = 'Insclaim'
    TableName = 'insclaim'
    TableSQLAlias = 'insclaim'
    end
    object daField54: TdaField
    Alias = 'Docnt'
    DataType = dtDouble
    DisplayWidth = 10
    FieldAlias = 'Docnt'
    FieldLength = 0
    FieldName = 'DOCNT'
    SQLFieldName = 'DOCNT'
    TableAlias = 'Insclaim'
    TableName = 'insclaim'
    TableSQLAlias = 'insclaim'
    end
    object daField55: TdaField
    Alias = 'Insur Name'
    DisplayWidth = 30
    FieldAlias = 'Insur Name'
    FieldLength = 30
    FieldName = 'INSUR_NAME'
    SQLFieldName = 'INSUR_NAME'
    TableAlias = 'Insclaim'
    TableName = 'insclaim'
    TableSQLAlias = 'insclaim'
    end
    object daField56: TdaField
    Alias = 'Dat D'
    DataType = dtDate
    DisplayWidth = 10
    FieldAlias = 'Dat D'
    FieldLength = 0
    FieldName = 'DAT_D'
    SQLFieldName = 'DAT_D'
    TableAlias = 'Insclaim'
    TableName = 'insclaim'
    TableSQLAlias = 'insclaim'
    end
    object daField57: TdaField
    Alias = 'Dat T'
    DisplayWidth = 5
    FieldAlias = 'Dat T'
    FieldLength = 5
    FieldName = 'DAT_T'
    SQLFieldName = 'DAT_T'
    TableAlias = 'Insclaim'
    TableName = 'insclaim'
    TableSQLAlias = 'insclaim'
    end
    object daField58: TdaField
    Alias = 'Repcdat D'
    DataType = dtDate
    DisplayWidth = 10
    FieldAlias = 'Repcdat D'
    FieldLength = 0
    FieldName = 'REPCDAT_D'
    SQLFieldName = 'REPCDAT_D'
    TableAlias = 'Insclaim'
    TableName = 'insclaim'
    TableSQLAlias = 'insclaim'
    end
    object daField59: TdaField
    Alias = 'Repcdat T'
    DisplayWidth = 5
    FieldAlias = 'Repcdat T'
    FieldLength = 5
    FieldName = 'REPCDAT_T'
    SQLFieldName = 'REPCDAT_T'
    TableAlias = 'Insclaim'
    TableName = 'insclaim'
    TableSQLAlias = 'insclaim'
    end
    object daField60: TdaField
    Alias = 'Closdat D'
    DataType = dtDate
    DisplayWidth = 10
    FieldAlias = 'Closdat D'
    FieldLength = 0
    FieldName = 'CLOSDAT_D'
    SQLFieldName = 'CLOSDAT_D'
    TableAlias = 'Insclaim'
    TableName = 'insclaim'
    TableSQLAlias = 'insclaim'
    end
    object daField61: TdaField
    Alias = 'Closdat T'
    DisplayWidth = 5
    FieldAlias = 'Closdat T'
    FieldLength = 5
    FieldName = 'CLOSDAT_T'
    SQLFie
  • edited April 2004

    Thanks for posting the entire template. The Designer.DataSettings that were
    applied to the DataView when it was first created are stored as properties
    of the TdaSQL object. Search the template text for the entry 'object
    daSQL1: TdaSQL'

    object daSQL1: TdaSQL
    CollationType = ctASCII
    DatabaseName = 'winida'
    DatabaseType = dtAdvantage
    DataPipelineName = 'Insclaim'
    ....
    SQLType = sqSQL2

    You can open RBuilder\Source\daSQL.pas and check out the published
    properties of the TdaSQL class. Some of the properties have default values,
    which means the properties will not be written to the template unless the
    property value is different from the default value.




    --
    Nard Moseley
    Digital Metaphors
    http://www.digital-metaphors.com

    Best regards,

    Nard Moseley
    Digital Metaphors
    www.digital-metaphors.com
  • edited May 2004
    Hi nard,

    I have found that part now. I did the following to try and get it working :

    1.opened a report that was the old version and linked to "winida", saved it
    as report2.rtm
    2. Opened report2.rtm, went to data tab and checked the database name and
    saved it, it was "euDatabase".
    3. opened both templates in convertbinarytemplate program and compared the
    difference
    the only difference is the alias name : "winida" on report1, "euDatabase"
    on report2.,
    4.tetsing printing, same error could not open table "works".
    5. opened report2 in designer, deleted dataview, created new dataview with
    wizard, database name is "eudatabase"
    report works fine.
    6. Checked difference in convertbinary program and the is no difference.

    Any ideas ?

    Thanks

    Andy







  • edited May 2004

    There must be a difference somewhere. In your message you indicate that one
    has euDatabase and did not work and then other as eudatabase. Try making
    them the exact same and see whether that helps.

    --
    Nard Moseley
    Digital Metaphors Corporation
    www.digital-metaphors.com


    Best regards,

    Nard Moseley
    Digital Metaphors
    www.digital-metaphors.com
This discussion has been closed.