Computer Buyer 1999 September/Dpcb0999.iso/Business/Empire/_SETUP.1/EmpireBuilder.exe/0/RCDATA/TFMZOOMVAT/TFMZOOMVAT.txt

Text File | 1999-06-21 | 8KB | 352 lines

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