'

' @@QUERY@@

'

Set RQ = CreateObject ("ComosRprtQuery.RprtQuery")

'

' Parameter Begin

'

RQ.QueryName = "ZB_A42_X10"

RQ.UseProjectAsReportObject = FALSE

RQ.FontName = "Arial"

RQ.FontHeight = 10

RQ.LineWidth = 0.35

RQ.RowHeight = 5

RQ.LayoutType = 0

RQ.VisibleLevels = 0

RQ.Header = FALSE

RQ.DisplaySumRow = FALSE

RQ.FitAllTexts = FALSE

RQ.ClipAllTexts = FALSE

RQ.WrapAllTexts = TRUE

RQ.RowFilenames(0) = "CPRJ:Overlays\WO00012\Reports\A30\Z\ZB\ZB_A42\ZB_A42_A10.CRp"

RQ.RowFilenames(1) = "CPRJ:Overlays\WO00012\Reports\A30\Z\ZB\ZB_A42\ZB_A42_A20.CRp"

RQ.RowFilenames(2) = "CPRJ:Overlays\WO00012\Reports\A30\Z\ZB\ZB_A42\ZB_A42_A30.CRp"

RQ.RowFilenames(3) = "CPRJ:Overlays\WO00012\Reports\A30\Z\ZB\ZB_A42\ZB_A42_A40.CRp"

RQ.RowFilenames(4) = "CPRJ:Overlays\WO00012\Reports\A30\Z\ZB\ZB_A42\ZB_A42_A50.CRp"

RQ.RowFilenames(5) = ""

'

' Parameter End

'

Sub OnCreate ()

Set RQ.ListItem = ReportDocument.Item(Name)

RQ.OnCreate Nothing

End Sub