TdvSLIV object TppReport AutoStop = False DataPipeline = Main NoDataBehaviors = [ndBlankReport] PassSetting = psTwoPass PrinterSetup.BinName = 'Default' PrinterSetup.DocumentName = 'SQL Financial Accounting: Sales Invoice (Without Tax / Without L' + 'etterH) - Unit' PrinterSetup.Duplex = dpNone PrinterSetup.PaperName = 'Letter' PrinterSetup.PrinterName = 'Default' PrinterSetup.SaveDeviceSettings = False PrinterSetup.mmMarginBottom = 6350 PrinterSetup.mmMarginLeft = 6350 PrinterSetup.mmMarginRight = 6350 PrinterSetup.mmMarginTop = 6350 PrinterSetup.mmPaperHeight = 279401 PrinterSetup.mmPaperWidth = 215900 PrinterSetup.PaperSize = 1 SaveAsTemplate = True Template.DatabaseSettings.Name = '02-Sales-Invoice-Forwarding-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 = 191029 DataPipelineName = 'Main' object ppHeaderBand2: TppHeaderBand Background.Brush.Style = bsClear Border.mmPadding = 0 mmBottomOffset = 0 mmHeight = 131763 mmPrintPosition = 0 object Label3: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label3' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Invoice Address' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 7 Font.Style = [fsUnderline] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3104 mmLeft = 794 mmTop = 33338 mmWidth = 17639 BandType = 0 LayerName = Foreground2 end object Label5: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label5' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Shipment Details' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 7 Font.Style = [fsUnderline] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3104 mmLeft = 1058 mmTop = 70379 mmWidth = 18627 BandType = 0 LayerName = Foreground2 end object DBText9: TppDBText DesignLayer = ppDesignLayer3 UserName = 'DBText9' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'CompanyName' DataPipeline = Main Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [fsBold] ParentDataPipeline = False DataPipelineName = 'Main' mmHeight = 4233 mmLeft = 794 mmTop = 36777 mmWidth = 95250 BandType = 0 LayerName = Foreground2 end object DBText10: TppDBText DesignLayer = ppDesignLayer3 UserName = 'DBText10' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'Address1' DataPipeline = Main Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Main' mmHeight = 4233 mmLeft = 794 mmTop = 41275 mmWidth = 95250 BandType = 0 LayerName = Foreground2 end object DBText11: TppDBText DesignLayer = ppDesignLayer3 UserName = 'DBText11' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'Address2' DataPipeline = Main Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Main' mmHeight = 4233 mmLeft = 794 mmTop = 45773 mmWidth = 95250 BandType = 0 LayerName = Foreground2 end object DBText12: TppDBText DesignLayer = ppDesignLayer3 UserName = 'DBText12' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'Address3' DataPipeline = Main Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Main' mmHeight = 4233 mmLeft = 794 mmTop = 50271 mmWidth = 95250 BandType = 0 LayerName = Foreground2 end object DBText13: TppDBText DesignLayer = ppDesignLayer3 UserName = 'DBText13' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'Address4' DataPipeline = Main Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Main' mmHeight = 4233 mmLeft = 794 mmTop = 54769 mmWidth = 95250 BandType = 0 LayerName = Foreground2 end object Label17: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label17' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'SALES PERSON:' 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 = 3969 mmLeft = 108215 mmTop = 61119 mmWidth = 23548 BandType = 0 LayerName = Foreground2 end object Label19: TppLabel DesignLayer = ppDesignLayer3 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 = 9 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3969 mmLeft = 108215 mmTop = 46831 mmWidth = 31485 BandType = 0 LayerName = Foreground2 end object Label21: TppLabel DesignLayer = ppDesignLayer3 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 = 9 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3969 mmLeft = 108215 mmTop = 51594 mmWidth = 15875 BandType = 0 LayerName = Foreground2 end object Label25: TppLabel DesignLayer = ppDesignLayer3 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 = 11 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 4798 mmLeft = 108215 mmTop = 36513 mmWidth = 35842 BandType = 0 LayerName = Foreground2 end object Label27: TppLabel DesignLayer = ppDesignLayer3 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 = 9 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3969 mmLeft = 108215 mmTop = 42069 mmWidth = 7938 BandType = 0 LayerName = Foreground2 end object Label29: TppLabel DesignLayer = ppDesignLayer3 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 = 9 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taCentered Transparent = True mmHeight = 3951 mmLeft = 795 mmTop = 120386 mmWidth = 12172 BandType = 0 LayerName = Foreground2 end object Label31: TppLabel DesignLayer = ppDesignLayer3 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 = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3969 mmLeft = 15344 mmTop = 120386 mmWidth = 23283 BandType = 0 LayerName = Foreground2 end object DBText23: TppDBText DesignLayer = ppDesignLayer3 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 = 'Tahoma' Font.Size = 9 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Main' mmHeight = 3951 mmLeft = 144727 mmTop = 47096 mmWidth = 13970 BandType = 0 LayerName = Foreground2 end object DBText24: TppDBText DesignLayer = ppDesignLayer3 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 = 'Tahoma' Font.Size = 11 Font.Style = [fsBold] ParentDataPipeline = False Transparent = True DataPipelineName = 'Main' mmHeight = 4798 mmLeft = 144727 mmTop = 36777 mmWidth = 19050 BandType = 0 LayerName = Foreground2 end object DBText27: TppDBText DesignLayer = ppDesignLayer3 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 = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Document_Currency' mmHeight = 3704 mmLeft = 144727 mmTop = 51858 mmWidth = 13494 BandType = 0 LayerName = Foreground2 end object DBText28: TppDBText DesignLayer = ppDesignLayer3 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 = 'Tahoma' Font.Size = 9 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Main' mmHeight = 3951 mmLeft = 144727 mmTop = 42333 mmWidth = 17216 BandType = 0 LayerName = Foreground2 end object DBText35: TppDBText DesignLayer = ppDesignLayer3 UserName = 'DBText35' HyperlinkEnabled = False AutoSize = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'Agent' DataPipeline = Main Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Main' mmHeight = 3951 mmLeft = 144727 mmTop = 61119 mmWidth = 4516 BandType = 0 LayerName = Foreground2 end object Label2: TppLabel DesignLayer = ppDesignLayer3 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 Visible = False mmHeight = 4233 mmLeft = 794 mmTop = 63500 mmWidth = 4699 BandType = 0 LayerName = Foreground2 end object Label4: TppLabel DesignLayer = ppDesignLayer3 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 Visible = False mmHeight = 4233 mmLeft = 47361 mmTop = 63500 mmWidth = 5292 BandType = 0 LayerName = Foreground2 end object Label8: TppLabel DesignLayer = ppDesignLayer3 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 Visible = False mmHeight = 4233 mmLeft = 794 mmTop = 59002 mmWidth = 6435 BandType = 0 LayerName = Foreground2 end object DBText16: TppDBText DesignLayer = ppDesignLayer3 UserName = 'DBText16' HyperlinkEnabled = False AutoSize = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'Attention' DataPipeline = Main Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [] Transparent = True DataPipelineName = 'Main' mmHeight = 4233 mmLeft = 14817 mmTop = 59267 mmWidth = 26952 BandType = 0 LayerName = Foreground2 end object ppLabel11: TppLabel DesignLayer = ppDesignLayer3 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 = 9 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3969 mmLeft = 108215 mmTop = 56356 mmWidth = 24871 BandType = 0 LayerName = Foreground2 end object ppDBText15: TppDBText DesignLayer = ppDesignLayer3 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 = 9 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'Main' mmHeight = 3951 mmLeft = 144727 mmTop = 56621 mmWidth = 9454 BandType = 0 LayerName = Foreground2 end object ppDBText17: TppDBText DesignLayer = ppDesignLayer3 UserName = 'DBText14' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'Code' DataPipeline = Document_Project Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] ParentDataPipeline = False DataPipelineName = 'Document_Project' mmHeight = 3704 mmLeft = 144463 mmTop = 65881 mmWidth = 47096 BandType = 0 LayerName = Foreground2 end object ppLine4: TppLine DesignLayer = ppDesignLayer3 UserName = 'Line2' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Weight = 0.750000000000000000 mmHeight = 2381 mmLeft = 0 mmTop = 119592 mmWidth = 201627 BandType = 0 LayerName = Foreground2 end object ppLine5: TppLine DesignLayer = ppDesignLayer3 UserName = 'Line3' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Position = lpBottom Weight = 0.750000000000000000 mmHeight = 1852 mmLeft = 0 mmTop = 129899 mmWidth = 201348 BandType = 0 LayerName = Foreground2 end object ppDBText8: TppDBText DesignLayer = ppDesignLayer3 UserName = 'DBText18' HyperlinkEnabled = False AutoSize = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'Phone1' DataPipeline = Main Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [] Transparent = True DataPipelineName = 'Main' mmHeight = 4233 mmLeft = 14817 mmTop = 63500 mmWidth = 12841 BandType = 0 LayerName = Foreground2 end object ppDBText9: TppDBText DesignLayer = ppDesignLayer3 UserName = 'DBText19' HyperlinkEnabled = False AutoSize = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'Fax1' DataPipeline = Main Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [] Transparent = True DataPipelineName = 'Main' mmHeight = 4233 mmLeft = 61383 mmTop = 63500 mmWidth = 8467 BandType = 0 LayerName = Foreground2 end object ppDBRichText4: TppDBRichText DesignLayer = ppDesignLayer3 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 DataPipelineName = 'Main' mmHeight = 45244 mmLeft = 794 mmTop = 73290 mmWidth = 105613 BandType = 0 LayerName = Foreground2 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 mmLeftMargin = 794 end object ppLabel4: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label6' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = ':' 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 = 3969 mmLeft = 142875 mmTop = 42598 mmWidth = 1058 BandType = 0 LayerName = Foreground2 end object ppLabel5: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label7' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = ':' 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 = 3969 mmLeft = 142875 mmTop = 47361 mmWidth = 1058 BandType = 0 LayerName = Foreground2 end object ppLabel6: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label8' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = ':' 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 = 3969 mmLeft = 142875 mmTop = 52123 mmWidth = 1058 BandType = 0 LayerName = Foreground2 end object ppLabel7: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label9' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = ':' 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 = 3969 mmLeft = 142875 mmTop = 56621 mmWidth = 1058 BandType = 0 LayerName = Foreground2 end object ppLabel8: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label10' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = ':' 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 = 3969 mmLeft = 142875 mmTop = 61119 mmWidth = 1058 BandType = 0 LayerName = Foreground2 end object ppLabel9: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label101' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = ':' 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 = 3969 mmLeft = 142611 mmTop = 65617 mmWidth = 1323 BandType = 0 LayerName = Foreground2 end object ppLabel10: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label11' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'JOB NO.' 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 = 3969 mmLeft = 108215 mmTop = 65881 mmWidth = 11906 BandType = 0 LayerName = Foreground2 end object ppLabel15: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label15' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'QTY' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taRightJustified Transparent = True mmHeight = 3704 mmLeft = 102376 mmTop = 120386 mmWidth = 6085 BandType = 0 LayerName = Foreground2 end object ppLabel16: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label16' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'PRICE / UNIT' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3704 mmLeft = 119045 mmTop = 120386 mmWidth = 21167 BandType = 0 LayerName = Foreground2 end object ppLabel14: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label14' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'UOM' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taRightJustified Transparent = True mmHeight = 3704 mmLeft = 109788 mmTop = 120386 mmWidth = 7408 BandType = 0 LayerName = Foreground2 end object ppMemo4: TppMemo DesignLayer = ppDesignLayer3 UserName = 'Memo4' Border.mmPadding = 0 Caption = 'Memo4' CharWrap = False Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [fsBold] Lines.Strings = ( 'TOTAL' 'EXCL TAX') RemoveEmptyLines = False TextAlignment = taCentered Transparent = True mmHeight = 8728 mmLeft = 141267 mmTop = 120386 mmWidth = 15344 BandType = 0 LayerName = Foreground2 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 mmLeading = 0 end object ppMemo5: TppMemo DesignLayer = ppDesignLayer3 UserName = 'Memo5' Border.mmPadding = 0 Caption = 'Memo5' CharWrap = False Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [fsBold] Lines.Strings = ( 'TAX' 'AMT') RemoveEmptyLines = False TextAlignment = taCentered Transparent = True mmHeight = 8731 mmLeft = 162190 mmTop = 120386 mmWidth = 8467 BandType = 0 LayerName = Foreground2 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 mmLeading = 0 end object ppMemo6: TppMemo DesignLayer = ppDesignLayer3 UserName = 'Memo6' Border.mmPadding = 0 Caption = 'Memo6' CharWrap = False Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [fsBold] Lines.Strings = ( 'TOTAL INCL' 'TAX') RemoveEmptyLines = False TextAlignment = taCentered Transparent = True mmHeight = 8731 mmLeft = 173839 mmTop = 120386 mmWidth = 19310 BandType = 0 LayerName = Foreground2 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 mmLeading = 0 end object ppLabel18: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label20' Border.mmPadding = 0 Caption = 'TAX' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3704 mmLeft = 193946 mmTop = 120386 mmWidth = 6350 BandType = 0 LayerName = Foreground2 end object ppVariable6: TppVariable DesignLayer = ppDesignLayer3 UserName = 'VarPayAmt' HyperlinkEnabled = False AutoSize = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 BlankWhenZero = False CalcOrder = 0 DataType = dtCurrency DisplayFormat = '#,0.00;-#,0.00;FOC' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 10 Font.Style = [] TextAlignment = taRightJustified Transparent = True Visible = False mmHeight = 4233 mmLeft = 162190 mmTop = 98954 mmWidth = 27781 BandType = 0 LayerName = Foreground2 end object DBImage1: TppDBImage DesignLayer = ppDesignLayer3 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 = Foreground2 end object DBRichText1: TppDBRichText DesignLayer = ppDesignLayer3 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 = Foreground2 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 mmLeftMargin = 794 end object ppLabel20: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label23' Border.mmPadding = 0 Caption = 'INVOICE' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 12 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 5027 mmLeft = 88106 mmTop = 28310 mmWidth = 18521 BandType = 0 LayerName = Foreground2 end object ppRegion2: TppRegion DesignLayer = ppDesignLayer3 UserName = 'Region2' Brush.Style = bsClear Caption = 'Region2' Pen.Style = psClear Transparent = True mmHeight = 11377 mmLeft = 105040 mmTop = 69937 mmWidth = 97896 BandType = 0 LayerName = Foreground2 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 object ppLabel24: TppLabel DesignLayer = ppDesignLayer3 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 = 4233 mmLeft = 108215 mmTop = 75888 mmWidth = 16933 BandType = 0 LayerName = Foreground2 end object ppDBText22: TppDBText DesignLayer = ppDesignLayer3 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 = 144463 mmTop = 75888 mmWidth = 33073 BandType = 0 LayerName = Foreground2 end object ppLabel22: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label24' 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 = 108215 mmTop = 70995 mmWidth = 21696 BandType = 0 LayerName = Foreground2 end object ppLabel21: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label28' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = ':' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Times New Roman' Font.Size = 10 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 4233 mmLeft = 142611 mmTop = 70995 mmWidth = 1323 BandType = 0 LayerName = Foreground2 end object ppDBText23: TppDBText DesignLayer = ppDesignLayer3 UserName = 'DBText8' 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 = 144463 mmTop = 70995 mmWidth = 28575 BandType = 0 LayerName = Foreground2 end object ppLabel25: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label30' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = ':' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Times New Roman' Font.Size = 10 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 4233 mmLeft = 142611 mmTop = 75888 mmWidth = 1323 BandType = 0 LayerName = Foreground2 end end end object ppDetailBand2: TppDetailBand Background1.Brush.Style = bsClear Background2.Brush.Style = bsClear Border.mmPadding = 0 PrintHeight = phDynamic mmBottomOffset = 0 mmHeight = 9790 mmPrintPosition = 0 object ppSubReport1: TppSubReport DesignLayer = ppDesignLayer3 UserName = 'SubRptNorm' ExpandAll = False NewPrintJob = False OutlineSettings.CreateNode = True TraverseAllData = False DataPipelineName = 'Document_Detail' mmHeight = 5027 mmLeft = 0 mmTop = 0 mmWidth = 203200 BandType = 4 LayerName = Foreground2 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 object ppChildReport1: TppChildReport AutoStop = False DataPipeline = Document_Detail PrinterSetup.BinName = 'Default' PrinterSetup.DocumentName = 'SQL Financial Accounting: Sales Invoice (Without Tax / Without L' + 'etterH) - Unit' PrinterSetup.Duplex = dpNone PrinterSetup.PaperName = 'Letter' PrinterSetup.PrinterName = 'Default' PrinterSetup.SaveDeviceSettings = False PrinterSetup.mmMarginBottom = 6350 PrinterSetup.mmMarginLeft = 6350 PrinterSetup.mmMarginRight = 6350 PrinterSetup.mmMarginTop = 6350 PrinterSetup.mmPaperHeight = 279401 PrinterSetup.mmPaperWidth = 215900 PrinterSetup.PaperSize = 1 Template.DatabaseSettings.NameField = 'Name' Template.DatabaseSettings.TemplateField = 'Template' Template.SaveTo = stDatabase Template.Format = ftASCII Version = '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 = 5821 mmPrintPosition = 0 object ppDBRichText1: TppDBRichText DesignLayer = ppDesignLayer1 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 = 1058 mmLeft = 14552 mmTop = 4763 mmWidth = 71941 BandType = 4 LayerName = Foreground mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 mmLeftMargin = 794 end object DBMemo1: TppDBMemo DesignLayer = ppDesignLayer1 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 = 9 Font.Style = [] ParentDataPipeline = False RemoveEmptyLines = False Stretch = True DataPipelineName = 'Document_Detail' mmHeight = 4233 mmLeft = 14552 mmTop = 794 mmWidth = 71941 BandType = 4 LayerName = Foreground mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 mmLeading = 0 end object DBCalc1: TppDBCalc DesignLayer = ppDesignLayer1 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 = 3810 mmLeft = 794 mmTop = 794 mmWidth = 12171 BandType = 4 LayerName = Foreground end object ppDBText3: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText3' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'Qty' DataPipeline = Document_Detail DisplayFormat = '#,0.0000;-#,0.0000' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] TextAlignment = taRightJustified Transparent = True DataPipelineName = 'Document_Detail' mmHeight = 3969 mmLeft = 92329 mmTop = 794 mmWidth = 15875 BandType = 4 LayerName = Foreground end object ppDBText5: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText5' 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 = 3969 mmLeft = 109792 mmTop = 794 mmWidth = 9521 BandType = 4 LayerName = Foreground end object ppDBText6: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText6' HyperlinkEnabled = False 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 = [] TextAlignment = taRightJustified Transparent = True DataPipelineName = 'Document_Detail' mmHeight = 3969 mmLeft = 120103 mmTop = 794 mmWidth = 17198 BandType = 4 LayerName = Foreground end object ppDBText13: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText1' Border.mmPadding = 0 DataField = 'Amount' DataPipeline = Document_Detail Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] TextAlignment = taRightJustified Transparent = True DataPipelineName = 'Document_Detail' mmHeight = 4498 mmLeft = 138902 mmTop = 794 mmWidth = 17198 BandType = 4 LayerName = Foreground end object ppDBText14: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText2' Border.mmPadding = 0 DataField = 'LocalTaxAmt' DataPipeline = Document_Detail Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] TextAlignment = taRightJustified Transparent = True DataPipelineName = 'Document_Detail' mmHeight = 4498 mmLeft = 155575 mmTop = 794 mmWidth = 17198 BandType = 4 LayerName = Foreground end object ppDBText16: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText4' Border.mmPadding = 0 DataField = 'AmountWithTax' DataPipeline = Document_Detail Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] TextAlignment = taRightJustified Transparent = True DataPipelineName = 'Document_Detail' mmHeight = 4498 mmLeft = 174625 mmTop = 794 mmWidth = 17198 BandType = 4 LayerName = Foreground end object ppDBText18: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText7' Border.mmPadding = 0 DataField = 'TaxRate' DataPipeline = Document_Detail Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] TextAlignment = taRightJustified Transparent = True DataPipelineName = 'Document_Detail' mmHeight = 4498 mmLeft = 192707 mmTop = 794 mmWidth = 7408 BandType = 4 LayerName = Foreground 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 = ppDesignLayer1 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 = Foreground end end object ppGroupFooterBand2: TppGroupFooterBand Background.Brush.Style = bsClear Border.mmPadding = 0 HideWhenOneDetail = False mmBottomOffset = 0 mmHeight = 0 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 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 ppDesignLayers1: TppDesignLayers object ppDesignLayer1: TppDesignLayer UserName = 'Foreground' LayerType = ltBanded Index = 0 end end end end object ppSubReport2: TppSubReport DesignLayer = ppDesignLayer3 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 = 203200 BandType = 4 LayerName = Foreground2 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 object ppChildReport2: TppChildReport AutoStop = False DataPipeline = plSQL_2 PrinterSetup.BinName = 'Default' PrinterSetup.DocumentName = 'SQL Financial Accounting: Sales Invoice (Without Tax / Without L' + 'etterH) - Unit' PrinterSetup.Duplex = dpNone PrinterSetup.PaperName = 'Letter' PrinterSetup.PrinterName = 'Default' PrinterSetup.SaveDeviceSettings = False PrinterSetup.mmMarginBottom = 6350 PrinterSetup.mmMarginLeft = 6350 PrinterSetup.mmMarginRight = 6350 PrinterSetup.mmMarginTop = 6350 PrinterSetup.mmPaperHeight = 279401 PrinterSetup.mmPaperWidth = 215900 PrinterSetup.PaperSize = 1 Template.DatabaseSettings.NameField = 'Name' Template.DatabaseSettings.TemplateField = 'Template' Template.SaveTo = stDatabase Template.Format = ftASCII Version = '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 = 7408 mmPrintPosition = 0 object ppDBRichText2: TppDBRichText DesignLayer = ppDesignLayer2 UserName = 'DBRichText2' 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 = 1058 mmLeft = 14552 mmTop = 4763 mmWidth = 71941 BandType = 4 LayerName = Foreground1 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 mmLeftMargin = 794 end object ppDBMemo1: TppDBMemo DesignLayer = ppDesignLayer2 UserName = 'DBMemo2' 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 = 14552 mmTop = 794 mmWidth = 71941 BandType = 4 LayerName = Foreground1 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 mmLeading = 0 end object ppDBCalc1: TppDBCalc DesignLayer = ppDesignLayer2 UserName = 'DBCalc2' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'Number' DataPipeline = plSQL_2 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] ParentDataPipeline = False TextAlignment = taCentered Transparent = True DBCalcType = dcCount DataPipelineName = 'plSQL_2' mmHeight = 3810 mmLeft = 794 mmTop = 794 mmWidth = 12171 BandType = 4 LayerName = Foreground1 end object ppDBText2: TppDBText DesignLayer = ppDesignLayer2 UserName = 'DBTxtQty' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'Qty' DataPipeline = plSQL_2 DisplayFormat = '#,0.0000;-#,0.0000' 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 = 3969 mmLeft = 92340 mmTop = 794 mmWidth = 15875 BandType = 4 LayerName = Foreground1 end object ppDBText10: TppDBText DesignLayer = ppDesignLayer2 UserName = 'DBText2' 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 = 3969 mmLeft = 109802 mmTop = 794 mmWidth = 9521 BandType = 4 LayerName = Foreground1 end object ppDBText11: TppDBText DesignLayer = ppDesignLayer2 UserName = 'DBTxtUPrice' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'UnitPrice' DataPipeline = plSQL_2 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_2' mmHeight = 3969 mmLeft = 120121 mmTop = 794 mmWidth = 17198 BandType = 4 LayerName = Foreground1 end object ppDBText12: TppDBText DesignLayer = ppDesignLayer2 UserName = 'DBTxtAmt' Border.mmPadding = 0 DataField = 'Amount' 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 = 4498 mmLeft = 138907 mmTop = 794 mmWidth = 17198 BandType = 4 LayerName = Foreground1 end object ppDBText19: TppDBText DesignLayer = ppDesignLayer2 UserName = 'DBTxtLocalTaxAmt' Border.mmPadding = 0 DataField = 'LocalTaxAmt' 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 = 4498 mmLeft = 155575 mmTop = 794 mmWidth = 17198 BandType = 4 LayerName = Foreground1 end object ppDBText20: TppDBText DesignLayer = ppDesignLayer2 UserName = 'DBTxtLocalAmtWithTax' Border.mmPadding = 0 DataField = 'LocalAmountWithTax' 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 = 4498 mmLeft = 174625 mmTop = 794 mmWidth = 17198 BandType = 4 LayerName = Foreground1 end object ppDBText21: TppDBText DesignLayer = ppDesignLayer2 UserName = 'DBText21' Border.mmPadding = 0 DataField = 'Tax' 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 = 4498 mmLeft = 191823 mmTop = 794 mmWidth = 7408 BandType = 4 LayerName = Foreground1 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' DBTxtUPrice.DisplayFormat := Option.GetFieldValue('#39 + 'StockPriceDisplayFormat'#39');'#13#10' DBTxtAmt.DisplayFormat ' + ' := Option.GetFieldValue('#39'AccountingValueDisplayFormat'#39');'#13#10' {DB' + 'TxtLocalAmt.DisplayFormat := Option.GetFieldValue('#39'Accoun' + 'tingValueDisplayFormat'#39'); }'#13#10' DBtxtLocalTaxAmt.DisplayFormat ' + ' := Option.GetFieldValue('#39'AccountingValueDisplayFormat'#39');'#13#10' DB' + 'TxtLocalAmtWithTax.DisplayFormat := Option.GetFieldValue('#39'Accoun' + 'tingValueDisplayFormat'#39');'#13#10'end;'#13#10 raProgram.ComponentName = 'Detail' raProgram.EventName = 'BeforePrint' raProgram.EventID = 24 raProgram.CaretPos = ( 97 6) end end object ppDesignLayers2: TppDesignLayers object ppDesignLayer2: TppDesignLayer UserName = 'Foreground1' 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 StartOnOddPage = False UserName = 'Group1' mmNewColumnThreshold = 0 mmNewPageThreshold = 0 DataPipelineName = 'Main' NewFile = False object ppGroupHeaderBand1: TppGroupHeaderBand Background.Brush.Style = bsClear Border.mmPadding = 0 mmBottomOffset = 0 mmHeight = 0 mmPrintPosition = 0 end object ppGroupFooterBand1: TppGroupFooterBand Background.Brush.Style = bsClear Border.mmPadding = 0 PrintHeight = phDynamic HideWhenOneDetail = False mmBottomOffset = 0 mmHeight = 62441 mmPrintPosition = 203200 object ppRegion6: TppRegion DesignLayer = ppDesignLayer3 UserName = 'RegPayableAmt' Brush.Style = bsClear Caption = 'RegPayableAmt' ParentWidth = True Pen.Style = psClear Transparent = True mmHeight = 52924 mmLeft = 0 mmTop = 9517 mmWidth = 203200 BandType = 5 GroupNo = 0 LayerName = Foreground2 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 object ppLine3: TppLine DesignLayer = ppDesignLayer3 UserName = 'Line5' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Weight = 0.750000000000000000 mmHeight = 2646 mmLeft = 0 mmTop = 10576 mmWidth = 192352 BandType = 5 GroupNo = 0 LayerName = Foreground2 end object ppLabel1: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label1' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'E&O.E.' 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 = 3969 mmLeft = 1058 mmTop = 11634 mmWidth = 10054 BandType = 5 GroupNo = 0 LayerName = Foreground2 end object ppLabel2: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label2' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'NB :' 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 = 3969 mmLeft = 1058 mmTop = 15603 mmWidth = 7144 BandType = 5 GroupNo = 0 LayerName = Foreground2 end object ppMemo1: TppMemo DesignLayer = ppDesignLayer3 UserName = 'Memo1' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Memo1' CharWrap = False Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] Lines.Strings = ( 'Any discrepancy must be notified within 7 days, otherwise will b' + 'e treated as correct.') RemoveEmptyLines = False Transparent = True mmHeight = 4233 mmLeft = 9525 mmTop = 15867 mmWidth = 106627 BandType = 5 GroupNo = 0 LayerName = Foreground2 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 mmLeading = 0 end object ppDBText4: TppDBText DesignLayer = ppDesignLayer3 UserName = 'DBText1' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'CompanyName' DataPipeline = Profile Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] ParentDataPipeline = False TextAlignment = taCentered Transparent = True DataPipelineName = 'Profile' mmHeight = 3969 mmLeft = 3440 mmTop = 42060 mmWidth = 68792 BandType = 5 GroupNo = 0 LayerName = Foreground2 end object ppLine6: TppLine DesignLayer = ppDesignLayer3 UserName = 'Line1' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Weight = 0.750000000000000000 mmHeight = 3969 mmLeft = 3471 mmTop = 56622 mmWidth = 70115 BandType = 5 GroupNo = 0 LayerName = Foreground2 end object ppLabel3: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label4' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'AUTHORISED SIGNATURE' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taCentered Transparent = True mmHeight = 3969 mmLeft = 3735 mmTop = 57680 mmWidth = 70115 BandType = 5 GroupNo = 0 LayerName = Foreground2 end object ppDBText1: TppDBText DesignLayer = ppDesignLayer3 UserName = 'DBText2' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataPipeline = Main Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 10 Font.Style = [] Transparent = True DataPipelineName = 'Main' mmHeight = 4092 mmLeft = 109273 mmTop = 36910 mmWidth = 17198 BandType = 5 GroupNo = 0 LayerName = Foreground2 end object ppLabel17: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label18' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'CHEQUE MAKE PAYABLE TO' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 4233 mmLeft = 9260 mmTop = 19835 mmWidth = 35719 BandType = 5 GroupNo = 0 LayerName = Foreground2 end object ppDBText7: TppDBText DesignLayer = ppDesignLayer3 UserName = 'DBText7' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'CompanyName' DataPipeline = Profile Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 9 Font.Style = [fsBold] ParentDataPipeline = False Transparent = True DataPipelineName = 'Profile' mmHeight = 3969 mmLeft = 46827 mmTop = 19835 mmWidth = 70644 BandType = 5 GroupNo = 0 LayerName = Foreground2 end object ppMemo2: TppMemo DesignLayer = ppDesignLayer3 UserName = 'Memo2' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Memo2' CharWrap = False Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] Lines.Strings = ( '1) It is hereby agreed that interest will be charged at 3.5% per' + ' month on overdue Invoices. All legal cost will be accrued again' + 'st you if action is necessary.' '2) All Business Transcation Shall be undertaken in accordance to' + ' the Federation Of Malaysian Freight Forwarders Standard Trading' + ' Conditions. A Copy is available upon request.') RemoveEmptyLines = False Transparent = True mmHeight = 14817 mmLeft = 1058 mmTop = 27244 mmWidth = 121175 BandType = 5 GroupNo = 0 LayerName = Foreground2 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 mmLeading = 0 end object ppLabel12: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label12' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'BANK : ' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3440 mmLeft = 9260 mmTop = 23805 mmWidth = 9260 BandType = 5 GroupNo = 0 LayerName = Foreground2 end object ppMemo3: TppMemo DesignLayer = ppDesignLayer3 UserName = 'Memo3' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Memo3' CharWrap = False Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [fsBold] Lines.Strings = ( 'RHB BANK BERHAD Current A/C No:2-12303-10800216' '') RemoveEmptyLines = False Transparent = True mmHeight = 3969 mmLeft = 19317 mmTop = 23805 mmWidth = 102394 BandType = 5 GroupNo = 0 LayerName = Foreground2 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 mmLeading = 0 end end object ppLine1: TppLine DesignLayer = ppDesignLayer3 UserName = 'Line6' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Weight = 0.750000000000000000 mmHeight = 2117 mmLeft = 0 mmTop = 0 mmWidth = 193677 BandType = 5 GroupNo = 0 LayerName = Foreground2 end object ppVariable2: TppVariable DesignLayer = ppDesignLayer3 UserName = 'Variable4' 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 = 8467 mmLeft = 529 mmTop = 1058 mmWidth = 114300 BandType = 5 GroupNo = 0 LayerName = Foreground2 end object ppLine7: TppLine DesignLayer = ppDesignLayer3 UserName = 'Line4' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Weight = 0.750000000000000000 mmHeight = 1323 mmLeft = 139424 mmTop = 6886 mmWidth = 53727 BandType = 5 GroupNo = 0 LayerName = Foreground2 end object ppVariable7: TppVariable DesignLayer = ppDesignLayer3 UserName = 'VarExcGST' 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 mmHeight = 3704 mmLeft = 140736 mmTop = 2646 mmWidth = 15875 BandType = 5 GroupNo = 0 LayerName = Foreground2 end object ppVariable5: TppVariable DesignLayer = ppDesignLayer3 UserName = 'VarGSTAmt' Border.mmPadding = 0 BlankWhenZero = False CalcOrder = 2 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 = 3704 mmLeft = 156347 mmTop = 2646 mmWidth = 16933 BandType = 5 GroupNo = 0 LayerName = Foreground2 end object ppVariable3: TppVariable DesignLayer = ppDesignLayer3 UserName = 'VarIncGST' Border.mmPadding = 0 BlankWhenZero = False CalcOrder = 3 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 = 3704 mmLeft = 177803 mmTop = 2646 mmWidth = 15346 BandType = 5 GroupNo = 0 LayerName = Foreground2 end object ppRegion1: TppRegion DesignLayer = ppDesignLayer3 UserName = 'Region1' Caption = 'Region1' Pen.Style = psClear mmHeight = 17727 mmLeft = 125506 mmTop = 15866 mmWidth = 69056 BandType = 5 GroupNo = 0 LayerName = Foreground2 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 object ppShape2: TppShape DesignLayer = ppDesignLayer3 UserName = 'Shape4' mmHeight = 15867 mmLeft = 126646 mmTop = 17055 mmWidth = 66411 BandType = 5 GroupNo = 0 LayerName = Foreground2 end object ppLabel29: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label47' Border.mmPadding = 0 Caption = 'TOTAL EXCL. TAX' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Times New Roman' Font.Size = 9 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taRightJustified Transparent = True mmHeight = 3969 mmLeft = 127529 mmTop = 17727 mmWidth = 28311 BandType = 5 GroupNo = 0 LayerName = Foreground2 end object ppLabel30: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label48' Border.mmPadding = 0 Caption = 'TAX AMT' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Times New Roman' Font.Size = 9 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taRightJustified Transparent = True mmHeight = 3969 mmLeft = 140494 mmTop = 23019 mmWidth = 15346 BandType = 5 GroupNo = 0 LayerName = Foreground2 end object ppLabel32: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label50' Border.mmPadding = 0 Caption = 'RM' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Times New Roman' Font.Size = 9 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taRightJustified Transparent = True mmHeight = 3969 mmLeft = 160248 mmTop = 23094 mmWidth = 5027 BandType = 5 GroupNo = 0 LayerName = Foreground2 end object ppLabel31: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label49' Border.mmPadding = 0 Caption = 'RM' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Times New Roman' Font.Size = 9 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taRightJustified Transparent = True mmHeight = 3969 mmLeft = 160248 mmTop = 17802 mmWidth = 5027 BandType = 5 GroupNo = 0 LayerName = Foreground2 end object ppVariable9: TppVariable DesignLayer = ppDesignLayer3 UserName = 'Variable9' Border.mmPadding = 0 BlankWhenZero = False CalcOrder = 4 DataType = dtCurrency DisplayFormat = '#,0.00;-#,0.00' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Times New Roman' Font.Size = 9 Font.Style = [] TextAlignment = taRightJustified Transparent = True mmHeight = 3969 mmLeft = 169509 mmTop = 17802 mmWidth = 21431 BandType = 5 GroupNo = 0 LayerName = Foreground2 end object ppVariable8: TppVariable DesignLayer = ppDesignLayer3 UserName = 'Variable8' Border.mmPadding = 0 BlankWhenZero = False CalcOrder = 5 DataType = dtCurrency Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Times New Roman' Font.Size = 9 Font.Style = [] TextAlignment = taRightJustified Transparent = True mmHeight = 3969 mmLeft = 169509 mmTop = 23094 mmWidth = 21431 BandType = 5 GroupNo = 0 LayerName = Foreground2 end object ppLabel13: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label13' Border.mmPadding = 0 Caption = 'TOTAL INCL. TAX' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Times New Roman' Font.Size = 9 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taRightJustified Transparent = True mmHeight = 3969 mmLeft = 128059 mmTop = 28046 mmWidth = 27516 BandType = 5 GroupNo = 0 LayerName = Foreground2 end object ppLabel19: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label22' Border.mmPadding = 0 Caption = 'RM' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Times New Roman' Font.Size = 9 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taRightJustified Transparent = True mmHeight = 3969 mmLeft = 160244 mmTop = 28096 mmWidth = 5027 BandType = 5 GroupNo = 0 LayerName = Foreground2 end object ppVariable4: TppVariable DesignLayer = ppDesignLayer3 UserName = 'Variable6' Border.mmPadding = 0 BlankWhenZero = False CalcOrder = 6 DataType = dtCurrency DisplayFormat = '#,0.00;-#,0.00' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Times New Roman' Font.Size = 9 Font.Style = [] TextAlignment = taRightJustified Transparent = True mmHeight = 3969 mmLeft = 169505 mmTop = 28096 mmWidth = 21431 BandType = 5 GroupNo = 0 LayerName = Foreground2 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' sTax : tppVariable;'#13#10#13#10'begin'#13#10#13#10'end;'#13#10 raProgram.CaretPos = ( 1 1) 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, I' + 'temCode, UOM, UnitPrice, UDF_ExcRate, Disc, MIN(Seq) Seq, Descri' + 'ption,'#39' +'#13#10#9#9' '#39'SUM(Qty) Qty, SUM(Amount) Amount, SUM(Amou' + 'ntWithTax) AmountWithTax, '#39' +'#13#10#9#9' '#39'SUM(LocalAmount) Local' + 'Amount, SUM(LocalAmountWithTax) LocalAmountWithTax, '#39'+ '#13#10' ' + ' '#39'Tax, Sum(TaxAmt) TaxAmt, Sum(LocalTaxAmt) LocalTaxAm' + 't '#39' +'#13#10' '#39'FROM Document_Detail '#39' +'#13#10' '#39'GROUP' + ' BY DocKey, ItemCode, Description, UOM, UnitPrice, Disc, Tax '#39';'#13 + #10' SQL_3 := '#39'SELECT DocKey, ItemCode, Description, Description2' + ', Description3, Seq '#39'+ '#13#10#9#9#39'FROM Document_Detail '#39' +'#13#10#9#9#39'ORDER B' + 'Y Seq DESC'#39';'#13#10' '#13#10'end;'#13#10 raProgram.CaretPos = ( 67 8) 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') - Main.GetFieldValue('#39'D_Amount'#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'DocK' + 'ey;Seq'#39');'#13#10' LocalSQL_SELECT(plSQL_3, SQL_3, '#39'DocKey;ItemCode'#39 + ');'#13#10' SetDataPipelineFieldLink(Main, plSQL_0, '#39'DocKey'#39', '#39'DocKe' + 'y'#39');'#13#10' SetDataPipelineFieldLink(Main, plSQL_1, '#39'DocKey'#39', '#39'Doc' + 'Key'#39');'#13#10' SetDataPipelineFieldLink(Main, plSQL_2, '#39'DocKey'#39', '#39'D' + 'ocKey'#39');'#13#10' SetDataPipelineFieldLink(plSQL_2, plSQL_3, '#39'DocKey' + ';ItemCode'#39', '#39'DocKey;ItemCode'#39'); '#13#10' '#13#10'end;'#13#10 raProgram.ComponentName = 'Report' raProgram.EventName = 'BeforePrint' raProgram.EventID = 1 raProgram.CaretPos = ( 1 3) end object raProgramInfo11: 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:= ' + '8.4; end else'#13#10' if Main.GetFieldValue('#39'D_Amount'#39') <> 0 then beg' + 'in'#13#10' GroupFooterBand1.PrintPosition:= 8.3; '#13#10' end; ' + '}'#13#10'end;'#13#10 raProgram.ComponentName = 'Detail' raProgram.EventName = 'BeforePrint' raProgram.EventID = 24 raProgram.CaretPos = ( 1 1) end object raProgramInfo12: 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')) + '#39 + ' ONLY'#39';'#13#10#13#10'end;'#13#10 raProgram.ComponentName = 'Variable4' raProgram.EventName = 'OnCalc' raProgram.EventID = 33 end object raProgramInfo13: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'lbIVTelOnPrint' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure lbIVTelOnPrint;'#13#10'begin'#13#10' lbIVTel.Visible:= Trim(Main' + '.GetFieldValue('#39'Phone1'#39')) <> '#39#39' ;'#13#10'end;'#13#10 raProgram.ComponentName = 'lbIVTel' raProgram.EventName = 'OnPrint' raProgram.EventID = 32 end object raProgramInfo14: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'lbIVFaxOnPrint' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure lbIVFaxOnPrint;'#13#10'begin'#13#10' lbIVFax.Visible:= Trim(Main' + '.GetFieldValue('#39'Fax1'#39')) <> '#39#39';'#13#10'end;'#13#10 raProgram.ComponentName = 'lbIVFax' raProgram.EventName = 'OnPrint' raProgram.EventID = 32 end object raProgramInfo15: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'lbIVAttnOnPrint' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure lbIVAttnOnPrint;'#13#10'begin'#13#10' lbIVAttn.Visible:= Trim(Ma' + 'in.GetFieldValue('#39'Attention'#39')) <> '#39#39';'#13#10'end;'#13#10 raProgram.ComponentName = 'lbIVAttn' raProgram.EventName = 'OnPrint' raProgram.EventID = 32 end object raProgramInfo16: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'HeaderBeforePrint' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure HeaderBeforePrint;'#13#10'Var FD: String;'#13#10'begin'#13#10' '#13#10'end;'#13 + #10 raProgram.ComponentName = 'Header' raProgram.EventName = 'BeforePrint' raProgram.EventID = 24 end object raProgramInfo17: 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 raProgramInfo18: 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 raProgramInfo19: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'VarIncGSTOnCalc' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure VarIncGSTOnCalc(var Value: Variant);'#13#10'begin'#13#10#13#10' Val' + 'ue := GetAggregateValue(agSUM, Document_Detail, '#39'DocKey'#39', '#39'Amoun' + 'tWithTax'#39');'#13#10#13#10'end;'#13#10 raProgram.ComponentName = 'VarIncGST' raProgram.EventName = 'OnCalc' raProgram.EventID = 33 end object raProgramInfo20: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'VarGSTAmtOnCalc' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure VarGSTAmtOnCalc(var Value: Variant);'#13#10'begin'#13#10#13#10' Value' + ' := GetAggregateValue(agSUM, Document_Detail, '#39'DocKey'#39', '#39'TaxAmt'#39 + ');'#13#10#13#10'end;'#13#10 raProgram.ComponentName = 'VarGSTAmt' raProgram.EventName = 'OnCalc' raProgram.EventID = 33 end object raProgramInfo21: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'VarExcGSTOnCalc' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure VarExcGSTOnCalc(var Value: Variant);'#13#10'begin'#13#10#13#10' '#13#10' Va' + 'lue := GetAggregateValue(agSUM, Document_Detail, '#39'DocKey'#39', '#39'Amou' + 'nt'#39');'#13#10#13#10'end;'#13#10 raProgram.ComponentName = 'VarExcGST' raProgram.EventName = 'OnCalc' raProgram.EventID = 33 end object raProgramInfo22: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'Variable9OnCalc' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure Variable9OnCalc(var Value: Variant);'#13#10'begin'#13#10#13#10' Varia' + 'ble9.DisplayFormat := Option.GetFieldValue('#39'AccountingValueDispl' + 'ayFormat'#39');'#13#10' Value := GetAggregateValue(agSUM, Document_Detail' + ', '#39'DocKey'#39', '#39'LocalAmount'#39');'#13#10#13#10'end;'#13#10 raProgram.ComponentName = 'Variable9' raProgram.EventName = 'OnCalc' raProgram.EventID = 33 end object raProgramInfo23: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'Variable8OnCalc' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure Variable8OnCalc(var Value: Variant);'#13#10'begin'#13#10#13#10' Varia' + 'ble8.DisplayFormat := Option.GetFieldValue('#39'AccountingValueDispl' + 'ayFormat'#39');'#13#10' Value := GetAggregateValue(agSUM, Document_Detail' + ', '#39'DocKey'#39', '#39'LocalTaxAmt'#39');'#13#10#13#10'end;'#13#10 raProgram.ComponentName = 'Variable8' raProgram.EventName = 'OnCalc' raProgram.EventID = 33 end object raProgramInfo24: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'Variable6OnCalc' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure Variable6OnCalc(var Value: Variant);'#13#10'begin'#13#10#13#10' Varia' + 'ble6.DisplayFormat := Option.GetFieldValue('#39'AccountingValueDispl' + 'ayFormat'#39');'#13#10' Value := GetAggregateValue(agSUM, Document_Detail' + ', '#39'DocKey'#39', '#39'LocalAmountWithTax'#39'); '#13#10#13#10'end;'#13#10 raProgram.ComponentName = 'Variable6' raProgram.EventName = 'OnCalc' raProgram.EventID = 33 end object raProgramInfo25: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'Region1OnPrint' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure Region1OnPrint;'#13#10'begin'#13#10' Region1.visible := Document' + '_Currency.GetFieldValue('#39'Code'#39') <> '#39'----'#39';'#13#10'end;'#13#10 raProgram.ComponentName = 'Region1' raProgram.EventName = 'OnPrint' raProgram.EventID = 32 raProgram.CaretPos = ( 73 3) end object raProgramInfo26: 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 raProgram.CaretPos = ( 3 3) end end object ppDesignLayers3: TppDesignLayers object ppDesignLayer3: TppDesignLayer UserName = 'Foreground2' LayerType = ltBanded Index = 0 end end object ppParameterList1: TppParameterList end end