TdvSLIV 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 SaveAsTemplate = True Template.DatabaseSettings.Name = '24-Tax-Invoice SST' 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 = [efUseSubset] PDFSettings.EncryptSettings.AllowCopy = True PDFSettings.EncryptSettings.AllowInteract = True PDFSettings.EncryptSettings.AllowModify = True PDFSettings.EncryptSettings.AllowPrint = True PDFSettings.EncryptSettings.AllowExtract = True PDFSettings.EncryptSettings.AllowAssemble = True PDFSettings.EncryptSettings.AllowQualityPrint = True PDFSettings.EncryptSettings.Enabled = False PDFSettings.EncryptSettings.KeyLength = kl40Bit PDFSettings.EncryptSettings.EncryptionType = etRC4 PDFSettings.FontEncoding = feUnicode PDFSettings.ImageCompressionLevel = 25 PDFSettings.PDFAFormat = pafNone PreviewFormSettings.PageBorder.mmPadding = 0 PreviewFormSettings.WindowState = wsMaximized PreviewFormSettings.ZoomSetting = zsPageWidth RTFSettings.DefaultFont.Charset = DEFAULT_CHARSET RTFSettings.DefaultFont.Color = clWindowText RTFSettings.DefaultFont.Height = -13 RTFSettings.DefaultFont.Name = 'Arial' RTFSettings.DefaultFont.Style = [] TextFileName = '($MyDocuments)\Report.pdf' TextSearchSettings.DefaultString = '' TextSearchSettings.Enabled = True XLSSettings.AppName = 'ReportBuilder' XLSSettings.Author = 'ReportBuilder' XLSSettings.ExportComponents = [ecText, ecLine, ecImage, ecRichText, ecBarCode, ecOther] XLSSettings.Subject = 'Report' XLSSettings.Title = 'Report' XLSSettings.WorksheetName = 'Report' Version = '19.02' mmColumnWidth = 0 DataPipelineName = 'plSQL_0' object ppHeaderBand2: TppHeaderBand Background.Brush.Style = bsClear Border.mmPadding = 0 PrintHeight = phDynamic mmBottomOffset = 0 mmHeight = 100277 mmPrintPosition = 0 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 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 = 32015 mmLeft = 26459 mmTop = 0 mmWidth = 144780 BandType = 0 LayerName = Foreground mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 mmLeftMargin = 794 end object ppDBText4: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText14' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 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 = 174890 mmTop = 22749 mmWidth = 17198 BandType = 0 LayerName = Foreground end object ppDBText10: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText15' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 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 = 173302 mmTop = 11108 mmWidth = 17198 BandType = 0 LayerName = Foreground end object ppDBText14: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText16' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 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 = 174890 mmTop = 16928 mmWidth = 17198 BandType = 0 LayerName = Foreground end object Shape1: TppShape DesignLayer = ppDesignLayer1 UserName = 'Shape1' Brush.Style = bsClear mmHeight = 10319 mmLeft = 149754 mmTop = 85289 mmWidth = 42598 BandType = 0 LayerName = Foreground end object Shape2: TppShape DesignLayer = ppDesignLayer1 UserName = 'Shape4' mmHeight = 10320 mmLeft = 149754 mmTop = 85289 mmWidth = 42334 BandType = 0 LayerName = Foreground end object Label1: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label1' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Invoice' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 16 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 6614 mmLeft = 794 mmTop = 33338 mmWidth = 20373 BandType = 0 LayerName = Foreground end object Line1: TppLine DesignLayer = ppDesignLayer1 UserName = 'Line1' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Weight = 0.750000000000000000 mmHeight = 529 mmLeft = 794 mmTop = 41804 mmWidth = 187061 BandType = 0 LayerName = Foreground end object Label3: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label3' 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 = 2963 mmLeft = 794 mmTop = 43127 mmWidth = 15706 BandType = 0 LayerName = Foreground end object Label5: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label5' 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 = 2963 mmLeft = 102394 mmTop = 43127 mmWidth = 18076 BandType = 0 LayerName = Foreground end object DBText2: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBTxtBrchName' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'BranchName' DataPipeline = plSQL_0 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [fsBold] ParentDataPipeline = False Visible = False DataPipelineName = 'plSQL_0' mmHeight = 4233 mmLeft = 102394 mmTop = 46567 mmWidth = 89694 BandType = 0 LayerName = Foreground end object DBText3: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText3' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'DAddress1' 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 = 102394 mmTop = 51065 mmWidth = 89694 BandType = 0 LayerName = Foreground end object DBText4: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText4' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'DAddress2' 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 = 102394 mmTop = 55563 mmWidth = 89694 BandType = 0 LayerName = Foreground end object DBText5: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText5' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'DAddress3' 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 = 102394 mmTop = 60061 mmWidth = 89694 BandType = 0 LayerName = Foreground end object DBText6: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText6' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'DAddress4' 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 = 102394 mmTop = 64558 mmWidth = 89694 BandType = 0 LayerName = Foreground end object Label6: 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 = 10 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 4233 mmLeft = 102394 mmTop = 73290 mmWidth = 7144 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 = 10 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 4233 mmLeft = 102394 mmTop = 77788 mmWidth = 7673 BandType = 0 LayerName = Foreground end object Line2: TppLine DesignLayer = ppDesignLayer1 UserName = 'Line2' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Weight = 0.750000000000000000 mmHeight = 1058 mmLeft = 0 mmTop = 85025 mmWidth = 192352 BandType = 0 LayerName = Foreground end object DBText9: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText9' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'CompanyName' DataPipeline = plSQL_0 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [fsBold] ParentDataPipeline = False DataPipelineName = 'plSQL_0' mmHeight = 4233 mmLeft = 794 mmTop = 46567 mmWidth = 95250 BandType = 0 LayerName = Foreground end object DBText10: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText10' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 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 = 794 mmTop = 51065 mmWidth = 95250 BandType = 0 LayerName = Foreground end object DBText11: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText11' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 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 = 794 mmTop = 55563 mmWidth = 95250 BandType = 0 LayerName = Foreground end object DBText12: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText12' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 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 = 794 mmTop = 60061 mmWidth = 95250 BandType = 0 LayerName = Foreground end object DBText13: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText1' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 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 = 794 mmTop = 64558 mmWidth = 95250 BandType = 0 LayerName = Foreground end object Label17: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label17' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Sales Executive' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 6 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 2540 mmLeft = 23283 mmTop = 86612 mmWidth = 14309 BandType = 0 LayerName = Foreground end object Label19: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label19' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Customer Account' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 6 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 2540 mmLeft = 794 mmTop = 86612 mmWidth = 17018 BandType = 0 LayerName = Foreground end object Label21: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label21' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Currency' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 6 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 2540 mmLeft = 47361 mmTop = 86612 mmWidth = 8297 BandType = 0 LayerName = Foreground end object Label23: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label23' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Name' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 6 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 2540 mmLeft = 113242 mmTop = 86612 mmWidth = 5376 BandType = 0 LayerName = Foreground end object Label25: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label25' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Invoice No.' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 6 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 2540 mmLeft = 150548 mmTop = 86612 mmWidth = 10583 BandType = 0 LayerName = Foreground end object Label27: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label27' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Date' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 6 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taRightJustified Transparent = True mmHeight = 2540 mmLeft = 187061 mmTop = 86612 mmWidth = 4360 BandType = 0 LayerName = Foreground end object Line4: TppLine DesignLayer = ppDesignLayer1 UserName = 'Line4' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Weight = 0.750000000000000000 mmHeight = 529 mmLeft = 0 mmTop = 95608 mmWidth = 192352 BandType = 0 LayerName = Foreground end object Label29: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label29' HyperlinkEnabled = False AutoSize = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'No' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 6 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taCentered Transparent = True mmHeight = 2540 mmLeft = 794 mmTop = 97737 mmWidth = 12172 BandType = 0 LayerName = Foreground end object Label31: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label31' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Description' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 6 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 2540 mmLeft = 39952 mmTop = 97737 mmWidth = 10372 BandType = 0 LayerName = Foreground end object Label33: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label33' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Qty' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 6 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 2540 mmLeft = 138918 mmTop = 97737 mmWidth = 3260 BandType = 0 LayerName = Foreground end object Label35: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label35' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Item Code' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 6 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 2540 mmLeft = 13758 mmTop = 97737 mmWidth = 9779 BandType = 0 LayerName = Foreground end object Label39: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label39' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Price/Unit' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 6 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taRightJustified Transparent = True mmHeight = 2540 mmLeft = 160091 mmTop = 97737 mmWidth = 9059 BandType = 0 LayerName = Foreground end object Label41: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label41' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Total Price' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 6 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taRightJustified Transparent = True mmHeight = 2646 mmLeft = 182034 mmTop = 97630 mmWidth = 10054 BandType = 0 LayerName = Foreground end object DBText23: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText23' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'Code' DataPipeline = plSQL_0 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [fsBold] ParentDataPipeline = False Transparent = True DataPipelineName = 'plSQL_0' mmHeight = 3810 mmLeft = 794 mmTop = 90316 mmWidth = 19050 BandType = 0 LayerName = Foreground end object DBText24: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText24' HyperlinkEnabled = False AutoSize = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'DocNo' DataPipeline = plSQL_0 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [fsBold] ParentDataPipeline = False Transparent = True DataPipelineName = 'plSQL_0' mmHeight = 3810 mmLeft = 150548 mmTop = 90581 mmWidth = 21717 BandType = 0 LayerName = Foreground end object DBText27: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText27' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'Symbol' DataPipeline = Document_Currency Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [fsBold] ParentDataPipeline = False Transparent = True DataPipelineName = 'Document_Currency' mmHeight = 3810 mmLeft = 47096 mmTop = 90316 mmWidth = 12700 BandType = 0 LayerName = Foreground end object DBText28: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText28' HyperlinkEnabled = False AutoSize = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'DocDate' DataPipeline = plSQL_0 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [fsBold] ParentDataPipeline = False TextAlignment = taRightJustified Transparent = True DataPipelineName = 'plSQL_0' mmHeight = 3810 mmLeft = 166688 mmTop = 90581 mmWidth = 24850 BandType = 0 LayerName = Foreground end object DBText34: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText34' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'Code' DataPipeline = plSQL_0 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [fsBold] ParentDataPipeline = False Transparent = True DataPipelineName = 'plSQL_0' mmHeight = 3810 mmLeft = 113242 mmTop = 90581 mmWidth = 16933 BandType = 0 LayerName = Foreground end object DBText35: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText35' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'Agent' DataPipeline = plSQL_0 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [fsBold] ParentDataPipeline = False Transparent = True DataPipelineName = 'plSQL_0' mmHeight = 3810 mmLeft = 23283 mmTop = 90316 mmWidth = 17992 BandType = 0 LayerName = Foreground end object Label67: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label67' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Page No ' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 6 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 2540 mmLeft = 136261 mmTop = 86348 mmWidth = 8467 BandType = 0 LayerName = Foreground end object Label2: TppLabel DesignLayer = ppDesignLayer1 UserName = 'lbIVTel' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Tel: ' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 4233 mmLeft = 794 mmTop = 73290 mmWidth = 7144 BandType = 0 LayerName = Foreground end object Label4: TppLabel DesignLayer = ppDesignLayer1 UserName = 'lbIVFax' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Fax: ' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 4233 mmLeft = 55960 mmTop = 73287 mmWidth = 7673 BandType = 0 LayerName = Foreground end object Label8: TppLabel DesignLayer = ppDesignLayer1 UserName = 'lbIVAttn' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Attn: ' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 4233 mmLeft = 794 mmTop = 68792 mmWidth = 8466 BandType = 0 LayerName = Foreground end object DBText16: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText2' HyperlinkEnabled = False AutoSize = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 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 = 14817 mmTop = 69056 mmWidth = 16298 BandType = 0 LayerName = Foreground end object ppLabel1: 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 = 10 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 4233 mmLeft = 102394 mmTop = 68792 mmWidth = 8467 BandType = 0 LayerName = Foreground end object ppDBText1: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText7' HyperlinkEnabled = False AutoSize = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'DAttention' DataPipeline = plSQL_0 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [] Transparent = True DataPipelineName = 'plSQL_0' mmHeight = 4233 mmLeft = 113242 mmTop = 68792 mmWidth = 27686 BandType = 0 LayerName = Foreground end object ppDBText2: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText8' HyperlinkEnabled = False AutoSize = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'DPhone1' DataPipeline = plSQL_0 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [] Transparent = True DataPipelineName = 'plSQL_0' mmHeight = 4233 mmLeft = 113242 mmTop = 73290 mmWidth = 23156 BandType = 0 LayerName = Foreground end object ppDBText6: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText17' HyperlinkEnabled = False AutoSize = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'DFax1' DataPipeline = plSQL_0 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [] Transparent = True DataPipelineName = 'plSQL_0' mmHeight = 4233 mmLeft = 113242 mmTop = 77788 mmWidth = 18965 BandType = 0 LayerName = Foreground end object ppSystemVariable1: TppSystemVariable DesignLayer = ppDesignLayer1 UserName = 'SystemVariable1' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 VarType = vtPageSet Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [fsBold] Transparent = True mmHeight = 3810 mmLeft = 136261 mmTop = 90316 mmWidth = 9102 BandType = 0 LayerName = Foreground end object ppDBText3: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText18' HyperlinkEnabled = False AutoSize = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'Phone1' DataPipeline = plSQL_0 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [] Transparent = True DataPipelineName = 'plSQL_0' mmHeight = 4233 mmLeft = 14817 mmTop = 73290 mmWidth = 12615 BandType = 0 LayerName = Foreground end object ppDBText7: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText19' HyperlinkEnabled = False AutoSize = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'Fax1' DataPipeline = plSQL_0 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [] Transparent = True DataPipelineName = 'plSQL_0' mmHeight = 4233 mmLeft = 76564 mmTop = 73287 mmWidth = 8467 BandType = 0 LayerName = Foreground end object ppRegion2: TppRegion DesignLayer = ppDesignLayer1 UserName = 'RegFromDocNo' Brush.Style = bsClear Caption = 'RegFromDocNo' Pen.Style = psClear Transparent = True Visible = False mmHeight = 9789 mmLeft = 60854 mmTop = 85554 mmWidth = 52123 BandType = 0 LayerName = Foreground mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 object ppLabel17: TppLabel DesignLayer = ppDesignLayer1 UserName = 'lbDODate' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'From Doc Date' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 6 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 2540 mmLeft = 61647 mmTop = 86612 mmWidth = 14055 BandType = 0 LayerName = Foreground end object Label15: TppLabel DesignLayer = ppDesignLayer1 UserName = 'lbDoNo' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'From Doc No' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 6 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 2540 mmLeft = 89164 mmTop = 86612 mmWidth = 12234 BandType = 0 LayerName = Foreground end object ppDBText15: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBTxtSQL_1' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataPipeline = plSQL_1 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 10 Font.Style = [] ParentDataPipeline = False Transparent = True Visible = False DataPipelineName = 'plSQL_1' mmHeight = 3969 mmLeft = 76200 mmTop = 95344 mmWidth = 17198 BandType = 0 LayerName = Foreground end object ppVariable1: TppVariable DesignLayer = ppDesignLayer1 UserName = 'VarFromDocDate' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 BlankWhenZero = False CalcOrder = 0 DataType = dtDate Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [fsBold] Transparent = True mmHeight = 3704 mmLeft = 61649 mmTop = 90315 mmWidth = 27252 BandType = 0 LayerName = Foreground end object ppVariable6: TppVariable DesignLayer = ppDesignLayer1 UserName = 'VarFromDocNo' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 BlankWhenZero = False CalcOrder = 1 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [fsBold] Transparent = True mmHeight = 3704 mmLeft = 89166 mmTop = 90315 mmWidth = 24077 BandType = 0 LayerName = Foreground end end object ppRegion3: TppRegion DesignLayer = ppDesignLayer1 UserName = 'Region2' Brush.Style = bsClear Caption = 'Region2' Pen.Style = psClear Transparent = True mmHeight = 6515 mmLeft = -47 mmTop = 76683 mmWidth = 106936 BandType = 0 LayerName = Foreground mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 object ppLabel24: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label26' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Expiry Date :' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 4234 mmLeft = 55998 mmTop = 77831 mmWidth = 19315 BandType = 0 LayerName = Foreground end object ppDBText20: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText22' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'TaxExpDate' DataPipeline = Document_Company Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Document_Company' mmHeight = 4233 mmLeft = 75988 mmTop = 77741 mmWidth = 25135 BandType = 0 LayerName = Foreground end object ppLabel22: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label22' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Exemption No. : ' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 4233 mmLeft = 794 mmTop = 77741 mmWidth = 25135 BandType = 0 LayerName = Foreground end object ppDBText22: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText201' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'TaxExemptNo' DataPipeline = Document_Company Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Document_Company' mmHeight = 4233 mmLeft = 26498 mmTop = 77741 mmWidth = 28575 BandType = 0 LayerName = Foreground end end end object ppDetailBand2: TppDetailBand Background1.Brush.Style = bsClear Background2.Brush.Style = bsClear Border.mmPadding = 0 PrintHeight = phDynamic mmBottomOffset = 0 mmHeight = 12171 mmPrintPosition = 0 object ppVariable5: TppVariable DesignLayer = ppDesignLayer1 UserName = 'VarSubTotal' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 BlankWhenZero = False CalcOrder = 1 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 = 3748 mmLeft = 173302 mmTop = 794 mmWidth = 18521 BandType = 4 LayerName = Foreground end object ppDBText8: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBTxtUPrice' HyperlinkEnabled = False BlankWhenZero = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 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 = 154069 mmTop = 794 mmWidth = 15081 BandType = 4 LayerName = Foreground end object ppDBMemo2: TppDBMemo DesignLayer = ppDesignLayer1 UserName = 'DBMmDesc' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 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 = 39952 mmTop = 794 mmWidth = 84146 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 Border.mmPadding = 0 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 = 126215 mmTop = 794 mmWidth = 13758 BandType = 4 LayerName = Foreground end object ppDBText11: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBTxtUOM' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 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 = 141296 mmTop = 794 mmWidth = 8996 BandType = 4 LayerName = Foreground end object ppDBCalc2: TppDBCalc DesignLayer = ppDesignLayer1 UserName = 'DBCalcNo' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 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 = 8726 BandType = 4 LayerName = Foreground end object ppDBText13: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBTxtItemCode' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 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 = 13758 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 Border.mmPadding = 0 Caption = 'RTDesc3' ExportRTFAsBitmap = False RemoveEmptyLines = False ShiftRelativeTo = ppDBMemo2 Stretch = True Visible = False mmHeight = 2381 mmLeft = 39952 mmTop = 4763 mmWidth = 84146 BandType = 4 LayerName = Foreground mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 mmLeftMargin = 794 end object ppVariable10: TppVariable DesignLayer = ppDesignLayer1 UserName = 'VarInclusive' Border.mmPadding = 0 BlankWhenZero = False CalcOrder = 0 DataType = dtDouble Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] Transparent = True Visible = False mmHeight = 3704 mmLeft = 163777 mmTop = 3440 mmWidth = 16933 BandType = 4 LayerName = Foreground end object ppSubReport1: TppSubReport DesignLayer = ppDesignLayer1 UserName = 'SubReport1' ExpandAll = False NewPrintJob = False OutlineSettings.CreateNode = True ShiftRelativeTo = ppRichText1 TraverseAllData = False DataPipelineName = 'plSQL_8' mmHeight = 5027 mmLeft = 0 mmTop = 7145 mmWidth = 201930 BandType = 4 LayerName = Foreground mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 object ppChildReport1: TppChildReport AutoStop = False DataPipeline = plSQL_8 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.NameField = 'Name' Template.DatabaseSettings.TemplateField = 'Template' Template.SaveTo = stDatabase Template.Format = ftASCII Version = '19.02' mmColumnWidth = 0 DataPipelineName = 'plSQL_8' object ppDetailBand1: TppDetailBand Background1.Brush.Style = bsClear Background2.Brush.Style = bsClear Border.mmPadding = 0 mmBottomOffset = 0 mmHeight = 0 mmPrintPosition = 0 end object ppSummaryBand1: TppSummaryBand Background.Brush.Style = bsClear Border.mmPadding = 0 PrintHeight = phDynamic mmBottomOffset = 0 mmHeight = 3440 mmPrintPosition = 0 object ppVariable11: TppVariable DesignLayer = ppDesignLayer2 UserName = 'vSerialNo' Border.mmPadding = 0 BlankWhenZero = False CalcOrder = 0 Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] Transparent = True Visible = False mmHeight = 3440 mmLeft = 794 mmTop = 0 mmWidth = 11906 BandType = 7 LayerName = Foreground1 end object ppMemo2: TppMemo DesignLayer = ppDesignLayer2 UserName = 'Memo2' Border.mmPadding = 0 Caption = 'Memo2' CharWrap = False Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] RemoveEmptyLines = False Stretch = True Transparent = True mmHeight = 3440 mmLeft = 40596 mmTop = 0 mmWidth = 123031 BandType = 7 LayerName = Foreground1 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 mmLeading = 0 end end object raCodeModule2: 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_8.GetFieldValue('#39'SerialNumber'#39') e' + 'lse'#13#10' vSerialNo.Value := vSerialNo.Value + '#39', '#39' + plSQL_8.Get' + 'FieldValue('#39'SerialNumber'#39');'#13#10' Memo2.Lines.Text := '#39'Serial No:-' + ' '#39' + vSerialNo.Value;'#13#10'end;'#13#10 raProgram.ComponentName = 'Detail' raProgram.EventName = 'BeforeGenerate' raProgram.EventID = 26 raProgram.CaretPos = ( 5 7) end end object ppDesignLayers2: TppDesignLayers object ppDesignLayer2: TppDesignLayer UserName = 'Foreground1' LayerType = ltBanded Index = 0 end end end end end object ppFooterBand3: TppFooterBand Visible = False Background.Brush.Style = bsClear Border.mmPadding = 0 mmBottomOffset = 0 mmHeight = 6350 mmPrintPosition = 0 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 Border.mmPadding = 0 mmBottomOffset = 0 mmHeight = 0 mmPrintPosition = 0 end object ppGroupFooterBand1: TppGroupFooterBand Background.Brush.Style = bsClear Border.mmPadding = 0 HideWhenOneDetail = False mmBottomOffset = 0 mmHeight = 60854 mmPrintPosition = 203200 object ppLine3: TppLine DesignLayer = ppDesignLayer1 UserName = 'Line5' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Weight = 0.750000000000000000 mmHeight = 1588 mmLeft = 0 mmTop = 28077 mmWidth = 192352 BandType = 5 GroupNo = 0 LayerName = Foreground end object Line14: TppLine DesignLayer = ppDesignLayer1 UserName = 'Line14' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Weight = 0.750000000000000000 mmHeight = 1323 mmLeft = 0 mmTop = 529 mmWidth = 192352 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppVariable2: TppVariable DesignLayer = ppDesignLayer1 UserName = 'Variable1' HyperlinkEnabled = False 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 = 9 Font.Style = [] Transparent = True WordWrap = True mmHeight = 8728 mmLeft = 2646 mmTop = 2381 mmWidth = 131498 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppLine2: TppLine DesignLayer = ppDesignLayer1 UserName = 'Line6' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Weight = 0.750000000000000000 mmHeight = 2117 mmLeft = 0 mmTop = 36794 mmWidth = 192352 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppLabel8: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label61' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Authorised Signature' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 6 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taRightJustified Transparent = True mmHeight = 2646 mmLeft = 171715 mmTop = 38117 mmWidth = 19579 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppLine4: TppLine DesignLayer = ppDesignLayer1 UserName = 'Line7' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Position = lpBottom Weight = 0.750000000000000000 mmHeight = 1852 mmLeft = 0 mmTop = 59002 mmWidth = 192352 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppVariable9: TppVariable DesignLayer = ppDesignLayer1 UserName = 'Variable3' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 BlankWhenZero = False CalcOrder = 1 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 6 Font.Style = [] TextAlignment = taRightJustified Transparent = True mmHeight = 2646 mmLeft = 182827 mmTop = 41557 mmWidth = 8467 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppLabel11: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label43' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Payment Terms : ' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 6 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 2646 mmLeft = 794 mmTop = 29665 mmWidth = 17198 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppDBText18: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText29' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'Terms' DataPipeline = plSQL_0 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'plSQL_0' mmHeight = 3704 mmLeft = 794 mmTop = 32575 mmWidth = 26194 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppLabel13: TppLabel DesignLayer = ppDesignLayer1 UserName = 'lbRef1' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Ref 1 : ' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 6 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 2646 mmLeft = 32544 mmTop = 29665 mmWidth = 7408 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppDBText19: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText21' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'DocRef1' DataPipeline = plSQL_0 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] DataPipelineName = 'plSQL_0' mmHeight = 3704 mmLeft = 32544 mmTop = 32575 mmWidth = 47096 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppLabel14: TppLabel DesignLayer = ppDesignLayer1 UserName = 'lbRef2' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Ref 2 : ' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 6 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 2646 mmLeft = 83873 mmTop = 29665 mmWidth = 7408 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppDBText21: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText101' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'DocRef2' DataPipeline = plSQL_0 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] DataPipelineName = 'plSQL_0' mmHeight = 3704 mmLeft = 83873 mmTop = 32575 mmWidth = 47096 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppVariable4: TppVariable DesignLayer = ppDesignLayer1 UserName = 'VarTotal' HyperlinkEnabled = False AutoSize = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 BlankWhenZero = False CalcOrder = 2 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 Border.mmPadding = 0 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 = 23283 mmWidth = 32015 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppLabel4: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label9' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Gross :' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone 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 Border.mmPadding = 0 Caption = 'lbDisc' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taRightJustified Transparent = True mmHeight = 4233 mmLeft = 147638 mmTop = 6615 mmWidth = 8731 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppDBText12: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBTxtTax' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 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 = 17727 mmWidth = 31750 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppVariable3: TppVariable DesignLayer = ppDesignLayer1 UserName = 'VarDisc' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 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 = 181505 mmTop = 7144 mmWidth = 10583 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppVariable7: TppVariable DesignLayer = ppDesignLayer1 UserName = 'VarTExclGST' Border.mmPadding = 0 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 = 'Shape5' Brush.Style = bsClear mmHeight = 16668 mmLeft = 127529 mmTop = 11642 mmWidth = 30956 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppDBText16: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBTxtTax1' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 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 ppDBText17: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText20' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 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 ppVariable8: TppVariable DesignLayer = ppDesignLayer1 UserName = 'VarTExclGST1' Border.mmPadding = 0 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' Border.mmPadding = 0 Weight = 0.750000000000000000 mmHeight = 1584 mmLeft = 127529 mmTop = 22490 mmWidth = 30956 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppRegion1: TppRegion DesignLayer = ppDesignLayer1 UserName = 'RegGST' Caption = 'RegGST' mmHeight = 16685 mmLeft = 73819 mmTop = 11642 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 Border.mmPadding = 0 Caption = 'lbPayable' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taRightJustified Transparent = True mmHeight = 4234 mmLeft = 110085 mmTop = 23282 mmWidth = 16404 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppLabel6: TppLabel DesignLayer = ppDesignLayer1 UserName = 'lbTaxAmt' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = '+ Tax Amt :' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taRightJustified Transparent = True mmHeight = 3704 mmLeft = 108744 mmTop = 17727 mmWidth = 17727 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppLabel7: TppLabel DesignLayer = ppDesignLayer1 UserName = 'lbExtGST' Border.mmPadding = 0 Caption = 'Total Excl. GST :' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taRightJustified Transparent = True mmHeight = 3704 mmLeft = 102147 mmTop = 12964 mmWidth = 24342 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppLine5: TppLine DesignLayer = ppDesignLayer1 UserName = 'Line13' Border.mmPadding = 0 ParentWidth = True Weight = 0.750000000000000000 mmHeight = 1319 mmLeft = 73819 mmTop = 22487 mmWidth = 53446 BandType = 5 GroupNo = 0 LayerName = Foreground end end object ppLine1: TppLine DesignLayer = ppDesignLayer1 UserName = 'Line3' Border.mmPadding = 0 Weight = 0.750000000000000000 mmHeight = 1849 mmLeft = 158749 mmTop = 11642 mmWidth = 33867 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppLine7: TppLine DesignLayer = ppDesignLayer1 UserName = 'Line8' Border.mmPadding = 0 Weight = 0.750000000000000000 mmHeight = 1584 mmLeft = 158749 mmTop = 22489 mmWidth = 33867 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppLine8: TppLine DesignLayer = ppDesignLayer1 UserName = 'Line9' Border.mmPadding = 0 Position = lpLeft Weight = 0.750000000000000000 mmHeight = 16669 mmLeft = 192352 mmTop = 11642 mmWidth = 3689 BandType = 5 GroupNo = 0 LayerName = Foreground end end end object raCodeModule1: TraCodeModule object raProgramInfo3: 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_5, SQL_8 ' + ': String;'#13#10#13#10'begin'#13#10#13#10'end;'#13#10 raProgram.CaretPos = ( 37 2) end object raProgramInfo4: 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.Dockey,B.Seq'#39';'#13#10' SQL_1 :=' + ' '#39'SELECT DocKey, Sum(TaxAmt) TaxAmt, Sum(LocalTaxAmt) LocalTaxAm' + 't '#39'+ '#13#10#9#9' '#39'FROM Document_Detail '#39' +'#13#10#9#9' '#39'WHERE TaxAm' + 't <> 0 '#39'+'#13#10' '#39'GROUP BY DocKey'#39';'#13#10' SQL_2 := '#39'SELECT * F' + 'ROM Document_Currency'#39';'#13#10' SQL_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_8 := '#39'SELECT DocKey, Dtlkey, SerialNumber '#39'+ '#13#10#9#9' ' + #39'FROM Document_SerialNumber '#39'; '#13#10'end;'#13#10 raProgram.CaretPos = ( 13 10) end object raProgramInfo5: TraProgramInfo raClassName = 'TraProgram' raProgram.ChildType = 21 raProgram.IsFunctionType = True raProgram.ProgramName = 'FracEx' raProgram.ProgramType = ttFunction raProgram.Source = 'function FracEx(const AValue: Extended): Extended;'#13#10'var L, P : ' + 'integer;'#13#10' S, N : string;'#13#10'begin'#13#10' S := FloatToStr(AValue);'#13 + #10' L := Length(S);'#13#10' P := Pos('#39'.'#39', S);'#13#10' N := S;'#13#10' if P > 0 t' + 'hen begin'#13#10' N := '#39#39';'#13#10' while P <= L do begin'#13#10' N := N' + ' + Copy(S,P,1);'#13#10' P := P + 1;'#13#10' end;'#13#10' N := '#39'0'#39' + N;'#13 + #10' end;'#13#10' Result := StrToFloat(N);'#13#10'end;'#13#10#13#10 end object raProgramInfo6: TraProgramInfo raClassName = 'TraProgram' raProgram.ChildType = 21 raProgram.IsFunctionType = True raProgram.ProgramName = 'IntEx' raProgram.ProgramType = ttFunction raProgram.Source = 'function IntEx(const AValue: Extended): Integer;'#13#10'var C, P : in' + 'teger;'#13#10' S, N : string;'#13#10'begin'#13#10' S := FloatToStr(AValue);'#13#10' ' + ' C := 1;'#13#10' P := Pos('#39'.'#39', S);'#13#10' N := S;'#13#10' if P > 0 then begin'#13 + #10' N := '#39#39';'#13#10' while C < P do begin'#13#10' N := N + Copy(S,C' + ',1);'#13#10' C := C + 1;'#13#10' end;'#13#10' end;'#13#10' Result := StrToInt(' + 'N);'#13#10'end;'#13#10 end object raProgramInfo7: TraProgramInfo raClassName = 'TraProgram' raProgram.ChildType = 21 raProgram.IsFunctionType = True raProgram.ProgramName = 'RoundND' raProgram.ProgramType = ttFunction raProgram.Source = 'function RoundND(const AValue, ADigit: Extended): Extended;'#13#10'va' + 'r lResult, V: Extended;'#13#10'begin'#13#10' {0.01 for 2 decimal'#13#10' 0.001 ' + 'for 3 decimal}'#13#10' lResult := (AValue / ADigit);'#13#10' V := FracEx(l' + 'Result);'#13#10' if V >= 0.5 then'#13#10' lResult := lResult + 0.5;'#13#10' R' + 'esult := IntEx(lResult) * ADigit;'#13#10'end;'#13#10 end object raProgramInfo8: 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 = ( 1 2) end object raProgramInfo9: 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'DocKey;Seq'#39');'#13#10' LocalSQL_SELECT(plSQL_1, S' + 'QL_1, '#39'DocKey'#39');'#13#10' LocalSQL_SELECT(plSQL_2, SQL_2, '#39'Code'#39');'#13#10' ' + 'LocalSQL_SELECT(plSQL_5, SQL_5, '#39'DocKey'#39');'#13#10' LocalSQL_SELECT(pl' + 'SQL_8, SQL_8, '#39'DocKey;DtlKey'#39');'#13#10' '#13#10' SetDataPipelineFieldLin' + 'k(plSQL_0, plSQL_1, '#39'DocKey'#39', '#39'DocKey'#39');'#13#10' SetDataPipelineField' + 'Link(plSQL_0, plSQL_2, '#39'CurrencyCode'#39', '#39'Code'#39');'#13#10' SetDataPipeli' + 'neFieldLink(plSQL_0, plSQL_5, '#39'DocKey'#39', '#39'DocKey'#39');'#13#10' SetDataPip' + 'elineFieldLink(plSQL_0, plSQL_8, '#39'DocKey;Dtlkey'#39', '#39'DocKey;Dtlkey' + #39'); '#13#10#13#10' '#13#10' DBTxtTax1.DisplayFormat:= D;'#13#10' VarDisc.DisplayF' + 'ormat:= D;'#13#10' VarTotal.DisplayFormat:= D;'#13#10' VarSubTotal.Display' + 'Format := D;'#13#10' DBTxtUPrice.DisplayFormat := Option.GetFieldValu' + 'e('#39'StockPriceDisplayFormat'#39');'#13#10'end;'#13#10 raProgram.ComponentName = 'Report' raProgram.EventName = 'BeforePrint' raProgram.EventID = 1 raProgram.CaretPos = ( 3 14) end object raProgramInfo10: 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')* VarInclusive.Value;'#13#10' Value := ' + 'RoundND(Value, 0.01);'#13#10' if plSQL_0.GetFieldValue('#39'ItemCode'#39') <>' + ' '#39'DISC'#39' then'#13#10' VarTotal.Value := VarTotal.Value + Value;'#13#10#13#10'e' + 'nd;'#13#10 raProgram.ComponentName = 'VarSubTotal' raProgram.EventName = 'OnCalc' raProgram.EventID = 33 raProgram.CaretPos = ( 1 2) end object raProgramInfo11: 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 = ( 3 4) end object raProgramInfo12: 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 = ( 1 3) end object raProgramInfo13: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'DBTxtBrchNameOnPrint' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure DBTxtBrchNameOnPrint;'#13#10'begin'#13#10' DBTxtBrchName.visible:' + '= Main.GetFieldValue('#39'BranchName'#39') <> '#39'BILLING'#39';'#13#10'end;'#13#10 raProgram.ComponentName = 'DBTxtBrchName' raProgram.EventName = 'OnPrint' raProgram.EventID = 32 raProgram.CaretPos = ( 5 4) end object raProgramInfo14: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'VarFromDocDateOnCalc' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure VarFromDocDateOnCalc(var Value: Variant);'#13#10'begin'#13#10' Va' + 'lue := null;'#13#10' Value := Document_Detail.GetFieldValue('#39'FromDocD' + 'ate'#39');'#13#10'end;'#13#10 raProgram.ComponentName = 'VarFromDocDate' raProgram.EventName = 'OnCalc' raProgram.EventID = 33 raProgram.CaretPos = ( 5 5) end object raProgramInfo15: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'VarFromDocNoOnCalc' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure VarFromDocNoOnCalc(var Value: Variant);'#13#10'begin'#13#10' Valu' + 'e := '#39#39';'#13#10' Value := value + Document_Detail.GetFieldValue('#39'From' + 'DocNo'#39');'#13#10'end;'#13#10 raProgram.ComponentName = 'VarFromDocNo' raProgram.EventName = 'OnCalc' raProgram.EventID = 33 raProgram.CaretPos = ( 5 5) end object raProgramInfo16: 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 = ( 5 6) end object raProgramInfo17: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'VarDiscOnCalc' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure VarDiscOnCalc(var Value: Variant);'#13#10'begin'#13#10' Value := ' + 'plSQL_0.GetFieldValue('#39'DocAmt'#39') - VarTotal.Value -'#13#10#9' plSQL_' + '1.GetFieldValue('#39'TaxAmt'#39');'#13#10'end;'#13#10 raProgram.ComponentName = 'VarDisc' raProgram.EventName = 'OnCalc' raProgram.EventID = 33 raProgram.CaretPos = ( 5 5) end object raProgramInfo18: 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 = ( 5 6) end object raProgramInfo19: 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 = ( 5 5) end object raProgramInfo20: 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 = ( 3 4) end object raProgramInfo21: 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 P' + 'ayable (RM) :'#39' else'#13#10' Text := '#39'Total Payable :'#39';'#13#10#13#10'end;'#13#10 raProgram.ComponentName = 'lbPayable' raProgram.EventName = 'OnGetText' raProgram.EventID = 53 raProgram.CaretPos = ( 15 5) end object raProgramInfo22: 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. Tax (RM) :'#39' else'#13#10' Text := '#39'Total Excl. Tax :'#39';'#13#10'end;'#13#10 raProgram.ComponentName = 'lbExtGST' raProgram.EventName = 'OnGetText' raProgram.EventID = 53 raProgram.CaretPos = ( 29 5) end object raProgramInfo23: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'lbRef1OnGetText' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure lbRef1OnGetText(var Text: String);'#13#10'begin'#13#10' lbRef1.Vi' + 'sible:= Trim(Main.GetFieldValue('#39'DocRef1'#39')) <> '#39#39' ;'#13#10'end;'#13#10 raProgram.ComponentName = 'lbRef1' raProgram.EventName = 'OnGetText' raProgram.EventID = 53 raProgram.CaretPos = ( 52 3) end object raProgramInfo24: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'lbRef2OnGetText' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure lbRef2OnGetText(var Text: String);'#13#10'begin'#13#10' lbRef2.Vi' + 'sible:= Trim(Main.GetFieldValue('#39'DocRef2'#39')) <> '#39#39' ;'#13#10'end;'#13#10 raProgram.ComponentName = 'lbRef2' raProgram.EventName = 'OnGetText' raProgram.EventID = 53 raProgram.CaretPos = ( 3 3) end object raProgramInfo25: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'Variable3OnCalc' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure Variable3OnCalc(var Value: Variant);'#13#10'begin'#13#10#13#10' Value' + ' := Profile.GetFieldValue('#39'CompanyName'#39') +'#13#10' '#39' ('#39' + Profile.GetF' + 'ieldValue('#39'RegisterNo'#39') + '#39')'#39';'#13#10#13#10#13#10'end;'#13#10 raProgram.ComponentName = 'Variable3' raProgram.EventName = 'OnCalc' raProgram.EventID = 33 raProgram.CaretPos = ( 5 8) end object raProgramInfo26: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'VarInclusiveOnCalc' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure VarInclusiveOnCalc(var Value: Variant);'#13#10'begin'#13#10#13#10' ' + 'if plSQL_0.GetFieldValue('#39'TaxInclusive'#39') = 1 then '#13#10' Value := (' + '(plSQL_0.GetFieldValue('#39'AmountWithTax'#39')/plSQL_0.GetFieldValue('#39'Q' + 'ty'#39'))*100/106) +'#13#10' ((plSQL_0.GetFieldValue('#39'UnitPrice'#39')-(plSQL_' + '0.GetFieldValue('#39'AmountWithTax'#39')/plSQL_0.GetFieldValue('#39'Qty'#39')) e' + 'lse'#13#10' Value := plSQL_0.GetFieldValue('#39'UnitPrice'#39');'#13#10#13#10'end;'#13#10 raProgram.ComponentName = 'VarInclusive' raProgram.EventName = 'OnCalc' raProgram.EventID = 33 raProgram.CaretPos = ( 3 3) end object raProgramInfo27: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'Label41OnGetText' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure Label41OnGetText(var Text: String);'#13#10'begin'#13#10#13#10' Text :' + '='#39'Total Price ('#39' + Document_Currency.GetFieldValue('#39'Symbol'#39') + '#39 + ')'#39';'#13#10#13#10'end;'#13#10 raProgram.ComponentName = 'Label41' raProgram.EventName = 'OnGetText' raProgram.EventID = 53 raProgram.CaretPos = ( 22 4) end object raProgramInfo28: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'Region2OnPrint' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure Region2OnPrint;'#13#10'begin'#13#10' Region2.visible := (Documen' + 't_Company.getfieldvalue('#39'TaxExemptNo'#39') <> NULL) and (Document_Co' + 'mpany.getfieldvalue('#39'TaxExemptNo'#39') <> '#39#39')'#13#10'end;'#13#10 raProgram.ComponentName = 'Region2' raProgram.EventName = 'OnPrint' raProgram.EventID = 32 end end object ppDesignLayers1: TppDesignLayers object ppDesignLayer1: TppDesignLayer UserName = 'Foreground' LayerType = ltBanded Index = 0 end end object ppParameterList1: TppParameterList end end