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

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

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

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

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

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

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

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

3.6. Текст программы заполнения Журнала-ордера №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

3. Тема 2. Программирование внешней компоненты в системах логистики

На занятии рассматриваются вопросы моделирования процесса регулирования производственных запасов и программирования интерфейса пользователя системы управления запасами.

Решается задача оптимизации плана выпуска комплектующих и полуфабрикатов. Рассмотрим постановку задачи

Производство комплектующих и полуфабрикатов- это производство по предварительным заказам (контрактам). В контрактах оговариваются объем поставки изделий в i- ом периоде, цена изделия и штрафные санкции за некомплект одного изделия.

Для обеспечения контракта производитель может в дополнение к работе по графику организовать сверхурочную работу или накапливать к определенному периоду запасы продукции на складе. Сверхурочная работа и складирование продукции сопряжены с дополнительными затратами. Если эти затраты превышают штрафные санкции, то производитель оплачивает штраф.

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

Для реализации оптимизационного процесса применяется программа, которая обеспечивает ввод исходных данных, автоматическое заполнение текстовой таблицы ограничениями задачи, запись строки целевой функции, вставку ограничений и целевой функции в Excel, Mat cad, Maple, Mat lab, определение оптимальных значений и их представление в форме, понятной пользователю.

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

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

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

Процедура формирования строки формулы

c = "a1+b1"

For i = 2 To 30

c = c + "+a" + Str(i) + "+b" + Str(i): Next i

inputbox(d)

c= "=" + c+”*”+str(d)

Операторы

Selection.InsertFormula

Formula:=c,NumberFormat:="": Selection.InsertFormula

выполняют вставку формулы в ячейку, заданную пользователем, и вычисления по вставленной формуле.