TdvSLCS object TppReport AutoStop = False DataPipeline = Main NoDataBehaviors = [ndBlankReport] PassSetting = psTwoPass PrinterSetup.BinName = 'Report[Partial cut]' PrinterSetup.DocumentName = 'SQL Financial Accounting: Sales Cash Sales 6 - Receipt' PrinterSetup.Duplex = dpNone PrinterSetup.PaperName = 'Custom' PrinterSetup.PrinterName = 'Default' PrinterSetup.SaveDeviceSettings = False PrinterSetup.mmMarginBottom = 0 PrinterSetup.mmMarginLeft = 2540 PrinterSetup.mmMarginRight = 0 PrinterSetup.mmMarginTop = 0 PrinterSetup.mmPaperHeight = 297127 PrinterSetup.mmPaperWidth = 63500 PrinterSetup.PaperSize = 140 SaveAsTemplate = True Template.DatabaseSettings.Name = '10-Cash-Sales-SST-(Summary)' Template.DatabaseSettings.NameField = 'Name' Template.DatabaseSettings.TemplateField = 'Template' Template.SaveTo = stDatabase Template.Format = ftASCII ArchiveFileName = '($MyDocuments)\ReportArchive.raf' DeviceType = 'Screen' DefaultFileDeviceType = 'PDF' EmailSettings.ReportFormat = 'PDF' LanguageID = 'Default' OpenFile = False OutlineSettings.CreateNode = True OutlineSettings.CreatePageNodes = True OutlineSettings.Enabled = False OutlineSettings.Visible = False ThumbnailSettings.Enabled = True ThumbnailSettings.Visible = True ThumbnailSettings.DeadSpace = 30 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 = 63500 DataPipelineName = 'Main' object ppHeaderBand2: TppHeaderBand Background.Brush.Style = bsClear Border.mmPadding = 0 mmBottomOffset = 0 mmHeight = 50271 mmPrintPosition = 0 object ppLine1: TppLine DesignLayer = ppDesignLayer1 UserName = 'Line1' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 ParentWidth = True Position = lpBottom Weight = 0.750000000000000000 mmHeight = 1852 mmLeft = 0 mmTop = 44204 mmWidth = 60960 BandType = 0 LayerName = Foreground end object ppLabel1: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label1' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Invoice' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 9 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taCentered Transparent = True mmHeight = 3968 mmLeft = 24077 mmTop = 33338 mmWidth = 11906 BandType = 0 LayerName = Foreground end object ppDBText5: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText5' HyperlinkEnabled = False AutoSize = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'CompanyName' DataPipeline = Profile Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 8 Font.Style = [] ParentDataPipeline = False TextAlignment = taCentered Transparent = True Visible = False DataPipelineName = 'Profile' mmHeight = 3175 mmLeft = 1852 mmTop = 265 mmWidth = 3969 BandType = 0 LayerName = Foreground end object ppDBText6: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText6' HyperlinkEnabled = False AutoSize = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'Address1' DataPipeline = Profile Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 8 Font.Style = [] ParentDataPipeline = False TextAlignment = taCentered Transparent = True Visible = False DataPipelineName = 'Profile' mmHeight = 3175 mmLeft = 1852 mmTop = 3440 mmWidth = 3969 BandType = 0 LayerName = Foreground end object ppDBText7: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText7' HyperlinkEnabled = False AutoSize = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'Address2' DataPipeline = Profile Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 8 Font.Style = [] ParentDataPipeline = False TextAlignment = taCentered Transparent = True Visible = False DataPipelineName = 'Profile' mmHeight = 3175 mmLeft = 1852 mmTop = 7144 mmWidth = 3969 BandType = 0 LayerName = Foreground end object ppDBText9: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText9' HyperlinkEnabled = False AutoSize = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'URL' DataPipeline = Profile Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 8 Font.Style = [] ParentDataPipeline = False TextAlignment = taCentered Transparent = True Visible = False DataPipelineName = 'Profile' mmHeight = 3175 mmLeft = 1852 mmTop = 23548 mmWidth = 5556 BandType = 0 LayerName = Foreground end object ppDBText10: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText10' HyperlinkEnabled = False AutoSize = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'Address3' DataPipeline = Profile Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 8 Font.Style = [] ParentDataPipeline = False TextAlignment = taCentered Transparent = True Visible = False DataPipelineName = 'Profile' mmHeight = 3175 mmLeft = 1852 mmTop = 9790 mmWidth = 4498 BandType = 0 LayerName = Foreground end object ppDBText11: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText101' HyperlinkEnabled = False AutoSize = True Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'Address4' DataPipeline = Profile Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 8 Font.Style = [] ParentDataPipeline = False TextAlignment = taCentered Transparent = True Visible = False DataPipelineName = 'Profile' mmHeight = 3175 mmLeft = 1852 mmTop = 13229 mmWidth = 4498 BandType = 0 LayerName = Foreground end object ppVariable1: TppVariable DesignLayer = ppDesignLayer1 UserName = 'VarPhoneFax' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 BlankWhenZero = False CalcOrder = 0 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 8 Font.Style = [] TextAlignment = taCentered Transparent = True Visible = False mmHeight = 3175 mmLeft = 1852 mmTop = 16933 mmWidth = 6615 BandType = 0 LayerName = Foreground end object ppRichText1: TppRichText DesignLayer = ppDesignLayer1 UserName = 'RichText1' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 8 Font.Style = [] Border.mmPadding = 0 Caption = 'RichText1' ExportRTFAsBitmap = False MailMerge = True RichText = '{\rtf1\ansi\ansicpg936\deff0\deflang1033\deflangfe2052{\fonttbl{' + '\f0\fnil Microsoft Sans Serif;}}'#13#10'{\colortbl ;\red0\green0\blue0' + ';}'#13#10'\viewkind4\uc1\pard\qc\cf1\f0\fs16 GST ID : GSTNo\lang2052\par'#13#10'}'#13#10#0 RemoveEmptyLines = False Transparent = True Visible = False mmHeight = 4498 mmLeft = 1852 mmTop = 19315 mmWidth = 4498 BandType = 0 LayerName = Foreground mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 end object ppLabel8: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label6' Border.mmPadding = 0 Caption = 'No. :' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taRightJustified Transparent = True mmHeight = 3440 mmLeft = 38363 mmTop = 39426 mmWidth = 6085 BandType = 0 LayerName = Foreground end object ppDBText8: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText8' Border.mmPadding = 0 DataField = 'DocNo' DataPipeline = Main Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 8 Font.Style = [] Transparent = True DataPipelineName = 'Main' mmHeight = 4498 mmLeft = 45242 mmTop = 39426 mmWidth = 17198 BandType = 0 LayerName = Foreground end object ppLabel5: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label5' Border.mmPadding = 0 Caption = 'Tax' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3440 mmLeft = 53176 mmTop = 46572 mmWidth = 4762 BandType = 0 LayerName = Foreground end object ppLabel6: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label8' Border.mmPadding = 0 Caption = 'RM' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taRightJustified Transparent = True mmHeight = 3440 mmLeft = 46828 mmTop = 46625 mmWidth = 4498 BandType = 0 LayerName = Foreground end object ppLabel9: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label9' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Qty' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taCentered Transparent = True mmHeight = 3175 mmLeft = 35187 mmTop = 46625 mmWidth = 5821 BandType = 0 LayerName = Foreground end object ppMemo2: TppMemo DesignLayer = ppDesignLayer1 UserName = 'Memo2' Border.mmPadding = 0 Caption = 'Memo2' CharWrap = False Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 9 Font.Style = [fsBold] Lines.Strings = ( 'KUAN TAI') RemoveEmptyLines = False TextAlignment = taCentered Transparent = True mmHeight = 4233 mmLeft = 20630 mmTop = 2911 mmWidth = 19315 BandType = 0 LayerName = Foreground mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 mmLeading = 0 end object ppMemo5: TppMemo DesignLayer = ppDesignLayer1 UserName = 'Memo5' Border.mmPadding = 0 Caption = 'Memo5' CharWrap = False Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 8 Font.Style = [] Lines.Strings = ( 'NO. 18, JALAN MUSTAPHA AL BAKRI' '(CLARE STREET)' '30300 IPOH, PERAK' 'TEL : 05-2545086' '' 'SST Reg. No. : 001983758336') RemoveEmptyLines = False TextAlignment = taCentered Transparent = True mmHeight = 21960 mmLeft = 3958 mmTop = 10589 mmWidth = 53446 BandType = 0 LayerName = Foreground mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 mmLeading = 0 end object ppLabel15: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label11' Border.mmPadding = 0 Caption = '(000076535-K)' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 7 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taCentered Transparent = True mmHeight = 3175 mmLeft = 22751 mmTop = 7145 mmWidth = 15875 BandType = 0 LayerName = Foreground end end object ppDetailBand2: TppDetailBand Background1.Brush.Style = bsClear Background2.Brush.Style = bsClear Border.mmPadding = 0 PrintHeight = phDynamic mmBottomOffset = 0 mmHeight = 7938 mmPrintPosition = 0 object ppSubReport1: TppSubReport DesignLayer = ppDesignLayer1 UserName = 'SubRptNorm' ExpandAll = False NewPrintJob = False OutlineSettings.CreateNode = True TraverseAllData = False Visible = False DataPipelineName = 'Document_Detail' mmHeight = 3969 mmLeft = 0 mmTop = 0 mmWidth = 60960 BandType = 4 LayerName = Foreground mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 object ppChildReport1: TppChildReport AutoStop = False DataPipeline = Document_Detail PrinterSetup.BinName = 'Report[Partial cut]' PrinterSetup.DocumentName = 'SQL Financial Accounting: Sales Cash Sales 6 - Receipt' PrinterSetup.Duplex = dpNone PrinterSetup.PaperName = 'Custom' PrinterSetup.PrinterName = 'Default' PrinterSetup.SaveDeviceSettings = False PrinterSetup.mmMarginBottom = 0 PrinterSetup.mmMarginLeft = 2540 PrinterSetup.mmMarginRight = 0 PrinterSetup.mmMarginTop = 0 PrinterSetup.mmPaperHeight = 297127 PrinterSetup.mmPaperWidth = 63500 PrinterSetup.PaperSize = 140 Template.DatabaseSettings.NameField = 'Name' Template.DatabaseSettings.TemplateField = 'Template' Template.SaveTo = stDatabase Template.Format = ftASCII Version = '19.02' mmColumnWidth = 0 DataPipelineName = 'Document_Detail' object ppDetailBand3: TppDetailBand Background1.Brush.Style = bsClear Background2.Brush.Style = bsClear Border.mmPadding = 0 PrintHeight = phDynamic mmBottomOffset = 0 mmHeight = 3969 mmPrintPosition = 0 object ppDBText4: TppDBText DesignLayer = ppDesignLayer2 UserName = 'DBTxtAmt' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'LocalAmountWithTax' DataPipeline = Document_Detail Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 8 Font.Style = [] TextAlignment = taRightJustified Transparent = True DataPipelineName = 'Document_Detail' mmHeight = 3175 mmLeft = 39422 mmTop = 529 mmWidth = 13494 BandType = 4 LayerName = Foreground1 end object ppDBText3: TppDBText DesignLayer = ppDesignLayer2 UserName = 'DBQty' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'Qty' DataPipeline = Document_Detail DisplayFormat = '#,0;-#,0' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 8 Font.Style = [] TextAlignment = taRightJustified DataPipelineName = 'Document_Detail' mmHeight = 3217 mmLeft = 31216 mmTop = 508 mmWidth = 7673 BandType = 4 LayerName = Foreground1 end object ppDBText14: TppDBText DesignLayer = ppDesignLayer2 UserName = 'DBTxtTax' Border.mmPadding = 0 DataField = 'Tax' DataPipeline = Document_Detail Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 8 Font.Style = [] Transparent = True DataPipelineName = 'Document_Detail' mmHeight = 3703 mmLeft = 53442 mmTop = 265 mmWidth = 6615 BandType = 4 LayerName = Foreground1 end object ppRichText2: TppRichText DesignLayer = ppDesignLayer2 UserName = 'RTXDesc' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 8 Font.Style = [] Border.mmPadding = 0 Caption = 'RTXDesc' ExportRTFAsBitmap = False MailMerge = True RichText = '{\rtf1\ansi\ansicpg936\deff0\deflang1033\deflangfe2052{\fonttbl{' + '\f0\fnil Microsoft Sans Serif;}{\f1\fnil\fcharset0 Microsoft San' + 's Serif;}}'#13#10'{\colortbl ;\red0\green0\blue0;}'#13#10'\viewkind4\uc1\par' + 'd\cf1\lang2052\f0\fs16 Description\lang1033\f1 ' + ' @ \lang2052\f0 UnitPrice' + '\par'#13#10'}'#13#10#0 RemoveEmptyLines = False Stretch = True Transparent = True mmHeight = 3175 mmLeft = 2646 mmTop = 529 mmWidth = 28575 BandType = 4 LayerName = Foreground1 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 end end object raCodeModule1: TraCodeModule object raProgramInfo1: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'DetailBeforePrint' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure DetailBeforePrint;'#13#10'var v: boolean;'#13#10'begin'#13#10' v := Doc' + 'ument_Detail.GetFieldValue('#39'ItemCode'#39') <> '#39'RTN5Cents'#39'; '#13#10' RT' + 'XDesc.Visible := v;'#13#10' DBQty.Visible := v;'#13#10' DBTxtAmt.Vis' + 'ible := v;'#13#10' DBTxtTax.Visible := v;'#13#10' '#13#10#13#10'end;'#13#10 raProgram.ComponentName = 'Detail' raProgram.EventName = 'BeforePrint' raProgram.EventID = 24 raProgram.CaretPos = ( 1 2) 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 DataPipelineName = 'plSQL_2' mmHeight = 3969 mmLeft = 0 mmTop = 3969 mmWidth = 60960 BandType = 4 LayerName = Foreground mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 object ppChildReport2: TppChildReport AutoStop = False DataPipeline = plSQL_2 PrinterSetup.BinName = 'Report[Partial cut]' PrinterSetup.DocumentName = 'SQL Financial Accounting: Sales Cash Sales 6 - Receipt' PrinterSetup.Duplex = dpNone PrinterSetup.PaperName = 'Custom' PrinterSetup.PrinterName = 'Default' PrinterSetup.SaveDeviceSettings = False PrinterSetup.mmMarginBottom = 0 PrinterSetup.mmMarginLeft = 2540 PrinterSetup.mmMarginRight = 0 PrinterSetup.mmMarginTop = 0 PrinterSetup.mmPaperHeight = 297127 PrinterSetup.mmPaperWidth = 63500 PrinterSetup.PaperSize = 140 Template.DatabaseSettings.NameField = 'Name' Template.DatabaseSettings.TemplateField = 'Template' Template.SaveTo = stDatabase Template.Format = ftASCII Version = '19.02' mmColumnWidth = 0 DataPipelineName = 'plSQL_2' object ppDetailBand1: TppDetailBand Background1.Brush.Style = bsClear Background2.Brush.Style = bsClear Border.mmPadding = 0 PrintHeight = phDynamic mmBottomOffset = 0 mmHeight = 4763 mmPrintPosition = 0 object ppDBText12: TppDBText DesignLayer = ppDesignLayer3 UserName = 'DBTxtAmt' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'AmountWithTax' DataPipeline = plSQL_2 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 8 Font.Style = [] TextAlignment = taRightJustified Transparent = True DataPipelineName = 'plSQL_2' mmHeight = 3704 mmLeft = 40215 mmTop = 529 mmWidth = 12435 BandType = 4 LayerName = Foreground2 end object ppDBText13: TppDBText DesignLayer = ppDesignLayer3 UserName = 'DBTxtQty' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'Qty' DataPipeline = plSQL_2 DisplayFormat = '#,0;-#,0' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 8 Font.Style = [] TextAlignment = taRightJustified DataPipelineName = 'plSQL_2' mmHeight = 3704 mmLeft = 32276 mmTop = 529 mmWidth = 7673 BandType = 4 LayerName = Foreground2 end object ppDBText19: TppDBText DesignLayer = ppDesignLayer3 UserName = 'DBTxtTax1' Border.mmPadding = 0 DataField = 'Tax' DataPipeline = plSQL_2 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 8 Font.Style = [] Transparent = True DataPipelineName = 'plSQL_2' mmHeight = 3703 mmLeft = 53180 mmTop = 530 mmWidth = 6085 BandType = 4 LayerName = Foreground2 end object ppRichText3: TppRichText DesignLayer = ppDesignLayer3 UserName = 'RTXDesc1' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 8 Font.Style = [] Border.mmPadding = 0 Caption = 'RTXDesc' ExportRTFAsBitmap = False MailMerge = True RichText = '{\rtf1\ansi\ansicpg936\deff0\deflang1033\deflangfe2052{\fonttbl{' + '\f0\fnil\fcharset0 Microsoft Sans Serif;}{\f1\fnil Microsoft San' + 's Serif;}}'#13#10'{\colortbl ;\red0\green0\blue0;}'#13#10'\viewkind4\uc1\par' + 'd\cf1\f0\fs16 Description@UnitPrice\lang2052\f1\par'#13#10'}'#13#10#0 RemoveEmptyLines = False Stretch = True Transparent = True mmHeight = 4231 mmLeft = 1851 mmTop = 529 mmWidth = 29369 BandType = 4 LayerName = Foreground2 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 end end object raCodeModule3: TraCodeModule object raProgramInfo2: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'SubRptMergeOnPrint' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure SubRptMergeOnPrint;'#13#10'begin'#13#10' DBTxtQty.DisplayFormat:=' + ' Option.GetFieldValue('#39'StockQuantityDisplayFormat'#39');'#13#10' DBTxtAmt' + '.DisplayFormat:= Option.GetFieldValue('#39'AccountingValueDisplayFor' + 'mat'#39');'#13#10'end;'#13#10 raProgram.ComponentName = 'SubRptMerge' raProgram.EventName = 'OnPrint' raProgram.EventID = 32 raProgram.CaretPos = ( 3 4) end object raProgramInfo3: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'DetailBeforePrint' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure DetailBeforePrint;'#13#10'Var V : Boolean;'#13#10#13#10'begin'#13#10' v := ' + 'plSQL_2.GetFieldValue('#39'ItemCode'#39') <> '#39'RTN5Cents'#39'; '#13#10' RTXDesc' + '1.Visible := v;'#13#10' DBTxtQty.Visible := v;'#13#10' DBTxtAmt.Visi' + 'ble := v;'#13#10' DBTxtTax1.Visible := v;'#13#10'end;'#13#10 raProgram.ComponentName = 'Detail' raProgram.EventName = 'BeforePrint' raProgram.EventID = 24 raProgram.CaretPos = ( 15 5) end end object ppDesignLayers3: TppDesignLayers object ppDesignLayer3: TppDesignLayer UserName = 'Foreground2' LayerType = ltBanded Index = 0 end end end end end object ppFooterBand2: TppFooterBand Background.Brush.Style = bsClear Border.mmPadding = 0 mmBottomOffset = 0 mmHeight = 0 mmPrintPosition = 0 end object ppSummaryBand2: TppSummaryBand Background.Brush.Style = bsClear Border.mmPadding = 0 PrintHeight = phDynamic mmBottomOffset = 0 mmHeight = 60061 mmPrintPosition = 0 object ppLabel4: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label4' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Total Amount Incl. Tax :' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taRightJustified Transparent = True mmHeight = 3439 mmLeft = 11113 mmTop = 3440 mmWidth = 30691 BandType = 7 LayerName = Foreground end object ppLine2: TppLine DesignLayer = ppDesignLayer1 UserName = 'Line2' Border.Weight = 1.000000000000000000 Border.mmPadding = 0 ParentWidth = True Weight = 0.750000000000000000 mmHeight = 1058 mmLeft = 0 mmTop = 2117 mmWidth = 60960 BandType = 7 LayerName = Foreground end object ppLabel7: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label7' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Total Qty :' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 8 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taRightJustified Transparent = True mmHeight = 3440 mmLeft = 485 mmTop = 26458 mmWidth = 15875 BandType = 7 LayerName = Foreground end object ppLabel10: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label10' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Rounding Adjustment :' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taRightJustified Transparent = True mmHeight = 3439 mmLeft = 13753 mmTop = 8467 mmWidth = 28311 BandType = 7 LayerName = Foreground end object ppDBText15: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText15' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'Amount' DataPipeline = plSQL_4 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 8 Font.Style = [] ParentDataPipeline = False TextAlignment = taRightJustified Transparent = True DataPipelineName = 'plSQL_4' mmHeight = 3175 mmLeft = 41271 mmTop = 8467 mmWidth = 16140 BandType = 7 LayerName = Foreground end object ppLabel11: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label101' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Total Amt Payable :' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taRightJustified Transparent = True mmHeight = 3440 mmLeft = 17722 mmTop = 13229 mmWidth = 24342 BandType = 7 LayerName = Foreground end object ppLabel12: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label12' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Paid Amount :' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taRightJustified Transparent = True mmHeight = 3440 mmLeft = 24601 mmTop = 17463 mmWidth = 17463 BandType = 7 LayerName = Foreground end object ppLabel13: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label13' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Change :' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taRightJustified Transparent = True mmHeight = 3440 mmLeft = 30687 mmTop = 21960 mmWidth = 11377 BandType = 7 LayerName = Foreground end object ppDBText17: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText17' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'P_PaidAmount' DataPipeline = Main Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 8 Font.Style = [] TextAlignment = taRightJustified Transparent = True DataPipelineName = 'Main' mmHeight = 3175 mmLeft = 41271 mmTop = 17463 mmWidth = 16140 BandType = 7 LayerName = Foreground end object ppVariable4: TppVariable DesignLayer = ppDesignLayer1 UserName = 'VarIncSST' Border.mmPadding = 0 BlankWhenZero = False CalcOrder = 0 DataType = dtDouble DisplayFormat = '#,0.00;-#,0.00' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 8 Font.Style = [] TextAlignment = taRightJustified Transparent = True mmHeight = 3439 mmLeft = 43392 mmTop = 3440 mmWidth = 13758 BandType = 7 LayerName = Foreground end object ppDBText16: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText16' Border.mmPadding = 0 DataField = 'DocAmt' DataPipeline = Main Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 8 Font.Style = [] TextAlignment = taRightJustified Transparent = True DataPipelineName = 'Main' mmHeight = 4498 mmLeft = 42863 mmTop = 13229 mmWidth = 14548 BandType = 7 LayerName = Foreground end object ppVariable3: TppVariable DesignLayer = ppDesignLayer1 UserName = 'VarChange' Border.mmPadding = 0 BlankWhenZero = False CalcOrder = 1 DataType = dtDouble DisplayFormat = '#,0.00;-#,0.00' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 8 Font.Style = [] TextAlignment = taRightJustified Transparent = True mmHeight = 3440 mmLeft = 43388 mmTop = 21960 mmWidth = 14023 BandType = 7 LayerName = Foreground end object ppSubReport3: TppSubReport DesignLayer = ppDesignLayer1 UserName = 'SubReport1' ExpandAll = False NewPrintJob = False OutlineSettings.CreateNode = True ParentPrinterSetup = False TraverseAllData = False DataPipelineName = 'plSQL_5' mmHeight = 5027 mmLeft = 0 mmTop = 32544 mmWidth = 60960 BandType = 7 LayerName = Foreground mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 object ppChildReport3: TppChildReport AutoStop = False DataPipeline = plSQL_5 PrinterSetup.BinName = 'Report[Partial cut]' PrinterSetup.DocumentName = 'SQL Financial Accounting: Sales Cash Sales 6 - Receipt' PrinterSetup.Duplex = dpNone PrinterSetup.PaperName = 'Custom' PrinterSetup.PrinterName = 'Default' PrinterSetup.SaveDeviceSettings = False PrinterSetup.mmMarginBottom = 0 PrinterSetup.mmMarginLeft = 0 PrinterSetup.mmMarginRight = 0 PrinterSetup.mmMarginTop = 0 PrinterSetup.mmPaperHeight = 297127 PrinterSetup.mmPaperWidth = 63500 PrinterSetup.PaperSize = 140 Template.DatabaseSettings.NameField = 'Name' Template.DatabaseSettings.TemplateField = 'Template' Template.SaveTo = stDatabase Template.Format = ftASCII Version = '19.02' mmColumnWidth = 0 DataPipelineName = 'plSQL_5' object ppTitleBand3: TppTitleBand Background.Brush.Style = bsClear Border.mmPadding = 0 mmBottomOffset = 0 mmHeight = 9790 mmPrintPosition = 0 object ppShape1: TppShape DesignLayer = ppDesignLayer4 UserName = 'Shape1' Pen.Style = psDot mmHeight = 9254 mmLeft = 526 mmTop = 528 mmWidth = 58206 BandType = 1 LayerName = Foreground3 end object ppMemo3: TppMemo DesignLayer = ppDesignLayer4 UserName = 'Memo3' Border.mmPadding = 0 Caption = 'Memo3' CharWrap = False Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 8 Font.Style = [] Lines.Strings = ( 'Amount' '(RM)') RemoveEmptyLines = False TextAlignment = taRightJustified Transparent = True mmHeight = 8202 mmLeft = 28569 mmTop = 1058 mmWidth = 12965 BandType = 1 LayerName = Foreground3 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 mmLeading = 0 end object ppMemo4: TppMemo DesignLayer = ppDesignLayer4 UserName = 'Memo4' Border.mmPadding = 0 Caption = 'Memo4' CharWrap = False Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 8 Font.Style = [] Lines.Strings = ( 'Tax' '(RM)') RemoveEmptyLines = False TextAlignment = taRightJustified Transparent = True mmHeight = 8202 mmLeft = 48962 mmTop = 1058 mmWidth = 8731 BandType = 1 LayerName = Foreground3 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 mmLeading = 0 end object ppMemo1: TppMemo DesignLayer = ppDesignLayer4 UserName = 'Memo1' Border.mmPadding = 0 Caption = 'Memo1' CharWrap = False Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 8 Font.Style = [] Lines.Strings = ( 'Tax' 'Summary)') RemoveEmptyLines = False Transparent = True mmHeight = 8202 mmLeft = 2117 mmTop = 1058 mmWidth = 12965 BandType = 1 LayerName = Foreground3 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 mmLeading = 0 end end object ppDetailBand4: TppDetailBand Background1.Brush.Style = bsClear Background2.Brush.Style = bsClear Border.mmPadding = 0 mmBottomOffset = 0 mmHeight = 5080 mmPrintPosition = 0 object ppShape2: TppShape DesignLayer = ppDesignLayer4 UserName = 'Shape2' Pen.Style = psDot mmHeight = 5020 mmLeft = 529 mmTop = 61 mmWidth = 58202 BandType = 4 LayerName = Foreground3 end object ppDBText20: TppDBText DesignLayer = ppDesignLayer4 UserName = 'DBText20' Border.mmPadding = 0 DataField = 'LocalAmount' DataPipeline = plSQL_5 DisplayFormat = '#,0.00;-#,0.00' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 8 Font.Style = [] TextAlignment = taRightJustified Transparent = True DataPipelineName = 'plSQL_5' mmHeight = 4498 mmLeft = 24336 mmTop = 0 mmWidth = 17198 BandType = 4 LayerName = Foreground3 end object ppDBText21: TppDBText DesignLayer = ppDesignLayer4 UserName = 'DBText201' Border.mmPadding = 0 DataField = 'LocalTaxAmt' DataPipeline = plSQL_5 DisplayFormat = '#,0.00;-#,0.00' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 8 Font.Style = [] TextAlignment = taRightJustified Transparent = True DataPipelineName = 'plSQL_5' mmHeight = 4498 mmLeft = 45258 mmTop = 0 mmWidth = 12435 BandType = 4 LayerName = Foreground3 end object ppLabel16: TppLabel DesignLayer = ppDesignLayer4 UserName = 'lbRate' Border.mmPadding = 0 Caption = 'lbRate' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3439 mmLeft = 2117 mmTop = 265 mmWidth = 8202 BandType = 4 LayerName = Foreground3 end end object ppSummaryBand4: TppSummaryBand Background.Brush.Style = bsClear Border.mmPadding = 0 mmBottomOffset = 0 mmHeight = 5292 mmPrintPosition = 0 object ppShape3: TppShape DesignLayer = ppDesignLayer4 UserName = 'Shape3' Pen.Style = psDot mmHeight = 5027 mmLeft = 526 mmTop = 0 mmWidth = 58202 BandType = 7 LayerName = Foreground3 end object ppDBCalc1: TppDBCalc DesignLayer = ppDesignLayer4 UserName = 'DBCalc1' Border.mmPadding = 0 DataField = 'LocalAmount' DataPipeline = plSQL_5 DisplayFormat = '#,0.00;-#,0.00' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 8 Font.Style = [] TextAlignment = taRightJustified Transparent = True DataPipelineName = 'plSQL_5' mmHeight = 4498 mmLeft = 22749 mmTop = 794 mmWidth = 18785 BandType = 7 LayerName = Foreground3 end object ppDBCalc2: TppDBCalc DesignLayer = ppDesignLayer4 UserName = 'DBCalc2' Border.mmPadding = 0 DataField = 'LocalTaxAmt' DataPipeline = plSQL_5 DisplayFormat = '#,0.00;-#,0.00' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 8 Font.Style = [] TextAlignment = taRightJustified Transparent = True DataPipelineName = 'plSQL_5' mmHeight = 4498 mmLeft = 45258 mmTop = 794 mmWidth = 12435 BandType = 7 LayerName = Foreground3 end object ppLabel14: TppLabel DesignLayer = ppDesignLayer4 UserName = 'Label14' Border.mmPadding = 0 Caption = 'Total' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3439 mmLeft = 2117 mmTop = 794 mmWidth = 6350 BandType = 7 LayerName = Foreground3 end end object raCodeModule4: TraCodeModule object raProgramInfo4: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'lbRateOnGetText' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure lbRateOnGetText(var Text: String);'#13#10'begin'#13#10#13#10' '#13#10' Text' + ' := plSQL_5.getfieldvalue('#39'Tax'#39') + '#39' @ '#39' + plSQL_5.getfieldval' + 'ue('#39'TaxRate'#39') ;'#13#10#13#10'end;'#13#10 raProgram.ComponentName = 'lbRate' raProgram.EventName = 'OnGetText' raProgram.EventID = 53 raProgram.CaretPos = ( 86 5) end end object ppDesignLayers4: TppDesignLayers object ppDesignLayer4: TppDesignLayer UserName = 'Foreground3' LayerType = ltBanded Index = 0 end end end end object ppRegion1: TppRegion DesignLayer = ppDesignLayer1 UserName = 'Region1' Brush.Style = bsClear Caption = 'Region1' Pen.Style = psClear ShiftRelativeTo = ppSubReport3 Stretch = True Transparent = True mmHeight = 20108 mmLeft = 8731 mmTop = 38892 mmWidth = 46038 BandType = 7 LayerName = Foreground mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 object ppSystemVariable1: TppSystemVariable DesignLayer = ppDesignLayer1 UserName = 'SystemVariable1' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 VarType = vtDateTime Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 8 Font.Style = [] TextAlignment = taCentered Transparent = True mmHeight = 3175 mmLeft = 16139 mmTop = 54238 mmWidth = 31221 BandType = 7 LayerName = Foreground end object ppLabel2: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label2' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'THANK YOU' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 8 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taCentered Transparent = True mmHeight = 3175 mmLeft = 22754 mmTop = 39950 mmWidth = 21696 BandType = 7 LayerName = Foreground end object ppLabel3: TppLabel DesignLayer = ppDesignLayer1 UserName = 'Label3' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 Caption = 'Goods sold are not returnable or exchange.' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taCentered Transparent = True mmHeight = 3439 mmLeft = 3440 mmTop = 44186 mmWidth = 53975 BandType = 7 LayerName = Foreground end object ppDBText2: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText2' HyperlinkEnabled = False Border.Weight = 1.000000000000000000 Border.mmPadding = 0 DataField = 'Email' DataPipeline = Profile Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 8 Font.Style = [] ParentDataPipeline = False TextAlignment = taCentered Transparent = True Visible = False DataPipelineName = 'Profile' mmHeight = 4233 mmLeft = 10054 mmTop = 48417 mmWidth = 43127 BandType = 7 LayerName = Foreground end end object ppDBText1: TppDBText DesignLayer = ppDesignLayer1 UserName = 'DBText1' Border.mmPadding = 0 DataField = 'Qty' DataPipeline = plSQL_6 DisplayFormat = '#,0;-#,0' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Microsoft Sans Serif' Font.Size = 8 Font.Style = [] ParentDataPipeline = False TextAlignment = taRightJustified Transparent = True DataPipelineName = 'plSQL_6' mmHeight = 4498 mmLeft = 19271 mmTop = 26453 mmWidth = 12435 BandType = 7 LayerName = Foreground end end object raCodeModule2: TraCodeModule object raProgramInfo9: TraProgramInfo raClassName = 'TraVarProgram' raProgram.ChildType = 17 raProgram.ProgramName = 'Variables' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure Variables;'#13#10'var'#13#10' SQL_2, SQL_3,SQL_4, SQL_5, SQL_6 :' + ' string;'#13#10#13#10'begin'#13#10#13#10'end;'#13#10 raProgram.CaretPos = ( 36 2) end object raProgramInfo10: TraProgramInfo raClassName = 'TraProgram' raProgram.ChildType = 19 raProgram.ProgramName = 'GlobalOnCreate' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure GlobalOnCreate;'#13#10'begin'#13#10' SQL_2 := '#39'SELECT DocKey, It' + 'emCode, Tax, UOM, UnitPrice, Disc, MIN(Seq) Seq, Description,'#39' +' + #13#10#9#9#39'SUM(Qty) Qty, SUM(Amount) Amount, SUM(AmountWithTax) Amount' + 'WithTax '#39' +'#13#10' '#39'FROM Document_Detail '#39' +'#13#10' ' + #39'GROUP BY DocKey, ItemCode, Description, UOM, UnitPrice, Disc '#39';' + ' '#13#10' SQL_3 := '#39'SELECT DocKey, ItemCode, Descriptio' + 'n, Description2, Description3, Seq '#39'+ '#13#10#9' '#9#39'FROM Document' + '_Detail '#39' +'#13#10#9#9' '#39'ORDER BY Seq DESC'#39'; '#9#9#13#10#9' SQL_4 := '#39'SEL' + 'ECT DocKey, ItemCode, UOM, UnitPrice, Disc, MIN(Seq) Seq, Descri' + 'ption, '#39' +'#13#10#9#9' '#39'SUM(Qty) Qty, SUM(Amount) Amount, SUM(Amo' + 'untWithTax) AmountWithTax '#39' +'#13#10' '#39'FROM Document_Detail' + ' '#39' +'#13#10' '#39'WHERE ItemCode='#39#39'RTN5Cents'#39#39' '#39' +'#13#10' ' + ' '#39'GROUP BY DocKey '#39';'#13#10' SQL_5 := '#39'SELECT DocKey, Tax, TaxRat' + 'e, Sum(LocalAmount) LocalAmount, Sum(Qty) Qty, Sum(LocalTaxAmt) ' + 'localTaxAmt, Description '#39'+ '#13#10#9#9' '#39'FROM Document_Detail '#39' ' + '+'#13#10#9#9' '#39'Where Tax <> '#39#39#39#39#39' +'#13#10#9#9' '#39'GROUP BY Dockey, ' + 'Tax, Taxrate'#39';'#13#10' SQL_6 := '#39'SELECT DocKey, ItemCode, UOM, UnitP' + 'rice, Disc, MIN(Seq) Seq, Description, '#39' +'#13#10#9#9' '#39'SUM(Qty) ' + 'Qty, SUM(Amount) Amount, SUM(AmountWithTax) AmountWithTax '#39' +'#13#10' ' + ' '#39'FROM Document_Detail '#39' +'#13#10' '#39'WHERE ItemCo' + 'de <> '#39#39'RTN5Cents'#39#39' '#39' +'#13#10' '#39'GROUP BY DocKey '#39';'#13#10' '#13#10' ' + ' '#13#10' '#13#10'end;'#13#10 raProgram.CaretPos = ( 41 18) end object raProgramInfo11: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'ReportBeforePrint' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure ReportBeforePrint;'#13#10'begin'#13#10' //VarSumQty.DisplayFormat' + ' := Option.GetFieldValue('#39'StockQuantityDisplayFormat'#39');'#13#10' '#13#10' L' + 'ocalSQL_SELECT(plSQL_2, SQL_2, '#39'DocKey;Seq'#39');'#13#10' LocalSQL_SELECT' + '(plSQL_3, SQL_3, '#39'DocKey;ItemCode;Description'#39');'#13#10' LocalSQL_SEL' + 'ECT(plSQL_4, SQL_4, '#39'DocKey'#39');'#13#10' LocalSQL_SELECT(plSQL_5, SQL_5' + ', '#39'Dockey;Tax;TaxRate'#39'); '#13#10' LocalSQL_SELECT(plSQL_6, SQL_6, '#39'Do' + 'cKey'#39'); '#13#10' '#13#10' SetDataPipelineFieldLink(Main, plSQL_2, '#39'DocKey' + #39', '#39'DocKey'#39');'#13#10' SetDataPipelineFieldLink(plSQL_2, plSQL_3, '#39'Doc' + 'Key;ItemCode;Description'#39', '#39'DocKey;ItemCode;Description'#39');'#13#10' Se' + 'tDataPipelineFieldLink(Main, plSQL_4, '#39'DocKey'#39', '#39'DocKey'#39');'#13#10' Se' + 'tDataPipelineFieldLink(Main, plSQL_5, '#39'DocKey'#39', '#39'DocKey'#39'); '#13#10' S' + 'etDataPipelineFieldLink(Main, plSQL_6, '#39'DocKey'#39', '#39'DocKey'#39');'#13#10' '#13#10 + 'end;'#13#10 raProgram.ComponentName = 'Report' raProgram.EventName = 'BeforePrint' raProgram.EventID = 1 raProgram.CaretPos = ( 54 8) end object raProgramInfo12: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'SubRptMergeOnPrint' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure SubRptMergeOnPrint;'#13#10'begin'#13#10' SubRptMerge.Visible:= Opt' + 'ion.GetFieldValue('#39'MergeSameItemCode'#39')= True;'#13#10'end;'#13#10 raProgram.ComponentName = 'SubRptMerge' raProgram.EventName = 'OnPrint' raProgram.EventID = 32 raProgram.CaretPos = ( 3 4) end object raProgramInfo13: 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 raProgram.CaretPos = ( 3 4) end object raProgramInfo14: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'VarPhoneFaxOnCalc' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure VarPhoneFaxOnCalc(var Value: Variant);'#13#10'begin'#13#10#13#10' Val' + 'ue :='#39'Tel : '#39' + Profile.GetFieldValue('#39'Phone1'#39') + '#39' '#39' +'#13#10' '#9' ' + ' '#39'Fax : '#39' + Profile.GetFieldValue('#39'Fax1'#39');'#13#10#13#10'end;'#13#10 raProgram.ComponentName = 'VarPhoneFax' raProgram.EventName = 'OnCalc' raProgram.EventID = 33 end object raProgramInfo15: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'VarIncSSTOnCalc' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure VarIncSSTOnCalc(var Value: Variant);'#13#10'begin'#13#10#13#10' Value' + ' := Main['#39'DocAmt'#39']- plSQL_4.getfieldvalue('#39'Amount'#39');'#13#10#13#10'en' + 'd;'#13#10 raProgram.ComponentName = 'VarIncSST' raProgram.EventName = 'OnCalc' raProgram.EventID = 33 end object raProgramInfo16: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'VarChangeOnCalc' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure VarChangeOnCalc(var Value: Variant);'#13#10'begin'#13#10#13#10' Value' + ' := Main['#39'P_PaidAmount'#39'] - Main['#39'DocAmt'#39'];'#13#10#13#10'end;'#13#10 raProgram.ComponentName = 'VarChange' 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