Link to home
Start Free TrialLog in
Avatar of Ron Kidd
Ron KiddFlag for Australia

asked on

Print Reports with .clr extention

Hello

I need to print some accounting system reports from an external Application.
These reports are saved in a .clr format and connect to a SQL database to get their data.

Would it be possible to run these without first opening and logging into the Accounting system?

Below is the File contents of a very simple report.

object ppReport1: TppReport
  AutoStop = False
  DataPipeline = daExonetDBQueryDataView1.DR_ACCGROUP2S
  NoDataBehaviors = [ndBlankReport]
  PassSetting = psTwoPass
  PrinterSetup.BinName = 'Default'
  PrinterSetup.DocumentName = 'IGCosting.CLF'
  PrinterSetup.Orientation = poLandscape
  PrinterSetup.PaperName = 'A4'
  PrinterSetup.PrinterName = 'Default'
  PrinterSetup.SaveDeviceSettings = False
  PrinterSetup.mmMarginBottom = 6350
  PrinterSetup.mmMarginLeft = 18521
  PrinterSetup.mmMarginRight = 6350
  PrinterSetup.mmMarginTop = 6350
  PrinterSetup.mmPaperHeight = 210080
  PrinterSetup.mmPaperWidth = 297128
  PrinterSetup.PaperSize = 9
  SaveAsTemplate = True
  Template.FileName = '\\dcserver\Exonet\Clarity\SimpleTestReport.clr'
  Template.Format = ftASCII
  Units = utScreenPixels
  AllowPrintToFile = True
  BeforePrint = ppReport1BeforePrint
  DeviceType = 'Screen'
  EmailSettings.ReportFormat = 'PDF'
  LanguageID = 'Default'
  OutlineSettings.CreateNode = True
  OutlineSettings.CreatePageNodes = True
  OutlineSettings.Enabled = False
  OutlineSettings.Visible = False
  PDFSettings.EmbedFontOptions = [efUseSubset]
  PDFSettings.EncryptSettings.AllowCopy = True
  PDFSettings.EncryptSettings.AllowInteract = True
  PDFSettings.EncryptSettings.AllowModify = True
  PDFSettings.EncryptSettings.AllowPrint = True
  PDFSettings.EncryptSettings.Enabled = False
  PDFSettings.FontEncoding = feAnsi
  PreviewFormSettings.WindowState = wsMaximized
  RTFSettings.DefaultFont.Charset = DEFAULT_CHARSET
  RTFSettings.DefaultFont.Color = clWindowText
  RTFSettings.DefaultFont.Height = -13
  RTFSettings.DefaultFont.Name = 'Arial'
  RTFSettings.DefaultFont.Style = []
  TextFileName = 'C:\Users\ronaldk\AppData\Local\Temp\IGCosting.'
  TextSearchSettings.DefaultString = '<FindText>'
  TextSearchSettings.Enabled = False
  Left = 49
  Top = 55
  Version = '12.03'
  mmColumnWidth = 0
  DataPipelineName = 'DR_ACCGROUP2S'
  object ppHeaderBand1: TppHeaderBand
    mmBottomOffset = 0
    mmHeight = 13229
    mmPrintPosition = 0
    object ppLabel1: TppLabel
      UserName = 'Label1'
      HyperlinkColor = clBlue
      Border.BorderPositions = []
      Border.Color = clBlack
      Border.Style = psSolid
      Border.Visible = False
      Caption = 'Header Text'
      Ellipsis = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = 'Arial'
      Font.Size = 14
      Font.Style = [fsBold]
      TextAlignment = taCentered
      Transparent = True
      mmHeight = 5842
      mmLeft = 0
      mmTop = 3175
      mmWidth = 27940
      BandType = 0
    end
  end
  object ppDetailBand1: TppDetailBand
    Background1.Brush.Style = bsClear
    Background1.Gradient.EndColor = clWhite
    Background1.Gradient.StartColor = clWhite
    Background1.Gradient.Style = gsNone
    Background2.Brush.Style = bsClear
    Background2.Gradient.EndColor = clWhite
    Background2.Gradient.StartColor = clWhite
    Background2.Gradient.Style = gsNone
    mmBottomOffset = 0
    mmHeight = 3704
    mmPrintPosition = 0
    object ppDBText1: TppDBText
      UserName = 'DBText1'
      HyperlinkColor = clBlue
      Border.BorderPositions = []
      Border.Color = clBlack
      Border.Style = psSolid
      Border.Visible = False
      DataField = 'ACCGROUP'
      DataPipeline = daExonetDBQueryDataView1.DR_ACCGROUP2S
      Ellipsis = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = 'Arial'
      Font.Size = 9
      Font.Style = []
      TextAlignment = taCentered
      Transparent = True
      DataPipelineName = 'DR_ACCGROUP2S'
      mmHeight = 3704
      mmLeft = 2117
      mmTop = 0
      mmWidth = 17198
      BandType = 4
    end
    object ppDBText2: TppDBText
      UserName = 'DBText2'
      HyperlinkColor = clBlue
      Border.BorderPositions = []
      Border.Color = clBlack
      Border.Style = psSolid
      Border.Visible = False
      DataField = 'GROUPNAME'
      DataPipeline = daExonetDBQueryDataView1.DR_ACCGROUP2S
      Ellipsis = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = 'Arial'
      Font.Size = 9
      Font.Style = []
      Transparent = True
      DataPipelineName = 'DR_ACCGROUP2S'
      mmHeight = 3598
      mmLeft = 27252
      mmTop = 0
      mmWidth = 78846
      BandType = 4
    end
  end
  object ppFooterBand1: TppFooterBand
    mmBottomOffset = 0
    mmHeight = 13229
    mmPrintPosition = 0
    object ppLabel2: TppLabel
      UserName = 'Label2'
      HyperlinkColor = clBlue
      Border.BorderPositions = []
      Border.Color = clBlack
      Border.Style = psSolid
      Border.Visible = False
      Caption = 'Footer Text'
      Ellipsis = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = 'Arial'
      Font.Size = 14
      Font.Style = [fsBold]
      TextAlignment = taCentered
      Transparent = True
      mmHeight = 5821
      mmLeft = 1588
      mmTop = 6085
      mmWidth = 26458
      BandType = 8
    end
  end
  object daDataModule1: TdaDataModule
    object daExonetDBQueryDataView1: TdaExonetDBQueryDataView
      UserName = 'Query_DR_ACCGROUP2S'
      Height = 131
      Left = 10
      NameColumnWidth = 105
      SizeColumnWidth = 35
      SortMode = 0
      Top = 10
      TypeColumnWidth = 52
      Width = 224
      AutoSearchTabOrder = 0
      object DR_ACCGROUP2S: TppChildExonetDBPipeline
        AutoCreateFields = False
        UserName = 'DR_ACCGROUP2S'
        object ppField1: TppField
          FieldAlias = 'ACCGROUP'
          FieldName = 'ACCGROUP'
          FieldLength = 0
          DataType = dtInteger
          DisplayWidth = 10
          Position = 0
          TableName = 'DR_ACCGROUP2S'
        end
        object ppField2: TppField
          FieldAlias = 'GROUPNAME'
          FieldName = 'GROUPNAME'
          FieldLength = 30
          DisplayWidth = 30
          Position = 1
          TableName = 'DR_ACCGROUP2S'
        end
      end
      object daSQL1: TdaSQL
        CollationType = ctASCII
        GuidCollationType = gcMSSQLServer
        DatabaseName = 'AppAlias'
        DatabaseType = dtMSSQLServer
        DataPipelineName = 'DR_ACCGROUP2S'
        IsCaseSensitive = True
        LinkColor = clMaroon
        LinkType = ltMagicSQL
        MaxSQLFieldAliasLength = 25
        SQLText.Strings = (
          'SELECT DR_ACCGROUP2S.ACCGROUP, '
          '       DR_ACCGROUP2S.GROUPNAME'
          'FROM DR_ACCGROUP2S DR_ACCGROUP2S'
          'WHERE ('#39'c'#39' <> '#39'c'#39' ) AND ('
          '      ( DR_ACCGROUP2S.ACCGROUP < 5 ))')
        SQLType = sqSQL2
        object daCriteria1: TdaCriteria
          ChildType = 7
          Level = 0
          Operator = dacoLessThan
          Value = '5'
          object TdaField
            Alias = 'ACCGROUP'
            DataType = dtInteger
            DisplayWidth = 10
            FieldAlias = 'ACCGROUP'
            FieldLength = 0
            FieldName = 'ACCGROUP'
            SQLFieldName = 'ACCGROUP'
            TableAlias = 'DR_ACCGROUP2S'
            TableName = 'DR_ACCGROUP2S'
            TableSQLAlias = 'DR_ACCGROUP2S'
          end
          object TdaNumericValue
            Value = 5.000000000000000000
          end
        end
        object daField1: TdaField
          Alias = 'ACCGROUP'
          DataType = dtInteger
          DisplayWidth = 10
          FieldAlias = 'ACCGROUP'
          FieldLength = 0
          FieldName = 'ACCGROUP'
          SQLFieldName = 'ACCGROUP'
          TableAlias = 'DR_ACCGROUP2S'
          TableName = 'DR_ACCGROUP2S'
          TableSQLAlias = 'DR_ACCGROUP2S'
        end
        object daField2: TdaField
          Alias = 'GROUPNAME'
          DisplayWidth = 30
          FieldAlias = 'GROUPNAME'
          FieldLength = 30
          FieldName = 'GROUPNAME'
          SQLFieldName = 'GROUPNAME'
          TableAlias = 'DR_ACCGROUP2S'
          TableName = 'DR_ACCGROUP2S'
          TableSQLAlias = 'DR_ACCGROUP2S'
        end
        object daTable1: TdaTable
          ChildType = 5
          Alias = 'DR_ACCGROUP2S'
          JoinType = dajtNone
          SQLAlias = 'DR_ACCGROUP2S'
          TableAlias = 'DR_ACCGROUP2S'
          TableName = 'DR_ACCGROUP2S'
        end
      end
    end
  end
  object raCodeModule1: TraCodeModule
    ProgramStream = {
      01060F5472614576656E7448616E646C65720B50726F6772616D4E616D650611
      5265706F72744265666F72655072696E740B50726F6772616D54797065070B74
      7450726F63656475726506536F757263650C5C01000070726F63656475726520
      5265706F72744265666F72655072696E743B0D0A7661720D0A2073716C737472
      696E673A20737472696E673B0D0A2073746166666E6F3A20737472696E673B0D
      0A626567696E0D0A20207B73716C737472696E673A3D20274558454355544520
      5B64626F5D2E5B585F535550504C595F534F4C5F46524F4D5F494E574152445F
      474F4F44535D203536362C2036273B7D0D0A20207B73746166666E6F203A3D20
      496E74546F537472284C6F67676564496E53746166664E6F29293B0D0A202073
      716C737472696E673A3D202745584543555445205B64626F5D2E5B585F535550
      504C595F534F4C5F46524F4D5F494E574152445F474F4F44535D2027202B2049
      6E74546F537472284D61737465725B275345514E4F275D29202B2027202C2027
      202B2073746166666E6F202B27273B0D0A20204578656375746553514C287371
      6C737472696E67293B7D0D0A656E643B0D0A0D436F6D706F6E656E744E616D65
      06065265706F7274094576656E744E616D65060B4265666F72655072696E7407
      4576656E74494402010000}
  end
  object ppParameterList1: TppParameterList
  end
end

Open in new window

ASKER CERTIFIED SOLUTION
Avatar of Mike McCracken
Mike McCracken

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
SOLUTION
Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial