###############################################################################
#
# Module: get_current_period.sh
# Author: Peter R. Schmidt
# Description: Get the current Elite accounting period
# for use in shell scripts
#
# Change Log
#
# Date Name Description.................
# 02/08/01 Peter R. Schmidt Start Program
#
###############################################################################
. /elite/custom/run.elite
dbaccess son_db -<<EOF 2>/dev/null | egrep -v "cdvalue|^$"
select cdvalue from cntldflt where cdindex = 23;
EOF
################################################################################
