Функции для составления внешней отчетности

Решение представляет собой набор функций на VBA для получения данных в Excel непосредственно из БД БЭСТ-4+.

Порядок использования:

1. В MS Excel создать новую книгу.
2. Открыть редактор MS Visual Basic (Alt-F11).
3. Предварительно сохранить приложенные тексты модулей в файлы main.bas, bestfunction.bas.
4. В окне проекта VB импортировать программные модули (File / Import File либо ctrl-M).
5. В модуле main.bas в функции BasePath() установить путь к Базе Данных БЭСТ-4+ БЕЗ КОНЕЧНОГО СЛЭША.
6. Перейти в лист Excel (Alt-Q).
7. Выделить две ячейки для занесения начальной и конечной даты и присвоить имена "Дата0" и "Дата".
8. Таблица готова к осуществлению расчетов по функциям:
8.1. ДТ(Счет;Дата)
8.2. КТ(Счет;Дата)
8.3. ДТКТ(Счет1;Счет2;Дата0;Дата)
8.4. ДТС0(Счет;Дата0;Тип)
8.5. КТС0(Счет;Дата0;Тип)
8.6. ДТС(Счет;Дата;Тип)
8.7. КТС(Счет;Дата;Тип)\
9. Счет может быть задан как
9.1. Число, например - 50.
9.2. Строка, например - "50*" , или "62*.000001".
9.3. Массив, например - {62;"76*.000001"}.
10. Тип - определяет тип сальдо
10.1. 0 - Сальдо развернутое (по умолчанию).
10.2. 1 - Сальдо свернутое.

Пример вызова из ячеек:

=ДТ(62) - Дебет по 62 счету, начальный и кон. периоды берутся из ячеек обозваных Дата0 и Дата

=ДТС({62;76;60}) - Дебетовое сальдо по всем этим счетам

=ДТКТ("60*.000001";{50;51}) - оборот 60-го с 51 и 50 счетами

=КТС0(62;ДАТА0;1) - свернутое начальное кредитовое сальдо

Разработано Ермак Е.Ю.

ООО "АСУ", г.Владивосток