Ron Kidd
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.
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
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.