TdvSLCS object TppReport AutoStop = False DataPipeline = Main NoDataBehaviors = [ndBlankReport] PassSetting = psTwoPass PrinterSetup.BinName = 'Default' PrinterSetup.DocumentName = 'SQL Financial Accounting: 0PCH - Sales Invoice' PrinterSetup.Duplex = dpNone PrinterSetup.PaperName = 'Custom' PrinterSetup.PrinterName = 'Default' PrinterSetup.SaveDeviceSettings = False PrinterSetup.mmMarginBottom = 6350 PrinterSetup.mmMarginLeft = 6350 PrinterSetup.mmMarginRight = 12700 PrinterSetup.mmMarginTop = 6350 PrinterSetup.mmPaperHeight = 139700 PrinterSetup.mmPaperWidth = 215900 PrinterSetup.PaperSize = 140 SaveAsTemplate = True Template.DatabaseSettings.Name = '07-Cash-Sales-SST-Format-HalfPage' 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 PDFSettings.EmbedFontOptions = [] 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 = '19.02' mmColumnWidth = 0 DataPipelineName = 'Main' object ppHeaderBand2: TppHeaderBand Background.Brush.Style = bsClear Border.mmPadding = 0 PrintHeight = phDynamic mmBottomOffset = 0 mmHeight = 75142 mmPrintPosition = 0 object ppShape2: TppShape DesignLayer = ppDesignLayer1 UserName = 'Shape2' Shape = stRoundRect mmHeight = 29898 mmLeft = 138897 mmTop = 1058 mmWidth = 55570 BandType = 0 LayerName = Foreground end object ppShape1: TppShape DesignLayer = ppDesignLayer1 UserName = 'Shape1' mmHeight = 6869 mmLeft = 1323 mmTop = 66681 mmWidth = 194469 BandType = 0 LayerName = Foreground end object DBImage1: TppDBImage DesignLayer = ppDesignLayer1 UserName = 'DBImage1' AlignHorizontal = ahCenter AlignVertical = avCenter MaintainAspectRatio = False Stretch = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'Logo' DataPipeline = Profile GraphicType = 'Bitmap' ParentDataPipeline = False DataPipelineName = 'Profile' mmHeight = 25400 mmLeft = 794 mmTop = 0 mmWidth = 25400 BandType = 0 LayerName = Foreground end object DBText1: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText1' AutoSize = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'DocNo' DataPipeline = Main Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [fsBold] ParentDataPipeline = False Transparent = True DataPipelineName = 'Main' mmHeight = 4233 mmLeft = 166422 mmTop = 2381 mmWidth = 10583 BandType = 0 LayerName = Foreground end object Label1: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label1' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'NO' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 4233 mmLeft = 140220 mmTop = 2381 mmWidth = 4498 BandType = 0 LayerName = Foreground end object Label2: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label2' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'INVOICE' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 12 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taCentered Transparent = True mmHeight = 5027 mmLeft = 3175 mmTop = 30427 mmWidth = 18521 BandType = 0 LayerName = Foreground end object DBText2: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText2' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'Address2' DataPipeline = Main Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Main' mmHeight = 3703 mmLeft = 2369 mmTop = 45766 mmWidth = 89145 BandType = 0 LayerName = Foreground end object DBText3: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText3' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'Address3' DataPipeline = Main Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Main' mmHeight = 3703 mmLeft = 2369 mmTop = 49733 mmWidth = 89145 BandType = 0 LayerName = Foreground end object DBText5: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText5' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'Address4' DataPipeline = Main Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Main' mmHeight = 3703 mmLeft = 2369 mmTop = 53701 mmWidth = 89145 BandType = 0 LayerName = Foreground end object DBText6: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText6' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'Attention' DataPipeline = Main Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Main' mmHeight = 3703 mmLeft = 11095 mmTop = 57668 mmWidth = 77504 BandType = 0 LayerName = Foreground end object Label5: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label5' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'TERMS' 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 = 3440 mmLeft = 140220 mmTop = 16404 mmWidth = 8731 BandType = 0 LayerName = Foreground end object Label6: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label6' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'DATE' 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 = 3440 mmLeft = 140220 mmTop = 7408 mmWidth = 6879 BandType = 0 LayerName = Foreground end object DBText9: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText9' AutoSize = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'Terms' DataPipeline = Main Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Main' mmHeight = 3440 mmLeft = 166422 mmTop = 16404 mmWidth = 7673 BandType = 0 LayerName = Foreground end object DBText10: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText10' AutoSize = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'DocDate' DataPipeline = Main Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Main' mmHeight = 3175 mmLeft = 166422 mmTop = 7408 mmWidth = 10848 BandType = 0 LayerName = Foreground end object DBText12: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText12' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'Address1' DataPipeline = Main Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Main' mmHeight = 3703 mmLeft = 2369 mmTop = 42063 mmWidth = 89145 BandType = 0 LayerName = Foreground end object Label12: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label12' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'TEL :' 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 = 3440 mmLeft = 2369 mmTop = 61652 mmWidth = 6350 BandType = 0 LayerName = Foreground end object Label17: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label17' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'FAX :' 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 = 3440 mmLeft = 52103 mmTop = 61652 mmWidth = 6879 BandType = 0 LayerName = Foreground end object DBText17: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText7' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'Phone1' DataPipeline = Main Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Main' mmHeight = 3440 mmLeft = 12435 mmTop = 61652 mmWidth = 38100 BandType = 0 LayerName = Foreground end object DBText18: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText18' AutoSize = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'Fax1' DataPipeline = Main Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Main' mmHeight = 3440 mmLeft = 61893 mmTop = 61652 mmWidth = 6350 BandType = 0 LayerName = Foreground end object ppLabel1: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label7' AutoSize = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'NO' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 7 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taCentered Transparent = True mmHeight = 3810 mmLeft = 2369 mmTop = 67097 mmWidth = 8196 BandType = 0 LayerName = Foreground end object Label31: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label31' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'DESCRIPTION' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 7 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 2911 mmLeft = 36246 mmTop = 67208 mmWidth = 17727 BandType = 0 LayerName = Foreground end object Label33: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label33' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'QUANTITY' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 7 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 2911 mmLeft = 89440 mmTop = 67208 mmWidth = 13494 BandType = 0 LayerName = Foreground end object Label41: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label41' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'TAX' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 7 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taRightJustified Transparent = True mmHeight = 2911 mmLeft = 189177 mmTop = 67208 mmWidth = 4763 BandType = 0 LayerName = Foreground end object ppLabel2: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label8' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'ATTN :' 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 = 3440 mmLeft = 2369 mmTop = 57683 mmWidth = 8731 BandType = 0 LayerName = Foreground end object ppLabel3: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label3' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'YOUR REF.' 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 = 3440 mmLeft = 140220 mmTop = 11642 mmWidth = 14288 BandType = 0 LayerName = Foreground end object ppLabel4: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label9' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'SALES PERSON' 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 = 3440 mmLeft = 140220 mmTop = 20902 mmWidth = 19314 BandType = 0 LayerName = Foreground end object DBText4: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText4' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'CompanyName' DataPipeline = Main Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [fsBold] ParentDataPipeline = False Transparent = True DataPipelineName = 'Main' mmHeight = 3703 mmLeft = 2369 mmTop = 38626 mmWidth = 89145 BandType = 0 LayerName = Foreground end object ppDBText9: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText8' AutoSize = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'DocNoEx' DataPipeline = Main Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Main' mmHeight = 3440 mmLeft = 166422 mmTop = 11642 mmWidth = 11377 BandType = 0 LayerName = Foreground end object ppDBText13: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText17' Border.mmPadding = 0 DataPipeline = Document_Detail Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Document_Detail' mmHeight = 4498 mmLeft = 115359 mmTop = 15610 mmWidth = 17198 BandType = 0 LayerName = Foreground end object ppLabel17: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label25' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'UNIT PRICE' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 7 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 2911 mmLeft = 106634 mmTop = 67208 mmWidth = 14816 BandType = 0 LayerName = Foreground end object ppLabel13: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label4' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'TOTAL EXCL TAX (RM)' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 7 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taRightJustified Transparent = True WordWrap = True mmHeight = 7276 mmLeft = 133615 mmTop = 67204 mmWidth = 15434 BandType = 0 LayerName = Foreground end object ppLabel8: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label14' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'PAGE' 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 = 3440 mmLeft = 140220 mmTop = 25400 mmWidth = 6879 BandType = 0 LayerName = Foreground end object ppSystemVariable1: TppSystemVariable DesignLayer = ppDesignLayer1 UserName = 'SystemVariable1' Border.mmPadding = 0 VarType = vtPageSet Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] Transparent = True mmHeight = 3440 mmLeft = 166422 mmTop = 25400 mmWidth = 7408 BandType = 0 LayerName = Foreground end object ppDBText18: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText16' AutoSize = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'Agent' DataPipeline = Main Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Main' mmHeight = 3440 mmLeft = 166422 mmTop = 20902 mmWidth = 7673 BandType = 0 LayerName = Foreground end object ppLabel7: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label11' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = ' : ' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 4233 mmLeft = 161660 mmTop = 2381 mmWidth = 3440 BandType = 0 LayerName = Foreground end object ppLabel9: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label13' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = ' : ' 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 = 3440 mmLeft = 161660 mmTop = 7408 mmWidth = 2646 BandType = 0 LayerName = Foreground end object ppLabel11: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label15' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = ' : ' 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 = 3440 mmLeft = 161660 mmTop = 11642 mmWidth = 2646 BandType = 0 LayerName = Foreground end object ppLabel12: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label18' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = ' : ' 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 = 3440 mmLeft = 161660 mmTop = 16404 mmWidth = 2646 BandType = 0 LayerName = Foreground end object ppLabel18: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label19' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = ' : ' 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 = 3440 mmLeft = 161660 mmTop = 20902 mmWidth = 2646 BandType = 0 LayerName = Foreground end object ppLabel19: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label20' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = ' : ' 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 = 3440 mmLeft = 161660 mmTop = 25400 mmWidth = 2646 BandType = 0 LayerName = Foreground end object ppLabel14: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label21' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'DISC' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 7 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 2911 mmLeft = 124357 mmTop = 67208 mmWidth = 6350 BandType = 0 LayerName = Foreground end object ppLabel15: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label22' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'TAX AMT (RM)' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 7 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taRightJustified Transparent = True WordWrap = True mmHeight = 6394 mmLeft = 153592 mmTop = 67204 mmWidth = 12347 BandType = 0 LayerName = Foreground end object ppLabel20: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label23' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'TOTAL INCL TAX (RM)' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 7 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taRightJustified Transparent = True WordWrap = True mmHeight = 7276 mmLeft = 168275 mmTop = 67204 mmWidth = 15875 BandType = 0 LayerName = Foreground end object ppLabel5: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label10' AutoSize = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'ITEM CODE' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 7 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taCentered Transparent = True mmHeight = 3810 mmLeft = 9270 mmTop = 67097 mmWidth = 15875 BandType = 0 LayerName = Foreground end object DBRichText1: TppDBRichText DesignLayer = ppDesignLayer1 UserName = 'DBRichText1' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] Border.Weight = 1.000000000000000000 Border.mmPadding = 0 ExportRTFAsBitmap = False DataField = 'Note' DataPipeline = Profile ParentDataPipeline = False RemoveEmptyLines = False DataPipelineName = 'Profile' mmHeight = 30956 mmLeft = 28575 mmTop = 0 mmWidth = 110067 BandType = 0 LayerName = Foreground mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 mmLeftMargin = 794 end object ppLine1: TppLine DesignLayer = ppDesignLayer1 UserName = 'Line101' Border.mmPadding = 0 Weight = 0.750000000000000000 mmHeight = 790 mmLeft = 0 mmTop = 35716 mmWidth = 194469 BandType = 0 LayerName = Foreground end object Label3: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label24' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'BILLING ADDRESS' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 7 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 2911 mmLeft = 2381 mmTop = 35983 mmWidth = 22225 BandType = 0 LayerName = Foreground end object ppLabel16: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label26' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'DELIVERY ADDRESS' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 7 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 2911 mmLeft = 102394 mmTop = 35983 mmWidth = 24871 BandType = 0 LayerName = Foreground end object ppDBText24: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBTxtBrchName' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'BranchName' DataPipeline = Main Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [fsBold] ParentDataPipeline = False Visible = False DataPipelineName = 'Main' mmHeight = 4233 mmLeft = 102394 mmTop = 38626 mmWidth = 89694 BandType = 0 LayerName = Foreground end object ppDBText25: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText25' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'DAddress1' DataPipeline = Main Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Main' mmHeight = 4233 mmLeft = 102394 mmTop = 42063 mmWidth = 89694 BandType = 0 LayerName = Foreground end object ppDBText26: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText26' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'DAddress2' DataPipeline = Main Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Main' mmHeight = 4233 mmLeft = 102394 mmTop = 45766 mmWidth = 89694 BandType = 0 LayerName = Foreground end object ppDBText27: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText27' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'DAddress3' DataPipeline = Main Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Main' mmHeight = 4233 mmLeft = 102394 mmTop = 49733 mmWidth = 89694 BandType = 0 LayerName = Foreground end object ppDBText28: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText28' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'DAddress4' DataPipeline = Main Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Main' mmHeight = 4233 mmLeft = 102394 mmTop = 53701 mmWidth = 89694 BandType = 0 LayerName = Foreground end object ppLabel21: TppLabel DesignLayer = ppDesignLayer1 UserName = 'lbDOTel' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Tel: ' 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 = 3440 mmLeft = 102394 mmTop = 61648 mmWidth = 5556 BandType = 0 LayerName = Foreground end object Label7: TppLabel DesignLayer = ppDesignLayer1 UserName = 'lbDOFax' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Fax: ' 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 = 3440 mmLeft = 151419 mmTop = 61652 mmWidth = 6615 BandType = 0 LayerName = Foreground end object ppLabel22: TppLabel DesignLayer = ppDesignLayer1 UserName = 'lbDOAttn' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Attn: ' 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 = 3440 mmLeft = 102394 mmTop = 57668 mmWidth = 7408 BandType = 0 LayerName = Foreground end object ppDBText29: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText29' HyperlinkEnabled = False AutoSize = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'DAttention' DataPipeline = Main Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] Transparent = True DataPipelineName = 'Main' mmHeight = 3440 mmLeft = 113242 mmTop = 57668 mmWidth = 13758 BandType = 0 LayerName = Foreground end object ppDBText30: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText30' HyperlinkEnabled = False AutoSize = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'DPhone1' DataPipeline = Main Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] Transparent = True DataPipelineName = 'Main' mmHeight = 3440 mmLeft = 113242 mmTop = 61648 mmWidth = 11377 BandType = 0 LayerName = Foreground end object ppDBText31: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText31' HyperlinkEnabled = False AutoSize = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'DFax1' DataPipeline = Main Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] Transparent = True DataPipelineName = 'Main' mmHeight = 3440 mmLeft = 162267 mmTop = 61652 mmWidth = 8202 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 = 9790 mmPrintPosition = 0 object ppSubReport1: TppSubReport DesignLayer = ppDesignLayer1 UserName = 'SubRptNorm' ExpandAll = False NewPrintJob = False OutlineSettings.CreateNode = True TraverseAllData = False DataPipelineName = 'Document_Detail' mmHeight = 5027 mmLeft = 0 mmTop = 0 mmWidth = 196850 BandType = 4 LayerName = Foreground mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 object ppChildReport1: TppChildReport AutoStop = False DataPipeline = Document_Detail PrinterSetup.BinName = 'Default' PrinterSetup.DocumentName = 'SQL Financial Accounting: 0PCH - Sales Invoice' PrinterSetup.Duplex = dpNone PrinterSetup.PaperName = 'Custom' PrinterSetup.PrinterName = 'Default' PrinterSetup.SaveDeviceSettings = False PrinterSetup.mmMarginBottom = 6350 PrinterSetup.mmMarginLeft = 6350 PrinterSetup.mmMarginRight = 12700 PrinterSetup.mmMarginTop = 6350 PrinterSetup.mmPaperHeight = 139700 PrinterSetup.mmPaperWidth = 215900 PrinterSetup.PaperSize = 140 Template.DatabaseSettings.NameField = 'Name' Template.DatabaseSettings.TemplateField = 'Template' Template.SaveTo = stDatabase Template.Format = ftASCII Version = '19.02' mmColumnWidth = 0 DataPipelineName = 'Document_Detail' object ppDetailBand3: TppDetailBand Background1.Brush.Style = bsClear Background2.Brush.Style = bsClear Border.mmPadding = 0 PrintHeight = phDynamic mmBottomOffset = 0 mmHeight = 4498 mmPrintPosition = 0 object ppDBRichText1: TppDBRichText DesignLayer = ppDesignLayer2 UserName = 'DBRichText1' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 7 Font.Style = [] Border.Weight = 1.000000000000000000 Border.mmPadding = 0 ExportRTFAsBitmap = False DataField = 'Description3' DataPipeline = Document_Detail RemoveEmptyLines = False ShiftRelativeTo = DBMemo1 Stretch = True Transparent = True DataPipelineName = 'Document_Detail' mmHeight = 1588 mmLeft = 36013 mmTop = 2908 mmWidth = 46808 BandType = 4 LayerName = Foreground1 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 mmLeftMargin = 794 end object DBMemo1: TppDBMemo DesignLayer = ppDesignLayer2 UserName = 'DBMemo1' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 CharWrap = False DataField = 'Description' DataPipeline = Document_Detail Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 7 Font.Style = [] ParentDataPipeline = False RemoveEmptyLines = False Stretch = True Transparent = True DataPipelineName = 'Document_Detail' mmHeight = 3174 mmLeft = 36013 mmTop = 0 mmWidth = 46808 BandType = 4 LayerName = Foreground1 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 mmLeading = 0 end object ppDBText2: TppDBText DesignLayer = ppDesignLayer2 UserName = 'DBText7' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'Qty' DataPipeline = Document_Detail DisplayFormat = '#,0.00;-#,0.00' Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 7 Font.Style = [] ParentDataPipeline = False TextAlignment = taRightJustified Transparent = True DataPipelineName = 'Document_Detail' mmHeight = 3174 mmLeft = 84099 mmTop = 0 mmWidth = 10319 BandType = 4 LayerName = Foreground1 end object ppDBText4: TppDBText DesignLayer = ppDesignLayer2 UserName = 'DBText9' BlankWhenZero = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'LocalAmountWithTax' DataPipeline = Document_Detail DisplayFormat = '#,0.00;-#,0.00' Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 7 Font.Style = [] ParentDataPipeline = False TextAlignment = taRightJustified Transparent = True DataPipelineName = 'Document_Detail' mmHeight = 3174 mmLeft = 171706 mmTop = 0 mmWidth = 14813 BandType = 4 LayerName = Foreground1 end object DBCalc1: TppDBCalc DesignLayer = ppDesignLayer2 UserName = 'DBCalc1' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'Number' DataPipeline = Document_Detail Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 7 Font.Style = [] TextAlignment = taCentered Transparent = True DBCalcType = dcCount DataPipelineName = 'Document_Detail' mmHeight = 3174 mmLeft = 1852 mmTop = 0 mmWidth = 6871 BandType = 4 LayerName = Foreground1 end object ppDBText1: TppDBText DesignLayer = ppDesignLayer2 UserName = 'DBText2' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'UOM' DataPipeline = Document_Detail Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 7 Font.Style = [] Transparent = True DataPipelineName = 'Document_Detail' mmHeight = 3174 mmLeft = 95436 mmTop = 0 mmWidth = 11104 BandType = 4 LayerName = Foreground1 end object ppDBText3: TppDBText DesignLayer = ppDesignLayer2 UserName = 'DBText3' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'UnitPrice' DataPipeline = Document_Detail Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 7 Font.Style = [] TextAlignment = taRightJustified Transparent = True DataPipelineName = 'Document_Detail' mmHeight = 3174 mmLeft = 107611 mmTop = 0 mmWidth = 11898 BandType = 4 LayerName = Foreground1 end object ppDBText6: TppDBText DesignLayer = ppDesignLayer2 UserName = 'DBText1' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'LocalTaxAmt' DataPipeline = Document_Detail Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 7 Font.Style = [] TextAlignment = taRightJustified Transparent = True DataPipelineName = 'Document_Detail' mmHeight = 3174 mmLeft = 152930 mmTop = 0 mmWidth = 16668 BandType = 4 LayerName = Foreground1 end object ppDBText7: TppDBText DesignLayer = ppDesignLayer2 UserName = 'DBText4' Border.mmPadding = 0 DataField = 'DISC' DataPipeline = Document_Detail Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 7 Font.Style = [] TextAlignment = taRightJustified Transparent = True DataPipelineName = 'Document_Detail' mmHeight = 3174 mmLeft = 123041 mmTop = 0 mmWidth = 8983 BandType = 4 LayerName = Foreground1 end object ppDBText11: TppDBText DesignLayer = ppDesignLayer2 UserName = 'DBText11' Border.mmPadding = 0 DataField = 'LocalAmount' DataPipeline = Document_Detail Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 7 Font.Style = [] TextAlignment = taRightJustified Transparent = True DataPipelineName = 'Document_Detail' mmHeight = 3174 mmLeft = 134677 mmTop = 0 mmWidth = 15078 BandType = 4 LayerName = Foreground1 end object ppDBText19: TppDBText DesignLayer = ppDesignLayer2 UserName = 'DBText19' Border.mmPadding = 0 DataField = 'Tax' DataPipeline = Document_Detail Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 7 Font.Style = [] TextAlignment = taRightJustified Transparent = True DataPipelineName = 'Document_Detail' mmHeight = 3174 mmLeft = 187594 mmTop = 0 mmWidth = 6598 BandType = 4 LayerName = Foreground1 end object ppDBText23: TppDBText DesignLayer = ppDesignLayer2 UserName = 'DBText23' Border.mmPadding = 0 DataField = 'ItemCode' DataPipeline = Document_Detail Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 7 Font.Style = [] Transparent = True DataPipelineName = 'Document_Detail' mmHeight = 3174 mmLeft = 10049 mmTop = 0 mmWidth = 24883 BandType = 4 LayerName = Foreground1 end end object raCodeModule2: TraCodeModule end object ppDesignLayers2: TppDesignLayers object ppDesignLayer2: TppDesignLayer UserName = 'Foreground1' LayerType = ltBanded Index = 0 end end end end object ppSubReport2: TppSubReport DesignLayer = ppDesignLayer1 UserName = 'SubRptMerge' ExpandAll = False NewPrintJob = False OutlineSettings.CreateNode = True ShiftRelativeTo = ppSubReport1 TraverseAllData = False Visible = False DataPipelineName = 'plSQL_2' mmHeight = 5027 mmLeft = 0 mmTop = 4763 mmWidth = 196850 BandType = 4 LayerName = Foreground mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 object ppChildReport2: TppChildReport AutoStop = False DataPipeline = plSQL_2 PrinterSetup.BinName = 'Default' PrinterSetup.DocumentName = 'SQL Financial Accounting: 0PCH - Sales Invoice' PrinterSetup.Duplex = dpNone PrinterSetup.PaperName = 'Custom' PrinterSetup.PrinterName = 'Default' PrinterSetup.SaveDeviceSettings = False PrinterSetup.mmMarginBottom = 6350 PrinterSetup.mmMarginLeft = 6350 PrinterSetup.mmMarginRight = 12700 PrinterSetup.mmMarginTop = 6350 PrinterSetup.mmPaperHeight = 139700 PrinterSetup.mmPaperWidth = 215900 PrinterSetup.PaperSize = 140 Template.DatabaseSettings.NameField = 'Name' Template.DatabaseSettings.TemplateField = 'Template' Template.SaveTo = stDatabase Template.Format = ftASCII Version = '19.02' mmColumnWidth = 0 DataPipelineName = 'plSQL_2' object ppDetailBand1: TppDetailBand Background1.Brush.Style = bsClear Background2.Brush.Style = bsClear Border.mmPadding = 0 PrintHeight = phDynamic mmBottomOffset = 0 mmHeight = 4498 mmPrintPosition = 0 object ppDBRichText2: TppDBRichText DesignLayer = ppDesignLayer3 UserName = 'DBRichText2' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 7 Font.Style = [] Border.Weight = 1.000000000000000000 Border.mmPadding = 0 ExportRTFAsBitmap = False DataField = 'Description3' DataPipeline = plSQL_3 ParentDataPipeline = False RemoveEmptyLines = False ShiftRelativeTo = ppDBMemo1 Stretch = True Transparent = True DataPipelineName = 'plSQL_3' mmHeight = 1588 mmLeft = 35983 mmTop = 2910 mmWidth = 46808 BandType = 4 LayerName = Foreground2 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 mmLeftMargin = 794 end object ppDBMemo1: TppDBMemo DesignLayer = ppDesignLayer3 UserName = 'DBMemo2' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 CharWrap = False DataField = 'Description' DataPipeline = plSQL_3 Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 7 Font.Style = [] ParentDataPipeline = False RemoveEmptyLines = False Stretch = True Transparent = True DataPipelineName = 'plSQL_3' mmHeight = 3174 mmLeft = 35983 mmTop = 0 mmWidth = 46808 BandType = 4 LayerName = Foreground2 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 mmLeading = 0 end object ppDBText5: TppDBText DesignLayer = ppDesignLayer3 UserName = 'DBTxtQty' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'Qty' DataPipeline = plSQL_2 DisplayFormat = '#,0.00;-#,0.00' Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 7 Font.Style = [] ParentDataPipeline = False TextAlignment = taRightJustified Transparent = True DataPipelineName = 'plSQL_2' mmHeight = 3175 mmLeft = 83072 mmTop = 0 mmWidth = 10319 BandType = 4 LayerName = Foreground2 end object ppDBText8: TppDBText DesignLayer = ppDesignLayer3 UserName = 'DBTxtLocalAmtWithTax' BlankWhenZero = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'LocalAmountWithTax' DataPipeline = plSQL_2 DisplayFormat = '#,0.00;-#,0.00' Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 7 Font.Style = [] ParentDataPipeline = False TextAlignment = taRightJustified Transparent = True DataPipelineName = 'plSQL_2' mmHeight = 3174 mmLeft = 171715 mmTop = 0 mmWidth = 14813 BandType = 4 LayerName = Foreground2 end object ppDBCalc1: TppDBCalc DesignLayer = ppDesignLayer3 UserName = 'DBCalc1' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'Number' DataPipeline = plSQL_2 Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 7 Font.Style = [] ParentDataPipeline = False TextAlignment = taCentered Transparent = True DBCalcType = dcCount DataPipelineName = 'plSQL_2' mmHeight = 3174 mmLeft = 1852 mmTop = 0 mmWidth = 6871 BandType = 4 LayerName = Foreground2 end object ppDBText10: TppDBText DesignLayer = ppDesignLayer3 UserName = 'DBText3' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'UOM' DataPipeline = plSQL_2 Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 7 Font.Style = [] Transparent = True DataPipelineName = 'plSQL_2' mmHeight = 3174 mmLeft = 95515 mmTop = 0 mmWidth = 11104 BandType = 4 LayerName = Foreground2 end object ppDBText12: TppDBText DesignLayer = ppDesignLayer3 UserName = 'DBTxtUPrice' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'UnitPrice' DataPipeline = plSQL_2 Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 7 Font.Style = [] TextAlignment = taRightJustified Transparent = True DataPipelineName = 'plSQL_2' mmHeight = 3174 mmLeft = 107686 mmTop = 0 mmWidth = 11898 BandType = 4 LayerName = Foreground2 end object ppDBText14: TppDBText DesignLayer = ppDesignLayer3 UserName = 'DBTxtLocalTaxAmt' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'LocalTaxAmt' DataPipeline = plSQL_2 Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 7 Font.Style = [] TextAlignment = taRightJustified Transparent = True DataPipelineName = 'plSQL_2' mmHeight = 3174 mmLeft = 152929 mmTop = 0 mmWidth = 16668 BandType = 4 LayerName = Foreground2 end object ppDBText15: TppDBText DesignLayer = ppDesignLayer3 UserName = 'DBText15' Border.mmPadding = 0 DataField = 'DISC' DataPipeline = plSQL_2 Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 7 Font.Style = [] TextAlignment = taRightJustified Transparent = True DataPipelineName = 'plSQL_2' mmHeight = 3174 mmLeft = 123031 mmTop = 0 mmWidth = 8983 BandType = 4 LayerName = Foreground2 end object ppDBText16: TppDBText DesignLayer = ppDesignLayer3 UserName = 'DBTxtLocalAmt' Border.mmPadding = 0 DataField = 'LocalAmount' DataPipeline = plSQL_2 Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 7 Font.Style = [] TextAlignment = taRightJustified Transparent = True DataPipelineName = 'plSQL_2' mmHeight = 3174 mmLeft = 134673 mmTop = 0 mmWidth = 15078 BandType = 4 LayerName = Foreground2 end object ppDBText17: TppDBText DesignLayer = ppDesignLayer3 UserName = 'DBText6' Border.mmPadding = 0 DataField = 'Tax' DataPipeline = plSQL_2 Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 7 Font.Style = [] TextAlignment = taRightJustified Transparent = True DataPipelineName = 'plSQL_2' mmHeight = 3174 mmLeft = 187590 mmTop = 0 mmWidth = 6598 BandType = 4 LayerName = Foreground2 end object ppDBText22: TppDBText DesignLayer = ppDesignLayer3 UserName = 'DBText22' Border.mmPadding = 0 DataField = 'ItemCode' DataPipeline = plSQL_2 Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 7 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'plSQL_2' mmHeight = 3174 mmLeft = 10054 mmTop = 0 mmWidth = 24883 BandType = 4 LayerName = Foreground2 end end object raCodeModule3: TraCodeModule object raProgramInfo3: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'DetailBeforePrint' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure DetailBeforePrint;'#13#10'begin'#13#10' DBTxtQty.DisplayFormat ' + ' := Option.GetFieldValue('#39'StockQuantityDisplayFormat'#39');' + #13#10' DBTxtUPrice.DisplayFormat := Option.GetFieldValue('#39 + 'StockPriceDisplayFormat'#39');'#13#10' DBTxtLocalAmt.DisplayFormat ' + ' := Option.GetFieldValue('#39'AccountingValueDisplayFormat'#39');'#13#10' DBt' + 'xtLocalTaxAmt.DisplayFormat := Option.GetFieldValue('#39'Account' + 'ingValueDisplayFormat'#39');'#13#10' DBTxtLocalAmtWithTax.DisplayFormat :' + '= Option.GetFieldValue('#39'AccountingValueDisplayFormat'#39');'#13#10'end;'#13#10 raProgram.ComponentName = 'Detail' raProgram.EventName = 'BeforePrint' raProgram.EventID = 24 raProgram.CaretPos = ( 89 4) end end object ppDesignLayers3: TppDesignLayers object ppDesignLayer3: TppDesignLayer UserName = 'Foreground2' LayerType = ltBanded Index = 0 end end end end end object ppFooterBand3: TppFooterBand Background.Brush.Style = bsClear Border.mmPadding = 0 mmBottomOffset = 0 mmHeight = 2910 mmPrintPosition = 0 object ppLabel6: TppLabel DesignLayer = ppDesignLayer1 UserName = 'lbContinue' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Continue Next Page ...' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 7 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taRightJustified Transparent = True Visible = False mmHeight = 2910 mmLeft = 165100 mmTop = 0 mmWidth = 25136 BandType = 8 LayerName = Foreground end end object ppGroup1: TppGroup BreakName = 'DocKey' DataPipeline = Main GroupFileSettings.NewFile = False GroupFileSettings.EmailFile = False OutlineSettings.CreateNode = True NewPage = True ResetPageNo = True StartOnOddPage = False UserName = 'Group1' mmNewColumnThreshold = 0 mmNewPageThreshold = 0 DataPipelineName = 'Main' NewFile = False object ppGroupHeaderBand1: TppGroupHeaderBand Background.Brush.Style = bsClear Border.mmPadding = 0 mmBottomOffset = 0 mmHeight = 0 mmPrintPosition = 0 end object ppGroupFooterBand1: TppGroupFooterBand Background.Brush.Style = bsClear Border.mmPadding = 0 PrintHeight = phDynamic HideWhenOneDetail = False mmBottomOffset = 0 mmHeight = 28310 mmPrintPosition = 99060 object ppVariable2: TppVariable DesignLayer = ppDesignLayer1 UserName = 'Variable1' Anchors = [atLeft, atRight] AutoSize = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 BlankWhenZero = False CalcOrder = 0 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 7 Font.Style = [] Transparent = True WordWrap = True mmHeight = 5027 mmLeft = 3175 mmTop = 1058 mmWidth = 121709 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppLine9: TppLine DesignLayer = ppDesignLayer1 UserName = 'Line10' Border.mmPadding = 0 Weight = 0.750000000000000000 mmHeight = 2912 mmLeft = 1323 mmTop = 529 mmWidth = 194469 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppSubReport3: TppSubReport DesignLayer = ppDesignLayer1 UserName = 'SubReport1' ExpandAll = False NewPrintJob = False OutlineSettings.CreateNode = True ParentPrinterSetup = False ParentWidth = False TraverseAllData = False DataPipelineName = 'plSQL_5' mmHeight = 3704 mmLeft = 127810 mmTop = 6080 mmWidth = 57944 BandType = 5 GroupNo = 0 LayerName = Foreground mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 object ppChildReport3: TppChildReport AutoStop = False DataPipeline = plSQL_5 PrinterSetup.BinName = 'Report[Partial cut]' PrinterSetup.DocumentName = 'SQL Financial Accounting: Sales Cash Sales 6 - Receipt' PrinterSetup.Duplex = dpNone PrinterSetup.PaperName = 'Custom' PrinterSetup.PrinterName = 'Default' PrinterSetup.SaveDeviceSettings = False PrinterSetup.mmMarginBottom = 0 PrinterSetup.mmMarginLeft = 0 PrinterSetup.mmMarginRight = 0 PrinterSetup.mmMarginTop = 0 PrinterSetup.mmPaperHeight = 297127 PrinterSetup.mmPaperWidth = 63500 PrinterSetup.PaperSize = 140 Template.DatabaseSettings.NameField = 'Name' Template.DatabaseSettings.TemplateField = 'Template' Template.SaveTo = stDatabase Template.Format = ftASCII Version = '19.02' mmColumnWidth = 0 DataPipelineName = 'plSQL_5' object ppTitleBand3: TppTitleBand Background.Brush.Style = bsClear Border.mmPadding = 0 mmBottomOffset = 0 mmHeight = 6085 mmPrintPosition = 0 object ppShape4: TppShape DesignLayer = ppDesignLayer4 UserName = 'Shape1' Pen.Style = psDot mmHeight = 6339 mmLeft = 2646 mmTop = 0 mmWidth = 58206 BandType = 1 LayerName = Foreground3 end object ppMemo3: TppMemo DesignLayer = ppDesignLayer4 UserName = 'Memo3' Border.mmPadding = 0 Caption = 'Memo3' CharWrap = False Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 7 Font.Style = [] Lines.Strings = ( 'AMOUNT' '(RM)') RemoveEmptyLines = False TextAlignment = taRightJustified Transparent = True mmHeight = 6082 mmLeft = 30689 mmTop = 0 mmWidth = 12965 BandType = 1 LayerName = Foreground3 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 mmLeading = 0 end object ppMemo4: TppMemo DesignLayer = ppDesignLayer4 UserName = 'Memo4' Border.mmPadding = 0 Caption = 'Memo4' CharWrap = False Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 7 Font.Style = [] Lines.Strings = ( 'TAX' '(RM)') RemoveEmptyLines = False TextAlignment = taRightJustified Transparent = True mmHeight = 6082 mmLeft = 51082 mmTop = 0 mmWidth = 8731 BandType = 1 LayerName = Foreground3 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 mmLeading = 0 end object ppMemo1: TppMemo DesignLayer = ppDesignLayer4 UserName = 'Memo1' Border.mmPadding = 0 Caption = 'Memo1' CharWrap = False Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 7 Font.Style = [] Lines.Strings = ( 'TAX' 'SUMMARY') RemoveEmptyLines = False Transparent = True mmHeight = 6082 mmLeft = 4237 mmTop = 0 mmWidth = 12965 BandType = 1 LayerName = Foreground3 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 mmLeading = 0 end end object ppDetailBand4: TppDetailBand Background1.Brush.Style = bsClear Background2.Brush.Style = bsClear Border.mmPadding = 0 mmBottomOffset = 0 mmHeight = 3440 mmPrintPosition = 0 object ppShape5: TppShape DesignLayer = ppDesignLayer4 UserName = 'Shape2' Pen.Style = psDot mmHeight = 3695 mmLeft = 2649 mmTop = 8 mmWidth = 58208 BandType = 4 LayerName = Foreground3 end object ppDBText20: TppDBText DesignLayer = ppDesignLayer4 UserName = 'DBText20' Border.mmPadding = 0 DataField = 'LocalAmount' DataPipeline = plSQL_5 DisplayFormat = '#,0.00;-#,0.00' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 7 Font.Style = [] TextAlignment = taRightJustified Transparent = True DataPipelineName = 'plSQL_5' mmHeight = 3173 mmLeft = 26456 mmTop = 265 mmWidth = 17198 BandType = 4 LayerName = Foreground3 end object ppDBText21: TppDBText DesignLayer = ppDesignLayer4 UserName = 'DBText201' Border.mmPadding = 0 DataField = 'LocalTaxAmt' DataPipeline = plSQL_5 DisplayFormat = '#,0.00;-#,0.00' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 7 Font.Style = [] TextAlignment = taRightJustified Transparent = True DataPipelineName = 'plSQL_5' mmHeight = 3173 mmLeft = 47378 mmTop = 265 mmWidth = 12435 BandType = 4 LayerName = Foreground3 end object ppLabel23: TppLabel DesignLayer = ppDesignLayer4 UserName = 'lbRate' Border.mmPadding = 0 Caption = 'lbRate' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 7 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3175 mmLeft = 4233 mmTop = 265 mmWidth = 7144 BandType = 4 LayerName = Foreground3 end end object ppSummaryBand4: TppSummaryBand Background.Brush.Style = bsClear Border.mmPadding = 0 mmBottomOffset = 0 mmHeight = 3440 mmPrintPosition = 0 object ppShape6: TppShape DesignLayer = ppDesignLayer4 UserName = 'Shape3' Pen.Style = psDot mmHeight = 3702 mmLeft = 2649 mmTop = 0 mmWidth = 58208 BandType = 7 LayerName = Foreground3 end object ppDBCalc2: TppDBCalc DesignLayer = ppDesignLayer4 UserName = 'DBCalc1' Border.mmPadding = 0 DataField = 'LocalAmount' DataPipeline = plSQL_5 DisplayFormat = '#,0.00;-#,0.00' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 7 Font.Style = [] TextAlignment = taRightJustified Transparent = True DataPipelineName = 'plSQL_5' mmHeight = 3440 mmLeft = 24869 mmTop = 265 mmWidth = 18785 BandType = 7 LayerName = Foreground3 end object ppDBCalc3: TppDBCalc DesignLayer = ppDesignLayer4 UserName = 'DBCalc2' Border.mmPadding = 0 DataField = 'LocalTaxAmt' DataPipeline = plSQL_5 DisplayFormat = '#,0.00;-#,0.00' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 7 Font.Style = [] TextAlignment = taRightJustified Transparent = True DataPipelineName = 'plSQL_5' mmHeight = 3440 mmLeft = 47378 mmTop = 265 mmWidth = 12435 BandType = 7 LayerName = Foreground3 end object ppLabel10: TppLabel DesignLayer = ppDesignLayer4 UserName = 'Label14' Border.mmPadding = 0 Caption = 'TOTAL' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 7 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3175 mmLeft = 4233 mmTop = 265 mmWidth = 7673 BandType = 7 LayerName = Foreground3 end end object raCodeModule4: TraCodeModule object raProgramInfo4: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'lbRateOnGetText' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure lbRateOnGetText(var Text: String);'#13#10'begin'#13#10#13#10' Text := ' + ' plSQL_5.getfieldvalue('#39'Tax'#39') + '#39' @ '#39' + plSQL_5.getfieldvalue('#39 + 'TaxRate'#39') ;'#13#10#13#10'end;'#13#10 raProgram.ComponentName = 'lbRate' raProgram.EventName = 'OnGetText' raProgram.EventID = 53 raProgram.CaretPos = ( 85 4) end end object ppDesignLayers4: TppDesignLayers object ppDesignLayer4: TppDesignLayer UserName = 'Foreground3' LayerType = ltBanded Index = 0 end end end end object Label16: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label16' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Authorised Signature' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3440 mmLeft = 2646 mmTop = 24855 mmWidth = 31750 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppLine8: TppLine DesignLayer = ppDesignLayer1 UserName = 'Line2' Border.mmPadding = 0 Weight = 0.750000000000000000 mmHeight = 1058 mmLeft = 2646 mmTop = 24841 mmWidth = 61913 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppVariable3: TppVariable DesignLayer = ppDesignLayer1 UserName = 'VarAmt' Border.mmPadding = 0 BlankWhenZero = False CalcOrder = 1 DataType = dtDouble Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] TextAlignment = taRightJustified Transparent = True mmHeight = 3440 mmLeft = 139442 mmTop = 1058 mmWidth = 9260 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppVariable4: TppVariable DesignLayer = ppDesignLayer1 UserName = 'VarLocalTaxAmt' Border.mmPadding = 0 BlankWhenZero = False CalcOrder = 2 DataType = dtDouble Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] TextAlignment = taRightJustified Transparent = True mmHeight = 3440 mmLeft = 152405 mmTop = 1058 mmWidth = 15875 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppVariable6: TppVariable DesignLayer = ppDesignLayer1 UserName = 'VarLocalAmtWithTax' 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 = 171466 mmTop = 1058 mmWidth = 15875 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppRichText1: TppRichText DesignLayer = ppDesignLayer1 UserName = 'RichText1' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] Border.mmPadding = 0 Caption = 'RichText1' ExportRTFAsBitmap = False MailMerge = True RichText = '{\rtf1\ansi\ansicpg1252\deff0\deflang17417{\fonttbl{\f0\fnil Tah' + 'oma;}}'#13#10'{\colortbl ;\red0\green0\blue0;}'#13#10'\viewkind4\uc1\pard\cf' + '1\f0\fs14 Notes :\par'#13#10'1. All cheques should be crossed and made' + ' payable to \b CompanyName\par'#13#10'\b0 2. Goods sold are neither returnable nor refundable.' + '\par'#13#10'}'#13#10#0 RemoveEmptyLines = False Transparent = True mmHeight = 9519 mmLeft = 3175 mmTop = 6080 mmWidth = 118275 BandType = 5 GroupNo = 0 LayerName = Foreground mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 end end end object raCodeModule1: TraCodeModule object raProgramInfo5: TraProgramInfo raClassName = 'TraVarProgram' raProgram.ChildType = 17 raProgram.ProgramName = 'Variables' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure Variables;'#13#10'var'#13#10' SQL_2, SQL_3, SQL_4, SQL_5: String' + ';'#13#10#13#10'begin'#13#10#13#10'end;'#13#10 raProgram.CaretPos = ( 25 2) end object raProgramInfo6: TraProgramInfo raClassName = 'TraProgram' raProgram.ChildType = 19 raProgram.ProgramName = 'GlobalOnCreate' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure GlobalOnCreate;'#13#10'begin'#13#10'SQL_2 := '#39'SELECT DocKey, ItemC' + 'ode, UOM, UnitPrice, FromDocNo, Disc, MIN(Seq) Seq, Description,' + #39' +'#13#10#9#9' '#39'SUM(Qty) Qty, SUM(Amount) Amount, SUM(AmountWith' + 'Tax) AmountWithTax, '#39' +'#13#10#9#9' '#39'SUM(LocalAmount) LocalAmount' + ', SUM(LocalAmountWithTax) LocalAmountWithTax, '#39'+ '#13#10' ' + ' '#39'Tax, Sum(TaxAmt) TaxAmt, Sum(LocalTaxAmt) LocalTaxAmt '#39' +'#13 + #10' '#39'FROM Document_Detail '#39' +'#13#10' '#39'GROUP BY Do' + 'cKey, ItemCode, Description, UOM, UnitPrice, Disc, Tax '#39';'#13#10' SQ' + 'L_3 := '#39'SELECT DocKey, ItemCode, Description, Description2, Desc' + 'ription3, Seq '#39'+ '#13#10#9#9#39'FROM Document_Detail '#39' +'#13#10#9#9#39'ORDER BY Seq ' + 'DESC'#39';'#13#10' SQL_4 := '#39'SELECT DocKey, ItemCode, UOM, UnitPrice, Di' + 'sc, MIN(Seq) Seq, Description, '#39' +'#13#10#9#9' '#39'SUM(Qty) Qty, SUM' + '(Amount) Amount, SUM(AmountWithTax) AmountWithTax '#39' +'#13#10' ' + ' '#39'FROM Document_Detail '#39' +'#13#10' '#39'WHERE ItemCode='#39#39'RTN' + '5Cents'#39#39' '#39' +'#13#10' '#39'GROUP BY DocKey '#39';'#13#10' SQL_5 := '#39'SEL' + 'ECT DocKey, Tax, TaxRate, Sum(LocalAmount) LocalAmount, Sum(Qty' + ') Qty, Sum(LocalTaxAmt) localTaxAmt, Description '#39'+ '#13#10#9#9' ' + #39'FROM Document_Detail '#39' +'#13#10#9#9' '#39'Where Tax <> '#39#39#39#39#39' +'#13#10#9#9' ' + ' '#39'GROUP BY Dockey, Tax, Taxrate'#39';'#13#10'end;'#13#10 raProgram.CaretPos = ( 41 20) end object raProgramInfo7: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'Variable1OnCalc' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure Variable1OnCalc(var Value: Variant);'#13#10'begin'#13#10'Value := ' + 'Document_Currency.GetFieldValue('#39'Description'#39');'#13#10'Value := Value ' + '+ '#39' : '#39' + CurrencyToEngWord(Main.GetFieldValue('#39'DocAmt'#39')) + '#39' ON' + 'LY'#39';'#13#10'end;'#13#10 raProgram.ComponentName = 'Variable1' raProgram.EventName = 'OnCalc' raProgram.EventID = 33 raProgram.CaretPos = ( 1 2) end object raProgramInfo8: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'ReportBeforePrint' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure ReportBeforePrint;'#13#10'begin '#13#10' LocalSQL_SELECT(plSQ' + 'L_2, SQL_2, '#39'DocKey;Seq'#39');'#13#10' LocalSQL_SELECT(plSQL_3, SQL_3, ' + #39'DocKey;ItemCode;Description'#39');'#13#10' LocalSQL_SELECT(plSQL_4, SQ' + 'L_4, '#39'DocKey'#39');'#13#10' LocalSQL_SELECT(plSQL_5, SQL_5, '#39'Dockey;Tax' + ';TaxRate'#39'); '#13#10' '#13#10' SetDataPipelineFieldLink(Main, plSQL_2, ' + #39'DocKey'#39', '#39'DocKey'#39');'#13#10' SetDataPipelineFieldLink(plSQL_2, plSQ' + 'L_3, '#39'DocKey;ItemCode;Description'#39', '#39'DocKey;ItemCode;Description' + #39');'#13#10' SetDataPipelineFieldLink(Main, plSQL_4, '#39'DocKey'#39', '#39'DocK' + 'ey'#39');'#13#10' SetDataPipelineFieldLink(Main, plSQL_5, '#39'DocKey'#39', '#39'Do' + 'cKey'#39'); '#13#10'end;'#13#10 raProgram.ComponentName = 'Report' raProgram.EventName = 'BeforePrint' raProgram.EventID = 1 raProgram.CaretPos = ( 56 6) end object raProgramInfo9: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'SubRptNormOnPrint' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure SubRptNormOnPrint;'#13#10'begin'#13#10' SubRptNorm.Visible:= Opti' + 'on.GetFieldValue('#39'MergeSameItemCode'#39')= False;'#13#10'end;'#13#10 raProgram.ComponentName = 'SubRptNorm' raProgram.EventName = 'OnPrint' raProgram.EventID = 32 end object raProgramInfo10: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'SubRptMergeOnPrint' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure SubRptMergeOnPrint;'#13#10'begin'#13#10' SubRptMerge.Visible:= Op' + 'tion.GetFieldValue('#39'MergeSameItemCode'#39')= True;'#13#10'end;'#13#10 raProgram.ComponentName = 'SubRptMerge' raProgram.EventName = 'OnPrint' raProgram.EventID = 32 raProgram.CaretPos = ( 3 3) end object raProgramInfo11: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'lbContinueOnPrint' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure lbContinueOnPrint;'#13#10'begin'#13#10' lbContinue.Visible:= Repo' + 'rt.PageNo < Report.PageCount;'#13#10'end;'#13#10 raProgram.ComponentName = 'lbContinue' raProgram.EventName = 'OnPrint' raProgram.EventID = 32 raProgram.CaretPos = ( 3 4) end object raProgramInfo12: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'VarLocalAmtWithTaxOnCalc' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure VarLocalAmtWithTaxOnCalc(var Value: Variant);'#13#10'begin'#13#10 + ' VarLocalAmtWithTax.DisplayFormat := Option.GetFieldValue('#39'Acco' + 'untingValueDisplayFormat'#39');'#13#10' Value := GetAggregateValue(agSUM,' + ' Document_Detail, '#39'DocKey'#39', '#39'LocalAmountWithTax'#39');'#13#10#13#10'end;'#13#10 raProgram.ComponentName = 'VarLocalAmtWithTax' raProgram.EventName = 'OnCalc' raProgram.EventID = 33 end object raProgramInfo13: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'VarLocalTaxAmtOnCalc' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure VarLocalTaxAmtOnCalc(var Value: Variant);'#13#10'begin'#13#10' Va' + 'rLocalTaxAmt.DisplayFormat := Option.GetFieldValue('#39'AccountingVa' + 'lueDisplayFormat'#39');'#13#10' Value := GetAggregateValue(agSUM, Documen' + 't_Detail, '#39'DocKey'#39', '#39'LocalTaxAmt'#39'); '#13#10#13#10'end;'#13#10 raProgram.ComponentName = 'VarLocalTaxAmt' raProgram.EventName = 'OnCalc' raProgram.EventID = 33 end object raProgramInfo14: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'VarAmtOnCalc' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure VarAmtOnCalc(var Value: Variant);'#13#10'begin'#13#10' VarAmt.Dis' + 'playFormat := Option.GetFieldValue('#39'AccountingValueDisplayFormat' + #39');'#13#10' Value := GetAggregateValue(agSUM, Document_Detail, '#39'DocKe' + 'y'#39', '#39'LocalAmount'#39'); '#13#10#13#10'end;'#13#10 raProgram.ComponentName = 'VarAmt' raProgram.EventName = 'OnCalc' raProgram.EventID = 33 end end object ppDesignLayers1: TppDesignLayers object ppDesignLayer1: TppDesignLayer UserName = 'Foreground' LayerType = ltBanded Index = 0 end end object ppParameterList1: TppParameterList end end