Курсовая работа: Автоматизация учета расчетов с поставщиками и подрядчиками

7. Редактировать счета – Обоими способами;

8. Основной план счетов – Наш;

9. Валютный учет. Справочник валют – С.Валюты;

10. Курс – Курс;

11. Кратность – Кратность;

12. Разделитель учета- не назначен;

13. Создадим форму счета.

Рис.15

14. Отредактируем форму списка;

15. Добавим кнопку. Заголовок – "Печать", формула – Печать();

16. В модуле формы напишем процедуру:

Процедура Печать()

Сч=СоздатьОбъект("Счет");

// Создаем в памяти экземпляр объекта "Счет"

Сч.ИспользоватьПланСчетов(ИспользоватьПланСчетов());

// Указываем, что будем использовать тот план счетов, который является

// текущим в открытом списке счетов

Таб=СоздатьОбъект("Таблица");

Таб.ИсходнаяТаблица("Таблица");

Таб.ВывестиСекцию("Шапка");

Сч.ВыбратьСчета();

// Открываем подборку со списком счетов в текущем плане счетов

Пока Сч.ПолучитьСчет()=1 Цикл

Если Сч.ЭтоГруппа()=1 Тогда

// Это счет либо субсчет, содержащий субсчета

Таб.ВывестиСекцию("Группа");

Иначе

// Это счет не содержащий субсчетов, либо это субсчет самого нижнего уровня