object fmZoomVAT: TfmZoomVAT Left = 271 Top = 187 HelpContext = 109 ActiveControl = BtnClose AutoScroll = False Caption = 'VAT Breakdown' ClientHeight = 288 ClientWidth = 388 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [] Scaled = False Visible = True OnClose = FormClose OnCloseQuery = FormCloseQuery OnDestroy = FormDestroy OnShow = FormShow PixelsPerInch = 120 TextHeight = 16 object Panel2: TPanel Left = 0 Top = 243 Width = 388 Height = 45 Align = alBottom TabOrder = 0 object BtnClose: TButton Left = 192 Top = 8 Width = 81 Height = 29 Hint = 'Close this form' Caption = '&Close' ParentShowHint = False ShowHint = True TabOrder = 0 OnClick = BtnCloseClick end object BtnDist: TButton Left = 100 Top = 8 Width = 81 Height = 29 Hint = 'View double entry distribution for this transaction' Caption = '&Distribution' ParentShowHint = False ShowHint = True TabOrder = 1 OnClick = BtnDistClick end object BtnTrans: TButton Left = 8 Top = 8 Width = 81 Height = 29 Hint = 'View main transaction details' Caption = '&Transaction' ParentShowHint = False ShowHint = True TabOrder = 2 OnClick = BtnTransClick end object BtnHelp: TButton Left = 284 Top = 8 Width = 81 Height = 29 Hint = 'Close this form' Caption = '&Help' ParentShowHint = False ShowHint = True TabOrder = 3 OnClick = BtnHelpClick end end object Panel1: TPanel Left = 0 Top = 0 Width = 388 Height = 241 Align = alTop Caption = 'Panel1' TabOrder = 1 object dbgVATBD: TwwDBGrid Left = 1 Top = 1 Width = 386 Height = 239 TitleColor = clBtnFace FixedCols = 0 ShowHorzScrollBar = True Align = alTop DataSource = dsVATTemp Options = [dgTitles, dgIndicator, dgColumnResize, dgTabs, dgConfirmDelete, dgCancelOnExit, dgWordWrap, dgShowFooter, dgFooter3DCells] ReadOnly = True TabOrder = 0 TitleAlignment = taLeftJustify TitleFont.Charset = ANSI_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -13 TitleFont.Name = 'Arial' TitleFont.Style = [] TitleLines = 1 TitleButtons = False OnCalcCellColors = dbgVATBDCalcCellColors OnCalcTitleAttributes = dbgVATBDCalcTitleAttributes IndicatorColor = icBlack OnTopRowChanged = dbgVATBDTopRowChanged FooterCellColor = clYellow FooterHeight = 25 end end object dsNomTrans: TwwDataSource DataSet = taNomTrans Left = 8 Top = 160 end object taNomTrans: TwwTable DatabaseName = 'EmpireBuilder' IndexName = 'TRANSNO' TableName = 'NomTrans.DBF' SyncSQLByRange = False NarrowSearch = False ValidateWithMask = True Left = 36 Top = 160 object taNomTransTRANSNO: TFloatField FieldName = 'TRANSNO' end object taNomTransTTRANSNO: TFloatField FieldName = 'TTRANSNO' end object taNomTransTRANSTYPE: TStringField FieldName = 'TRANSTYPE' Size = 8 end object taNomTransNOMREF: TStringField FieldName = 'NOMREF' Size = 10 end object taNomTransTARNSDATE: TDateField FieldName = 'TARNSDATE' end object taNomTransTRANSREF: TStringField FieldName = 'TRANSREF' Size = 10 end object taNomTransDETAILS: TStringField FieldName = 'DETAILS' Size = 30 end object taNomTransNATVALUE: TFloatField FieldName = 'NATVALUE' end object taNomTransVATVALUE: TFloatField FieldName = 'VATVALUE' end object taNomTransTOTALVALUE: TFloatField FieldName = 'TOTALVALUE' end object taNomTransPOSTVALUE: TFloatField FieldName = 'POSTVALUE' end object taNomTransVATCODE: TStringField FieldName = 'VATCODE' Size = 1 end object taNomTransRECONBANK: TBooleanField FieldName = 'RECONBANK' end object taNomTransGROUPREF: TStringField FieldName = 'GROUPREF' Size = 10 end object taNomTransRECONVAT: TBooleanField FieldName = 'RECONVAT' end object taNomTransPOSTTYPE: TStringField FieldName = 'POSTTYPE' Size = 1 end object taNomTransBALANCE: TFloatField FieldName = 'BALANCE' end object taNomTransMODULE: TStringField FieldName = 'MODULE' Size = 1 end object taNomTransPAYMENT: TFloatField FieldName = 'PAYMENT' end object taNomTransHTRANSNO: TFloatField FieldName = 'HTRANSNO' end object taNomTransVATCACHE: TFloatField FieldName = 'VATCACHE' end object taNomTransTRANLINK: TFloatField FieldName = 'TRANLINK' end end object taTrans: TwwTable DatabaseName = 'EmpireBuilder' IndexName = 'TRANSNO' TableName = 'Trans.DBF' SyncSQLByRange = False NarrowSearch = False ValidateWithMask = True Left = 100 Top = 188 object taTransTRANSNO: TFloatField FieldName = 'TRANSNO' end object taTransACCREF: TStringField FieldName = 'ACCREF' Size = 10 end object taTransTRANSTYPE: TStringField FieldName = 'TRANSTYPE' Size = 8 end object taTransTRANSDATE: TDateField FieldName = 'TRANSDATE' end object taTransINVREF: TStringField FieldName = 'INVREF' Size = 10 end object taTransDETAILS: TStringField FieldName = 'DETAILS' Size = 30 end object taTransNETVALUE: TFloatField FieldName = 'NETVALUE' end object taTransVATVALUE: TFloatField FieldName = 'VATVALUE' end object taTransTOTAL: TFloatField FieldName = 'TOTAL' DisplayFormat = '0.00' end object taTransPAYMENT: TFloatField FieldName = 'PAYMENT' end object taTransBALANCE: TFloatField FieldName = 'BALANCE' end object taTransQUERY: TBooleanField FieldName = 'QUERY' end object taTransMODULE: TStringField FieldName = 'MODULE' Size = 1 end object taTransQUERYMEMO: TMemoField FieldName = 'QUERYMEMO' BlobType = ftMemo Size = 1 end object taTransTRANLINK: TFloatField FieldName = 'TRANLINK' end object taTransTERMS: TSmallintField FieldName = 'TERMS' end end object dsTrans: TwwDataSource DataSet = taTrans Left = 72 Top = 188 end object Sizer1: TSizer Enabled = True ExceptionAction = eaIgnoreControl GridColumnSizing = gcSizeAllColumns GridRowSizing = grSizeByDefaults MinimumSize = True NavigateOnEnter = True OverrideParentFont = True PerformAssertions = True ShowAssertionFailures = False StretchFonts = True StretchImages = True StretchOnResize = True ThreadProcessing = False Left = 8 Top = 128 ScreenWidth = ( 800) ScreenHeight = ( 600) OriginalFormWidth = ( 396) OriginalFormHeight = ( 315) OriginalFormLeft = ( 271) OriginalFormTop = ( 187) OriginalFormPPI = ( 120) OriginalClientWidth = ( 388) OriginalClientHeight = ( 288) end object dsVATTemp: TwwDataSource DataSet = taVATTemp Left = 8 Top = 188 end object taVATTemp: TwwTable SyncSQLByRange = False NarrowSearch = False ValidateWithMask = True Left = 36 Top = 188 object taVATTempVC: TStringField DisplayWidth = 3 FieldName = 'VC' Size = 1 end object taVATTempVRATE: TFloatField DisplayLabel = 'Rate' DisplayWidth = 7 FieldName = 'VRATE' DisplayFormat = '0.00' end object taVATTempNET: TFloatField DisplayLabel = 'Net ' DisplayWidth = 12 FieldName = 'NET' DisplayFormat = '0.00' end object taVATTempVAT: TFloatField DisplayWidth = 12 FieldName = 'VAT' DisplayFormat = '0.00' end object taVATTempTOTAL: TFloatField DisplayLabel = 'Total' DisplayWidth = 12 FieldName = 'TOTAL' DisplayFormat = '0.00' end end end