TdvPHPI object TppReport AutoStop = False DataPipeline = plSQL_0 NoDataBehaviors = [ndBlankReport] PassSetting = psTwoPass PrinterSetup.BinName = 'Default' PrinterSetup.DocumentName = 'SQL Financial Accounting: Sales Invoice 3 (Sales Disc) - New' PrinterSetup.Duplex = dpNone PrinterSetup.PaperName = 'Letter' PrinterSetup.PrinterName = 'Default' PrinterSetup.SaveDeviceSettings = False PrinterSetup.mmMarginBottom = 6350 PrinterSetup.mmMarginLeft = 7620 PrinterSetup.mmMarginRight = 6350 PrinterSetup.mmMarginTop = 3810 PrinterSetup.mmPaperHeight = 279401 PrinterSetup.mmPaperWidth = 215900 PrinterSetup.PaperSize = 1 Template.DatabaseSettings.Name = '44 Tax Invoice with Summary' 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 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 = feAnsi PDFSettings.ImageCompressionLevel = 25 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.Subject = 'Report' XLSSettings.Title = 'Report' XLSSettings.WorksheetName = 'Report' Version = '17.02' mmColumnWidth = 0 DataPipelineName = 'plSQL_0' object ppHeaderBand2: TppHeaderBand Background.Brush.Style = bsClear PrintHeight = phDynamic mmBottomOffset = 0 mmHeight = 81227 mmPrintPosition = 0 object Shape1: TppShape DesignLayer = ppDesignLayer1 UserName = 'Shape1' Visible = False mmHeight = 33070 mmLeft = 3440 mmTop = 37567 mmWidth = 107686 BandType = 0 LayerName = Foreground end object ppLine1: TppLine DesignLayer = ppDesignLayer1 UserName = 'Line1' Border.Weight = 1.000000000000000000 Position = lpLeft Weight = 0.750000000000000000 mmHeight = 5821 mmLeft = 3440 mmTop = 66141 mmWidth = 1588 BandType = 0 LayerName = Foreground end object DBImage1: TppDBImage DesignLayer = ppDesignLayer1 UserName = 'DBImage1' AlignHorizontal = ahCenter AlignVertical = avCenter MaintainAspectRatio = False Stretch = True Border.Weight = 1.000000000000000000 DataField = 'Logo' DataPipeline = Profile GraphicType = 'Bitmap' ParentDataPipeline = False DataPipelineName = 'Profile' mmHeight = 25400 mmLeft = 794 mmTop = 0 mmWidth = 25400 BandType = 0 LayerName = Foreground end object Line1: TppLine DesignLayer = ppDesignLayer1 UserName = 'Line2' Border.Weight = 1.000000000000000000 ParentWidth = True Weight = 0.750000000000000000 mmHeight = 1323 mmLeft = 0 mmTop = 30426 mmWidth = 201930 BandType = 0 LayerName = Foreground end object DBText1: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText1' HyperlinkEnabled = False AutoSize = True Border.Weight = 1.000000000000000000 DataField = 'DocNo' DataPipeline = plSQL_0 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 12 Font.Style = [fsBold] ParentDataPipeline = False Transparent = True DataPipelineName = 'plSQL_0' mmHeight = 5027 mmLeft = 152929 mmTop = 32548 mmWidth = 13759 BandType = 0 LayerName = Foreground end object Label2: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label2' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Caption = 'Tax Invoice' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 12 Font.Style = [fsBold] Transparent = True mmHeight = 5027 mmLeft = 123820 mmTop = 32548 mmWidth = 25136 BandType = 0 LayerName = Foreground end object DBText2: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText2' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 DataField = 'Address2' DataPipeline = plSQL_0 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'plSQL_0' mmHeight = 4233 mmLeft = 6085 mmTop = 47356 mmWidth = 101600 BandType = 0 LayerName = Foreground end object DBText3: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText3' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 DataField = 'Address3' DataPipeline = plSQL_0 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'plSQL_0' mmHeight = 4233 mmLeft = 6085 mmTop = 51853 mmWidth = 101600 BandType = 0 LayerName = Foreground end object DBText4: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText4' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 DataField = 'CompanyName' DataPipeline = plSQL_0 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'plSQL_0' mmHeight = 4233 mmLeft = 6085 mmTop = 38361 mmWidth = 101600 BandType = 0 LayerName = Foreground end object DBText5: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText5' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 DataField = 'Address4' DataPipeline = plSQL_0 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'plSQL_0' mmHeight = 4233 mmLeft = 6085 mmTop = 56351 mmWidth = 101600 BandType = 0 LayerName = Foreground end object Line2: TppLine DesignLayer = ppDesignLayer1 UserName = 'Line3' Border.Weight = 1.000000000000000000 Position = lpLeft Weight = 0.750000000000000000 mmHeight = 5821 mmLeft = 3440 mmTop = 37567 mmWidth = 7938 BandType = 0 LayerName = Foreground end object Line3: TppLine DesignLayer = ppDesignLayer1 UserName = 'Line4' Border.Weight = 1.000000000000000000 Weight = 0.750000000000000000 mmHeight = 3969 mmLeft = 3704 mmTop = 37567 mmWidth = 7673 BandType = 0 LayerName = Foreground end object Line4: TppLine DesignLayer = ppDesignLayer1 UserName = 'Line5' Border.Weight = 1.000000000000000000 Weight = 0.750000000000000000 mmHeight = 1323 mmLeft = 3440 mmTop = 71697 mmWidth = 7673 BandType = 0 LayerName = Foreground end object DBText6: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText6' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 DataField = 'Attention' DataPipeline = plSQL_0 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'plSQL_0' mmHeight = 4233 mmLeft = 15875 mmTop = 60848 mmWidth = 91811 BandType = 0 LayerName = Foreground end object ppLine2: TppLine DesignLayer = ppDesignLayer1 UserName = 'Line8' Border.Weight = 1.000000000000000000 Weight = 0.750000000000000000 mmHeight = 1852 mmLeft = 102129 mmTop = 37567 mmWidth = 8996 BandType = 0 LayerName = Foreground end object ppLine3: TppLine DesignLayer = ppDesignLayer1 UserName = 'Line6' Border.Weight = 1.000000000000000000 Position = lpLeft Weight = 0.750000000000000000 mmHeight = 5821 mmLeft = 110861 mmTop = 37567 mmWidth = 1852 BandType = 0 LayerName = Foreground end object Line8: TppLine DesignLayer = ppDesignLayer1 UserName = 'Line7' Border.Weight = 1.000000000000000000 Weight = 0.750000000000000000 mmHeight = 1058 mmLeft = 102129 mmTop = 70372 mmWidth = 8996 BandType = 0 LayerName = Foreground end object Line9: TppLine DesignLayer = ppDesignLayer1 UserName = 'Line9' Border.Weight = 1.000000000000000000 Position = lpLeft Weight = 0.750000000000000000 mmHeight = 6615 mmLeft = 110861 mmTop = 64022 mmWidth = 4498 BandType = 0 LayerName = Foreground end object Label3: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label3' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Caption = 'Your Ref.' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [] Transparent = True mmHeight = 4233 mmLeft = 123820 mmTop = 39155 mmWidth = 14478 BandType = 0 LayerName = Foreground end object Label4: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label4' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Caption = 'Our D/O No' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [] Transparent = True mmHeight = 4233 mmLeft = 123820 mmTop = 45240 mmWidth = 18373 BandType = 0 LayerName = Foreground end object Label5: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label5' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Caption = 'Terms' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [] Transparent = True mmHeight = 4233 mmLeft = 123820 mmTop = 51326 mmWidth = 9694 BandType = 0 LayerName = Foreground end object Label6: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label6' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Caption = 'Date ' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [] Transparent = True mmHeight = 4233 mmLeft = 123820 mmTop = 57676 mmWidth = 8382 BandType = 0 LayerName = Foreground end object DBText8: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText8' HyperlinkEnabled = False AutoSize = True Border.Weight = 1.000000000000000000 DataField = 'FromDocNo' DataPipeline = plSQL_0 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'plSQL_0' mmHeight = 4233 mmLeft = 152929 mmTop = 45240 mmWidth = 21040 BandType = 0 LayerName = Foreground end object DBText9: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText9' HyperlinkEnabled = False AutoSize = True Border.Weight = 1.000000000000000000 DataField = 'Terms' DataPipeline = plSQL_0 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'plSQL_0' mmHeight = 4233 mmLeft = 152929 mmTop = 51326 mmWidth = 10880 BandType = 0 LayerName = Foreground end object DBText10: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText10' HyperlinkEnabled = False AutoSize = True Border.Weight = 1.000000000000000000 DataField = 'DocDate' DataPipeline = plSQL_0 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'plSQL_0' mmHeight = 4233 mmLeft = 152929 mmTop = 57676 mmWidth = 15494 BandType = 0 LayerName = Foreground end object Line11: TppLine DesignLayer = ppDesignLayer1 UserName = 'Line11' Border.Weight = 1.000000000000000000 ParentWidth = True Position = lpBottom Weight = 0.750000000000000000 mmHeight = 1852 mmLeft = 0 mmTop = 79099 mmWidth = 201930 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 ExportRTFAsBitmap = False DataField = 'Note' DataPipeline = Profile ParentDataPipeline = False RemoveEmptyLines = False DataPipelineName = 'Profile' mmHeight = 29374 mmLeft = 26459 mmTop = 0 mmWidth = 144780 BandType = 0 LayerName = Foreground mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 mmLeftMargin = 794 end object Label20: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label20' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Caption = 'Page' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [] Transparent = True mmHeight = 4233 mmLeft = 123820 mmTop = 63761 mmWidth = 7620 BandType = 0 LayerName = Foreground end object Label23: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label23' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Caption = ':' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [] TextAlignment = taRightJustified Transparent = True mmHeight = 4233 mmLeft = 150114 mmTop = 63761 mmWidth = 1228 BandType = 0 LayerName = Foreground end object Label24: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label24' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Caption = ':' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [] TextAlignment = taRightJustified Transparent = True mmHeight = 4233 mmLeft = 150114 mmTop = 39155 mmWidth = 1228 BandType = 0 LayerName = Foreground end object Label25: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label25' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Caption = ':' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [] TextAlignment = taRightJustified Transparent = True mmHeight = 4233 mmLeft = 150114 mmTop = 57676 mmWidth = 1228 BandType = 0 LayerName = Foreground end object Label26: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label26' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Caption = ':' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [] TextAlignment = taRightJustified Transparent = True mmHeight = 4233 mmLeft = 150114 mmTop = 51326 mmWidth = 1228 BandType = 0 LayerName = Foreground end object Label27: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label27' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Caption = ':' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [] TextAlignment = taRightJustified Transparent = True mmHeight = 4233 mmLeft = 150114 mmTop = 45240 mmWidth = 1228 BandType = 0 LayerName = Foreground end object Label28: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label28' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Caption = ':' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 12 Font.Style = [fsBold] TextAlignment = taRightJustified Transparent = True mmHeight = 5027 mmLeft = 149754 mmTop = 32548 mmWidth = 1588 BandType = 0 LayerName = Foreground end object DBText12: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText12' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 DataField = 'Address1' DataPipeline = plSQL_0 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'plSQL_0' mmHeight = 4233 mmLeft = 6085 mmTop = 42858 mmWidth = 101600 BandType = 0 LayerName = Foreground end object Label12: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label12' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Caption = 'TEL :' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [] Transparent = True mmHeight = 4233 mmLeft = 6085 mmTop = 65346 mmWidth = 8086 BandType = 0 LayerName = Foreground end object Label17: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label17' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Caption = 'FAX :' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [] Transparent = True mmHeight = 4233 mmLeft = 60590 mmTop = 65346 mmWidth = 8297 BandType = 0 LayerName = Foreground end object DBText17: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText7' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 DataField = 'Phone1' DataPipeline = plSQL_0 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'plSQL_0' mmHeight = 4233 mmLeft = 15081 mmTop = 65346 mmWidth = 41275 BandType = 0 LayerName = Foreground end object DBText18: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText18' HyperlinkEnabled = False AutoSize = True Border.Weight = 1.000000000000000000 DataField = 'Fax1' DataPipeline = plSQL_0 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'plSQL_0' mmHeight = 4233 mmLeft = 70379 mmTop = 65346 mmWidth = 7874 BandType = 0 LayerName = Foreground end object DBText7: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText11' HyperlinkEnabled = False AutoSize = True Border.Weight = 1.000000000000000000 DataField = 'DocRef1' DataPipeline = plSQL_0 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'plSQL_0' mmHeight = 4233 mmLeft = 152929 mmTop = 39155 mmWidth = 14901 BandType = 0 LayerName = Foreground end object ppLabel1: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label7' HyperlinkEnabled = False AutoSize = False Border.Weight = 1.000000000000000000 Caption = 'No' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] TextAlignment = taCentered Transparent = True mmHeight = 3810 mmLeft = 794 mmTop = 76188 mmWidth = 12171 BandType = 0 LayerName = Foreground end object Label31: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label31' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Caption = 'Description' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] Transparent = True mmHeight = 3810 mmLeft = 42069 mmTop = 76188 mmWidth = 15579 BandType = 0 LayerName = Foreground end object Label33: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label33' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Caption = 'Qty' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] Transparent = True mmHeight = 3810 mmLeft = 130704 mmTop = 76188 mmWidth = 4868 BandType = 0 LayerName = Foreground end object Label35: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label35' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Caption = 'Item Code' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] Transparent = True mmHeight = 3810 mmLeft = 13229 mmTop = 76188 mmWidth = 14563 BandType = 0 LayerName = Foreground end object Label39: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label39' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Caption = 'Price/Unit' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] TextAlignment = taRightJustified Transparent = True mmHeight = 3810 mmLeft = 146749 mmTop = 76188 mmWidth = 13589 BandType = 0 LayerName = Foreground end object Label41: TppLabel DesignLayer = ppDesignLayer1 UserName = 'lbAmt' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Caption = 'Amount' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] TextAlignment = taRightJustified Transparent = True mmHeight = 3810 mmLeft = 183367 mmTop = 75923 mmWidth = 10922 BandType = 0 LayerName = Foreground end object ppLine4: TppLine DesignLayer = ppDesignLayer1 UserName = 'Line10' Border.Weight = 1.000000000000000000 ParentWidth = True Weight = 0.750000000000000000 mmHeight = 2117 mmLeft = 0 mmTop = 74601 mmWidth = 201930 BandType = 0 LayerName = Foreground end object ppSystemVariable1: TppSystemVariable DesignLayer = ppDesignLayer1 UserName = 'SystemVariable1' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 VarType = vtPageSet Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [] Transparent = True mmHeight = 4233 mmLeft = 152929 mmTop = 63761 mmWidth = 9017 BandType = 0 LayerName = Foreground end object ppLabel2: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label8' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Caption = 'Attn :' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [] Transparent = True mmHeight = 4233 mmLeft = 6085 mmTop = 60848 mmWidth = 8731 BandType = 0 LayerName = Foreground end object ppDBText4: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText14' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 DataPipeline = plSQL_5 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'plSQL_5' mmHeight = 3704 mmLeft = 175684 mmTop = 21696 mmWidth = 17198 BandType = 0 LayerName = Foreground end object ppDBText10: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText15' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 DataPipeline = plSQL_1 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'plSQL_1' mmHeight = 3704 mmLeft = 175684 mmTop = 1852 mmWidth = 17198 BandType = 0 LayerName = Foreground end object ppDBText14: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText16' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 DataPipeline = plSQL_2 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'plSQL_2' mmHeight = 3704 mmLeft = 175684 mmTop = 6615 mmWidth = 17198 BandType = 0 LayerName = Foreground end object ppDBText3: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText19' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 DataPipeline = plSQL_3 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'plSQL_3' mmHeight = 3704 mmLeft = 175684 mmTop = 11906 mmWidth = 17198 BandType = 0 LayerName = Foreground end object ppDBText6: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText20' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 DataPipeline = plSQL_4 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'plSQL_4' mmHeight = 3704 mmLeft = 175684 mmTop = 16669 mmWidth = 17198 BandType = 0 LayerName = Foreground end end object ppDetailBand2: TppDetailBand Background1.Brush.Style = bsClear Background2.Brush.Style = bsClear PrintHeight = phDynamic mmBottomOffset = 0 mmHeight = 12700 mmPrintPosition = 0 object ppVariable5: TppVariable DesignLayer = ppDesignLayer1 UserName = 'VarSubTotal' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 BlankWhenZero = False CalcOrder = 0 DataType = dtCurrency DisplayFormat = '#,0.00;-#,0.00;-' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] TextAlignment = taRightJustified Transparent = True Visible = False mmHeight = 3810 mmLeft = 177271 mmTop = 794 mmWidth = 17018 BandType = 4 LayerName = Foreground end object ppDBText8: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBTxtUPrice' HyperlinkEnabled = False BlankWhenZero = True Border.Weight = 1.000000000000000000 DataField = 'UnitPrice' DataPipeline = plSQL_0 DisplayFormat = '#,0.00000;-#,0.00;0' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] ParentDataPipeline = False TextAlignment = taRightJustified Transparent = True Visible = False DataPipelineName = 'plSQL_0' mmHeight = 3810 mmLeft = 145257 mmTop = 794 mmWidth = 15081 BandType = 4 LayerName = Foreground end object ppDBMemo2: TppDBMemo DesignLayer = ppDesignLayer1 UserName = 'DBMmDesc' Border.Weight = 1.000000000000000000 CharWrap = False DataField = 'DESCRIPTION_1' DataPipeline = plSQL_0 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] ParentDataPipeline = False RemoveEmptyLines = False Stretch = True Visible = False DataPipelineName = 'plSQL_0' mmHeight = 4233 mmLeft = 42069 mmTop = 794 mmWidth = 78846 BandType = 4 LayerName = Foreground mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 mmLeading = 0 end object ppDBText9: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBTxtQty' HyperlinkEnabled = False BlankWhenZero = True Border.Weight = 1.000000000000000000 DataField = 'Qty' DataPipeline = plSQL_0 DisplayFormat = '#,0.00;-#,0.00' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] ParentDataPipeline = False TextAlignment = taRightJustified Transparent = True Visible = False DataPipelineName = 'plSQL_0' mmHeight = 3810 mmLeft = 120915 mmTop = 794 mmWidth = 13758 BandType = 4 LayerName = Foreground end object ppDBText11: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBTxtUOM' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 DataField = 'UOM' DataPipeline = plSQL_0 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] Transparent = True Visible = False DataPipelineName = 'plSQL_0' mmHeight = 3810 mmLeft = 135996 mmTop = 794 mmWidth = 8996 BandType = 4 LayerName = Foreground end object ppDBCalc2: TppDBCalc DesignLayer = ppDesignLayer1 UserName = 'DBCalcNo' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 DataField = 'Number' DataPipeline = plSQL_0 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] ResetGroup = ppGroup1 TextAlignment = taCentered Transparent = True Visible = False DBCalcType = dcCount DataPipelineName = 'plSQL_0' mmHeight = 3810 mmLeft = 2910 mmTop = 794 mmWidth = 12171 BandType = 4 LayerName = Foreground end object ppDBText13: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBTxtItemCode' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 DataField = 'ItemCode' DataPipeline = plSQL_0 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] Transparent = True Visible = False DataPipelineName = 'plSQL_0' mmHeight = 3810 mmLeft = 15081 mmTop = 794 mmWidth = 25400 BandType = 4 LayerName = Foreground end object ppRichText1: TppRichText DesignLayer = ppDesignLayer1 UserName = 'RTDesc3' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] Border.Weight = 1.000000000000000000 Caption = 'RTDesc3' ExportRTFAsBitmap = False RemoveEmptyLines = False ShiftRelativeTo = ppDBMemo2 Stretch = True Visible = False mmHeight = 2381 mmLeft = 42069 mmTop = 4763 mmWidth = 78846 BandType = 4 LayerName = Foreground mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 mmLeftMargin = 794 end object ppSubReport3: TppSubReport DesignLayer = ppDesignLayer1 UserName = 'SubReport1' ExpandAll = False NewPrintJob = False OutlineSettings.CreateNode = True ShiftRelativeTo = ppRichText1 TraverseAllData = False DataPipelineName = 'plSQL_6' mmHeight = 5027 mmLeft = 0 mmTop = 7673 mmWidth = 201930 BandType = 4 LayerName = Foreground mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 object ppChildReport3: TppChildReport AutoStop = False DataPipeline = plSQL_6 PrinterSetup.BinName = 'Default' PrinterSetup.DocumentName = 'SQL Financial Accounting: Sales Invoice 3 (Simple)' PrinterSetup.Duplex = dpNone PrinterSetup.PaperName = 'Letter' PrinterSetup.PrinterName = 'Default' PrinterSetup.SaveDeviceSettings = False PrinterSetup.mmMarginBottom = 6350 PrinterSetup.mmMarginLeft = 7620 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 = '17.02' mmColumnWidth = 0 DataPipelineName = 'plSQL_6' object ppDetailBand4: TppDetailBand Background1.Brush.Style = bsClear Background2.Brush.Style = bsClear mmBottomOffset = 0 mmHeight = 0 mmPrintPosition = 0 end object ppSummaryBand1: TppSummaryBand Background.Brush.Style = bsClear PrintHeight = phDynamic mmBottomOffset = 0 mmHeight = 5027 mmPrintPosition = 0 object ppVariable8: TppVariable DesignLayer = ppDesignLayer3 UserName = 'vSerialNo' HyperlinkEnabled = False 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 = Foreground1 end object ppMemo1: TppMemo DesignLayer = ppDesignLayer3 UserName = 'Memo1' 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 = 42070 mmTop = 0 mmWidth = 113771 BandType = 7 LayerName = Foreground1 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 mmLeading = 0 end end object raCodeModule4: TraCodeModule object raProgramInfo1: 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 := plSQL_6.GetFieldValue('#39'SerialNumber'#39') e' + 'lse'#13#10' vSerialNo.Value := vSerialNo.Value + '#39', '#39' + plSQL_6.Get' + 'FieldValue('#39'SerialNumber'#39');'#13#10' Memo1.Lines.Text := '#39'Serial No:-' + ' '#39' + vSerialNo.Value;'#13#10'end;'#13#10 raProgram.ComponentName = 'Detail' raProgram.EventName = 'BeforeGenerate' raProgram.EventID = 26 raProgram.CaretPos = ( 57 5) end end object ppDesignLayers2: TppDesignLayers object ppDesignLayer3: TppDesignLayer UserName = 'Foreground1' LayerType = ltBanded Index = 0 end end end end end object ppFooterBand3: TppFooterBand Visible = False Background.Brush.Style = bsClear mmBottomOffset = 0 mmHeight = 6350 mmPrintPosition = 0 end object ppPageStyle1: TppPageStyle Background.Brush.Style = bsClear EndPage = 0 SinglePage = 0 StartPage = 0 mmBottomOffset = 0 mmHeight = 269241 mmPrintPosition = 0 object ppLabel11: TppLabel DesignLayer = ppDesignLayer2 UserName = 'Label13' Caption = 'Duplicate Copy' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 12 Font.Style = [fsBold] Transparent = True Visible = False mmHeight = 5027 mmLeft = 84931 mmTop = 32544 mmWidth = 32279 BandType = 10 LayerName = DuplicateCopy end end object ppGroup1: TppGroup BreakName = 'DOCKEY' DataPipeline = plSQL_0 GroupFileSettings.NewFile = False GroupFileSettings.EmailFile = False OutlineSettings.CreateNode = True NewPage = True ResetPageNo = True StartOnOddPage = False UserName = 'Group1' mmNewColumnThreshold = 0 mmNewPageThreshold = 0 DataPipelineName = 'plSQL_0' NewFile = False object ppGroupHeaderBand1: TppGroupHeaderBand Background.Brush.Style = bsClear mmBottomOffset = 0 mmHeight = 0 mmPrintPosition = 0 end object ppGroupFooterBand1: TppGroupFooterBand Background.Brush.Style = bsClear PrintHeight = phDynamic HideWhenOneDetail = False mmBottomOffset = 0 mmHeight = 56622 mmPrintPosition = 203200 object ppVariable7: TppVariable DesignLayer = ppDesignLayer1 UserName = 'VarDisc' HyperlinkEnabled = False AutoSize = False Border.Weight = 1.000000000000000000 BlankWhenZero = False CalcOrder = 2 DataType = dtCurrency Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] ResetComponent = ppGroup1 ResetType = veGroupEnd TextAlignment = taRightJustified Transparent = True Visible = False mmHeight = 3704 mmLeft = 163248 mmTop = 7144 mmWidth = 10319 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppShape1: TppShape DesignLayer = ppDesignLayer1 UserName = 'Shape2' mmHeight = 10311 mmLeft = 159279 mmTop = 1852 mmWidth = 33602 BandType = 5 GroupNo = 0 LayerName = Foreground end object Shape3: TppShape DesignLayer = ppDesignLayer1 UserName = 'Shape3' mmHeight = 5556 mmLeft = 159279 mmTop = 22764 mmWidth = 33602 BandType = 5 GroupNo = 0 LayerName = Foreground end object Label16: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label16' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Caption = 'Authorised Signature' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [fsBold] Transparent = True mmHeight = 3810 mmLeft = 10319 mmTop = 51222 mmWidth = 33909 BandType = 5 GroupNo = 0 LayerName = Foreground end object Line12: TppLine DesignLayer = ppDesignLayer1 UserName = 'Line12' Border.Weight = 1.000000000000000000 Weight = 0.750000000000000000 mmHeight = 265 mmLeft = 1323 mmTop = 50003 mmWidth = 60590 BandType = 5 GroupNo = 0 LayerName = Foreground end object Line14: TppLine DesignLayer = ppDesignLayer1 UserName = 'Line14' Border.Weight = 1.000000000000000000 ParentWidth = True Weight = 0.750000000000000000 mmHeight = 1323 mmLeft = 0 mmTop = 529 mmWidth = 201930 BandType = 5 GroupNo = 0 LayerName = Foreground end object DBText21: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText21' HyperlinkEnabled = False AutoSize = True Border.Weight = 1.000000000000000000 DataField = 'CompanyName' DataPipeline = Profile Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Profile' mmHeight = 3429 mmLeft = 5556 mmTop = 18518 mmWidth = 19727 BandType = 5 GroupNo = 0 LayerName = Foreground end object Memo3: TppMemo DesignLayer = ppDesignLayer1 UserName = 'Memo3' Border.Weight = 1.000000000000000000 Caption = 'Memo3' CharWrap = False Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] Lines.Strings = ( '2. Goods sold are neither returnable nor refundable.') RemoveEmptyLines = False Transparent = True mmHeight = 8467 mmLeft = 2646 mmTop = 22222 mmWidth = 85990 BandType = 5 GroupNo = 0 LayerName = Foreground mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 mmLeading = 0 end object ppVariable2: TppVariable DesignLayer = ppDesignLayer1 UserName = 'Variable1' HyperlinkEnabled = False AutoSize = False Border.Weight = 1.000000000000000000 BlankWhenZero = False CalcOrder = 1 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] Transparent = True WordWrap = True mmHeight = 8728 mmLeft = 2646 mmTop = 2381 mmWidth = 131498 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppVariable4: TppVariable DesignLayer = ppDesignLayer1 UserName = 'VarTotal' HyperlinkEnabled = False AutoSize = False Border.Weight = 1.000000000000000000 BlankWhenZero = False CalcOrder = 0 DataType = dtDouble DisplayFormat = '#,0.00;-#,0.00;-' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [fsBold] ResetComponent = ppGroup1 ResetType = veGroupEnd TextAlignment = taRightJustified Transparent = True mmHeight = 3704 mmLeft = 160338 mmTop = 2646 mmWidth = 31750 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppDBText5: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText13' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 DataField = 'DocAmt' DataPipeline = plSQL_0 DisplayFormat = '#,0.00;-#,0.00;-' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [fsBold] TextAlignment = taRightJustified Transparent = True DataPipelineName = 'plSQL_0' mmHeight = 4233 mmLeft = 160073 mmTop = 23293 mmWidth = 32015 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppLabel4: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label9' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Caption = 'Gross :' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [fsBold] TextAlignment = taRightJustified Transparent = True mmHeight = 4233 mmLeft = 144463 mmTop = 2117 mmWidth = 11907 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppLabel5: TppLabel DesignLayer = ppDesignLayer1 UserName = 'lbDisc' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Caption = 'lbDisc' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [] TextAlignment = taRightJustified Transparent = True mmHeight = 4233 mmLeft = 147639 mmTop = 6615 mmWidth = 8731 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppDBText12: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBTxtTax' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 DataField = 'TaxAmt' DataPipeline = plSQL_1 DisplayFormat = '#,0.00;-#,0.00;-' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] ParentDataPipeline = False TextAlignment = taRightJustified Transparent = True DataPipelineName = 'plSQL_1' mmHeight = 3704 mmLeft = 160338 mmTop = 17736 mmWidth = 31750 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppVariable3: TppVariable DesignLayer = ppDesignLayer1 UserName = 'VarDisc1' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 BlankWhenZero = False CalcOrder = 3 DataType = dtCurrency Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] ResetComponent = ppGroup1 ResetType = veGroupEnd TextAlignment = taRightJustified Transparent = True mmHeight = 3704 mmLeft = 179917 mmTop = 7144 mmWidth = 12171 BandType = 5 GroupNo = 0 LayerName = Foreground end object Memo2: TppMemo DesignLayer = ppDesignLayer1 UserName = 'Memo2' Border.Weight = 1.000000000000000000 Caption = 'Memo2' CharWrap = False Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] Lines.Strings = ( 'Notes :' '1. All cheques should be crossed and made payable to ') RemoveEmptyLines = False Transparent = True mmHeight = 7673 mmLeft = 2646 mmTop = 10846 mmWidth = 88106 BandType = 5 GroupNo = 0 LayerName = Foreground mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 mmLeading = 0 end object ppVariable1: TppVariable DesignLayer = ppDesignLayer1 UserName = 'VarTExclGST' BlankWhenZero = False CalcOrder = 4 DataType = dtDouble Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] TextAlignment = taRightJustified Transparent = True mmHeight = 3704 mmLeft = 173567 mmTop = 12965 mmWidth = 18521 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppShape2: TppShape DesignLayer = ppDesignLayer1 UserName = 'Shape4' Brush.Style = bsClear mmHeight = 16668 mmLeft = 127529 mmTop = 11643 mmWidth = 30956 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppDBText1: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBTxtTax1' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 DataField = 'LocalTaxAmt' DataPipeline = plSQL_1 DisplayFormat = '#,0.00;-#,0.00;-' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] ParentDataPipeline = False TextAlignment = taRightJustified Transparent = True DataPipelineName = 'plSQL_1' mmHeight = 3704 mmLeft = 125942 mmTop = 17727 mmWidth = 31750 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppDBText2: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText17' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 DataField = 'LocalDocAmt' DataPipeline = plSQL_0 DisplayFormat = '#,0.00;-#,0.00;-' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [fsBold] TextAlignment = taRightJustified Transparent = True DataPipelineName = 'plSQL_0' mmHeight = 4233 mmLeft = 125942 mmTop = 23283 mmWidth = 32015 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppVariable6: TppVariable DesignLayer = ppDesignLayer1 UserName = 'VarTExclGST1' BlankWhenZero = False CalcOrder = 5 DataType = dtDouble Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] TextAlignment = taRightJustified Transparent = True mmHeight = 3704 mmLeft = 139171 mmTop = 12965 mmWidth = 18521 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppLine6: TppLine DesignLayer = ppDesignLayer1 UserName = 'Line15' Weight = 0.750000000000000000 mmHeight = 1584 mmLeft = 127529 mmTop = 22488 mmWidth = 30956 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppRegion1: TppRegion DesignLayer = ppDesignLayer1 UserName = 'RegGST' Caption = 'RegGST' mmHeight = 16685 mmLeft = 73819 mmTop = 11643 mmWidth = 53446 BandType = 5 GroupNo = 0 LayerName = Foreground mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 object ppLabel3: TppLabel DesignLayer = ppDesignLayer1 UserName = 'lbPayable' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Caption = 'lbPayable' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [fsBold] TextAlignment = taRightJustified Transparent = True mmHeight = 4234 mmLeft = 110085 mmTop = 23283 mmWidth = 16404 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppLabel6: TppLabel DesignLayer = ppDesignLayer1 UserName = 'lbTaxAmt' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Caption = '+ GST Amt @ 6%:' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] TextAlignment = taRightJustified Transparent = True mmHeight = 3704 mmLeft = 97914 mmTop = 17727 mmWidth = 28575 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppLabel7: TppLabel DesignLayer = ppDesignLayer1 UserName = 'lbExtGST' Caption = 'Total Excl. GST :' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] TextAlignment = taRightJustified Transparent = True mmHeight = 3704 mmLeft = 102147 mmTop = 12965 mmWidth = 24342 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppLine5: TppLine DesignLayer = ppDesignLayer1 UserName = 'Line13' ParentWidth = True Weight = 0.750000000000000000 mmHeight = 1319 mmLeft = 73819 mmTop = 22488 mmWidth = 53446 BandType = 5 GroupNo = 0 LayerName = Foreground end end object ppSubReport1: TppSubReport DesignLayer = ppDesignLayer1 UserName = 'SubReport2' ExpandAll = False NewPrintJob = False OutlineSettings.CreateNode = True ParentPrinterSetup = False ParentWidth = False TraverseAllData = False DataPipelineName = 'plSQL_7' mmHeight = 3704 mmLeft = 104246 mmTop = 31485 mmWidth = 57415 BandType = 5 GroupNo = 0 LayerName = Foreground mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 object ppChildReport1: TppChildReport AutoStop = False DataPipeline = plSQL_7 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 = 121 Template.DatabaseSettings.NameField = 'Name' Template.DatabaseSettings.TemplateField = 'Template' Template.SaveTo = stDatabase Template.Format = ftASCII Version = '17.02' mmColumnWidth = 0 DataPipelineName = 'plSQL_7' object ppTitleBand3: TppTitleBand Background.Brush.Style = bsClear mmBottomOffset = 0 mmHeight = 6085 mmPrintPosition = 0 object ppShape4: TppShape DesignLayer = ppDesignLayer4 UserName = 'Shape1' Pen.Style = psDot mmHeight = 6339 mmLeft = 2646 mmTop = 0 mmWidth = 49587 BandType = 1 LayerName = Foreground3 end object ppMemo3: TppMemo DesignLayer = ppDesignLayer4 UserName = 'Memo3' 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 = 22291 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' 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 = 42684 mmTop = 0 mmWidth = 8731 BandType = 1 LayerName = Foreground3 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 mmLeading = 0 end object ppMemo2: TppMemo DesignLayer = ppDesignLayer4 UserName = 'Memo1' Caption = 'Memo1' CharWrap = False Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 7 Font.Style = [] Lines.Strings = ( 'GST' '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 ppDetailBand1: TppDetailBand Background1.Brush.Style = bsClear Background2.Brush.Style = bsClear mmBottomOffset = 0 mmHeight = 3440 mmPrintPosition = 0 object ppShape5: TppShape DesignLayer = ppDesignLayer4 UserName = 'Shape2' Pen.Style = psDot mmHeight = 3695 mmLeft = 2649 mmTop = 8 mmWidth = 49589 BandType = 4 LayerName = Foreground3 end object ppDBText20: TppDBText DesignLayer = ppDesignLayer4 UserName = 'DBText20' DataField = 'LocalAmount' DataPipeline = plSQL_7 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_7' mmHeight = 3173 mmLeft = 18058 mmTop = 265 mmWidth = 17198 BandType = 4 LayerName = Foreground3 end object ppDBText21: TppDBText DesignLayer = ppDesignLayer4 UserName = 'DBText201' DataField = 'LocalTaxAmt' DataPipeline = plSQL_7 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_7' mmHeight = 3173 mmLeft = 38980 mmTop = 265 mmWidth = 12435 BandType = 4 LayerName = Foreground3 end object ppLabel13: TppLabel DesignLayer = ppDesignLayer4 UserName = 'lbRate' Caption = 'lbRate' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 7 Font.Style = [] Transparent = True mmHeight = 3175 mmLeft = 4233 mmTop = 265 mmWidth = 7144 BandType = 4 LayerName = Foreground3 end end object ppSummaryBand4: TppSummaryBand Background.Brush.Style = bsClear mmBottomOffset = 0 mmHeight = 3440 mmPrintPosition = 0 object ppShape6: TppShape DesignLayer = ppDesignLayer4 UserName = 'Shape3' Pen.Style = psDot mmHeight = 3702 mmLeft = 2649 mmTop = 0 mmWidth = 49589 BandType = 7 LayerName = Foreground3 end object ppDBCalc1: TppDBCalc DesignLayer = ppDesignLayer4 UserName = 'DBCalc1' DataField = 'LocalAmount' DataPipeline = plSQL_7 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_7' mmHeight = 3440 mmLeft = 16471 mmTop = 265 mmWidth = 18785 BandType = 7 LayerName = Foreground3 end object ppDBCalc3: TppDBCalc DesignLayer = ppDesignLayer4 UserName = 'DBCalc2' DataField = 'LocalTaxAmt' DataPipeline = plSQL_7 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_7' mmHeight = 3440 mmLeft = 38980 mmTop = 265 mmWidth = 12435 BandType = 7 LayerName = Foreground3 end object ppLabel10: TppLabel DesignLayer = ppDesignLayer4 UserName = 'Label14' Caption = 'TOTAL' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 7 Font.Style = [] Transparent = True mmHeight = 3175 mmLeft = 4233 mmTop = 265 mmWidth = 7673 BandType = 7 LayerName = Foreground3 end end object raCodeModule2: TraCodeModule object raProgramInfo2: 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_7.getfieldvalue('#39'Tax'#39') + '#39' @ '#39' + plSQL_7.getfieldvalue(' + #39'TaxRate'#39') ;'#13#10#13#10'end;'#13#10 raProgram.ComponentName = 'lbRate' raProgram.EventName = 'OnGetText' raProgram.EventID = 53 raProgram.CaretPos = ( 1 2) end end object ppDesignLayers4: TppDesignLayers object ppDesignLayer4: TppDesignLayer UserName = 'Foreground3' LayerType = ltBanded Index = 0 end end end 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_0, SQL_1, SQL_2, SQL_3, SQL_4,' + ' SQL_5, SQL_6, SQL_7 : String;'#13#10#13#10'begin'#13#10#13#10'end;'#13#10 raProgram.CaretPos = ( 58 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_0 := '#39'SELECT A.*, B.* FR' + 'OM MAIN A '#39' +'#13#10' '#9#9' '#39'INNER JOIN Document_Detail B ON (A.Dock' + 'ey=B.Dockey) '#39'+'#13#10' '#9#9' '#39'ORDER BY A.DocDate,A.DocNo,B.Seq'#39';'#13#10' ' + ' SQL_1 := '#39'SELECT DocKey, Sum(TaxAmt) TaxAmt, Sum(LocalTaxAmt) L' + 'ocalTaxAmt '#39'+ '#13#10#9#9' '#39'FROM Document_Detail '#39' +'#13#10#9#9' '#39'WH' + 'ERE TaxAmt <> 0 '#39' +'#13#10' '#39'GROUP BY DocKey'#39';'#13#10' SQL_2 := '#39 + 'SELECT * FROM Document_Currency'#39';'#13#10' SQL_3 := '#39'SELECT DocKey, Su' + 'm(Amount) Amount, Sum(LocalAmount) LocalAmount '#39'+ '#13#10#9#9' '#39'FR' + 'OM Document_Detail '#39' +'#13#10' '#39'GROUP BY DocKey'#39';'#13#10' SQL_4 :' + '= '#39'SELECT DocKey, Sum(TaxAmt) TaxAmt, Sum(LocalTaxAmt) LocalTaxA' + 'mt '#39'+ '#13#10#9#9' '#39'FROM Document_Detail '#39' +'#13#10#9#9' '#39'WHERE TaxI' + 'nclusive = 1 '#39' +'#13#10' '#39'GROUP BY DocKey'#39'; '#13#10' SQ' + 'L_5 := '#39'SELECT DocKey, Sum(Amount) Amount, Description '#39'+ '#13#10#9#9' ' + ' '#39'FROM Document_Detail '#39' +'#13#10#9#9' '#39'WHERE ItemCode='#39#39'DISC'#39 + #39' '#39'+'#13#10' '#39'GROUP BY DocKey'#39';'#13#10' SQL_6 := '#39'SELECT DocKey, ' + 'Dtlkey, SerialNumber '#39'+ '#13#10#9#9' '#39'FROM Document_SerialNumber '#39 + '; '#13#10' SQL_7 := '#39'SELECT DocKey, Tax, TaxRate, Sum(LocalAmou' + 'nt) LocalAmount, Sum(Qty) Qty, Sum(LocalTaxAmt) localTaxAmt, Des' + 'cription '#39'+ '#13#10#9#9' '#39'FROM Document_Detail '#39' +'#13#10#9#9' '#39'Wh' + 'ere Tax <> '#39#39#39#39#39' +'#13#10#9#9' '#39'GROUP BY Dockey, Tax,TaxRate'#39'; ' + ' '#13#10'end;'#13#10 raProgram.CaretPos = ( 3 24) 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 :' + '= plSQL_2.GetFieldValue('#39'Description'#39');'#13#10' Value := Value + '#39' : ' + #39' + CurrencyToEngWord(plSQL_0.GetFieldValue('#39'DocAmt'#39')) + '#39' ONLY'#39 + ';'#13#10'end;'#13#10 raProgram.ComponentName = 'Variable1' raProgram.EventName = 'OnCalc' raProgram.EventID = 33 raProgram.CaretPos = ( 3 4) end object raProgramInfo8: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'ReportBeforePrint' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure ReportBeforePrint;'#13#10'Var D: String;'#13#10'begin'#13#10' D:= Optio' + 'n.GetFieldValue('#39'AccountingValueDisplayFormat'#39');'#13#10' LocalSQL_SEL' + 'ECT(plSQL_0, SQL_0, '#39'DocDate;DocNo;Seq'#39');'#13#10' LocalSQL_SELECT(plS' + 'QL_1, SQL_1, '#39'DocKey'#39');'#13#10' LocalSQL_SELECT(plSQL_2, SQL_2, '#39'Code' + #39');'#13#10' LocalSQL_SELECT(plSQL_3, SQL_3, '#39'DocKey'#39');'#13#10' LocalSQL_SE' + 'LECT(plSQL_4, SQL_4, '#39'DocKey'#39');'#13#10' LocalSQL_SELECT(plSQL_5, SQL_' + '5, '#39'DocKey'#39');'#13#10' LocalSQL_SELECT(plSQL_6, SQL_6, '#39'DocKey;DtlKey'#39 + ');'#13#10' LocalSQL_SELECT(plSQL_7, SQL_7, '#39'Dockey;Tax;TaxRate'#39');'#13#10' ' + ' '#13#10' SetDataPipelineFieldLink(plSQL_0, plSQL_1, '#39'DocKey'#39', '#39'DocK' + 'ey'#39');'#13#10' SetDataPipelineFieldLink(plSQL_0, plSQL_2, '#39'CurrencyCod' + 'e'#39', '#39'Code'#39');'#13#10' SetDataPipelineFieldLink(plSQL_0, plSQL_3, '#39'DocK' + 'ey'#39', '#39'DocKey'#39');'#13#10' SetDataPipelineFieldLink(plSQL_0, plSQL_4, '#39'D' + 'ocKey'#39', '#39'DocKey'#39');'#13#10' SetDataPipelineFieldLink(plSQL_0, plSQL_5,' + ' '#39'DocKey'#39', '#39'DocKey'#39');'#13#10' SetDataPipelineFieldLink(plSQL_0, plSQL' + '_6, '#39'DocKey;Dtlkey'#39', '#39'DocKey;Dtlkey'#39');'#13#10' SetDataPipelineFieldLi' + 'nk(plSQL_0, plSQL_7, '#39'DocKey'#39', '#39'DocKey'#39');'#13#10#13#10' '#13#10' DBTxtTax.Di' + 'splayFormat:= D;'#13#10' VarDisc1.DisplayFormat:= D;'#13#10' VarTotal.Disp' + 'layFormat:= D;'#13#10' VarSubTotal.DisplayFormat := D;'#13#10' DBTxtUPrice' + '.DisplayFormat := Option.GetFieldValue('#39'StockPriceDisplayFormat'#39 + ');'#13#10'end;'#13#10 raProgram.ComponentName = 'Report' raProgram.EventName = 'BeforePrint' raProgram.EventID = 1 raProgram.CaretPos = ( 3 20) end object raProgramInfo9: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'lbPayableOnGetText' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure lbPayableOnGetText(var Text: String);'#13#10'begin'#13#10' if plS' + 'QL_2.GetFieldValue('#39'Code'#39') <> '#39'----'#39' then '#13#10' Text := '#39'Total Pa' + 'yable Incl. GST(RM) :'#39' else'#13#10' Text := '#39'Total Payable Incl. GST ' + ':'#39';'#13#10#13#10'end;'#13#10 raProgram.ComponentName = 'lbPayable' raProgram.EventName = 'OnGetText' raProgram.EventID = 53 raProgram.CaretPos = ( 3 3) end object raProgramInfo10: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'lbDiscOnGetText' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure lbDiscOnGetText(var Text: String);'#13#10'begin'#13#10' if Trim(p' + 'lSQL_5.GetFieldValue('#39'Description'#39')) <> '#39#39' then'#13#10' Text := '#39'- ' + #39'+ plSQL_5.GetFieldValue('#39'Description'#39') + '#39' :'#39' else'#13#10' Text :=' + ' '#39'- Discount :'#39';'#13#10'end;'#13#10 raProgram.ComponentName = 'lbDisc' raProgram.EventName = 'OnGetText' raProgram.EventID = 53 raProgram.CaretPos = ( 3 4) end object raProgramInfo11: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'VarSubTotalOnCalc' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure VarSubTotalOnCalc(var Value: Variant);'#13#10'begin'#13#10' Value' + ' := plSQL_0.GetFieldValue('#39'Qty'#39')* plSQL_0.GetFieldValue('#39'UnitPri' + 'ce'#39');'#13#10' Value := SimpleRoundTo(Value, -2);'#13#10' if plSQL_0.GetFie' + 'ldValue('#39'ItemCode'#39') <> '#39'DISC'#39' then'#13#10' VarTotal.Value := VarTot' + 'al.Value + Value;'#13#10' '#13#10' if plSQL_0.GetFieldValue('#39'TaxInclusiv' + 'e'#39') = 0 then'#13#10' VarDisc.Value := VarDisc.Value + (plSQL_0.GetF' + 'ieldValue('#39'Amount'#39') - SimpleRoundTo(plSQL_0.GetFieldValue('#39'Qty'#39')' + '*plSQL_0.GetFieldValue('#39'UnitPrice'#39'),-2)) else'#13#10' VarDisc.Value' + ' := VarDisc.Value + (plSQL_0.GetFieldValue('#39'AmountWithTax'#39') - Si' + 'mpleRoundTo(plSQL_0.GetFieldValue('#39'Qty'#39')*plSQL_0.GetFieldValue('#39 + 'UnitPrice'#39'),-2));'#13#10'end;'#13#10 raProgram.ComponentName = 'VarSubTotal' raProgram.EventName = 'OnCalc' raProgram.EventID = 33 raProgram.CaretPos = ( 35 4) end object raProgramInfo12: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'DetailBeforePrint' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure DetailBeforePrint;'#13#10'var v: boolean;'#13#10'begin'#13#10' v := plS' + 'QL_0.GetFieldValue('#39'ItemCode'#39') <> '#39'DISC'#39'; '#13#10' DBCalcNo.Visibl' + 'e := v;'#13#10' DBMmDesc.Visible := v;'#13#10' RTDesc3.Visible := v;' + #13#10' DBTxtQty.Visible := v;'#13#10' DBTxtUOM.Visible := v;'#13#10' ' + ' DBTxtUPrice.Visible := v;'#13#10' VarSubTotal.Visible := v;'#13#10' ' + ' DBTxtItemCode.Visible := v;'#13#10'end;'#13#10 raProgram.ComponentName = 'Detail' raProgram.EventName = 'BeforePrint' raProgram.EventID = 24 raProgram.CaretPos = ( 8 4) end object raProgramInfo13: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'RTDesc3OnPrint' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure RTDesc3OnPrint;'#13#10'var s: String;'#13#10'begin'#13#10' S := '#39'SELECT' + ' DESCRIPTION3 FROM SL_IVDTL '#39' +'#13#10' '#9' '#39'WHERE DOCKEY='#39' + plSQL_0.G' + 'etFieldValue('#39'Dockey'#39') +'#13#10' '#9' '#39' AND DTLKEY='#39' + plSQL_0.GetFieldV' + 'alue('#39'Dtlkey'#39');'#13#10' if Trim(DBSQL_GetFieldValue_AsString(s)) <> '#39 + #39' then'#13#10' RTDesc3.RichText := DBSQL_GetFieldValue_AsString(s) ' + 'else'#13#10' RTDesc3.RichText := '#39#39';'#13#10'end;'#13#10 raProgram.ComponentName = 'RTDesc3' raProgram.EventName = 'OnPrint' raProgram.EventID = 32 raProgram.CaretPos = ( 3 5) end object raProgramInfo14: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'VarTExclGSTOnCalc' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure VarTExclGSTOnCalc(var Value: Variant);'#13#10'begin'#13#10' VarTE' + 'xclGST.DisplayFormat := Option.GetFieldValue('#39'AccountingValueDis' + 'playFormat'#39');'#13#10' Value := plSQL_0.GetFieldValue('#39'DocAmt'#39') - plSQ' + 'L_1.GetFieldValue('#39'TaxAmt'#39'); '#13#10#13#10'end;'#13#10 raProgram.ComponentName = 'VarTExclGST' raProgram.EventName = 'OnCalc' raProgram.EventID = 33 raProgram.CaretPos = ( 1 2) end object raProgramInfo15: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'lbAmtOnGetText' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure lbAmtOnGetText(var Text: String);'#13#10'begin'#13#10#13#10' Text := ' + #39'Amount ('#39' + plSQL_2.GetFieldValue('#39'Symbol'#39') + '#39')'#39' '#13#10#13#10'end;'#13#10 raProgram.ComponentName = 'lbAmt' raProgram.EventName = 'OnGetText' raProgram.EventID = 53 raProgram.CaretPos = ( 3 4) end object raProgramInfo16: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'lbTaxAmtOnGetText' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure lbTaxAmtOnGetText(var Text: String);'#13#10'begin'#13#10' if plSQ' + 'L_2.GetFieldValue('#39'Code'#39') <> '#39'----'#39' then '#13#10' Text := '#39'GST Amt ' + '@ 6% (RM) :'#39' else'#13#10' Text := '#39'GST Amt @ 6% :'#39';'#13#10#13#10'end;'#13#10 raProgram.ComponentName = 'lbTaxAmt' raProgram.EventName = 'OnGetText' raProgram.EventID = 53 raProgram.CaretPos = ( 1 3) end object raProgramInfo17: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'lbExtGSTOnGetText' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure lbExtGSTOnGetText(var Text: String);'#13#10'begin'#13#10' if plSQ' + 'L_2.GetFieldValue('#39'Code'#39') <> '#39'----'#39' then '#13#10' Text := '#39'Total Ex' + 'cl. GST (RM) :'#39' else'#13#10' Text := '#39'Total Excl. GST :'#39';'#13#10'end;'#13#10 raProgram.ComponentName = 'lbExtGST' raProgram.EventName = 'OnGetText' raProgram.EventID = 53 raProgram.CaretPos = ( 30 5) end object raProgramInfo18: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'VarTExclGST1OnCalc' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure VarTExclGST1OnCalc(var Value: Variant);'#13#10'begin'#13#10' VarT' + 'ExclGST1.DisplayFormat := Option.GetFieldValue('#39'AccountingValueD' + 'isplayFormat'#39');'#13#10' Value := plSQL_0.GetFieldValue('#39'LocalDocAmt'#39')' + ' - plSQL_1.GetFieldValue('#39'LocalTaxAmt'#39'); '#13#10'end;'#13#10 raProgram.ComponentName = 'VarTExclGST1' raProgram.EventName = 'OnCalc' raProgram.EventID = 33 raProgram.CaretPos = ( 15 3) end object raProgramInfo19: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'RegGSTOnPrint' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure RegGSTOnPrint;'#13#10'begin'#13#10' if plSQL_2.GetFieldValue('#39'Cod' + 'e'#39') <> '#39'----'#39' then '#13#10' RegGST.Left := 3 else'#13#10' RegGST.Left ' + ':= 4.15;'#13#10'end;'#13#10 raProgram.ComponentName = 'RegGST' raProgram.EventName = 'OnPrint' raProgram.EventID = 32 raProgram.CaretPos = ( 21 4) end object raProgramInfo20: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'VarDisc1OnCalc' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure VarDisc1OnCalc(var Value: Variant);'#13#10'begin'#13#10#13#10' Value ' + ':= VarDisc.Value + plSQL_5['#39'Amount'#39'];'#13#10#13#10'end;'#13#10 raProgram.ComponentName = 'VarDisc1' raProgram.EventName = 'OnCalc' raProgram.EventID = 33 raProgram.CaretPos = ( 0 0) end end object ppDesignLayers1: TppDesignLayers object ppDesignLayer2: TppDesignLayer UserName = 'DuplicateCopy' Visible = False LayerType = ltPage Index = 0 end object ppDesignLayer1: TppDesignLayer UserName = 'Foreground' LayerType = ltBanded Index = 1 end end object ppParameterList1: TppParameterList end end