Порядок выполнения работы

Комплекс задач решается в Excel. Информационные объекты комплекса задач- электронные таблицы и макропрограммы. Вначале нужно создать макеты электронных таблиц «Справочник оснований платежа», «Кассовая книга», «Ведомость», «Жур№ 1». Таблица «Справочник оснований платежа» содержит следующие графы: Основания платежа, Номер корреспондирующего счета прихода, Номер корреспондирующего счета расхода, Служебная. В графу Основания платежа нужно ввести следующие наименования:

- За наличный расчет согласно накладной

- Под отчет

- На хозяйственные нужды

- Депонированная зарплата

- Аванс на командировачные расходы

- Возмещение аванса на командировачные расходы

- За междугородние переговоры

В две следующие графы вводятся номера корреспондирующих счетов. В служебную колонку пользователь записывает информацию о приходно-расходных ордерах.

В таблице «Кассовая книга» реквизитная часть содержит два показателя: Дата, Остаток на начало дня. Табличная часть документа состоит из следующих граф: Номер приходно-расходного ордера, Основание платежа, Номер корреспондирующего счета, Приход, Расход. Графа Основание платежа заполняется по специальной программе. В колонку Номер корреспондирующего счета нужно ввести формулу, которая по основанию платежа находит номер счета прихода или номер счета расхода в зависимости от того, что ввел пользователь:- приход или расход. В итоговой строке таблице содержится формула, вычисляющая остаток на конец дня.

Таблица «Ведомость» состоит из трех колонок: Номер счета, Приход, Расход. Заполняется таблица по специальной программе.

Таблица «Жур№ 1» состоит из приходной и расходной частей. В реквизите таблицы записывают наименование расчетного месяца и сальдо на начало расчетного месяца. В табличной части документа в первой строке перечислены номера счетов, которые проходят по оборотным ведомостям, в первой колонке перечислены по порядку дни месяца. Структура приходной и расходной частей одинаковы. Различаются только номера счетов. Заполняется Журнал-ордер № 1 по программе.

После создания макетов документов нужно разработать и отладить программы заполнения кассовой книги по справочнику оснований платежа, формирования оборотно-сальдовой ведомости и заполнения Журнала-ордера №1. Рекомендации по программированию даны разделе «Программирование комплекса задач «Учет кассовых операций по приходу/расходу денежных средств, формирование Журнала- ордера № 1»»

Программирование комплекса задач «Учет кассовых операций по приходу/расходу денежных средств, формирование Журнала- ордера № 1»

Функции программы заполнения кассовой книги по справочнику оснований платежа

Вначале выполняется сортировка справочника по служебной колонке и вычисляется номер первой пустой строки таблицы «Кассовая книга». После сортировки все записи, заполненные пользователем, оказываются в начале таблицы. Затем в цикле до первой пустой ячейки служебной колонки последовательно определяется значение служебной колонки и в кассовой книге записывается текущее значение основания платежа столько раз, сколько задал пользователь.

Текст программы заполнения кассовой книги по справочнику оснований платежа

n-номер текущей строки в таблице «Справочник оснований платежа»,

k- номер текущей строки в таблице «Кассовая книга»,

c- значение текущей ячейки служебной колонки,

i- параметр цикла

n=3: k=5: while worksheets(«Кассовая книга»).cells(k,2)<>””

k=k+1: wend

while worksheets(«Справочник оснований платежа»).cells(n,4)<>””

c= worksheets(«Справочник оснований платежа»).cells(n,4)

for i=0 to c

worksheets(«Кассовая книга»).cells(k+i,2)= worksheets(«Справочник оснований платежа»).cells(n,1): next

k=k+c: n=n+1: wend

Функции программы формирования оборотно-сальдовой ведомости

Вначале выполняется сортировка кассовой книги по колонке Номер корреспондирующего счета. После сортировки одинаковые номера счетов следуют друг за другом. Поэтому легко найти с помощью «цикла пока» сумму прихода и расхода по группе одинаковых счетов. Затем вычисляется сумма прихода и расхода по группе одинаковых счетов. Полученные значения записываются в таблицу «Ведомость» и таким образом получается распределение приходов/расходов по счетам кассовой книги.

Текст программы формирования оборотно-сальдовой ведомости

n- номер текущей строки таблицы «Кассовая книга»,

k- номер текущей строки таблицы «Ведомость».

sp-сумма прихода на текущем счете.

sr- сумма расхода на текущем счете.

k=3: n=5: while while worksheets(«Кассовая книга»).cells(n,3)<>””

sp= worksheets(«Кассовая книга»).cells(n,4)

sr= worksheets(«Кассовая книга»).cells(n,5)

while worksheets(«Кассовая книга»).cells(n,3)= worksheets(«Кассовая книга»).cells(n+1,3)

sp=sp+ worksheets(«Кассовая книга»).cells(n,4)

sr=sr+ worksheets(«Кассовая книга»).cells(n,5)

n=n+1: wend

worksheets(«Ведомость»).cells(k,1)=worksheets(«Кассовая книга»).cells(n,3)

worksheets(«Ведомость»).cells(k,2)=sp

worksheets(«Ведомость»).cells(k,1)=sr

k=k+1: n=n+1:wend

Функции программы заполнения Журнала-ордера №1

Рассматриваем процесс заполнения приходной таблицы Журнала-ордера №1. Расходная таблица заполняется аналогично. Вначале определяется значение ячейки кассовой книги, в которой записывается дата заполнения кассовой книги, затем вычисляется номер заполняемой строки Журнала-ордера №1, равный значению дня даты плюс количество строк реквизитной части. В цикле определяются значения таблицы «Ведомость», по процедуре поиска образца в приемнике информации находится номер колонки, содержащей номер корреспондирующего счета, и в полученную ячейку записывается приход на счете.

Текст программы заполнения Журнала-ордера №1

n- номер текущей строки таблицы «Ведомость»

k- номер текущего столбца таблицы «Жур№ 1»

c- значение первой колонки текущей строки таблицы «Ведомость»

sp- значение второй колонки текущей строки таблицы «Ведомость»

d- номер заполняемой строки таблицы «Жур.№ 1».

d=val(mid(worksheets(«Кассовая книга»).cells(2,2),1,2)))+4

n=3

while worksheets(«Ведомость»).cells(n,1)<>””

c= worksheets(«Ведомость»).cells(n,1)

sp=worksheets(«Ведомость»).cells(n,2)

k=2: while worksheets(«Жур.№1»).cells(3,k)<>c and worksheets(«Жур.№ 1»).cells(3,k)<>””

k=k+1: wend

worksheets(«Жур.№1»).cells(3,k)=c

worksheets(«Жур.№1»).cells(d,k)=sp

n=n+1: wend

ЛАБОРАТОРНАЯ РАБОТА № 2

ТЕМА РАБОТЫ: РАЗРАБОТКА СИСТЕМЫ УПРАВЛЕНИЯ ЗАКУПКАМИ

Теоретическая часть

Цель работы

Цель работы- создание системы управления закупками для сети магазинов, оптовых баз, центров рыночной торговли.

Постановка задачи

Система находит по Интернет прайс-листы производителей, использует их в расчетных таблицах, формирует и оптимизирует заказы, рассылает заказы по торговым отелам. Для выхода на прайс-листы производителей используется справочник с гиперссылками на Интернет-адреса прайс-листов. Заказы получаются в процессе редактирования расчетных таблиц с описанием продукции и отпускными ценами.

В расчетной таблице вычисляется цена с учетом оборачиваемости товарной номенклатуры, стоимость закупки, выручка от реализации товарной номенклатуры и рентабельность торговой операции

Оптимизируют заказы, изменяя закупаемое количество. Цель оптимизации- получить наибольшую рентабельность в процессе реализации закупки.

Для рассылки заказов по торговым отделам находят по справочнику адрес отдела в локальной сети и записывают заказ по найденному адресу. Цель работы- автоматизировать вышеуказанные процедуры.