TdvPHPO object TppReport AutoStop = False DataPipeline = Main NoDataBehaviors = [ndBlankReport] PassSetting = psTwoPass PrinterSetup.BinName = 'Default' PrinterSetup.DocumentName = 'SQL Financial Accounting: Purchase Order PCSB Blank copy1 refpo-' + '2010 - New' PrinterSetup.Duplex = dpNone PrinterSetup.PaperName = 'A4' PrinterSetup.PrinterName = 'Default' PrinterSetup.SaveDeviceSettings = False PrinterSetup.mmMarginBottom = 6350 PrinterSetup.mmMarginLeft = 12700 PrinterSetup.mmMarginRight = 6350 PrinterSetup.mmMarginTop = 6350 PrinterSetup.mmPaperHeight = 297127 PrinterSetup.mmPaperWidth = 210079 PrinterSetup.PaperSize = 9 SaveAsTemplate = True Template.DatabaseSettings.Name = '04-Purchase-Order 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 = False ThumbnailSettings.Visible = False 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.SinglePageOnly = True PreviewFormSettings.WindowState = wsMaximized PreviewFormSettings.ZoomSetting = zsPageWidth RTFSettings.DefaultFont.Charset = DEFAULT_CHARSET RTFSettings.DefaultFont.Color = clWindowText RTFSettings.DefaultFont.Height = -13 RTFSettings.DefaultFont.Name = 'Arial' RTFSettings.DefaultFont.Style = [] TextFileName = '($MyDocuments)\Report.pdf' TextSearchSettings.DefaultString = '' TextSearchSettings.Enabled = True XLSSettings.AppName = 'ReportBuilder' XLSSettings.Author = 'ReportBuilder' XLSSettings.ExportComponents = [ecText, ecLine, ecImage, ecRichText, ecBarCode, ecOther] XLSSettings.Subject = 'Report' XLSSettings.Title = 'Report' XLSSettings.WorksheetName = 'Report' Version = '19.02' mmColumnWidth = 0 DataPipelineName = 'Main' object ppHeaderBand2: TppHeaderBand Background.Brush.Style = bsClear Border.mmPadding = 0 PrintHeight = phDynamic mmBottomOffset = 0 mmHeight = 108744 mmPrintPosition = 0 object ppShape2: TppShape DesignLayer = ppDesignLayer1 UserName = 'Shape2' mmHeight = 7408 mmLeft = 0 mmTop = 100277 mmWidth = 193675 BandType = 0 LayerName = Foreground end object Label3: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label3' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'To :' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 10 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3969 mmLeft = 0 mmTop = 42333 mmWidth = 15875 BandType = 0 LayerName = Foreground end object Label5: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label5' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Deliver To :' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 10 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3969 mmLeft = 0 mmTop = 74348 mmWidth = 17992 BandType = 0 LayerName = Foreground end object DBText2: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBTxtBrchName' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'BranchName' DataPipeline = Main Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 10 Font.Style = [fsBold] ParentDataPipeline = False Visible = False DataPipelineName = 'Main' mmHeight = 4234 mmLeft = 19578 mmTop = 70378 mmWidth = 89695 BandType = 0 LayerName = Foreground end object DBText3: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText3' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'DAddress1' DataPipeline = Main Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 10 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Main' mmHeight = 3969 mmLeft = 20108 mmTop = 74613 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 = Main Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 10 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Main' mmHeight = 3969 mmLeft = 20108 mmTop = 79111 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 = Main Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 10 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Main' mmHeight = 3969 mmLeft = 20108 mmTop = 83608 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 = Main Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 10 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Main' mmHeight = 3969 mmLeft = 20108 mmTop = 88106 mmWidth = 89694 BandType = 0 LayerName = Foreground end object DBText9: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText9' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'CompanyName' DataPipeline = Main Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 10 Font.Style = [fsBold] ParentDataPipeline = False DataPipelineName = 'Main' mmHeight = 4234 mmLeft = 19578 mmTop = 42070 mmWidth = 89695 BandType = 0 LayerName = Foreground end object DBText10: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText10' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'Address1' DataPipeline = Main Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 10 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Main' mmHeight = 3969 mmLeft = 19579 mmTop = 47625 mmWidth = 89694 BandType = 0 LayerName = Foreground end object DBText11: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText11' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'Address2' DataPipeline = Main Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 10 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Main' mmHeight = 3969 mmLeft = 19579 mmTop = 52123 mmWidth = 89694 BandType = 0 LayerName = Foreground end object DBText12: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText12' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'Address3' DataPipeline = Main Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 10 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Main' mmHeight = 3969 mmLeft = 19579 mmTop = 56621 mmWidth = 89694 BandType = 0 LayerName = Foreground end object DBText13: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText13' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'Address4' DataPipeline = Main Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 10 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Main' mmHeight = 3969 mmLeft = 19579 mmTop = 61119 mmWidth = 89694 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 = 'Arial' Font.Size = 10 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taRightJustified Transparent = True Visible = False mmHeight = 3969 mmLeft = 160602 mmTop = 79640 mmWidth = 16140 BandType = 0 LayerName = Foreground end object Label29: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label29' HyperlinkEnabled = False AutoSize = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Item' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 10 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taCentered Transparent = True mmHeight = 3969 mmLeft = 794 mmTop = 101865 mmWidth = 12171 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 = 9 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3704 mmLeft = 19315 mmTop = 101865 mmWidth = 22225 BandType = 0 LayerName = Foreground end object Label33: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label33' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Quantity' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3704 mmLeft = 120121 mmTop = 101600 mmWidth = 13758 BandType = 0 LayerName = Foreground end object Label37: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label37' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Unit Price' 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 = 149754 mmTop = 101865 mmWidth = 15081 BandType = 0 LayerName = Foreground end object Label39: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label39' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Unit' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3704 mmLeft = 136790 mmTop = 101865 mmWidth = 5556 BandType = 0 LayerName = Foreground end object Label41: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label41' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Amount' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3704 mmLeft = 176213 mmTop = 101865 mmWidth = 13494 BandType = 0 LayerName = Foreground end object DBText23: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText23' HyperlinkEnabled = False AutoSize = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'Code' DataPipeline = Main Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 10 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Main' mmHeight = 4022 mmLeft = 143934 mmTop = 80222 mmWidth = 10583 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 = Main Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 10 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Main' mmHeight = 4022 mmLeft = 144145 mmTop = 55033 mmWidth = 13547 BandType = 0 LayerName = Foreground end object ppDBText4: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText1' HyperlinkEnabled = False AutoSize = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'DAttention' DataPipeline = Main Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 10 Font.Style = [] Transparent = True DataPipelineName = 'Main' mmHeight = 4021 mmLeft = 29633 mmTop = 92499 mmWidth = 49954 BandType = 0 LayerName = Foreground end object ppDBText19: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText17' HyperlinkEnabled = False BlankWhenZero = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'UDF_RevNo' DataPipeline = Main Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 13 Font.Style = [fsBold] Transparent = True DataPipelineName = 'Main' mmHeight = 4233 mmLeft = 144198 mmTop = 61383 mmWidth = 19050 BandType = 0 LayerName = Foreground end object ppDBText16: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText101' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'UDF_RevDate' DataPipeline = Main Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 13 Font.Style = [fsBold] DataPipelineName = 'Main' mmHeight = 4498 mmLeft = 144198 mmTop = 67733 mmWidth = 30163 BandType = 0 LayerName = Foreground end object ppDBText15: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText29' HyperlinkEnabled = False AutoSize = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'Terms' DataPipeline = Main Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Main' mmHeight = 4445 mmLeft = 144145 mmTop = 86784 mmWidth = 12700 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 = 'Arial' Font.Size = 10 Font.Style = [] Transparent = True mmHeight = 3969 mmLeft = 144198 mmTop = 42333 mmWidth = 8731 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 = 'Arial' Font.Size = 10 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3969 mmLeft = 20108 mmTop = 92340 mmWidth = 9260 BandType = 0 LayerName = Foreground end object ppLabel2: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label1' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Attn To. : ' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 10 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3969 mmLeft = 0 mmTop = 65617 mmWidth = 18256 BandType = 0 LayerName = Foreground end object ppDBText23: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText2' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'Attention' DataPipeline = Main Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 10 Font.Style = [] Transparent = True DataPipelineName = 'Main' mmHeight = 3969 mmLeft = 19315 mmTop = 65617 mmWidth = 89694 BandType = 0 LayerName = Foreground end object ppDBText24: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText20' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'UDF_ExpDate' DataPipeline = Main Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 10 Font.Style = [] Transparent = True DataPipelineName = 'Main' mmHeight = 3704 mmLeft = 144198 mmTop = 73819 mmWidth = 25665 BandType = 0 LayerName = Foreground end object ppRegion1: TppRegion DesignLayer = ppDesignLayer1 UserName = 'RegFromDocNo' Brush.Style = bsClear Caption = 'RegFromDocNo' Pen.Style = psClear Stretch = True Transparent = True mmHeight = 10583 mmLeft = 117211 mmTop = 23283 mmWidth = 79640 BandType = 0 LayerName = Foreground mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 object Label15: 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 = 9 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taRightJustified Transparent = True Visible = False mmHeight = 3704 mmLeft = 118270 mmTop = 24341 mmWidth = 23283 BandType = 0 LayerName = Foreground end object Label67: 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 = 9 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taRightJustified Transparent = True Visible = False mmHeight = 3704 mmLeft = 118270 mmTop = 24077 mmWidth = 21431 BandType = 0 LayerName = Foreground end object ppDBText11: 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 = 'Tahoma' Font.Size = 10 Font.Style = [] ParentDataPipeline = False Transparent = True Visible = False DataPipelineName = 'plSQL_1' mmHeight = 4233 mmLeft = 133350 mmTop = 30956 mmWidth = 17198 BandType = 0 LayerName = Foreground end object ppVariable3: 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 = [] Transparent = True Visible = False mmHeight = 3704 mmLeft = 144463 mmTop = 26722 mmWidth = 23813 BandType = 0 LayerName = Foreground end object ppVariable4: 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 = [] Transparent = True Visible = False mmHeight = 3704 mmLeft = 168275 mmTop = 25929 mmWidth = 21167 BandType = 0 LayerName = Foreground end end object Label19: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label19' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Supplier No.' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 10 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 4022 mmLeft = 118798 mmTop = 80698 mmWidth = 19262 BandType = 0 LayerName = Foreground end object Label25: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label25' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'P/O No. ' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 10 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 4022 mmLeft = 118798 mmTop = 48683 mmWidth = 13462 BandType = 0 LayerName = Foreground end object Label27: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label27' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'P/O Date ' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 10 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 4022 mmLeft = 118798 mmTop = 55033 mmWidth = 15409 BandType = 0 LayerName = Foreground end object ppLabel11: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label43' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Term ' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 10 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 4022 mmLeft = 118798 mmTop = 87048 mmWidth = 9313 BandType = 0 LayerName = Foreground end object ppLabel17: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label12' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Page No ' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 10 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 4022 mmLeft = 118798 mmTop = 42333 mmWidth = 15579 BandType = 0 LayerName = Foreground end object ppLabel4: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label4' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Exp. Date ' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 10 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 4022 mmLeft = 118798 mmTop = 74083 mmWidth = 16383 BandType = 0 LayerName = Foreground end object ppLabel5: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label6' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Rev. No. ' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 10 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 4022 mmLeft = 118798 mmTop = 61383 mmWidth = 15579 BandType = 0 LayerName = Foreground end object ppLabel6: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label7' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Rev. Date ' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 10 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 4022 mmLeft = 118798 mmTop = 67733 mmWidth = 16552 BandType = 0 LayerName = Foreground end object ppLabel13: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label9' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = ':' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 10 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3970 mmLeft = 140229 mmTop = 42333 mmWidth = 1059 BandType = 0 LayerName = Foreground end object ppLabel3: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label16' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = ':' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 10 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3969 mmLeft = 140229 mmTop = 48683 mmWidth = 1058 BandType = 0 LayerName = Foreground end object ppLabel18: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label18' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = ':' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 10 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3970 mmLeft = 140229 mmTop = 55033 mmWidth = 1059 BandType = 0 LayerName = Foreground end object ppLabel19: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label2' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = ':' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 10 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3970 mmLeft = 140229 mmTop = 61383 mmWidth = 1059 BandType = 0 LayerName = Foreground end object ppLabel20: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label20' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = ':' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 10 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3970 mmLeft = 140229 mmTop = 67733 mmWidth = 1059 BandType = 0 LayerName = Foreground end object ppLabel21: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label201' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = ':' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 10 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3970 mmLeft = 140229 mmTop = 74083 mmWidth = 1059 BandType = 0 LayerName = Foreground end object ppLabel22: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label22' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = ':' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 10 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3970 mmLeft = 140229 mmTop = 81227 mmWidth = 1059 BandType = 0 LayerName = Foreground end object ppLabel23: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label23' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = ':' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 10 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3970 mmLeft = 140229 mmTop = 87313 mmWidth = 1059 BandType = 0 LayerName = Foreground end object ppLabel24: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label15' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Req ID' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 10 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 4022 mmLeft = 118798 mmTop = 93398 mmWidth = 10922 BandType = 0 LayerName = Foreground end object ppLabel25: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label17' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = ':' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 10 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3970 mmLeft = 140229 mmTop = 92870 mmWidth = 1059 BandType = 0 LayerName = Foreground end object ppShape1: TppShape DesignLayer = ppDesignLayer1 UserName = 'Shape1' mmHeight = 8731 mmLeft = 69321 mmTop = 31750 mmWidth = 52652 BandType = 0 LayerName = Foreground end object ppLabel26: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label26' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'PURCHASE ORDER' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 13 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True WordWrap = True mmHeight = 6085 mmLeft = 73554 mmTop = 33867 mmWidth = 46038 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 = Main Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 10 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Main' mmHeight = 4022 mmLeft = 144145 mmTop = 48683 mmWidth = 24130 BandType = 0 LayerName = Foreground end object ppDBText9: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText18' HyperlinkEnabled = False AutoSize = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'DocNo' DataPipeline = Main Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 10 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Main' mmHeight = 4022 mmLeft = 144145 mmTop = 48683 mmWidth = 24130 BandType = 0 LayerName = Foreground end object ppDBText18: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText21' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'DocRef1' DataPipeline = Main Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 10 Font.Style = [] Transparent = True DataPipelineName = 'Main' mmHeight = 3969 mmLeft = 168540 mmTop = 48683 mmWidth = 26458 BandType = 0 LayerName = Foreground end object ppDBText5: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText7' HyperlinkEnabled = False Border.mmPadding = 0 DataField = 'UDF_ReqID' DataPipeline = Main Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Arial' Font.Size = 10 Font.Style = [] Transparent = True WordWrap = True DataPipelineName = 'Main' mmHeight = 9260 mmLeft = 143934 mmTop = 92604 mmWidth = 46831 BandType = 0 LayerName = Foreground end object DBImage1: TppDBImage DesignLayer = ppDesignLayer1 UserName = 'DBImage1' AlignHorizontal = ahCenter AlignVertical = avCenter MaintainAspectRatio = False Stretch = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'Logo' DataPipeline = Profile GraphicType = 'Bitmap' ParentDataPipeline = False DataPipelineName = 'Profile' mmHeight = 25400 mmLeft = 794 mmTop = 0 mmWidth = 25400 BandType = 0 LayerName = Foreground end object 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 = 25664 mmLeft = 26458 mmTop = 0 mmWidth = 144780 BandType = 0 LayerName = Foreground mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 mmLeftMargin = 794 end end object ppDetailBand2: TppDetailBand Background1.Brush.Style = bsClear Background2.Brush.Style = bsClear Border.mmPadding = 0 PrintHeight = phDynamic mmBottomOffset = 0 mmHeight = 16669 mmPrintPosition = 0 object ppSubReport1: TppSubReport DesignLayer = ppDesignLayer1 UserName = 'SubRptNorm' ExpandAll = False NewPrintJob = False OutlineSettings.CreateNode = True TraverseAllData = False DataPipelineName = 'Document_Detail' mmHeight = 5027 mmLeft = 0 mmTop = 0 mmWidth = 191029 BandType = 4 LayerName = Foreground mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 object ppChildReport1: TppChildReport AutoStop = False DataPipeline = Document_Detail PrinterSetup.BinName = 'Default' PrinterSetup.DocumentName = 'SQL Financial Accounting: Purchase Order PCSB Blank copy1 refpo-' + '2010 - New' PrinterSetup.Duplex = dpNone PrinterSetup.PaperName = 'A4' PrinterSetup.PrinterName = 'Default' PrinterSetup.SaveDeviceSettings = False PrinterSetup.mmMarginBottom = 6350 PrinterSetup.mmMarginLeft = 12700 PrinterSetup.mmMarginRight = 6350 PrinterSetup.mmMarginTop = 6350 PrinterSetup.mmPaperHeight = 297127 PrinterSetup.mmPaperWidth = 210079 PrinterSetup.PaperSize = 9 Template.DatabaseSettings.NameField = 'Name' Template.DatabaseSettings.TemplateField = 'Template' Template.SaveTo = stDatabase Template.Format = ftASCII Version = '19.02' mmColumnWidth = 0 DataPipelineName = 'Document_Detail' object ppDetailBand3: TppDetailBand Background1.Brush.Style = bsClear Background2.Brush.Style = bsClear Border.mmPadding = 0 PrintHeight = phDynamic mmBottomOffset = 0 mmHeight = 10848 mmPrintPosition = 0 object ppDBRichText1: TppDBRichText DesignLayer = ppDesignLayer2 UserName = 'DBRichText1' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] Border.Weight = 1.000000000000000000 Border.mmPadding = 0 ExportRTFAsBitmap = False DataField = 'Description3' DataPipeline = Document_Detail RemoveEmptyLines = False ShiftRelativeTo = DBMemo1 Stretch = True Transparent = True DataPipelineName = 'Document_Detail' mmHeight = 1588 mmLeft = 19579 mmTop = 7408 mmWidth = 95515 BandType = 4 LayerName = Foreground1 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 mmLeftMargin = 794 end object ppDBText1: TppDBText DesignLayer = ppDesignLayer2 UserName = 'DBText6' HyperlinkEnabled = False AutoSize = True BlankWhenZero = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'UnitPrice' DataPipeline = Document_Detail DisplayFormat = '#,0.00;-#,0.00' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] ParentDataPipeline = False TextAlignment = taCentered Transparent = True DataPipelineName = 'Document_Detail' mmHeight = 3810 mmLeft = 151511 mmTop = 3704 mmWidth = 12361 BandType = 4 LayerName = Foreground1 end object DBMemo1: TppDBMemo DesignLayer = ppDesignLayer2 UserName = 'DBMemo1' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 CharWrap = False DataField = 'Description' DataPipeline = Document_Detail Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [] ParentDataPipeline = False RemoveEmptyLines = False Stretch = True DataPipelineName = 'Document_Detail' mmHeight = 5556 mmLeft = 19844 mmTop = 2910 mmWidth = 94721 BandType = 4 LayerName = Foreground1 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 mmLeading = 0 end object DBText7: TppDBText DesignLayer = ppDesignLayer2 UserName = 'DBText7' HyperlinkEnabled = False BlankWhenZero = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'Qty' DataPipeline = Document_Detail 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 = 'Document_Detail' mmHeight = 3704 mmLeft = 114829 mmTop = 3969 mmWidth = 16140 BandType = 4 LayerName = Foreground1 end object DBText8: TppDBText DesignLayer = ppDesignLayer2 UserName = 'DBText8' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'UOM' DataPipeline = Document_Detail Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] Transparent = True DataPipelineName = 'Document_Detail' mmHeight = 3704 mmLeft = 136261 mmTop = 3969 mmWidth = 11906 BandType = 4 LayerName = Foreground1 end object ppDBText2: TppDBText DesignLayer = ppDesignLayer2 UserName = 'DBText9' HyperlinkEnabled = False BlankWhenZero = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'Amount' DataPipeline = Document_Detail DisplayFormat = '#,0.00;-#,0.00;-' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] ParentDataPipeline = False TextAlignment = taCentered Transparent = True DataPipelineName = 'Document_Detail' mmHeight = 3895 mmLeft = 170392 mmTop = 3704 mmWidth = 21167 BandType = 4 LayerName = Foreground1 end object DBCalc1: TppDBCalc DesignLayer = ppDesignLayer2 UserName = 'DBCalc1' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'Number' DataPipeline = Document_Detail Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] TextAlignment = taCentered Transparent = True DBCalcType = dcCount DataPipelineName = 'Document_Detail' mmHeight = 3704 mmLeft = 794 mmTop = 3440 mmWidth = 12171 BandType = 4 LayerName = Foreground1 end end object ppGroup2: TppGroup BreakName = 'FromDocNo' DataPipeline = Document_Detail GroupFileSettings.NewFile = False GroupFileSettings.EmailFile = False OutlineSettings.CreateNode = True StartOnOddPage = False UserName = 'Group2' mmNewColumnThreshold = 0 mmNewPageThreshold = 0 DataPipelineName = 'Document_Detail' NewFile = False object ppGroupHeaderBand2: TppGroupHeaderBand Background.Brush.Style = bsClear Border.mmPadding = 0 PrintHeight = phDynamic mmBottomOffset = 0 mmHeight = 4498 mmPrintPosition = 0 object ppVariable1: TppVariable DesignLayer = ppDesignLayer2 UserName = 'Variable1' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 BlankWhenZero = False CalcOrder = 0 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [fsUnderline] Transparent = True Visible = False mmHeight = 3810 mmLeft = 794 mmTop = 688 mmWidth = 12912 BandType = 3 GroupNo = 0 LayerName = Foreground1 end end object ppGroupFooterBand2: TppGroupFooterBand Background.Brush.Style = bsClear Border.mmPadding = 0 HideWhenOneDetail = False mmBottomOffset = 0 mmHeight = 1852 mmPrintPosition = 0 end end object raCodeModule2: TraCodeModule object raProgramInfo4: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'Variable1OnCalc' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure Variable1OnCalc(var Value: Variant);'#13#10' Var'#13#10' D, DD, F' + 'DN, FDD: String;'#13#10'begin'#13#10' FDN:= Document_Detail.GetfieldValue(' + #39'FromDocNo'#39');'#13#10' FDD:= Document_Detail.GetFieldValue('#39'FromDocDa' + 'te'#39');'#13#10' If Trim(FDN) <> '#39#39' then'#13#10' D := '#39'From Doc No. : '#39' ' + '+ FDN + '#39'; '#39' else'#13#10' D := '#39#39';'#13#10' If Trim(FDD) <> '#39#39' Then'#13 + #10' DD := '#39'From Doc Date : '#39' + FDD else'#13#10' DD := '#39#39';'#13#10' ' + 'Value:= D + DD;'#13#10'end;'#13#10 raProgram.ComponentName = 'Variable1' raProgram.EventName = 'OnCalc' raProgram.EventID = 33 raProgram.CaretPos = ( 1 4) end object raProgramInfo5: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'Variable1OnPrint' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure Variable1OnPrint;'#13#10'begin'#13#10' if (Variable1.Value = '#39#39')' + ' or (plSQL_1['#39'COUNT(*)'#39'] = 1) then'#13#10' Variable1.Visible:= Fa' + 'lse else'#13#10' Variable1.Visible:= True;'#13#10'end;'#13#10 raProgram.ComponentName = 'Variable1' raProgram.EventName = 'OnPrint' raProgram.EventID = 32 end end object ppDesignLayers2: TppDesignLayers object ppDesignLayer2: TppDesignLayer UserName = 'Foreground1' LayerType = ltBanded Index = 0 end end end end object ppSubReport2: TppSubReport DesignLayer = ppDesignLayer1 UserName = 'SubRptMerge' ExpandAll = False NewPrintJob = False OutlineSettings.CreateNode = True ShiftRelativeTo = ppSubReport1 TraverseAllData = False Visible = False DataPipelineName = 'plSQL_2' mmHeight = 5027 mmLeft = 0 mmTop = 4763 mmWidth = 191029 BandType = 4 LayerName = Foreground mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 object ppChildReport2: TppChildReport AutoStop = False DataPipeline = plSQL_2 PrinterSetup.BinName = 'Default' PrinterSetup.DocumentName = 'SQL Financial Accounting: Purchase Order PCSB Blank copy1 refpo-' + '2010 - New' PrinterSetup.Duplex = dpNone PrinterSetup.PaperName = 'A4' PrinterSetup.PrinterName = 'Default' PrinterSetup.SaveDeviceSettings = False PrinterSetup.mmMarginBottom = 6350 PrinterSetup.mmMarginLeft = 12700 PrinterSetup.mmMarginRight = 6350 PrinterSetup.mmMarginTop = 6350 PrinterSetup.mmPaperHeight = 297127 PrinterSetup.mmPaperWidth = 210079 PrinterSetup.PaperSize = 9 Template.DatabaseSettings.NameField = 'Name' Template.DatabaseSettings.TemplateField = 'Template' Template.SaveTo = stDatabase Template.Format = ftASCII Version = '19.02' mmColumnWidth = 0 DataPipelineName = 'plSQL_2' object ppDetailBand1: TppDetailBand Background1.Brush.Style = bsClear Background2.Brush.Style = bsClear Border.mmPadding = 0 PrintHeight = phDynamic mmBottomOffset = 0 mmHeight = 6879 mmPrintPosition = 0 object ppDBRichText3: TppDBRichText DesignLayer = ppDesignLayer3 UserName = 'DBRichText1' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] Border.Weight = 1.000000000000000000 Border.mmPadding = 0 ExportRTFAsBitmap = False DataField = 'Description3' DataPipeline = plSQL_3 ParentDataPipeline = False RemoveEmptyLines = False ShiftRelativeTo = ppDBMemo1 Stretch = True Transparent = True DataPipelineName = 'plSQL_3' mmHeight = 1588 mmLeft = 39952 mmTop = 5291 mmWidth = 78846 BandType = 4 LayerName = Foreground2 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 mmLeftMargin = 794 end object ppDBText10: TppDBText DesignLayer = ppDesignLayer3 UserName = 'DBTxtUPrice' HyperlinkEnabled = False BlankWhenZero = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'UnitPrice' DataPipeline = plSQL_2 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] ParentDataPipeline = False TextAlignment = taRightJustified Transparent = True DataPipelineName = 'plSQL_2' mmHeight = 3810 mmLeft = 143140 mmTop = 794 mmWidth = 15081 BandType = 4 LayerName = Foreground2 end object ppDBMemo1: TppDBMemo DesignLayer = ppDesignLayer3 UserName = 'DBMemo1' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 CharWrap = False DataField = 'Description' DataPipeline = plSQL_3 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] ParentDataPipeline = False RemoveEmptyLines = False Stretch = True DataPipelineName = 'plSQL_3' mmHeight = 4233 mmLeft = 39952 mmTop = 794 mmWidth = 78846 BandType = 4 LayerName = Foreground2 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 mmLeading = 0 end object ppDBText12: TppDBText DesignLayer = ppDesignLayer3 UserName = 'DBTxtQty' HyperlinkEnabled = False BlankWhenZero = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'SumOF_Qty' DataPipeline = plSQL_2 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] ParentDataPipeline = False TextAlignment = taRightJustified Transparent = True DataPipelineName = 'plSQL_2' mmHeight = 3810 mmLeft = 118798 mmTop = 794 mmWidth = 13758 BandType = 4 LayerName = Foreground2 end object ppDBText14: TppDBText DesignLayer = ppDesignLayer3 UserName = 'DBText8' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'UOM' 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 = 3810 mmLeft = 133879 mmTop = 794 mmWidth = 8996 BandType = 4 LayerName = Foreground2 end object ppDBText20: TppDBText DesignLayer = ppDesignLayer3 UserName = 'DBTxtAmt' HyperlinkEnabled = False BlankWhenZero = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'SumOF_AmountWithTax' DataPipeline = plSQL_2 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] ParentDataPipeline = False TextAlignment = taRightJustified Transparent = True DataPipelineName = 'plSQL_2' mmHeight = 3810 mmLeft = 173567 mmTop = 794 mmWidth = 18521 BandType = 4 LayerName = Foreground2 end object ppDBCalc1: TppDBCalc DesignLayer = ppDesignLayer3 UserName = 'DBCalc1' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'ItemCode' DataPipeline = plSQL_2 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] TextAlignment = taCentered Transparent = True DBCalcType = dcCount DataPipelineName = 'plSQL_2' mmHeight = 3810 mmLeft = 794 mmTop = 794 mmWidth = 12171 BandType = 4 LayerName = Foreground2 end object ppDBText21: TppDBText DesignLayer = ppDesignLayer3 UserName = 'DBText3' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'DISC' DataPipeline = plSQL_2 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] ParentDataPipeline = False TextAlignment = taRightJustified DataPipelineName = 'plSQL_2' mmHeight = 3810 mmLeft = 158486 mmTop = 794 mmWidth = 15081 BandType = 4 LayerName = Foreground2 end object ppDBText22: TppDBText DesignLayer = ppDesignLayer3 UserName = 'DBText5' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'ItemCode' DataPipeline = plSQL_2 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] Transparent = True DataPipelineName = 'plSQL_2' mmHeight = 3810 mmLeft = 12965 mmTop = 794 mmWidth = 25400 BandType = 4 LayerName = Foreground2 end end object raCodeModule3: TraCodeModule object raProgramInfo6: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'DetailBeforePrint' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure DetailBeforePrint;'#13#10'begin'#13#10' DBTxtQty.DisplayFormat:= ' + 'Option.GetFieldValue('#39'StockQuantityDisplayFormat'#39');'#13#10' DBTxtUPri' + 'ce.DisplayFormat:= Option.GetFieldValue('#39'StockPriceDisplayFormat' + #39');'#13#10' DBTxtAmt.DisplayFormat:= Option.GetFieldValue('#39'Accounting' + 'ValueDisplayFormat'#39');'#13#10'end;'#13#10 raProgram.ComponentName = 'Detail' raProgram.EventName = 'BeforePrint' raProgram.EventID = 24 end end object ppDesignLayers3: TppDesignLayers object ppDesignLayer3: TppDesignLayer UserName = 'Foreground2' LayerType = ltBanded Index = 0 end end end end end object ppFooterBand3: TppFooterBand Background.Brush.Style = bsClear Border.mmPadding = 0 mmBottomOffset = 0 mmHeight = 0 mmPrintPosition = 0 end object ppGroup1: TppGroup BreakName = 'DocKey' DataPipeline = Main GroupFileSettings.NewFile = False GroupFileSettings.EmailFile = False OutlineSettings.CreateNode = True NewPage = True ResetPageNo = True ReprintOnSubsequentPage = False StartOnOddPage = False UserName = 'Group1' mmNewColumnThreshold = 0 mmNewPageThreshold = 0 DataPipelineName = 'Main' NewFile = False object ppGroupHeaderBand1: TppGroupHeaderBand Background.Brush.Style = bsClear Border.mmPadding = 0 PrintHeight = phDynamic mmBottomOffset = 0 mmHeight = 8202 mmPrintPosition = 0 object ppDBRichText4: TppDBRichText DesignLayer = ppDesignLayer1 UserName = 'DBRichText4' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] Border.Weight = 1.000000000000000000 Border.mmPadding = 0 ExportRTFAsBitmap = False DataField = 'Note' DataPipeline = Main RemoveEmptyLines = False Stretch = True Transparent = True DataPipelineName = 'Main' mmHeight = 4445 mmLeft = 19473 mmTop = 1058 mmWidth = 165312 BandType = 3 GroupNo = 0 LayerName = Foreground mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 mmLeftMargin = 794 end end object ppGroupFooterBand1: TppGroupFooterBand Background.Brush.Style = bsClear Border.mmPadding = 0 PrintHeight = phDynamic HideWhenOneDetail = False mmBottomOffset = 0 mmHeight = 65088 mmPrintPosition = 228600 object ppRegion5: TppRegion DesignLayer = ppDesignLayer1 UserName = 'RegDeposit' Caption = 'RegDeposit' ParentWidth = True Pen.Style = psClear Stretch = True Visible = False mmHeight = 11113 mmLeft = 0 mmTop = 2910 mmWidth = 191029 BandType = 5 GroupNo = 0 LayerName = Foreground mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 object ppDBText13: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBTxtInvAmt' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'DocAmt' DataPipeline = Main 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 = 'Main' mmHeight = 3810 mmLeft = 135996 mmTop = 5027 mmWidth = 56092 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppLabel9: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label10' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Total' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3810 mmLeft = 39952 mmTop = 5027 mmWidth = 7027 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppLabel10: TppLabel DesignLayer = ppDesignLayer1 UserName = 'lbLessDeposit' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Less Deposit' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3810 mmLeft = 39952 mmTop = 8466 mmWidth = 17441 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppVariable7: TppVariable DesignLayer = ppDesignLayer1 UserName = 'VarDeposit' HyperlinkEnabled = False AutoSize = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 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 mmHeight = 3810 mmLeft = 162190 mmTop = 8466 mmWidth = 29898 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppLine6: TppLine DesignLayer = ppDesignLayer1 UserName = 'Line1' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Weight = 0.750000000000000000 mmHeight = 1852 mmLeft = 39952 mmTop = 4233 mmWidth = 152400 BandType = 5 GroupNo = 0 LayerName = Foreground end end object ppRegion6: TppRegion DesignLayer = ppDesignLayer1 UserName = 'RegPayableAmt' Brush.Style = bsClear Caption = 'RegPayableAmt' ParentWidth = True Pen.Style = psClear ShiftRelativeTo = ppRegion5 Transparent = True mmHeight = 52388 mmLeft = 0 mmTop = 12700 mmWidth = 191029 BandType = 5 GroupNo = 0 LayerName = Foreground mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 object ppShape3: TppShape DesignLayer = ppDesignLayer1 UserName = 'Shape3' mmHeight = 5556 mmLeft = 529 mmTop = 16404 mmWidth = 193940 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppLabel12: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label51' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Total' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 10 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3969 mmLeft = 139171 mmTop = 32824 mmWidth = 7938 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppVariable6: TppVariable DesignLayer = ppDesignLayer1 UserName = 'VarPayAmt' HyperlinkEnabled = False AutoSize = 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 = 'Arial' Font.Size = 10 Font.Style = [fsBold] TextAlignment = taRightJustified Transparent = True mmHeight = 4498 mmLeft = 165100 mmTop = 32295 mmWidth = 23283 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 = 'Arial' Font.Size = 10 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taRightJustified Transparent = True mmHeight = 3969 mmLeft = 152136 mmTop = 59267 mmWidth = 32808 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppVariable2: TppVariable DesignLayer = ppDesignLayer1 UserName = 'Variable4' HyperlinkEnabled = False AutoSize = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 BlankWhenZero = False CalcOrder = 2 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 9 Font.Style = [] Transparent = True WordWrap = True mmHeight = 4233 mmLeft = 3440 mmTop = 17462 mmWidth = 191030 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppLabel7: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label8' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'E & O.E ' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 10 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3969 mmLeft = 88106 mmTop = 22221 mmWidth = 13758 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppLine1: TppLine DesignLayer = ppDesignLayer1 UserName = 'Line2' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Weight = 0.750000000000000000 mmHeight = 4496 mmLeft = 139700 mmTop = 59267 mmWidth = 54240 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppLine2: TppLine DesignLayer = ppDesignLayer1 UserName = 'Line3' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Style = lsDouble Weight = 0.750000000000000000 mmHeight = 1323 mmLeft = 139171 mmTop = 37322 mmWidth = 53711 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppRichText1: TppRichText DesignLayer = ppDesignLayer1 UserName = 'RichText1' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'mm' ExportRTFAsBitmap = False MailMerge = True RichText = '{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil\fcha' + 'rset0 MS Sans Serif;}{\f1\fnil\fcharset0 Tahoma;}{\f2\fnil MS Sa' + 'ns Serif;}}'#13#10'\viewkind4\uc1\pard\f0\fs16 - \f1 Payment will be 6' + '0 days after receipt of invoice unless otherwise specified elsew' + 'here in this order.\par'#13#10'- Original copy of this order availabl' + 'e upon request otherwise all orders will be sent via fax only.\p' + 'ar'#13#10'\b\f0\fs22 **To notify PCSB before release shipment.**\f2\pa' + 'r'#13#10'}'#13#10#0 RemoveEmptyLines = False mmHeight = 12171 mmLeft = 1323 mmTop = 26987 mmWidth = 135467 BandType = 5 GroupNo = 0 LayerName = Foreground mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 mmLeftMargin = 794 end object ppLabel14: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label11' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'PLEASE AKNOWLEDGE THIS ORDER' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 10 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3969 mmLeft = 73554 mmTop = 58737 mmWidth = 62706 BandType = 5 GroupNo = 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 = 'Arial' Font.Size = 10 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Document_Currency' mmHeight = 3969 mmLeft = 148961 mmTop = 32824 mmWidth = 11906 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppDBText7: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText15' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'UDF_CustName' DataPipeline = Main Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [] Transparent = True DataPipelineName = 'Main' mmHeight = 4233 mmLeft = 1323 mmTop = 39950 mmWidth = 138642 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppDBText8: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText16' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'UDF_CustPo' DataPipeline = Main Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [] Transparent = True DataPipelineName = 'Main' mmHeight = 7144 mmLeft = 1323 mmTop = 45240 mmWidth = 133350 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppLabel27: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label24' HyperlinkEnabled = False AutoSize = False Border.mmPadding = 0 Caption = 'User:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Arial' Font.Size = 5 Font.Style = [fsItalic] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 2117 mmLeft = 8996 mmTop = 57414 mmWidth = 5556 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppDBText17: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText19' HyperlinkEnabled = False Border.mmPadding = 0 DataField = 'Code' DataPipeline = User Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Arial' Font.Size = 5 Font.Style = [fsItalic] ParentDataPipeline = False Transparent = True DataPipelineName = 'User' mmHeight = 2117 mmLeft = 14554 mmTop = 57414 mmWidth = 8996 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppLabel28: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label28' Border.mmPadding = 0 Caption = 'Total Before Tax' 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 = 139171 mmTop = 22225 mmWidth = 25136 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppLabel29: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label30' Border.mmPadding = 0 Caption = 'Tax Amt' 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 = 139171 mmTop = 26988 mmWidth = 12700 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppVariable5: TppVariable DesignLayer = ppDesignLayer1 UserName = 'Variable5' Border.mmPadding = 0 BlankWhenZero = False CalcOrder = 3 DataType = dtDouble DisplayFormat = '#,0.00;-#,0.00' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [] TextAlignment = taRightJustified Transparent = True mmHeight = 4234 mmLeft = 174090 mmTop = 22221 mmWidth = 14287 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppVariable8: TppVariable DesignLayer = ppDesignLayer1 UserName = 'Variable8' Border.mmPadding = 0 BlankWhenZero = False CalcOrder = 4 DataType = dtDouble DisplayFormat = '#,0.00;-#,0.00' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] TextAlignment = taRightJustified Transparent = True mmHeight = 3704 mmLeft = 175413 mmTop = 26987 mmWidth = 12964 BandType = 5 GroupNo = 0 LayerName = Foreground end object ppLine3: TppLine DesignLayer = ppDesignLayer1 UserName = 'Line4' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Pen.Width = 0 Weight = 0.250000000000000000 mmHeight = 1323 mmLeft = 139174 mmTop = 31200 mmWidth = 53711 BandType = 5 GroupNo = 0 LayerName = Foreground end end end end object raCodeModule1: TraCodeModule object raProgramInfo7: 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: String' + ';'#13#10#13#10'begin'#13#10#13#10'end;'#13#10 end object raProgramInfo8: 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 DISTINCT D' + 'ocKey, FromDocNo '#39' +'#13#10' '#39'FROM Document_Detail'#39';'#13#10' SQ' + 'L_1 := '#39'SELECT DocKey, COUNT(*) '#39' +'#13#10' '#39'FROM plSQL_0 '#39 + ' +'#13#10' '#39'GROUP BY DocKey'#39';'#13#10' SQL_2 := '#39'SELECT DocKey, ' + 'ItemCode, UOM, UnitPrice, Disc, MIN(Seq) Seq, Description, '#39' +'#13#10 + #9#9#39'SUM(Qty), SUM(Amount), SUM(AmountWithTax) '#39' +'#13#10' '#39'F' + 'ROM Document_Detail '#39' +'#13#10' '#39'GROUP BY DocKey, ItemCode,' + ' UOM, UnitPrice, Disc '#39';'#13#10' SQL_3 := '#39'SELECT DocKey, ItemCode, ' + 'Description, Description2, Description3, Seq '#39'+ '#13#10#9#9#39'FROM Docume' + 'nt_Detail '#39' +'#13#10#9#9#39'ORDER BY Seq DESC'#39';'#13#10'end;'#13#10 end object raProgramInfo9: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'VarPayAmtOnCalc' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure VarPayAmtOnCalc(var Value: Variant);'#13#10'begin'#13#10#13#10' Value' + ' := Main.GetFieldValue('#39'DocAmt'#39')'#13#10#13#10'end;'#13#10 raProgram.ComponentName = 'VarPayAmt' raProgram.EventName = 'OnCalc' raProgram.EventID = 33 end object raProgramInfo10: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'ReportBeforePrint' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure ReportBeforePrint;'#13#10'Var D: String;'#13#10'begin'#13#10' D:= Opt' + 'ion.GetFieldValue('#39'AccountingValueDisplayFormat'#39');'#13#10' LocalSQL' + '_SELECT(plSQL_0, SQL_0, '#39'DocKey'#39');'#13#10' LocalSQL_SELECT(plSQL_1,' + ' SQL_1, '#39'DocKey'#39');'#13#10' LocalSQL_SELECT(plSQL_2, SQL_2, '#39'DocKey;' + 'Seq'#39');'#13#10' LocalSQL_SELECT(plSQL_3, SQL_3, '#39'DocKey;ItemCode;Des' + 'cription'#39'); '#13#10' SetDataPipelineFieldLink(Main, plSQL_0, '#39'Doc' + 'Key'#39', '#39'DocKey'#39');'#13#10' SetDataPipelineFieldLink(Main, plSQL_1, '#39'D' + 'ocKey'#39', '#39'DocKey'#39');'#13#10' SetDataPipelineFieldLink(Main, plSQL_2, ' + #39'DocKey'#39', '#39'DocKey'#39');'#13#10' SetDataPipelineFieldLink(plSQL_2, plSQ' + 'L_3, '#39'DocKey;ItemCode;Description'#39', '#39'DocKey;ItemCode;Description' + #39');'#13#10' '#13#10' VarPayAmt.DisplayFormat:= D;'#13#10' VarDeposit.Display' + 'Format:= D;'#13#10'end;'#13#10 raProgram.ComponentName = 'Report' raProgram.EventName = 'BeforePrint' raProgram.EventID = 1 end object raProgramInfo11: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'VarDepositOnCalc' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure VarDepositOnCalc(var Value: Variant);'#13#10'begin'#13#10#13#10' Valu' + 'e := 0 - Main.GetFieldValue('#39'D_Amount'#39');'#13#10#13#10'end;'#13#10 raProgram.ComponentName = 'VarDeposit' raProgram.EventName = 'OnCalc' raProgram.EventID = 33 end object raProgramInfo12: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'DetailBeforePrint' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure DetailBeforePrint;'#13#10'begin'#13#10' if Main.GetFieldValue('#39'D_' + 'Amount'#39') = 0 then begin'#13#10' GroupFooterBand1.PrintPosition:= 9' + '; end else'#13#10' if Main.GetFieldValue('#39'D_Amount'#39') <> 0 then begin'#13 + #10' GroupFooterBand1.PrintPosition:= 8.6;'#13#10' end;'#13#10'end;'#13#10 raProgram.ComponentName = 'Detail' raProgram.EventName = 'BeforePrint' raProgram.EventID = 24 end object raProgramInfo13: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'Variable4OnCalc' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure Variable4OnCalc(var Value: Variant);'#13#10'begin'#13#10' Value :=' + ' Document_Currency.GetFieldValue('#39'Description'#39');'#13#10' Value := Val' + 'ue + '#39' : '#39' + CurrencyToEngWord(Main.GetFieldValue('#39'DocAmt'#39')- Mai' + 'n.GetFieldValue('#39'UDF_DiscLum'#39')'#13#10') + '#39' ONLY'#39';'#13#10'end;'#13#10 raProgram.ComponentName = 'Variable4' raProgram.EventName = 'OnCalc' raProgram.EventID = 33 end object raProgramInfo14: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'lbDOAttnOnPrint' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure lbDOAttnOnPrint;'#13#10'begin'#13#10' lbDOAttn.Visible:= Trim(Ma' + 'in.GetFieldValue('#39'DAttention'#39')) <> '#39#39';'#13#10'end;'#13#10 raProgram.ComponentName = 'lbDOAttn' raProgram.EventName = 'OnPrint' raProgram.EventID = 32 end object raProgramInfo15: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'HeaderBeforePrint' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure HeaderBeforePrint;'#13#10'begin'#13#10' lbDONo.Visible:= Trim(Var' + 'FromDocNo.Value) <> '#39#39';'#13#10' lbDODate.Visible:= Trim(VarFromDocNo.' + 'Value) <>'#39#39';'#13#10' VarFromDocDate.Visible:= Trim(VarFromDocNo.Value' + ') <>'#39#39';'#13#10'end;'#13#10 raProgram.ComponentName = 'Header' raProgram.EventName = 'BeforePrint' raProgram.EventID = 24 end object raProgramInfo16: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'lbLessDepositOnGetText' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure lbLessDepositOnGetText(var Text: String);'#13#10'Var DC: Str' + 'ing;'#13#10'begin'#13#10' DC:= Main.GetFieldValue('#39'D_ChequeNumber'#39');'#13#10' I' + 'f Trim(DC) = '#39#39' then'#13#10' Text := '#39'Less Deposit'#39' else'#13#10' If T' + 'rim(DC) <> '#39#39' then'#13#10' Text := '#39'Less Deposit (Cheque No : '#39 + ' + DC + '#39')'#39';'#13#10'end;'#13#10 raProgram.ComponentName = 'lbLessDeposit' raProgram.EventName = 'OnGetText' raProgram.EventID = 53 end object raProgramInfo17: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'RegDepositOnPrint' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure RegDepositOnPrint;'#13#10'begin'#13#10' RegDeposit.Visible:= VarD' + 'eposit.Value <> 0;'#13#10'end;'#13#10 raProgram.ComponentName = 'RegDeposit' raProgram.EventName = 'OnPrint' raProgram.EventID = 32 end object raProgramInfo18: 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 end object raProgramInfo19: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'SubRptNormOnPrint' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure SubRptNormOnPrint;'#13#10'begin'#13#10' SubRptNorm.Visible:= Opti' + 'on.GetFieldValue('#39'MergeSameItemCode'#39')= False;'#13#10'end;'#13#10 raProgram.ComponentName = 'SubRptNorm' raProgram.EventName = 'OnPrint' raProgram.EventID = 32 end object raProgramInfo20: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'SubRptMergeOnPrint' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure SubRptMergeOnPrint;'#13#10'begin'#13#10' SubRptMerge.Visible:= Op' + 'tion.GetFieldValue('#39'MergeSameItemCode'#39')= True;'#13#10'end;'#13#10 raProgram.ComponentName = 'SubRptMerge' raProgram.EventName = 'OnPrint' raProgram.EventID = 32 end object raProgramInfo21: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'Variable5OnCalc' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure Variable5OnCalc(var Value: Variant);'#13#10'begin'#13#10' Variabl' + 'e5.DisplayFormat := Option.GetFieldValue('#39'AccountingValueDisplay' + 'Format'#39');'#13#10' Value := GetAggregateValue (agSUM, Document_detail,' + ' '#39'DocKey'#39', '#39'LocalAmount'#39'); '#13#10#13#10'end;'#13#10 raProgram.ComponentName = 'Variable5' raProgram.EventName = 'OnCalc' raProgram.EventID = 33 end object raProgramInfo22: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'Variable8OnCalc' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure Variable8OnCalc(var Value: Variant);'#13#10'begin'#13#10'Variable8' + '.DisplayFormat := Option.GetFieldValue('#39'AccountingValueDisplayFo' + 'rmat'#39');'#13#10'Value := GetAggregateValue (agSUM ,Document_detail ,'#39'D' + 'ocKey'#39' ,'#39'LocalTaxAmt'#39');'#13#10#13#10#13#10'end;'#13#10 raProgram.ComponentName = 'Variable8' raProgram.EventName = 'OnCalc' raProgram.EventID = 33 end end object ppDesignLayers1: TppDesignLayers object ppDesignLayer1: TppDesignLayer UserName = 'Foreground' LayerType = ltBanded Index = 0 end end object ppParameterList1: TppParameterList end end