object fmPLTransfer: TfmPLTransfer
  Left = 226
  Top = 147
  Width = 406
  Height = 256
  HelpContext = 726
  Caption = 'Profit & Loss Transfer'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 120
  TextHeight = 16
  object pnlMessage: TPanel
    Left = 0
    Top = 0
    Width = 398
    Height = 136
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
    object lblMessage: TLabel
      Left = 10
      Top = 10
      Width = 380
      Height = 112
      Alignment = taCenter
      Caption = 
        'This operation will transfer the balances of all the profit'#13#10' &&' +
        ' loss accounts for the period you select below and '#13#10'post them i' +
        'nto the Profit && Loss control account.  This'#13#10' records a journa' +
        'l affecting the accumulative balances '#13#10'only (those listed when ' +
        'you select Current Balances on '#13#10'your Trial Balance, Profit && L' +
        'oss and Balance Sheet'#13#10' reports) and does not affect any period ' +
        'balances.'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
  end
  object pnlButtons: TPanel
    Left = 0
    Top = 189
    Width = 398
    Height = 40
    Align = alBottom
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 1
    object btnTransfer: TButton
      Left = 5
      Top = 5
      Width = 75
      Height = 30
      Caption = '&Transfer'
      TabOrder = 0
      OnClick = btnTransferClick
    end
    object btnClose: TButton
      Left = 85
      Top = 5
      Width = 75
      Height = 30
      Caption = '&Close'
      TabOrder = 1
      OnClick = btnCloseClick
    end
    object btnHelp: TButton
      Left = 320
      Top = 5
      Width = 75
      Height = 30
      Caption = '&Help'
      TabOrder = 2
      OnClick = btnHelpClick
    end
  end
  object pnlPeriod: TPanel
    Left = 0
    Top = 136
    Width = 398
    Height = 53
    Align = alClient
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 2
    object lblPeriod: TLabel
      Left = 15
      Top = 20
      Width = 154
      Height = 16
      Caption = 'Select Period To Transfer'
    end
    object rxcbePeriod: TComboEdit
      Left = 190
      Top = 15
      Width = 196
      Height = 24
      NumGlyphs = 1
      TabOrder = 0
      Text = 'Current Balances'
      OnButtonClick = rxcbePeriodButtonClick
      OnChange = rxcbePeriodChange
      OnEnter = rxcbePeriodEnter
    end
  end
  object taAccPer: TwwTable
    OnCalcFields = taAccPerCalcFields
    DatabaseName = 'EmpireBuilder'
    TableName = 'Accper.dbf'
    SyncSQLByRange = False
    NarrowSearch = False
    ValidateWithMask = True
    Left = 275
    Top = 194
    object taAccPerPERIOD: TDateField
      FieldName = 'PERIOD'
    end
    object taAccPerMONTH: TSmallintField
      FieldName = 'MONTH'
    end
    object taAccPerYEAR: TSmallintField
      FieldName = 'YEAR'
    end
    object taAccPerPERIODNAME: TStringField
      DisplayWidth = 15
      FieldName = 'PERIODNAME'
      Calculated = True
    end
  end
end