;==File=================================================================;
; glchrt.rec - Chart of account record
;=======================================================================;
; Copyright 1999 by TAH Software Systems (TAH), Oklahoma City, Oklahoma ;
;									;
;	TAH provides this software under a license and may only be	;
;	used in accordance with the terms and conditions of such	;
;	license and with the inclusion of the above Copyright notice.	;
;==Changes==============================================================;
; 08/10/1999 tah - Expand debit/credit fields to d12.2
;=======================================================================;
;	Record size:	385
;	Primary key:	1.20	glc_comp,glc_year,glc_acct,glc_div,glc_dept
;	Alternate 1:	22.2	glc_type
;			3.18	glc_year,glc_acct,glc_div,glc_dept
;			1.2	glc_comp
;	Alternate 2:	3.4	glc_year
;			25.25	glc_desc
;=======================================================================;
record	glchrt
	glc_key		,a20			; Primary key
	  glc_comp	,a2	@glc_key	; Company code
	  glc_year	,d4	@glc_key+2	; Year
	  glc_acct	,a6	@glc_key+6	; Account number
	  glc_div 	,a4	@glc_key+12	; Division
	  glc_dept	,a4	@glc_key+16	; Department
	glc_plbl	,a1			; P&L or Bal Sheet
						;   P - P & L account
						;   B - Balance sheet account
	glc_type	,a2			; Account type
	glc_nrbl	,a1			; Normal balance
						;   D - debit
						;   C - credit
	glc_desc	,a25			; Description
	glc_subs	,a1			; Subtotals
						;   Y - Yes
						;   N - No
	glc_status	,a1			; Record status
						;   A - active
						;   I - inactive
	glc_cost	,a1			; Cost centers
						;   N - not allowed
						;   O - optional
						;   R - required
	glc_catg	,a3			; Cost category for account
	glc_unit	,a1			; Units
						;   N - not allowed
						;   O - optional
						;   R - required
	glc_summ	,a1			; Summarize on interface
						;   Y - yes
						;   N - no
	glc_bcur	,d12.2			; Beg balance this year   (10.2)
	glc_ydeb	,[13]d12.2		; YTD debits this year    (10.2)
	glc_ycrd	,[13]d12.2		; YTD credits this year   (10.2)
			,a4			; unused filler
