{8405299E-D0C1-4B2B-BAC4-D037ACAE5936} object TppReport AutoStop = False DataPipeline = Main NoDataBehaviors = [ndBlankReport] PassSetting = psTwoPass PrinterSetup.BinName = 'Default' PrinterSetup.DocumentName = 'SQL Account: 01Stock Month End Balance - Level 4' PrinterSetup.Duplex = dpNone PrinterSetup.PaperName = 'Letter' PrinterSetup.PrinterName = 'Default' PrinterSetup.SaveDeviceSettings = False PrinterSetup.mmMarginBottom = 6350 PrinterSetup.mmMarginLeft = 10160 PrinterSetup.mmMarginRight = 6350 PrinterSetup.mmMarginTop = 6350 PrinterSetup.mmPaperHeight = 279401 PrinterSetup.mmPaperWidth = 215900 PrinterSetup.PaperSize = 1 Template.DatabaseSettings.Name = 'Stock-MonthEnd-Balance-Multi-UOM-3 (3)' Template.DatabaseSettings.NameField = 'Name' Template.DatabaseSettings.TemplateField = 'Template' Template.SaveTo = stDatabase Template.Format = ftASCII ArchiveFileName = '($MyDocuments)\ReportArchive.raf' DeviceType = 'Screen' DefaultFileDeviceType = 'PDF' EmailSettings.ReportFormat = 'PDF' LanguageID = 'Default' OpenFile = False OutlineSettings.CreateNode = True OutlineSettings.CreatePageNodes = True OutlineSettings.Enabled = False OutlineSettings.Visible = False ThumbnailSettings.Enabled = True ThumbnailSettings.Visible = True ThumbnailSettings.DeadSpace = 30 ThumbnailSettings.PageHighlight.Width = 3 ThumbnailSettings.ThumbnailSize = tsSmall PDFSettings.EmbedFontOptions = [efUseSubset] PDFSettings.EncryptSettings.AllowCopy = True PDFSettings.EncryptSettings.AllowInteract = True PDFSettings.EncryptSettings.AllowModify = True PDFSettings.EncryptSettings.AllowPrint = True PDFSettings.EncryptSettings.AllowExtract = True PDFSettings.EncryptSettings.AllowAssemble = True PDFSettings.EncryptSettings.AllowQualityPrint = True PDFSettings.EncryptSettings.Enabled = False PDFSettings.EncryptSettings.KeyLength = kl40Bit PDFSettings.EncryptSettings.EncryptionType = etRC4 PDFSettings.FontEncoding = feUnicode PDFSettings.ImageCompressionLevel = 25 PDFSettings.PDFAFormat = pafNone PreviewFormSettings.PageBorder.mmPadding = 0 PreviewFormSettings.WindowState = wsMaximized PreviewFormSettings.ZoomSetting = zsPageWidth RTFSettings.DefaultFont.Charset = DEFAULT_CHARSET RTFSettings.DefaultFont.Color = clWindowText RTFSettings.DefaultFont.Height = -13 RTFSettings.DefaultFont.Name = 'Arial' RTFSettings.DefaultFont.Style = [] TextFileName = '($MyDocuments)\Report.pdf' TextSearchSettings.DefaultString = '' TextSearchSettings.Enabled = True XLSSettings.AppName = 'ReportBuilder' XLSSettings.Author = 'ReportBuilder' XLSSettings.ExportComponents = [ecText, ecLine, ecImage, ecRichText, ecBarCode, ecOther] XLSSettings.Subject = 'Report' XLSSettings.Title = 'Report' XLSSettings.WorksheetName = 'Report' Version = '20.03' mmColumnWidth = 196850 DataPipelineName = 'Main' object ppTitleBand2: TppTitleBand Background.Brush.Style = bsClear Border.mmPadding = 0 mmBottomOffset = 0 mmHeight = 51594 mmPrintPosition = 0 object ppShape1: TppShape DesignLayer = ppDesignLayer1 UserName = 'Header1' Brush.Color = clLime ParentWidth = True mmHeight = 5292 mmLeft = 0 mmTop = 46302 mmWidth = 199390 BandType = 1 LayerName = Foreground end object ppLabel9: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label9' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Location' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3429 mmLeft = 794 mmTop = 3175 mmWidth = 10372 BandType = 1 LayerName = Foreground end object ppDBText9: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText9' AutoSize = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'Location' DataPipeline = Parameter Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Parameter' mmHeight = 3429 mmLeft = 29898 mmTop = 3175 mmWidth = 2963 BandType = 1 LayerName = Foreground end object ppLabel10: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label10' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Category' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3387 mmLeft = 794 mmTop = 6350 mmWidth = 11289 BandType = 1 LayerName = Foreground end object ppDBText10: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText10' AutoSize = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'StockGroup' DataPipeline = Parameter Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Parameter' mmHeight = 3429 mmLeft = 29898 mmTop = 6350 mmWidth = 2963 BandType = 1 LayerName = Foreground end object ppLabel11: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label11' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Stock Group' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3387 mmLeft = 794 mmTop = 9525 mmWidth = 15099 BandType = 1 LayerName = Foreground end object ppDBText11: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText11' AutoSize = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'StockGroup' DataPipeline = Parameter Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Parameter' mmHeight = 3429 mmLeft = 29898 mmTop = 9525 mmWidth = 2963 BandType = 1 LayerName = Foreground end object ppLabel12: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label12' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Print Active' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3440 mmLeft = 794 mmTop = 15875 mmWidth = 14023 BandType = 1 LayerName = Foreground end object ppDBText12: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBTxtActive' AutoSize = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'PrintActive' DataPipeline = Parameter Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Parameter' mmHeight = 3429 mmLeft = 29898 mmTop = 15875 mmWidth = 5715 BandType = 1 LayerName = Foreground end object ppLabel13: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label13' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Print InActive' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3440 mmLeft = 794 mmTop = 19050 mmWidth = 16669 BandType = 1 LayerName = Foreground end object ppDBText13: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBTxtInActive' AutoSize = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'PrintInActive' DataPipeline = Parameter Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Parameter' mmHeight = 3429 mmLeft = 29898 mmTop = 19050 mmWidth = 5715 BandType = 1 LayerName = Foreground end object ppLabel14: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label14' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Print Stk Ctrl' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3440 mmLeft = 794 mmTop = 22225 mmWidth = 15610 BandType = 1 LayerName = Foreground end object ppDBText14: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBTxtStkCtrl' AutoSize = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'PrintStockControl' DataPipeline = Parameter Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Parameter' mmHeight = 3429 mmLeft = 29898 mmTop = 22225 mmWidth = 5715 BandType = 1 LayerName = Foreground end object ppLabel15: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label15' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Print Non Stk Ctrl' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3440 mmLeft = 794 mmTop = 25400 mmWidth = 21431 BandType = 1 LayerName = Foreground end object ppDBText15: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBTxtNonStkCtrl' AutoSize = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'PrintNonStockControl' DataPipeline = Parameter Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Parameter' mmHeight = 3429 mmLeft = 29898 mmTop = 25400 mmWidth = 6350 BandType = 1 LayerName = Foreground end object ppLabel16: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label16' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Merge Same Cost' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3440 mmLeft = 794 mmTop = 28575 mmWidth = 21960 BandType = 1 LayerName = Foreground end object ppDBText16: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBTxtMerFIFO' AutoSize = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'MergeSameCost' DataPipeline = Parameter Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Parameter' mmHeight = 3429 mmLeft = 29898 mmTop = 28575 mmWidth = 5715 BandType = 1 LayerName = Foreground end object ppLabel19: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label19' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = ' : ' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3440 mmLeft = 24342 mmTop = 3175 mmWidth = 2910 BandType = 1 LayerName = Foreground end object ppLabel20: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label20' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = ' : ' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3440 mmLeft = 24342 mmTop = 6350 mmWidth = 2910 BandType = 1 LayerName = Foreground end object ppLabel21: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label21' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = ' : ' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3440 mmLeft = 24342 mmTop = 19050 mmWidth = 2910 BandType = 1 LayerName = Foreground end object ppLabel22: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label22' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = ' : ' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3440 mmLeft = 24342 mmTop = 22225 mmWidth = 2910 BandType = 1 LayerName = Foreground end object ppLabel23: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label23' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = ' : ' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3440 mmLeft = 24342 mmTop = 25400 mmWidth = 2910 BandType = 1 LayerName = Foreground end object ppLabel24: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label24' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = ' : ' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3440 mmLeft = 24342 mmTop = 28575 mmWidth = 2910 BandType = 1 LayerName = Foreground end object ppLabel25: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label201' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = ' : ' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3440 mmLeft = 24342 mmTop = 9525 mmWidth = 2910 BandType = 1 LayerName = Foreground end object ppLabel26: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label202' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = ' : ' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3440 mmLeft = 24342 mmTop = 15875 mmWidth = 2910 BandType = 1 LayerName = Foreground end object ppLabel28: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label26' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Month End Stock Balance' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 14 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taCentered Transparent = True mmHeight = 6085 mmLeft = 66940 mmTop = 3969 mmWidth = 62971 BandType = 1 LayerName = Foreground end object ppSystemVariable1: TppSystemVariable DesignLayer = ppDesignLayer1 UserName = 'SystemVariable1' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 VarType = vtPrintDateTime DisplayFormat = 'dd/mm/yy h:nn AM/PM' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] TextAlignment = taRightJustified Transparent = True mmHeight = 3440 mmLeft = 170657 mmTop = 3175 mmWidth = 22754 BandType = 1 LayerName = Foreground end object ppSystemVariable2: TppSystemVariable DesignLayer = ppDesignLayer1 UserName = 'SystemVariable2' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 VarType = vtPageSetDesc Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] TextAlignment = taRightJustified Transparent = True mmHeight = 3810 mmLeft = 177494 mmTop = 40746 mmWidth = 15917 BandType = 1 LayerName = Foreground end object ppDBText18: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText18' AutoSize = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'Code' DataPipeline = User Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] ParentDataPipeline = False TextAlignment = taRightJustified Transparent = True DataPipelineName = 'User' mmHeight = 3429 mmLeft = 184648 mmTop = 6350 mmWidth = 8763 BandType = 1 LayerName = Foreground end object ppLabel31: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label31' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Code' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3429 mmLeft = 11113 mmTop = 47361 mmWidth = 6265 BandType = 1 LayerName = Foreground end object ppLabel33: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label33' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Total Cost' Font.Charset = DEFAULT_CHARSET Font.Color = 7077888 Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3440 mmLeft = 179123 mmTop = 47361 mmWidth = 14288 BandType = 1 LayerName = Foreground end object ppLabel35: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label35' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Qty' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3440 mmLeft = 143669 mmTop = 47361 mmWidth = 4233 BandType = 1 LayerName = Foreground end object ppLabel36: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label36' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'at Cost' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taRightJustified Transparent = True mmHeight = 3429 mmLeft = 159544 mmTop = 47361 mmWidth = 8721 BandType = 1 LayerName = Foreground end object ppLabel37: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label37' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Description' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3440 mmLeft = 49213 mmTop = 47361 mmWidth = 13758 BandType = 1 LayerName = Foreground end object ppLabel6: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label6' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = '<---------------Cost Breakdown--------------->' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 7 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 2963 mmLeft = 126207 mmTop = 42863 mmWidth = 47752 BandType = 1 LayerName = Foreground end object ppLine1: TppLine DesignLayer = ppDesignLayer1 UserName = 'Line1' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Position = lpRight Weight = 0.750000000000000000 mmHeight = 5027 mmLeft = 171450 mmTop = 46302 mmWidth = 1323 BandType = 1 LayerName = Foreground end object ppLine3: TppLine DesignLayer = ppDesignLayer1 UserName = 'Line3' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Position = lpRight Weight = 0.750000000000000000 mmHeight = 5027 mmLeft = 124884 mmTop = 46302 mmWidth = 1323 BandType = 1 LayerName = Foreground end object ppLabel42: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label42' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Group By' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3387 mmLeft = 794 mmTop = 31750 mmWidth = 11430 BandType = 1 LayerName = Foreground end object ppDBText17: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBTxtMerFIFO1' AutoSize = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'GroupBy' DataPipeline = Parameter Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Parameter' mmHeight = 3429 mmLeft = 29898 mmTop = 31750 mmWidth = 38820 BandType = 1 LayerName = Foreground end object ppLabel43: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label43' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = ' : ' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3440 mmLeft = 24342 mmTop = 31750 mmWidth = 2910 BandType = 1 LayerName = Foreground end object ppLabel44: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label44' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Sort By' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3387 mmLeft = 794 mmTop = 34925 mmWidth = 9031 BandType = 1 LayerName = Foreground end object ppDBText20: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText20' AutoSize = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'SortBy' DataPipeline = Parameter Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Parameter' mmHeight = 3429 mmLeft = 29898 mmTop = 34925 mmWidth = 50927 BandType = 1 LayerName = Foreground end object ppLabel45: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label45' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = ' : ' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3440 mmLeft = 24342 mmTop = 34925 mmWidth = 2910 BandType = 1 LayerName = Foreground end object ppLabel1: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label1' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Item Code' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3387 mmLeft = 794 mmTop = 12700 mmWidth = 13123 BandType = 1 LayerName = Foreground end object ppDBText1: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText1' AutoSize = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'Item' DataPipeline = Parameter Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Parameter' mmHeight = 3387 mmLeft = 29898 mmTop = 12700 mmWidth = 5856 BandType = 1 LayerName = Foreground end object ppLabel2: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label2' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = ' : ' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3440 mmLeft = 24342 mmTop = 12700 mmWidth = 2910 BandType = 1 LayerName = Foreground end object ppLabel29: TppLabel DesignLayer = ppDesignLayer1 UserName = 'lbTitleDateT' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'lbTitleDateT' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 12 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taCentered Transparent = True mmHeight = 5027 mmLeft = 87048 mmTop = 9790 mmWidth = 22490 BandType = 1 LayerName = Foreground end object ppLabel46: TppLabel DesignLayer = ppDesignLayer1 UserName = 'lbCoNameT' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'lbCoNameT' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3704 mmLeft = 794 mmTop = 40746 mmWidth = 16140 BandType = 1 LayerName = Foreground end object ppLabel32: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label32' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Total Qty' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3440 mmLeft = 101071 mmTop = 47361 mmWidth = 11377 BandType = 1 LayerName = Foreground end object ppLabel4: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label29' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'UOM' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3440 mmLeft = 113506 mmTop = 47361 mmWidth = 6085 BandType = 1 LayerName = Foreground end end object ppHeaderBand2: TppHeaderBand Background.Brush.Style = bsClear Border.mmPadding = 0 PrintOnFirstPage = False mmBottomOffset = 0 mmHeight = 31221 mmPrintPosition = 0 object ppShape2: TppShape DesignLayer = ppDesignLayer1 UserName = 'Header2' Brush.Color = clLime ParentWidth = True mmHeight = 5292 mmLeft = 0 mmTop = 25929 mmWidth = 199390 BandType = 0 LayerName = Foreground end object ppLabel3: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label3' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Code' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3429 mmLeft = 11113 mmTop = 26988 mmWidth = 6265 BandType = 0 LayerName = Foreground end object ppLabel5: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label5' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Total Cost' Font.Charset = DEFAULT_CHARSET Font.Color = 7077888 Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3440 mmLeft = 179123 mmTop = 26988 mmWidth = 14288 BandType = 0 LayerName = Foreground end object ppLabel7: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label7' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Qty' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3440 mmLeft = 142875 mmTop = 26988 mmWidth = 4233 BandType = 0 LayerName = Foreground end object ppLabel8: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label8' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'at Cost' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taRightJustified Transparent = True mmHeight = 3429 mmLeft = 158750 mmTop = 26723 mmWidth = 8721 BandType = 0 LayerName = Foreground end object ppLabel27: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label25' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Description' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3440 mmLeft = 49213 mmTop = 26988 mmWidth = 13758 BandType = 0 LayerName = Foreground end object ppSystemVariable3: TppSystemVariable DesignLayer = ppDesignLayer1 UserName = 'SystemVariable3' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 VarType = vtPageSetDesc Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] TextAlignment = taRightJustified Transparent = True mmHeight = 3810 mmLeft = 177494 mmTop = 19844 mmWidth = 15917 BandType = 0 LayerName = Foreground end object ppSystemVariable4: TppSystemVariable DesignLayer = ppDesignLayer1 UserName = 'SystemVariable4' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 VarType = vtPrintDateTime DisplayFormat = 'dd/mm/yy h:nn AM/PM' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] TextAlignment = taRightJustified Transparent = True mmHeight = 3440 mmLeft = 170657 mmTop = 3175 mmWidth = 22754 BandType = 0 LayerName = Foreground end object ppDBText19: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText19' AutoSize = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'Code' DataPipeline = User Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] ParentDataPipeline = False TextAlignment = taRightJustified Transparent = True DataPipelineName = 'User' mmHeight = 3429 mmLeft = 184648 mmTop = 6350 mmWidth = 8763 BandType = 0 LayerName = Foreground end object ppLabel38: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label38' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Month End Stock Balance' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 14 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taCentered Transparent = True mmHeight = 6085 mmLeft = 66940 mmTop = 4498 mmWidth = 62971 BandType = 0 LayerName = Foreground end object ppLine2: TppLine DesignLayer = ppDesignLayer1 UserName = 'Line2' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Position = lpRight Weight = 0.750000000000000000 mmHeight = 5027 mmLeft = 171450 mmTop = 25929 mmWidth = 1323 BandType = 0 LayerName = Foreground end object ppLabel39: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label39' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = '<---------------Cost Breakdown--------------->' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 7 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 2963 mmLeft = 126207 mmTop = 22490 mmWidth = 47752 BandType = 0 LayerName = Foreground end object ppLine4: TppLine DesignLayer = ppDesignLayer1 UserName = 'Line4' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Position = lpRight Weight = 0.750000000000000000 mmHeight = 5027 mmLeft = 124884 mmTop = 25929 mmWidth = 1323 BandType = 0 LayerName = Foreground end object ppLabel30: TppLabel DesignLayer = ppDesignLayer1 UserName = 'lbTitleDateH' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'lbTitleDateH' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 12 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taCentered Transparent = True mmHeight = 5027 mmLeft = 86784 mmTop = 10319 mmWidth = 23019 BandType = 0 LayerName = Foreground end object ppLabel47: TppLabel DesignLayer = ppDesignLayer1 UserName = 'lbCoNameH' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'lbCoNameH' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3704 mmLeft = 794 mmTop = 19844 mmWidth = 16404 BandType = 0 LayerName = Foreground end object ppLabel51: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label4' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Total Qty' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3440 mmLeft = 101071 mmTop = 26988 mmWidth = 11377 BandType = 0 LayerName = Foreground end object ppLabel52: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label28' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'UOM' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3440 mmLeft = 113506 mmTop = 26988 mmWidth = 6085 BandType = 0 LayerName = Foreground end end object ppDetailBand2: TppDetailBand Background1.Brush.Style = bsClear Background2.Brush.Style = bsClear Border.mmPadding = 0 PrintHeight = phDynamic mmBottomOffset = 0 mmHeight = 26194 mmPrintPosition = 0 object ppRegion1: TppRegion DesignLayer = ppDesignLayer1 UserName = 'Region1' KeepTogether = True Caption = 'Region1' ParentWidth = True Pen.Style = psClear Stretch = True mmHeight = 17198 mmLeft = 0 mmTop = 706 mmWidth = 199390 BandType = 4 LayerName = Foreground mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 object ppDBMemo1: TppDBMemo DesignLayer = ppDesignLayer1 UserName = 'edDesc4' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 CharWrap = False DataField = 'Description' DataPipeline = Item Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] ParentDataPipeline = False RemoveEmptyLines = False Stretch = True Transparent = True DataPipelineName = 'Item' mmHeight = 3175 mmLeft = 46567 mmTop = 706 mmWidth = 42598 BandType = 4 LayerName = Foreground mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 mmLeading = 0 end object ppSubReport1: TppSubReport DesignLayer = ppDesignLayer1 UserName = 'SubReport1' ExpandAll = False NewPrintJob = False OutlineSettings.CreateNode = True ParentWidth = False TraverseAllData = False DataPipelineName = 'DocDetail' mmHeight = 5027 mmLeft = 125942 mmTop = 706 mmWidth = 42863 BandType = 4 LayerName = Foreground mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 object ppChildReport1: TppChildReport AutoStop = False DataPipeline = DocDetail PrinterSetup.BinName = 'Default' PrinterSetup.DocumentName = 'SQL Account: 01Stock Month End Balance - Level 4' PrinterSetup.Duplex = dpNone PrinterSetup.PaperName = 'Letter' PrinterSetup.PrinterName = 'Default' PrinterSetup.SaveDeviceSettings = False PrinterSetup.mmMarginBottom = 6350 PrinterSetup.mmMarginLeft = 10160 PrinterSetup.mmMarginRight = 6350 PrinterSetup.mmMarginTop = 6350 PrinterSetup.mmPaperHeight = 279401 PrinterSetup.mmPaperWidth = 215900 PrinterSetup.PaperSize = 1 Template.DatabaseSettings.NameField = 'Name' Template.DatabaseSettings.TemplateField = 'Template' Template.SaveTo = stDatabase Template.Format = ftASCII Version = '20.03' mmColumnWidth = 0 DataPipelineName = 'DocDetail' object ppDetailBand3: TppDetailBand Background1.Brush.Style = bsClear Background2.Brush.Style = bsClear Border.mmPadding = 0 mmBottomOffset = 0 mmHeight = 3440 mmPrintPosition = 0 object ppDBText7: TppDBText DesignLayer = ppDesignLayer2 UserName = 'DBText7' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'Qty' DataPipeline = DocDetail DisplayFormat = '#,0.00;-#,0.00' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] TextAlignment = taRightJustified Transparent = True DataPipelineName = 'DocDetail' mmHeight = 3429 mmLeft = 3969 mmTop = 0 mmWidth = 19050 BandType = 4 LayerName = Foreground1 end object ppDBText8: TppDBText DesignLayer = ppDesignLayer2 UserName = 'DBText8' AutoSize = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'Cost' DataPipeline = DocDetail DisplayFormat = '#,0.0000;-#,0.0000' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] TextAlignment = taRightJustified Transparent = True DataPipelineName = 'DocDetail' mmHeight = 3440 mmLeft = 33907 mmTop = 0 mmWidth = 5821 BandType = 4 LayerName = Foreground1 end object ppVariable6: TppVariable DesignLayer = ppDesignLayer2 UserName = 'Variable1' Border.mmPadding = 0 BlankWhenZero = False CalcOrder = 0 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] Transparent = True mmHeight = 3439 mmLeft = 39358 mmTop = -145 mmWidth = 11642 BandType = 4 LayerName = Foreground1 end end object raCodeModule1: TraCodeModule object raProgramInfo3: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'Variable1OnCalc' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure Variable1OnCalc(var Value: Variant);'#13#10'begin'#13#10#13#10' Value' + ' := '#39' / '#39' + UOM['#39'UOM'#39'] ;'#13#10#13#10'end;'#13#10 raProgram.ComponentName = 'Variable1' raProgram.EventName = 'OnCalc' raProgram.EventID = 33 raProgram.CaretPos = ( 5 6) end end object ppDesignLayers2: TppDesignLayers object ppDesignLayer2: TppDesignLayer UserName = 'Foreground1' LayerType = ltBanded Index = 0 end end end end object ppDBText5: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText5' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'UTDCost' DataPipeline = Main Font.Charset = DEFAULT_CHARSET Font.Color = 7077888 Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] TextAlignment = taRightJustified Transparent = True DataPipelineName = 'Main' mmHeight = 3440 mmLeft = 170657 mmTop = 475 mmWidth = 22754 BandType = 4 LayerName = Foreground end object ppDBMemo2: TppDBMemo DesignLayer = ppDesignLayer1 UserName = 'edCode4' Border.mmPadding = 0 CharWrap = False DataPipeline = Main Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] RemoveEmptyLines = False Stretch = True Transparent = True DataPipelineName = 'Main' mmHeight = 3175 mmLeft = 8202 mmTop = 706 mmWidth = 37835 BandType = 4 LayerName = Foreground mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 mmLeading = 0 end object ppVariable2: TppVariable DesignLayer = ppDesignLayer1 UserName = 'VarUOM1' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 BlankWhenZero = False CalcOrder = 0 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] Transparent = True mmHeight = 3440 mmLeft = 112448 mmTop = 5469 mmWidth = 11906 BandType = 4 LayerName = Foreground end object ppVariable3: TppVariable DesignLayer = ppDesignLayer1 UserName = 'VarUOM2' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 BlankWhenZero = False CalcOrder = 1 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] Transparent = True mmHeight = 3440 mmLeft = 112448 mmTop = 9173 mmWidth = 11906 BandType = 4 LayerName = Foreground end object ppVariable4: TppVariable DesignLayer = ppDesignLayer1 UserName = 'VarUOM3' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 BlankWhenZero = False CalcOrder = 2 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] Transparent = True mmHeight = 3440 mmLeft = 112448 mmTop = 12877 mmWidth = 11906 BandType = 4 LayerName = Foreground end object ppVariable5: TppVariable DesignLayer = ppDesignLayer1 UserName = 'VarQty3' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 BlankWhenZero = False CalcOrder = 3 DataType = dtDouble Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] TextAlignment = taRightJustified Transparent = True mmHeight = 3440 mmLeft = 101336 mmTop = 12877 mmWidth = 10054 BandType = 4 LayerName = Foreground end object ppVariable7: TppVariable DesignLayer = ppDesignLayer1 UserName = 'VarQty2' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 BlankWhenZero = False CalcOrder = 4 DataType = dtDouble DisplayFormat = '#,0;-#,0' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] TextAlignment = taRightJustified Transparent = True mmHeight = 3440 mmLeft = 101336 mmTop = 9173 mmWidth = 10054 BandType = 4 LayerName = Foreground end object ppVariable1: TppVariable DesignLayer = ppDesignLayer1 UserName = 'VarQty1' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 BlankWhenZero = False CalcOrder = 5 DataType = dtDouble DisplayFormat = '#,0;-#,0' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] TextAlignment = taRightJustified Transparent = True Visible = False mmHeight = 3175 mmLeft = 83961 mmTop = 3175 mmWidth = 9525 BandType = 4 LayerName = Foreground end object ppLabel53: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label30' Border.mmPadding = 0 Caption = 'Multi UOM' Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [fsUnderline] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3440 mmLeft = 105569 mmTop = 706 mmWidth = 12700 BandType = 4 LayerName = Foreground end object ppLabel54: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label34' Border.mmPadding = 0 Caption = 'Label34' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True Visible = False mmHeight = 2469 mmLeft = 85549 mmTop = 6174 mmWidth = 7761 BandType = 4 LayerName = Foreground end object ppLabel55: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label41' Border.mmPadding = 0 Caption = 'Label41' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True Visible = False mmHeight = 3387 mmLeft = 85549 mmTop = 9102 mmWidth = 8643 BandType = 4 LayerName = Foreground end object ppDBText4: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText2' Border.mmPadding = 0 DataField = 'UTDQty' DataPipeline = Main Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Palatino Linotype' Font.Size = 8 Font.Style = [] TextAlignment = taRightJustified Transparent = True DataPipelineName = 'Main' mmHeight = 3528 mmLeft = 98072 mmTop = 5469 mmWidth = 12347 BandType = 4 LayerName = Foreground end end object ppSubReport2: TppSubReport DesignLayer = ppDesignLayer1 UserName = 'SubReport2' ExpandAll = False NewPrintJob = False OutlineSettings.CreateNode = True ShiftRelativeTo = ppRegion1 TraverseAllData = False DataPipelineName = 'SerialNumber' mmHeight = 5027 mmLeft = 0 mmTop = 21167 mmWidth = 199390 BandType = 4 LayerName = Foreground mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 object ppChildReport2: TppChildReport AutoStop = False DataPipeline = SerialNumber PrinterSetup.BinName = 'Default' PrinterSetup.DocumentName = 'SQL Account: 01Stock Month End Balance - Level 4' PrinterSetup.Duplex = dpNone PrinterSetup.PaperName = 'Letter' PrinterSetup.PrinterName = 'Default' PrinterSetup.SaveDeviceSettings = False PrinterSetup.mmMarginBottom = 6350 PrinterSetup.mmMarginLeft = 10160 PrinterSetup.mmMarginRight = 6350 PrinterSetup.mmMarginTop = 6350 PrinterSetup.mmPaperHeight = 279401 PrinterSetup.mmPaperWidth = 215900 PrinterSetup.PaperSize = 1 Template.DatabaseSettings.NameField = 'Name' Template.DatabaseSettings.TemplateField = 'Template' Template.SaveTo = stDatabase Template.Format = ftASCII Version = '20.03' mmColumnWidth = 0 DataPipelineName = 'SerialNumber' object ppDetailBand1: TppDetailBand Background1.Brush.Style = bsClear Background2.Brush.Style = bsClear Border.mmPadding = 0 mmBottomOffset = 0 mmHeight = 0 mmPrintPosition = 0 end object ppSummaryBand3: TppSummaryBand Background.Brush.Style = bsClear Border.mmPadding = 0 PrintHeight = phDynamic mmBottomOffset = 0 mmHeight = 5027 mmPrintPosition = 0 object ppVariable8: TppVariable DesignLayer = ppDesignLayer3 UserName = 'vSerialNo' HyperlinkEnabled = False Border.mmPadding = 0 BlankWhenZero = False CalcOrder = 0 Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] Transparent = True Visible = False mmHeight = 3440 mmLeft = 0 mmTop = 529 mmWidth = 13229 BandType = 7 LayerName = Foreground2 end object ppMemo1: TppMemo DesignLayer = ppDesignLayer3 UserName = 'Memo1' Border.mmPadding = 0 Caption = 'Memo1' CharWrap = False Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] RemoveEmptyLines = False Stretch = True Transparent = True mmHeight = 5027 mmLeft = 6615 mmTop = 0 mmWidth = 123561 BandType = 7 LayerName = Foreground2 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 mmLeading = 0 end end object raCodeModule3: TraCodeModule object raProgramInfo4: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'DetailBeforeGenerate' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure DetailBeforeGenerate;'#13#10'begin'#13#10' if Detail.Count = 1 the' + 'n'#13#10' vSerialNo.Value := SerialNumber.GetFieldValue('#39'SerialNumbe' + 'r'#39') else'#13#10' vSerialNo.Value := vSerialNo.Value + '#39', '#39' + Serial' + 'Number.GetFieldValue('#39'SerialNumber'#39');'#13#10' Memo1.Lines.Text := '#39'S' + 'erial No:- '#39' + vSerialNo.Value;'#13#10'end;'#13#10 raProgram.ComponentName = 'Detail' raProgram.EventName = 'BeforeGenerate' raProgram.EventID = 26 end end object ppDesignLayers3: TppDesignLayers object ppDesignLayer3: TppDesignLayer UserName = 'Foreground2' LayerType = ltBanded Index = 0 end end end end end object ppFooterBand2: TppFooterBand Background.Brush.Style = bsClear Border.mmPadding = 0 mmBottomOffset = 0 mmHeight = 6350 mmPrintPosition = 0 end object ppSummaryBand1: TppSummaryBand Background.Brush.Style = bsClear Border.mmPadding = 0 PrintHeight = phDynamic mmBottomOffset = 0 mmHeight = 8996 mmPrintPosition = 0 object ppLine5: TppLine DesignLayer = ppDesignLayer1 UserName = 'Line5' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Pen.Width = 2 ParentWidth = True Visible = False Weight = 1.500000000000000000 mmHeight = 1588 mmLeft = 0 mmTop = 1058 mmWidth = 199390 BandType = 7 LayerName = Foreground end object ppLabel17: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label17' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'TOTAL COST' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3810 mmLeft = 149225 mmTop = 3440 mmWidth = 19812 BandType = 7 LayerName = Foreground end object ppDBCalc2: TppDBCalc DesignLayer = ppDesignLayer1 UserName = 'DBCalc2' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'ItemCode' DataPipeline = Main Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] Transparent = True DBCalcType = dcCount DataPipelineName = 'Main' mmHeight = 3429 mmLeft = 20108 mmTop = 3175 mmWidth = 16140 BandType = 7 LayerName = Foreground end object ppLabel18: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label18' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Total Items : ' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3429 mmLeft = 1588 mmTop = 3175 mmWidth = 17907 BandType = 7 LayerName = Foreground end object ppDBCalc5: TppDBCalc DesignLayer = ppDesignLayer1 UserName = 'DBCalc5' AutoSize = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'UTDQty' DataPipeline = Main DisplayFormat = '#,0.00;-#,0.00' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] TextAlignment = taRightJustified Transparent = True DataPipelineName = 'Main' mmHeight = 3386 mmLeft = 107527 mmTop = 3387 mmWidth = 16722 BandType = 7 LayerName = Foreground end object ppLine6: TppLine DesignLayer = ppDesignLayer1 UserName = 'Line6' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Position = lpBottom Style = lsDouble Weight = 0.750000000000000000 mmHeight = 3175 mmLeft = 171450 mmTop = 5821 mmWidth = 22754 BandType = 7 LayerName = Foreground end object ppDBCalc7: TppDBCalc DesignLayer = ppDesignLayer1 UserName = 'DBCalc7' AutoSize = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'UTDCost' DataPipeline = Main DisplayFormat = '#,0.00;-#,0.00' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] TextAlignment = taRightJustified Transparent = True DataPipelineName = 'Main' mmHeight = 3386 mmLeft = 175472 mmTop = 3387 mmWidth = 17992 BandType = 7 LayerName = Foreground end end object ppGroup1: TppGroup BreakName = 'Location' DataPipeline = Main GroupFileSettings.NewFile = False GroupFileSettings.EmailFile = False OutlineSettings.CreateNode = True StartOnOddPage = False UserName = 'Group1' mmNewColumnThreshold = 0 mmNewPageThreshold = 0 DataPipelineName = 'Main' NewFile = False object ppGroupHeaderBand1: TppGroupHeaderBand Background.Brush.Style = bsClear Border.mmPadding = 0 PrintHeight = phDynamic mmBottomOffset = 0 mmHeight = 6615 mmPrintPosition = 0 object ppRegion2: TppRegion DesignLayer = ppDesignLayer1 UserName = 'Region4' KeepTogether = True Caption = 'Region4' ParentWidth = True Pen.Style = psClear Stretch = True mmHeight = 6615 mmLeft = 0 mmTop = 0 mmWidth = 199390 BandType = 3 GroupNo = 0 LayerName = Foreground mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 object ppDBText3: TppDBText DesignLayer = ppDesignLayer1 UserName = 'edCode1' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'Location' DataPipeline = Main Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [fsBold] ParentDataPipeline = False Transparent = True DataPipelineName = 'Main' mmHeight = 3810 mmLeft = 794 mmTop = 1588 mmWidth = 29898 BandType = 3 GroupNo = 0 LayerName = Foreground end object ppDBMemo3: TppDBMemo DesignLayer = ppDesignLayer1 UserName = 'edDesc1' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 CharWrap = False DataField = 'Description' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [fsBold] ParentDataPipeline = False RemoveEmptyLines = False Transparent = True mmHeight = 4233 mmLeft = 32808 mmTop = 1058 mmWidth = 137319 BandType = 3 GroupNo = 0 LayerName = Foreground mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 mmLeading = 0 end object ppLabel34: TppLabel DesignLayer = ppDesignLayer1 UserName = 'lbContinued' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = '... Continued' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True Visible = False mmHeight = 3440 mmLeft = 173302 mmTop = 1852 mmWidth = 15875 BandType = 3 GroupNo = 0 LayerName = Foreground end end end object ppGroupFooterBand1: TppGroupFooterBand Background.Brush.Style = bsClear Border.mmPadding = 0 HideWhenOneDetail = False mmBottomOffset = 0 mmHeight = 9260 mmPrintPosition = 0 object ppRegion4: TppRegion DesignLayer = ppDesignLayer1 UserName = 'Region2' KeepTogether = True Brush.Style = bsClear ParentWidth = True Pen.Style = psClear Transparent = True mmHeight = 8996 mmLeft = 0 mmTop = 264 mmWidth = 199390 BandType = 5 GroupNo = 0 LayerName = Foreground mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 object ppShape3: TppShape DesignLayer = ppDesignLayer1 UserName = 'Subtotal1' Brush.Color = 16777088 mmHeight = 5027 mmLeft = 101865 mmTop = 2909 mmWidth = 92604 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppLabel41: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label27' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Sub-Total of' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3810 mmLeft = 794 mmTop = 3174 mmWidth = 19600 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppDBText6: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBDesc1' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'Description' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [fsBold] ParentDataPipeline = False Transparent = True mmHeight = 3704 mmLeft = 32808 mmTop = 3174 mmWidth = 63500 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppLine9: TppLine DesignLayer = ppDesignLayer1 UserName = 'Line9' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Pen.Width = 2 ParentWidth = True Position = lpBottom Weight = 1.500000000000000000 mmHeight = 1323 mmLeft = 0 mmTop = 6878 mmWidth = 199390 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppDBCalc10: TppDBCalc DesignLayer = ppDesignLayer1 UserName = 'DBCalc10' AutoSize = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'UTDQty' DataPipeline = Main DisplayFormat = '#,0.00;-#,0.00' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] ResetGroup = ppGroup1 TextAlignment = taRightJustified Transparent = True DataPipelineName = 'Main' mmHeight = 3387 mmLeft = 107527 mmTop = 3598 mmWidth = 16722 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppDBCalc6: TppDBCalc DesignLayer = ppDesignLayer1 UserName = 'DBCalc102' AutoSize = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'UTDCost' DataPipeline = Main DisplayFormat = '#,0.00;-#,0.00' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] ResetGroup = ppGroup1 TextAlignment = taRightJustified Transparent = True DataPipelineName = 'Main' mmHeight = 3387 mmLeft = 175472 mmTop = 3598 mmWidth = 17992 BandType = 5 GroupNo = 0 LayerName = Foreground end end end end object ppGroup2: TppGroup BreakName = 'StockGroup' DataPipeline = Main GroupFileSettings.NewFile = False GroupFileSettings.EmailFile = False OutlineSettings.CreateNode = True StartOnOddPage = False UserName = 'Group2' mmNewColumnThreshold = 0 mmNewPageThreshold = 0 DataPipelineName = 'Main' NewFile = False object ppGroupHeaderBand2: TppGroupHeaderBand Background.Brush.Style = bsClear Border.mmPadding = 0 mmBottomOffset = 0 mmHeight = 7938 mmPrintPosition = 0 object ppRegion6: TppRegion DesignLayer = ppDesignLayer1 UserName = 'Region7' KeepTogether = True Caption = 'Region7' ParentWidth = True Pen.Style = psClear mmHeight = 7673 mmLeft = 0 mmTop = 265 mmWidth = 199390 BandType = 3 GroupNo = 1 LayerName = Foreground mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 object ppDBText32: TppDBText DesignLayer = ppDesignLayer1 UserName = 'edCode2' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'StockGroup' DataPipeline = Main Font.Charset = DEFAULT_CHARSET Font.Color = 2839808 Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [fsBold] Transparent = True DataPipelineName = 'Main' mmHeight = 4233 mmLeft = 4498 mmTop = 1746 mmWidth = 30956 BandType = 3 GroupNo = 1 LayerName = Foreground end object ppDBMemo4: TppDBMemo DesignLayer = ppDesignLayer1 UserName = 'edDesc2' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 CharWrap = False DataField = 'Description' Font.Charset = DEFAULT_CHARSET Font.Color = 2839808 Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [fsBold] ParentDataPipeline = False RemoveEmptyLines = False Transparent = True mmHeight = 4233 mmLeft = 37835 mmTop = 1746 mmWidth = 133350 BandType = 3 GroupNo = 1 LayerName = Foreground mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 mmLeading = 0 end object ppLabel48: TppLabel DesignLayer = ppDesignLayer1 UserName = 'lbContinued1' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = '... Continued' Font.Charset = DEFAULT_CHARSET Font.Color = 2839808 Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taRightJustified Transparent = True Visible = False mmHeight = 3429 mmLeft = 173217 mmTop = 2540 mmWidth = 15960 BandType = 3 GroupNo = 1 LayerName = Foreground end object ppLine7: TppLine DesignLayer = ppDesignLayer1 UserName = 'Line7' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Pen.Color = clGray Weight = 0.750000000000000000 mmHeight = 1588 mmLeft = 3704 mmTop = 1059 mmWidth = 190765 BandType = 3 GroupNo = 1 LayerName = Foreground end object ppLine8: TppLine DesignLayer = ppDesignLayer1 UserName = 'Line8' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Pen.Color = clGray Position = lpBottom Weight = 0.750000000000000000 mmHeight = 1588 mmLeft = 3704 mmTop = 4656 mmWidth = 190765 BandType = 3 GroupNo = 1 LayerName = Foreground end end end object ppGroupFooterBand2: TppGroupFooterBand Background.Brush.Style = bsClear Border.mmPadding = 0 PrintHeight = phDynamic HideWhenOneDetail = False mmBottomOffset = 0 mmHeight = 6615 mmPrintPosition = 0 object ppRegion7: TppRegion DesignLayer = ppDesignLayer1 UserName = 'Region6' KeepTogether = True Brush.Style = bsClear Caption = 'Region6' ParentWidth = True Pen.Style = psClear Stretch = True Transparent = True mmHeight = 6615 mmLeft = 0 mmTop = 0 mmWidth = 199390 BandType = 5 GroupNo = 1 LayerName = Foreground mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 object ppLabel40: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label40' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Sub-Total of' Font.Charset = DEFAULT_CHARSET Font.Color = 2839808 Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3704 mmLeft = 4498 mmTop = 2117 mmWidth = 19579 BandType = 5 GroupNo = 1 LayerName = Foreground end object ppDBMemo6: TppDBMemo DesignLayer = ppDesignLayer1 UserName = 'DBDesc2' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 CharWrap = False DataField = 'Description' Font.Charset = DEFAULT_CHARSET Font.Color = 2839808 Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [fsBold] ParentDataPipeline = False RemoveEmptyLines = False Stretch = True Transparent = True mmHeight = 3440 mmLeft = 37835 mmTop = 2381 mmWidth = 60590 BandType = 5 GroupNo = 1 LayerName = Foreground mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 mmLeading = 0 end object ppDBCalc15: TppDBCalc DesignLayer = ppDesignLayer1 UserName = 'DBCalc101' AutoSize = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'UTDQty' DataPipeline = Main DisplayFormat = '#,0.00;-#,0.00' Font.Charset = DEFAULT_CHARSET Font.Color = 2839808 Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] ResetGroup = ppGroup2 TextAlignment = taRightJustified Transparent = True DataPipelineName = 'Main' mmHeight = 3387 mmLeft = 107527 mmTop = 2328 mmWidth = 16722 BandType = 5 GroupNo = 1 LayerName = Foreground end object ppDBCalc3: TppDBCalc DesignLayer = ppDesignLayer1 UserName = 'DBCalc3' AutoSize = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'UTDCost' DataPipeline = Main DisplayFormat = '#,0.00;-#,0.00' Font.Charset = DEFAULT_CHARSET Font.Color = 2839808 Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] ResetGroup = ppGroup2 TextAlignment = taRightJustified Transparent = True DataPipelineName = 'Main' mmHeight = 3387 mmLeft = 175472 mmTop = 2328 mmWidth = 17992 BandType = 5 GroupNo = 1 LayerName = Foreground end end end end object ppGroup3: TppGroup BreakName = 'ItemCode' DataPipeline = Main GroupFileSettings.NewFile = False GroupFileSettings.EmailFile = False OutlineSettings.CreateNode = True StartOnOddPage = False UserName = 'Group3' mmNewColumnThreshold = 0 mmNewPageThreshold = 0 DataPipelineName = 'Main' NewFile = False object ppGroupHeaderBand3: TppGroupHeaderBand Background.Brush.Style = bsClear Border.mmPadding = 0 PrintHeight = phDynamic mmBottomOffset = 0 mmHeight = 7938 mmPrintPosition = 0 object ppRegion3: TppRegion DesignLayer = ppDesignLayer1 UserName = 'Region3' KeepTogether = True Caption = 'Region3' ParentWidth = True Pen.Style = psClear Stretch = True mmHeight = 7673 mmLeft = 0 mmTop = 265 mmWidth = 199390 BandType = 3 GroupNo = 2 LayerName = Foreground mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 object ppDBText2: TppDBText DesignLayer = ppDesignLayer1 UserName = 'edCode3' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'ItemCode' DataPipeline = Main Font.Charset = DEFAULT_CHARSET Font.Color = clRed Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [fsBold] Transparent = True DataPipelineName = 'Main' mmHeight = 3810 mmLeft = 4498 mmTop = 1746 mmWidth = 30956 BandType = 3 GroupNo = 2 LayerName = Foreground end object ppDBMemo5: TppDBMemo DesignLayer = ppDesignLayer1 UserName = 'edDesc3' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 CharWrap = False DataField = 'Description' Font.Charset = DEFAULT_CHARSET Font.Color = clRed Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [fsBold] ParentDataPipeline = False RemoveEmptyLines = False Transparent = True mmHeight = 4233 mmLeft = 37835 mmTop = 1852 mmWidth = 133615 BandType = 3 GroupNo = 2 LayerName = Foreground mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 mmLeading = 0 end object ppLabel49: TppLabel DesignLayer = ppDesignLayer1 UserName = 'lbContinued2' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = '... Continued' Font.Charset = DEFAULT_CHARSET Font.Color = clRed Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taRightJustified Transparent = True Visible = False mmHeight = 3429 mmLeft = 173217 mmTop = 2540 mmWidth = 15960 BandType = 3 GroupNo = 2 LayerName = Foreground end object ppLine10: TppLine DesignLayer = ppDesignLayer1 UserName = 'Line10' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Pen.Color = clGray Weight = 0.750000000000000000 mmHeight = 1588 mmLeft = 3704 mmTop = 1059 mmWidth = 190765 BandType = 3 GroupNo = 2 LayerName = Foreground end object ppLine11: TppLine DesignLayer = ppDesignLayer1 UserName = 'Line11' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Pen.Color = clGray Position = lpBottom Weight = 0.750000000000000000 mmHeight = 1588 mmLeft = 3704 mmTop = 4656 mmWidth = 190765 BandType = 3 GroupNo = 2 LayerName = Foreground end end end object ppGroupFooterBand3: TppGroupFooterBand Background.Brush.Style = bsClear Border.mmPadding = 0 PrintHeight = phDynamic HideWhenOneDetail = False mmBottomOffset = 0 mmHeight = 6615 mmPrintPosition = 0 object ppRegion5: TppRegion DesignLayer = ppDesignLayer1 UserName = 'Region5' KeepTogether = True Brush.Style = bsClear Caption = 'Region5' ParentWidth = True Pen.Style = psClear Stretch = True Transparent = True mmHeight = 6615 mmLeft = 0 mmTop = 0 mmWidth = 199390 BandType = 5 GroupNo = 2 LayerName = Foreground mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 object ppLabel50: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label401' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Sub-Total of' Font.Charset = DEFAULT_CHARSET Font.Color = clRed Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3810 mmLeft = 4498 mmTop = 2117 mmWidth = 19600 BandType = 5 GroupNo = 2 LayerName = Foreground end object ppDBMemo7: TppDBMemo DesignLayer = ppDesignLayer1 UserName = 'DBDesc4' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 CharWrap = False DataField = 'Description' Font.Charset = DEFAULT_CHARSET Font.Color = clRed Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [fsBold] ParentDataPipeline = False RemoveEmptyLines = False Stretch = True Transparent = True mmHeight = 3440 mmLeft = 37835 mmTop = 2381 mmWidth = 60590 BandType = 5 GroupNo = 2 LayerName = Foreground mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 mmLeading = 0 end object ppDBCalc4: TppDBCalc DesignLayer = ppDesignLayer1 UserName = 'DBCalc4' AutoSize = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'UTDQty' DataPipeline = Main DisplayFormat = '#,0.00;-#,0.00' Font.Charset = DEFAULT_CHARSET Font.Color = clRed Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] ResetGroup = ppGroup3 TextAlignment = taRightJustified Transparent = True DataPipelineName = 'Main' mmHeight = 3387 mmLeft = 107527 mmTop = 2328 mmWidth = 16722 BandType = 5 GroupNo = 2 LayerName = Foreground end object ppDBCalc1: TppDBCalc DesignLayer = ppDesignLayer1 UserName = 'DBCalc1' AutoSize = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'UTDCost' DataPipeline = Main DisplayFormat = '#,0.00;-#,0.00' Font.Charset = DEFAULT_CHARSET Font.Color = clRed Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] ResetGroup = ppGroup3 TextAlignment = taRightJustified Transparent = True DataPipelineName = 'Main' mmHeight = 3387 mmLeft = 175472 mmTop = 2328 mmWidth = 17992 BandType = 5 GroupNo = 2 LayerName = Foreground end end end end object ppGroup4: TppGroup BreakName = 'Category' DataPipeline = Main GroupFileSettings.NewFile = False GroupFileSettings.EmailFile = False OutlineSettings.CreateNode = True StartOnOddPage = False UserName = 'Group4' mmNewColumnThreshold = 0 mmNewPageThreshold = 0 DataPipelineName = 'Main' NewFile = False object ppGroupHeaderBand4: TppGroupHeaderBand Background.Brush.Style = bsClear Border.mmPadding = 0 mmBottomOffset = 0 mmHeight = 0 mmPrintPosition = 0 end object ppGroupFooterBand4: TppGroupFooterBand Background.Brush.Style = bsClear Border.mmPadding = 0 HideWhenOneDetail = False mmBottomOffset = 0 mmHeight = 0 mmPrintPosition = 0 end end object raCodeModule2: TraCodeModule object raProgramInfo5: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'DBTxtActiveOnGetText' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure DBTxtActiveOnGetText(var Text: String);'#13#10'begin'#13#10' if P' + 'arameter.GetFieldValue('#39'PrintActive'#39') = True then'#13#10' Text := '#39'Ye' + 's'#39' else'#13#10' Text := '#39'No'#39';'#13#10#13#10'end;'#13#10 raProgram.ComponentName = 'DBTxtActive' raProgram.EventName = 'OnGetText' raProgram.EventID = 53 raProgram.CaretPos = ( 3 4) end object raProgramInfo6: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'DBTxtInActiveOnGetText' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure DBTxtInActiveOnGetText(var Text: String);'#13#10'begin'#13#10' if' + ' Parameter.GetFieldValue('#39'PrintInActive'#39') = True then'#13#10' Text :=' + ' '#39'Yes'#39' else'#13#10' Text := '#39'No'#39';'#13#10'end;'#13#10 raProgram.ComponentName = 'DBTxtInActive' raProgram.EventName = 'OnGetText' raProgram.EventID = 53 end object raProgramInfo7: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'DBTxtStkCtrlOnGetText' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure DBTxtStkCtrlOnGetText(var Text: String);'#13#10'begin'#13#10' if ' + 'Parameter.GetFieldValue('#39'PrintStockControl'#39') = True then'#13#10' Text' + ' := '#39'Yes'#39' else'#13#10' Text := '#39'No'#39';'#13#10'end;'#13#10 raProgram.ComponentName = 'DBTxtStkCtrl' raProgram.EventName = 'OnGetText' raProgram.EventID = 53 end object raProgramInfo8: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'DBTxtNonStkCtrlOnGetText' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure DBTxtNonStkCtrlOnGetText(var Text: String);'#13#10'begin'#13#10' ' + 'if Parameter.GetFieldValue('#39'PrintNonStockControl'#39') = True then'#13#10 + ' Text := '#39'Yes'#39' else'#13#10' Text := '#39'No'#39';'#13#10'end;'#13#10 raProgram.ComponentName = 'DBTxtNonStkCtrl' raProgram.EventName = 'OnGetText' raProgram.EventID = 53 end object raProgramInfo9: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'DBTxtMerFIFOOnGetText' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure DBTxtMerFIFOOnGetText(var Text: String);'#13#10'begin'#13#10' if ' + ' Parameter.GetFieldValue('#39'MergeSameCost'#39') = True then'#13#10' Text :=' + ' '#39'Yes'#39' else'#13#10' Text := '#39'No'#39';'#13#10'end;'#13#10 raProgram.ComponentName = 'DBTxtMerFIFO' raProgram.EventName = 'OnGetText' raProgram.EventID = 53 end object raProgramInfo10: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'ReportBeforePrint' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure ReportBeforePrint;'#13#10'var lGroupBy: string;'#13#10' fl, pl:' + ' TStringList;'#13#10' i: integer;'#13#10'begin ' + ' '#13#10' fl := TStringList.Create;'#13#10' pl := TStringList.' + 'Create;'#13#10' '#13#10' fl.Values['#39'ItemCode'#39'] := '#39'ItemCode;Descrip' + 'tion'#39';'#13#10' fl.Values['#39'Location'#39'] := '#39'Location;Description'#39 + ';'#13#10' fl.Values['#39'StockGroup'#39'] := '#39'StockGroup;Description'#39';'#13#10 + ' fl.Values['#39'Category'#39'] := '#39'Category;Description'#39';'#13#10' fl.' + 'Values['#39'Batch'#39'] := '#39'Batch;Description'#39';'#13#10' '#13#10' pl.AddO' + 'bject('#39'ItemCode'#39', Item);'#13#10' pl.AddObject('#39'Location'#39', Loc' + 'ation);'#13#10' pl.AddObject('#39'StockGroup'#39', StockGroup);'#13#10' pl.AddOb' + 'ject('#39'Category'#39', Category);'#13#10' pl.AddObject('#39'Batch'#39', ' + 'Batch);'#13#10' '#13#10' lGroupBy := ValueOfSemiColonStr(Parameter.GetFiel' + 'dValue('#39'GroupBy'#39'), 0);'#13#10' i := fl.IndexOfName(lGroupBy);'#13#10' if i' + ' <> -1 then begin '#13#10' edCode1.DataField := ValueOfSemiColonStr' + '(fl.Values[lGroupBy], 0);'#13#10' edCode1.DataPipeline := Main;'#13#10' ' + ' edDesc1.DataField := ValueOfSemiColonStr(fl.Values[lGroupBy], ' + '1);'#13#10' edDesc1.DataPipeline := pl.Objects[i];'#13#10' DBDesc1.Dat' + 'aField := ValueOfSemiColonStr(fl.Values[lGroupBy], 1);'#13#10' DBDe' + 'sc1.DataPipeline := pl.Objects[i];'#13#10' Report.Groups[0].BreakNa' + 'me := lGroupBy;'#13#10' end;'#13#10' '#13#10' lGroupBy := ValueOfSemiColonStr(P' + 'arameter.GetFieldValue('#39'GroupBy'#39'), 1);'#13#10' i := fl.IndexOfName(lG' + 'roupBy);'#13#10' if i <> -1 then begin '#13#10' edCode2.DataField := Val' + 'ueOfSemiColonStr(fl.Values[lGroupBy], 0);'#13#10' edCode2.DataPipel' + 'ine := Main;'#13#10' edDesc2.DataField := ValueOfSemiColonStr(fl.Va' + 'lues[lGroupBy], 1);'#13#10' edDesc2.DataPipeline := pl.Objects[i];'#13 + #10' DBDesc2.DataField := ValueOfSemiColonStr(fl.Values[lGroupBy' + '], 1);'#13#10' DBDesc2.DataPipeline := pl.Objects[i];'#13#10' Report.G' + 'roups[1].BreakName := lGroupBy;'#13#10' end;'#13#10' '#13#10' lGroupBy := Value' + 'OfSemiColonStr(Parameter.GetFieldValue('#39'GroupBy'#39'), 2);'#13#10' i := f' + 'l.IndexOfName(lGroupBy);'#13#10' if i <> -1 then begin '#13#10' edCode3.' + 'DataField := ValueOfSemiColonStr(fl.Values[lGroupBy], 0);'#13#10' e' + 'dCode3.DataPipeline := Main;'#13#10' edDesc3.DataField := ValueOfSe' + 'miColonStr(fl.Values[lGroupBy], 1);'#13#10' edDesc3.DataPipeline :=' + ' pl.Objects[i];'#13#10' DBDesc4.DataField := ValueOfSemiColonStr(fl' + '.Values[lGroupBy], 1);'#13#10' DBDesc4.DataPipeline := pl.Objects[i' + '];'#13#10' Report.Groups[2].BreakName := lGroupBy;'#13#10' end; '#13#10' '#13#10' ' + ' lGroupBy := ValueOfSemiColonStr(Parameter.GetFieldValue('#39'GroupB' + 'y'#39'), 3);'#13#10' i := fl.IndexOfName(lGroupBy);'#13#10' if i <> -1 then be' + 'gin '#13#10' edCode4.DataField := ValueOfSemiColonStr(fl.Values[lGr' + 'oupBy], 0);'#13#10' edCode4.DataPipeline := Main;'#13#10' edDesc4.Data' + 'Field := ValueOfSemiColonStr(fl.Values[lGroupBy], 1);'#13#10' edDes' + 'c4.DataPipeline := pl.Objects[i];'#13#10'{ DBDesc4.DataField := Val' + 'ueOfSemiColonStr(fl.Values[lGroupBy], 1);'#13#10' DBDesc4.DataPipel' + 'ine := pl.Objects[i];}'#13#10' Report.Groups[3].BreakName := lGroup' + 'By;'#13#10' end; '#13#10' fl.Free;'#13#10' pl.Free; '#13#10'end;'#13#10 raProgram.ComponentName = 'Report' raProgram.EventName = 'BeforePrint' raProgram.EventID = 1 raProgram.CaretPos = ( 3 6) end object raProgramInfo11: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'lbContinuedOnPrint' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure lbContinuedOnPrint;'#13#10'begin'#13#10' lbContinued.visible:= Gr' + 'oup1.FirstPage = False;'#13#10'end;'#13#10 raProgram.ComponentName = 'lbContinued' raProgram.EventName = 'OnPrint' raProgram.EventID = 32 end object raProgramInfo12: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'lbContinued1OnPrint' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure lbContinued1OnPrint;'#13#10'begin'#13#10' lbContinued1.visible:= ' + 'Group2.FirstPage = False;'#13#10'end;'#13#10 raProgram.ComponentName = 'lbContinued1' raProgram.EventName = 'OnPrint' raProgram.EventID = 32 end object raProgramInfo13: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'lbCoNameTOnGetText' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure lbCoNameTOnGetText(var Text: String);'#13#10'begin'#13#10' Text :' + '= Profile.GetFieldValue('#39'CompanyName'#39') +'#13#10' '#39' ('#39' + Profile.GetFie' + 'ldValue('#39'RegisterNo'#39') + '#39')'#39';'#13#10'end;'#13#10 raProgram.ComponentName = 'lbCoNameT' raProgram.EventName = 'OnGetText' raProgram.EventID = 53 end object raProgramInfo14: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'lbTitleDateTOnGetText' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure lbTitleDateTOnGetText(var Text: String);'#13#10'begin'#13#10' Tex' + 't := '#39'As At '#39' + Parameter.GetFieldValue('#39'DateTo'#39');'#13#10'end;'#13#10 raProgram.ComponentName = 'lbTitleDateT' raProgram.EventName = 'OnGetText' raProgram.EventID = 53 end object raProgramInfo15: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'lbTitleDateHOnGetText' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure lbTitleDateHOnGetText(var Text: String);'#13#10'begin'#13#10' Tex' + 't := lbTitleDateT.Text;'#13#10'end;'#13#10 raProgram.ComponentName = 'lbTitleDateH' raProgram.EventName = 'OnGetText' raProgram.EventID = 53 end object raProgramInfo16: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'lbCoNameHOnGetText' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure lbCoNameHOnGetText(var Text: String);'#13#10'begin'#13#10' Text :' + '= lbCoNameT.Text;'#13#10'end;'#13#10 raProgram.ComponentName = 'lbCoNameH' raProgram.EventName = 'OnGetText' raProgram.EventID = 53 end object raProgramInfo17: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'lbContinued2OnPrint' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure lbContinued2OnPrint;'#13#10'begin'#13#10' lbContinued1.visible:= ' + 'Group3.FirstPage = False;'#13#10'end;'#13#10 raProgram.ComponentName = 'lbContinued2' raProgram.EventName = 'OnPrint' raProgram.EventID = 32 end object raProgramInfo18: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'VarUOM1OnCalc' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure VarUOM1OnCalc(var Value: Variant);'#13#10'var s : string;'#13#10'b' + 'egin'#13#10' s := '#39'SELECT UOM FROM ST_ITEM_UOM '#39' +'#13#10' '#9' '#39'WHERE Code' + '='#39' + QuotedStr(Main.GetFieldValue('#39'ItemCode'#39'))+'#13#10' '#39' AND Ra' + 'te=1'#39';'#13#10' Value :=DBSQL_GetFieldValue(s); '#13#10#13#10'end;'#13#10 raProgram.ComponentName = 'VarUOM1' raProgram.EventName = 'OnCalc' raProgram.EventID = 33 raProgram.CaretPos = ( 25 6) end object raProgramInfo19: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'VarUOM2OnCalc' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure VarUOM2OnCalc(var Value: Variant);'#13#10'var s : string;'#13#10'b' + 'egin'#13#10' s := '#39'SELECT UOM FROM ST_ITEM_UOM '#39' +'#13#10' '#9' '#39'WHERE Code' + '='#39' + QuotedStr(Main.GetFieldValue('#39'ItemCode'#39')) +'#13#10' '#9' '#39' AND UO' + 'M <>'#39' + QuotedStr(VarUOM1.Value) +'#13#10' '#39' ORDER BY Rate'#39';'#13#10#13#10 + ' Value := Trim(DBSQL_GetFieldValue(s));'#13#10'end;'#13#10 raProgram.ComponentName = 'VarUOM2' raProgram.EventName = 'OnCalc' raProgram.EventID = 33 raProgram.CaretPos = ( 5 10) end object raProgramInfo20: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'VarUOM3OnCalc' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure VarUOM3OnCalc(var Value: Variant);'#13#10'var s : string;'#13#10'b' + 'egin'#13#10' s := '#39'SELECT UOM FROM ST_ITEM_UOM '#39' +'#13#10' '#9' '#39'WHERE Code' + '='#39' + QuotedStr(Main.GetFieldValue('#39'ItemCode'#39')) +'#13#10' '#9' '#39'AND UOM' + ' NOT IN ('#39' +'#13#10#9' QuotedStr(VarUOM1.Value) + '#39','#39' + QuotedStr(' + 'VarUOM2.Value) + '#39')'#39';'#13#10#13#10' Value := Trim(DBSQL_GetFieldValue(s' + '));'#13#10#13#10'end;'#13#10 raProgram.ComponentName = 'VarUOM3' raProgram.EventName = 'OnCalc' raProgram.EventID = 33 raProgram.CaretPos = ( 5 11) end object raProgramInfo21: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'VarQty1OnCalc' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure VarQty1OnCalc(var Value: Variant);'#13#10'var s, s2, s3 : st' + 'ring;'#13#10' v1, v2, v3 : Variant;'#13#10'begin'#13#10' s := '#39'SELECT Rate FRO' + 'M ST_ITEM_UOM '#39' +'#13#10' '#9' '#39'WHERE Code='#39' + QuotedStr(Main.GetField' + 'Value('#39'ItemCode'#39')) +'#13#10' '#9' '#39' AND UOM ='#39' + QuotedStr(VarUOM1.Val' + 'ue);'#13#10' '#13#10' if DBSQL_GetFieldvalue(s) <> NULL then '#13#10' v1 ' + ':= DBSQL_GetFieldvalue(s)'#13#10' else'#13#10' v1 := 0;'#13#10' '#13#10' s2' + ' := '#39'SELECT Rate FROM ST_ITEM_UOM '#39' +'#13#10' '#9' '#39'WHERE Code='#39' + Qu' + 'otedStr(Main.GetFieldValue('#39'ItemCode'#39')) +'#13#10' '#9' '#39' AND UOM = '#39' ' + '+ QuotedStr(VarUOM2.Value);'#13#10' '#9' '#13#10' if DBSQL_GetFieldvalue' + '(s2) <> NULL then '#13#10' v2 := DBSQL_GetFieldvalue(s2)'#13#10' el' + 'se'#13#10' v2 := 0;'#13#10#13#10' s3 := '#39'SELECT Rate FROM ST_ITEM_UOM '#39' +'#13 + #10' '#9' '#39'WHERE Code='#39' + QuotedStr(Main.GetFieldValue('#39'ItemCode'#39')' + ') +'#13#10' '#9' '#39' AND UOM = '#39' + QuotedStr(VarUOM3.Value);'#13#10' '#9' '#13#10 + ' if DBSQL_GetFieldvalue(s3) <> NULL then '#13#10' v3 := DBSQL_' + 'GetFieldvalue(s3)'#13#10' else'#13#10' v3 := 0;'#13#10#13#10' Value := (Main.' + 'GetFieldValue('#39'UTDQty'#39') - '#13#10' (VarQty2.Value * v2) -'#13#10' ' + ' (VarQty3.Value * v3));'#13#10' '#13#10' VarQty1.Visible' + ' := Trim(VarUOM1.Value) <> '#39#39';'#13#10' Label34.text := v1;'#13#10' Label41' + '.text := v2;'#13#10' '#13#10' '#13#10' '#13#10'end;'#13#10 raProgram.ComponentName = 'VarQty1' raProgram.EventName = 'OnCalc' raProgram.EventID = 33 raProgram.CaretPos = ( 42 16) end object raProgramInfo22: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'VarQty2OnCalc' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure VarQty2OnCalc(var Value: Variant);'#13#10'var s, s1 : string' + ';'#13#10'begin'#13#10' s := '#39'SELECT Rate FROM ST_ITEM_UOM '#39' +'#13#10' '#9' '#39'WHERE' + ' Code='#39' + QuotedStr(Main.GetFieldValue('#39'ItemCode'#39')) +'#13#10' '#9' '#39' A' + 'ND UOM ='#39' + QuotedStr(VarUOM2.Value);'#13#10' '#13#10' s1 := '#39'SELECT Rat' + 'e FROM ST_ITEM_UOM '#39' +'#13#10' '#9' '#39'WHERE Code='#39' + QuotedStr(Main.Ge' + 'tFieldValue('#39'ItemCode'#39')) +'#13#10' '#9' '#39' AND UOM = '#39' + QuotedStr(Var' + 'UOM3.Value);'#13#10#13#10' Value := (Main.GetFieldValue('#39'UTDQty'#39') - '#13#10' ' + ' (VarQty3.Value * DBSQL_GetFieldValue(s1)))/'#13#10#9#9' ' + ' DBSQL_GetFieldValue(s);'#13#10' VarQty2.Visible := Trim(VarU' + 'OM2.Value) <> '#39#39';'#13#10'end;'#13#10 raProgram.ComponentName = 'VarQty2' raProgram.EventName = 'OnCalc' raProgram.EventID = 33 raProgram.CaretPos = ( 38 14) end object raProgramInfo23: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'VarQty3OnCalc' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure VarQty3OnCalc(var Value: Variant);'#13#10'var s : string;'#13#10'b' + 'egin'#13#10' s := '#39'SELECT Rate FROM ST_ITEM_UOM '#39' +'#13#10' '#9' '#39'WHERE Cod' + 'e='#39' + QuotedStr(Main.GetFieldValue('#39'ItemCode'#39')) +'#13#10' '#9' '#39' AND U' + 'OM ='#39' + QuotedStr(VarUOM3.Value);'#13#10' '#13#10' if Trim(DBSQL_GetFieldV' + 'alue(s)) <> '#39#39' then'#13#10' Value := Main.GetFieldValue('#39'UTDQty'#39') /' + 'DBSQL_GetFieldValue(s) else'#13#10' Value := 0;'#13#10' VarQty3.Visible ' + ':= Trim(VarUOM3.Value) <> '#39#39';'#13#10'end;'#13#10 raProgram.ComponentName = 'VarQty3' raProgram.EventName = 'OnCalc' raProgram.EventID = 33 raProgram.CaretPos = ( 65 9) end end object ppDesignLayers1: TppDesignLayers object ppDesignLayer1: TppDesignLayer UserName = 'Foreground' LayerType = ltBanded Index = 0 end end object ppParameterList1: TppParameterList end end