5. Тема 4. Кассовый сервер в системах управления товародвижением

Основной задачей кассового сервера является учет товародвижения по накладным. Для автоматизации данного процесса используются программы формирования списка файлов папки «Накладные», преобразования списка файлов (определение файлов накладных, созданных позднее последнего заполнения базы данных накладных) и заполнения базы данных по файлам накладных.

Программа формирования списка файлов папки «Накладные»

n = 1

Worksheets("список").Cells(1, 1) = Dir("D:\Накладные\", 16)

While Worksheets("список").Cells(n, 1) <> ""

n = n + 1

Worksheets("список").Cells(n, 1) = Dir()

Wend

n = 3

While Worksheets("список").Cells(n, 1) <> ""

c = "d:\Накладные\" + Worksheets("список").Cells(n, 1)

t = FileDateTime(c)

Worksheets("список").Cells(n, 2) = t

n = n + 1

Wend

Программа преобразования списка файлов (определение файлов накладных, созданных позднее последнего заполнения базы данных накладных)

n = 3: b = FileDateTime("d:\База.xls")

While Worksheets("список").Cells(n, 1) <> ""

c = "d:\Накладные\" + Worksheets("список").Cells(n, 1)

If Dir(c) = "" Then

Worksheets("список").Cells(n, 1) = ""

Worksheets("список").Cells(n, 2) = ""

Else

t = FileDateTime(c)

If t <= b Then

Worksheets("список").Cells(n, 1) = ""

Worksheets("список").Cells(n, 2) = ""

End If: End If: n = n + 1: Wend

Columns("A:B").Select

Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _

OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _

DataOption1:=xlSortNormal

Application.CommandBars("Stop Recording").Visible = False

Программа заполнения базы данных по файлам накладных

k = 1

f = "Накладные": a = "база": b = "накладная"

While Workbooks(f).Worksheets(a).Cells(k, 1) <> ""

k = k + 1: Wend

n = 3

While Worksheets("список").Cells(n, 1) <> ""

e = Worksheets("список").Cells(n, 1)

c = "d:\Накладные\" + e

Workbooks.Open Filename:=c

m = 1

While Workbooks(e).Worksheets(b).Cells(m, 1) <> ""

Workbooks(f).Worksheets(a).Cells(k, 1) = Workbooks(e).Worksheets(b).Cells(m, 1)

m = m + 1: k = k + 1: Wend

Windows(e).Close

n = n + 1

Wend

6. Список литературы

6.1. Нормативные правовые акты

1. Федеральная целевая программа «Электронная Россия». Утверждена постановлением Правительства РФ от 28 января 2002 г. № 65.

2. Федеральный закон «Об информации, информатизации и защите информации от 10.01.2003 N 15-ФЗ.

3. Постановление правительства Санкт-Петербурга о концепции «Стратегия перехода Санкт-Петербурга к информационному обществу» от 16 августа 1999 г. N 36.

6.2. Основная

1. Бугорский В.Н., Дашевский А.И. и др Методы автоматизированного анализа и оценки применимости программных продуктов в учебном процессе. Учебное пособие. СПб: Издательство СПбГИЭУ, 2002.-142 с.

2. Ильина О.П. Информационные технологии бухгалтерского учета. Учебник. СПб: Питер, 2004.-702 с.

3. Лодон Дж. Управление информационными системами = Management information systems. Учебник/ Перевод с английского под ред. Д.Р.Трутнева. СПб: Питер, 2005. – 910 с.

4. Конюховский В.Е. Экономическая информатика. Учебник. СПб: Питер, 2003.-563 с.

5. Дудорин В.И. Информатика в управлении производством. Учебник. Москва: Издательство «Менеджер», 2003.-464 с.

6. Рязанцева Н.А., Рязанцев Д.Н. 1С:Предприятие. Секреты программирования. -СПб: БХВ-Петербург, 2004.-352 с.

7. Михайлов А.В. 1С:Предприятие. Системное программирование. -СПб: БХВ-Петербург, 2005.-336 с.

8. Рамин Е.Л. Компьютерные технологии в науке и образовании. Методические указания к лабораторным работам по изучению системы управления проектами Microsoft Project 2000.- Спб.:СПбГИЭУ, 2002.-52 с.

9. Куперштейн В.И. Microsoft Office и Project в делопроизводстве и управлении. БХВ-Петербург; -СПб, 2001.-240 с.

10. Ананьев А.И., Федоров А.Ф. Самоучитель Visual Basic 6.0. -СПб: БХВ- Петербург, 2004.-624 с.